�=&3FFF


width=640
height=256
eyes=180
2.�pass=4 � 6 � 2:P%=&1800:O%=&4000:[OPTpass
<�LDAheightLO:STAyLO:LDAheightHI:STAyHI:LDAyLO:SEC:SBC#1:STAyLO:BCScont:DECyHI:.cont LDA#&80:STA&88:LDA#&2D:STA&89:LDA#&20: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
�a.nextline LDAyLO:SEC:SBC#1:STAyLO:BCSagain:DECyHI:BPLagain:LDA#1:STA&70:RTS:.again JMPnewline
��.writesame LDAsameLO:STA&80:LDAsameHI:STA&81:ASL&80:ROL&81:CLC:LDA#&20: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#&20:ADC&81:STA&81:LDY#0:LDA(&80),Y:TAX:INY:LDA(&80),Y:TAY:RTS
�\.writecol LDAxLO:STA&80:LDAxHI:CLC:ADC#&28:STA&81:STY&83:TXA:LDY#0:STA(&80),Y:LDY&83:RTS
�_.readcol LDAcolLO:STA&80:LDAcolHI:CLC:ADC#&28:STA&81:STY&83:LDY#0:LDA(&80),Y:TAX:LDY&83:RTS
Ԭ .show LDXheightLO:DEX:STXheightLO:CPX#&FF:BNEcont2:DECheightHI:.cont2 ASLheightLO:ROLheightHI:ASLheightLO:ROLheightHI:LDY#0:STYyHI:STYyLO:LDA#&80:STA&88:LDA#&7D:STA&89
�b.plotline LDAwidthHI:STAxHI:LDXwidthLO:DEX:STXxLO:CPX#&FF:BNEcont3:DECxHI:.cont3 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:LDX&88:DEX:STX&88:CPX#&FF:BNEnextx:DEC&89:.nextx LDAxLO:SEC:SBC#2:STAxLO:BCSplotloop:DECxHI:BPLplotloop
ڌLDAyLO:CLC:ADC#4:STAyLO:BCCcheckend:INCyHI:.checkend CMPheightLO:BNEplotline2:LDAyHI:CMPheightHI:BNEplotline2: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:LDAyLO:STA&72:LDAyHI:STA&73:ASL&72:ROL&73:ASL&72:ROL&73:LDA#9:LDX#&70:LDY#0:JSR&FFF1
�LDA&74:ASL A:TAY:LDA#(groundLO �256):STA&8B:LDA#(groundLO �256):STA&8C:LDA(&8B),Y:STAsepLO:INY:LDA(&8B),Y:STAsepHI:CPY#&FE:BEQerror:RTS
�-.error BRK:EQUB0:EQUS"Outside window":BRK
�A.groundLO EQUB0:.groundHI EQUB0:EQUD0:EQUD0:EQUD0:EQUW0:EQUB0
�]

�

	( !(widthLO+O%-P%)=width+height*65536

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

"v�object=0 � 15:� sep:?(groundLO+O%-P%+object*2)=(eyes/2-sep) �256:?(groundLO+O%-P%+object*2+1)=(eyes/2-sep) �256:�

$v �"SAVE AUTOcode 4000 "+�~(O%):�"KEY0DELETE 5,296|MHIMEM=&17FF|Mrandom="+�(random)+"|Mshow="+�(show)+"|MGOTO298|M"

% � 21:*FX 138,0,128

' �

(/ � 0,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18

* � 6:*LO. AUTOcode 1800

+$� 2:� 23,1,0;0;0;0;:*LO. CubePIC

,
�&1800

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

; *SA. TEMP 2D80 7D80

< � 0:*LO. TEMP

=
 �show

@ *SA. Cube 3000 8000

J
 �DJA
�

00000000  0d 00 05 0b d3 3d 26 33  46 46 46 0d 00 0a 0d 77  |.....=&3FFF....w|
00000010  69 64 74 68 3d 36 34 30  0d 00 14 0e 68 65 69 67  |idth=640....heig|
00000020  68 74 3d 32 35 36 0d 00  1e 0c 65 79 65 73 3d 31  |ht=256....eyes=1|
00000030  38 30 0d 00 32 2e e3 70  61 73 73 3d 34 20 b8 20  |80..2..pass=4 . |
00000040  36 20 88 20 32 3a 50 25  3d 26 31 38 30 30 3a 4f  |6 . 2:P%=&1800:O|
00000050  25 3d 26 34 30 30 30 3a  5b 4f 50 54 70 61 73 73  |%=&4000:[OPTpass|
00000060  0d 00 3c e0 4c 44 41 68  65 69 67 68 74 4c 4f 3a  |..<.LDAheightLO:|
00000070  53 54 41 79 4c 4f 3a 4c  44 41 68 65 69 67 68 74  |STAyLO:LDAheight|
00000080  48 49 3a 53 54 41 79 48  49 3a 4c 44 41 79 4c 4f  |HI:STAyHI:LDAyLO|
00000090  3a 53 45 43 3a 53 42 43  23 31 3a 53 54 41 79 4c  |:SEC:SBC#1:STAyL|
000000a0  4f 3a 42 43 53 63 6f 6e  74 3a 44 45 43 79 48 49  |O:BCScont:DECyHI|
000000b0  3a 2e 63 6f 6e 74 20 4c  44 41 23 26 38 30 3a 53  |:.cont LDA#&80:S|
000000c0  54 41 26 38 38 3a 4c 44  41 23 26 32 44 3a 53 54  |TA&88:LDA#&2D:ST|
000000d0  41 26 38 39 3a 4c 44 41  23 26 32 30 3a 53 54 41  |A&89:LDA#&20:STA|
000000e0  26 37 31 3a 4c 44 59 23  30 3a 53 54 59 26 37 30  |&71:LDY#0:STY&70|
000000f0  3a 4c 44 41 23 30 3a 2e  63 6c 65 61 72 6c 6f 6f  |:LDA#0:.clearloo|
00000100  70 20 53 54 41 28 26 37  30 29 2c 59 3a 49 4e 59  |p STA(&70),Y:INY|
00000110  3a 42 4e 45 63 6c 65 61  72 6c 6f 6f 70 3a 49 4e  |:BNEclearloop:IN|
00000120  43 26 37 31 3a 4c 44 58  26 37 31 3a 43 50 58 23  |C&71:LDX&71:CPX#|
00000130  26 33 30 3a 42 4e 45 63  6c 65 61 72 6c 6f 6f 70  |&30:BNEclearloop|
00000140  0d 00 41 34 2e 6e 65 77  6c 69 6e 65 20 4c 44 41  |..A4.newline LDA|
00000150  23 30 3a 53 54 41 78 4c  4f 3a 53 54 41 78 48 49  |#0:STAxLO:STAxHI|
00000160  3a 53 54 41 73 61 6d 65  4c 4f 3a 53 54 41 73 61  |:STAsameLO:STAsa|
00000170  6d 65 48 49 0d 00 46 71  4c 44 58 23 30 3a 4c 44  |meHI..FqLDX#0:LD|
00000180  59 23 30 3a 2e 73 61 6d  65 6c 6f 6f 70 20 4a 53  |Y#0:.sameloop JS|
00000190  52 77 72 69 74 65 73 61  6d 65 3a 49 4e 58 3a 49  |Rwritesame:INX:I|
000001a0  4e 43 73 61 6d 65 4c 4f  3a 42 4e 45 73 61 6d 65  |NCsameLO:BNEsame|
000001b0  6c 6f 6f 70 3a 49 4e 59  3a 49 4e 43 73 61 6d 65  |loop:INY:INCsame|
000001c0  48 49 3a 43 50 59 77 69  64 74 68 48 49 3a 42 43  |HI:CPYwidthHI:BC|
000001d0  43 73 61 6d 65 6c 6f 6f  70 3a 42 45 51 73 61 6d  |Csameloop:BEQsam|
000001e0  65 6c 6f 6f 70 0d 00 50  14 2e 6e 65 77 64 6f 74  |eloop..P..newdot|
000001f0  20 4a 53 52 73 68 61 70  65 0d 00 5a 9d 43 4c 43  | JSRshape..Z.CLC|
00000200  3a 4c 44 41 73 65 70 4c  4f 3a 80 79 4c 4f 3a 80  |:LDAsepLO:.yLO:.|
00000210  23 31 3a 41 44 43 73 65  70 4c 4f 3a 53 54 41 26  |#1:ADCsepLO:STA&|
00000220  37 30 3a 4c 44 41 73 65  70 48 49 3a 80 79 48 49  |70:LDAsepHI:.yHI|
00000230  3a 41 44 43 73 65 70 48  49 3a 43 4c 43 3a 4c 53  |:ADCsepHI:CLC:LS|
00000240  52 20 41 3a 53 54 41 26  37 31 3a 52 4f 52 26 37  |R A:STA&71:ROR&7|
00000250  30 3a 4c 44 41 78 4c 4f  3a 53 45 43 3a 53 42 43  |0:LDAxLO:SEC:SBC|
00000260  26 37 30 3a 53 54 41 69  4c 4f 3a 4c 44 41 78 48  |&70:STAiLO:LDAxH|
00000270  49 3a 53 42 43 26 37 31  3a 42 50 4c 69 4f 4b 3a  |I:SBC&71:BPLiOK:|
00000280  4a 4d 50 6e 65 78 74 64  6f 74 3a 2e 69 4f 4b 20  |JMPnextdot:.iOK |
00000290  53 54 41 69 48 49 0d 00  64 86 4c 44 41 69 4c 4f  |STAiHI..d.LDAiLO|
000002a0  3a 43 4c 43 3a 41 44 43  73 65 70 4c 4f 3a 53 54  |:CLC:ADCsepLO:ST|
000002b0  41 6a 4c 4f 3a 4c 44 41  69 48 49 3a 41 44 43 73  |AjLO:LDAiHI:ADCs|
000002c0  65 70 48 49 3a 53 54 41  6a 48 49 3a 43 4d 50 77  |epHI:STAjHI:CMPw|
000002d0  69 64 74 68 48 49 3a 42  43 43 6a 4f 4b 3a 42 4e  |idthHI:BCCjOK:BN|
000002e0  45 6e 65 78 74 64 6f 74  42 3a 4c 44 41 6a 4c 4f  |EnextdotB:LDAjLO|
000002f0  3a 43 4d 50 77 69 64 74  68 4c 4f 3a 42 43 43 6a  |:CMPwidthLO:BCCj|
00000300  4f 4b 3a 2e 6e 65 78 74  64 6f 74 42 20 4a 4d 50  |OK:.nextdotB JMP|
00000310  6e 65 78 74 64 6f 74 3a  2e 6a 4f 4b 0d 00 6e b0  |nextdot:.jOK..n.|
00000320  2e 73 61 6d 65 6c 6f 6f  70 32 20 4c 44 41 69 4c  |.sameloop2 LDAiL|
00000330  4f 3a 53 54 41 73 61 6d  65 4c 4f 3a 4c 44 41 69  |O:STAsameLO:LDAi|
00000340  48 49 3a 53 54 41 73 61  6d 65 48 49 3a 4a 53 52  |HI:STAsameHI:JSR|
00000350  72 65 61 64 73 61 6d 65  3a 43 50 59 6a 48 49 3a  |readsame:CPYjHI:|
00000360  42 43 43 69 66 41 3a 42  4e 45 69 66 42 3a 43 50  |BCCifA:BNEifB:CP|
00000370  58 6a 4c 4f 3a 42 43 43  69 66 41 3a 42 45 51 69  |XjLO:BCCifA:BEQi|
00000380  66 41 3a 2e 69 66 42 20  53 54 58 73 4c 4f 3a 53  |fA:.ifB STXsLO:S|
00000390  54 59 73 48 49 3a 4c 44  58 6a 4c 4f 3a 4c 44 59  |TYsHI:LDXjLO:LDY|
000003a0  6a 48 49 3a 4a 53 52 77  72 69 74 65 73 61 6d 65  |jHI:JSRwritesame|
000003b0  3a 4c 44 41 73 4c 4f 3a  53 54 41 6a 4c 4f 3a 4c  |:LDAsLO:STAjLO:L|
000003c0  44 41 73 48 49 3a 53 54  41 6a 48 49 0d 00 73 6e  |DAsHI:STAjHI..sn|
000003d0  20 2e 69 66 41 20 53 54  58 69 4c 4f 3a 53 54 59  | .ifA STXiLO:STY|
000003e0  69 48 49 3a 53 54 58 73  61 6d 65 4c 4f 3a 53 54  |iHI:STXsameLO:ST|
000003f0  59 73 61 6d 65 48 49 3a  4c 44 58 6a 4c 4f 3a 4c  |YsameHI:LDXjLO:L|
00000400  44 59 6a 48 49 3a 4a 53  52 77 72 69 74 65 73 61  |DYjHI:JSRwritesa|
00000410  6d 65 3a 43 50 58 69 4c  4f 3a 42 4e 45 73 61 6d  |me:CPXiLO:BNEsam|
00000420  65 6c 6f 6f 70 32 3a 43  50 59 69 48 49 3a 42 4e  |eloop2:CPYiHI:BN|
00000430  45 73 61 6d 65 6c 6f 6f  70 32 0d 00 78 78 2e 6e  |Esameloop2..xx.n|
00000440  65 78 74 64 6f 74 20 49  4e 43 78 4c 4f 3a 42 4e  |extdot INCxLO:BN|
00000450  45 63 68 65 63 6b 3a 49  4e 43 78 48 49 3a 2e 63  |Echeck:INCxHI:.c|
00000460  68 65 63 6b 20 4c 44 41  78 48 49 3a 43 4d 50 77  |heck LDAxHI:CMPw|
00000470  69 64 74 68 48 49 3a 42  43 43 6c 6f 6f 70 65 6e  |idthHI:BCCloopen|
00000480  64 3a 4c 44 41 78 4c 4f  3a 43 4d 50 77 69 64 74  |d:LDAxLO:CMPwidt|
00000490  68 4c 4f 3a 42 45 51 64  69 73 70 6c 6f 6f 70 3a  |hLO:BEQdisploop:|
000004a0  2e 6c 6f 6f 70 65 6e 64  20 4a 4d 50 6e 65 77 64  |.loopend JMPnewd|
000004b0  6f 74 0d 00 82 5c 2e 64  69 73 70 6c 6f 6f 70 20  |ot...\.disploop |
000004c0  4c 44 41 78 4c 4f 3a 53  45 43 3a 53 42 43 23 31  |LDAxLO:SEC:SBC#1|
000004d0  3a 3a 53 54 41 78 4c 4f  3a 42 43 53 63 68 65 63  |::STAxLO:BCSchec|
000004e0  6b 32 3a 44 45 43 78 48  49 3a 2e 63 68 65 63 6b  |k2:DECxHI:.check|
000004f0  32 20 4c 44 41 78 48 49  3a 42 50 4c 63 6f 6c 6f  |2 LDAxHI:BPLcolo|
00000500  75 72 3a 4a 4d 50 6e 65  78 74 6c 69 6e 65 0d 00  |ur:JMPnextline..|
00000510  8c e1 2e 63 6f 6c 6f 75  72 20 53 54 41 73 61 6d  |...colour STAsam|
00000520  65 48 49 3a 4c 44 41 78  4c 4f 3a 53 54 41 73 61  |eHI:LDAxLO:STAsa|
00000530  6d 65 4c 4f 3a 4a 53 52  72 65 61 64 73 61 6d 65  |meLO:JSRreadsame|
00000540  3a 43 50 58 78 4c 4f 3a  42 4e 45 73 61 6d 65 3a  |:CPXxLO:BNEsame:|
00000550  43 50 59 78 48 49 3a 42  4e 45 73 61 6d 65 3a 4c  |CPYxHI:BNEsame:L|
00000560  44 41 23 30 3a 53 54 41  26 37 30 3a 52 54 53 3a  |DA#0:STA&70:RTS:|
00000570  2e 72 61 6e 64 6f 6d 20  4c 44 58 26 37 31 3a 4a  |.random LDX&71:J|
00000580  53 52 77 72 69 74 65 63  6f 6c 3a 4a 4d 50 64 69  |SRwritecol:JMPdi|
00000590  73 70 3a 2e 73 61 6d 65  20 4c 44 41 78 4c 4f 3a  |sp:.same LDAxLO:|
000005a0  53 54 41 73 61 6d 65 4c  4f 3a 4c 44 41 78 48 49  |STAsameLO:LDAxHI|
000005b0  3a 53 54 41 73 61 6d 65  48 49 3a 4a 53 52 72 65  |:STAsameHI:JSRre|
000005c0  61 64 73 61 6d 65 3a 53  54 58 63 6f 6c 4c 4f 3a  |adsame:STXcolLO:|
000005d0  53 54 59 63 6f 6c 48 49  3a 4a 53 52 72 65 61 64  |STYcolHI:JSRread|
000005e0  63 6f 6c 3a 4a 53 52 77  72 69 74 65 63 6f 6c 0d  |col:JSRwritecol.|
000005f0  00 96 a1 2e 64 69 73 70  20 54 58 41 3a 43 4c 43  |....disp TXA:CLC|
00000600  3a 42 45 51 73 74 6f 72  65 3a 53 45 43 3a 2e 73  |:BEQstore:SEC:.s|
00000610  74 6f 72 65 20 52 4f 4c  62 79 74 65 3a 49 4e 43  |tore ROLbyte:INC|
00000620  63 6f 75 6e 74 65 72 3a  4c 44 41 63 6f 75 6e 74  |counter:LDAcount|
00000630  65 72 3a 43 4d 50 23 38  3a 42 4e 45 64 69 73 70  |er:CMP#8:BNEdisp|
00000640  6c 6f 6f 70 3a 4c 44 59  23 30 3a 53 54 59 63 6f  |loop:LDY#0:STYco|
00000650  75 6e 74 65 72 3a 49 4e  43 26 38 38 3a 42 4e 45  |unter:INC&88:BNE|
00000660  73 61 76 65 3a 49 4e 43  26 38 39 3a 2e 73 61 76  |save:INC&89:.sav|
00000670  65 20 4c 44 41 62 79 74  65 3a 53 54 41 28 26 38  |e LDAbyte:STA(&8|
00000680  38 29 2c 59 3a 4a 4d 50  64 69 73 70 6c 6f 6f 70  |8),Y:JMPdisploop|
00000690  0d 00 aa 61 2e 6e 65 78  74 6c 69 6e 65 20 4c 44  |...a.nextline LD|
000006a0  41 79 4c 4f 3a 53 45 43  3a 53 42 43 23 31 3a 53  |AyLO:SEC:SBC#1:S|
000006b0  54 41 79 4c 4f 3a 42 43  53 61 67 61 69 6e 3a 44  |TAyLO:BCSagain:D|
000006c0  45 43 79 48 49 3a 42 50  4c 61 67 61 69 6e 3a 4c  |ECyHI:BPLagain:L|
000006d0  44 41 23 31 3a 53 54 41  26 37 30 3a 52 54 53 3a  |DA#1:STA&70:RTS:|
000006e0  2e 61 67 61 69 6e 20 4a  4d 50 6e 65 77 6c 69 6e  |.again JMPnewlin|
000006f0  65 0d 00 b4 90 2e 77 72  69 74 65 73 61 6d 65 20  |e.....writesame |
00000700  4c 44 41 73 61 6d 65 4c  4f 3a 53 54 41 26 38 30  |LDAsameLO:STA&80|
00000710  3a 4c 44 41 73 61 6d 65  48 49 3a 53 54 41 26 38  |:LDAsameHI:STA&8|
00000720  31 3a 41 53 4c 26 38 30  3a 52 4f 4c 26 38 31 3a  |1:ASL&80:ROL&81:|
00000730  43 4c 43 3a 4c 44 41 23  26 32 30 3a 41 44 43 26  |CLC:LDA#&20:ADC&|
00000740  38 31 3a 53 54 41 26 38  31 3a 54 59 41 3a 50 48  |81:STA&81:TYA:PH|
00000750  41 3a 4c 44 59 23 31 3a  53 54 41 28 26 38 30 29  |A:LDY#1:STA(&80)|
00000760  2c 59 3a 44 45 59 3a 54  58 41 3a 53 54 41 28 26  |,Y:DEY:TXA:STA(&|
00000770  38 30 29 2c 59 3a 50 4c  41 3a 54 41 59 3a 52 54  |80),Y:PLA:TAY:RT|
00000780  53 0d 00 be 83 2e 72 65  61 64 73 61 6d 65 20 4c  |S.....readsame L|
00000790  44 41 73 61 6d 65 4c 4f  3a 53 54 41 26 38 30 3a  |DAsameLO:STA&80:|
000007a0  4c 44 41 73 61 6d 65 48  49 3a 53 54 41 26 38 31  |LDAsameHI:STA&81|
000007b0  3a 41 53 4c 26 38 30 3a  52 4f 4c 26 38 31 3a 43  |:ASL&80:ROL&81:C|
000007c0  4c 43 3a 4c 44 41 23 26  32 30 3a 41 44 43 26 38  |LC:LDA#&20:ADC&8|
000007d0  31 3a 53 54 41 26 38 31  3a 4c 44 59 23 30 3a 4c  |1:STA&81:LDY#0:L|
000007e0  44 41 28 26 38 30 29 2c  59 3a 54 41 58 3a 49 4e  |DA(&80),Y:TAX:IN|
000007f0  59 3a 4c 44 41 28 26 38  30 29 2c 59 3a 54 41 59  |Y:LDA(&80),Y:TAY|
00000800  3a 52 54 53 0d 00 c8 5c  2e 77 72 69 74 65 63 6f  |:RTS...\.writeco|
00000810  6c 20 4c 44 41 78 4c 4f  3a 53 54 41 26 38 30 3a  |l LDAxLO:STA&80:|
00000820  4c 44 41 78 48 49 3a 43  4c 43 3a 41 44 43 23 26  |LDAxHI:CLC:ADC#&|
00000830  32 38 3a 53 54 41 26 38  31 3a 53 54 59 26 38 33  |28:STA&81:STY&83|
00000840  3a 54 58 41 3a 4c 44 59  23 30 3a 53 54 41 28 26  |:TXA:LDY#0:STA(&|
00000850  38 30 29 2c 59 3a 4c 44  59 26 38 33 3a 52 54 53  |80),Y:LDY&83:RTS|
00000860  0d 00 d2 5f 2e 72 65 61  64 63 6f 6c 20 4c 44 41  |..._.readcol LDA|
00000870  63 6f 6c 4c 4f 3a 53 54  41 26 38 30 3a 4c 44 41  |colLO:STA&80:LDA|
00000880  63 6f 6c 48 49 3a 43 4c  43 3a 41 44 43 23 26 32  |colHI:CLC:ADC#&2|
00000890  38 3a 53 54 41 26 38 31  3a 53 54 59 26 38 33 3a  |8:STA&81:STY&83:|
000008a0  4c 44 59 23 30 3a 4c 44  41 28 26 38 30 29 2c 59  |LDY#0:LDA(&80),Y|
000008b0  3a 54 41 58 3a 4c 44 59  26 38 33 3a 52 54 53 0d  |:TAX:LDY&83:RTS.|
000008c0  00 d4 ac 20 2e 73 68 6f  77 20 4c 44 58 68 65 69  |... .show LDXhei|
000008d0  67 68 74 4c 4f 3a 44 45  58 3a 53 54 58 68 65 69  |ghtLO:DEX:STXhei|
000008e0  67 68 74 4c 4f 3a 43 50  58 23 26 46 46 3a 42 4e  |ghtLO:CPX#&FF:BN|
000008f0  45 63 6f 6e 74 32 3a 44  45 43 68 65 69 67 68 74  |Econt2:DECheight|
00000900  48 49 3a 2e 63 6f 6e 74  32 20 41 53 4c 68 65 69  |HI:.cont2 ASLhei|
00000910  67 68 74 4c 4f 3a 52 4f  4c 68 65 69 67 68 74 48  |ghtLO:ROLheightH|
00000920  49 3a 41 53 4c 68 65 69  67 68 74 4c 4f 3a 52 4f  |I:ASLheightLO:RO|
00000930  4c 68 65 69 67 68 74 48  49 3a 4c 44 59 23 30 3a  |LheightHI:LDY#0:|
00000940  53 54 59 79 48 49 3a 53  54 59 79 4c 4f 3a 4c 44  |STYyHI:STYyLO:LD|
00000950  41 23 26 38 30 3a 53 54  41 26 38 38 3a 4c 44 41  |A#&80:STA&88:LDA|
00000960  23 26 37 44 3a 53 54 41  26 38 39 0d 00 d5 62 2e  |#&7D:STA&89...b.|
00000970  70 6c 6f 74 6c 69 6e 65  20 4c 44 41 77 69 64 74  |plotline LDAwidt|
00000980  68 48 49 3a 53 54 41 78  48 49 3a 4c 44 58 77 69  |hHI:STAxHI:LDXwi|
00000990  64 74 68 4c 4f 3a 44 45  58 3a 53 54 58 78 4c 4f  |dthLO:DEX:STXxLO|
000009a0  3a 43 50 58 23 26 46 46  3a 42 4e 45 63 6f 6e 74  |:CPX#&FF:BNEcont|
000009b0  33 3a 44 45 43 78 48 49  3a 2e 63 6f 6e 74 33 20  |3:DECxHI:.cont3 |
000009c0  41 53 4c 78 4c 4f 3a 52  4f 4c 78 48 49 0d 00 d6  |ASLxLO:ROLxHI...|
000009d0  bf 20 2e 70 6c 6f 74 6c  6f 6f 70 20 4c 44 41 28  |. .plotloop LDA(|
000009e0  26 38 38 29 2c 59 3a 41  53 4c 20 41 3a 53 54 41  |&88),Y:ASL A:STA|
000009f0  28 26 38 38 29 2c 59 3a  42 43 43 6e 65 78 74 70  |(&88),Y:BCCnextp|
00000a00  6c 6f 74 3a 4c 44 58 23  34 3a 2e 64 72 61 77 20  |lot:LDX#4:.draw |
00000a10  4c 44 41 23 32 35 3a 4a  53 52 26 46 46 45 45 3a  |LDA#25:JSR&FFEE:|
00000a20  54 58 41 3a 4a 53 52 26  46 46 45 45 3a 4c 44 41  |TXA:JSR&FFEE:LDA|
00000a30  78 4c 4f 3a 4a 53 52 26  46 46 45 45 3a 4c 44 41  |xLO:JSR&FFEE:LDA|
00000a40  78 48 49 3a 4a 53 52 26  46 46 45 45 3a 4c 44 41  |xHI:JSR&FFEE:LDA|
00000a50  79 4c 4f 3a 4a 53 52 26  46 46 45 45 3a 4c 44 41  |yLO:JSR&FFEE:LDA|
00000a60  79 48 49 3a 4a 53 52 26  46 46 45 45 3a 43 50 58  |yHI:JSR&FFEE:CPX|
00000a70  23 35 3a 42 45 51 6e 65  78 74 70 6c 6f 74 3a 4c  |#5:BEQnextplot:L|
00000a80  44 58 23 35 3a 4a 4d 50  64 72 61 77 0d 00 d8 ac  |DX#5:JMPdraw....|
00000a90  20 2e 6e 65 78 74 70 6c  6f 74 20 49 4e 43 63 6f  | .nextplot INCco|
00000aa0  75 6e 74 65 72 3a 4c 44  41 63 6f 75 6e 74 65 72  |unter:LDAcounter|
00000ab0  3a 43 4d 50 23 38 3a 42  4e 45 6e 65 78 74 78 3a  |:CMP#8:BNEnextx:|
00000ac0  4c 44 41 23 30 3a 53 54  41 63 6f 75 6e 74 65 72  |LDA#0:STAcounter|
00000ad0  3a 4c 44 58 26 38 38 3a  44 45 58 3a 53 54 58 26  |:LDX&88:DEX:STX&|
00000ae0  38 38 3a 43 50 58 23 26  46 46 3a 42 4e 45 6e 65  |88:CPX#&FF:BNEne|
00000af0  78 74 78 3a 44 45 43 26  38 39 3a 2e 6e 65 78 74  |xtx:DEC&89:.next|
00000b00  78 20 4c 44 41 78 4c 4f  3a 53 45 43 3a 53 42 43  |x LDAxLO:SEC:SBC|
00000b10  23 32 3a 53 54 41 78 4c  4f 3a 42 43 53 70 6c 6f  |#2:STAxLO:BCSplo|
00000b20  74 6c 6f 6f 70 3a 44 45  43 78 48 49 3a 42 50 4c  |tloop:DECxHI:BPL|
00000b30  70 6c 6f 74 6c 6f 6f 70  0d 00 da 8c 4c 44 41 79  |plotloop....LDAy|
00000b40  4c 4f 3a 43 4c 43 3a 41  44 43 23 34 3a 53 54 41  |LO:CLC:ADC#4:STA|
00000b50  79 4c 4f 3a 42 43 43 63  68 65 63 6b 65 6e 64 3a  |yLO:BCCcheckend:|
00000b60  49 4e 43 79 48 49 3a 2e  63 68 65 63 6b 65 6e 64  |INCyHI:.checkend|
00000b70  20 43 4d 50 68 65 69 67  68 74 4c 4f 3a 42 4e 45  | CMPheightLO:BNE|
00000b80  70 6c 6f 74 6c 69 6e 65  32 3a 4c 44 41 79 48 49  |plotline2:LDAyHI|
00000b90  3a 43 4d 50 68 65 69 67  68 74 48 49 3a 42 4e 45  |:CMPheightHI:BNE|
00000ba0  70 6c 6f 74 6c 69 6e 65  32 3a 52 54 53 3a 2e 70  |plotline2:RTS:.p|
00000bb0  6c 6f 74 6c 69 6e 65 32  20 4a 4d 50 70 6c 6f 74  |lotline2 JMPplot|
00000bc0  6c 69 6e 65 0d 00 dc d3  2e 78 4c 4f 20 45 51 55  |line.....xLO EQU|
00000bd0  42 30 3a 2e 78 48 49 20  45 51 55 42 30 3a 2e 79  |B0:.xHI EQUB0:.y|
00000be0  4c 4f 20 45 51 55 42 30  3a 2e 79 48 49 20 45 51  |LO EQUB0:.yHI EQ|
00000bf0  55 42 30 3a 2e 73 61 6d  65 4c 4f 20 45 51 55 42  |UB0:.sameLO EQUB|
00000c00  30 3a 2e 73 61 6d 65 48  49 20 45 51 55 42 30 3a  |0:.sameHI EQUB0:|
00000c10  2e 63 6f 6c 4c 4f 20 45  51 55 42 30 3a 2e 63 6f  |.colLO EQUB0:.co|
00000c20  6c 48 49 20 45 51 55 42  30 3a 2e 77 69 64 74 68  |lHI EQUB0:.width|
00000c30  4c 4f 20 45 51 55 42 30  3a 2e 77 69 64 74 68 48  |LO EQUB0:.widthH|
00000c40  49 20 45 51 55 42 30 3a  2e 68 65 69 67 68 74 4c  |I EQUB0:.heightL|
00000c50  4f 20 45 51 55 42 30 3a  2e 68 65 69 67 68 74 48  |O EQUB0:.heightH|
00000c60  49 20 45 51 55 42 30 3a  2e 73 65 70 4c 4f 20 45  |I EQUB0:.sepLO E|
00000c70  51 55 42 30 3a 2e 73 65  70 48 49 20 45 51 55 42  |QUB0:.sepHI EQUB|
00000c80  30 3a 2e 69 4c 4f 20 45  51 55 42 30 3a 2e 69 48  |0:.iLO EQUB0:.iH|
00000c90  49 20 45 51 55 42 30 0d  00 e1 4a 2e 6a 4c 4f 20  |I EQUB0...J.jLO |
00000ca0  45 51 55 42 30 3a 2e 6a  48 49 20 45 51 55 42 30  |EQUB0:.jHI EQUB0|
00000cb0  3a 2e 73 4c 4f 20 45 51  55 42 30 3a 2e 73 48 49  |:.sLO EQUB0:.sHI|
00000cc0  20 45 51 55 42 30 3a 2e  62 79 74 65 20 45 51 55  | EQUB0:.byte EQU|
00000cd0  42 30 3a 2e 63 6f 75 6e  74 65 72 20 45 51 55 42  |B0:.counter EQUB|
00000ce0  30 0d 00 e6 89 2e 73 68  61 70 65 20 4c 44 41 78  |0.....shape LDAx|
00000cf0  4c 4f 3a 53 54 41 26 37  30 3a 4c 44 41 78 48 49  |LO:STA&70:LDAxHI|
00000d00  3a 53 54 41 26 37 31 3a  41 53 4c 26 37 30 3a 52  |:STA&71:ASL&70:R|
00000d10  4f 4c 26 37 31 3a 4c 44  41 79 4c 4f 3a 53 54 41  |OL&71:LDAyLO:STA|
00000d20  26 37 32 3a 4c 44 41 79  48 49 3a 53 54 41 26 37  |&72:LDAyHI:STA&7|
00000d30  33 3a 41 53 4c 26 37 32  3a 52 4f 4c 26 37 33 3a  |3:ASL&72:ROL&73:|
00000d40  41 53 4c 26 37 32 3a 52  4f 4c 26 37 33 3a 4c 44  |ASL&72:ROL&73:LD|
00000d50  41 23 39 3a 4c 44 58 23  26 37 30 3a 4c 44 59 23  |A#9:LDX#&70:LDY#|
00000d60  30 3a 4a 53 52 26 46 46  46 31 0d 00 eb 8b 4c 44  |0:JSR&FFF1....LD|
00000d70  41 26 37 34 3a 41 53 4c  20 41 3a 54 41 59 3a 4c  |A&74:ASL A:TAY:L|
00000d80  44 41 23 28 67 72 6f 75  6e 64 4c 4f 20 83 32 35  |DA#(groundLO .25|
00000d90  36 29 3a 53 54 41 26 38  42 3a 4c 44 41 23 28 67  |6):STA&8B:LDA#(g|
00000da0  72 6f 75 6e 64 4c 4f 20  81 32 35 36 29 3a 53 54  |roundLO .256):ST|
00000db0  41 26 38 43 3a 4c 44 41  28 26 38 42 29 2c 59 3a  |A&8C:LDA(&8B),Y:|
00000dc0  53 54 41 73 65 70 4c 4f  3a 49 4e 59 3a 4c 44 41  |STAsepLO:INY:LDA|
00000dd0  28 26 38 42 29 2c 59 3a  53 54 41 73 65 70 48 49  |(&8B),Y:STAsepHI|
00000de0  3a 43 50 59 23 26 46 45  3a 42 45 51 65 72 72 6f  |:CPY#&FE:BEQerro|
00000df0  72 3a 52 54 53 0d 00 ec  2d 2e 65 72 72 6f 72 20  |r:RTS...-.error |
00000e00  42 52 4b 3a 45 51 55 42  30 3a 45 51 55 53 22 4f  |BRK:EQUB0:EQUS"O|
00000e10  75 74 73 69 64 65 20 77  69 6e 64 6f 77 22 3a 42  |utside window":B|
00000e20  52 4b 0d 00 f0 41 2e 67  72 6f 75 6e 64 4c 4f 20  |RK...A.groundLO |
00000e30  45 51 55 42 30 3a 2e 67  72 6f 75 6e 64 48 49 20  |EQUB0:.groundHI |
00000e40  45 51 55 42 30 3a 45 51  55 44 30 3a 45 51 55 44  |EQUB0:EQUD0:EQUD|
00000e50  30 3a 45 51 55 44 30 3a  45 51 55 57 30 3a 45 51  |0:EQUD0:EQUW0:EQ|
00000e60  55 42 30 0d 00 fa 05 5d  0d 01 04 05 ed 0d 01 09  |UB0....]........|
00000e70  28 20 21 28 77 69 64 74  68 4c 4f 2b 4f 25 2d 50  |( !(widthLO+O%-P|
00000e80  25 29 3d 77 69 64 74 68  2b 68 65 69 67 68 74 2a  |%)=width+height*|
00000e90  36 35 35 33 36 0d 01 18  3b 67 72 6f 75 6e 64 3d  |65536...;ground=|
00000ea0  65 79 65 73 2f 32 3a 6f  62 6a 31 3d 67 72 6f 75  |eyes/2:obj1=grou|
00000eb0  6e 64 2d 32 3a 6f 62 6a  32 3d 67 72 6f 75 6e 64  |nd-2:obj2=ground|
00000ec0  2d 34 3a 6f 62 6a 33 3d  67 72 6f 75 6e 64 2d 35  |-4:obj3=ground-5|
00000ed0  0d 01 22 76 e3 6f 62 6a  65 63 74 3d 30 20 b8 20  |.."v.object=0 . |
00000ee0  31 35 3a f3 20 73 65 70  3a 3f 28 67 72 6f 75 6e  |15:. sep:?(groun|
00000ef0  64 4c 4f 2b 4f 25 2d 50  25 2b 6f 62 6a 65 63 74  |dLO+O%-P%+object|
00000f00  2a 32 29 3d 28 65 79 65  73 2f 32 2d 73 65 70 29  |*2)=(eyes/2-sep)|
00000f10  20 83 32 35 36 3a 3f 28  67 72 6f 75 6e 64 4c 4f  | .256:?(groundLO|
00000f20  2b 4f 25 2d 50 25 2b 6f  62 6a 65 63 74 2a 32 2b  |+O%-P%+object*2+|
00000f30  31 29 3d 28 65 79 65 73  2f 32 2d 73 65 70 29 20  |1)=(eyes/2-sep) |
00000f40  81 32 35 36 3a ed 0d 01  24 76 20 ff 22 53 41 56  |.256:...$v ."SAV|
00000f50  45 20 41 55 54 4f 63 6f  64 65 20 34 30 30 30 20  |E AUTOcode 4000 |
00000f60  22 2b c3 7e 28 4f 25 29  3a ff 22 4b 45 59 30 44  |"+.~(O%):."KEY0D|
00000f70  45 4c 45 54 45 20 35 2c  32 39 36 7c 4d 48 49 4d  |ELETE 5,296|MHIM|
00000f80  45 4d 3d 26 31 37 46 46  7c 4d 72 61 6e 64 6f 6d  |EM=&17FF|Mrandom|
00000f90  3d 22 2b c3 28 72 61 6e  64 6f 6d 29 2b 22 7c 4d  |="+.(random)+"|M|
00000fa0  73 68 6f 77 3d 22 2b c3  28 73 68 6f 77 29 2b 22  |show="+.(show)+"|
00000fb0  7c 4d 47 4f 54 4f 32 39  38 7c 4d 22 0d 01 25 17  ||MGOTO298|M"..%.|
00000fc0  20 ef 20 32 31 3a 2a 46  58 20 31 33 38 2c 30 2c  | . 21:*FX 138,0,|
00000fd0  31 32 38 0d 01 27 06 20  e0 0d 01 28 2f 20 dc 20  |128..'. ...(/ . |
00000fe0  30 2c 34 2c 35 2c 36 2c  37 2c 38 2c 39 2c 31 30  |0,4,5,6,7,8,9,10|
00000ff0  2c 31 31 2c 31 32 2c 31  33 2c 31 34 2c 31 35 2c  |,11,12,13,14,15,|
00001000  31 36 2c 31 37 2c 31 38  0d 01 2a 1b 20 ef 20 36  |16,17,18..*. . 6|
00001010  3a 2a 4c 4f 2e 20 41 55  54 4f 63 6f 64 65 20 31  |:*LO. AUTOcode 1|
00001020  38 30 30 0d 01 2b 24 eb  20 32 3a ef 20 32 33 2c  |800..+$. 2:. 23,|
00001030  31 2c 30 3b 30 3b 30 3b  30 3b 3a 2a 4c 4f 2e 20  |1,0;0;0;0;:*LO. |
00001040  43 75 62 65 50 49 43 0d  01 2c 0a d6 26 31 38 30  |CubePIC..,..&180|
00001050  30 0d 01 36 2f e7 3f 26  37 30 3d 31 20 8c 20 e5  |0..6/.?&70=1 . .|
00001060  8d 54 7b 41 20 8b 20 3f  26 37 31 3d b3 28 32 29  |.T{A . ?&71=.(2)|
00001070  2d 31 3a d6 72 61 6e 64  6f 6d 3a e5 8d 54 76 41  |-1:.random:..TvA|
00001080  0d 01 3b 18 20 2a 53 41  2e 20 54 45 4d 50 20 32  |..;. *SA. TEMP 2|
00001090  44 38 30 20 37 44 38 30  0d 01 3c 12 20 eb 20 30  |D80 7D80..<. . 0|
000010a0  3a 2a 4c 4f 2e 20 54 45  4d 50 0d 01 3d 0a 20 d6  |:*LO. TEMP..=. .|
000010b0  73 68 6f 77 0d 01 40 18  20 2a 53 41 2e 20 43 75  |show..@. *SA. Cu|
000010c0  62 65 20 33 30 30 30 20  38 30 30 30 0d 01 4a 0a  |be 3000 8000..J.|
000010d0  20 e5 8d 44 4a 41 0d ff                           | ..DJA..|
000010d8