; Everywhere1
; Sergio Monesi
;
A      DAT -2042
B      DAT -6100
START  SPL COPY
LOOP   MOV PARAS,@POINT
       ADD #17,POINT
       MOV PARAS2,@POINT2
       SUB #17,POINT2
       JMP LOOP
PARAS  MOV PARAB,@POINT
       JMP LOOP
PARAS2 MOV PARAB,@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 #121,AB1
PROGB3 JMP PROGB1
PROGC1 MOV BOMB,@AC1
PROGC2 ADD #121,AC1
PROGC3 JMP PROGC1
AB1    DAT #-2200
AC1    DAT #2200
PARAB  SPL 0
