10 FOR I%=0 TO 3 STEP 3 20 P%=&A00 30 [OPTI% 40 LDY #&FF 50 .loop1 60 INY:LDA(&72),Y:CMP #13:BNE loop1 70 CLC:TYA:ADC &72:STA &72 80 .loop2 90 LDA &72:CMP #&B1:BEQ end2 100 SEC:SBC #&80:TAY 110 .loop3 120 LDA (&70),Y:INY:STA (&70),Y 130 DEY:DEY:BPL loop3 140 INC &72:LDY #0 150 LDA #32:STA (&70),Y:BNE loop2 160 .end2 170 .loop4 180 LDA (&70),Y:CMP #48:BEQ end4 190 CMP #49:BEQ end4 200 INY:BNE loop4 210 .end4 220 TYA:CLC:ADC &70:STA &70 230 .main 240 LDY #&FF:STY &76 250 .loop5 260 INY:LDA (&70),Y 270 CMP #13:BNE t1 272 LDA &76:BNE end5 275 .t1 280 CMP (&74),Y:BEQ loop5 290 INC &76 300 CMP #32:BNE t2 310 DEC &76:BNE loop5 320 .t2 330 DEC &70:LDA &70:CMP #&7F:BNE main 332 .end5 340 RTS 350 ]NEXT