20 SP=20
   30 *LOAD BUGGLE2 2000
   40 HIMEM=&2000
   50 DIMZ%300
   60 FORA%=0TO2STEP2:P%=Z%:[OPTA%:LDY#&FF:STY&FE43:STA&FE4F:INY:STY&FE40:NOP:NOP:NOP:NOP:LDY#&08:STY&FE40:RTS:.MAIN LDA#&90:JSRZ%:LDA#&81:JSRZ%:LDA#0:JSRZ%:LDA#&B0:JSRZ%:LDA#&A1:JSRZ%:LDA#0:JSRZ%:LDA#&D0:JSRZ%:LDA#&C1:JSRZ%:LDA#0:JSRZ%
   70 SEI:.L1 LDA#0:STA&70:LDA#32:STA&71:.L2 LDY#SP:.L6 DEY:BNEL6:LDA#&9F:SEC:SBC(&70),Y:JSRZ%:CLC:ADC#32:JSRZ%:CLC:ADC#32:JSRZ%:NOP:JMPFINE:.FINE INC&70:BNELK:INC&71:BCCLX:.LK NOP:NOP:.LX LDA&71:CMP#&7C:BNEL2:RTS
   80 ]:NEXT
   90 CALLMAIN:GOTO90