27 lines
448 B
QBasic
27 lines
448 B
QBasic
' hello.bas -- DVX BASIC Hello World
|
|
'
|
|
' A simple program to test the DVX BASIC runner.
|
|
|
|
PRINT "Hello from DVX BASIC!"
|
|
PRINT
|
|
PRINT "Testing arithmetic: 2 + 3 * 4 ="; 2 + 3 * 4
|
|
PRINT "Testing strings: "; "Hello" & " " & "World"
|
|
PRINT
|
|
|
|
DIM i AS INTEGER
|
|
PRINT "Fibonacci sequence:"
|
|
DIM a AS INTEGER
|
|
DIM b AS INTEGER
|
|
DIM temp AS INTEGER
|
|
a = 0
|
|
b = 1
|
|
FOR i = 1 TO 15
|
|
PRINT a;
|
|
temp = a + b
|
|
a = b
|
|
b = temp
|
|
NEXT i
|
|
PRINT
|
|
|
|
PRINT
|
|
PRINT "Done!"
|