mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 05:34:47 +00:00
36 lines
554 B
QBasic
36 lines
554 B
QBasic
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
|
|
$endif
|
|
$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
|