lib94/warriors/train.red
2023-05-30 16:02:55 -04:00

25 lines
278 B
Text

;author Benji Dial
;name Train
step equ 4943
spl 1
spl 1
spl 1
paper
mov.f var + 1, var
spl @var
mov }var, >var
mov.a #step / 2, the_end + 2
stone
mov the_end + 1, }the_end + 2
jmp stone, }the_end + 2
var
dat
dat paper + 1, paper + step + 1
the_end