blob: f6a3648aebb2e0be65f05b01637e711ceca1cd05 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
messagebox "text \\not escaped \nescaped n" "other\n\rthing"
messagebox "goto label /* a string */ ; same string"
a=10
b= 'abc'#$41'def'
c =#65 /* multiline comment * / * / *//*
comment */ d = 10 ; inline comment /* still inline */
e = d + 20 - (($a * 2) / 4) << 3 % (2 >> 1) + result
:thing
strcompare c "thing"
if result = 1 then
goto label_
elseif result > -1 then
goto 10
elseif d > (1+2*3)/7 then
messagebox "thing"
else
messagebox "done"
endif
if abc messagebox "thing1" "title"
; Invalid syntax
bad = "no closing double quote
bad = 'no closing single quote
garbage
...
...
...
endgarbage
|