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