; Crazy1
; Sergio Monesi
;
A      DAT -2042
B      DAT -6138
START  SPL COPY
LOOP   JMN PARAS,@POINT
       ADD #17,POINT
       JMN PARAS2,@POINT2
       SUB #17,POINT2
       JMP LOOP
PARAS  SPL @POINT
       JMP LOOP
PARAS2 SPL @POINT2
       JMP LOOP
POINT  DAT #2100
POINT2 DAT #-2100
COPY   MOV PROGB3,<A
       MOV PROGB2,<A
       MOV PROGB1,<A
       ADD #1,A
       SPL @A
       MOV PROGC3,<B
       MOV PROGC2,<B
       MOV PROGC1,<B
       ADD #1,B
       SPL @B
BOMB   DAT #1313
PROGB1 MOV BOMB,@AB1
PROGB2 SUB #9,AB1
PROGB3 JMP PROGB1
PROGC1 MOV BOMB,@AC1
PROGC2 ADD #9,AC1
PROGC3 JMP PROGC1
AB1    DAT #-2200
AC1    DAT #2200
