J �     Autostereogram Generator                  by M. Ford, June 1994
 � 6:�=&5FC8
& � �7,5)"Autostereogram Generator"
(/ � �0,10)"Filename of source picture? " sf$
2: � �0,11)"Mode of source picture (0,1,2,4,5) ? " smode
<@ � � �0,13)"Filename to save image under? " df$:� �(df$)<=10
F> � � �0,14)"Mode of image (0,4) ? " mode:� mode=0 � mode=4
P~ � �0,16)"Enter eye separation"'" (in mm for printout of width 136mm :       this should usually be about 20) ";:�""eyesep
Z{ � smode=0 � colours=2 � � smode=1 � colours=4 � � smode=2 � colours=16 � � smode=4 � colours=2 � � smode=5 � colours=4
di � mode=0 � width=640:add$=" 3000 ":memtop=&7D:pixels=2 � width=320:add$=" 5800 ":memtop=&55:pixels=4
nheight=256
x$�pass=0 � 2 � 2:P%=&900:[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
�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: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 ASLwidthLO:ROLwidthHI:LDA#mode:CMP#4:BNEdheight:ASLwidthLO:ROLwidthHI:.dheight LDXheightLO:DEX:STXheightLO:CPX#&FF:BNEcont2:DECheightHI:.cont2 ASLheightLO:ROLheightHI:ASLheightLO:ROLheightHI

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

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

J� .nextplot INCcounter:LDAcounter:CMP#8:BNEnextx:LDA#0:STAcounter:LDX&88:DEX:STX&88:CPX#&FF:BNEnextx:DEC&89:.nextx LDAxLO:CLC:ADC#pixels:STAxLO:BCCcheckw:INCxHI:.checkw LDAxHI:CMPwidthHI:BCCplotloop:LDAxLO:BCCplotloop

T�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

hJ.jLO EQUB0:.jHI EQUB0:.sLO EQUB0:.sHI EQUB0:.byte EQUB0:.counter EQUB0

rZ.shape LDAxLO:STA&70:LDAxHI:STA&71:ASL&70:ROL&71:]:� mode=4 � [OPTpass:ASL&70:ROL&71:]

|b [OPTpass: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=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:�

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

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

�; � 21:� char=1 � �(a$):�"FX 138,0,"+�(�(�a$,char,1))):�

� �
Xrandom=!&5FFC:show=!&5FF8:smode=?&5FF7:mode=?&5FF6:sf$=$&5FE0:df$=$&5FD0:add$=$&5FC8
.�smode:�=&2000:� 23,1,0;0;0;0;:�"LO. "+sf$
	�&900
&/�?&70=1 � �TpB � ?&71=�(2)-1:�random:�TfB
0F � mode=0 � �"SA. TEMP 2D80 7D80":�0:�"LO. TEMP":�"DEL. TEMP" � �4
:
 �show
D �"SA. "+df$+add$+"8000"
N
 �DNB
�

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 38 0d 00 1e 26 20 f1  | 6:.=&5FC8...& .|
00000060  20 8a 37 2c 35 29 22 41  75 74 6f 73 74 65 72 65  | .7,5)"Autostere|
00000070  6f 67 72 61 6d 20 47 65  6e 65 72 61 74 6f 72 22  |ogram Generator"|
00000080  0d 00 28 2f 20 e8 20 8a  30 2c 31 30 29 22 46 69  |..(/ . .0,10)"Fi|
00000090  6c 65 6e 61 6d 65 20 6f  66 20 73 6f 75 72 63 65  |lename of source|
000000a0  20 70 69 63 74 75 72 65  3f 20 22 20 73 66 24 0d  | picture? " sf$.|
000000b0  00 32 3a 20 e8 20 8a 30  2c 31 31 29 22 4d 6f 64  |.2: . .0,11)"Mod|
000000c0  65 20 6f 66 20 73 6f 75  72 63 65 20 70 69 63 74  |e of source pict|
000000d0  75 72 65 20 28 30 2c 31  2c 32 2c 34 2c 35 29 20  |ure (0,1,2,4,5) |
000000e0  3f 20 22 20 73 6d 6f 64  65 0d 00 3c 40 20 f5 20  |? " smode..<@ . |
000000f0  e8 20 8a 30 2c 31 33 29  22 46 69 6c 65 6e 61 6d  |. .0,13)"Filenam|
00000100  65 20 74 6f 20 73 61 76  65 20 69 6d 61 67 65 20  |e to save image |
00000110  75 6e 64 65 72 3f 20 22  20 64 66 24 3a fd 20 a9  |under? " df$:. .|
00000120  28 64 66 24 29 3c 3d 31  30 0d 00 46 3e 20 f5 20  |(df$)<=10..F> . |
00000130  e8 20 8a 30 2c 31 34 29  22 4d 6f 64 65 20 6f 66  |. .0,14)"Mode of|
00000140  20 69 6d 61 67 65 20 28  30 2c 34 29 20 3f 20 22  | image (0,4) ? "|
00000150  20 6d 6f 64 65 3a fd 20  6d 6f 64 65 3d 30 20 84  | mode:. mode=0 .|
00000160  20 6d 6f 64 65 3d 34 0d  00 50 7e 20 f1 20 8a 30  | mode=4..P~ . .0|
00000170  2c 31 36 29 22 45 6e 74  65 72 20 65 79 65 20 73  |,16)"Enter eye s|
00000180  65 70 61 72 61 74 69 6f  6e 22 27 22 20 28 69 6e  |eparation"'" (in|
00000190  20 6d 6d 20 66 6f 72 20  70 72 69 6e 74 6f 75 74  | mm for printout|
000001a0  20 6f 66 20 77 69 64 74  68 20 31 33 36 6d 6d 20  | of width 136mm |
000001b0  3a 20 20 20 20 20 20 20  74 68 69 73 20 73 68 6f  |:       this sho|
000001c0  75 6c 64 20 75 73 75 61  6c 6c 79 20 62 65 20 61  |uld usually be a|
000001d0  62 6f 75 74 20 32 30 29  20 22 3b 3a e8 22 22 65  |bout 20) ";:.""e|
000001e0  79 65 73 65 70 0d 00 5a  7b 20 e7 20 73 6d 6f 64  |yesep..Z{ . smod|
000001f0  65 3d 30 20 8c 20 63 6f  6c 6f 75 72 73 3d 32 20  |e=0 . colours=2 |
00000200  8b 20 e7 20 73 6d 6f 64  65 3d 31 20 8c 20 63 6f  |. . smode=1 . co|
00000210  6c 6f 75 72 73 3d 34 20  8b 20 e7 20 73 6d 6f 64  |lours=4 . . smod|
00000220  65 3d 32 20 8c 20 63 6f  6c 6f 75 72 73 3d 31 36  |e=2 . colours=16|
00000230  20 8b 20 e7 20 73 6d 6f  64 65 3d 34 20 8c 20 63  | . . smode=4 . c|
00000240  6f 6c 6f 75 72 73 3d 32  20 8b 20 e7 20 73 6d 6f  |olours=2 . . smo|
00000250  64 65 3d 35 20 8c 20 63  6f 6c 6f 75 72 73 3d 34  |de=5 . colours=4|
00000260  0d 00 64 69 20 e7 20 6d  6f 64 65 3d 30 20 8c 20  |..di . mode=0 . |
00000270  77 69 64 74 68 3d 36 34  30 3a 61 64 64 24 3d 22  |width=640:add$="|
00000280  20 33 30 30 30 20 22 3a  6d 65 6d 74 6f 70 3d 26  | 3000 ":memtop=&|
00000290  37 44 3a 70 69 78 65 6c  73 3d 32 20 8b 20 77 69  |7D:pixels=2 . wi|
000002a0  64 74 68 3d 33 32 30 3a  61 64 64 24 3d 22 20 35  |dth=320:add$=" 5|
000002b0  38 30 30 20 22 3a 6d 65  6d 74 6f 70 3d 26 35 35  |800 ":memtop=&55|
000002c0  3a 70 69 78 65 6c 73 3d  34 0d 00 6e 0e 68 65 69  |:pixels=4..n.hei|
000002d0  67 68 74 3d 32 35 36 0d  00 78 24 e3 70 61 73 73  |ght=256..x$.pass|
000002e0  3d 30 20 b8 20 32 20 88  20 32 3a 50 25 3d 26 39  |=0 . 2 . 2:P%=&9|
000002f0  30 30 3a 5b 4f 50 54 70  61 73 73 0d 00 82 e0 4c  |00:[OPTpass....L|
00000300  44 41 68 65 69 67 68 74  4c 4f 3a 53 54 41 79 4c  |DAheightLO:STAyL|
00000310  4f 3a 4c 44 41 68 65 69  67 68 74 48 49 3a 53 54  |O:LDAheightHI:ST|
00000320  41 79 48 49 3a 4c 44 41  79 4c 4f 3a 53 45 43 3a  |AyHI:LDAyLO:SEC:|
00000330  53 42 43 23 31 3a 53 54  41 79 4c 4f 3a 42 43 53  |SBC#1:STAyLO:BCS|
00000340  63 6f 6e 74 3a 44 45 43  79 48 49 3a 2e 63 6f 6e  |cont:DECyHI:.con|
00000350  74 20 4c 44 41 23 26 38  30 3a 53 54 41 26 38 38  |t LDA#&80:STA&88|
00000360  3a 4c 44 41 23 26 32 44  3a 53 54 41 26 38 39 3a  |:LDA#&2D:STA&89:|
00000370  4c 44 41 23 26 32 30 3a  53 54 41 26 37 31 3a 4c  |LDA#&20:STA&71:L|
00000380  44 59 23 30 3a 53 54 59  26 37 30 3a 4c 44 41 23  |DY#0:STY&70:LDA#|
00000390  30 3a 2e 63 6c 65 61 72  6c 6f 6f 70 20 53 54 41  |0:.clearloop STA|
000003a0  28 26 37 30 29 2c 59 3a  49 4e 59 3a 42 4e 45 63  |(&70),Y:INY:BNEc|
000003b0  6c 65 61 72 6c 6f 6f 70  3a 49 4e 43 26 37 31 3a  |learloop:INC&71:|
000003c0  4c 44 58 26 37 31 3a 43  50 58 23 26 33 30 3a 42  |LDX&71:CPX#&30:B|
000003d0  4e 45 63 6c 65 61 72 6c  6f 6f 70 0d 00 8c 34 2e  |NEclearloop...4.|
000003e0  6e 65 77 6c 69 6e 65 20  4c 44 41 23 30 3a 53 54  |newline LDA#0:ST|
000003f0  41 78 4c 4f 3a 53 54 41  78 48 49 3a 53 54 41 73  |AxLO:STAxHI:STAs|
00000400  61 6d 65 4c 4f 3a 53 54  41 73 61 6d 65 48 49 0d  |ameLO:STAsameHI.|
00000410  00 96 71 4c 44 58 23 30  3a 4c 44 59 23 30 3a 2e  |..qLDX#0:LDY#0:.|
00000420  73 61 6d 65 6c 6f 6f 70  20 4a 53 52 77 72 69 74  |sameloop JSRwrit|
00000430  65 73 61 6d 65 3a 49 4e  58 3a 49 4e 43 73 61 6d  |esame:INX:INCsam|
00000440  65 4c 4f 3a 42 4e 45 73  61 6d 65 6c 6f 6f 70 3a  |eLO:BNEsameloop:|
00000450  49 4e 59 3a 49 4e 43 73  61 6d 65 48 49 3a 43 50  |INY:INCsameHI:CP|
00000460  59 77 69 64 74 68 48 49  3a 42 43 43 73 61 6d 65  |YwidthHI:BCCsame|
00000470  6c 6f 6f 70 3a 42 45 51  73 61 6d 65 6c 6f 6f 70  |loop:BEQsameloop|
00000480  0d 00 a0 14 2e 6e 65 77  64 6f 74 20 4a 53 52 73  |.....newdot JSRs|
00000490  68 61 70 65 0d 00 aa 9d  43 4c 43 3a 4c 44 41 73  |hape....CLC:LDAs|
000004a0  65 70 4c 4f 3a 80 79 4c  4f 3a 80 23 31 3a 41 44  |epLO:.yLO:.#1:AD|
000004b0  43 73 65 70 4c 4f 3a 53  54 41 26 37 30 3a 4c 44  |CsepLO:STA&70:LD|
000004c0  41 73 65 70 48 49 3a 80  79 48 49 3a 41 44 43 73  |AsepHI:.yHI:ADCs|
000004d0  65 70 48 49 3a 43 4c 43  3a 4c 53 52 20 41 3a 53  |epHI:CLC:LSR A:S|
000004e0  54 41 26 37 31 3a 52 4f  52 26 37 30 3a 4c 44 41  |TA&71:ROR&70:LDA|
000004f0  78 4c 4f 3a 53 45 43 3a  53 42 43 26 37 30 3a 53  |xLO:SEC:SBC&70:S|
00000500  54 41 69 4c 4f 3a 4c 44  41 78 48 49 3a 53 42 43  |TAiLO:LDAxHI:SBC|
00000510  26 37 31 3a 42 50 4c 69  4f 4b 3a 4a 4d 50 6e 65  |&71:BPLiOK:JMPne|
00000520  78 74 64 6f 74 3a 2e 69  4f 4b 20 53 54 41 69 48  |xtdot:.iOK STAiH|
00000530  49 0d 00 b4 86 4c 44 41  69 4c 4f 3a 43 4c 43 3a  |I....LDAiLO:CLC:|
00000540  41 44 43 73 65 70 4c 4f  3a 53 54 41 6a 4c 4f 3a  |ADCsepLO:STAjLO:|
00000550  4c 44 41 69 48 49 3a 41  44 43 73 65 70 48 49 3a  |LDAiHI:ADCsepHI:|
00000560  53 54 41 6a 48 49 3a 43  4d 50 77 69 64 74 68 48  |STAjHI:CMPwidthH|
00000570  49 3a 42 43 43 6a 4f 4b  3a 42 4e 45 6e 65 78 74  |I:BCCjOK:BNEnext|
00000580  64 6f 74 42 3a 4c 44 41  6a 4c 4f 3a 43 4d 50 77  |dotB:LDAjLO:CMPw|
00000590  69 64 74 68 4c 4f 3a 42  43 43 6a 4f 4b 3a 2e 6e  |idthLO:BCCjOK:.n|
000005a0  65 78 74 64 6f 74 42 20  4a 4d 50 6e 65 78 74 64  |extdotB JMPnextd|
000005b0  6f 74 3a 2e 6a 4f 4b 0d  00 be b0 2e 73 61 6d 65  |ot:.jOK.....same|
000005c0  6c 6f 6f 70 32 20 4c 44  41 69 4c 4f 3a 53 54 41  |loop2 LDAiLO:STA|
000005d0  73 61 6d 65 4c 4f 3a 4c  44 41 69 48 49 3a 53 54  |sameLO:LDAiHI:ST|
000005e0  41 73 61 6d 65 48 49 3a  4a 53 52 72 65 61 64 73  |AsameHI:JSRreads|
000005f0  61 6d 65 3a 43 50 59 6a  48 49 3a 42 43 43 69 66  |ame:CPYjHI:BCCif|
00000600  41 3a 42 4e 45 69 66 42  3a 43 50 58 6a 4c 4f 3a  |A:BNEifB:CPXjLO:|
00000610  42 43 43 69 66 41 3a 42  45 51 69 66 41 3a 2e 69  |BCCifA:BEQifA:.i|
00000620  66 42 20 53 54 58 73 4c  4f 3a 53 54 59 73 48 49  |fB STXsLO:STYsHI|
00000630  3a 4c 44 58 6a 4c 4f 3a  4c 44 59 6a 48 49 3a 4a  |:LDXjLO:LDYjHI:J|
00000640  53 52 77 72 69 74 65 73  61 6d 65 3a 4c 44 41 73  |SRwritesame:LDAs|
00000650  4c 4f 3a 53 54 41 6a 4c  4f 3a 4c 44 41 73 48 49  |LO:STAjLO:LDAsHI|
00000660  3a 53 54 41 6a 48 49 0d  00 c8 6e 20 2e 69 66 41  |:STAjHI...n .ifA|
00000670  20 53 54 58 69 4c 4f 3a  53 54 59 69 48 49 3a 53  | STXiLO:STYiHI:S|
00000680  54 58 73 61 6d 65 4c 4f  3a 53 54 59 73 61 6d 65  |TXsameLO:STYsame|
00000690  48 49 3a 4c 44 58 6a 4c  4f 3a 4c 44 59 6a 48 49  |HI:LDXjLO:LDYjHI|
000006a0  3a 4a 53 52 77 72 69 74  65 73 61 6d 65 3a 43 50  |:JSRwritesame:CP|
000006b0  58 69 4c 4f 3a 42 4e 45  73 61 6d 65 6c 6f 6f 70  |XiLO:BNEsameloop|
000006c0  32 3a 43 50 59 69 48 49  3a 42 4e 45 73 61 6d 65  |2:CPYiHI:BNEsame|
000006d0  6c 6f 6f 70 32 0d 00 d2  78 2e 6e 65 78 74 64 6f  |loop2...x.nextdo|
000006e0  74 20 49 4e 43 78 4c 4f  3a 42 4e 45 63 68 65 63  |t INCxLO:BNEchec|
000006f0  6b 3a 49 4e 43 78 48 49  3a 2e 63 68 65 63 6b 20  |k:INCxHI:.check |
00000700  4c 44 41 78 48 49 3a 43  4d 50 77 69 64 74 68 48  |LDAxHI:CMPwidthH|
00000710  49 3a 42 43 43 6c 6f 6f  70 65 6e 64 3a 4c 44 41  |I:BCCloopend:LDA|
00000720  78 4c 4f 3a 43 4d 50 77  69 64 74 68 4c 4f 3a 42  |xLO:CMPwidthLO:B|
00000730  45 51 64 69 73 70 6c 6f  6f 70 3a 2e 6c 6f 6f 70  |EQdisploop:.loop|
00000740  65 6e 64 20 4a 4d 50 6e  65 77 64 6f 74 0d 00 dc  |end JMPnewdot...|
00000750  5c 2e 64 69 73 70 6c 6f  6f 70 20 4c 44 41 78 4c  |\.disploop LDAxL|
00000760  4f 3a 53 45 43 3a 53 42  43 23 31 3a 3a 53 54 41  |O:SEC:SBC#1::STA|
00000770  78 4c 4f 3a 42 43 53 63  68 65 63 6b 32 3a 44 45  |xLO:BCScheck2:DE|
00000780  43 78 48 49 3a 2e 63 68  65 63 6b 32 20 4c 44 41  |CxHI:.check2 LDA|
00000790  78 48 49 3a 42 50 4c 63  6f 6c 6f 75 72 3a 4a 4d  |xHI:BPLcolour:JM|
000007a0  50 6e 65 78 74 6c 69 6e  65 0d 00 e6 e1 2e 63 6f  |Pnextline.....co|
000007b0  6c 6f 75 72 20 53 54 41  73 61 6d 65 48 49 3a 4c  |lour STAsameHI:L|
000007c0  44 41 78 4c 4f 3a 53 54  41 73 61 6d 65 4c 4f 3a  |DAxLO:STAsameLO:|
000007d0  4a 53 52 72 65 61 64 73  61 6d 65 3a 43 50 58 78  |JSRreadsame:CPXx|
000007e0  4c 4f 3a 42 4e 45 73 61  6d 65 3a 43 50 59 78 48  |LO:BNEsame:CPYxH|
000007f0  49 3a 42 4e 45 73 61 6d  65 3a 4c 44 41 23 30 3a  |I:BNEsame:LDA#0:|
00000800  53 54 41 26 37 30 3a 52  54 53 3a 2e 72 61 6e 64  |STA&70:RTS:.rand|
00000810  6f 6d 20 4c 44 58 26 37  31 3a 4a 53 52 77 72 69  |om LDX&71:JSRwri|
00000820  74 65 63 6f 6c 3a 4a 4d  50 64 69 73 70 3a 2e 73  |tecol:JMPdisp:.s|
00000830  61 6d 65 20 4c 44 41 78  4c 4f 3a 53 54 41 73 61  |ame LDAxLO:STAsa|
00000840  6d 65 4c 4f 3a 4c 44 41  78 48 49 3a 53 54 41 73  |meLO:LDAxHI:STAs|
00000850  61 6d 65 48 49 3a 4a 53  52 72 65 61 64 73 61 6d  |ameHI:JSRreadsam|
00000860  65 3a 53 54 58 63 6f 6c  4c 4f 3a 53 54 59 63 6f  |e:STXcolLO:STYco|
00000870  6c 48 49 3a 4a 53 52 72  65 61 64 63 6f 6c 3a 4a  |lHI:JSRreadcol:J|
00000880  53 52 77 72 69 74 65 63  6f 6c 0d 00 f0 a1 2e 64  |SRwritecol.....d|
00000890  69 73 70 20 54 58 41 3a  43 4c 43 3a 42 45 51 73  |isp TXA:CLC:BEQs|
000008a0  74 6f 72 65 3a 53 45 43  3a 2e 73 74 6f 72 65 20  |tore:SEC:.store |
000008b0  52 4f 4c 62 79 74 65 3a  49 4e 43 63 6f 75 6e 74  |ROLbyte:INCcount|
000008c0  65 72 3a 4c 44 41 63 6f  75 6e 74 65 72 3a 43 4d  |er:LDAcounter:CM|
000008d0  50 23 38 3a 42 4e 45 64  69 73 70 6c 6f 6f 70 3a  |P#8:BNEdisploop:|
000008e0  4c 44 59 23 30 3a 53 54  59 63 6f 75 6e 74 65 72  |LDY#0:STYcounter|
000008f0  3a 49 4e 43 26 38 38 3a  42 4e 45 73 61 76 65 3a  |:INC&88:BNEsave:|
00000900  49 4e 43 26 38 39 3a 2e  73 61 76 65 20 4c 44 41  |INC&89:.save LDA|
00000910  62 79 74 65 3a 53 54 41  28 26 38 38 29 2c 59 3a  |byte:STA(&88),Y:|
00000920  4a 4d 50 64 69 73 70 6c  6f 6f 70 0d 00 fa 61 2e  |JMPdisploop...a.|
00000930  6e 65 78 74 6c 69 6e 65  20 4c 44 41 79 4c 4f 3a  |nextline LDAyLO:|
00000940  53 45 43 3a 53 42 43 23  31 3a 53 54 41 79 4c 4f  |SEC:SBC#1:STAyLO|
00000950  3a 42 43 53 61 67 61 69  6e 3a 44 45 43 79 48 49  |:BCSagain:DECyHI|
00000960  3a 42 50 4c 61 67 61 69  6e 3a 4c 44 41 23 31 3a  |:BPLagain:LDA#1:|
00000970  53 54 41 26 37 30 3a 52  54 53 3a 2e 61 67 61 69  |STA&70:RTS:.agai|
00000980  6e 20 4a 4d 50 6e 65 77  6c 69 6e 65 0d 01 04 90  |n JMPnewline....|
00000990  2e 77 72 69 74 65 73 61  6d 65 20 4c 44 41 73 61  |.writesame LDAsa|
000009a0  6d 65 4c 4f 3a 53 54 41  26 38 30 3a 4c 44 41 73  |meLO:STA&80:LDAs|
000009b0  61 6d 65 48 49 3a 53 54  41 26 38 31 3a 41 53 4c  |ameHI:STA&81:ASL|
000009c0  26 38 30 3a 52 4f 4c 26  38 31 3a 43 4c 43 3a 4c  |&80:ROL&81:CLC:L|
000009d0  44 41 23 26 32 30 3a 41  44 43 26 38 31 3a 53 54  |DA#&20:ADC&81:ST|
000009e0  41 26 38 31 3a 54 59 41  3a 50 48 41 3a 4c 44 59  |A&81:TYA:PHA:LDY|
000009f0  23 31 3a 53 54 41 28 26  38 30 29 2c 59 3a 44 45  |#1:STA(&80),Y:DE|
00000a00  59 3a 54 58 41 3a 53 54  41 28 26 38 30 29 2c 59  |Y:TXA:STA(&80),Y|
00000a10  3a 50 4c 41 3a 54 41 59  3a 52 54 53 0d 01 0e 83  |:PLA:TAY:RTS....|
00000a20  2e 72 65 61 64 73 61 6d  65 20 4c 44 41 73 61 6d  |.readsame LDAsam|
00000a30  65 4c 4f 3a 53 54 41 26  38 30 3a 4c 44 41 73 61  |eLO:STA&80:LDAsa|
00000a40  6d 65 48 49 3a 53 54 41  26 38 31 3a 41 53 4c 26  |meHI:STA&81:ASL&|
00000a50  38 30 3a 52 4f 4c 26 38  31 3a 43 4c 43 3a 4c 44  |80:ROL&81:CLC:LD|
00000a60  41 23 26 32 30 3a 41 44  43 26 38 31 3a 53 54 41  |A#&20:ADC&81:STA|
00000a70  26 38 31 3a 4c 44 59 23  30 3a 4c 44 41 28 26 38  |&81:LDY#0:LDA(&8|
00000a80  30 29 2c 59 3a 54 41 58  3a 49 4e 59 3a 4c 44 41  |0),Y:TAX:INY:LDA|
00000a90  28 26 38 30 29 2c 59 3a  54 41 59 3a 52 54 53 0d  |(&80),Y:TAY:RTS.|
00000aa0  01 18 5c 2e 77 72 69 74  65 63 6f 6c 20 4c 44 41  |..\.writecol LDA|
00000ab0  78 4c 4f 3a 53 54 41 26  38 30 3a 4c 44 41 78 48  |xLO:STA&80:LDAxH|
00000ac0  49 3a 43 4c 43 3a 41 44  43 23 26 32 38 3a 53 54  |I:CLC:ADC#&28:ST|
00000ad0  41 26 38 31 3a 53 54 59  26 38 33 3a 54 58 41 3a  |A&81:STY&83:TXA:|
00000ae0  4c 44 59 23 30 3a 53 54  41 28 26 38 30 29 2c 59  |LDY#0:STA(&80),Y|
00000af0  3a 4c 44 59 26 38 33 3a  52 54 53 0d 01 22 5f 2e  |:LDY&83:RTS.."_.|
00000b00  72 65 61 64 63 6f 6c 20  4c 44 41 63 6f 6c 4c 4f  |readcol LDAcolLO|
00000b10  3a 53 54 41 26 38 30 3a  4c 44 41 63 6f 6c 48 49  |:STA&80:LDAcolHI|
00000b20  3a 43 4c 43 3a 41 44 43  23 26 32 38 3a 53 54 41  |:CLC:ADC#&28:STA|
00000b30  26 38 31 3a 53 54 59 26  38 33 3a 4c 44 59 23 30  |&81:STY&83:LDY#0|
00000b40  3a 4c 44 41 28 26 38 30  29 2c 59 3a 54 41 58 3a  |:LDA(&80),Y:TAX:|
00000b50  4c 44 59 26 38 33 3a 52  54 53 0d 01 2c c9 20 2e  |LDY&83:RTS..,. .|
00000b60  73 68 6f 77 20 41 53 4c  77 69 64 74 68 4c 4f 3a  |show ASLwidthLO:|
00000b70  52 4f 4c 77 69 64 74 68  48 49 3a 4c 44 41 23 6d  |ROLwidthHI:LDA#m|
00000b80  6f 64 65 3a 43 4d 50 23  34 3a 42 4e 45 64 68 65  |ode:CMP#4:BNEdhe|
00000b90  69 67 68 74 3a 41 53 4c  77 69 64 74 68 4c 4f 3a  |ight:ASLwidthLO:|
00000ba0  52 4f 4c 77 69 64 74 68  48 49 3a 2e 64 68 65 69  |ROLwidthHI:.dhei|
00000bb0  67 68 74 20 4c 44 58 68  65 69 67 68 74 4c 4f 3a  |ght LDXheightLO:|
00000bc0  44 45 58 3a 53 54 58 68  65 69 67 68 74 4c 4f 3a  |DEX:STXheightLO:|
00000bd0  43 50 58 23 26 46 46 3a  42 4e 45 63 6f 6e 74 32  |CPX#&FF:BNEcont2|
00000be0  3a 44 45 43 68 65 69 67  68 74 48 49 3a 2e 63 6f  |:DECheightHI:.co|
00000bf0  6e 74 32 20 41 53 4c 68  65 69 67 68 74 4c 4f 3a  |nt2 ASLheightLO:|
00000c00  52 4f 4c 68 65 69 67 68  74 48 49 3a 41 53 4c 68  |ROLheightHI:ASLh|
00000c10  65 69 67 68 74 4c 4f 3a  52 4f 4c 68 65 69 67 68  |eightLO:ROLheigh|
00000c20  74 48 49 0d 01 36 56 4c  44 59 23 30 3a 53 54 59  |tHI..6VLDY#0:STY|
00000c30  79 48 49 3a 53 54 59 79  4c 4f 3a 4c 44 41 23 26  |yHI:STYyLO:LDA#&|
00000c40  38 30 3a 53 54 41 26 38  38 3a 4c 44 41 23 6d 65  |80:STA&88:LDA#me|
00000c50  6d 74 6f 70 3a 53 54 41  26 38 39 3a 2e 70 6c 6f  |mtop:STA&89:.plo|
00000c60  74 6c 69 6e 65 20 4c 44  41 23 30 3a 53 54 41 78  |tline LDA#0:STAx|
00000c70  4c 4f 3a 53 54 41 78 48  49 0d 01 40 be 2e 70 6c  |LO:STAxHI..@..pl|
00000c80  6f 74 6c 6f 6f 70 20 4c  44 41 28 26 38 38 29 2c  |otloop LDA(&88),|
00000c90  59 3a 4c 53 52 20 41 3a  53 54 41 28 26 38 38 29  |Y:LSR A:STA(&88)|
00000ca0  2c 59 3a 42 43 43 6e 65  78 74 70 6c 6f 74 3a 4c  |,Y:BCCnextplot:L|
00000cb0  44 58 23 34 3a 2e 64 72  61 77 20 4c 44 41 23 32  |DX#4:.draw LDA#2|
00000cc0  35 3a 4a 53 52 26 46 46  45 45 3a 54 58 41 3a 4a  |5:JSR&FFEE:TXA:J|
00000cd0  53 52 26 46 46 45 45 3a  4c 44 41 78 4c 4f 3a 4a  |SR&FFEE:LDAxLO:J|
00000ce0  53 52 26 46 46 45 45 3a  4c 44 41 78 48 49 3a 4a  |SR&FFEE:LDAxHI:J|
00000cf0  53 52 26 46 46 45 45 3a  4c 44 41 79 4c 4f 3a 4a  |SR&FFEE:LDAyLO:J|
00000d00  53 52 26 46 46 45 45 3a  4c 44 41 79 48 49 3a 4a  |SR&FFEE:LDAyHI:J|
00000d10  53 52 26 46 46 45 45 3a  43 50 58 23 35 3a 42 45  |SR&FFEE:CPX#5:BE|
00000d20  51 6e 65 78 74 70 6c 6f  74 3a 4c 44 58 23 35 3a  |Qnextplot:LDX#5:|
00000d30  4a 4d 50 64 72 61 77 0d  01 4a dc 20 2e 6e 65 78  |JMPdraw..J. .nex|
00000d40  74 70 6c 6f 74 20 49 4e  43 63 6f 75 6e 74 65 72  |tplot INCcounter|
00000d50  3a 4c 44 41 63 6f 75 6e  74 65 72 3a 43 4d 50 23  |:LDAcounter:CMP#|
00000d60  38 3a 42 4e 45 6e 65 78  74 78 3a 4c 44 41 23 30  |8:BNEnextx:LDA#0|
00000d70  3a 53 54 41 63 6f 75 6e  74 65 72 3a 4c 44 58 26  |:STAcounter:LDX&|
00000d80  38 38 3a 44 45 58 3a 53  54 58 26 38 38 3a 43 50  |88:DEX:STX&88:CP|
00000d90  58 23 26 46 46 3a 42 4e  45 6e 65 78 74 78 3a 44  |X#&FF:BNEnextx:D|
00000da0  45 43 26 38 39 3a 2e 6e  65 78 74 78 20 4c 44 41  |EC&89:.nextx LDA|
00000db0  78 4c 4f 3a 43 4c 43 3a  41 44 43 23 70 69 78 65  |xLO:CLC:ADC#pixe|
00000dc0  6c 73 3a 53 54 41 78 4c  4f 3a 42 43 43 63 68 65  |ls:STAxLO:BCCche|
00000dd0  63 6b 77 3a 49 4e 43 78  48 49 3a 2e 63 68 65 63  |ckw:INCxHI:.chec|
00000de0  6b 77 20 4c 44 41 78 48  49 3a 43 4d 50 77 69 64  |kw LDAxHI:CMPwid|
00000df0  74 68 48 49 3a 42 43 43  70 6c 6f 74 6c 6f 6f 70  |thHI:BCCplotloop|
00000e00  3a 4c 44 41 78 4c 4f 3a  42 43 43 70 6c 6f 74 6c  |:LDAxLO:BCCplotl|
00000e10  6f 6f 70 0d 01 54 8c 4c  44 41 79 4c 4f 3a 43 4c  |oop..T.LDAyLO:CL|
00000e20  43 3a 41 44 43 23 34 3a  53 54 41 79 4c 4f 3a 42  |C:ADC#4:STAyLO:B|
00000e30  43 43 63 68 65 63 6b 65  6e 64 3a 49 4e 43 79 48  |CCcheckend:INCyH|
00000e40  49 3a 2e 63 68 65 63 6b  65 6e 64 20 43 4d 50 68  |I:.checkend CMPh|
00000e50  65 69 67 68 74 4c 4f 3a  42 4e 45 70 6c 6f 74 6c  |eightLO:BNEplotl|
00000e60  69 6e 65 32 3a 4c 44 41  79 48 49 3a 43 4d 50 68  |ine2:LDAyHI:CMPh|
00000e70  65 69 67 68 74 48 49 3a  42 4e 45 70 6c 6f 74 6c  |eightHI:BNEplotl|
00000e80  69 6e 65 32 3a 52 54 53  3a 2e 70 6c 6f 74 6c 69  |ine2:RTS:.plotli|
00000e90  6e 65 32 20 4a 4d 50 70  6c 6f 74 6c 69 6e 65 0d  |ne2 JMPplotline.|
00000ea0  01 5e d3 2e 78 4c 4f 20  45 51 55 42 30 3a 2e 78  |.^..xLO EQUB0:.x|
00000eb0  48 49 20 45 51 55 42 30  3a 2e 79 4c 4f 20 45 51  |HI EQUB0:.yLO EQ|
00000ec0  55 42 30 3a 2e 79 48 49  20 45 51 55 42 30 3a 2e  |UB0:.yHI EQUB0:.|
00000ed0  73 61 6d 65 4c 4f 20 45  51 55 42 30 3a 2e 73 61  |sameLO EQUB0:.sa|
00000ee0  6d 65 48 49 20 45 51 55  42 30 3a 2e 63 6f 6c 4c  |meHI EQUB0:.colL|
00000ef0  4f 20 45 51 55 42 30 3a  2e 63 6f 6c 48 49 20 45  |O EQUB0:.colHI E|
00000f00  51 55 42 30 3a 2e 77 69  64 74 68 4c 4f 20 45 51  |QUB0:.widthLO EQ|
00000f10  55 42 30 3a 2e 77 69 64  74 68 48 49 20 45 51 55  |UB0:.widthHI EQU|
00000f20  42 30 3a 2e 68 65 69 67  68 74 4c 4f 20 45 51 55  |B0:.heightLO EQU|
00000f30  42 30 3a 2e 68 65 69 67  68 74 48 49 20 45 51 55  |B0:.heightHI EQU|
00000f40  42 30 3a 2e 73 65 70 4c  4f 20 45 51 55 42 30 3a  |B0:.sepLO EQUB0:|
00000f50  2e 73 65 70 48 49 20 45  51 55 42 30 3a 2e 69 4c  |.sepHI EQUB0:.iL|
00000f60  4f 20 45 51 55 42 30 3a  2e 69 48 49 20 45 51 55  |O EQUB0:.iHI EQU|
00000f70  42 30 0d 01 68 4a 2e 6a  4c 4f 20 45 51 55 42 30  |B0..hJ.jLO EQUB0|
00000f80  3a 2e 6a 48 49 20 45 51  55 42 30 3a 2e 73 4c 4f  |:.jHI EQUB0:.sLO|
00000f90  20 45 51 55 42 30 3a 2e  73 48 49 20 45 51 55 42  | EQUB0:.sHI EQUB|
00000fa0  30 3a 2e 62 79 74 65 20  45 51 55 42 30 3a 2e 63  |0:.byte EQUB0:.c|
00000fb0  6f 75 6e 74 65 72 20 45  51 55 42 30 0d 01 72 5a  |ounter EQUB0..rZ|
00000fc0  2e 73 68 61 70 65 20 4c  44 41 78 4c 4f 3a 53 54  |.shape LDAxLO:ST|
00000fd0  41 26 37 30 3a 4c 44 41  78 48 49 3a 53 54 41 26  |A&70:LDAxHI:STA&|
00000fe0  37 31 3a 41 53 4c 26 37  30 3a 52 4f 4c 26 37 31  |71:ASL&70:ROL&71|
00000ff0  3a 5d 3a e7 20 6d 6f 64  65 3d 34 20 8c 20 5b 4f  |:]:. mode=4 . [O|
00001000  50 54 70 61 73 73 3a 41  53 4c 26 37 30 3a 52 4f  |PTpass:ASL&70:RO|
00001010  4c 26 37 31 3a 5d 0d 01  7c 62 20 5b 4f 50 54 70  |L&71:]..|b [OPTp|
00001020  61 73 73 3a 4c 44 41 79  4c 4f 3a 53 54 41 26 37  |ass:LDAyLO:STA&7|
00001030  32 3a 4c 44 41 79 48 49  3a 53 54 41 26 37 33 3a  |2:LDAyHI:STA&73:|
00001040  41 53 4c 26 37 32 3a 52  4f 4c 26 37 33 3a 41 53  |ASL&72:ROL&73:AS|
00001050  4c 26 37 32 3a 52 4f 4c  26 37 33 3a 4c 44 41 23  |L&72:ROL&73:LDA#|
00001060  39 3a 4c 44 58 23 26 37  30 3a 4c 44 59 23 30 3a  |9:LDX#&70:LDY#0:|
00001070  4a 53 52 26 46 46 46 31  0d 01 86 8b 4c 44 41 26  |JSR&FFF1....LDA&|
00001080  37 34 3a 41 53 4c 20 41  3a 54 41 59 3a 4c 44 41  |74:ASL A:TAY:LDA|
00001090  23 28 67 72 6f 75 6e 64  4c 4f 20 83 32 35 36 29  |#(groundLO .256)|
000010a0  3a 53 54 41 26 38 42 3a  4c 44 41 23 28 67 72 6f  |:STA&8B:LDA#(gro|
000010b0  75 6e 64 4c 4f 20 81 32  35 36 29 3a 53 54 41 26  |undLO .256):STA&|
000010c0  38 43 3a 4c 44 41 28 26  38 42 29 2c 59 3a 53 54  |8C:LDA(&8B),Y:ST|
000010d0  41 73 65 70 4c 4f 3a 49  4e 59 3a 4c 44 41 28 26  |AsepLO:INY:LDA(&|
000010e0  38 42 29 2c 59 3a 53 54  41 73 65 70 48 49 3a 43  |8B),Y:STAsepHI:C|
000010f0  50 59 23 26 46 45 3a 42  45 51 65 72 72 6f 72 3a  |PY#&FE:BEQerror:|
00001100  52 54 53 0d 01 90 2d 2e  65 72 72 6f 72 20 42 52  |RTS...-.error BR|
00001110  4b 3a 45 51 55 42 30 3a  45 51 55 53 22 4f 75 74  |K:EQUB0:EQUS"Out|
00001120  73 69 64 65 20 77 69 6e  64 6f 77 22 3a 42 52 4b  |side window":BRK|
00001130  0d 01 9a 41 2e 67 72 6f  75 6e 64 4c 4f 20 45 51  |...A.groundLO EQ|
00001140  55 42 30 3a 2e 67 72 6f  75 6e 64 48 49 20 45 51  |UB0:.groundHI EQ|
00001150  55 42 30 3a 45 51 55 44  30 3a 45 51 55 44 30 3a  |UB0:EQUD0:EQUD0:|
00001160  45 51 55 44 30 3a 45 51  55 57 30 3a 45 51 55 42  |EQUD0:EQUW0:EQUB|
00001170  30 0d 01 a4 05 5d 0d 01  ae 05 ed 0d 01 b8 20 20  |0....]........  |
00001180  21 77 69 64 74 68 4c 4f  3d 77 69 64 74 68 2b 68  |!widthLO=width+h|
00001190  65 69 67 68 74 2a 36 35  35 33 36 0d 01 c2 22 20  |eight*65536..." |
000011a0  65 79 65 67 61 70 3d a8  28 65 79 65 73 65 70 2f  |eyegap=.(eyesep/|
000011b0  31 33 36 2a 77 69 64 74  68 2b 2e 35 29 0d 01 cc  |136*width+.5)...|
000011c0  7f 20 f1 27 22 45 6e 74  65 72 20 65 6c 65 76 61  |. .'"Enter eleva|
000011d0  74 69 6f 6e 20 6e 75 6d  62 65 72 20 66 6f 72 20  |tion number for |
000011e0  65 61 63 68 20 6c 6f 67  69 63 61 6c 20 20 63 6f  |each logical  co|
000011f0  6c 6f 75 72 20 28 30 3d  62 61 63 6b 67 72 6f 75  |lour (0=backgrou|
00001200  6e 64 2c 20 34 20 69 73  20 73 75 69 74 61 62 6c  |nd, 4 is suitabl|
00001210  65 20 66 6f 72 20 6d 6f  73 74 20 6f 62 6a 65 63  |e for most objec|
00001220  74 73 2c 20 6f 6e 6c 79  20 69 6e 74 65 67 65 72  |ts, only integer|
00001230  73 20 61 6c 6c 6f 77 65  64 29 22 27 0d 01 d6 93  |s allowed)"'....|
00001240  e3 6f 62 6a 65 63 74 3d  30 20 b8 20 63 6f 6c 6f  |.object=0 . colo|
00001250  75 72 73 2d 31 3a f1 22  20 20 20 43 6f 6c 6f 75  |urs-1:."   Colou|
00001260  72 20 22 2b c3 28 6f 62  6a 65 63 74 29 2b 22 3a  |r "+.(object)+":|
00001270  20 22 3b 3a e8 22 22 65  6c 65 76 3a 3f 28 67 72  | ";:.""elev:?(gr|
00001280  6f 75 6e 64 4c 4f 2b 6f  62 6a 65 63 74 2a 32 29  |oundLO+object*2)|
00001290  3d 28 65 79 65 67 61 70  2d 65 6c 65 76 29 20 83  |=(eyegap-elev) .|
000012a0  32 35 36 3a 3f 28 67 72  6f 75 6e 64 4c 4f 2b 6f  |256:?(groundLO+o|
000012b0  62 6a 65 63 74 2a 32 2b  31 29 3d 28 65 79 65 67  |bject*2+1)=(eyeg|
000012c0  61 70 2d 65 6c 65 76 29  20 81 32 35 36 3a ed 0d  |ap-elev) .256:..|
000012d0  01 e0 59 20 21 26 35 46  46 43 3d 72 61 6e 64 6f  |..Y !&5FFC=rando|
000012e0  6d 3a 21 26 35 46 46 38  3d 73 68 6f 77 3a 3f 26  |m:!&5FF8=show:?&|
000012f0  35 46 46 37 3d 73 6d 6f  64 65 3a 3f 26 35 46 46  |5FF7=smode:?&5FF|
00001300  36 3d 6d 6f 64 65 3a 24  26 35 46 45 30 3d 73 66  |6=mode:$&5FE0=sf|
00001310  24 3a 24 26 35 46 44 30  3d 64 66 24 3a 24 26 35  |$:$&5FD0=df$:$&5|
00001320  46 43 38 3d 61 64 64 24  0d 01 ea 28 20 61 24 3d  |FC8=add$...( a$=|
00001330  22 44 45 4c 45 54 45 20  31 30 2c 35 31 30 22 2b  |"DELETE 10,510"+|
00001340  bd 31 33 2b 22 52 55 4e  22 2b bd 36 2b bd 31 33  |.13+"RUN"+.6+.13|
00001350  0d 01 f4 3b 20 ef 20 32  31 3a e3 20 63 68 61 72  |...; . 21:. char|
00001360  3d 31 20 b8 20 a9 28 61  24 29 3a ff 22 46 58 20  |=1 . .(a$):."FX |
00001370  31 33 38 2c 30 2c 22 2b  c3 28 97 28 c1 61 24 2c  |138,0,"+.(.(.a$,|
00001380  63 68 61 72 2c 31 29 29  29 3a ed 0d 01 fe 06 20  |char,1))):..... |
00001390  e0 0d 02 08 58 72 61 6e  64 6f 6d 3d 21 26 35 46  |....Xrandom=!&5F|
000013a0  46 43 3a 73 68 6f 77 3d  21 26 35 46 46 38 3a 73  |FC:show=!&5FF8:s|
000013b0  6d 6f 64 65 3d 3f 26 35  46 46 37 3a 6d 6f 64 65  |mode=?&5FF7:mode|
000013c0  3d 3f 26 35 46 46 36 3a  73 66 24 3d 24 26 35 46  |=?&5FF6:sf$=$&5F|
000013d0  45 30 3a 64 66 24 3d 24  26 35 46 44 30 3a 61 64  |E0:df$=$&5FD0:ad|
000013e0  64 24 3d 24 26 35 46 43  38 0d 02 12 2e eb 73 6d  |d$=$&5FC8.....sm|
000013f0  6f 64 65 3a d3 3d 26 32  30 30 30 3a ef 20 32 33  |ode:.=&2000:. 23|
00001400  2c 31 2c 30 3b 30 3b 30  3b 30 3b 3a ff 22 4c 4f  |,1,0;0;0;0;:."LO|
00001410  2e 20 22 2b 73 66 24 0d  02 1c 09 d6 26 39 30 30  |. "+sf$.....&900|
00001420  0d 02 26 2f e7 3f 26 37  30 3d 31 20 8c 20 e5 8d  |..&/.?&70=1 . ..|
00001430  54 70 42 20 8b 20 3f 26  37 31 3d b3 28 32 29 2d  |TpB . ?&71=.(2)-|
00001440  31 3a d6 72 61 6e 64 6f  6d 3a e5 8d 54 66 42 0d  |1:.random:..TfB.|
00001450  02 30 46 20 e7 20 6d 6f  64 65 3d 30 20 8c 20 ff  |.0F . mode=0 . .|
00001460  22 53 41 2e 20 54 45 4d  50 20 32 44 38 30 20 37  |"SA. TEMP 2D80 7|
00001470  44 38 30 22 3a eb 30 3a  ff 22 4c 4f 2e 20 54 45  |D80":.0:."LO. TE|
00001480  4d 50 22 3a ff 22 44 45  4c 2e 20 54 45 4d 50 22  |MP":."DEL. TEMP"|
00001490  20 8b 20 eb 34 0d 02 3a  0a 20 d6 73 68 6f 77 0d  | . .4..:. .show.|
000014a0  02 44 1c 20 ff 22 53 41  2e 20 22 2b 64 66 24 2b  |.D. ."SA. "+df$+|
000014b0  61 64 64 24 2b 22 38 30  30 30 22 0d 02 4e 0a 20  |add$+"8000"..N. |
000014c0  e5 8d 44 4e 42 0d ff                              |..DNB..|
000014c7