%� 5:� 23,1,0;0;0;0;:*LO. TreePIC2
�=&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-2:obj2=ground-4:obj3=ground-5

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

,
�&2300

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

@ *SA. Tree 5800 8000

J
 �DJA
�

00000000  0d 00 04 25 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 54 72 65  |;0;0;0;:*LO. Tre|
00000020  65 50 49 43 32 0d 00 05  0b d3 3d 26 32 32 46 46  |ePIC2.....=&22FF|
00000030  0d 00 0a 0d 77 69 64 74  68 3d 33 32 30 0d 00 14  |....width=320...|
00000040  0e 68 65 69 67 68 74 3d  32 35 36 0d 00 1e 0b 65  |.height=256....e|
00000050  79 65 73 3d 39 30 0d 00  32 25 e3 70 61 73 73 3d  |yes=90..2%.pass=|
00000060  30 20 b8 20 32 20 88 20  32 3a 50 25 3d 26 32 33  |0 . 2 . 2:P%=&23|
00000070  30 30 3a 5b 4f 50 54 70  61 73 73 0d 00 3c de 4c  |00:[OPTpass..<.L|
00000080  44 41 68 65 69 67 68 74  4c 4f 3a 53 54 41 79 4c  |DAheightLO:STAyL|
00000090  4f 3a 4c 44 41 68 65 69  67 68 74 48 49 3a 53 54  |O:LDAheightHI:ST|
000000a0  41 79 48 49 3a 4c 44 41  79 4c 4f 3a 53 45 43 3a  |AyHI:LDAyLO:SEC:|
000000b0  53 42 43 23 31 3a 53 54  41 79 4c 4f 3a 42 43 53  |SBC#1:STAyLO:BCS|
000000c0  63 6f 6e 74 3a 44 45 43  79 48 49 3a 2e 63 6f 6e  |cont:DECyHI:.con|
000000d0  74 20 4c 44 41 23 30 3a  53 54 41 26 38 38 3a 4c  |t LDA#0:STA&88:L|
000000e0  44 41 23 26 33 30 3a 53  54 41 26 38 39 3a 4c 44  |DA#&30:STA&89:LD|
000000f0  41 23 26 32 38 3a 53 54  41 26 37 31 3a 4c 44 59  |A#&28:STA&71:LDY|
00000100  23 30 3a 53 54 59 26 37  30 3a 4c 44 41 23 30 3a  |#0:STY&70:LDA#0:|
00000110  2e 63 6c 65 61 72 6c 6f  6f 70 20 53 54 41 28 26  |.clearloop STA(&|
00000120  37 30 29 2c 59 3a 49 4e  59 3a 42 4e 45 63 6c 65  |70),Y:INY:BNEcle|
00000130  61 72 6c 6f 6f 70 3a 49  4e 43 26 37 31 3a 4c 44  |arloop:INC&71:LD|
00000140  58 26 37 31 3a 43 50 58  23 26 33 30 3a 42 4e 45  |X&71:CPX#&30:BNE|
00000150  63 6c 65 61 72 6c 6f 6f  70 0d 00 41 34 2e 6e 65  |clearloop..A4.ne|
00000160  77 6c 69 6e 65 20 4c 44  41 23 30 3a 53 54 41 78  |wline LDA#0:STAx|
00000170  4c 4f 3a 53 54 41 78 48  49 3a 53 54 41 73 61 6d  |LO:STAxHI:STAsam|
00000180  65 4c 4f 3a 53 54 41 73  61 6d 65 48 49 0d 00 46  |eLO:STAsameHI..F|
00000190  71 4c 44 58 23 30 3a 4c  44 59 23 30 3a 2e 73 61  |qLDX#0:LDY#0:.sa|
000001a0  6d 65 6c 6f 6f 70 20 4a  53 52 77 72 69 74 65 73  |meloop JSRwrites|
000001b0  61 6d 65 3a 49 4e 58 3a  49 4e 43 73 61 6d 65 4c  |ame:INX:INCsameL|
000001c0  4f 3a 42 4e 45 73 61 6d  65 6c 6f 6f 70 3a 49 4e  |O:BNEsameloop:IN|
000001d0  59 3a 49 4e 43 73 61 6d  65 48 49 3a 43 50 59 77  |Y:INCsameHI:CPYw|
000001e0  69 64 74 68 48 49 3a 42  43 43 73 61 6d 65 6c 6f  |idthHI:BCCsamelo|
000001f0  6f 70 3a 42 45 51 73 61  6d 65 6c 6f 6f 70 0d 00  |op:BEQsameloop..|
00000200  50 14 2e 6e 65 77 64 6f  74 20 4a 53 52 73 68 61  |P..newdot JSRsha|
00000210  70 65 0d 00 5a 9d 43 4c  43 3a 4c 44 41 73 65 70  |pe..Z.CLC:LDAsep|
00000220  4c 4f 3a 80 79 4c 4f 3a  80 23 31 3a 41 44 43 73  |LO:.yLO:.#1:ADCs|
00000230  65 70 4c 4f 3a 53 54 41  26 37 30 3a 4c 44 41 73  |epLO:STA&70:LDAs|
00000240  65 70 48 49 3a 80 79 48  49 3a 41 44 43 73 65 70  |epHI:.yHI:ADCsep|
00000250  48 49 3a 43 4c 43 3a 4c  53 52 20 41 3a 53 54 41  |HI:CLC:LSR A:STA|
00000260  26 37 31 3a 52 4f 52 26  37 30 3a 4c 44 41 78 4c  |&71:ROR&70:LDAxL|
00000270  4f 3a 53 45 43 3a 53 42  43 26 37 30 3a 53 54 41  |O:SEC:SBC&70:STA|
00000280  69 4c 4f 3a 4c 44 41 78  48 49 3a 53 42 43 26 37  |iLO:LDAxHI:SBC&7|
00000290  31 3a 42 50 4c 69 4f 4b  3a 4a 4d 50 6e 65 78 74  |1:BPLiOK:JMPnext|
000002a0  64 6f 74 3a 2e 69 4f 4b  20 53 54 41 69 48 49 0d  |dot:.iOK STAiHI.|
000002b0  00 64 86 4c 44 41 69 4c  4f 3a 43 4c 43 3a 41 44  |.d.LDAiLO:CLC:AD|
000002c0  43 73 65 70 4c 4f 3a 53  54 41 6a 4c 4f 3a 4c 44  |CsepLO:STAjLO:LD|
000002d0  41 69 48 49 3a 41 44 43  73 65 70 48 49 3a 53 54  |AiHI:ADCsepHI:ST|
000002e0  41 6a 48 49 3a 43 4d 50  77 69 64 74 68 48 49 3a  |AjHI:CMPwidthHI:|
000002f0  42 43 43 6a 4f 4b 3a 42  4e 45 6e 65 78 74 64 6f  |BCCjOK:BNEnextdo|
00000300  74 42 3a 4c 44 41 6a 4c  4f 3a 43 4d 50 77 69 64  |tB:LDAjLO:CMPwid|
00000310  74 68 4c 4f 3a 42 43 43  6a 4f 4b 3a 2e 6e 65 78  |thLO:BCCjOK:.nex|
00000320  74 64 6f 74 42 20 4a 4d  50 6e 65 78 74 64 6f 74  |tdotB JMPnextdot|
00000330  3a 2e 6a 4f 4b 0d 00 6e  b0 2e 73 61 6d 65 6c 6f  |:.jOK..n..samelo|
00000340  6f 70 32 20 4c 44 41 69  4c 4f 3a 53 54 41 73 61  |op2 LDAiLO:STAsa|
00000350  6d 65 4c 4f 3a 4c 44 41  69 48 49 3a 53 54 41 73  |meLO:LDAiHI:STAs|
00000360  61 6d 65 48 49 3a 4a 53  52 72 65 61 64 73 61 6d  |ameHI:JSRreadsam|
00000370  65 3a 43 50 59 6a 48 49  3a 42 43 43 69 66 41 3a  |e:CPYjHI:BCCifA:|
00000380  42 4e 45 69 66 42 3a 43  50 58 6a 4c 4f 3a 42 43  |BNEifB:CPXjLO:BC|
00000390  43 69 66 41 3a 42 45 51  69 66 41 3a 2e 69 66 42  |CifA:BEQifA:.ifB|
000003a0  20 53 54 58 73 4c 4f 3a  53 54 59 73 48 49 3a 4c  | STXsLO:STYsHI:L|
000003b0  44 58 6a 4c 4f 3a 4c 44  59 6a 48 49 3a 4a 53 52  |DXjLO:LDYjHI:JSR|
000003c0  77 72 69 74 65 73 61 6d  65 3a 4c 44 41 73 4c 4f  |writesame:LDAsLO|
000003d0  3a 53 54 41 6a 4c 4f 3a  4c 44 41 73 48 49 3a 53  |:STAjLO:LDAsHI:S|
000003e0  54 41 6a 48 49 0d 00 73  6e 20 2e 69 66 41 20 53  |TAjHI..sn .ifA S|
000003f0  54 58 69 4c 4f 3a 53 54  59 69 48 49 3a 53 54 58  |TXiLO:STYiHI:STX|
00000400  73 61 6d 65 4c 4f 3a 53  54 59 73 61 6d 65 48 49  |sameLO:STYsameHI|
00000410  3a 4c 44 58 6a 4c 4f 3a  4c 44 59 6a 48 49 3a 4a  |:LDXjLO:LDYjHI:J|
00000420  53 52 77 72 69 74 65 73  61 6d 65 3a 43 50 58 69  |SRwritesame:CPXi|
00000430  4c 4f 3a 42 4e 45 73 61  6d 65 6c 6f 6f 70 32 3a  |LO:BNEsameloop2:|
00000440  43 50 59 69 48 49 3a 42  4e 45 73 61 6d 65 6c 6f  |CPYiHI:BNEsamelo|
00000450  6f 70 32 0d 00 78 78 2e  6e 65 78 74 64 6f 74 20  |op2..xx.nextdot |
00000460  49 4e 43 78 4c 4f 3a 42  4e 45 63 68 65 63 6b 3a  |INCxLO:BNEcheck:|
00000470  49 4e 43 78 48 49 3a 2e  63 68 65 63 6b 20 4c 44  |INCxHI:.check LD|
00000480  41 78 48 49 3a 43 4d 50  77 69 64 74 68 48 49 3a  |AxHI:CMPwidthHI:|
00000490  42 43 43 6c 6f 6f 70 65  6e 64 3a 4c 44 41 78 4c  |BCCloopend:LDAxL|
000004a0  4f 3a 43 4d 50 77 69 64  74 68 4c 4f 3a 42 45 51  |O:CMPwidthLO:BEQ|
000004b0  64 69 73 70 6c 6f 6f 70  3a 2e 6c 6f 6f 70 65 6e  |disploop:.loopen|
000004c0  64 20 4a 4d 50 6e 65 77  64 6f 74 0d 00 82 5c 2e  |d JMPnewdot...\.|
000004d0  64 69 73 70 6c 6f 6f 70  20 4c 44 41 78 4c 4f 3a  |disploop LDAxLO:|
000004e0  53 45 43 3a 53 42 43 23  31 3a 3a 53 54 41 78 4c  |SEC:SBC#1::STAxL|
000004f0  4f 3a 42 43 53 63 68 65  63 6b 32 3a 44 45 43 78  |O:BCScheck2:DECx|
00000500  48 49 3a 2e 63 68 65 63  6b 32 20 4c 44 41 78 48  |HI:.check2 LDAxH|
00000510  49 3a 42 50 4c 63 6f 6c  6f 75 72 3a 4a 4d 50 6e  |I:BPLcolour:JMPn|
00000520  65 78 74 6c 69 6e 65 0d  00 8c e1 2e 63 6f 6c 6f  |extline.....colo|
00000530  75 72 20 53 54 41 73 61  6d 65 48 49 3a 4c 44 41  |ur STAsameHI:LDA|
00000540  78 4c 4f 3a 53 54 41 73  61 6d 65 4c 4f 3a 4a 53  |xLO:STAsameLO:JS|
00000550  52 72 65 61 64 73 61 6d  65 3a 43 50 58 78 4c 4f  |Rreadsame:CPXxLO|
00000560  3a 42 4e 45 73 61 6d 65  3a 43 50 59 78 48 49 3a  |:BNEsame:CPYxHI:|
00000570  42 4e 45 73 61 6d 65 3a  4c 44 41 23 30 3a 53 54  |BNEsame:LDA#0:ST|
00000580  41 26 37 30 3a 52 54 53  3a 2e 72 61 6e 64 6f 6d  |A&70:RTS:.random|
00000590  20 4c 44 58 26 37 31 3a  4a 53 52 77 72 69 74 65  | LDX&71:JSRwrite|
000005a0  63 6f 6c 3a 4a 4d 50 64  69 73 70 3a 2e 73 61 6d  |col:JMPdisp:.sam|
000005b0  65 20 4c 44 41 78 4c 4f  3a 53 54 41 73 61 6d 65  |e LDAxLO:STAsame|
000005c0  4c 4f 3a 4c 44 41 78 48  49 3a 53 54 41 73 61 6d  |LO:LDAxHI:STAsam|
000005d0  65 48 49 3a 4a 53 52 72  65 61 64 73 61 6d 65 3a  |eHI:JSRreadsame:|
000005e0  53 54 58 63 6f 6c 4c 4f  3a 53 54 59 63 6f 6c 48  |STXcolLO:STYcolH|
000005f0  49 3a 4a 53 52 72 65 61  64 63 6f 6c 3a 4a 53 52  |I:JSRreadcol:JSR|
00000600  77 72 69 74 65 63 6f 6c  0d 00 96 a1 2e 64 69 73  |writecol.....dis|
00000610  70 20 54 58 41 3a 43 4c  43 3a 42 45 51 73 74 6f  |p TXA:CLC:BEQsto|
00000620  72 65 3a 53 45 43 3a 2e  73 74 6f 72 65 20 52 4f  |re:SEC:.store RO|
00000630  4c 62 79 74 65 3a 49 4e  43 63 6f 75 6e 74 65 72  |Lbyte:INCcounter|
00000640  3a 4c 44 41 63 6f 75 6e  74 65 72 3a 43 4d 50 23  |:LDAcounter:CMP#|
00000650  38 3a 42 4e 45 64 69 73  70 6c 6f 6f 70 3a 4c 44  |8:BNEdisploop:LD|
00000660  59 23 30 3a 53 54 59 63  6f 75 6e 74 65 72 3a 49  |Y#0:STYcounter:I|
00000670  4e 43 26 38 38 3a 42 4e  45 73 61 76 65 3a 49 4e  |NC&88:BNEsave:IN|
00000680  43 26 38 39 3a 2e 73 61  76 65 20 4c 44 41 62 79  |C&89:.save LDAby|
00000690  74 65 3a 53 54 41 28 26  38 38 29 2c 59 3a 4a 4d  |te:STA(&88),Y:JM|
000006a0  50 64 69 73 70 6c 6f 6f  70 0d 00 aa 65 2e 6e 65  |Pdisploop...e.ne|
000006b0  78 74 6c 69 6e 65 20 4c  44 41 79 4c 4f 3a 53 45  |xtline LDAyLO:SE|
000006c0  43 3a 53 42 43 23 31 3a  53 54 41 79 4c 4f 3a 42  |C:SBC#1:STAyLO:B|
000006d0  43 53 61 67 61 69 6e 3a  44 45 43 79 48 49 3a 42  |CSagain:DECyHI:B|
000006e0  50 4c 61 67 61 69 6e 3a  4c 44 41 23 31 3a 53 54  |PLagain:LDA#1:ST|
000006f0  41 26 37 30 3a 4a 4d 50  73 68 6f 77 3a 2e 61 67  |A&70:JMPshow:.ag|
00000700  61 69 6e 20 4a 4d 50 6e  65 77 6c 69 6e 65 0d 00  |ain JMPnewline..|
00000710  b4 90 2e 77 72 69 74 65  73 61 6d 65 20 4c 44 41  |...writesame LDA|
00000720  73 61 6d 65 4c 4f 3a 53  54 41 26 38 30 3a 4c 44  |sameLO:STA&80:LD|
00000730  41 73 61 6d 65 48 49 3a  53 54 41 26 38 31 3a 41  |AsameHI:STA&81:A|
00000740  53 4c 26 38 30 3a 52 4f  4c 26 38 31 3a 43 4c 43  |SL&80:ROL&81:CLC|
00000750  3a 4c 44 41 23 26 32 38  3a 41 44 43 26 38 31 3a  |:LDA#&28:ADC&81:|
00000760  53 54 41 26 38 31 3a 54  59 41 3a 50 48 41 3a 4c  |STA&81:TYA:PHA:L|
00000770  44 59 23 31 3a 53 54 41  28 26 38 30 29 2c 59 3a  |DY#1:STA(&80),Y:|
00000780  44 45 59 3a 54 58 41 3a  53 54 41 28 26 38 30 29  |DEY:TXA:STA(&80)|
00000790  2c 59 3a 50 4c 41 3a 54  41 59 3a 52 54 53 0d 00  |,Y:PLA:TAY:RTS..|
000007a0  be 83 2e 72 65 61 64 73  61 6d 65 20 4c 44 41 73  |...readsame LDAs|
000007b0  61 6d 65 4c 4f 3a 53 54  41 26 38 30 3a 4c 44 41  |ameLO:STA&80:LDA|
000007c0  73 61 6d 65 48 49 3a 53  54 41 26 38 31 3a 41 53  |sameHI:STA&81:AS|
000007d0  4c 26 38 30 3a 52 4f 4c  26 38 31 3a 43 4c 43 3a  |L&80:ROL&81:CLC:|
000007e0  4c 44 41 23 26 32 38 3a  41 44 43 26 38 31 3a 53  |LDA#&28:ADC&81:S|
000007f0  54 41 26 38 31 3a 4c 44  59 23 30 3a 4c 44 41 28  |TA&81:LDY#0:LDA(|
00000800  26 38 30 29 2c 59 3a 54  41 58 3a 49 4e 59 3a 4c  |&80),Y:TAX:INY:L|
00000810  44 41 28 26 38 30 29 2c  59 3a 54 41 59 3a 52 54  |DA(&80),Y:TAY:RT|
00000820  53 0d 00 c8 5c 2e 77 72  69 74 65 63 6f 6c 20 4c  |S...\.writecol L|
00000830  44 41 78 4c 4f 3a 53 54  41 26 38 30 3a 4c 44 41  |DAxLO:STA&80:LDA|
00000840  78 48 49 3a 43 4c 43 3a  41 44 43 23 26 32 44 3a  |xHI:CLC:ADC#&2D:|
00000850  53 54 41 26 38 31 3a 53  54 59 26 38 33 3a 54 58  |STA&81:STY&83:TX|
00000860  41 3a 4c 44 59 23 30 3a  53 54 41 28 26 38 30 29  |A:LDY#0:STA(&80)|
00000870  2c 59 3a 4c 44 59 26 38  33 3a 52 54 53 0d 00 d2  |,Y:LDY&83:RTS...|
00000880  5f 2e 72 65 61 64 63 6f  6c 20 4c 44 41 63 6f 6c  |_.readcol LDAcol|
00000890  4c 4f 3a 53 54 41 26 38  30 3a 4c 44 41 63 6f 6c  |LO:STA&80:LDAcol|
000008a0  48 49 3a 43 4c 43 3a 41  44 43 23 26 32 44 3a 53  |HI:CLC:ADC#&2D:S|
000008b0  54 41 26 38 31 3a 53 54  59 26 38 33 3a 4c 44 59  |TA&81:STY&83:LDY|
000008c0  23 30 3a 4c 44 41 28 26  38 30 29 2c 59 3a 54 41  |#0:LDA(&80),Y:TA|
000008d0  58 3a 4c 44 59 26 38 33  3a 52 54 53 0d 00 d4 aa  |X:LDY&83:RTS....|
000008e0  20 2e 73 68 6f 77 20 4c  44 41 23 32 32 3a 4a 53  | .show LDA#22:JS|
000008f0  52 26 46 46 45 45 3a 4c  44 41 23 34 3a 4a 53 52  |R&FFEE:LDA#4:JSR|
00000900  26 46 46 45 45 3a 4c 44  41 68 65 69 67 68 74 48  |&FFEE:LDAheightH|
00000910  49 3a 53 54 41 79 48 49  3a 4c 44 58 68 65 69 67  |I:STAyHI:LDXheig|
00000920  68 74 4c 4f 3a 44 45 58  3a 53 54 58 79 4c 4f 3a  |htLO:DEX:STXyLO:|
00000930  43 50 58 23 26 46 46 3a  42 4e 45 63 6f 6e 74 32  |CPX#&FF:BNEcont2|
00000940  3a 44 45 43 79 48 49 3a  2e 63 6f 6e 74 32 20 41  |:DECyHI:.cont2 A|
00000950  53 4c 79 4c 4f 3a 52 4f  4c 79 48 49 3a 41 53 4c  |SLyLO:ROLyHI:ASL|
00000960  79 4c 4f 3a 52 4f 4c 79  48 49 3a 4c 44 59 23 30  |yLO:ROLyHI:LDY#0|
00000970  3a 53 54 59 26 38 38 3a  4c 44 41 23 26 33 30 3a  |:STY&88:LDA#&30:|
00000980  53 54 41 26 38 39 0d 00  d5 70 2e 70 6c 6f 74 6c  |STA&89...p.plotl|
00000990  69 6e 65 20 4c 44 41 77  69 64 74 68 48 49 3a 53  |ine LDAwidthHI:S|
000009a0  54 41 78 48 49 3a 4c 44  58 77 69 64 74 68 4c 4f  |TAxHI:LDXwidthLO|
000009b0  3a 44 45 58 3a 53 54 58  78 4c 4f 3a 43 50 58 23  |:DEX:STXxLO:CPX#|
000009c0  26 46 46 3a 42 4e 45 63  6f 6e 74 33 3a 44 45 43  |&FF:BNEcont3:DEC|
000009d0  78 48 49 3a 2e 63 6f 6e  74 33 20 41 53 4c 78 4c  |xHI:.cont3 ASLxL|
000009e0  4f 3a 52 4f 4c 78 48 49  3a 41 53 4c 78 4c 4f 3a  |O:ROLxHI:ASLxLO:|
000009f0  52 4f 4c 78 48 49 0d 00  d6 bf 20 2e 70 6c 6f 74  |ROLxHI.... .plot|
00000a00  6c 6f 6f 70 20 4c 44 41  28 26 38 38 29 2c 59 3a  |loop LDA(&88),Y:|
00000a10  41 53 4c 20 41 3a 53 54  41 28 26 38 38 29 2c 59  |ASL A:STA(&88),Y|
00000a20  3a 42 43 43 6e 65 78 74  70 6c 6f 74 3a 4c 44 58  |:BCCnextplot:LDX|
00000a30  23 34 3a 2e 64 72 61 77  20 4c 44 41 23 32 35 3a  |#4:.draw LDA#25:|
00000a40  4a 53 52 26 46 46 45 45  3a 54 58 41 3a 4a 53 52  |JSR&FFEE:TXA:JSR|
00000a50  26 46 46 45 45 3a 4c 44  41 78 4c 4f 3a 4a 53 52  |&FFEE:LDAxLO:JSR|
00000a60  26 46 46 45 45 3a 4c 44  41 78 48 49 3a 4a 53 52  |&FFEE:LDAxHI:JSR|
00000a70  26 46 46 45 45 3a 4c 44  41 79 4c 4f 3a 4a 53 52  |&FFEE:LDAyLO:JSR|
00000a80  26 46 46 45 45 3a 4c 44  41 79 48 49 3a 4a 53 52  |&FFEE:LDAyHI:JSR|
00000a90  26 46 46 45 45 3a 43 50  58 23 35 3a 42 45 51 6e  |&FFEE:CPX#5:BEQn|
00000aa0  65 78 74 70 6c 6f 74 3a  4c 44 58 23 35 3a 4a 4d  |extplot:LDX#5:JM|
00000ab0  50 64 72 61 77 0d 00 d8  ed 20 2e 6e 65 78 74 70  |Pdraw.... .nextp|
00000ac0  6c 6f 74 20 49 4e 43 63  6f 75 6e 74 65 72 3a 4c  |lot INCcounter:L|
00000ad0  44 41 63 6f 75 6e 74 65  72 3a 43 4d 50 23 38 3a  |DAcounter:CMP#8:|
00000ae0  42 4e 45 6e 65 78 74 78  3a 4c 44 41 23 30 3a 53  |BNEnextx:LDA#0:S|
00000af0  54 41 63 6f 75 6e 74 65  72 3a 49 4e 43 26 38 38  |TAcounter:INC&88|
00000b00  3a 42 4e 45 6e 65 78 74  78 3a 49 4e 43 26 38 39  |:BNEnextx:INC&89|
00000b10  3a 2e 6e 65 78 74 78 20  4c 44 41 78 4c 4f 3a 53  |:.nextx LDAxLO:S|
00000b20  45 43 3a 53 42 43 23 34  3a 53 54 41 78 4c 4f 3a  |EC:SBC#4:STAxLO:|
00000b30  42 43 53 70 6c 6f 74 6c  6f 6f 70 3a 44 45 43 78  |BCSplotloop:DECx|
00000b40  48 49 3a 42 50 4c 70 6c  6f 74 6c 6f 6f 70 3a 4c  |HI:BPLplotloop:L|
00000b50  44 41 79 4c 4f 3a 53 45  43 3a 53 42 43 23 34 3a  |DAyLO:SEC:SBC#4:|
00000b60  53 54 41 79 4c 4f 3a 42  43 53 70 6c 6f 74 6c 69  |STAyLO:BCSplotli|
00000b70  6e 65 32 3a 44 45 43 79  48 49 3a 42 50 4c 70 6c  |ne2:DECyHI:BPLpl|
00000b80  6f 74 6c 69 6e 65 32 3a  52 54 53 3a 2e 70 6c 6f  |otline2:RTS:.plo|
00000b90  74 6c 69 6e 65 32 20 4a  4d 50 70 6c 6f 74 6c 69  |tline2 JMPplotli|
00000ba0  6e 65 0d 00 dc d3 2e 78  4c 4f 20 45 51 55 42 30  |ne.....xLO EQUB0|
00000bb0  3a 2e 78 48 49 20 45 51  55 42 30 3a 2e 79 4c 4f  |:.xHI EQUB0:.yLO|
00000bc0  20 45 51 55 42 30 3a 2e  79 48 49 20 45 51 55 42  | EQUB0:.yHI EQUB|
00000bd0  30 3a 2e 73 61 6d 65 4c  4f 20 45 51 55 42 30 3a  |0:.sameLO EQUB0:|
00000be0  2e 73 61 6d 65 48 49 20  45 51 55 42 30 3a 2e 63  |.sameHI EQUB0:.c|
00000bf0  6f 6c 4c 4f 20 45 51 55  42 30 3a 2e 63 6f 6c 48  |olLO EQUB0:.colH|
00000c00  49 20 45 51 55 42 30 3a  2e 77 69 64 74 68 4c 4f  |I EQUB0:.widthLO|
00000c10  20 45 51 55 42 30 3a 2e  77 69 64 74 68 48 49 20  | EQUB0:.widthHI |
00000c20  45 51 55 42 30 3a 2e 68  65 69 67 68 74 4c 4f 20  |EQUB0:.heightLO |
00000c30  45 51 55 42 30 3a 2e 68  65 69 67 68 74 48 49 20  |EQUB0:.heightHI |
00000c40  45 51 55 42 30 3a 2e 73  65 70 4c 4f 20 45 51 55  |EQUB0:.sepLO EQU|
00000c50  42 30 3a 2e 73 65 70 48  49 20 45 51 55 42 30 3a  |B0:.sepHI EQUB0:|
00000c60  2e 69 4c 4f 20 45 51 55  42 30 3a 2e 69 48 49 20  |.iLO EQUB0:.iHI |
00000c70  45 51 55 42 30 0d 00 e1  4a 2e 6a 4c 4f 20 45 51  |EQUB0...J.jLO EQ|
00000c80  55 42 30 3a 2e 6a 48 49  20 45 51 55 42 30 3a 2e  |UB0:.jHI EQUB0:.|
00000c90  73 4c 4f 20 45 51 55 42  30 3a 2e 73 48 49 20 45  |sLO EQUB0:.sHI E|
00000ca0  51 55 42 30 3a 2e 62 79  74 65 20 45 51 55 42 30  |QUB0:.byte EQUB0|
00000cb0  3a 2e 63 6f 75 6e 74 65  72 20 45 51 55 42 30 0d  |:.counter EQUB0.|
00000cc0  00 e6 97 2e 73 68 61 70  65 20 4c 44 41 78 4c 4f  |....shape LDAxLO|
00000cd0  3a 53 54 41 26 37 30 3a  4c 44 41 78 48 49 3a 53  |:STA&70:LDAxHI:S|
00000ce0  54 41 26 37 31 3a 41 53  4c 26 37 30 3a 52 4f 4c  |TA&71:ASL&70:ROL|
00000cf0  26 37 31 3a 41 53 4c 26  37 30 3a 52 4f 4c 26 37  |&71:ASL&70:ROL&7|
00000d00  31 3a 4c 44 41 79 4c 4f  3a 53 54 41 26 37 32 3a  |1:LDAyLO:STA&72:|
00000d10  4c 44 41 79 48 49 3a 53  54 41 26 37 33 3a 41 53  |LDAyHI:STA&73:AS|
00000d20  4c 26 37 32 3a 52 4f 4c  26 37 33 3a 41 53 4c 26  |L&72:ROL&73:ASL&|
00000d30  37 32 3a 52 4f 4c 26 37  33 3a 4c 44 41 23 39 3a  |72:ROL&73:LDA#9:|
00000d40  4c 44 58 23 26 37 30 3a  4c 44 59 23 30 3a 4a 53  |LDX#&70:LDY#0:JS|
00000d50  52 26 46 46 46 31 0d 00  eb cd 4c 44 41 26 37 34  |R&FFF1....LDA&74|
00000d60  3a 43 4d 50 23 30 3a 42  4e 45 6e 6f 74 30 3a 4c  |:CMP#0:BNEnot0:L|
00000d70  44 58 67 72 6f 75 6e 64  4c 4f 3a 4c 44 59 67 72  |DXgroundLO:LDYgr|
00000d80  6f 75 6e 64 48 49 3a 4a  4d 50 65 6e 64 73 68 61  |oundHI:JMPendsha|
00000d90  70 65 3a 2e 6e 6f 74 30  20 43 4d 50 23 31 3a 42  |pe:.not0 CMP#1:B|
00000da0  4e 45 6e 6f 74 31 3a 4c  44 58 6f 62 6a 31 4c 4f  |NEnot1:LDXobj1LO|
00000db0  3a 4c 44 59 6f 62 6a 31  48 49 3a 4a 4d 50 65 6e  |:LDYobj1HI:JMPen|
00000dc0  64 73 68 61 70 65 3a 2e  6e 6f 74 31 20 43 4d 50  |dshape:.not1 CMP|
00000dd0  23 32 3a 42 4e 45 6e 6f  74 32 3a 4c 44 58 6f 62  |#2:BNEnot2:LDXob|
00000de0  6a 32 4c 4f 3a 4c 44 59  6f 62 6a 32 48 49 3a 4a  |j2LO:LDYobj2HI:J|
00000df0  4d 50 65 6e 64 73 68 61  70 65 3a 2e 6e 6f 74 32  |MPendshape:.not2|
00000e00  20 43 4d 50 23 33 3a 42  4e 45 65 72 72 6f 72 3a  | CMP#3:BNEerror:|
00000e10  4c 44 58 6f 62 6a 33 4c  4f 3a 4c 44 59 6f 62 6a  |LDXobj3LO:LDYobj|
00000e20  33 48 49 0d 00 ec 49 2e  65 6e 64 73 68 61 70 65  |3HI...I.endshape|
00000e30  20 53 54 58 73 65 70 4c  4f 3a 53 54 59 73 65 70  | STXsepLO:STYsep|
00000e40  48 49 3a 52 54 53 3a 2e  65 72 72 6f 72 20 42 52  |HI:RTS:.error BR|
00000e50  4b 3a 45 51 55 42 30 3a  45 51 55 53 22 42 61 64  |K:EQUB0:EQUS"Bad|
00000e60  20 43 6f 6c 6f 75 72 22  3a 42 52 4b 0d 00 f0 77  | Colour":BRK...w|
00000e70  2e 67 72 6f 75 6e 64 4c  4f 20 45 51 55 42 30 3a  |.groundLO EQUB0:|
00000e80  2e 67 72 6f 75 6e 64 48  49 20 45 51 55 42 30 3a  |.groundHI EQUB0:|
00000e90  2e 6f 62 6a 31 4c 4f 20  45 51 55 42 30 3a 2e 6f  |.obj1LO EQUB0:.o|
00000ea0  62 6a 31 48 49 20 45 51  55 42 30 3a 2e 6f 62 6a  |bj1HI EQUB0:.obj|
00000eb0  32 4c 4f 20 45 51 55 42  30 3a 2e 6f 62 6a 32 48  |2LO EQUB0:.obj2H|
00000ec0  49 20 45 51 55 42 30 3a  2e 6f 62 6a 33 4c 4f 20  |I EQUB0:.obj3LO |
00000ed0  45 51 55 42 30 3a 2e 6f  62 6a 33 48 49 20 45 51  |EQUB0:.obj3HI EQ|
00000ee0  55 42 30 0d 00 fa 05 5d  0d 01 04 05 ed 0d 01 09  |UB0....]........|
00000ef0  20 20 21 77 69 64 74 68  4c 4f 3d 77 69 64 74 68  |  !widthLO=width|
00000f00  2b 68 65 69 67 68 74 2a  36 35 35 33 36 0d 01 0e  |+height*65536...|
00000f10  0b 65 79 65 73 3d 39 30  0d 01 18 3b 67 72 6f 75  |.eyes=90...;grou|
00000f20  6e 64 3d 65 79 65 73 2f  32 3a 6f 62 6a 31 3d 67  |nd=eyes/2:obj1=g|
00000f30  72 6f 75 6e 64 2d 32 3a  6f 62 6a 32 3d 67 72 6f  |round-2:obj2=gro|
00000f40  75 6e 64 2d 34 3a 6f 62  6a 33 3d 67 72 6f 75 6e  |und-4:obj3=groun|
00000f50  64 2d 35 0d 01 22 37 21  67 72 6f 75 6e 64 4c 4f  |d-5.."7!groundLO|
00000f60  3d 67 72 6f 75 6e 64 2b  6f 62 6a 31 2a 36 35 35  |=ground+obj1*655|
00000f70  33 36 3a 21 6f 62 6a 32  4c 4f 3d 6f 62 6a 32 2b  |36:!obj2LO=obj2+|
00000f80  6f 62 6a 33 2a 36 35 35  33 36 0d 01 2c 0a d6 26  |obj3*65536..,..&|
00000f90  32 33 30 30 0d 01 36 2f  e7 3f 26 37 30 3d 31 20  |2300..6/.?&70=1 |
00000fa0  8c 20 e5 8d 44 40 41 20  8b 20 3f 26 37 31 3d b3  |. ..D@A . ?&71=.|
00000fb0  28 32 29 2d 31 3a d6 72  61 6e 64 6f 6d 3a e5 8d  |(2)-1:.random:..|
00000fc0  54 76 41 0d 01 40 18 20  2a 53 41 2e 20 54 72 65  |TvA..@. *SA. Tre|
00000fd0  65 20 35 38 30 30 20 38  30 30 30 0d 01 4a 0a 20  |e 5800 8000..J. |
00000fe0  e5 8d 44 4a 41 0d ff                              |..DJA..|
00000fe7