>L.

    1ZX=&80:ZDY=&81:ZDX=&82
   10DIM CODE% 200
   20FORI%=0TO3STEP3:O%=CODE%:P%=&2000:[OPTI%+4
   40STAZDY:LDA#5:STAZX:STZZDX:JSRtri11
   45LDY#19:LDA#&FF:STAZDY:JSRtri
   50STXZX:LDY#19:STXZDX:JSRtri
   55STXZX:STXZDY
   60.tri11:LDY#11
   90.tri:LDX#13:.lp:LDA#31:JSR&FFEE:LDAZX:JSR&FFEE:ADCZDX:STAZX:TYA:JSR&FFEE:ADCZDY:TAY:JSRstr:DEX:BNElp:INX:RTS
  100.str:PHX:LDA#42:.slp:JSR&FFEE:DEX:BNEslp:PLX:RTS
 1000:]:NEXT
 2000OSCLI("SAVE BIN "+STR$~(CODE%)+"+"+STR$~(O%-CODE%)+" 2000 2000")
>*SPOOL

