J �     Autostereogram Generator                  by M. Ford, June 1994
 � 6:�=&5FC3
 � �<>&2200 � � �TpB
(8 � �8,1)"Autostereogram Generator"'�14)"by  M. Ford"
2 � 28,0,24,39,5
<( �"Filename of source picture? " sf$
F3 �"Mode of source picture (0,1,2,4,5) ? " smode
P; �:� �"Filename to save image under? " df$:� �(df$)<=10
Z7 � �"Mode of image (0,4) ? " mode:� mode=0 � mode=4
dx �'"Enter eye separation"'" (in mm for printout of width 135mm :       this should usually be about 20) ";:�""eyesep
n{ � smode=0 � colours=2 � � smode=1 � colours=4 � � smode=2 � colours=16 � � smode=4 � colours=2 � � smode=5 � colours=4
xi � mode=0 � width=640:add$=" 3000 ":memtop=&7D:pixels=2 � width=320:add$=" 5800 ":memtop=&55:pixels=4
� height=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
�5 .newline LDA#0:STAxLO:STAxHI:STAsameLO:STAsameHI
�r LDX#0:LDY#0:.sameloop JSRwritesame:INX:INCsameLO:BNEsameloop:INY:INCsameHI:CPYwidthHI:BCCsameloop:BEQsameloop
� .newdot JSRshape
Ȓ CLC:LDAsepLO:�yLO:�#1:ADCsepLO:STA&70:LDAsepHI:ADC#0: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:BEQequal:.ifB STXsLO:STYsHI:LDXjLO:LDYjHI:JSRwritesame:STXsameLO:STYsameHI:LDXsLO:LDYsHI:JSRwritesame:JMPnextdot
� .ifA STXiLO:STYiHI:STXsameLO:STYsameHI:JSRreadsame:CPXiLO:BNEsameloop2:CPYiHI:BNEsameloop2:.equal LDXjLO:LDYjHI:JSRwritesame
�y .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

b .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

,u .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

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

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

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

TW LDY#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

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

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

�K .jLO EQUB0:.jHI EQUB0:.sLO EQUB0:.sHI EQUB0:.byte EQUB0:.counter EQUB0

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

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

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

� ]

� �

�  !widthLO=width+height*65536

�% eyegap=�(eyesep/135.47*width+.5)

�w �'"Enter elevation number for each logical  colour."'" (N.B. - For the background colour,"'�(10)"use elevation 0."

� � �(7)"- For most objects, suitable"'�(10)"values are 4 (for Mode 4"'�(10)"images), or 8 (for Mode 0"'�(10)"images."'�(7)"- Use only integer values. )"'

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

�` �'"Do you want a printed copy (Y/N)?":� key$=�:A=�"YyNn",key$):� A<>0:� A<3 � pr%=1 � pr%=0
p !&5FFC=random:!&5FF8=show:?&5FF7=smode:?&5FF6=mode:$&5FE0=sf$:$&5FD0=df$:$&5FC8=add$:!&5FC4=code:?&5FC3=pr%
( a$="DELETE 10,630"+�13+"RUN"+�6+�13
; � 21:� char=1 � �(a$):�"FX 138,0,"+�(�(�a$,char,1))):�
& �
0 � Relocation code
:. �=&5800:�pass=0 � 2 � 2:P%=&5800:[OPTpass
D� 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
N� .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
X@ .endmove LDA&13:CLC:ADC&74:STA&13:STA&01:LDA#&22:STA&18:RTS
b ]:�
l7 �"KEY 0""CALL&5800|MRUN|F|M""":�21:�"FX 153,0,128"
v �
�p random=!&5FFC:show=!&5FF8:smode=?&5FF7:mode=?&5FF6:sf$=$&5FE0:df$=$&5FD0:add$=$&5FC8:code=!&5FC4:pr%=?&5FC3
�/ �smode:�=&2600:� 23,1,0;0;0;0;:�"LO. "+sf$
�
 �code
�0 �?&70=1 � �thB � ?&71=�(2)-1:�random:�t^B
�F � mode=0 � �"SA. TEMP 2D80 7D80":�0:�"LO. TEMP":�"DEL. TEMP" � �4
� � 23,1,0;0;0;0;
�
 �show
� �"SA. "+df$+add$+"8000"
�% � pr%=1 � �"ScreenDump" � � �dPB
�

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 33 0d 00 1e 18 20 e7  | 6:.=&5FC3.... .|
00000060  20 90 3c 3e 26 32 32 30  30 20 8c 20 e5 20 8d 54  | .<>&2200 . . .T|
00000070  70 42 0d 00 28 38 20 f1  20 8a 38 2c 31 29 22 41  |pB..(8 . .8,1)"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  27 8a 31 34 29 22 62 79  |nerator"'.14)"by|
000000a0  20 20 4d 2e 20 46 6f 72  64 22 0d 00 32 13 20 ef  |  M. Ford"..2. .|
000000b0  20 32 38 2c 30 2c 32 34  2c 33 39 2c 35 0d 00 3c  | 28,0,24,39,5..<|
000000c0  28 20 e8 22 46 69 6c 65  6e 61 6d 65 20 6f 66 20  |( ."Filename of |
000000d0  73 6f 75 72 63 65 20 70  69 63 74 75 72 65 3f 20  |source picture? |
000000e0  22 20 73 66 24 0d 00 46  33 20 e8 22 4d 6f 64 65  |" sf$..F3 ."Mode|
000000f0  20 6f 66 20 73 6f 75 72  63 65 20 70 69 63 74 75  | of source pictu|
00000100  72 65 20 28 30 2c 31 2c  32 2c 34 2c 35 29 20 3f  |re (0,1,2,4,5) ?|
00000110  20 22 20 73 6d 6f 64 65  0d 00 50 3b 20 f1 3a f5  | " smode..P; .:.|
00000120  20 e8 22 46 69 6c 65 6e  61 6d 65 20 74 6f 20 73  | ."Filename to s|
00000130  61 76 65 20 69 6d 61 67  65 20 75 6e 64 65 72 3f  |ave image under?|
00000140  20 22 20 64 66 24 3a fd  20 a9 28 64 66 24 29 3c  | " df$:. .(df$)<|
00000150  3d 31 30 0d 00 5a 37 20  f5 20 e8 22 4d 6f 64 65  |=10..Z7 . ."Mode|
00000160  20 6f 66 20 69 6d 61 67  65 20 28 30 2c 34 29 20  | of image (0,4) |
00000170  3f 20 22 20 6d 6f 64 65  3a fd 20 6d 6f 64 65 3d  |? " mode:. mode=|
00000180  30 20 84 20 6d 6f 64 65  3d 34 0d 00 64 78 20 f1  |0 . mode=4..dx .|
00000190  27 22 45 6e 74 65 72 20  65 79 65 20 73 65 70 61  |'"Enter eye sepa|
000001a0  72 61 74 69 6f 6e 22 27  22 20 28 69 6e 20 6d 6d  |ration"'" (in mm|
000001b0  20 66 6f 72 20 70 72 69  6e 74 6f 75 74 20 6f 66  | for printout of|
000001c0  20 77 69 64 74 68 20 31  33 35 6d 6d 20 3a 20 20  | width 135mm :  |
000001d0  20 20 20 20 20 74 68 69  73 20 73 68 6f 75 6c 64  |     this should|
000001e0  20 75 73 75 61 6c 6c 79  20 62 65 20 61 62 6f 75  | usually be abou|
000001f0  74 20 32 30 29 20 22 3b  3a e8 22 22 65 79 65 73  |t 20) ";:.""eyes|
00000200  65 70 0d 00 6e 7b 20 e7  20 73 6d 6f 64 65 3d 30  |ep..n{ . smode=0|
00000210  20 8c 20 63 6f 6c 6f 75  72 73 3d 32 20 8b 20 e7  | . colours=2 . .|
00000220  20 73 6d 6f 64 65 3d 31  20 8c 20 63 6f 6c 6f 75  | smode=1 . colou|
00000230  72 73 3d 34 20 8b 20 e7  20 73 6d 6f 64 65 3d 32  |rs=4 . . smode=2|
00000240  20 8c 20 63 6f 6c 6f 75  72 73 3d 31 36 20 8b 20  | . colours=16 . |
00000250  e7 20 73 6d 6f 64 65 3d  34 20 8c 20 63 6f 6c 6f  |. smode=4 . colo|
00000260  75 72 73 3d 32 20 8b 20  e7 20 73 6d 6f 64 65 3d  |urs=2 . . smode=|
00000270  35 20 8c 20 63 6f 6c 6f  75 72 73 3d 34 0d 00 78  |5 . colours=4..x|
00000280  69 20 e7 20 6d 6f 64 65  3d 30 20 8c 20 77 69 64  |i . mode=0 . wid|
00000290  74 68 3d 36 34 30 3a 61  64 64 24 3d 22 20 33 30  |th=640:add$=" 30|
000002a0  30 30 20 22 3a 6d 65 6d  74 6f 70 3d 26 37 44 3a  |00 ":memtop=&7D:|
000002b0  70 69 78 65 6c 73 3d 32  20 8b 20 77 69 64 74 68  |pixels=2 . width|
000002c0  3d 33 32 30 3a 61 64 64  24 3d 22 20 35 38 30 30  |=320:add$=" 5800|
000002d0  20 22 3a 6d 65 6d 74 6f  70 3d 26 35 35 3a 70 69  | ":memtop=&55:pi|
000002e0  78 65 6c 73 3d 34 0d 00  82 0f 20 68 65 69 67 68  |xels=4.... heigh|
000002f0  74 3d 32 35 36 0d 00 8c  0f 20 63 6f 64 65 3d 26  |t=256.... code=&|
00000300  31 44 30 30 0d 00 96 25  20 e3 70 61 73 73 3d 30  |1D00...% .pass=0|
00000310  20 b8 20 32 20 88 20 32  3a 50 25 3d 63 6f 64 65  | . 2 . 2:P%=code|
00000320  3a 5b 4f 50 54 70 61 73  73 0d 00 a0 e1 20 4c 44  |:[OPTpass.... LD|
00000330  41 68 65 69 67 68 74 4c  4f 3a 53 54 41 79 4c 4f  |AheightLO:STAyLO|
00000340  3a 4c 44 41 68 65 69 67  68 74 48 49 3a 53 54 41  |:LDAheightHI:STA|
00000350  79 48 49 3a 4c 44 41 79  4c 4f 3a 53 45 43 3a 53  |yHI:LDAyLO:SEC:S|
00000360  42 43 23 31 3a 53 54 41  79 4c 4f 3a 42 43 53 63  |BC#1:STAyLO:BCSc|
00000370  6f 6e 74 3a 44 45 43 79  48 49 3a 2e 63 6f 6e 74  |ont:DECyHI:.cont|
00000380  20 4c 44 41 23 26 38 30  3a 53 54 41 26 38 38 3a  | LDA#&80:STA&88:|
00000390  4c 44 41 23 26 32 44 3a  53 54 41 26 38 39 3a 4c  |LDA#&2D:STA&89:L|
000003a0  44 41 23 26 32 36 3a 53  54 41 26 37 31 3a 4c 44  |DA#&26:STA&71:LD|
000003b0  59 23 30 3a 53 54 59 26  37 30 3a 4c 44 41 23 30  |Y#0:STY&70:LDA#0|
000003c0  3a 2e 63 6c 65 61 72 6c  6f 6f 70 20 53 54 41 28  |:.clearloop STA(|
000003d0  26 37 30 29 2c 59 3a 49  4e 59 3a 42 4e 45 63 6c  |&70),Y:INY:BNEcl|
000003e0  65 61 72 6c 6f 6f 70 3a  49 4e 43 26 37 31 3a 4c  |earloop:INC&71:L|
000003f0  44 58 26 37 31 3a 43 50  58 23 26 33 30 3a 42 4e  |DX&71:CPX#&30:BN|
00000400  45 63 6c 65 61 72 6c 6f  6f 70 0d 00 aa 35 20 2e  |Eclearloop...5 .|
00000410  6e 65 77 6c 69 6e 65 20  4c 44 41 23 30 3a 53 54  |newline LDA#0:ST|
00000420  41 78 4c 4f 3a 53 54 41  78 48 49 3a 53 54 41 73  |AxLO:STAxHI:STAs|
00000430  61 6d 65 4c 4f 3a 53 54  41 73 61 6d 65 48 49 0d  |ameLO:STAsameHI.|
00000440  00 b4 72 20 4c 44 58 23  30 3a 4c 44 59 23 30 3a  |..r LDX#0:LDY#0:|
00000450  2e 73 61 6d 65 6c 6f 6f  70 20 4a 53 52 77 72 69  |.sameloop JSRwri|
00000460  74 65 73 61 6d 65 3a 49  4e 58 3a 49 4e 43 73 61  |tesame:INX:INCsa|
00000470  6d 65 4c 4f 3a 42 4e 45  73 61 6d 65 6c 6f 6f 70  |meLO:BNEsameloop|
00000480  3a 49 4e 59 3a 49 4e 43  73 61 6d 65 48 49 3a 43  |:INY:INCsameHI:C|
00000490  50 59 77 69 64 74 68 48  49 3a 42 43 43 73 61 6d  |PYwidthHI:BCCsam|
000004a0  65 6c 6f 6f 70 3a 42 45  51 73 61 6d 65 6c 6f 6f  |eloop:BEQsameloo|
000004b0  70 0d 00 be 15 20 2e 6e  65 77 64 6f 74 20 4a 53  |p.... .newdot JS|
000004c0  52 73 68 61 70 65 0d 00  c8 92 20 43 4c 43 3a 4c  |Rshape.... CLC:L|
000004d0  44 41 73 65 70 4c 4f 3a  80 79 4c 4f 3a 80 23 31  |DAsepLO:.yLO:.#1|
000004e0  3a 41 44 43 73 65 70 4c  4f 3a 53 54 41 26 37 30  |:ADCsepLO:STA&70|
000004f0  3a 4c 44 41 73 65 70 48  49 3a 41 44 43 23 30 3a  |:LDAsepHI:ADC#0:|
00000500  4c 53 52 20 41 3a 53 54  41 26 37 31 3a 52 4f 52  |LSR A:STA&71:ROR|
00000510  26 37 30 3a 4c 44 41 78  4c 4f 3a 53 45 43 3a 53  |&70:LDAxLO:SEC:S|
00000520  42 43 26 37 30 3a 53 54  41 69 4c 4f 3a 4c 44 41  |BC&70:STAiLO:LDA|
00000530  78 48 49 3a 53 42 43 26  37 31 3a 42 50 4c 69 4f  |xHI:SBC&71:BPLiO|
00000540  4b 3a 4a 4d 50 6e 65 78  74 64 6f 74 3a 2e 69 4f  |K:JMPnextdot:.iO|
00000550  4b 20 53 54 41 69 48 49  0d 00 d2 87 20 4c 44 41  |K STAiHI.... LDA|
00000560  69 4c 4f 3a 43 4c 43 3a  41 44 43 73 65 70 4c 4f  |iLO:CLC:ADCsepLO|
00000570  3a 53 54 41 6a 4c 4f 3a  4c 44 41 69 48 49 3a 41  |:STAjLO:LDAiHI:A|
00000580  44 43 73 65 70 48 49 3a  53 54 41 6a 48 49 3a 43  |DCsepHI:STAjHI:C|
00000590  4d 50 77 69 64 74 68 48  49 3a 42 43 43 6a 4f 4b  |MPwidthHI:BCCjOK|
000005a0  3a 42 4e 45 6e 65 78 74  64 6f 74 42 3a 4c 44 41  |:BNEnextdotB:LDA|
000005b0  6a 4c 4f 3a 43 4d 50 77  69 64 74 68 4c 4f 3a 42  |jLO:CMPwidthLO:B|
000005c0  43 43 6a 4f 4b 3a 2e 6e  65 78 74 64 6f 74 42 20  |CCjOK:.nextdotB |
000005d0  4a 4d 50 6e 65 78 74 64  6f 74 3a 2e 6a 4f 4b 0d  |JMPnextdot:.jOK.|
000005e0  00 dc d1 20 2e 73 61 6d  65 6c 6f 6f 70 32 20 4c  |... .sameloop2 L|
000005f0  44 41 69 4c 4f 3a 53 54  41 73 61 6d 65 4c 4f 3a  |DAiLO:STAsameLO:|
00000600  4c 44 41 69 48 49 3a 53  54 41 73 61 6d 65 48 49  |LDAiHI:STAsameHI|
00000610  3a 4a 53 52 72 65 61 64  73 61 6d 65 3a 43 50 59  |:JSRreadsame:CPY|
00000620  6a 48 49 3a 42 43 43 69  66 41 3a 42 4e 45 69 66  |jHI:BCCifA:BNEif|
00000630  42 3a 43 50 58 6a 4c 4f  3a 42 43 43 69 66 41 3a  |B:CPXjLO:BCCifA:|
00000640  42 45 51 65 71 75 61 6c  3a 2e 69 66 42 20 53 54  |BEQequal:.ifB ST|
00000650  58 73 4c 4f 3a 53 54 59  73 48 49 3a 4c 44 58 6a  |XsLO:STYsHI:LDXj|
00000660  4c 4f 3a 4c 44 59 6a 48  49 3a 4a 53 52 77 72 69  |LO:LDYjHI:JSRwri|
00000670  74 65 73 61 6d 65 3a 53  54 58 73 61 6d 65 4c 4f  |tesame:STXsameLO|
00000680  3a 53 54 59 73 61 6d 65  48 49 3a 4c 44 58 73 4c  |:STYsameHI:LDXsL|
00000690  4f 3a 4c 44 59 73 48 49  3a 4a 53 52 77 72 69 74  |O:LDYsHI:JSRwrit|
000006a0  65 73 61 6d 65 3a 4a 4d  50 6e 65 78 74 64 6f 74  |esame:JMPnextdot|
000006b0  0d 00 e6 81 20 2e 69 66  41 20 53 54 58 69 4c 4f  |.... .ifA STXiLO|
000006c0  3a 53 54 59 69 48 49 3a  53 54 58 73 61 6d 65 4c  |:STYiHI:STXsameL|
000006d0  4f 3a 53 54 59 73 61 6d  65 48 49 3a 4a 53 52 72  |O:STYsameHI:JSRr|
000006e0  65 61 64 73 61 6d 65 3a  43 50 58 69 4c 4f 3a 42  |eadsame:CPXiLO:B|
000006f0  4e 45 73 61 6d 65 6c 6f  6f 70 32 3a 43 50 59 69  |NEsameloop2:CPYi|
00000700  48 49 3a 42 4e 45 73 61  6d 65 6c 6f 6f 70 32 3a  |HI:BNEsameloop2:|
00000710  2e 65 71 75 61 6c 20 4c  44 58 6a 4c 4f 3a 4c 44  |.equal LDXjLO:LD|
00000720  59 6a 48 49 3a 4a 53 52  77 72 69 74 65 73 61 6d  |YjHI:JSRwritesam|
00000730  65 0d 00 f0 79 20 2e 6e  65 78 74 64 6f 74 20 49  |e...y .nextdot I|
00000740  4e 43 78 4c 4f 3a 42 4e  45 63 68 65 63 6b 3a 49  |NCxLO:BNEcheck:I|
00000750  4e 43 78 48 49 3a 2e 63  68 65 63 6b 20 4c 44 41  |NCxHI:.check LDA|
00000760  78 48 49 3a 43 4d 50 77  69 64 74 68 48 49 3a 42  |xHI:CMPwidthHI:B|
00000770  43 43 6c 6f 6f 70 65 6e  64 3a 4c 44 41 78 4c 4f  |CCloopend:LDAxLO|
00000780  3a 43 4d 50 77 69 64 74  68 4c 4f 3a 42 45 51 64  |:CMPwidthLO:BEQd|
00000790  69 73 70 6c 6f 6f 70 3a  2e 6c 6f 6f 70 65 6e 64  |isploop:.loopend|
000007a0  20 4a 4d 50 6e 65 77 64  6f 74 0d 00 fa 5c 20 2e  | JMPnewdot...\ .|
000007b0  64 69 73 70 6c 6f 6f 70  20 4c 44 41 78 4c 4f 3a  |disploop LDAxLO:|
000007c0  53 45 43 3a 53 42 43 23  31 3a 53 54 41 78 4c 4f  |SEC:SBC#1:STAxLO|
000007d0  3a 42 43 53 63 68 65 63  6b 32 3a 44 45 43 78 48  |:BCScheck2:DECxH|
000007e0  49 3a 2e 63 68 65 63 6b  32 20 4c 44 41 78 48 49  |I:.check2 LDAxHI|
000007f0  3a 42 50 4c 63 6f 6c 6f  75 72 3a 4a 4d 50 6e 65  |:BPLcolour:JMPne|
00000800  78 74 6c 69 6e 65 0d 01  04 e2 20 2e 63 6f 6c 6f  |xtline.... .colo|
00000810  75 72 20 53 54 41 73 61  6d 65 48 49 3a 4c 44 41  |ur STAsameHI:LDA|
00000820  78 4c 4f 3a 53 54 41 73  61 6d 65 4c 4f 3a 4a 53  |xLO:STAsameLO:JS|
00000830  52 72 65 61 64 73 61 6d  65 3a 43 50 58 78 4c 4f  |Rreadsame:CPXxLO|
00000840  3a 42 4e 45 73 61 6d 65  3a 43 50 59 78 48 49 3a  |:BNEsame:CPYxHI:|
00000850  42 4e 45 73 61 6d 65 3a  4c 44 41 23 30 3a 53 54  |BNEsame:LDA#0:ST|
00000860  41 26 37 30 3a 52 54 53  3a 2e 72 61 6e 64 6f 6d  |A&70:RTS:.random|
00000870  20 4c 44 58 26 37 31 3a  4a 53 52 77 72 69 74 65  | LDX&71:JSRwrite|
00000880  63 6f 6c 3a 4a 4d 50 64  69 73 70 3a 2e 73 61 6d  |col:JMPdisp:.sam|
00000890  65 20 4c 44 41 78 4c 4f  3a 53 54 41 73 61 6d 65  |e LDAxLO:STAsame|
000008a0  4c 4f 3a 4c 44 41 78 48  49 3a 53 54 41 73 61 6d  |LO:LDAxHI:STAsam|
000008b0  65 48 49 3a 4a 53 52 72  65 61 64 73 61 6d 65 3a  |eHI:JSRreadsame:|
000008c0  53 54 58 63 6f 6c 4c 4f  3a 53 54 59 63 6f 6c 48  |STXcolLO:STYcolH|
000008d0  49 3a 4a 53 52 72 65 61  64 63 6f 6c 3a 4a 53 52  |I:JSRreadcol:JSR|
000008e0  77 72 69 74 65 63 6f 6c  0d 01 0e a2 20 2e 64 69  |writecol.... .di|
000008f0  73 70 20 54 58 41 3a 43  4c 43 3a 42 45 51 73 74  |sp TXA:CLC:BEQst|
00000900  6f 72 65 3a 53 45 43 3a  2e 73 74 6f 72 65 20 52  |ore:SEC:.store R|
00000910  4f 4c 62 79 74 65 3a 49  4e 43 63 6f 75 6e 74 65  |OLbyte:INCcounte|
00000920  72 3a 4c 44 41 63 6f 75  6e 74 65 72 3a 43 4d 50  |r:LDAcounter:CMP|
00000930  23 38 3a 42 4e 45 64 69  73 70 6c 6f 6f 70 3a 4c  |#8:BNEdisploop:L|
00000940  44 59 23 30 3a 53 54 59  63 6f 75 6e 74 65 72 3a  |DY#0:STYcounter:|
00000950  49 4e 43 26 38 38 3a 42  4e 45 73 61 76 65 3a 49  |INC&88:BNEsave:I|
00000960  4e 43 26 38 39 3a 2e 73  61 76 65 20 4c 44 41 62  |NC&89:.save LDAb|
00000970  79 74 65 3a 53 54 41 28  26 38 38 29 2c 59 3a 4a  |yte:STA(&88),Y:J|
00000980  4d 50 64 69 73 70 6c 6f  6f 70 0d 01 18 62 20 2e  |MPdisploop...b .|
00000990  6e 65 78 74 6c 69 6e 65  20 4c 44 41 79 4c 4f 3a  |nextline LDAyLO:|
000009a0  53 45 43 3a 53 42 43 23  31 3a 53 54 41 79 4c 4f  |SEC:SBC#1:STAyLO|
000009b0  3a 42 43 53 61 67 61 69  6e 3a 44 45 43 79 48 49  |:BCSagain:DECyHI|
000009c0  3a 42 50 4c 61 67 61 69  6e 3a 4c 44 41 23 31 3a  |:BPLagain:LDA#1:|
000009d0  53 54 41 26 37 30 3a 52  54 53 3a 2e 61 67 61 69  |STA&70:RTS:.agai|
000009e0  6e 20 4a 4d 50 6e 65 77  6c 69 6e 65 0d 01 22 82  |n JMPnewline..".|
000009f0  20 2e 77 72 69 74 65 73  61 6d 65 20 4c 44 41 73  | .writesame LDAs|
00000a00  61 6d 65 4c 4f 3a 53 54  41 26 38 30 3a 4c 44 41  |ameLO:STA&80:LDA|
00000a10  73 61 6d 65 48 49 3a 41  53 4c 26 38 30 3a 52 4f  |sameHI:ASL&80:RO|
00000a20  4c 20 41 3a 43 4c 43 3a  41 44 43 23 26 32 36 3a  |L A:CLC:ADC#&26:|
00000a30  53 54 41 26 38 31 3a 54  59 41 3a 50 48 41 3a 4c  |STA&81:TYA:PHA:L|
00000a40  44 59 23 31 3a 53 54 41  28 26 38 30 29 2c 59 3a  |DY#1:STA(&80),Y:|
00000a50  44 45 59 3a 54 58 41 3a  53 54 41 28 26 38 30 29  |DEY:TXA:STA(&80)|
00000a60  2c 59 3a 50 4c 41 3a 54  41 59 3a 52 54 53 0d 01  |,Y:PLA:TAY:RTS..|
00000a70  2c 75 20 2e 72 65 61 64  73 61 6d 65 20 4c 44 41  |,u .readsame LDA|
00000a80  73 61 6d 65 4c 4f 3a 53  54 41 26 38 30 3a 4c 44  |sameLO:STA&80:LD|
00000a90  41 73 61 6d 65 48 49 3a  41 53 4c 26 38 30 3a 52  |AsameHI:ASL&80:R|
00000aa0  4f 4c 20 41 3a 43 4c 43  3a 41 44 43 23 26 32 36  |OL A:CLC:ADC#&26|
00000ab0  3a 53 54 41 26 38 31 3a  4c 44 59 23 30 3a 4c 44  |:STA&81:LDY#0:LD|
00000ac0  41 28 26 38 30 29 2c 59  3a 54 41 58 3a 49 4e 59  |A(&80),Y:TAX:INY|
00000ad0  3a 4c 44 41 28 26 38 30  29 2c 59 3a 54 41 59 3a  |:LDA(&80),Y:TAY:|
00000ae0  52 54 53 0d 01 36 5d 20  2e 77 72 69 74 65 63 6f  |RTS..6] .writeco|
00000af0  6c 20 4c 44 41 78 4c 4f  3a 53 54 41 26 38 30 3a  |l LDAxLO:STA&80:|
00000b00  4c 44 41 78 48 49 3a 43  4c 43 3a 41 44 43 23 26  |LDAxHI:CLC:ADC#&|
00000b10  32 42 3a 53 54 41 26 38  31 3a 53 54 59 26 38 33  |2B:STA&81:STY&83|
00000b20  3a 54 58 41 3a 4c 44 59  23 30 3a 53 54 41 28 26  |:TXA:LDY#0:STA(&|
00000b30  38 30 29 2c 59 3a 4c 44  59 26 38 33 3a 52 54 53  |80),Y:LDY&83:RTS|
00000b40  0d 01 40 60 20 2e 72 65  61 64 63 6f 6c 20 4c 44  |..@` .readcol LD|
00000b50  41 63 6f 6c 4c 4f 3a 53  54 41 26 38 30 3a 4c 44  |AcolLO:STA&80:LD|
00000b60  41 63 6f 6c 48 49 3a 43  4c 43 3a 41 44 43 23 26  |AcolHI:CLC:ADC#&|
00000b70  32 42 3a 53 54 41 26 38  31 3a 53 54 59 26 38 33  |2B:STA&81:STY&83|
00000b80  3a 4c 44 59 23 30 3a 4c  44 41 28 26 38 30 29 2c  |:LDY#0:LDA(&80),|
00000b90  59 3a 54 41 58 3a 4c 44  59 26 38 33 3a 52 54 53  |Y:TAX:LDY&83:RTS|
00000ba0  0d 01 4a c9 20 2e 73 68  6f 77 20 41 53 4c 77 69  |..J. .show ASLwi|
00000bb0  64 74 68 4c 4f 3a 52 4f  4c 77 69 64 74 68 48 49  |dthLO:ROLwidthHI|
00000bc0  3a 4c 44 41 23 6d 6f 64  65 3a 43 4d 50 23 34 3a  |:LDA#mode:CMP#4:|
00000bd0  42 4e 45 64 68 65 69 67  68 74 3a 41 53 4c 77 69  |BNEdheight:ASLwi|
00000be0  64 74 68 4c 4f 3a 52 4f  4c 77 69 64 74 68 48 49  |dthLO:ROLwidthHI|
00000bf0  3a 2e 64 68 65 69 67 68  74 20 4c 44 58 68 65 69  |:.dheight LDXhei|
00000c00  67 68 74 4c 4f 3a 44 45  58 3a 53 54 58 68 65 69  |ghtLO:DEX:STXhei|
00000c10  67 68 74 4c 4f 3a 43 50  58 23 26 46 46 3a 42 4e  |ghtLO:CPX#&FF:BN|
00000c20  45 63 6f 6e 74 32 3a 44  45 43 68 65 69 67 68 74  |Econt2:DECheight|
00000c30  48 49 3a 2e 63 6f 6e 74  32 20 41 53 4c 68 65 69  |HI:.cont2 ASLhei|
00000c40  67 68 74 4c 4f 3a 52 4f  4c 68 65 69 67 68 74 48  |ghtLO:ROLheightH|
00000c50  49 3a 41 53 4c 68 65 69  67 68 74 4c 4f 3a 52 4f  |I:ASLheightLO:RO|
00000c60  4c 68 65 69 67 68 74 48  49 0d 01 54 57 20 4c 44  |LheightHI..TW LD|
00000c70  59 23 30 3a 53 54 59 79  48 49 3a 53 54 59 79 4c  |Y#0:STYyHI:STYyL|
00000c80  4f 3a 4c 44 41 23 26 38  30 3a 53 54 41 26 38 38  |O:LDA#&80:STA&88|
00000c90  3a 4c 44 41 23 6d 65 6d  74 6f 70 3a 53 54 41 26  |:LDA#memtop:STA&|
00000ca0  38 39 3a 2e 70 6c 6f 74  6c 69 6e 65 20 4c 44 41  |89:.plotline LDA|
00000cb0  23 30 3a 53 54 41 78 4c  4f 3a 53 54 41 78 48 49  |#0:STAxLO:STAxHI|
00000cc0  0d 01 5e bf 20 2e 70 6c  6f 74 6c 6f 6f 70 20 4c  |..^. .plotloop L|
00000cd0  44 41 28 26 38 38 29 2c  59 3a 4c 53 52 20 41 3a  |DA(&88),Y:LSR A:|
00000ce0  53 54 41 28 26 38 38 29  2c 59 3a 42 43 43 6e 65  |STA(&88),Y:BCCne|
00000cf0  78 74 70 6c 6f 74 3a 4c  44 58 23 34 3a 2e 64 72  |xtplot:LDX#4:.dr|
00000d00  61 77 20 4c 44 41 23 32  35 3a 4a 53 52 26 46 46  |aw LDA#25:JSR&FF|
00000d10  45 45 3a 54 58 41 3a 4a  53 52 26 46 46 45 45 3a  |EE:TXA:JSR&FFEE:|
00000d20  4c 44 41 78 4c 4f 3a 4a  53 52 26 46 46 45 45 3a  |LDAxLO:JSR&FFEE:|
00000d30  4c 44 41 78 48 49 3a 4a  53 52 26 46 46 45 45 3a  |LDAxHI:JSR&FFEE:|
00000d40  4c 44 41 79 4c 4f 3a 4a  53 52 26 46 46 45 45 3a  |LDAyLO:JSR&FFEE:|
00000d50  4c 44 41 79 48 49 3a 4a  53 52 26 46 46 45 45 3a  |LDAyHI:JSR&FFEE:|
00000d60  43 50 58 23 35 3a 42 45  51 6e 65 78 74 70 6c 6f  |CPX#5:BEQnextplo|
00000d70  74 3a 4c 44 58 23 35 3a  4a 4d 50 64 72 61 77 0d  |t:LDX#5:JMPdraw.|
00000d80  01 68 d8 20 2e 6e 65 78  74 70 6c 6f 74 20 49 4e  |.h. .nextplot IN|
00000d90  43 63 6f 75 6e 74 65 72  3a 4c 44 41 63 6f 75 6e  |Ccounter:LDAcoun|
00000da0  74 65 72 3a 43 4d 50 23  38 3a 42 4e 45 6e 65 78  |ter:CMP#8:BNEnex|
00000db0  74 78 3a 4c 44 41 23 30  3a 53 54 41 63 6f 75 6e  |tx:LDA#0:STAcoun|
00000dc0  74 65 72 3a 44 45 43 26  38 38 3a 4c 44 41 26 38  |ter:DEC&88:LDA&8|
00000dd0  38 3a 43 4d 50 23 26 46  46 3a 42 4e 45 6e 65 78  |8:CMP#&FF:BNEnex|
00000de0  74 78 3a 44 45 43 26 38  39 3a 2e 6e 65 78 74 78  |tx:DEC&89:.nextx|
00000df0  20 4c 44 41 78 4c 4f 3a  43 4c 43 3a 41 44 43 23  | LDAxLO:CLC:ADC#|
00000e00  70 69 78 65 6c 73 3a 53  54 41 78 4c 4f 3a 42 43  |pixels:STAxLO:BC|
00000e10  43 63 68 65 63 6b 77 3a  49 4e 43 78 48 49 3a 2e  |Ccheckw:INCxHI:.|
00000e20  63 68 65 63 6b 77 20 4c  44 41 78 48 49 3a 43 4d  |checkw LDAxHI:CM|
00000e30  50 77 69 64 74 68 48 49  3a 42 43 43 70 6c 6f 74  |PwidthHI:BCCplot|
00000e40  6c 6f 6f 70 3a 4c 44 41  78 4c 4f 3a 42 43 43 70  |loop:LDAxLO:BCCp|
00000e50  6c 6f 74 6c 6f 6f 70 0d  01 72 8d 20 4c 44 41 79  |lotloop..r. LDAy|
00000e60  4c 4f 3a 43 4c 43 3a 41  44 43 23 34 3a 53 54 41  |LO:CLC:ADC#4:STA|
00000e70  79 4c 4f 3a 42 43 43 63  68 65 63 6b 65 6e 64 3a  |yLO:BCCcheckend:|
00000e80  49 4e 43 79 48 49 3a 2e  63 68 65 63 6b 65 6e 64  |INCyHI:.checkend|
00000e90  20 43 4d 50 68 65 69 67  68 74 4c 4f 3a 42 4e 45  | CMPheightLO:BNE|
00000ea0  70 6c 6f 74 6c 69 6e 65  32 3a 4c 44 41 79 48 49  |plotline2:LDAyHI|
00000eb0  3a 43 4d 50 68 65 69 67  68 74 48 49 3a 42 4e 45  |:CMPheightHI:BNE|
00000ec0  70 6c 6f 74 6c 69 6e 65  32 3a 52 54 53 3a 2e 70  |plotline2:RTS:.p|
00000ed0  6c 6f 74 6c 69 6e 65 32  20 4a 4d 50 70 6c 6f 74  |lotline2 JMPplot|
00000ee0  6c 69 6e 65 0d 01 7c d4  20 2e 78 4c 4f 20 45 51  |line..|. .xLO EQ|
00000ef0  55 42 30 3a 2e 78 48 49  20 45 51 55 42 30 3a 2e  |UB0:.xHI EQUB0:.|
00000f00  79 4c 4f 20 45 51 55 42  30 3a 2e 79 48 49 20 45  |yLO EQUB0:.yHI E|
00000f10  51 55 42 30 3a 2e 73 61  6d 65 4c 4f 20 45 51 55  |QUB0:.sameLO EQU|
00000f20  42 30 3a 2e 73 61 6d 65  48 49 20 45 51 55 42 30  |B0:.sameHI EQUB0|
00000f30  3a 2e 63 6f 6c 4c 4f 20  45 51 55 42 30 3a 2e 63  |:.colLO EQUB0:.c|
00000f40  6f 6c 48 49 20 45 51 55  42 30 3a 2e 77 69 64 74  |olHI EQUB0:.widt|
00000f50  68 4c 4f 20 45 51 55 42  30 3a 2e 77 69 64 74 68  |hLO EQUB0:.width|
00000f60  48 49 20 45 51 55 42 30  3a 2e 68 65 69 67 68 74  |HI EQUB0:.height|
00000f70  4c 4f 20 45 51 55 42 30  3a 2e 68 65 69 67 68 74  |LO EQUB0:.height|
00000f80  48 49 20 45 51 55 42 30  3a 2e 73 65 70 4c 4f 20  |HI EQUB0:.sepLO |
00000f90  45 51 55 42 30 3a 2e 73  65 70 48 49 20 45 51 55  |EQUB0:.sepHI EQU|
00000fa0  42 30 3a 2e 69 4c 4f 20  45 51 55 42 30 3a 2e 69  |B0:.iLO EQUB0:.i|
00000fb0  48 49 20 45 51 55 42 30  0d 01 86 4b 20 2e 6a 4c  |HI EQUB0...K .jL|
00000fc0  4f 20 45 51 55 42 30 3a  2e 6a 48 49 20 45 51 55  |O EQUB0:.jHI EQU|
00000fd0  42 30 3a 2e 73 4c 4f 20  45 51 55 42 30 3a 2e 73  |B0:.sLO EQUB0:.s|
00000fe0  48 49 20 45 51 55 42 30  3a 2e 62 79 74 65 20 45  |HI EQUB0:.byte E|
00000ff0  51 55 42 30 3a 2e 63 6f  75 6e 74 65 72 20 45 51  |QUB0:.counter EQ|
00001000  55 42 30 0d 01 90 5b 20  2e 73 68 61 70 65 20 4c  |UB0...[ .shape L|
00001010  44 41 78 4c 4f 3a 53 54  41 26 37 30 3a 4c 44 41  |DAxLO:STA&70:LDA|
00001020  78 48 49 3a 53 54 41 26  37 31 3a 41 53 4c 26 37  |xHI:STA&71:ASL&7|
00001030  30 3a 52 4f 4c 26 37 31  3a 4c 44 41 23 6d 6f 64  |0:ROL&71:LDA#mod|
00001040  65 3a 43 4d 50 23 34 3a  42 4e 45 79 6d 75 6c 74  |e:CMP#4:BNEymult|
00001050  3a 41 53 4c 26 37 30 3a  52 4f 4c 26 37 31 0d 01  |:ASL&70:ROL&71..|
00001060  9a 60 20 2e 79 6d 75 6c  74 20 4c 44 41 79 4c 4f  |.` .ymult LDAyLO|
00001070  3a 53 54 41 26 37 32 3a  4c 44 41 79 48 49 3a 53  |:STA&72:LDAyHI:S|
00001080  54 41 26 37 33 3a 41 53  4c 26 37 32 3a 52 4f 4c  |TA&73:ASL&72:ROL|
00001090  26 37 33 3a 41 53 4c 26  37 32 3a 52 4f 4c 26 37  |&73:ASL&72:ROL&7|
000010a0  33 3a 4c 44 41 23 39 3a  4c 44 58 23 26 37 30 3a  |3:LDA#9:LDX#&70:|
000010b0  4c 44 59 23 30 3a 4a 53  52 26 46 46 46 31 0d 01  |LDY#0:JSR&FFF1..|
000010c0  a4 7b 20 4c 44 41 26 37  34 3a 41 53 4c 20 41 3a  |.{ LDA&74:ASL A:|
000010d0  54 41 59 3a 4c 44 41 23  28 67 72 6f 75 6e 64 4c  |TAY:LDA#(groundL|
000010e0  4f 20 83 32 35 36 29 3a  53 54 41 26 38 42 3a 4c  |O .256):STA&8B:L|
000010f0  44 41 23 28 67 72 6f 75  6e 64 4c 4f 20 81 32 35  |DA#(groundLO .25|
00001100  36 29 3a 53 54 41 26 38  43 3a 4c 44 41 28 26 38  |6):STA&8C:LDA(&8|
00001110  42 29 2c 59 3a 53 54 41  73 65 70 4c 4f 3a 49 4e  |B),Y:STAsepLO:IN|
00001120  59 3a 4c 44 41 28 26 38  42 29 2c 59 3a 53 54 41  |Y:LDA(&8B),Y:STA|
00001130  73 65 70 48 49 3a 52 54  53 0d 01 ae 54 20 2e 67  |sepHI:RTS...T .g|
00001140  72 6f 75 6e 64 4c 4f 20  45 51 55 42 30 3a 2e 67  |roundLO EQUB0:.g|
00001150  72 6f 75 6e 64 48 49 20  45 51 55 42 30 3a 45 51  |roundHI EQUB0:EQ|
00001160  55 44 30 3a 45 51 55 44  30 3a 45 51 55 44 30 3a  |UD0:EQUD0:EQUD0:|
00001170  45 51 55 44 30 3a 45 51  55 44 30 3a 45 51 55 44  |EQUD0:EQUD0:EQUD|
00001180  30 3a 45 51 55 44 30 3a  45 51 55 57 30 0d 01 b8  |0:EQUD0:EQUW0...|
00001190  06 20 5d 0d 01 c2 06 20  ed 0d 01 cc 20 20 21 77  |. ].... ....  !w|
000011a0  69 64 74 68 4c 4f 3d 77  69 64 74 68 2b 68 65 69  |idthLO=width+hei|
000011b0  67 68 74 2a 36 35 35 33  36 0d 01 d6 25 20 65 79  |ght*65536...% ey|
000011c0  65 67 61 70 3d a8 28 65  79 65 73 65 70 2f 31 33  |egap=.(eyesep/13|
000011d0  35 2e 34 37 2a 77 69 64  74 68 2b 2e 35 29 0d 01  |5.47*width+.5)..|
000011e0  e0 77 20 f1 27 22 45 6e  74 65 72 20 65 6c 65 76  |.w .'"Enter elev|
000011f0  61 74 69 6f 6e 20 6e 75  6d 62 65 72 20 66 6f 72  |ation number for|
00001200  20 65 61 63 68 20 6c 6f  67 69 63 61 6c 20 20 63  | each logical  c|
00001210  6f 6c 6f 75 72 2e 22 27  22 20 28 4e 2e 42 2e 20  |olour."'" (N.B. |
00001220  2d 20 46 6f 72 20 74 68  65 20 62 61 63 6b 67 72  |- For the backgr|
00001230  6f 75 6e 64 20 63 6f 6c  6f 75 72 2c 22 27 89 28  |ound colour,"'.(|
00001240  31 30 29 22 75 73 65 20  65 6c 65 76 61 74 69 6f  |10)"use elevatio|
00001250  6e 20 30 2e 22 0d 01 ea  9d 20 f1 20 89 28 37 29  |n 0.".... . .(7)|
00001260  22 2d 20 46 6f 72 20 6d  6f 73 74 20 6f 62 6a 65  |"- For most obje|
00001270  63 74 73 2c 20 73 75 69  74 61 62 6c 65 22 27 89  |cts, suitable"'.|
00001280  28 31 30 29 22 76 61 6c  75 65 73 20 61 72 65 20  |(10)"values are |
00001290  34 20 28 66 6f 72 20 4d  6f 64 65 20 34 22 27 89  |4 (for Mode 4"'.|
000012a0  28 31 30 29 22 69 6d 61  67 65 73 29 2c 20 6f 72  |(10)"images), or|
000012b0  20 38 20 28 66 6f 72 20  4d 6f 64 65 20 30 22 27  | 8 (for Mode 0"'|
000012c0  89 28 31 30 29 22 69 6d  61 67 65 73 2e 22 27 89  |.(10)"images."'.|
000012d0  28 37 29 22 2d 20 55 73  65 20 6f 6e 6c 79 20 69  |(7)"- Use only i|
000012e0  6e 74 65 67 65 72 20 76  61 6c 75 65 73 2e 20 29  |nteger values. )|
000012f0  22 27 0d 01 f4 94 20 e3  6f 62 6a 65 63 74 3d 30  |"'.... .object=0|
00001300  20 b8 20 63 6f 6c 6f 75  72 73 2d 31 3a f1 22 20  | . colours-1:." |
00001310  20 20 43 6f 6c 6f 75 72  20 22 2b c3 28 6f 62 6a  |  Colour "+.(obj|
00001320  65 63 74 29 2b 22 3a 20  22 3b 3a e8 22 22 65 6c  |ect)+": ";:.""el|
00001330  65 76 3a 3f 28 67 72 6f  75 6e 64 4c 4f 2b 6f 62  |ev:?(groundLO+ob|
00001340  6a 65 63 74 2a 32 29 3d  28 65 79 65 67 61 70 2d  |ject*2)=(eyegap-|
00001350  65 6c 65 76 29 20 83 32  35 36 3a 3f 28 67 72 6f  |elev) .256:?(gro|
00001360  75 6e 64 4c 4f 2b 6f 62  6a 65 63 74 2a 32 2b 31  |undLO+object*2+1|
00001370  29 3d 28 65 79 65 67 61  70 2d 65 6c 65 76 29 20  |)=(eyegap-elev) |
00001380  81 32 35 36 3a ed 0d 01  fe 60 20 f1 27 22 44 6f  |.256:....` .'"Do|
00001390  20 79 6f 75 20 77 61 6e  74 20 61 20 70 72 69 6e  | you want a prin|
000013a0  74 65 64 20 63 6f 70 79  20 28 59 2f 4e 29 3f 22  |ted copy (Y/N)?"|
000013b0  3a f5 20 6b 65 79 24 3d  be 3a 41 3d a7 22 59 79  |:. key$=.:A=."Yy|
000013c0  4e 6e 22 2c 6b 65 79 24  29 3a fd 20 41 3c 3e 30  |Nn",key$):. A<>0|
000013d0  3a e7 20 41 3c 33 20 8c  20 70 72 25 3d 31 20 8b  |:. A<3 . pr%=1 .|
000013e0  20 70 72 25 3d 30 0d 02  08 70 20 21 26 35 46 46  | pr%=0...p !&5FF|
000013f0  43 3d 72 61 6e 64 6f 6d  3a 21 26 35 46 46 38 3d  |C=random:!&5FF8=|
00001400  73 68 6f 77 3a 3f 26 35  46 46 37 3d 73 6d 6f 64  |show:?&5FF7=smod|
00001410  65 3a 3f 26 35 46 46 36  3d 6d 6f 64 65 3a 24 26  |e:?&5FF6=mode:$&|
00001420  35 46 45 30 3d 73 66 24  3a 24 26 35 46 44 30 3d  |5FE0=sf$:$&5FD0=|
00001430  64 66 24 3a 24 26 35 46  43 38 3d 61 64 64 24 3a  |df$:$&5FC8=add$:|
00001440  21 26 35 46 43 34 3d 63  6f 64 65 3a 3f 26 35 46  |!&5FC4=code:?&5F|
00001450  43 33 3d 70 72 25 0d 02  12 28 20 61 24 3d 22 44  |C3=pr%...( a$="D|
00001460  45 4c 45 54 45 20 31 30  2c 36 33 30 22 2b bd 31  |ELETE 10,630"+.1|
00001470  33 2b 22 52 55 4e 22 2b  bd 36 2b bd 31 33 0d 02  |3+"RUN"+.6+.13..|
00001480  1c 3b 20 ef 20 32 31 3a  e3 20 63 68 61 72 3d 31  |.; . 21:. char=1|
00001490  20 b8 20 a9 28 61 24 29  3a ff 22 46 58 20 31 33  | . .(a$):."FX 13|
000014a0  38 2c 30 2c 22 2b c3 28  97 28 c1 61 24 2c 63 68  |8,0,"+.(.(.a$,ch|
000014b0  61 72 2c 31 29 29 29 3a  ed 0d 02 26 06 20 e0 0d  |ar,1))):...&. ..|
000014c0  02 30 16 20 f4 20 52 65  6c 6f 63 61 74 69 6f 6e  |.0. . Relocation|
000014d0  20 63 6f 64 65 0d 02 3a  2e 20 d3 3d 26 35 38 30  | code..:. .=&580|
000014e0  30 3a e3 70 61 73 73 3d  30 20 b8 20 32 20 88 20  |0:.pass=0 . 2 . |
000014f0  32 3a 50 25 3d 26 35 38  30 30 3a 5b 4f 50 54 70  |2:P%=&5800:[OPTp|
00001500  61 73 73 0d 02 44 cd 20  4c 44 59 23 30 3a 53 54  |ass..D. LDY#0:ST|
00001510  59 26 37 30 3a 53 54 59  26 37 32 3a 4c 44 41 23  |Y&70:STY&72:LDA#|
00001520  26 32 32 3a 53 45 43 3a  53 42 43 26 31 38 3a 53  |&22:SEC:SBC&18:S|
00001530  54 41 26 37 34 3a 4c 44  41 26 31 38 3a 43 4d 50  |TA&74:LDA&18:CMP|
00001540  23 26 32 32 3a 42 43 43  61 64 64 3a 2e 73 75 62  |#&22:BCCadd:.sub|
00001550  20 53 54 41 26 37 31 3a  4c 44 41 23 26 32 32 3a  | STA&71:LDA#&22:|
00001560  53 54 41 26 37 33 3a 2e  6d 6f 76 65 6c 6f 6f 70  |STA&73:.moveloop|
00001570  31 20 4c 44 41 28 26 37  30 29 2c 59 3a 53 54 41  |1 LDA(&70),Y:STA|
00001580  28 26 37 32 29 2c 59 3a  49 4e 59 3a 42 4e 45 6d  |(&72),Y:INY:BNEm|
00001590  6f 76 65 6c 6f 6f 70 31  3a 49 4e 43 26 37 31 3a  |oveloop1:INC&71:|
000015a0  49 4e 43 26 37 33 3a 4c  44 58 26 37 31 3a 44 45  |INC&73:LDX&71:DE|
000015b0  58 3a 43 50 58 26 30 33  3a 42 43 43 6d 6f 76 65  |X:CPX&03:BCCmove|
000015c0  6c 6f 6f 70 31 3a 42 43  53 65 6e 64 6d 6f 76 65  |loop1:BCSendmove|
000015d0  0d 02 4e 9a 20 2e 61 64  64 20 4c 44 41 26 30 33  |..N. .add LDA&03|
000015e0  3a 53 54 41 26 37 31 3a  43 4c 43 3a 41 44 43 26  |:STA&71:CLC:ADC&|
000015f0  37 34 3a 53 54 41 26 37  33 3a 4c 44 41 23 30 3a  |74:STA&73:LDA#0:|
00001600  4c 44 59 26 30 32 3a 2e  6d 6f 76 65 6c 6f 6f 70  |LDY&02:.moveloop|
00001610  32 20 4c 44 41 28 26 37  30 29 2c 59 3a 53 54 41  |2 LDA(&70),Y:STA|
00001620  28 26 37 32 29 2c 59 3a  44 45 59 3a 43 50 59 23  |(&72),Y:DEY:CPY#|
00001630  26 46 46 3a 42 4e 45 6d  6f 76 65 6c 6f 6f 70 32  |&FF:BNEmoveloop2|
00001640  3a 44 45 43 26 37 31 3a  44 45 43 26 37 33 3a 4c  |:DEC&71:DEC&73:L|
00001650  44 41 26 37 33 3a 43 4d  50 23 26 32 31 3a 42 43  |DA&73:CMP#&21:BC|
00001660  53 6d 6f 76 65 6c 6f 6f  70 32 0d 02 58 40 20 2e  |Smoveloop2..X@ .|
00001670  65 6e 64 6d 6f 76 65 20  4c 44 41 26 31 33 3a 43  |endmove LDA&13:C|
00001680  4c 43 3a 41 44 43 26 37  34 3a 53 54 41 26 31 33  |LC:ADC&74:STA&13|
00001690  3a 53 54 41 26 30 31 3a  4c 44 41 23 26 32 32 3a  |:STA&01:LDA#&22:|
000016a0  53 54 41 26 31 38 3a 52  54 53 0d 02 62 08 20 5d  |STA&18:RTS..b. ]|
000016b0  3a ed 0d 02 6c 37 20 ff  22 4b 45 59 20 30 22 22  |:...l7 ."KEY 0""|
000016c0  43 41 4c 4c 26 35 38 30  30 7c 4d 52 55 4e 7c 46  |CALL&5800|MRUN|F|
000016d0  7c 4d 22 22 22 3a ef 32  31 3a ff 22 46 58 20 31  ||M""":.21:."FX 1|
000016e0  35 33 2c 30 2c 31 32 38  22 0d 02 76 06 20 e0 0d  |53,0,128"..v. ..|
000016f0  02 80 70 20 72 61 6e 64  6f 6d 3d 21 26 35 46 46  |..p random=!&5FF|
00001700  43 3a 73 68 6f 77 3d 21  26 35 46 46 38 3a 73 6d  |C:show=!&5FF8:sm|
00001710  6f 64 65 3d 3f 26 35 46  46 37 3a 6d 6f 64 65 3d  |ode=?&5FF7:mode=|
00001720  3f 26 35 46 46 36 3a 73  66 24 3d 24 26 35 46 45  |?&5FF6:sf$=$&5FE|
00001730  30 3a 64 66 24 3d 24 26  35 46 44 30 3a 61 64 64  |0:df$=$&5FD0:add|
00001740  24 3d 24 26 35 46 43 38  3a 63 6f 64 65 3d 21 26  |$=$&5FC8:code=!&|
00001750  35 46 43 34 3a 70 72 25  3d 3f 26 35 46 43 33 0d  |5FC4:pr%=?&5FC3.|
00001760  02 8a 2f 20 eb 73 6d 6f  64 65 3a d3 3d 26 32 36  |../ .smode:.=&26|
00001770  30 30 3a ef 20 32 33 2c  31 2c 30 3b 30 3b 30 3b  |00:. 23,1,0;0;0;|
00001780  30 3b 3a ff 22 4c 4f 2e  20 22 2b 73 66 24 0d 02  |0;:."LO. "+sf$..|
00001790  94 0a 20 d6 63 6f 64 65  0d 02 9e 30 20 e7 3f 26  |.. .code...0 .?&|
000017a0  37 30 3d 31 20 8c 20 e5  8d 74 68 42 20 8b 20 3f  |70=1 . ..thB . ?|
000017b0  26 37 31 3d b3 28 32 29  2d 31 3a d6 72 61 6e 64  |&71=.(2)-1:.rand|
000017c0  6f 6d 3a e5 8d 74 5e 42  0d 02 a8 46 20 e7 20 6d  |om:..t^B...F . m|
000017d0  6f 64 65 3d 30 20 8c 20  ff 22 53 41 2e 20 54 45  |ode=0 . ."SA. TE|
000017e0  4d 50 20 32 44 38 30 20  37 44 38 30 22 3a eb 30  |MP 2D80 7D80":.0|
000017f0  3a ff 22 4c 4f 2e 20 54  45 4d 50 22 3a ff 22 44  |:."LO. TEMP":."D|
00001800  45 4c 2e 20 54 45 4d 50  22 20 8b 20 eb 34 0d 02  |EL. TEMP" . .4..|
00001810  b2 14 20 ef 20 32 33 2c  31 2c 30 3b 30 3b 30 3b  |.. . 23,1,0;0;0;|
00001820  30 3b 0d 02 bc 0a 20 d6  73 68 6f 77 0d 02 c6 1c  |0;.... .show....|
00001830  20 ff 22 53 41 2e 20 22  2b 64 66 24 2b 61 64 64  | ."SA. "+df$+add|
00001840  24 2b 22 38 30 30 30 22  0d 02 d0 25 20 e7 20 70  |$+"8000"...% . p|
00001850  72 25 3d 31 20 8c 20 d7  22 53 63 72 65 65 6e 44  |r%=1 . ."ScreenD|
00001860  75 6d 70 22 20 8b 20 e5  20 8d 64 50 42 0d ff     |ump" . . .dPB..|
0000186f