gigatron/rom/Contrib/at67/gbas/test/test.gbas
2025-01-28 19:17:01 +03:00

59 lines
1.8 KiB
Plaintext

_runtimePath_ "../runtime"
_codeRomType_ ROMv3
'cls
'b = 1
'if &(b XOR 1) then a = 2
'end
'b = 2
'a = 3
'if &(a <> b AND b = 2) then c = 1
'end
init: a = 1
b = a
d = 2
32453245324543543543453553 cat = -3
10 d = 10 + (b + 5) + (cat - a) + 10
e = b - 3 + (25 - a) + d - b - (a - cat - d)
f = 54 - 23 + (27*2) - 32 + (56/3) - 7 - e
g = 154-1230 + (227*2) - 532 + (756/33) - 17
a = a + 1
b = b - 1
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
31 f = -g +1000 -(24-g) +f
32 f = -g +1000 -(24-g) +f
33 f = -g +1000 -(24-g) +f
34 f = -g +1000 -(24-g) +f
35 f = -g +1000 -(24-g) +f
36 f = -g +1000 -(24-g) +f
37 f = -g +1000 -(24-g) +f
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
z = b - (1000 + 2000 - 53 + 2) - (e + 300 - (f - 900))
print a;" ";b;" ";d;" ";e;" ";f;" ";g;" ";z;" ";cat
40 goto 10
end