;Wipe 5 ;by Anonymous ; COUNT DAT 0 START MOV COUNT-1, CLEAR LOOP1 SUB SUBT, PNTR CMP CLEAR, @ PNTR JMP WIPE JMP LOOP1 WIPE CMP IMP, @ PNTR JMP WIPE2 GATE SPL GETIMP WIPE2 MOV PNTR, PTR LOOP2 MOV SPLIT, @ PTR ADD # 1, PTR CMP CLEAR, @ PTR CLOSED JMP LOOP2 MOV PTR, < COUNT WIP2 MOV SPLIT, @ PNTR CMP CLEAR, < PNTR JMP WIP2 CMP SPLIT, PTR JMP LOOP1 MOV COUNT, PNTR MOV # -58, PNTR ADD COUNT, PNTR MOV CLEAR, @ PNTR SUB # 4, SUBT JMN LOOP1, SUBT MOV COUNT, PTR MOV # 0, COUNT LOOP4 MOV < COUNT, CLEAR MOV SPLIT2, @ CLEAR CMP COUNT, PTR JMP LOOP4 MOV PNTR, PTR LOOP3 MOV PTR, < PNTR JMP LOOP3 IMPPTR DAT 66 IMPPTR2 DAT 66 VELOCITY DAT 3 GETIMP ADD PNTR, IMPPTR MOV CLOSED, GATE MOV IMPPTR, IMPPTR2 LOOP5 MOV CLEAR, @ IMPPTR CMP @ IMPPTR2, IMP JMP LOOP5 MOV CLEAR, @ IMPPTR2 ADD VELOCITY, IMPPTR2 ADD VELOCITY, IMPPTR CMP @ IMPPTR2, IMP JMP LOOP5 ADD # 1, VELOCITY JMP LOOP5 IMP MOV IMP, IMP+1 SUBT DAT 12 SPLIT2 SPL SPLIT2 CLEAR DAT 0 PTR DAT 0 SPLIT SPL PTR PNTR DAT -58 DAT 1 DAT 1 DAT 1 DAT 1 DAT 1 ; DAT 1 DAT 1 DAT 1 DAT 1 DAT 1 DAT 1 DAT 1 DAT 1 END START