J �     Autostereogram Generator                  by M. Ford, June 1994
 � 6:�=&5FC4
& � �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
scode=&1D00
x$�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

"_.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

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:DEC&88:LDA&88:CMP#&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: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,510"+�13+"RUN"+�6+�13

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

� �
drandom=!&5FFC:show=!&5FF8:smode=?&5FF7:mode=?&5FF6:sf$=$&5FE0:df$=$&5FD0:add$=$&5FC8:code=!&5FC4
.�smode:�=&2600:� 23,1,0;0;0;0;:�"LO. "+sf$
	�code
&/�?&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 34 0d 00 1e 26 20 f1  | 6:.=&5FC4...& .|
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 73 0e 63 6f 64 65 3d  |ght=256..s.code=|
000002e0  26 31 44 30 30 0d 00 78  24 e3 70 61 73 73 3d 30  |&1D00..x$.pass=0|
000002f0  20 b8 20 32 20 88 20 32  3a 50 25 3d 63 6f 64 65  | . 2 . 2:P%=code|
00000300  3a 5b 4f 50 54 70 61 73  73 0d 00 82 e0 4c 44 41  |:[OPTpass....LDA|
00000310  68 65 69 67 68 74 4c 4f  3a 53 54 41 79 4c 4f 3a  |heightLO:STAyLO:|
00000320  4c 44 41 68 65 69 67 68  74 48 49 3a 53 54 41 79  |LDAheightHI:STAy|
00000330  48 49 3a 4c 44 41 79 4c  4f 3a 53 45 43 3a 53 42  |HI:LDAyLO:SEC:SB|
00000340  43 23 31 3a 53 54 41 79  4c 4f 3a 42 43 53 63 6f  |C#1:STAyLO:BCSco|
00000350  6e 74 3a 44 45 43 79 48  49 3a 2e 63 6f 6e 74 20  |nt:DECyHI:.cont |
00000360  4c 44 41 23 26 38 30 3a  53 54 41 26 38 38 3a 4c  |LDA#&80:STA&88:L|
00000370  44 41 23 26 32 44 3a 53  54 41 26 38 39 3a 4c 44  |DA#&2D:STA&89:LD|
00000380  41 23 26 32 36 3a 53 54  41 26 37 31 3a 4c 44 59  |A#&26:STA&71:LDY|
00000390  23 30 3a 53 54 59 26 37  30 3a 4c 44 41 23 30 3a  |#0:STY&70:LDA#0:|
000003a0  2e 63 6c 65 61 72 6c 6f  6f 70 20 53 54 41 28 26  |.clearloop STA(&|
000003b0  37 30 29 2c 59 3a 49 4e  59 3a 42 4e 45 63 6c 65  |70),Y:INY:BNEcle|
000003c0  61 72 6c 6f 6f 70 3a 49  4e 43 26 37 31 3a 4c 44  |arloop:INC&71:LD|
000003d0  58 26 37 31 3a 43 50 58  23 26 33 30 3a 42 4e 45  |X&71:CPX#&30:BNE|
000003e0  63 6c 65 61 72 6c 6f 6f  70 0d 00 8c 34 2e 6e 65  |clearloop...4.ne|
000003f0  77 6c 69 6e 65 20 4c 44  41 23 30 3a 53 54 41 78  |wline LDA#0:STAx|
00000400  4c 4f 3a 53 54 41 78 48  49 3a 53 54 41 73 61 6d  |LO:STAxHI:STAsam|
00000410  65 4c 4f 3a 53 54 41 73  61 6d 65 48 49 0d 00 96  |eLO:STAsameHI...|
00000420  71 4c 44 58 23 30 3a 4c  44 59 23 30 3a 2e 73 61  |qLDX#0:LDY#0:.sa|
00000430  6d 65 6c 6f 6f 70 20 4a  53 52 77 72 69 74 65 73  |meloop JSRwrites|
00000440  61 6d 65 3a 49 4e 58 3a  49 4e 43 73 61 6d 65 4c  |ame:INX:INCsameL|
00000450  4f 3a 42 4e 45 73 61 6d  65 6c 6f 6f 70 3a 49 4e  |O:BNEsameloop:IN|
00000460  59 3a 49 4e 43 73 61 6d  65 48 49 3a 43 50 59 77  |Y:INCsameHI:CPYw|
00000470  69 64 74 68 48 49 3a 42  43 43 73 61 6d 65 6c 6f  |idthHI:BCCsamelo|
00000480  6f 70 3a 42 45 51 73 61  6d 65 6c 6f 6f 70 0d 00  |op:BEQsameloop..|
00000490  a0 14 2e 6e 65 77 64 6f  74 20 4a 53 52 73 68 61  |...newdot JSRsha|
000004a0  70 65 0d 00 aa 9d 43 4c  43 3a 4c 44 41 73 65 70  |pe....CLC:LDAsep|
000004b0  4c 4f 3a 80 79 4c 4f 3a  80 23 31 3a 41 44 43 73  |LO:.yLO:.#1:ADCs|
000004c0  65 70 4c 4f 3a 53 54 41  26 37 30 3a 4c 44 41 73  |epLO:STA&70:LDAs|
000004d0  65 70 48 49 3a 80 79 48  49 3a 41 44 43 73 65 70  |epHI:.yHI:ADCsep|
000004e0  48 49 3a 43 4c 43 3a 4c  53 52 20 41 3a 53 54 41  |HI:CLC:LSR A:STA|
000004f0  26 37 31 3a 52 4f 52 26  37 30 3a 4c 44 41 78 4c  |&71:ROR&70:LDAxL|
00000500  4f 3a 53 45 43 3a 53 42  43 26 37 30 3a 53 54 41  |O:SEC:SBC&70:STA|
00000510  69 4c 4f 3a 4c 44 41 78  48 49 3a 53 42 43 26 37  |iLO:LDAxHI:SBC&7|
00000520  31 3a 42 50 4c 69 4f 4b  3a 4a 4d 50 6e 65 78 74  |1:BPLiOK:JMPnext|
00000530  64 6f 74 3a 2e 69 4f 4b  20 53 54 41 69 48 49 0d  |dot:.iOK STAiHI.|
00000540  00 b4 86 4c 44 41 69 4c  4f 3a 43 4c 43 3a 41 44  |...LDAiLO:CLC:AD|
00000550  43 73 65 70 4c 4f 3a 53  54 41 6a 4c 4f 3a 4c 44  |CsepLO:STAjLO:LD|
00000560  41 69 48 49 3a 41 44 43  73 65 70 48 49 3a 53 54  |AiHI:ADCsepHI:ST|
00000570  41 6a 48 49 3a 43 4d 50  77 69 64 74 68 48 49 3a  |AjHI:CMPwidthHI:|
00000580  42 43 43 6a 4f 4b 3a 42  4e 45 6e 65 78 74 64 6f  |BCCjOK:BNEnextdo|
00000590  74 42 3a 4c 44 41 6a 4c  4f 3a 43 4d 50 77 69 64  |tB:LDAjLO:CMPwid|
000005a0  74 68 4c 4f 3a 42 43 43  6a 4f 4b 3a 2e 6e 65 78  |thLO:BCCjOK:.nex|
000005b0  74 64 6f 74 42 20 4a 4d  50 6e 65 78 74 64 6f 74  |tdotB JMPnextdot|
000005c0  3a 2e 6a 4f 4b 0d 00 be  b0 2e 73 61 6d 65 6c 6f  |:.jOK.....samelo|
000005d0  6f 70 32 20 4c 44 41 69  4c 4f 3a 53 54 41 73 61  |op2 LDAiLO:STAsa|
000005e0  6d 65 4c 4f 3a 4c 44 41  69 48 49 3a 53 54 41 73  |meLO:LDAiHI:STAs|
000005f0  61 6d 65 48 49 3a 4a 53  52 72 65 61 64 73 61 6d  |ameHI:JSRreadsam|
00000600  65 3a 43 50 59 6a 48 49  3a 42 43 43 69 66 41 3a  |e:CPYjHI:BCCifA:|
00000610  42 4e 45 69 66 42 3a 43  50 58 6a 4c 4f 3a 42 43  |BNEifB:CPXjLO:BC|
00000620  43 69 66 41 3a 42 45 51  69 66 41 3a 2e 69 66 42  |CifA:BEQifA:.ifB|
00000630  20 53 54 58 73 4c 4f 3a  53 54 59 73 48 49 3a 4c  | STXsLO:STYsHI:L|
00000640  44 58 6a 4c 4f 3a 4c 44  59 6a 48 49 3a 4a 53 52  |DXjLO:LDYjHI:JSR|
00000650  77 72 69 74 65 73 61 6d  65 3a 4c 44 41 73 4c 4f  |writesame:LDAsLO|
00000660  3a 53 54 41 6a 4c 4f 3a  4c 44 41 73 48 49 3a 53  |:STAjLO:LDAsHI:S|
00000670  54 41 6a 48 49 0d 00 c8  6e 20 2e 69 66 41 20 53  |TAjHI...n .ifA S|
00000680  54 58 69 4c 4f 3a 53 54  59 69 48 49 3a 53 54 58  |TXiLO:STYiHI:STX|
00000690  73 61 6d 65 4c 4f 3a 53  54 59 73 61 6d 65 48 49  |sameLO:STYsameHI|
000006a0  3a 4c 44 58 6a 4c 4f 3a  4c 44 59 6a 48 49 3a 4a  |:LDXjLO:LDYjHI:J|
000006b0  53 52 77 72 69 74 65 73  61 6d 65 3a 43 50 58 69  |SRwritesame:CPXi|
000006c0  4c 4f 3a 42 4e 45 73 61  6d 65 6c 6f 6f 70 32 3a  |LO:BNEsameloop2:|
000006d0  43 50 59 69 48 49 3a 42  4e 45 73 61 6d 65 6c 6f  |CPYiHI:BNEsamelo|
000006e0  6f 70 32 0d 00 d2 78 2e  6e 65 78 74 64 6f 74 20  |op2...x.nextdot |
000006f0  49 4e 43 78 4c 4f 3a 42  4e 45 63 68 65 63 6b 3a  |INCxLO:BNEcheck:|
00000700  49 4e 43 78 48 49 3a 2e  63 68 65 63 6b 20 4c 44  |INCxHI:.check LD|
00000710  41 78 48 49 3a 43 4d 50  77 69 64 74 68 48 49 3a  |AxHI:CMPwidthHI:|
00000720  42 43 43 6c 6f 6f 70 65  6e 64 3a 4c 44 41 78 4c  |BCCloopend:LDAxL|
00000730  4f 3a 43 4d 50 77 69 64  74 68 4c 4f 3a 42 45 51  |O:CMPwidthLO:BEQ|
00000740  64 69 73 70 6c 6f 6f 70  3a 2e 6c 6f 6f 70 65 6e  |disploop:.loopen|
00000750  64 20 4a 4d 50 6e 65 77  64 6f 74 0d 00 dc 5b 2e  |d JMPnewdot...[.|
00000760  64 69 73 70 6c 6f 6f 70  20 4c 44 41 78 4c 4f 3a  |disploop LDAxLO:|
00000770  53 45 43 3a 53 42 43 23  31 3a 53 54 41 78 4c 4f  |SEC:SBC#1:STAxLO|
00000780  3a 42 43 53 63 68 65 63  6b 32 3a 44 45 43 78 48  |:BCScheck2:DECxH|
00000790  49 3a 2e 63 68 65 63 6b  32 20 4c 44 41 78 48 49  |I:.check2 LDAxHI|
000007a0  3a 42 50 4c 63 6f 6c 6f  75 72 3a 4a 4d 50 6e 65  |:BPLcolour:JMPne|
000007b0  78 74 6c 69 6e 65 0d 00  e6 e1 2e 63 6f 6c 6f 75  |xtline.....colou|
000007c0  72 20 53 54 41 73 61 6d  65 48 49 3a 4c 44 41 78  |r STAsameHI:LDAx|
000007d0  4c 4f 3a 53 54 41 73 61  6d 65 4c 4f 3a 4a 53 52  |LO:STAsameLO:JSR|
000007e0  72 65 61 64 73 61 6d 65  3a 43 50 58 78 4c 4f 3a  |readsame:CPXxLO:|
000007f0  42 4e 45 73 61 6d 65 3a  43 50 59 78 48 49 3a 42  |BNEsame:CPYxHI:B|
00000800  4e 45 73 61 6d 65 3a 4c  44 41 23 30 3a 53 54 41  |NEsame:LDA#0:STA|
00000810  26 37 30 3a 52 54 53 3a  2e 72 61 6e 64 6f 6d 20  |&70:RTS:.random |
00000820  4c 44 58 26 37 31 3a 4a  53 52 77 72 69 74 65 63  |LDX&71:JSRwritec|
00000830  6f 6c 3a 4a 4d 50 64 69  73 70 3a 2e 73 61 6d 65  |ol:JMPdisp:.same|
00000840  20 4c 44 41 78 4c 4f 3a  53 54 41 73 61 6d 65 4c  | LDAxLO:STAsameL|
00000850  4f 3a 4c 44 41 78 48 49  3a 53 54 41 73 61 6d 65  |O:LDAxHI:STAsame|
00000860  48 49 3a 4a 53 52 72 65  61 64 73 61 6d 65 3a 53  |HI:JSRreadsame:S|
00000870  54 58 63 6f 6c 4c 4f 3a  53 54 59 63 6f 6c 48 49  |TXcolLO:STYcolHI|
00000880  3a 4a 53 52 72 65 61 64  63 6f 6c 3a 4a 53 52 77  |:JSRreadcol:JSRw|
00000890  72 69 74 65 63 6f 6c 0d  00 f0 a1 2e 64 69 73 70  |ritecol.....disp|
000008a0  20 54 58 41 3a 43 4c 43  3a 42 45 51 73 74 6f 72  | TXA:CLC:BEQstor|
000008b0  65 3a 53 45 43 3a 2e 73  74 6f 72 65 20 52 4f 4c  |e:SEC:.store ROL|
000008c0  62 79 74 65 3a 49 4e 43  63 6f 75 6e 74 65 72 3a  |byte:INCcounter:|
000008d0  4c 44 41 63 6f 75 6e 74  65 72 3a 43 4d 50 23 38  |LDAcounter:CMP#8|
000008e0  3a 42 4e 45 64 69 73 70  6c 6f 6f 70 3a 4c 44 59  |:BNEdisploop:LDY|
000008f0  23 30 3a 53 54 59 63 6f  75 6e 74 65 72 3a 49 4e  |#0:STYcounter:IN|
00000900  43 26 38 38 3a 42 4e 45  73 61 76 65 3a 49 4e 43  |C&88:BNEsave:INC|
00000910  26 38 39 3a 2e 73 61 76  65 20 4c 44 41 62 79 74  |&89:.save LDAbyt|
00000920  65 3a 53 54 41 28 26 38  38 29 2c 59 3a 4a 4d 50  |e:STA(&88),Y:JMP|
00000930  64 69 73 70 6c 6f 6f 70  0d 00 fa 61 2e 6e 65 78  |disploop...a.nex|
00000940  74 6c 69 6e 65 20 4c 44  41 79 4c 4f 3a 53 45 43  |tline LDAyLO:SEC|
00000950  3a 53 42 43 23 31 3a 53  54 41 79 4c 4f 3a 42 43  |:SBC#1:STAyLO:BC|
00000960  53 61 67 61 69 6e 3a 44  45 43 79 48 49 3a 42 50  |Sagain:DECyHI:BP|
00000970  4c 61 67 61 69 6e 3a 4c  44 41 23 31 3a 53 54 41  |Lagain:LDA#1:STA|
00000980  26 37 30 3a 52 54 53 3a  2e 61 67 61 69 6e 20 4a  |&70:RTS:.again J|
00000990  4d 50 6e 65 77 6c 69 6e  65 0d 01 04 81 2e 77 72  |MPnewline.....wr|
000009a0  69 74 65 73 61 6d 65 20  4c 44 41 73 61 6d 65 4c  |itesame LDAsameL|
000009b0  4f 3a 53 54 41 26 38 30  3a 4c 44 41 73 61 6d 65  |O:STA&80:LDAsame|
000009c0  48 49 3a 41 53 4c 26 38  30 3a 52 4f 4c 20 41 3a  |HI:ASL&80:ROL A:|
000009d0  43 4c 43 3a 41 44 43 23  26 32 36 3a 53 54 41 26  |CLC:ADC#&26:STA&|
000009e0  38 31 3a 54 59 41 3a 50  48 41 3a 4c 44 59 23 31  |81:TYA:PHA:LDY#1|
000009f0  3a 53 54 41 28 26 38 30  29 2c 59 3a 44 45 59 3a  |:STA(&80),Y:DEY:|
00000a00  54 58 41 3a 53 54 41 28  26 38 30 29 2c 59 3a 50  |TXA:STA(&80),Y:P|
00000a10  4c 41 3a 54 41 59 3a 52  54 53 0d 01 0e 74 2e 72  |LA:TAY:RTS...t.r|
00000a20  65 61 64 73 61 6d 65 20  4c 44 41 73 61 6d 65 4c  |eadsame LDAsameL|
00000a30  4f 3a 53 54 41 26 38 30  3a 4c 44 41 73 61 6d 65  |O:STA&80:LDAsame|
00000a40  48 49 3a 41 53 4c 26 38  30 3a 52 4f 4c 20 41 3a  |HI:ASL&80:ROL A:|
00000a50  43 4c 43 3a 41 44 43 23  26 32 36 3a 53 54 41 26  |CLC:ADC#&26:STA&|
00000a60  38 31 3a 4c 44 59 23 30  3a 4c 44 41 28 26 38 30  |81:LDY#0:LDA(&80|
00000a70  29 2c 59 3a 54 41 58 3a  49 4e 59 3a 4c 44 41 28  |),Y:TAX:INY:LDA(|
00000a80  26 38 30 29 2c 59 3a 54  41 59 3a 52 54 53 0d 01  |&80),Y:TAY:RTS..|
00000a90  18 5c 2e 77 72 69 74 65  63 6f 6c 20 4c 44 41 78  |.\.writecol LDAx|
00000aa0  4c 4f 3a 53 54 41 26 38  30 3a 4c 44 41 78 48 49  |LO:STA&80:LDAxHI|
00000ab0  3a 43 4c 43 3a 41 44 43  23 26 32 42 3a 53 54 41  |:CLC:ADC#&2B:STA|
00000ac0  26 38 31 3a 53 54 59 26  38 33 3a 54 58 41 3a 4c  |&81:STY&83:TXA:L|
00000ad0  44 59 23 30 3a 53 54 41  28 26 38 30 29 2c 59 3a  |DY#0:STA(&80),Y:|
00000ae0  4c 44 59 26 38 33 3a 52  54 53 0d 01 22 5f 2e 72  |LDY&83:RTS.."_.r|
00000af0  65 61 64 63 6f 6c 20 4c  44 41 63 6f 6c 4c 4f 3a  |eadcol LDAcolLO:|
00000b00  53 54 41 26 38 30 3a 4c  44 41 63 6f 6c 48 49 3a  |STA&80:LDAcolHI:|
00000b10  43 4c 43 3a 41 44 43 23  26 32 42 3a 53 54 41 26  |CLC:ADC#&2B:STA&|
00000b20  38 31 3a 53 54 59 26 38  33 3a 4c 44 59 23 30 3a  |81:STY&83:LDY#0:|
00000b30  4c 44 41 28 26 38 30 29  2c 59 3a 54 41 58 3a 4c  |LDA(&80),Y:TAX:L|
00000b40  44 59 26 38 33 3a 52 54  53 0d 01 2c c9 20 2e 73  |DY&83:RTS..,. .s|
00000b50  68 6f 77 20 41 53 4c 77  69 64 74 68 4c 4f 3a 52  |how ASLwidthLO:R|
00000b60  4f 4c 77 69 64 74 68 48  49 3a 4c 44 41 23 6d 6f  |OLwidthHI:LDA#mo|
00000b70  64 65 3a 43 4d 50 23 34  3a 42 4e 45 64 68 65 69  |de:CMP#4:BNEdhei|
00000b80  67 68 74 3a 41 53 4c 77  69 64 74 68 4c 4f 3a 52  |ght:ASLwidthLO:R|
00000b90  4f 4c 77 69 64 74 68 48  49 3a 2e 64 68 65 69 67  |OLwidthHI:.dheig|
00000ba0  68 74 20 4c 44 58 68 65  69 67 68 74 4c 4f 3a 44  |ht LDXheightLO:D|
00000bb0  45 58 3a 53 54 58 68 65  69 67 68 74 4c 4f 3a 43  |EX:STXheightLO:C|
00000bc0  50 58 23 26 46 46 3a 42  4e 45 63 6f 6e 74 32 3a  |PX#&FF:BNEcont2:|
00000bd0  44 45 43 68 65 69 67 68  74 48 49 3a 2e 63 6f 6e  |DECheightHI:.con|
00000be0  74 32 20 41 53 4c 68 65  69 67 68 74 4c 4f 3a 52  |t2 ASLheightLO:R|
00000bf0  4f 4c 68 65 69 67 68 74  48 49 3a 41 53 4c 68 65  |OLheightHI:ASLhe|
00000c00  69 67 68 74 4c 4f 3a 52  4f 4c 68 65 69 67 68 74  |ightLO:ROLheight|
00000c10  48 49 0d 01 36 56 4c 44  59 23 30 3a 53 54 59 79  |HI..6VLDY#0:STYy|
00000c20  48 49 3a 53 54 59 79 4c  4f 3a 4c 44 41 23 26 38  |HI:STYyLO:LDA#&8|
00000c30  30 3a 53 54 41 26 38 38  3a 4c 44 41 23 6d 65 6d  |0:STA&88:LDA#mem|
00000c40  74 6f 70 3a 53 54 41 26  38 39 3a 2e 70 6c 6f 74  |top:STA&89:.plot|
00000c50  6c 69 6e 65 20 4c 44 41  23 30 3a 53 54 41 78 4c  |line LDA#0:STAxL|
00000c60  4f 3a 53 54 41 78 48 49  0d 01 40 be 2e 70 6c 6f  |O:STAxHI..@..plo|
00000c70  74 6c 6f 6f 70 20 4c 44  41 28 26 38 38 29 2c 59  |tloop LDA(&88),Y|
00000c80  3a 4c 53 52 20 41 3a 53  54 41 28 26 38 38 29 2c  |:LSR A:STA(&88),|
00000c90  59 3a 42 43 43 6e 65 78  74 70 6c 6f 74 3a 4c 44  |Y:BCCnextplot:LD|
00000ca0  58 23 34 3a 2e 64 72 61  77 20 4c 44 41 23 32 35  |X#4:.draw LDA#25|
00000cb0  3a 4a 53 52 26 46 46 45  45 3a 54 58 41 3a 4a 53  |:JSR&FFEE:TXA:JS|
00000cc0  52 26 46 46 45 45 3a 4c  44 41 78 4c 4f 3a 4a 53  |R&FFEE:LDAxLO:JS|
00000cd0  52 26 46 46 45 45 3a 4c  44 41 78 48 49 3a 4a 53  |R&FFEE:LDAxHI:JS|
00000ce0  52 26 46 46 45 45 3a 4c  44 41 79 4c 4f 3a 4a 53  |R&FFEE:LDAyLO:JS|
00000cf0  52 26 46 46 45 45 3a 4c  44 41 79 48 49 3a 4a 53  |R&FFEE:LDAyHI:JS|
00000d00  52 26 46 46 45 45 3a 43  50 58 23 35 3a 42 45 51  |R&FFEE:CPX#5:BEQ|
00000d10  6e 65 78 74 70 6c 6f 74  3a 4c 44 58 23 35 3a 4a  |nextplot:LDX#5:J|
00000d20  4d 50 64 72 61 77 0d 01  4a d8 20 2e 6e 65 78 74  |MPdraw..J. .next|
00000d30  70 6c 6f 74 20 49 4e 43  63 6f 75 6e 74 65 72 3a  |plot INCcounter:|
00000d40  4c 44 41 63 6f 75 6e 74  65 72 3a 43 4d 50 23 38  |LDAcounter:CMP#8|
00000d50  3a 42 4e 45 6e 65 78 74  78 3a 4c 44 41 23 30 3a  |:BNEnextx:LDA#0:|
00000d60  53 54 41 63 6f 75 6e 74  65 72 3a 44 45 43 26 38  |STAcounter:DEC&8|
00000d70  38 3a 4c 44 41 26 38 38  3a 43 4d 50 23 26 46 46  |8:LDA&88:CMP#&FF|
00000d80  3a 42 4e 45 6e 65 78 74  78 3a 44 45 43 26 38 39  |:BNEnextx:DEC&89|
00000d90  3a 2e 6e 65 78 74 78 20  4c 44 41 78 4c 4f 3a 43  |:.nextx LDAxLO:C|
00000da0  4c 43 3a 41 44 43 23 70  69 78 65 6c 73 3a 53 54  |LC:ADC#pixels:ST|
00000db0  41 78 4c 4f 3a 42 43 43  63 68 65 63 6b 77 3a 49  |AxLO:BCCcheckw:I|
00000dc0  4e 43 78 48 49 3a 2e 63  68 65 63 6b 77 20 4c 44  |NCxHI:.checkw LD|
00000dd0  41 78 48 49 3a 43 4d 50  77 69 64 74 68 48 49 3a  |AxHI:CMPwidthHI:|
00000de0  42 43 43 70 6c 6f 74 6c  6f 6f 70 3a 4c 44 41 78  |BCCplotloop:LDAx|
00000df0  4c 4f 3a 42 43 43 70 6c  6f 74 6c 6f 6f 70 0d 01  |LO:BCCplotloop..|
00000e00  54 8c 4c 44 41 79 4c 4f  3a 43 4c 43 3a 41 44 43  |T.LDAyLO:CLC:ADC|
00000e10  23 34 3a 53 54 41 79 4c  4f 3a 42 43 43 63 68 65  |#4:STAyLO:BCCche|
00000e20  63 6b 65 6e 64 3a 49 4e  43 79 48 49 3a 2e 63 68  |ckend:INCyHI:.ch|
00000e30  65 63 6b 65 6e 64 20 43  4d 50 68 65 69 67 68 74  |eckend CMPheight|
00000e40  4c 4f 3a 42 4e 45 70 6c  6f 74 6c 69 6e 65 32 3a  |LO:BNEplotline2:|
00000e50  4c 44 41 79 48 49 3a 43  4d 50 68 65 69 67 68 74  |LDAyHI:CMPheight|
00000e60  48 49 3a 42 4e 45 70 6c  6f 74 6c 69 6e 65 32 3a  |HI:BNEplotline2:|
00000e70  52 54 53 3a 2e 70 6c 6f  74 6c 69 6e 65 32 20 4a  |RTS:.plotline2 J|
00000e80  4d 50 70 6c 6f 74 6c 69  6e 65 0d 01 5e d3 2e 78  |MPplotline..^..x|
00000e90  4c 4f 20 45 51 55 42 30  3a 2e 78 48 49 20 45 51  |LO EQUB0:.xHI EQ|
00000ea0  55 42 30 3a 2e 79 4c 4f  20 45 51 55 42 30 3a 2e  |UB0:.yLO EQUB0:.|
00000eb0  79 48 49 20 45 51 55 42  30 3a 2e 73 61 6d 65 4c  |yHI EQUB0:.sameL|
00000ec0  4f 20 45 51 55 42 30 3a  2e 73 61 6d 65 48 49 20  |O EQUB0:.sameHI |
00000ed0  45 51 55 42 30 3a 2e 63  6f 6c 4c 4f 20 45 51 55  |EQUB0:.colLO EQU|
00000ee0  42 30 3a 2e 63 6f 6c 48  49 20 45 51 55 42 30 3a  |B0:.colHI EQUB0:|
00000ef0  2e 77 69 64 74 68 4c 4f  20 45 51 55 42 30 3a 2e  |.widthLO EQUB0:.|
00000f00  77 69 64 74 68 48 49 20  45 51 55 42 30 3a 2e 68  |widthHI EQUB0:.h|
00000f10  65 69 67 68 74 4c 4f 20  45 51 55 42 30 3a 2e 68  |eightLO EQUB0:.h|
00000f20  65 69 67 68 74 48 49 20  45 51 55 42 30 3a 2e 73  |eightHI EQUB0:.s|
00000f30  65 70 4c 4f 20 45 51 55  42 30 3a 2e 73 65 70 48  |epLO EQUB0:.sepH|
00000f40  49 20 45 51 55 42 30 3a  2e 69 4c 4f 20 45 51 55  |I EQUB0:.iLO EQU|
00000f50  42 30 3a 2e 69 48 49 20  45 51 55 42 30 0d 01 68  |B0:.iHI EQUB0..h|
00000f60  4a 2e 6a 4c 4f 20 45 51  55 42 30 3a 2e 6a 48 49  |J.jLO EQUB0:.jHI|
00000f70  20 45 51 55 42 30 3a 2e  73 4c 4f 20 45 51 55 42  | EQUB0:.sLO EQUB|
00000f80  30 3a 2e 73 48 49 20 45  51 55 42 30 3a 2e 62 79  |0:.sHI EQUB0:.by|
00000f90  74 65 20 45 51 55 42 30  3a 2e 63 6f 75 6e 74 65  |te EQUB0:.counte|
00000fa0  72 20 45 51 55 42 30 0d  01 72 5a 2e 73 68 61 70  |r EQUB0..rZ.shap|
00000fb0  65 20 4c 44 41 78 4c 4f  3a 53 54 41 26 37 30 3a  |e LDAxLO:STA&70:|
00000fc0  4c 44 41 78 48 49 3a 53  54 41 26 37 31 3a 41 53  |LDAxHI:STA&71:AS|
00000fd0  4c 26 37 30 3a 52 4f 4c  26 37 31 3a 4c 44 41 23  |L&70:ROL&71:LDA#|
00000fe0  6d 6f 64 65 3a 43 4d 50  23 34 3a 42 4e 45 79 6d  |mode:CMP#4:BNEym|
00000ff0  75 6c 74 3a 41 53 4c 26  37 30 3a 52 4f 4c 26 37  |ult:ASL&70:ROL&7|
00001000  31 0d 01 7c 60 20 2e 79  6d 75 6c 74 20 4c 44 41  |1..|` .ymult LDA|
00001010  79 4c 4f 3a 53 54 41 26  37 32 3a 4c 44 41 79 48  |yLO:STA&72:LDAyH|
00001020  49 3a 53 54 41 26 37 33  3a 41 53 4c 26 37 32 3a  |I:STA&73:ASL&72:|
00001030  52 4f 4c 26 37 33 3a 41  53 4c 26 37 32 3a 52 4f  |ROL&73:ASL&72:RO|
00001040  4c 26 37 33 3a 4c 44 41  23 39 3a 4c 44 58 23 26  |L&73:LDA#9:LDX#&|
00001050  37 30 3a 4c 44 59 23 30  3a 4a 53 52 26 46 46 46  |70:LDY#0:JSR&FFF|
00001060  31 0d 01 86 7a 4c 44 41  26 37 34 3a 41 53 4c 20  |1...zLDA&74:ASL |
00001070  41 3a 54 41 59 3a 4c 44  41 23 28 67 72 6f 75 6e  |A:TAY:LDA#(groun|
00001080  64 4c 4f 20 83 32 35 36  29 3a 53 54 41 26 38 42  |dLO .256):STA&8B|
00001090  3a 4c 44 41 23 28 67 72  6f 75 6e 64 4c 4f 20 81  |:LDA#(groundLO .|
000010a0  32 35 36 29 3a 53 54 41  26 38 43 3a 4c 44 41 28  |256):STA&8C:LDA(|
000010b0  26 38 42 29 2c 59 3a 53  54 41 73 65 70 4c 4f 3a  |&8B),Y:STAsepLO:|
000010c0  49 4e 59 3a 4c 44 41 28  26 38 42 29 2c 59 3a 53  |INY:LDA(&8B),Y:S|
000010d0  54 41 73 65 70 48 49 3a  52 54 53 0d 01 9a 41 2e  |TAsepHI:RTS...A.|
000010e0  67 72 6f 75 6e 64 4c 4f  20 45 51 55 42 30 3a 2e  |groundLO EQUB0:.|
000010f0  67 72 6f 75 6e 64 48 49  20 45 51 55 42 30 3a 45  |groundHI EQUB0:E|
00001100  51 55 44 30 3a 45 51 55  44 30 3a 45 51 55 44 30  |QUD0:EQUD0:EQUD0|
00001110  3a 45 51 55 57 30 3a 45  51 55 42 30 0d 01 a4 05  |:EQUW0:EQUB0....|
00001120  5d 0d 01 ae 05 ed 0d 01  b8 20 20 21 77 69 64 74  |]........  !widt|
00001130  68 4c 4f 3d 77 69 64 74  68 2b 68 65 69 67 68 74  |hLO=width+height|
00001140  2a 36 35 35 33 36 0d 01  c2 22 20 65 79 65 67 61  |*65536..." eyega|
00001150  70 3d a8 28 65 79 65 73  65 70 2f 31 33 36 2a 77  |p=.(eyesep/136*w|
00001160  69 64 74 68 2b 2e 35 29  0d 01 cc 7f 20 f1 27 22  |idth+.5).... .'"|
00001170  45 6e 74 65 72 20 65 6c  65 76 61 74 69 6f 6e 20  |Enter elevation |
00001180  6e 75 6d 62 65 72 20 66  6f 72 20 65 61 63 68 20  |number for each |
00001190  6c 6f 67 69 63 61 6c 20  20 63 6f 6c 6f 75 72 20  |logical  colour |
000011a0  28 30 3d 62 61 63 6b 67  72 6f 75 6e 64 2c 20 34  |(0=background, 4|
000011b0  20 69 73 20 73 75 69 74  61 62 6c 65 20 66 6f 72  | is suitable for|
000011c0  20 6d 6f 73 74 20 6f 62  6a 65 63 74 73 2c 20 6f  | most objects, o|
000011d0  6e 6c 79 20 69 6e 74 65  67 65 72 73 20 61 6c 6c  |nly integers all|
000011e0  6f 77 65 64 29 22 27 0d  01 d6 93 e3 6f 62 6a 65  |owed)"'.....obje|
000011f0  63 74 3d 30 20 b8 20 63  6f 6c 6f 75 72 73 2d 31  |ct=0 . colours-1|
00001200  3a f1 22 20 20 20 43 6f  6c 6f 75 72 20 22 2b c3  |:."   Colour "+.|
00001210  28 6f 62 6a 65 63 74 29  2b 22 3a 20 22 3b 3a e8  |(object)+": ";:.|
00001220  22 22 65 6c 65 76 3a 3f  28 67 72 6f 75 6e 64 4c  |""elev:?(groundL|
00001230  4f 2b 6f 62 6a 65 63 74  2a 32 29 3d 28 65 79 65  |O+object*2)=(eye|
00001240  67 61 70 2d 65 6c 65 76  29 20 83 32 35 36 3a 3f  |gap-elev) .256:?|
00001250  28 67 72 6f 75 6e 64 4c  4f 2b 6f 62 6a 65 63 74  |(groundLO+object|
00001260  2a 32 2b 31 29 3d 28 65  79 65 67 61 70 2d 65 6c  |*2+1)=(eyegap-el|
00001270  65 76 29 20 81 32 35 36  3a ed 0d 01 e0 65 20 21  |ev) .256:....e !|
00001280  26 35 46 46 43 3d 72 61  6e 64 6f 6d 3a 21 26 35  |&5FFC=random:!&5|
00001290  46 46 38 3d 73 68 6f 77  3a 3f 26 35 46 46 37 3d  |FF8=show:?&5FF7=|
000012a0  73 6d 6f 64 65 3a 3f 26  35 46 46 36 3d 6d 6f 64  |smode:?&5FF6=mod|
000012b0  65 3a 24 26 35 46 45 30  3d 73 66 24 3a 24 26 35  |e:$&5FE0=sf$:$&5|
000012c0  46 44 30 3d 64 66 24 3a  24 26 35 46 43 38 3d 61  |FD0=df$:$&5FC8=a|
000012d0  64 64 24 3a 21 26 35 46  43 34 3d 63 6f 64 65 0d  |dd$:!&5FC4=code.|
000012e0  01 ea 28 20 61 24 3d 22  44 45 4c 45 54 45 20 31  |..( a$="DELETE 1|
000012f0  30 2c 35 31 30 22 2b bd  31 33 2b 22 52 55 4e 22  |0,510"+.13+"RUN"|
00001300  2b bd 36 2b bd 31 33 0d  01 f4 3b 20 ef 20 32 31  |+.6+.13...; . 21|
00001310  3a e3 20 63 68 61 72 3d  31 20 b8 20 a9 28 61 24  |:. char=1 . .(a$|
00001320  29 3a ff 22 46 58 20 31  33 38 2c 30 2c 22 2b c3  |):."FX 138,0,"+.|
00001330  28 97 28 c1 61 24 2c 63  68 61 72 2c 31 29 29 29  |(.(.a$,char,1)))|
00001340  3a ed 0d 01 fe 06 20 e0  0d 02 08 64 72 61 6e 64  |:..... ....drand|
00001350  6f 6d 3d 21 26 35 46 46  43 3a 73 68 6f 77 3d 21  |om=!&5FFC:show=!|
00001360  26 35 46 46 38 3a 73 6d  6f 64 65 3d 3f 26 35 46  |&5FF8:smode=?&5F|
00001370  46 37 3a 6d 6f 64 65 3d  3f 26 35 46 46 36 3a 73  |F7:mode=?&5FF6:s|
00001380  66 24 3d 24 26 35 46 45  30 3a 64 66 24 3d 24 26  |f$=$&5FE0:df$=$&|
00001390  35 46 44 30 3a 61 64 64  24 3d 24 26 35 46 43 38  |5FD0:add$=$&5FC8|
000013a0  3a 63 6f 64 65 3d 21 26  35 46 43 34 0d 02 12 2e  |:code=!&5FC4....|
000013b0  eb 73 6d 6f 64 65 3a d3  3d 26 32 36 30 30 3a ef  |.smode:.=&2600:.|
000013c0  20 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 3a ff  | 23,1,0;0;0;0;:.|
000013d0  22 4c 4f 2e 20 22 2b 73  66 24 0d 02 1c 09 d6 63  |"LO. "+sf$.....c|
000013e0  6f 64 65 0d 02 26 2f e7  3f 26 37 30 3d 31 20 8c  |ode..&/.?&70=1 .|
000013f0  20 e5 8d 54 70 42 20 8b  20 3f 26 37 31 3d b3 28  | ..TpB . ?&71=.(|
00001400  32 29 2d 31 3a d6 72 61  6e 64 6f 6d 3a e5 8d 54  |2)-1:.random:..T|
00001410  66 42 0d 02 30 46 20 e7  20 6d 6f 64 65 3d 30 20  |fB..0F . mode=0 |
00001420  8c 20 ff 22 53 41 2e 20  54 45 4d 50 20 32 44 38  |. ."SA. TEMP 2D8|
00001430  30 20 37 44 38 30 22 3a  eb 30 3a ff 22 4c 4f 2e  |0 7D80":.0:."LO.|
00001440  20 54 45 4d 50 22 3a ff  22 44 45 4c 2e 20 54 45  | TEMP":."DEL. TE|
00001450  4d 50 22 20 8b 20 eb 34  0d 02 3a 0a 20 d6 73 68  |MP" . .4..:. .sh|
00001460  6f 77 0d 02 44 1c 20 ff  22 53 41 2e 20 22 2b 64  |ow..D. ."SA. "+d|
00001470  66 24 2b 61 64 64 24 2b  22 38 30 30 30 22 0d 02  |f$+add$+"8000"..|
00001480  4e 0a 20 e5 8d 44 4e 42  0d ff                    |N. ..DNB..|
0000148a