23 lines
507 B
Turtle
23 lines
507 B
Turtle
messagebox "double string" "title"
|
|
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"
|