mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 07:54:46 +00:00
37 lines
541 B
Text
37 lines
541 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
|