mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 06:44:44 +00:00
37 lines
591 B
Text
37 lines
591 B
Text
|
PRINT "hello world"
|
||
|
|
'This is a comment
|
||
|
|
skipstuff: 'Come to here to skip
|
||
|
|
IF x = 1 THEN
|
||
|
|
|
||
|
|
PRINT abc$
|
||
|
|
'$INCLUDE:'included.file'
|
||
|
|
ELSE
|
||
|
|
WHILE x > 1 'This line uses tab indent
|
||
|
|
print ABC$ _
|
||
|
|
"xyz" _
|
||
|
|
"foo"
|
||
|
|
|
||
|
|
WEND
|
||
|
|
END IF
|
||
|
|
x$ = "this" + _
|
||
|
|
"is" + _
|
||
|
|
"the" + _
|
||
|
|
"way the world ends"
|
||
|
|
|
||
|
|
|
||
|
|
SUB s
|
||
|
|
$IF 1 THEN
|
||
|
|
IF ABC$ = "xyz" THEN x = 1: PRINT: r = 3
|
||
|
|
$END IF
|
||
|
|
$IF 0 THEN
|
||
|
|
print 3 >1
|
||
|
|
x$ = "not" + _
|
||
|
|
"with"
|
||
|
|
print "a bang"
|
||
|
|
$END IF
|
||
|
|
SELECT CASE x
|
||
|
|
CASE 1
|
||
|
|
ab.f = 34.1
|
||
|
|
END SELECT
|
||
|
|
END SUB
|