J �     Autostereogram Generator                  by M. Ford, June 1994
 � 6:�=&5FC4
 � �<>&2200 � � �TRB
(& � �7,5)"Autostereogram Generator"
2/ � �0,10)"Filename of source picture? " sf$
<: � �0,11)"Mode of source picture (0,1,2,4,5) ? " smode
F@ � � �0,13)"Filename to save image under? " df$:� �(df$)<=10
P> � � �0,14)"Mode of image (0,4) ? " mode:� mode=0 � mode=4
Z~ � �0,16)"Enter eye separation"'" (in mm for printout of width 136mm :       this should usually be about 20) ";:�""eyesep
d{ � smode=0 � colours=2 � � smode=1 � colours=4 � � smode=2 � colours=16 � � smode=4 � colours=2 � � smode=5 � colours=4
ni � mode=0 � width=640:add$=" 3000 ":memtop=&7D:pixels=2 � width=320:add$=" 5800 ":memtop=&55:pixels=4
xheight=256
�code=&1D00
�$�pass=0 � 2 � 2:P%=code:[OPTpass
��LDAheightLO:STAyLO:LDAheightHI:STAyHI:LDAyLO:SEC:SBC#1:STAyLO:BCScont:DECyHI:.cont LDA#&80:STA&88:LDA#&2D:STA&89:LDA#&26:STA&71:LDY#0:STY&70:LDA#0:.clearloop STA(&70),Y:INY:BNEclearloop:INC&71:LDX&71:CPX#&30:BNEclearloop
�4.newline LDA#0:STAxLO:STAxHI:STAsameLO:STAsameHI
�qLDX#0:LDY#0:.sameloop JSRwritesame:INX:INCsameLO:BNEsameloop:INY:INCsameHI:CPYwidthHI:BCCsameloop:BEQsameloop
�.newdot JSRshape
��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
ȆLDAiLO:CLC:ADCsepLO:STAjLO:LDAiHI:ADCsepHI:STAjHI:CMPwidthHI:BCCjOK:BNEnextdotB:LDAjLO:CMPwidthLO:BCCjOK:.nextdotB JMPnextdot:.jOK
Ұ.sameloop2 LDAiLO:STAsameLO:LDAiHI:STAsameHI:JSRreadsame:CPYjHI:BCCifA:BNEifB:CPXjLO:BCCifA:BEQifA:.ifB STXsLO:STYsHI:LDXjLO:LDYjHI:JSRwritesame:LDAsLO:STAjLO:LDAsHI:STAjHI
�n .ifA STXiLO:STYiHI:STXsameLO:STYsameHI:LDXjLO:LDYjHI:JSRwritesame:CPXiLO:BNEsameloop2:CPYiHI:BNEsameloop2
�x.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:ASL&80:ROL A:CLC:ADC#&26:STA&81:TYA:PHA:LDY#1:STA(&80),Y:DEY:TXA:STA(&80),Y:PLA:TAY:RTS

"t.readsame LDAsameLO:STA&80:LDAsameHI:ASL&80:ROL A:CLC:ADC#&26:STA&81:LDY#0:LDA(&80),Y:TAX:INY:LDA(&80),Y:TAY:RTS

,\.writecol LDAxLO:STA&80:LDAxHI:CLC:ADC#&2B:STA&81:STY&83:TXA:LDY#0:STA(&80),Y:LDY&83:RTS

6_.readcol LDAcolLO:STA&80:LDAcolHI:CLC:ADC#&2B:STA&81:STY&83:LDY#0:LDA(&80),Y:TAX:LDY&83:RTS

@� .show ASLwidthLO:ROLwidthHI:LDA#mode:CMP#4:BNEdheight:ASLwidthLO:ROLwidthHI:.dheight LDXheightLO:DEX:STXheightLO:CPX#&FF:BNEcont2:DECheightHI:.cont2 ASLheightLO:ROLheightHI:ASLheightLO:ROLheightHI

JVLDY#0:STYyHI:STYyLO:LDA#&80:STA&88:LDA#memtop:STA&89:.plotline LDA#0:STAxLO:STAxHI

T�.plotloop LDA(&88),Y:LSR 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:DEC&88:LDA&88:CMP#&FF:BNEnextx:DEC&89:.nextx LDAxLO:CLC:ADC#pixels:STAxLO:BCCcheckw:INCxHI:.checkw LDAxHI:CMPwidthHI:BCCplotloop:LDAxLO:BCCplotloop

h�LDAyLO:CLC:ADC#4:STAyLO:BCCcheckend:INCyHI:.checkend CMPheightLO:BNEplotline2:LDAyHI:CMPheightHI:BNEplotline2:RTS:.plotline2 JMPplotline

r�.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

�Z.shape LDAxLO:STA&70:LDAxHI:STA&71:ASL&70:ROL&71:LDA#mode:CMP#4:BNEymult:ASL&70:ROL&71

�` .ymult LDAyLO:STA&72:LDAyHI:STA&73:ASL&72:ROL&73:ASL&72:ROL&73:LDA#9:LDX#&70:LDY#0:JSR&FFF1

�zLDA&74:ASL A:TAY:LDA#(groundLO �256):STA&8B:LDA#(groundLO �256):STA&8C:LDA(&8B),Y:STAsepLO:INY:LDA(&8B),Y:STAsepHI:RTS

�A.groundLO EQUB0:.groundHI EQUB0:EQUD0:EQUD0:EQUD0:EQUW0:EQUB0

�]

��

�  !widthLO=width+height*65536

�" eyegap=�(eyesep/136*width+.5)

� �'"Enter elevation number for each logical  colour (0=background, 4 is suitable for most objects, only integers allowed)"'

��object=0 � colours-1:�"   Colour "+�(object)+": ";:�""elev:?(groundLO+object*2)=(eyegap-elev) �256:?(groundLO+object*2+1)=(eyegap-elev) �256:�

�e !&5FFC=random:!&5FF8=show:?&5FF7=smode:?&5FF6=mode:$&5FE0=sf$:$&5FD0=df$:$&5FC8=add$:!&5FC4=code

�( a$="DELETE 10,600"+�13+"RUN"+�6+�13

�; � 21:� char=1 � �(a$):�"FX 138,0,"+�(�(�a$,char,1))):�
 �
 � Relocation code
. �=&5800:�pass=0 � 2 � 2:P%=&5800:[OPTpass
&� LDY#0:STY&70:STY&72:LDA#&22:SEC:SBC&18:STA&74:LDA&18:CMP#&22:BCCadd:.sub STA&71:LDA#&22:STA&73:.moveloop1 LDA(&70),Y:STA(&72),Y:INY:BNEmoveloop1:INC&71:INC&73:LDX&71:DEX:CPX&03:BCCmoveloop1:BCSendmove
0� .add LDA&03:STA&71:CLC:ADC&74:STA&73:LDA#0:LDY&02:.moveloop2 LDA(&70),Y:STA(&72),Y:DEY:CPY#&FF:BNEmoveloop2:DEC&71:DEC&73:LDA&73:CMP#&21:BCSmoveloop2
:@ .endmove LDA&13:CLC:ADC&74:STA&13:STA&01:LDA#&22:STA&18:RTS
D ]:�
N7 �"KEY 0""CALL&5800|MRUN|F|M""":�21:�"FX 153,0,128"
X �
bdrandom=!&5FFC:show=!&5FF8:smode=?&5FF7:mode=?&5FF6:sf$=$&5FE0:df$=$&5FD0:add$=$&5FC8:code=!&5FC4
l.�smode:�=&2600:� 23,1,0;0;0;0;:�"LO. "+sf$
v	�code
�/�?&70=1 � �tJB � ?&71=�(2)-1:�random:�t@B
�F � mode=0 � �"SA. TEMP 2D80 7D80":�0:�"LO. TEMP":�"DEL. TEMP" � �4
�
 �show
� �"SA. "+df$+add$+"8000"
�
 �thB
�

00000000  0d 00 0a 4a 20 f4 20 20  20 20 20 41 75 74 6f 73  |...J .     Autos|
00000010  74 65 72 65 6f 67 72 61  6d 20 47 65 6e 65 72 61  |tereogram Genera|
00000020  74 6f 72 20 20 20 20 20  20 20 20 20 20 20 20 20  |tor             |
00000030  20 20 20 20 20 62 79 20  4d 2e 20 46 6f 72 64 2c  |     by M. Ford,|
00000040  20 4a 75 6e 65 20 31 39  39 34 0d 00 14 10 20 eb  | June 1994.... .|
00000050  20 36 3a d3 3d 26 35 46  43 34 0d 00 1e 18 20 e7  | 6:.=&5FC4.... .|
00000060  20 90 3c 3e 26 32 32 30  30 20 8c 20 e5 20 8d 54  | .<>&2200 . . .T|
00000070  52 42 0d 00 28 26 20 f1  20 8a 37 2c 35 29 22 41  |RB..(& . .7,5)"A|
00000080  75 74 6f 73 74 65 72 65  6f 67 72 61 6d 20 47 65  |utostereogram Ge|
00000090  6e 65 72 61 74 6f 72 22  0d 00 32 2f 20 e8 20 8a  |nerator"..2/ . .|
000000a0  30 2c 31 30 29 22 46 69  6c 65 6e 61 6d 65 20 6f  |0,10)"Filename o|
000000b0  66 20 73 6f 75 72 63 65  20 70 69 63 74 75 72 65  |f source picture|
000000c0  3f 20 22 20 73 66 24 0d  00 3c 3a 20 e8 20 8a 30  |? " sf$..<: . .0|
000000d0  2c 31 31 29 22 4d 6f 64  65 20 6f 66 20 73 6f 75  |,11)"Mode of sou|
000000e0  72 63 65 20 70 69 63 74  75 72 65 20 28 30 2c 31  |rce picture (0,1|
000000f0  2c 32 2c 34 2c 35 29 20  3f 20 22 20 73 6d 6f 64  |,2,4,5) ? " smod|
00000100  65 0d 00 46 40 20 f5 20  e8 20 8a 30 2c 31 33 29  |e..F@ . . .0,13)|
00000110  22 46 69 6c 65 6e 61 6d  65 20 74 6f 20 73 61 76  |"Filename to sav|
00000120  65 20 69 6d 61 67 65 20  75 6e 64 65 72 3f 20 22  |e image under? "|
00000130  20 64 66 24 3a fd 20 a9  28 64 66 24 29 3c 3d 31  | df$:. .(df$)<=1|
00000140  30 0d 00 50 3e 20 f5 20  e8 20 8a 30 2c 31 34 29  |0..P> . . .0,14)|
00000150  22 4d 6f 64 65 20 6f 66  20 69 6d 61 67 65 20 28  |"Mode of image (|
00000160  30 2c 34 29 20 3f 20 22  20 6d 6f 64 65 3a fd 20  |0,4) ? " mode:. |
00000170  6d 6f 64 65 3d 30 20 84  20 6d 6f 64 65 3d 34 0d  |mode=0 . mode=4.|
00000180  00 5a 7e 20 f1 20 8a 30  2c 31 36 29 22 45 6e 74  |.Z~ . .0,16)"Ent|
00000190  65 72 20 65 79 65 20 73  65 70 61 72 61 74 69 6f  |er eye separatio|
000001a0  6e 22 27 22 20 28 69 6e  20 6d 6d 20 66 6f 72 20  |n"'" (in mm for |
000001b0  70 72 69 6e 74 6f 75 74  20 6f 66 20 77 69 64 74  |printout of widt|
000001c0  68 20 31 33 36 6d 6d 20  3a 20 20 20 20 20 20 20  |h 136mm :       |
000001d0  74 68 69 73 20 73 68 6f  75 6c 64 20 75 73 75 61  |this should usua|
000001e0  6c 6c 79 20 62 65 20 61  62 6f 75 74 20 32 30 29  |lly be about 20)|
000001f0  20 22 3b 3a e8 22 22 65  79 65 73 65 70 0d 00 64  | ";:.""eyesep..d|
00000200  7b 20 e7 20 73 6d 6f 64  65 3d 30 20 8c 20 63 6f  |{ . smode=0 . co|
00000210  6c 6f 75 72 73 3d 32 20  8b 20 e7 20 73 6d 6f 64  |lours=2 . . smod|
00000220  65 3d 31 20 8c 20 63 6f  6c 6f 75 72 73 3d 34 20  |e=1 . colours=4 |
00000230  8b 20 e7 20 73 6d 6f 64  65 3d 32 20 8c 20 63 6f  |. . smode=2 . co|
00000240  6c 6f 75 72 73 3d 31 36  20 8b 20 e7 20 73 6d 6f  |lours=16 . . smo|
00000250  64 65 3d 34 20 8c 20 63  6f 6c 6f 75 72 73 3d 32  |de=4 . colours=2|
00000260  20 8b 20 e7 20 73 6d 6f  64 65 3d 35 20 8c 20 63  | . . smode=5 . c|
00000270  6f 6c 6f 75 72 73 3d 34  0d 00 6e 69 20 e7 20 6d  |olours=4..ni . m|
00000280  6f 64 65 3d 30 20 8c 20  77 69 64 74 68 3d 36 34  |ode=0 . width=64|
00000290  30 3a 61 64 64 24 3d 22  20 33 30 30 30 20 22 3a  |0:add$=" 3000 ":|
000002a0  6d 65 6d 74 6f 70 3d 26  37 44 3a 70 69 78 65 6c  |memtop=&7D:pixel|
000002b0  73 3d 32 20 8b 20 77 69  64 74 68 3d 33 32 30 3a  |s=2 . width=320:|
000002c0  61 64 64 24 3d 22 20 35  38 30 30 20 22 3a 6d 65  |add$=" 5800 ":me|
000002d0  6d 74 6f 70 3d 26 35 35  3a 70 69 78 65 6c 73 3d  |mtop=&55:pixels=|
000002e0  34 0d 00 78 0e 68 65 69  67 68 74 3d 32 35 36 0d  |4..x.height=256.|
000002f0  00 82 0e 63 6f 64 65 3d  26 31 44 30 30 0d 00 8c  |...code=&1D00...|
00000300  24 e3 70 61 73 73 3d 30  20 b8 20 32 20 88 20 32  |$.pass=0 . 2 . 2|
00000310  3a 50 25 3d 63 6f 64 65  3a 5b 4f 50 54 70 61 73  |:P%=code:[OPTpas|
00000320  73 0d 00 96 e0 4c 44 41  68 65 69 67 68 74 4c 4f  |s....LDAheightLO|
00000330  3a 53 54 41 79 4c 4f 3a  4c 44 41 68 65 69 67 68  |:STAyLO:LDAheigh|
00000340  74 48 49 3a 53 54 41 79  48 49 3a 4c 44 41 79 4c  |tHI:STAyHI:LDAyL|
00000350  4f 3a 53 45 43 3a 53 42  43 23 31 3a 53 54 41 79  |O:SEC:SBC#1:STAy|
00000360  4c 4f 3a 42 43 53 63 6f  6e 74 3a 44 45 43 79 48  |LO:BCScont:DECyH|
00000370  49 3a 2e 63 6f 6e 74 20  4c 44 41 23 26 38 30 3a  |I:.cont LDA#&80:|
00000380  53 54 41 26 38 38 3a 4c  44 41 23 26 32 44 3a 53  |STA&88:LDA#&2D:S|
00000390  54 41 26 38 39 3a 4c 44  41 23 26 32 36 3a 53 54  |TA&89:LDA#&26:ST|
000003a0  41 26 37 31 3a 4c 44 59  23 30 3a 53 54 59 26 37  |A&71:LDY#0:STY&7|
000003b0  30 3a 4c 44 41 23 30 3a  2e 63 6c 65 61 72 6c 6f  |0:LDA#0:.clearlo|
000003c0  6f 70 20 53 54 41 28 26  37 30 29 2c 59 3a 49 4e  |op STA(&70),Y:IN|
000003d0  59 3a 42 4e 45 63 6c 65  61 72 6c 6f 6f 70 3a 49  |Y:BNEclearloop:I|
000003e0  4e 43 26 37 31 3a 4c 44  58 26 37 31 3a 43 50 58  |NC&71:LDX&71:CPX|
000003f0  23 26 33 30 3a 42 4e 45  63 6c 65 61 72 6c 6f 6f  |#&30:BNEclearloo|
00000400  70 0d 00 a0 34 2e 6e 65  77 6c 69 6e 65 20 4c 44  |p...4.newline LD|
00000410  41 23 30 3a 53 54 41 78  4c 4f 3a 53 54 41 78 48  |A#0:STAxLO:STAxH|
00000420  49 3a 53 54 41 73 61 6d  65 4c 4f 3a 53 54 41 73  |I:STAsameLO:STAs|
00000430  61 6d 65 48 49 0d 00 aa  71 4c 44 58 23 30 3a 4c  |ameHI...qLDX#0:L|
00000440  44 59 23 30 3a 2e 73 61  6d 65 6c 6f 6f 70 20 4a  |DY#0:.sameloop J|
00000450  53 52 77 72 69 74 65 73  61 6d 65 3a 49 4e 58 3a  |SRwritesame:INX:|
00000460  49 4e 43 73 61 6d 65 4c  4f 3a 42 4e 45 73 61 6d  |INCsameLO:BNEsam|
00000470  65 6c 6f 6f 70 3a 49 4e  59 3a 49 4e 43 73 61 6d  |eloop:INY:INCsam|
00000480  65 48 49 3a 43 50 59 77  69 64 74 68 48 49 3a 42  |eHI:CPYwidthHI:B|
00000490  43 43 73 61 6d 65 6c 6f  6f 70 3a 42 45 51 73 61  |CCsameloop:BEQsa|
000004a0  6d 65 6c 6f 6f 70 0d 00  b4 14 2e 6e 65 77 64 6f  |meloop.....newdo|
000004b0  74 20 4a 53 52 73 68 61  70 65 0d 00 be 9d 43 4c  |t JSRshape....CL|
000004c0  43 3a 4c 44 41 73 65 70  4c 4f 3a 80 79 4c 4f 3a  |C:LDAsepLO:.yLO:|
000004d0  80 23 31 3a 41 44 43 73  65 70 4c 4f 3a 53 54 41  |.#1:ADCsepLO:STA|
000004e0  26 37 30 3a 4c 44 41 73  65 70 48 49 3a 80 79 48  |&70:LDAsepHI:.yH|
000004f0  49 3a 41 44 43 73 65 70  48 49 3a 43 4c 43 3a 4c  |I:ADCsepHI:CLC:L|
00000500  53 52 20 41 3a 53 54 41  26 37 31 3a 52 4f 52 26  |SR A:STA&71:ROR&|
00000510  37 30 3a 4c 44 41 78 4c  4f 3a 53 45 43 3a 53 42  |70:LDAxLO:SEC:SB|
00000520  43 26 37 30 3a 53 54 41  69 4c 4f 3a 4c 44 41 78  |C&70:STAiLO:LDAx|
00000530  48 49 3a 53 42 43 26 37  31 3a 42 50 4c 69 4f 4b  |HI:SBC&71:BPLiOK|
00000540  3a 4a 4d 50 6e 65 78 74  64 6f 74 3a 2e 69 4f 4b  |:JMPnextdot:.iOK|
00000550  20 53 54 41 69 48 49 0d  00 c8 86 4c 44 41 69 4c  | STAiHI....LDAiL|
00000560  4f 3a 43 4c 43 3a 41 44  43 73 65 70 4c 4f 3a 53  |O:CLC:ADCsepLO:S|
00000570  54 41 6a 4c 4f 3a 4c 44  41 69 48 49 3a 41 44 43  |TAjLO:LDAiHI:ADC|
00000580  73 65 70 48 49 3a 53 54  41 6a 48 49 3a 43 4d 50  |sepHI:STAjHI:CMP|
00000590  77 69 64 74 68 48 49 3a  42 43 43 6a 4f 4b 3a 42  |widthHI:BCCjOK:B|
000005a0  4e 45 6e 65 78 74 64 6f  74 42 3a 4c 44 41 6a 4c  |NEnextdotB:LDAjL|
000005b0  4f 3a 43 4d 50 77 69 64  74 68 4c 4f 3a 42 43 43  |O:CMPwidthLO:BCC|
000005c0  6a 4f 4b 3a 2e 6e 65 78  74 64 6f 74 42 20 4a 4d  |jOK:.nextdotB JM|
000005d0  50 6e 65 78 74 64 6f 74  3a 2e 6a 4f 4b 0d 00 d2  |Pnextdot:.jOK...|
000005e0  b0 2e 73 61 6d 65 6c 6f  6f 70 32 20 4c 44 41 69  |..sameloop2 LDAi|
000005f0  4c 4f 3a 53 54 41 73 61  6d 65 4c 4f 3a 4c 44 41  |LO:STAsameLO:LDA|
00000600  69 48 49 3a 53 54 41 73  61 6d 65 48 49 3a 4a 53  |iHI:STAsameHI:JS|
00000610  52 72 65 61 64 73 61 6d  65 3a 43 50 59 6a 48 49  |Rreadsame:CPYjHI|
00000620  3a 42 43 43 69 66 41 3a  42 4e 45 69 66 42 3a 43  |:BCCifA:BNEifB:C|
00000630  50 58 6a 4c 4f 3a 42 43  43 69 66 41 3a 42 45 51  |PXjLO:BCCifA:BEQ|
00000640  69 66 41 3a 2e 69 66 42  20 53 54 58 73 4c 4f 3a  |ifA:.ifB STXsLO:|
00000650  53 54 59 73 48 49 3a 4c  44 58 6a 4c 4f 3a 4c 44  |STYsHI:LDXjLO:LD|
00000660  59 6a 48 49 3a 4a 53 52  77 72 69 74 65 73 61 6d  |YjHI:JSRwritesam|
00000670  65 3a 4c 44 41 73 4c 4f  3a 53 54 41 6a 4c 4f 3a  |e:LDAsLO:STAjLO:|
00000680  4c 44 41 73 48 49 3a 53  54 41 6a 48 49 0d 00 dc  |LDAsHI:STAjHI...|
00000690  6e 20 2e 69 66 41 20 53  54 58 69 4c 4f 3a 53 54  |n .ifA STXiLO:ST|
000006a0  59 69 48 49 3a 53 54 58  73 61 6d 65 4c 4f 3a 53  |YiHI:STXsameLO:S|
000006b0  54 59 73 61 6d 65 48 49  3a 4c 44 58 6a 4c 4f 3a  |TYsameHI:LDXjLO:|
000006c0  4c 44 59 6a 48 49 3a 4a  53 52 77 72 69 74 65 73  |LDYjHI:JSRwrites|
000006d0  61 6d 65 3a 43 50 58 69  4c 4f 3a 42 4e 45 73 61  |ame:CPXiLO:BNEsa|
000006e0  6d 65 6c 6f 6f 70 32 3a  43 50 59 69 48 49 3a 42  |meloop2:CPYiHI:B|
000006f0  4e 45 73 61 6d 65 6c 6f  6f 70 32 0d 00 e6 78 2e  |NEsameloop2...x.|
00000700  6e 65 78 74 64 6f 74 20  49 4e 43 78 4c 4f 3a 42  |nextdot INCxLO:B|
00000710  4e 45 63 68 65 63 6b 3a  49 4e 43 78 48 49 3a 2e  |NEcheck:INCxHI:.|
00000720  63 68 65 63 6b 20 4c 44  41 78 48 49 3a 43 4d 50  |check LDAxHI:CMP|
00000730  77 69 64 74 68 48 49 3a  42 43 43 6c 6f 6f 70 65  |widthHI:BCCloope|
00000740  6e 64 3a 4c 44 41 78 4c  4f 3a 43 4d 50 77 69 64  |nd:LDAxLO:CMPwid|
00000750  74 68 4c 4f 3a 42 45 51  64 69 73 70 6c 6f 6f 70  |thLO:BEQdisploop|
00000760  3a 2e 6c 6f 6f 70 65 6e  64 20 4a 4d 50 6e 65 77  |:.loopend JMPnew|
00000770  64 6f 74 0d 00 f0 5b 2e  64 69 73 70 6c 6f 6f 70  |dot...[.disploop|
00000780  20 4c 44 41 78 4c 4f 3a  53 45 43 3a 53 42 43 23  | LDAxLO:SEC:SBC#|
00000790  31 3a 53 54 41 78 4c 4f  3a 42 43 53 63 68 65 63  |1:STAxLO:BCSchec|
000007a0  6b 32 3a 44 45 43 78 48  49 3a 2e 63 68 65 63 6b  |k2:DECxHI:.check|
000007b0  32 20 4c 44 41 78 48 49  3a 42 50 4c 63 6f 6c 6f  |2 LDAxHI:BPLcolo|
000007c0  75 72 3a 4a 4d 50 6e 65  78 74 6c 69 6e 65 0d 00  |ur:JMPnextline..|
000007d0  fa e1 2e 63 6f 6c 6f 75  72 20 53 54 41 73 61 6d  |...colour STAsam|
000007e0  65 48 49 3a 4c 44 41 78  4c 4f 3a 53 54 41 73 61  |eHI:LDAxLO:STAsa|
000007f0  6d 65 4c 4f 3a 4a 53 52  72 65 61 64 73 61 6d 65  |meLO:JSRreadsame|
00000800  3a 43 50 58 78 4c 4f 3a  42 4e 45 73 61 6d 65 3a  |:CPXxLO:BNEsame:|
00000810  43 50 59 78 48 49 3a 42  4e 45 73 61 6d 65 3a 4c  |CPYxHI:BNEsame:L|
00000820  44 41 23 30 3a 53 54 41  26 37 30 3a 52 54 53 3a  |DA#0:STA&70:RTS:|
00000830  2e 72 61 6e 64 6f 6d 20  4c 44 58 26 37 31 3a 4a  |.random LDX&71:J|
00000840  53 52 77 72 69 74 65 63  6f 6c 3a 4a 4d 50 64 69  |SRwritecol:JMPdi|
00000850  73 70 3a 2e 73 61 6d 65  20 4c 44 41 78 4c 4f 3a  |sp:.same LDAxLO:|
00000860  53 54 41 73 61 6d 65 4c  4f 3a 4c 44 41 78 48 49  |STAsameLO:LDAxHI|
00000870  3a 53 54 41 73 61 6d 65  48 49 3a 4a 53 52 72 65  |:STAsameHI:JSRre|
00000880  61 64 73 61 6d 65 3a 53  54 58 63 6f 6c 4c 4f 3a  |adsame:STXcolLO:|
00000890  53 54 59 63 6f 6c 48 49  3a 4a 53 52 72 65 61 64  |STYcolHI:JSRread|
000008a0  63 6f 6c 3a 4a 53 52 77  72 69 74 65 63 6f 6c 0d  |col:JSRwritecol.|
000008b0  01 04 a1 2e 64 69 73 70  20 54 58 41 3a 43 4c 43  |....disp TXA:CLC|
000008c0  3a 42 45 51 73 74 6f 72  65 3a 53 45 43 3a 2e 73  |:BEQstore:SEC:.s|
000008d0  74 6f 72 65 20 52 4f 4c  62 79 74 65 3a 49 4e 43  |tore ROLbyte:INC|
000008e0  63 6f 75 6e 74 65 72 3a  4c 44 41 63 6f 75 6e 74  |counter:LDAcount|
000008f0  65 72 3a 43 4d 50 23 38  3a 42 4e 45 64 69 73 70  |er:CMP#8:BNEdisp|
00000900  6c 6f 6f 70 3a 4c 44 59  23 30 3a 53 54 59 63 6f  |loop:LDY#0:STYco|
00000910  75 6e 74 65 72 3a 49 4e  43 26 38 38 3a 42 4e 45  |unter:INC&88:BNE|
00000920  73 61 76 65 3a 49 4e 43  26 38 39 3a 2e 73 61 76  |save:INC&89:.sav|
00000930  65 20 4c 44 41 62 79 74  65 3a 53 54 41 28 26 38  |e LDAbyte:STA(&8|
00000940  38 29 2c 59 3a 4a 4d 50  64 69 73 70 6c 6f 6f 70  |8),Y:JMPdisploop|
00000950  0d 01 0e 61 2e 6e 65 78  74 6c 69 6e 65 20 4c 44  |...a.nextline LD|
00000960  41 79 4c 4f 3a 53 45 43  3a 53 42 43 23 31 3a 53  |AyLO:SEC:SBC#1:S|
00000970  54 41 79 4c 4f 3a 42 43  53 61 67 61 69 6e 3a 44  |TAyLO:BCSagain:D|
00000980  45 43 79 48 49 3a 42 50  4c 61 67 61 69 6e 3a 4c  |ECyHI:BPLagain:L|
00000990  44 41 23 31 3a 53 54 41  26 37 30 3a 52 54 53 3a  |DA#1:STA&70:RTS:|
000009a0  2e 61 67 61 69 6e 20 4a  4d 50 6e 65 77 6c 69 6e  |.again JMPnewlin|
000009b0  65 0d 01 18 81 2e 77 72  69 74 65 73 61 6d 65 20  |e.....writesame |
000009c0  4c 44 41 73 61 6d 65 4c  4f 3a 53 54 41 26 38 30  |LDAsameLO:STA&80|
000009d0  3a 4c 44 41 73 61 6d 65  48 49 3a 41 53 4c 26 38  |:LDAsameHI:ASL&8|
000009e0  30 3a 52 4f 4c 20 41 3a  43 4c 43 3a 41 44 43 23  |0:ROL A:CLC:ADC#|
000009f0  26 32 36 3a 53 54 41 26  38 31 3a 54 59 41 3a 50  |&26:STA&81:TYA:P|
00000a00  48 41 3a 4c 44 59 23 31  3a 53 54 41 28 26 38 30  |HA:LDY#1:STA(&80|
00000a10  29 2c 59 3a 44 45 59 3a  54 58 41 3a 53 54 41 28  |),Y:DEY:TXA:STA(|
00000a20  26 38 30 29 2c 59 3a 50  4c 41 3a 54 41 59 3a 52  |&80),Y:PLA:TAY:R|
00000a30  54 53 0d 01 22 74 2e 72  65 61 64 73 61 6d 65 20  |TS.."t.readsame |
00000a40  4c 44 41 73 61 6d 65 4c  4f 3a 53 54 41 26 38 30  |LDAsameLO:STA&80|
00000a50  3a 4c 44 41 73 61 6d 65  48 49 3a 41 53 4c 26 38  |:LDAsameHI:ASL&8|
00000a60  30 3a 52 4f 4c 20 41 3a  43 4c 43 3a 41 44 43 23  |0:ROL A:CLC:ADC#|
00000a70  26 32 36 3a 53 54 41 26  38 31 3a 4c 44 59 23 30  |&26:STA&81:LDY#0|
00000a80  3a 4c 44 41 28 26 38 30  29 2c 59 3a 54 41 58 3a  |:LDA(&80),Y:TAX:|
00000a90  49 4e 59 3a 4c 44 41 28  26 38 30 29 2c 59 3a 54  |INY:LDA(&80),Y:T|
00000aa0  41 59 3a 52 54 53 0d 01  2c 5c 2e 77 72 69 74 65  |AY:RTS..,\.write|
00000ab0  63 6f 6c 20 4c 44 41 78  4c 4f 3a 53 54 41 26 38  |col LDAxLO:STA&8|
00000ac0  30 3a 4c 44 41 78 48 49  3a 43 4c 43 3a 41 44 43  |0:LDAxHI:CLC:ADC|
00000ad0  23 26 32 42 3a 53 54 41  26 38 31 3a 53 54 59 26  |#&2B:STA&81:STY&|
00000ae0  38 33 3a 54 58 41 3a 4c  44 59 23 30 3a 53 54 41  |83:TXA:LDY#0:STA|
00000af0  28 26 38 30 29 2c 59 3a  4c 44 59 26 38 33 3a 52  |(&80),Y:LDY&83:R|
00000b00  54 53 0d 01 36 5f 2e 72  65 61 64 63 6f 6c 20 4c  |TS..6_.readcol L|
00000b10  44 41 63 6f 6c 4c 4f 3a  53 54 41 26 38 30 3a 4c  |DAcolLO:STA&80:L|
00000b20  44 41 63 6f 6c 48 49 3a  43 4c 43 3a 41 44 43 23  |DAcolHI:CLC:ADC#|
00000b30  26 32 42 3a 53 54 41 26  38 31 3a 53 54 59 26 38  |&2B:STA&81:STY&8|
00000b40  33 3a 4c 44 59 23 30 3a  4c 44 41 28 26 38 30 29  |3:LDY#0:LDA(&80)|
00000b50  2c 59 3a 54 41 58 3a 4c  44 59 26 38 33 3a 52 54  |,Y:TAX:LDY&83:RT|
00000b60  53 0d 01 40 c9 20 2e 73  68 6f 77 20 41 53 4c 77  |S..@. .show ASLw|
00000b70  69 64 74 68 4c 4f 3a 52  4f 4c 77 69 64 74 68 48  |idthLO:ROLwidthH|
00000b80  49 3a 4c 44 41 23 6d 6f  64 65 3a 43 4d 50 23 34  |I:LDA#mode:CMP#4|
00000b90  3a 42 4e 45 64 68 65 69  67 68 74 3a 41 53 4c 77  |:BNEdheight:ASLw|
00000ba0  69 64 74 68 4c 4f 3a 52  4f 4c 77 69 64 74 68 48  |idthLO:ROLwidthH|
00000bb0  49 3a 2e 64 68 65 69 67  68 74 20 4c 44 58 68 65  |I:.dheight LDXhe|
00000bc0  69 67 68 74 4c 4f 3a 44  45 58 3a 53 54 58 68 65  |ightLO:DEX:STXhe|
00000bd0  69 67 68 74 4c 4f 3a 43  50 58 23 26 46 46 3a 42  |ightLO:CPX#&FF:B|
00000be0  4e 45 63 6f 6e 74 32 3a  44 45 43 68 65 69 67 68  |NEcont2:DECheigh|
00000bf0  74 48 49 3a 2e 63 6f 6e  74 32 20 41 53 4c 68 65  |tHI:.cont2 ASLhe|
00000c00  69 67 68 74 4c 4f 3a 52  4f 4c 68 65 69 67 68 74  |ightLO:ROLheight|
00000c10  48 49 3a 41 53 4c 68 65  69 67 68 74 4c 4f 3a 52  |HI:ASLheightLO:R|
00000c20  4f 4c 68 65 69 67 68 74  48 49 0d 01 4a 56 4c 44  |OLheightHI..JVLD|
00000c30  59 23 30 3a 53 54 59 79  48 49 3a 53 54 59 79 4c  |Y#0:STYyHI:STYyL|
00000c40  4f 3a 4c 44 41 23 26 38  30 3a 53 54 41 26 38 38  |O:LDA#&80:STA&88|
00000c50  3a 4c 44 41 23 6d 65 6d  74 6f 70 3a 53 54 41 26  |:LDA#memtop:STA&|
00000c60  38 39 3a 2e 70 6c 6f 74  6c 69 6e 65 20 4c 44 41  |89:.plotline LDA|
00000c70  23 30 3a 53 54 41 78 4c  4f 3a 53 54 41 78 48 49  |#0:STAxLO:STAxHI|
00000c80  0d 01 54 be 2e 70 6c 6f  74 6c 6f 6f 70 20 4c 44  |..T..plotloop LD|
00000c90  41 28 26 38 38 29 2c 59  3a 4c 53 52 20 41 3a 53  |A(&88),Y:LSR A:S|
00000ca0  54 41 28 26 38 38 29 2c  59 3a 42 43 43 6e 65 78  |TA(&88),Y:BCCnex|
00000cb0  74 70 6c 6f 74 3a 4c 44  58 23 34 3a 2e 64 72 61  |tplot:LDX#4:.dra|
00000cc0  77 20 4c 44 41 23 32 35  3a 4a 53 52 26 46 46 45  |w LDA#25:JSR&FFE|
00000cd0  45 3a 54 58 41 3a 4a 53  52 26 46 46 45 45 3a 4c  |E:TXA:JSR&FFEE:L|
00000ce0  44 41 78 4c 4f 3a 4a 53  52 26 46 46 45 45 3a 4c  |DAxLO:JSR&FFEE:L|
00000cf0  44 41 78 48 49 3a 4a 53  52 26 46 46 45 45 3a 4c  |DAxHI:JSR&FFEE:L|
00000d00  44 41 79 4c 4f 3a 4a 53  52 26 46 46 45 45 3a 4c  |DAyLO:JSR&FFEE:L|
00000d10  44 41 79 48 49 3a 4a 53  52 26 46 46 45 45 3a 43  |DAyHI:JSR&FFEE:C|
00000d20  50 58 23 35 3a 42 45 51  6e 65 78 74 70 6c 6f 74  |PX#5:BEQnextplot|
00000d30  3a 4c 44 58 23 35 3a 4a  4d 50 64 72 61 77 0d 01  |:LDX#5:JMPdraw..|
00000d40  5e d8 20 2e 6e 65 78 74  70 6c 6f 74 20 49 4e 43  |^. .nextplot INC|
00000d50  63 6f 75 6e 74 65 72 3a  4c 44 41 63 6f 75 6e 74  |counter:LDAcount|
00000d60  65 72 3a 43 4d 50 23 38  3a 42 4e 45 6e 65 78 74  |er:CMP#8:BNEnext|
00000d70  78 3a 4c 44 41 23 30 3a  53 54 41 63 6f 75 6e 74  |x:LDA#0:STAcount|
00000d80  65 72 3a 44 45 43 26 38  38 3a 4c 44 41 26 38 38  |er:DEC&88:LDA&88|
00000d90  3a 43 4d 50 23 26 46 46  3a 42 4e 45 6e 65 78 74  |:CMP#&FF:BNEnext|
00000da0  78 3a 44 45 43 26 38 39  3a 2e 6e 65 78 74 78 20  |x:DEC&89:.nextx |
00000db0  4c 44 41 78 4c 4f 3a 43  4c 43 3a 41 44 43 23 70  |LDAxLO:CLC:ADC#p|
00000dc0  69 78 65 6c 73 3a 53 54  41 78 4c 4f 3a 42 43 43  |ixels:STAxLO:BCC|
00000dd0  63 68 65 63 6b 77 3a 49  4e 43 78 48 49 3a 2e 63  |checkw:INCxHI:.c|
00000de0  68 65 63 6b 77 20 4c 44  41 78 48 49 3a 43 4d 50  |heckw LDAxHI:CMP|
00000df0  77 69 64 74 68 48 49 3a  42 43 43 70 6c 6f 74 6c  |widthHI:BCCplotl|
00000e00  6f 6f 70 3a 4c 44 41 78  4c 4f 3a 42 43 43 70 6c  |oop:LDAxLO:BCCpl|
00000e10  6f 74 6c 6f 6f 70 0d 01  68 8c 4c 44 41 79 4c 4f  |otloop..h.LDAyLO|
00000e20  3a 43 4c 43 3a 41 44 43  23 34 3a 53 54 41 79 4c  |:CLC:ADC#4:STAyL|
00000e30  4f 3a 42 43 43 63 68 65  63 6b 65 6e 64 3a 49 4e  |O:BCCcheckend:IN|
00000e40  43 79 48 49 3a 2e 63 68  65 63 6b 65 6e 64 20 43  |CyHI:.checkend C|
00000e50  4d 50 68 65 69 67 68 74  4c 4f 3a 42 4e 45 70 6c  |MPheightLO:BNEpl|
00000e60  6f 74 6c 69 6e 65 32 3a  4c 44 41 79 48 49 3a 43  |otline2:LDAyHI:C|
00000e70  4d 50 68 65 69 67 68 74  48 49 3a 42 4e 45 70 6c  |MPheightHI:BNEpl|
00000e80  6f 74 6c 69 6e 65 32 3a  52 54 53 3a 2e 70 6c 6f  |otline2:RTS:.plo|
00000e90  74 6c 69 6e 65 32 20 4a  4d 50 70 6c 6f 74 6c 69  |tline2 JMPplotli|
00000ea0  6e 65 0d 01 72 d3 2e 78  4c 4f 20 45 51 55 42 30  |ne..r..xLO EQUB0|
00000eb0  3a 2e 78 48 49 20 45 51  55 42 30 3a 2e 79 4c 4f  |:.xHI EQUB0:.yLO|
00000ec0  20 45 51 55 42 30 3a 2e  79 48 49 20 45 51 55 42  | EQUB0:.yHI EQUB|
00000ed0  30 3a 2e 73 61 6d 65 4c  4f 20 45 51 55 42 30 3a  |0:.sameLO EQUB0:|
00000ee0  2e 73 61 6d 65 48 49 20  45 51 55 42 30 3a 2e 63  |.sameHI EQUB0:.c|
00000ef0  6f 6c 4c 4f 20 45 51 55  42 30 3a 2e 63 6f 6c 48  |olLO EQUB0:.colH|
00000f00  49 20 45 51 55 42 30 3a  2e 77 69 64 74 68 4c 4f  |I EQUB0:.widthLO|
00000f10  20 45 51 55 42 30 3a 2e  77 69 64 74 68 48 49 20  | EQUB0:.widthHI |
00000f20  45 51 55 42 30 3a 2e 68  65 69 67 68 74 4c 4f 20  |EQUB0:.heightLO |
00000f30  45 51 55 42 30 3a 2e 68  65 69 67 68 74 48 49 20  |EQUB0:.heightHI |
00000f40  45 51 55 42 30 3a 2e 73  65 70 4c 4f 20 45 51 55  |EQUB0:.sepLO EQU|
00000f50  42 30 3a 2e 73 65 70 48  49 20 45 51 55 42 30 3a  |B0:.sepHI EQUB0:|
00000f60  2e 69 4c 4f 20 45 51 55  42 30 3a 2e 69 48 49 20  |.iLO EQUB0:.iHI |
00000f70  45 51 55 42 30 0d 01 7c  4a 2e 6a 4c 4f 20 45 51  |EQUB0..|J.jLO EQ|
00000f80  55 42 30 3a 2e 6a 48 49  20 45 51 55 42 30 3a 2e  |UB0:.jHI EQUB0:.|
00000f90  73 4c 4f 20 45 51 55 42  30 3a 2e 73 48 49 20 45  |sLO EQUB0:.sHI E|
00000fa0  51 55 42 30 3a 2e 62 79  74 65 20 45 51 55 42 30  |QUB0:.byte EQUB0|
00000fb0  3a 2e 63 6f 75 6e 74 65  72 20 45 51 55 42 30 0d  |:.counter EQUB0.|
00000fc0  01 86 5a 2e 73 68 61 70  65 20 4c 44 41 78 4c 4f  |..Z.shape LDAxLO|
00000fd0  3a 53 54 41 26 37 30 3a  4c 44 41 78 48 49 3a 53  |:STA&70:LDAxHI:S|
00000fe0  54 41 26 37 31 3a 41 53  4c 26 37 30 3a 52 4f 4c  |TA&71:ASL&70:ROL|
00000ff0  26 37 31 3a 4c 44 41 23  6d 6f 64 65 3a 43 4d 50  |&71:LDA#mode:CMP|
00001000  23 34 3a 42 4e 45 79 6d  75 6c 74 3a 41 53 4c 26  |#4:BNEymult:ASL&|
00001010  37 30 3a 52 4f 4c 26 37  31 0d 01 90 60 20 2e 79  |70:ROL&71...` .y|
00001020  6d 75 6c 74 20 4c 44 41  79 4c 4f 3a 53 54 41 26  |mult LDAyLO:STA&|
00001030  37 32 3a 4c 44 41 79 48  49 3a 53 54 41 26 37 33  |72:LDAyHI:STA&73|
00001040  3a 41 53 4c 26 37 32 3a  52 4f 4c 26 37 33 3a 41  |:ASL&72:ROL&73:A|
00001050  53 4c 26 37 32 3a 52 4f  4c 26 37 33 3a 4c 44 41  |SL&72:ROL&73:LDA|
00001060  23 39 3a 4c 44 58 23 26  37 30 3a 4c 44 59 23 30  |#9:LDX#&70:LDY#0|
00001070  3a 4a 53 52 26 46 46 46  31 0d 01 9a 7a 4c 44 41  |:JSR&FFF1...zLDA|
00001080  26 37 34 3a 41 53 4c 20  41 3a 54 41 59 3a 4c 44  |&74:ASL A:TAY:LD|
00001090  41 23 28 67 72 6f 75 6e  64 4c 4f 20 83 32 35 36  |A#(groundLO .256|
000010a0  29 3a 53 54 41 26 38 42  3a 4c 44 41 23 28 67 72  |):STA&8B:LDA#(gr|
000010b0  6f 75 6e 64 4c 4f 20 81  32 35 36 29 3a 53 54 41  |oundLO .256):STA|
000010c0  26 38 43 3a 4c 44 41 28  26 38 42 29 2c 59 3a 53  |&8C:LDA(&8B),Y:S|
000010d0  54 41 73 65 70 4c 4f 3a  49 4e 59 3a 4c 44 41 28  |TAsepLO:INY:LDA(|
000010e0  26 38 42 29 2c 59 3a 53  54 41 73 65 70 48 49 3a  |&8B),Y:STAsepHI:|
000010f0  52 54 53 0d 01 a4 41 2e  67 72 6f 75 6e 64 4c 4f  |RTS...A.groundLO|
00001100  20 45 51 55 42 30 3a 2e  67 72 6f 75 6e 64 48 49  | EQUB0:.groundHI|
00001110  20 45 51 55 42 30 3a 45  51 55 44 30 3a 45 51 55  | EQUB0:EQUD0:EQU|
00001120  44 30 3a 45 51 55 44 30  3a 45 51 55 57 30 3a 45  |D0:EQUD0:EQUW0:E|
00001130  51 55 42 30 0d 01 ae 05  5d 0d 01 b8 05 ed 0d 01  |QUB0....].......|
00001140  c2 20 20 21 77 69 64 74  68 4c 4f 3d 77 69 64 74  |.  !widthLO=widt|
00001150  68 2b 68 65 69 67 68 74  2a 36 35 35 33 36 0d 01  |h+height*65536..|
00001160  cc 22 20 65 79 65 67 61  70 3d a8 28 65 79 65 73  |." eyegap=.(eyes|
00001170  65 70 2f 31 33 36 2a 77  69 64 74 68 2b 2e 35 29  |ep/136*width+.5)|
00001180  0d 01 d6 7f 20 f1 27 22  45 6e 74 65 72 20 65 6c  |.... .'"Enter el|
00001190  65 76 61 74 69 6f 6e 20  6e 75 6d 62 65 72 20 66  |evation number f|
000011a0  6f 72 20 65 61 63 68 20  6c 6f 67 69 63 61 6c 20  |or each logical |
000011b0  20 63 6f 6c 6f 75 72 20  28 30 3d 62 61 63 6b 67  | colour (0=backg|
000011c0  72 6f 75 6e 64 2c 20 34  20 69 73 20 73 75 69 74  |round, 4 is suit|
000011d0  61 62 6c 65 20 66 6f 72  20 6d 6f 73 74 20 6f 62  |able for most ob|
000011e0  6a 65 63 74 73 2c 20 6f  6e 6c 79 20 69 6e 74 65  |jects, only inte|
000011f0  67 65 72 73 20 61 6c 6c  6f 77 65 64 29 22 27 0d  |gers allowed)"'.|
00001200  01 e0 93 e3 6f 62 6a 65  63 74 3d 30 20 b8 20 63  |....object=0 . c|
00001210  6f 6c 6f 75 72 73 2d 31  3a f1 22 20 20 20 43 6f  |olours-1:."   Co|
00001220  6c 6f 75 72 20 22 2b c3  28 6f 62 6a 65 63 74 29  |lour "+.(object)|
00001230  2b 22 3a 20 22 3b 3a e8  22 22 65 6c 65 76 3a 3f  |+": ";:.""elev:?|
00001240  28 67 72 6f 75 6e 64 4c  4f 2b 6f 62 6a 65 63 74  |(groundLO+object|
00001250  2a 32 29 3d 28 65 79 65  67 61 70 2d 65 6c 65 76  |*2)=(eyegap-elev|
00001260  29 20 83 32 35 36 3a 3f  28 67 72 6f 75 6e 64 4c  |) .256:?(groundL|
00001270  4f 2b 6f 62 6a 65 63 74  2a 32 2b 31 29 3d 28 65  |O+object*2+1)=(e|
00001280  79 65 67 61 70 2d 65 6c  65 76 29 20 81 32 35 36  |yegap-elev) .256|
00001290  3a ed 0d 01 ea 65 20 21  26 35 46 46 43 3d 72 61  |:....e !&5FFC=ra|
000012a0  6e 64 6f 6d 3a 21 26 35  46 46 38 3d 73 68 6f 77  |ndom:!&5FF8=show|
000012b0  3a 3f 26 35 46 46 37 3d  73 6d 6f 64 65 3a 3f 26  |:?&5FF7=smode:?&|
000012c0  35 46 46 36 3d 6d 6f 64  65 3a 24 26 35 46 45 30  |5FF6=mode:$&5FE0|
000012d0  3d 73 66 24 3a 24 26 35  46 44 30 3d 64 66 24 3a  |=sf$:$&5FD0=df$:|
000012e0  24 26 35 46 43 38 3d 61  64 64 24 3a 21 26 35 46  |$&5FC8=add$:!&5F|
000012f0  43 34 3d 63 6f 64 65 0d  01 f4 28 20 61 24 3d 22  |C4=code...( a$="|
00001300  44 45 4c 45 54 45 20 31  30 2c 36 30 30 22 2b bd  |DELETE 10,600"+.|
00001310  31 33 2b 22 52 55 4e 22  2b bd 36 2b bd 31 33 0d  |13+"RUN"+.6+.13.|
00001320  01 fe 3b 20 ef 20 32 31  3a e3 20 63 68 61 72 3d  |..; . 21:. char=|
00001330  31 20 b8 20 a9 28 61 24  29 3a ff 22 46 58 20 31  |1 . .(a$):."FX 1|
00001340  33 38 2c 30 2c 22 2b c3  28 97 28 c1 61 24 2c 63  |38,0,"+.(.(.a$,c|
00001350  68 61 72 2c 31 29 29 29  3a ed 0d 02 08 06 20 e0  |har,1))):..... .|
00001360  0d 02 12 16 20 f4 20 52  65 6c 6f 63 61 74 69 6f  |.... . Relocatio|
00001370  6e 20 63 6f 64 65 0d 02  1c 2e 20 d3 3d 26 35 38  |n code.... .=&58|
00001380  30 30 3a e3 70 61 73 73  3d 30 20 b8 20 32 20 88  |00:.pass=0 . 2 .|
00001390  20 32 3a 50 25 3d 26 35  38 30 30 3a 5b 4f 50 54  | 2:P%=&5800:[OPT|
000013a0  70 61 73 73 0d 02 26 cd  20 4c 44 59 23 30 3a 53  |pass..&. LDY#0:S|
000013b0  54 59 26 37 30 3a 53 54  59 26 37 32 3a 4c 44 41  |TY&70:STY&72:LDA|
000013c0  23 26 32 32 3a 53 45 43  3a 53 42 43 26 31 38 3a  |#&22:SEC:SBC&18:|
000013d0  53 54 41 26 37 34 3a 4c  44 41 26 31 38 3a 43 4d  |STA&74:LDA&18:CM|
000013e0  50 23 26 32 32 3a 42 43  43 61 64 64 3a 2e 73 75  |P#&22:BCCadd:.su|
000013f0  62 20 53 54 41 26 37 31  3a 4c 44 41 23 26 32 32  |b STA&71:LDA#&22|
00001400  3a 53 54 41 26 37 33 3a  2e 6d 6f 76 65 6c 6f 6f  |:STA&73:.moveloo|
00001410  70 31 20 4c 44 41 28 26  37 30 29 2c 59 3a 53 54  |p1 LDA(&70),Y:ST|
00001420  41 28 26 37 32 29 2c 59  3a 49 4e 59 3a 42 4e 45  |A(&72),Y:INY:BNE|
00001430  6d 6f 76 65 6c 6f 6f 70  31 3a 49 4e 43 26 37 31  |moveloop1:INC&71|
00001440  3a 49 4e 43 26 37 33 3a  4c 44 58 26 37 31 3a 44  |:INC&73:LDX&71:D|
00001450  45 58 3a 43 50 58 26 30  33 3a 42 43 43 6d 6f 76  |EX:CPX&03:BCCmov|
00001460  65 6c 6f 6f 70 31 3a 42  43 53 65 6e 64 6d 6f 76  |eloop1:BCSendmov|
00001470  65 0d 02 30 9a 20 2e 61  64 64 20 4c 44 41 26 30  |e..0. .add LDA&0|
00001480  33 3a 53 54 41 26 37 31  3a 43 4c 43 3a 41 44 43  |3:STA&71:CLC:ADC|
00001490  26 37 34 3a 53 54 41 26  37 33 3a 4c 44 41 23 30  |&74:STA&73:LDA#0|
000014a0  3a 4c 44 59 26 30 32 3a  2e 6d 6f 76 65 6c 6f 6f  |:LDY&02:.moveloo|
000014b0  70 32 20 4c 44 41 28 26  37 30 29 2c 59 3a 53 54  |p2 LDA(&70),Y:ST|
000014c0  41 28 26 37 32 29 2c 59  3a 44 45 59 3a 43 50 59  |A(&72),Y:DEY:CPY|
000014d0  23 26 46 46 3a 42 4e 45  6d 6f 76 65 6c 6f 6f 70  |#&FF:BNEmoveloop|
000014e0  32 3a 44 45 43 26 37 31  3a 44 45 43 26 37 33 3a  |2:DEC&71:DEC&73:|
000014f0  4c 44 41 26 37 33 3a 43  4d 50 23 26 32 31 3a 42  |LDA&73:CMP#&21:B|
00001500  43 53 6d 6f 76 65 6c 6f  6f 70 32 0d 02 3a 40 20  |CSmoveloop2..:@ |
00001510  2e 65 6e 64 6d 6f 76 65  20 4c 44 41 26 31 33 3a  |.endmove LDA&13:|
00001520  43 4c 43 3a 41 44 43 26  37 34 3a 53 54 41 26 31  |CLC:ADC&74:STA&1|
00001530  33 3a 53 54 41 26 30 31  3a 4c 44 41 23 26 32 32  |3:STA&01:LDA#&22|
00001540  3a 53 54 41 26 31 38 3a  52 54 53 0d 02 44 08 20  |:STA&18:RTS..D. |
00001550  5d 3a ed 0d 02 4e 37 20  ff 22 4b 45 59 20 30 22  |]:...N7 ."KEY 0"|
00001560  22 43 41 4c 4c 26 35 38  30 30 7c 4d 52 55 4e 7c  |"CALL&5800|MRUN||
00001570  46 7c 4d 22 22 22 3a ef  32 31 3a ff 22 46 58 20  |F|M""":.21:."FX |
00001580  31 35 33 2c 30 2c 31 32  38 22 0d 02 58 06 20 e0  |153,0,128"..X. .|
00001590  0d 02 62 64 72 61 6e 64  6f 6d 3d 21 26 35 46 46  |..bdrandom=!&5FF|
000015a0  43 3a 73 68 6f 77 3d 21  26 35 46 46 38 3a 73 6d  |C:show=!&5FF8:sm|
000015b0  6f 64 65 3d 3f 26 35 46  46 37 3a 6d 6f 64 65 3d  |ode=?&5FF7:mode=|
000015c0  3f 26 35 46 46 36 3a 73  66 24 3d 24 26 35 46 45  |?&5FF6:sf$=$&5FE|
000015d0  30 3a 64 66 24 3d 24 26  35 46 44 30 3a 61 64 64  |0:df$=$&5FD0:add|
000015e0  24 3d 24 26 35 46 43 38  3a 63 6f 64 65 3d 21 26  |$=$&5FC8:code=!&|
000015f0  35 46 43 34 0d 02 6c 2e  eb 73 6d 6f 64 65 3a d3  |5FC4..l..smode:.|
00001600  3d 26 32 36 30 30 3a ef  20 32 33 2c 31 2c 30 3b  |=&2600:. 23,1,0;|
00001610  30 3b 30 3b 30 3b 3a ff  22 4c 4f 2e 20 22 2b 73  |0;0;0;:."LO. "+s|
00001620  66 24 0d 02 76 09 d6 63  6f 64 65 0d 02 80 2f e7  |f$..v..code.../.|
00001630  3f 26 37 30 3d 31 20 8c  20 e5 8d 74 4a 42 20 8b  |?&70=1 . ..tJB .|
00001640  20 3f 26 37 31 3d b3 28  32 29 2d 31 3a d6 72 61  | ?&71=.(2)-1:.ra|
00001650  6e 64 6f 6d 3a e5 8d 74  40 42 0d 02 8a 46 20 e7  |ndom:..t@B...F .|
00001660  20 6d 6f 64 65 3d 30 20  8c 20 ff 22 53 41 2e 20  | mode=0 . ."SA. |
00001670  54 45 4d 50 20 32 44 38  30 20 37 44 38 30 22 3a  |TEMP 2D80 7D80":|
00001680  eb 30 3a ff 22 4c 4f 2e  20 54 45 4d 50 22 3a ff  |.0:."LO. TEMP":.|
00001690  22 44 45 4c 2e 20 54 45  4d 50 22 20 8b 20 eb 34  |"DEL. TEMP" . .4|
000016a0  0d 02 94 0a 20 d6 73 68  6f 77 0d 02 9e 1c 20 ff  |.... .show.... .|
000016b0  22 53 41 2e 20 22 2b 64  66 24 2b 61 64 64 24 2b  |"SA. "+df$+add$+|
000016c0  22 38 30 30 30 22 0d 02  a8 0a 20 e5 8d 74 68 42  |"8000".... ..thB|
000016d0  0d ff                                             |..|
000016d2