45 lines
364 B
Plaintext
45 lines
364 B
Plaintext
global x, y
|
|
set y = 8
|
|
shipx
|
|
put x
|
|
zipx
|
|
put x
|
|
put y
|
|
|
|
test
|
|
test()
|
|
put test
|
|
put test()
|
|
if test then test
|
|
|
|
--
|
|
macro SHIPX
|
|
global x, y
|
|
set x = Random(5)
|
|
if x = 1 then
|
|
go "Zoom"
|
|
exit
|
|
end if
|
|
if x >1 then
|
|
set y = 10
|
|
exit
|
|
end if
|
|
put 100
|
|
|
|
--
|
|
macro ZIPX
|
|
set x = Random(5)
|
|
if x = 1 then
|
|
go "ZIP"
|
|
exit
|
|
end if
|
|
if x >1 then
|
|
put x
|
|
check x, 5
|
|
exit
|
|
end if
|
|
|
|
--
|
|
macro test
|
|
return "a"
|