$� 5:� 23,1,0;0;0;0;:*LO. DatePIC
�=&22FF


width=320
height=256
eyes=90
2%�pass=0 � 2 � 2:P%=&2300:[OPTpass
<�LDAheightLO:STAyLO:LDAheightHI:STAyHI:LDAyLO:SEC:SBC#1:STAyLO:BCScont:DECyHI:.cont LDA#0:STA&88:LDA#&30:STA&89:LDA#&28:STA&71:LDY#0:STY&70:LDA#0:.clearloop STA(&70),Y:INY:BNEclearloop:INC&71:LDX&71:CPX#&30:BNEclearloop
A4.newline LDA#0:STAxLO:STAxHI:STAsameLO:STAsameHI
FqLDX#0:LDY#0:.sameloop JSRwritesame:INX:INCsameLO:BNEsameloop:INY:INCsameHI:CPYwidthHI:BCCsameloop:BEQsameloop
P.newdot JSRshape
Z�CLC:LDAsepLO:�yLO:�#1:ADCsepLO:STA&70:LDAsepHI:�yHI:ADCsepHI:CLC:LSR A:STA&71:ROR&70:LDAxLO:SEC:SBC&70:STAiLO:LDAxHI:SBC&71:BPLiOK:JMPnextdot:.iOK STAiHI
d�LDAiLO:CLC:ADCsepLO:STAjLO:LDAiHI:ADCsepHI:STAjHI:CMPwidthHI:BCCjOK:BNEnextdotB:LDAjLO:CMPwidthLO:BCCjOK:.nextdotB JMPnextdot:.jOK
n�.sameloop2 LDAiLO:STAsameLO:LDAiHI:STAsameHI:JSRreadsame:CPYjHI:BCCifA:BNEifB:CPXjLO:BCCifA:BEQifA:.ifB STXsLO:STYsHI:LDXjLO:LDYjHI:JSRwritesame:LDAsLO:STAjLO:LDAsHI:STAjHI
sn .ifA STXiLO:STYiHI:STXsameLO:STYsameHI:LDXjLO:LDYjHI:JSRwritesame:CPXiLO:BNEsameloop2:CPYiHI:BNEsameloop2
xx.nextdot INCxLO:BNEcheck:INCxHI:.check LDAxHI:CMPwidthHI:BCCloopend:LDAxLO:CMPwidthLO:BEQdisploop:.loopend JMPnewdot
�\.disploop LDAxLO:SEC:SBC#1::STAxLO:BCScheck2:DECxHI:.check2 LDAxHI:BPLcolour:JMPnextline
��.colour STAsameHI:LDAxLO:STAsameLO:JSRreadsame:CPXxLO:BNEsame:CPYxHI:BNEsame:LDA#0:STA&70:RTS:.random LDX&71:JSRwritecol:JMPdisp:.same LDAxLO:STAsameLO:LDAxHI:STAsameHI:JSRreadsame:STXcolLO:STYcolHI:JSRreadcol:JSRwritecol
��.disp TXA:CLC:BEQstore:SEC:.store ROLbyte:INCcounter:LDAcounter:CMP#8:BNEdisploop:LDY#0:STYcounter:INC&88:BNEsave:INC&89:.save LDAbyte:STA(&88),Y:JMPdisploop
�e.nextline LDAyLO:SEC:SBC#1:STAyLO:BCSagain:DECyHI:BPLagain:LDA#1:STA&70:JMPshow:.again JMPnewline
��.writesame LDAsameLO:STA&80:LDAsameHI:STA&81:ASL&80:ROL&81:CLC:LDA#&28:ADC&81:STA&81:TYA:PHA:LDY#1:STA(&80),Y:DEY:TXA:STA(&80),Y:PLA:TAY:RTS
��.readsame LDAsameLO:STA&80:LDAsameHI:STA&81:ASL&80:ROL&81:CLC:LDA#&28:ADC&81:STA&81:LDY#0:LDA(&80),Y:TAX:INY:LDA(&80),Y:TAY:RTS
�\.writecol LDAxLO:STA&80:LDAxHI:CLC:ADC#&2D:STA&81:STY&83:TXA:LDY#0:STA(&80),Y:LDY&83:RTS
�_.readcol LDAcolLO:STA&80:LDAcolHI:CLC:ADC#&2D:STA&81:STY&83:LDY#0:LDA(&80),Y:TAX:LDY&83:RTS
Ԫ .show LDA#22:JSR&FFEE:LDA#4:JSR&FFEE:LDAheightHI:STAyHI:LDXheightLO:DEX:STXyLO:CPX#&FF:BNEcont2:DECyHI:.cont2 ASLyLO:ROLyHI:ASLyLO:ROLyHI:LDY#0:STY&88:LDA#&30:STA&89
�p.plotline LDAwidthHI:STAxHI:LDXwidthLO:DEX:STXxLO:CPX#&FF:BNEcont3:DECxHI:.cont3 ASLxLO:ROLxHI:ASLxLO:ROLxHI
ֿ .plotloop LDA(&88),Y:ASL A:STA(&88),Y:BCCnextplot:LDX#4:.draw LDA#25:JSR&FFEE:TXA:JSR&FFEE:LDAxLO:JSR&FFEE:LDAxHI:JSR&FFEE:LDAyLO:JSR&FFEE:LDAyHI:JSR&FFEE:CPX#5:BEQnextplot:LDX#5:JMPdraw
�� .nextplot INCcounter:LDAcounter:CMP#8:BNEnextx:LDA#0:STAcounter:INC&88:BNEnextx:INC&89:.nextx LDAxLO:SEC:SBC#4:STAxLO:BCSplotloop:DECxHI:BPLplotloop:LDAyLO:SEC:SBC#4:STAyLO:BCSplotline2:DECyHI:BPLplotline2:RTS:.plotline2 JMPplotline
��.xLO EQUB0:.xHI EQUB0:.yLO EQUB0:.yHI EQUB0:.sameLO EQUB0:.sameHI EQUB0:.colLO EQUB0:.colHI EQUB0:.widthLO EQUB0:.widthHI EQUB0:.heightLO EQUB0:.heightHI EQUB0:.sepLO EQUB0:.sepHI EQUB0:.iLO EQUB0:.iHI EQUB0
�J.jLO EQUB0:.jHI EQUB0:.sLO EQUB0:.sHI EQUB0:.byte EQUB0:.counter EQUB0
�.shape LDAxLO:STA&70:LDAxHI:STA&71:ASL&70:ROL&71:ASL&70:ROL&71:LDAyLO:STA&72:LDAyHI:STA&73:ASL&72:ROL&73:ASL&72:ROL&73:LDA#9:LDX#&70:LDY#0:JSR&FFF1
��LDA&74:CMP#0:BNEnot0:LDXgroundLO:LDYgroundHI:JMPendshape:.not0 CMP#1:BNEnot1:LDXobj1LO:LDYobj1HI:JMPendshape:.not1 CMP#2:BNEnot2:LDXobj2LO:LDYobj2HI:JMPendshape:.not2 CMP#3:BNEerror:LDXobj3LO:LDYobj3HI
�I.endshape STXsepLO:STYsepHI:RTS:.error BRK:EQUB0:EQUS"Bad Colour":BRK
�w.groundLO EQUB0:.groundHI EQUB0:.obj1LO EQUB0:.obj1HI EQUB0:.obj2LO EQUB0:.obj2HI EQUB0:.obj3LO EQUB0:.obj3HI EQUB0
�]

�

	  !widthLO=width+height*65536

eyes=90

;ground=eyes/2:obj1=ground-4:obj2=ground-4:obj3=ground-4

"7!groundLO=ground+obj1*65536:!obj2LO=obj2+obj3*65536

,
�&2300

6/�?&70=1 � �D@A � ?&71=�(2)-1:�random:�TvA

@ *SA. Date2 5800 8000

J
 �DJA
�

00000000  0d 00 04 24 eb 20 35 3a  ef 20 32 33 2c 31 2c 30  |...$. 5:. 23,1,0|
00000010  3b 30 3b 30 3b 30 3b 3a  2a 4c 4f 2e 20 44 61 74  |;0;0;0;:*LO. Dat|
00000020  65 50 49 43 0d 00 05 0b  d3 3d 26 32 32 46 46 0d  |ePIC.....=&22FF.|
00000030  00 0a 0d 77 69 64 74 68  3d 33 32 30 0d 00 14 0e  |...width=320....|
00000040  68 65 69 67 68 74 3d 32  35 36 0d 00 1e 0b 65 79  |height=256....ey|
00000050  65 73 3d 39 30 0d 00 32  25 e3 70 61 73 73 3d 30  |es=90..2%.pass=0|
00000060  20 b8 20 32 20 88 20 32  3a 50 25 3d 26 32 33 30  | . 2 . 2:P%=&230|
00000070  30 3a 5b 4f 50 54 70 61  73 73 0d 00 3c de 4c 44  |0:[OPTpass..<.LD|
00000080  41 68 65 69 67 68 74 4c  4f 3a 53 54 41 79 4c 4f  |AheightLO:STAyLO|
00000090  3a 4c 44 41 68 65 69 67  68 74 48 49 3a 53 54 41  |:LDAheightHI:STA|
000000a0  79 48 49 3a 4c 44 41 79  4c 4f 3a 53 45 43 3a 53  |yHI:LDAyLO:SEC:S|
000000b0  42 43 23 31 3a 53 54 41  79 4c 4f 3a 42 43 53 63  |BC#1:STAyLO:BCSc|
000000c0  6f 6e 74 3a 44 45 43 79  48 49 3a 2e 63 6f 6e 74  |ont:DECyHI:.cont|
000000d0  20 4c 44 41 23 30 3a 53  54 41 26 38 38 3a 4c 44  | LDA#0:STA&88:LD|
000000e0  41 23 26 33 30 3a 53 54  41 26 38 39 3a 4c 44 41  |A#&30:STA&89:LDA|
000000f0  23 26 32 38 3a 53 54 41  26 37 31 3a 4c 44 59 23  |#&28:STA&71:LDY#|
00000100  30 3a 53 54 59 26 37 30  3a 4c 44 41 23 30 3a 2e  |0:STY&70:LDA#0:.|
00000110  63 6c 65 61 72 6c 6f 6f  70 20 53 54 41 28 26 37  |clearloop STA(&7|
00000120  30 29 2c 59 3a 49 4e 59  3a 42 4e 45 63 6c 65 61  |0),Y:INY:BNEclea|
00000130  72 6c 6f 6f 70 3a 49 4e  43 26 37 31 3a 4c 44 58  |rloop:INC&71:LDX|
00000140  26 37 31 3a 43 50 58 23  26 33 30 3a 42 4e 45 63  |&71:CPX#&30:BNEc|
00000150  6c 65 61 72 6c 6f 6f 70  0d 00 41 34 2e 6e 65 77  |learloop..A4.new|
00000160  6c 69 6e 65 20 4c 44 41  23 30 3a 53 54 41 78 4c  |line LDA#0:STAxL|
00000170  4f 3a 53 54 41 78 48 49  3a 53 54 41 73 61 6d 65  |O:STAxHI:STAsame|
00000180  4c 4f 3a 53 54 41 73 61  6d 65 48 49 0d 00 46 71  |LO:STAsameHI..Fq|
00000190  4c 44 58 23 30 3a 4c 44  59 23 30 3a 2e 73 61 6d  |LDX#0:LDY#0:.sam|
000001a0  65 6c 6f 6f 70 20 4a 53  52 77 72 69 74 65 73 61  |eloop JSRwritesa|
000001b0  6d 65 3a 49 4e 58 3a 49  4e 43 73 61 6d 65 4c 4f  |me:INX:INCsameLO|
000001c0  3a 42 4e 45 73 61 6d 65  6c 6f 6f 70 3a 49 4e 59  |:BNEsameloop:INY|
000001d0  3a 49 4e 43 73 61 6d 65  48 49 3a 43 50 59 77 69  |:INCsameHI:CPYwi|
000001e0  64 74 68 48 49 3a 42 43  43 73 61 6d 65 6c 6f 6f  |dthHI:BCCsameloo|
000001f0  70 3a 42 45 51 73 61 6d  65 6c 6f 6f 70 0d 00 50  |p:BEQsameloop..P|
00000200  14 2e 6e 65 77 64 6f 74  20 4a 53 52 73 68 61 70  |..newdot JSRshap|
00000210  65 0d 00 5a 9d 43 4c 43  3a 4c 44 41 73 65 70 4c  |e..Z.CLC:LDAsepL|
00000220  4f 3a 80 79 4c 4f 3a 80  23 31 3a 41 44 43 73 65  |O:.yLO:.#1:ADCse|
00000230  70 4c 4f 3a 53 54 41 26  37 30 3a 4c 44 41 73 65  |pLO:STA&70:LDAse|
00000240  70 48 49 3a 80 79 48 49  3a 41 44 43 73 65 70 48  |pHI:.yHI:ADCsepH|
00000250  49 3a 43 4c 43 3a 4c 53  52 20 41 3a 53 54 41 26  |I:CLC:LSR A:STA&|
00000260  37 31 3a 52 4f 52 26 37  30 3a 4c 44 41 78 4c 4f  |71:ROR&70:LDAxLO|
00000270  3a 53 45 43 3a 53 42 43  26 37 30 3a 53 54 41 69  |:SEC:SBC&70:STAi|
00000280  4c 4f 3a 4c 44 41 78 48  49 3a 53 42 43 26 37 31  |LO:LDAxHI:SBC&71|
00000290  3a 42 50 4c 69 4f 4b 3a  4a 4d 50 6e 65 78 74 64  |:BPLiOK:JMPnextd|
000002a0  6f 74 3a 2e 69 4f 4b 20  53 54 41 69 48 49 0d 00  |ot:.iOK STAiHI..|
000002b0  64 86 4c 44 41 69 4c 4f  3a 43 4c 43 3a 41 44 43  |d.LDAiLO:CLC:ADC|
000002c0  73 65 70 4c 4f 3a 53 54  41 6a 4c 4f 3a 4c 44 41  |sepLO:STAjLO:LDA|
000002d0  69 48 49 3a 41 44 43 73  65 70 48 49 3a 53 54 41  |iHI:ADCsepHI:STA|
000002e0  6a 48 49 3a 43 4d 50 77  69 64 74 68 48 49 3a 42  |jHI:CMPwidthHI:B|
000002f0  43 43 6a 4f 4b 3a 42 4e  45 6e 65 78 74 64 6f 74  |CCjOK:BNEnextdot|
00000300  42 3a 4c 44 41 6a 4c 4f  3a 43 4d 50 77 69 64 74  |B:LDAjLO:CMPwidt|
00000310  68 4c 4f 3a 42 43 43 6a  4f 4b 3a 2e 6e 65 78 74  |hLO:BCCjOK:.next|
00000320  64 6f 74 42 20 4a 4d 50  6e 65 78 74 64 6f 74 3a  |dotB JMPnextdot:|
00000330  2e 6a 4f 4b 0d 00 6e b0  2e 73 61 6d 65 6c 6f 6f  |.jOK..n..sameloo|
00000340  70 32 20 4c 44 41 69 4c  4f 3a 53 54 41 73 61 6d  |p2 LDAiLO:STAsam|
00000350  65 4c 4f 3a 4c 44 41 69  48 49 3a 53 54 41 73 61  |eLO:LDAiHI:STAsa|
00000360  6d 65 48 49 3a 4a 53 52  72 65 61 64 73 61 6d 65  |meHI:JSRreadsame|
00000370  3a 43 50 59 6a 48 49 3a  42 43 43 69 66 41 3a 42  |:CPYjHI:BCCifA:B|
00000380  4e 45 69 66 42 3a 43 50  58 6a 4c 4f 3a 42 43 43  |NEifB:CPXjLO:BCC|
00000390  69 66 41 3a 42 45 51 69  66 41 3a 2e 69 66 42 20  |ifA:BEQifA:.ifB |
000003a0  53 54 58 73 4c 4f 3a 53  54 59 73 48 49 3a 4c 44  |STXsLO:STYsHI:LD|
000003b0  58 6a 4c 4f 3a 4c 44 59  6a 48 49 3a 4a 53 52 77  |XjLO:LDYjHI:JSRw|
000003c0  72 69 74 65 73 61 6d 65  3a 4c 44 41 73 4c 4f 3a  |ritesame:LDAsLO:|
000003d0  53 54 41 6a 4c 4f 3a 4c  44 41 73 48 49 3a 53 54  |STAjLO:LDAsHI:ST|
000003e0  41 6a 48 49 0d 00 73 6e  20 2e 69 66 41 20 53 54  |AjHI..sn .ifA ST|
000003f0  58 69 4c 4f 3a 53 54 59  69 48 49 3a 53 54 58 73  |XiLO:STYiHI:STXs|
00000400  61 6d 65 4c 4f 3a 53 54  59 73 61 6d 65 48 49 3a  |ameLO:STYsameHI:|
00000410  4c 44 58 6a 4c 4f 3a 4c  44 59 6a 48 49 3a 4a 53  |LDXjLO:LDYjHI:JS|
00000420  52 77 72 69 74 65 73 61  6d 65 3a 43 50 58 69 4c  |Rwritesame:CPXiL|
00000430  4f 3a 42 4e 45 73 61 6d  65 6c 6f 6f 70 32 3a 43  |O:BNEsameloop2:C|
00000440  50 59 69 48 49 3a 42 4e  45 73 61 6d 65 6c 6f 6f  |PYiHI:BNEsameloo|
00000450  70 32 0d 00 78 78 2e 6e  65 78 74 64 6f 74 20 49  |p2..xx.nextdot I|
00000460  4e 43 78 4c 4f 3a 42 4e  45 63 68 65 63 6b 3a 49  |NCxLO:BNEcheck:I|
00000470  4e 43 78 48 49 3a 2e 63  68 65 63 6b 20 4c 44 41  |NCxHI:.check LDA|
00000480  78 48 49 3a 43 4d 50 77  69 64 74 68 48 49 3a 42  |xHI:CMPwidthHI:B|
00000490  43 43 6c 6f 6f 70 65 6e  64 3a 4c 44 41 78 4c 4f  |CCloopend:LDAxLO|
000004a0  3a 43 4d 50 77 69 64 74  68 4c 4f 3a 42 45 51 64  |:CMPwidthLO:BEQd|
000004b0  69 73 70 6c 6f 6f 70 3a  2e 6c 6f 6f 70 65 6e 64  |isploop:.loopend|
000004c0  20 4a 4d 50 6e 65 77 64  6f 74 0d 00 82 5c 2e 64  | JMPnewdot...\.d|
000004d0  69 73 70 6c 6f 6f 70 20  4c 44 41 78 4c 4f 3a 53  |isploop LDAxLO:S|
000004e0  45 43 3a 53 42 43 23 31  3a 3a 53 54 41 78 4c 4f  |EC:SBC#1::STAxLO|
000004f0  3a 42 43 53 63 68 65 63  6b 32 3a 44 45 43 78 48  |:BCScheck2:DECxH|
00000500  49 3a 2e 63 68 65 63 6b  32 20 4c 44 41 78 48 49  |I:.check2 LDAxHI|
00000510  3a 42 50 4c 63 6f 6c 6f  75 72 3a 4a 4d 50 6e 65  |:BPLcolour:JMPne|
00000520  78 74 6c 69 6e 65 0d 00  8c e1 2e 63 6f 6c 6f 75  |xtline.....colou|
00000530  72 20 53 54 41 73 61 6d  65 48 49 3a 4c 44 41 78  |r STAsameHI:LDAx|
00000540  4c 4f 3a 53 54 41 73 61  6d 65 4c 4f 3a 4a 53 52  |LO:STAsameLO:JSR|
00000550  72 65 61 64 73 61 6d 65  3a 43 50 58 78 4c 4f 3a  |readsame:CPXxLO:|
00000560  42 4e 45 73 61 6d 65 3a  43 50 59 78 48 49 3a 42  |BNEsame:CPYxHI:B|
00000570  4e 45 73 61 6d 65 3a 4c  44 41 23 30 3a 53 54 41  |NEsame:LDA#0:STA|
00000580  26 37 30 3a 52 54 53 3a  2e 72 61 6e 64 6f 6d 20  |&70:RTS:.random |
00000590  4c 44 58 26 37 31 3a 4a  53 52 77 72 69 74 65 63  |LDX&71:JSRwritec|
000005a0  6f 6c 3a 4a 4d 50 64 69  73 70 3a 2e 73 61 6d 65  |ol:JMPdisp:.same|
000005b0  20 4c 44 41 78 4c 4f 3a  53 54 41 73 61 6d 65 4c  | LDAxLO:STAsameL|
000005c0  4f 3a 4c 44 41 78 48 49  3a 53 54 41 73 61 6d 65  |O:LDAxHI:STAsame|
000005d0  48 49 3a 4a 53 52 72 65  61 64 73 61 6d 65 3a 53  |HI:JSRreadsame:S|
000005e0  54 58 63 6f 6c 4c 4f 3a  53 54 59 63 6f 6c 48 49  |TXcolLO:STYcolHI|
000005f0  3a 4a 53 52 72 65 61 64  63 6f 6c 3a 4a 53 52 77  |:JSRreadcol:JSRw|
00000600  72 69 74 65 63 6f 6c 0d  00 96 a1 2e 64 69 73 70  |ritecol.....disp|
00000610  20 54 58 41 3a 43 4c 43  3a 42 45 51 73 74 6f 72  | TXA:CLC:BEQstor|
00000620  65 3a 53 45 43 3a 2e 73  74 6f 72 65 20 52 4f 4c  |e:SEC:.store ROL|
00000630  62 79 74 65 3a 49 4e 43  63 6f 75 6e 74 65 72 3a  |byte:INCcounter:|
00000640  4c 44 41 63 6f 75 6e 74  65 72 3a 43 4d 50 23 38  |LDAcounter:CMP#8|
00000650  3a 42 4e 45 64 69 73 70  6c 6f 6f 70 3a 4c 44 59  |:BNEdisploop:LDY|
00000660  23 30 3a 53 54 59 63 6f  75 6e 74 65 72 3a 49 4e  |#0:STYcounter:IN|
00000670  43 26 38 38 3a 42 4e 45  73 61 76 65 3a 49 4e 43  |C&88:BNEsave:INC|
00000680  26 38 39 3a 2e 73 61 76  65 20 4c 44 41 62 79 74  |&89:.save LDAbyt|
00000690  65 3a 53 54 41 28 26 38  38 29 2c 59 3a 4a 4d 50  |e:STA(&88),Y:JMP|
000006a0  64 69 73 70 6c 6f 6f 70  0d 00 aa 65 2e 6e 65 78  |disploop...e.nex|
000006b0  74 6c 69 6e 65 20 4c 44  41 79 4c 4f 3a 53 45 43  |tline LDAyLO:SEC|
000006c0  3a 53 42 43 23 31 3a 53  54 41 79 4c 4f 3a 42 43  |:SBC#1:STAyLO:BC|
000006d0  53 61 67 61 69 6e 3a 44  45 43 79 48 49 3a 42 50  |Sagain:DECyHI:BP|
000006e0  4c 61 67 61 69 6e 3a 4c  44 41 23 31 3a 53 54 41  |Lagain:LDA#1:STA|
000006f0  26 37 30 3a 4a 4d 50 73  68 6f 77 3a 2e 61 67 61  |&70:JMPshow:.aga|
00000700  69 6e 20 4a 4d 50 6e 65  77 6c 69 6e 65 0d 00 b4  |in JMPnewline...|
00000710  90 2e 77 72 69 74 65 73  61 6d 65 20 4c 44 41 73  |..writesame LDAs|
00000720  61 6d 65 4c 4f 3a 53 54  41 26 38 30 3a 4c 44 41  |ameLO:STA&80:LDA|
00000730  73 61 6d 65 48 49 3a 53  54 41 26 38 31 3a 41 53  |sameHI:STA&81:AS|
00000740  4c 26 38 30 3a 52 4f 4c  26 38 31 3a 43 4c 43 3a  |L&80:ROL&81:CLC:|
00000750  4c 44 41 23 26 32 38 3a  41 44 43 26 38 31 3a 53  |LDA#&28:ADC&81:S|
00000760  54 41 26 38 31 3a 54 59  41 3a 50 48 41 3a 4c 44  |TA&81:TYA:PHA:LD|
00000770  59 23 31 3a 53 54 41 28  26 38 30 29 2c 59 3a 44  |Y#1:STA(&80),Y:D|
00000780  45 59 3a 54 58 41 3a 53  54 41 28 26 38 30 29 2c  |EY:TXA:STA(&80),|
00000790  59 3a 50 4c 41 3a 54 41  59 3a 52 54 53 0d 00 be  |Y:PLA:TAY:RTS...|
000007a0  83 2e 72 65 61 64 73 61  6d 65 20 4c 44 41 73 61  |..readsame LDAsa|
000007b0  6d 65 4c 4f 3a 53 54 41  26 38 30 3a 4c 44 41 73  |meLO:STA&80:LDAs|
000007c0  61 6d 65 48 49 3a 53 54  41 26 38 31 3a 41 53 4c  |ameHI:STA&81:ASL|
000007d0  26 38 30 3a 52 4f 4c 26  38 31 3a 43 4c 43 3a 4c  |&80:ROL&81:CLC:L|
000007e0  44 41 23 26 32 38 3a 41  44 43 26 38 31 3a 53 54  |DA#&28:ADC&81:ST|
000007f0  41 26 38 31 3a 4c 44 59  23 30 3a 4c 44 41 28 26  |A&81:LDY#0:LDA(&|
00000800  38 30 29 2c 59 3a 54 41  58 3a 49 4e 59 3a 4c 44  |80),Y:TAX:INY:LD|
00000810  41 28 26 38 30 29 2c 59  3a 54 41 59 3a 52 54 53  |A(&80),Y:TAY:RTS|
00000820  0d 00 c8 5c 2e 77 72 69  74 65 63 6f 6c 20 4c 44  |...\.writecol LD|
00000830  41 78 4c 4f 3a 53 54 41  26 38 30 3a 4c 44 41 78  |AxLO:STA&80:LDAx|
00000840  48 49 3a 43 4c 43 3a 41  44 43 23 26 32 44 3a 53  |HI:CLC:ADC#&2D:S|
00000850  54 41 26 38 31 3a 53 54  59 26 38 33 3a 54 58 41  |TA&81:STY&83:TXA|
00000860  3a 4c 44 59 23 30 3a 53  54 41 28 26 38 30 29 2c  |:LDY#0:STA(&80),|
00000870  59 3a 4c 44 59 26 38 33  3a 52 54 53 0d 00 d2 5f  |Y:LDY&83:RTS..._|
00000880  2e 72 65 61 64 63 6f 6c  20 4c 44 41 63 6f 6c 4c  |.readcol LDAcolL|
00000890  4f 3a 53 54 41 26 38 30  3a 4c 44 41 63 6f 6c 48  |O:STA&80:LDAcolH|
000008a0  49 3a 43 4c 43 3a 41 44  43 23 26 32 44 3a 53 54  |I:CLC:ADC#&2D:ST|
000008b0  41 26 38 31 3a 53 54 59  26 38 33 3a 4c 44 59 23  |A&81:STY&83:LDY#|
000008c0  30 3a 4c 44 41 28 26 38  30 29 2c 59 3a 54 41 58  |0:LDA(&80),Y:TAX|
000008d0  3a 4c 44 59 26 38 33 3a  52 54 53 0d 00 d4 aa 20  |:LDY&83:RTS.... |
000008e0  2e 73 68 6f 77 20 4c 44  41 23 32 32 3a 4a 53 52  |.show LDA#22:JSR|
000008f0  26 46 46 45 45 3a 4c 44  41 23 34 3a 4a 53 52 26  |&FFEE:LDA#4:JSR&|
00000900  46 46 45 45 3a 4c 44 41  68 65 69 67 68 74 48 49  |FFEE:LDAheightHI|
00000910  3a 53 54 41 79 48 49 3a  4c 44 58 68 65 69 67 68  |:STAyHI:LDXheigh|
00000920  74 4c 4f 3a 44 45 58 3a  53 54 58 79 4c 4f 3a 43  |tLO:DEX:STXyLO:C|
00000930  50 58 23 26 46 46 3a 42  4e 45 63 6f 6e 74 32 3a  |PX#&FF:BNEcont2:|
00000940  44 45 43 79 48 49 3a 2e  63 6f 6e 74 32 20 41 53  |DECyHI:.cont2 AS|
00000950  4c 79 4c 4f 3a 52 4f 4c  79 48 49 3a 41 53 4c 79  |LyLO:ROLyHI:ASLy|
00000960  4c 4f 3a 52 4f 4c 79 48  49 3a 4c 44 59 23 30 3a  |LO:ROLyHI:LDY#0:|
00000970  53 54 59 26 38 38 3a 4c  44 41 23 26 33 30 3a 53  |STY&88:LDA#&30:S|
00000980  54 41 26 38 39 0d 00 d5  70 2e 70 6c 6f 74 6c 69  |TA&89...p.plotli|
00000990  6e 65 20 4c 44 41 77 69  64 74 68 48 49 3a 53 54  |ne LDAwidthHI:ST|
000009a0  41 78 48 49 3a 4c 44 58  77 69 64 74 68 4c 4f 3a  |AxHI:LDXwidthLO:|
000009b0  44 45 58 3a 53 54 58 78  4c 4f 3a 43 50 58 23 26  |DEX:STXxLO:CPX#&|
000009c0  46 46 3a 42 4e 45 63 6f  6e 74 33 3a 44 45 43 78  |FF:BNEcont3:DECx|
000009d0  48 49 3a 2e 63 6f 6e 74  33 20 41 53 4c 78 4c 4f  |HI:.cont3 ASLxLO|
000009e0  3a 52 4f 4c 78 48 49 3a  41 53 4c 78 4c 4f 3a 52  |:ROLxHI:ASLxLO:R|
000009f0  4f 4c 78 48 49 0d 00 d6  bf 20 2e 70 6c 6f 74 6c  |OLxHI.... .plotl|
00000a00  6f 6f 70 20 4c 44 41 28  26 38 38 29 2c 59 3a 41  |oop LDA(&88),Y:A|
00000a10  53 4c 20 41 3a 53 54 41  28 26 38 38 29 2c 59 3a  |SL A:STA(&88),Y:|
00000a20  42 43 43 6e 65 78 74 70  6c 6f 74 3a 4c 44 58 23  |BCCnextplot:LDX#|
00000a30  34 3a 2e 64 72 61 77 20  4c 44 41 23 32 35 3a 4a  |4:.draw LDA#25:J|
00000a40  53 52 26 46 46 45 45 3a  54 58 41 3a 4a 53 52 26  |SR&FFEE:TXA:JSR&|
00000a50  46 46 45 45 3a 4c 44 41  78 4c 4f 3a 4a 53 52 26  |FFEE:LDAxLO:JSR&|
00000a60  46 46 45 45 3a 4c 44 41  78 48 49 3a 4a 53 52 26  |FFEE:LDAxHI:JSR&|
00000a70  46 46 45 45 3a 4c 44 41  79 4c 4f 3a 4a 53 52 26  |FFEE:LDAyLO:JSR&|
00000a80  46 46 45 45 3a 4c 44 41  79 48 49 3a 4a 53 52 26  |FFEE:LDAyHI:JSR&|
00000a90  46 46 45 45 3a 43 50 58  23 35 3a 42 45 51 6e 65  |FFEE:CPX#5:BEQne|
00000aa0  78 74 70 6c 6f 74 3a 4c  44 58 23 35 3a 4a 4d 50  |xtplot:LDX#5:JMP|
00000ab0  64 72 61 77 0d 00 d8 ed  20 2e 6e 65 78 74 70 6c  |draw.... .nextpl|
00000ac0  6f 74 20 49 4e 43 63 6f  75 6e 74 65 72 3a 4c 44  |ot INCcounter:LD|
00000ad0  41 63 6f 75 6e 74 65 72  3a 43 4d 50 23 38 3a 42  |Acounter:CMP#8:B|
00000ae0  4e 45 6e 65 78 74 78 3a  4c 44 41 23 30 3a 53 54  |NEnextx:LDA#0:ST|
00000af0  41 63 6f 75 6e 74 65 72  3a 49 4e 43 26 38 38 3a  |Acounter:INC&88:|
00000b00  42 4e 45 6e 65 78 74 78  3a 49 4e 43 26 38 39 3a  |BNEnextx:INC&89:|
00000b10  2e 6e 65 78 74 78 20 4c  44 41 78 4c 4f 3a 53 45  |.nextx LDAxLO:SE|
00000b20  43 3a 53 42 43 23 34 3a  53 54 41 78 4c 4f 3a 42  |C:SBC#4:STAxLO:B|
00000b30  43 53 70 6c 6f 74 6c 6f  6f 70 3a 44 45 43 78 48  |CSplotloop:DECxH|
00000b40  49 3a 42 50 4c 70 6c 6f  74 6c 6f 6f 70 3a 4c 44  |I:BPLplotloop:LD|
00000b50  41 79 4c 4f 3a 53 45 43  3a 53 42 43 23 34 3a 53  |AyLO:SEC:SBC#4:S|
00000b60  54 41 79 4c 4f 3a 42 43  53 70 6c 6f 74 6c 69 6e  |TAyLO:BCSplotlin|
00000b70  65 32 3a 44 45 43 79 48  49 3a 42 50 4c 70 6c 6f  |e2:DECyHI:BPLplo|
00000b80  74 6c 69 6e 65 32 3a 52  54 53 3a 2e 70 6c 6f 74  |tline2:RTS:.plot|
00000b90  6c 69 6e 65 32 20 4a 4d  50 70 6c 6f 74 6c 69 6e  |line2 JMPplotlin|
00000ba0  65 0d 00 dc d3 2e 78 4c  4f 20 45 51 55 42 30 3a  |e.....xLO EQUB0:|
00000bb0  2e 78 48 49 20 45 51 55  42 30 3a 2e 79 4c 4f 20  |.xHI EQUB0:.yLO |
00000bc0  45 51 55 42 30 3a 2e 79  48 49 20 45 51 55 42 30  |EQUB0:.yHI EQUB0|
00000bd0  3a 2e 73 61 6d 65 4c 4f  20 45 51 55 42 30 3a 2e  |:.sameLO EQUB0:.|
00000be0  73 61 6d 65 48 49 20 45  51 55 42 30 3a 2e 63 6f  |sameHI EQUB0:.co|
00000bf0  6c 4c 4f 20 45 51 55 42  30 3a 2e 63 6f 6c 48 49  |lLO EQUB0:.colHI|
00000c00  20 45 51 55 42 30 3a 2e  77 69 64 74 68 4c 4f 20  | EQUB0:.widthLO |
00000c10  45 51 55 42 30 3a 2e 77  69 64 74 68 48 49 20 45  |EQUB0:.widthHI E|
00000c20  51 55 42 30 3a 2e 68 65  69 67 68 74 4c 4f 20 45  |QUB0:.heightLO E|
00000c30  51 55 42 30 3a 2e 68 65  69 67 68 74 48 49 20 45  |QUB0:.heightHI E|
00000c40  51 55 42 30 3a 2e 73 65  70 4c 4f 20 45 51 55 42  |QUB0:.sepLO EQUB|
00000c50  30 3a 2e 73 65 70 48 49  20 45 51 55 42 30 3a 2e  |0:.sepHI EQUB0:.|
00000c60  69 4c 4f 20 45 51 55 42  30 3a 2e 69 48 49 20 45  |iLO EQUB0:.iHI E|
00000c70  51 55 42 30 0d 00 e1 4a  2e 6a 4c 4f 20 45 51 55  |QUB0...J.jLO EQU|
00000c80  42 30 3a 2e 6a 48 49 20  45 51 55 42 30 3a 2e 73  |B0:.jHI EQUB0:.s|
00000c90  4c 4f 20 45 51 55 42 30  3a 2e 73 48 49 20 45 51  |LO EQUB0:.sHI EQ|
00000ca0  55 42 30 3a 2e 62 79 74  65 20 45 51 55 42 30 3a  |UB0:.byte EQUB0:|
00000cb0  2e 63 6f 75 6e 74 65 72  20 45 51 55 42 30 0d 00  |.counter EQUB0..|
00000cc0  e6 97 2e 73 68 61 70 65  20 4c 44 41 78 4c 4f 3a  |...shape LDAxLO:|
00000cd0  53 54 41 26 37 30 3a 4c  44 41 78 48 49 3a 53 54  |STA&70:LDAxHI:ST|
00000ce0  41 26 37 31 3a 41 53 4c  26 37 30 3a 52 4f 4c 26  |A&71:ASL&70:ROL&|
00000cf0  37 31 3a 41 53 4c 26 37  30 3a 52 4f 4c 26 37 31  |71:ASL&70:ROL&71|
00000d00  3a 4c 44 41 79 4c 4f 3a  53 54 41 26 37 32 3a 4c  |:LDAyLO:STA&72:L|
00000d10  44 41 79 48 49 3a 53 54  41 26 37 33 3a 41 53 4c  |DAyHI:STA&73:ASL|
00000d20  26 37 32 3a 52 4f 4c 26  37 33 3a 41 53 4c 26 37  |&72:ROL&73:ASL&7|
00000d30  32 3a 52 4f 4c 26 37 33  3a 4c 44 41 23 39 3a 4c  |2:ROL&73:LDA#9:L|
00000d40  44 58 23 26 37 30 3a 4c  44 59 23 30 3a 4a 53 52  |DX#&70:LDY#0:JSR|
00000d50  26 46 46 46 31 0d 00 eb  cd 4c 44 41 26 37 34 3a  |&FFF1....LDA&74:|
00000d60  43 4d 50 23 30 3a 42 4e  45 6e 6f 74 30 3a 4c 44  |CMP#0:BNEnot0:LD|
00000d70  58 67 72 6f 75 6e 64 4c  4f 3a 4c 44 59 67 72 6f  |XgroundLO:LDYgro|
00000d80  75 6e 64 48 49 3a 4a 4d  50 65 6e 64 73 68 61 70  |undHI:JMPendshap|
00000d90  65 3a 2e 6e 6f 74 30 20  43 4d 50 23 31 3a 42 4e  |e:.not0 CMP#1:BN|
00000da0  45 6e 6f 74 31 3a 4c 44  58 6f 62 6a 31 4c 4f 3a  |Enot1:LDXobj1LO:|
00000db0  4c 44 59 6f 62 6a 31 48  49 3a 4a 4d 50 65 6e 64  |LDYobj1HI:JMPend|
00000dc0  73 68 61 70 65 3a 2e 6e  6f 74 31 20 43 4d 50 23  |shape:.not1 CMP#|
00000dd0  32 3a 42 4e 45 6e 6f 74  32 3a 4c 44 58 6f 62 6a  |2:BNEnot2:LDXobj|
00000de0  32 4c 4f 3a 4c 44 59 6f  62 6a 32 48 49 3a 4a 4d  |2LO:LDYobj2HI:JM|
00000df0  50 65 6e 64 73 68 61 70  65 3a 2e 6e 6f 74 32 20  |Pendshape:.not2 |
00000e00  43 4d 50 23 33 3a 42 4e  45 65 72 72 6f 72 3a 4c  |CMP#3:BNEerror:L|
00000e10  44 58 6f 62 6a 33 4c 4f  3a 4c 44 59 6f 62 6a 33  |DXobj3LO:LDYobj3|
00000e20  48 49 0d 00 ec 49 2e 65  6e 64 73 68 61 70 65 20  |HI...I.endshape |
00000e30  53 54 58 73 65 70 4c 4f  3a 53 54 59 73 65 70 48  |STXsepLO:STYsepH|
00000e40  49 3a 52 54 53 3a 2e 65  72 72 6f 72 20 42 52 4b  |I:RTS:.error BRK|
00000e50  3a 45 51 55 42 30 3a 45  51 55 53 22 42 61 64 20  |:EQUB0:EQUS"Bad |
00000e60  43 6f 6c 6f 75 72 22 3a  42 52 4b 0d 00 f0 77 2e  |Colour":BRK...w.|
00000e70  67 72 6f 75 6e 64 4c 4f  20 45 51 55 42 30 3a 2e  |groundLO EQUB0:.|
00000e80  67 72 6f 75 6e 64 48 49  20 45 51 55 42 30 3a 2e  |groundHI EQUB0:.|
00000e90  6f 62 6a 31 4c 4f 20 45  51 55 42 30 3a 2e 6f 62  |obj1LO EQUB0:.ob|
00000ea0  6a 31 48 49 20 45 51 55  42 30 3a 2e 6f 62 6a 32  |j1HI EQUB0:.obj2|
00000eb0  4c 4f 20 45 51 55 42 30  3a 2e 6f 62 6a 32 48 49  |LO EQUB0:.obj2HI|
00000ec0  20 45 51 55 42 30 3a 2e  6f 62 6a 33 4c 4f 20 45  | EQUB0:.obj3LO E|
00000ed0  51 55 42 30 3a 2e 6f 62  6a 33 48 49 20 45 51 55  |QUB0:.obj3HI EQU|
00000ee0  42 30 0d 00 fa 05 5d 0d  01 04 05 ed 0d 01 09 20  |B0....]........ |
00000ef0  20 21 77 69 64 74 68 4c  4f 3d 77 69 64 74 68 2b  | !widthLO=width+|
00000f00  68 65 69 67 68 74 2a 36  35 35 33 36 0d 01 0e 0b  |height*65536....|
00000f10  65 79 65 73 3d 39 30 0d  01 18 3b 67 72 6f 75 6e  |eyes=90...;groun|
00000f20  64 3d 65 79 65 73 2f 32  3a 6f 62 6a 31 3d 67 72  |d=eyes/2:obj1=gr|
00000f30  6f 75 6e 64 2d 34 3a 6f  62 6a 32 3d 67 72 6f 75  |ound-4:obj2=grou|
00000f40  6e 64 2d 34 3a 6f 62 6a  33 3d 67 72 6f 75 6e 64  |nd-4:obj3=ground|
00000f50  2d 34 0d 01 22 37 21 67  72 6f 75 6e 64 4c 4f 3d  |-4.."7!groundLO=|
00000f60  67 72 6f 75 6e 64 2b 6f  62 6a 31 2a 36 35 35 33  |ground+obj1*6553|
00000f70  36 3a 21 6f 62 6a 32 4c  4f 3d 6f 62 6a 32 2b 6f  |6:!obj2LO=obj2+o|
00000f80  62 6a 33 2a 36 35 35 33  36 0d 01 2c 0a d6 26 32  |bj3*65536..,..&2|
00000f90  33 30 30 0d 01 36 2f e7  3f 26 37 30 3d 31 20 8c  |300..6/.?&70=1 .|
00000fa0  20 e5 8d 44 40 41 20 8b  20 3f 26 37 31 3d b3 28  | ..D@A . ?&71=.(|
00000fb0  32 29 2d 31 3a d6 72 61  6e 64 6f 6d 3a e5 8d 54  |2)-1:.random:..T|
00000fc0  76 41 0d 01 40 19 20 2a  53 41 2e 20 44 61 74 65  |vA..@. *SA. Date|
00000fd0  32 20 35 38 30 30 20 38  30 30 30 0d 01 4a 0a 20  |2 5800 8000..J. |
00000fe0  e5 8d 44 4a 41 0d ff                              |..DJA..|
00000fe7