summaryrefslogtreecommitdiff
path: root/tests/examplefiles/ttl/teraterm.ttl
blob: f60f7c9cb661a5071a79d00d8c0d0ca32b8e82ba (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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"