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
s code=&900
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#&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:ASL&80:ROL A:CLC:ADC#20:STA&81:TYA:PHA:LDY#1:STA(&80),Y:DEY:TXA:STA(&80),Y:PLA:TAY:RTS

s.readsame LDAsameLO:STA&80:LDAsameHI:ASL&80:ROL A:CLC:ADC#20: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: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:�=&2000:� 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 20 63 6f 64 65  |ght=256..s. code|
000002e0  3d 26 39 30 30 0d 00 78  24 e3 70 61 73 73 3d 30  |=&900..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 30 3a 53 54  41 26 37 31 3a 4c 44 59  |A#&20: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 80 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  32 30 3a 53 54 41 26 38  |CLC:ADC#20:STA&8|
000009e0  31 3a 54 59 41 3a 50 48  41 3a 4c 44 59 23 31 3a  |1:TYA:PHA:LDY#1:|
000009f0  53 54 41 28 26 38 30 29  2c 59 3a 44 45 59 3a 54  |STA(&80),Y:DEY:T|
00000a00  58 41 3a 53 54 41 28 26  38 30 29 2c 59 3a 50 4c  |XA:STA(&80),Y:PL|
00000a10  41 3a 54 41 59 3a 52 54  53 0d 01 0e 73 2e 72 65  |A:TAY:RTS...s.re|
00000a20  61 64 73 61 6d 65 20 4c  44 41 73 61 6d 65 4c 4f  |adsame LDAsameLO|
00000a30  3a 53 54 41 26 38 30 3a  4c 44 41 73 61 6d 65 48  |:STA&80:LDAsameH|
00000a40  49 3a 41 53 4c 26 38 30  3a 52 4f 4c 20 41 3a 43  |I:ASL&80:ROL A:C|
00000a50  4c 43 3a 41 44 43 23 32  30 3a 53 54 41 26 38 31  |LC:ADC#20:STA&81|
00000a60  3a 4c 44 59 23 30 3a 4c  44 41 28 26 38 30 29 2c  |:LDY#0:LDA(&80),|
00000a70  59 3a 54 41 58 3a 49 4e  59 3a 4c 44 41 28 26 38  |Y:TAX:INY:LDA(&8|
00000a80  30 29 2c 59 3a 54 41 59  3a 52 54 53 0d 01 18 5c  |0),Y:TAY:RTS...\|
00000a90  2e 77 72 69 74 65 63 6f  6c 20 4c 44 41 78 4c 4f  |.writecol LDAxLO|
00000aa0  3a 53 54 41 26 38 30 3a  4c 44 41 78 48 49 3a 43  |:STA&80:LDAxHI:C|
00000ab0  4c 43 3a 41 44 43 23 26  32 38 3a 53 54 41 26 38  |LC:ADC#&28:STA&8|
00000ac0  31 3a 53 54 59 26 38 33  3a 54 58 41 3a 4c 44 59  |1:STY&83:TXA:LDY|
00000ad0  23 30 3a 53 54 41 28 26  38 30 29 2c 59 3a 4c 44  |#0:STA(&80),Y:LD|
00000ae0  59 26 38 33 3a 52 54 53  0d 01 22 5f 2e 72 65 61  |Y&83:RTS.."_.rea|
00000af0  64 63 6f 6c 20 4c 44 41  63 6f 6c 4c 4f 3a 53 54  |dcol LDAcolLO:ST|
00000b00  41 26 38 30 3a 4c 44 41  63 6f 6c 48 49 3a 43 4c  |A&80:LDAcolHI:CL|
00000b10  43 3a 41 44 43 23 26 32  38 3a 53 54 41 26 38 31  |C:ADC#&28:STA&81|
00000b20  3a 53 54 59 26 38 33 3a  4c 44 59 23 30 3a 4c 44  |:STY&83:LDY#0:LD|
00000b30  41 28 26 38 30 29 2c 59  3a 54 41 58 3a 4c 44 59  |A(&80),Y:TAX:LDY|
00000b40  26 38 33 3a 52 54 53 0d  01 2c c9 20 2e 73 68 6f  |&83:RTS..,. .sho|
00000b50  77 20 41 53 4c 77 69 64  74 68 4c 4f 3a 52 4f 4c  |w ASLwidthLO:ROL|
00000b60  77 69 64 74 68 48 49 3a  4c 44 41 23 6d 6f 64 65  |widthHI:LDA#mode|
00000b70  3a 43 4d 50 23 34 3a 42  4e 45 64 68 65 69 67 68  |:CMP#4:BNEdheigh|
00000b80  74 3a 41 53 4c 77 69 64  74 68 4c 4f 3a 52 4f 4c  |t:ASLwidthLO:ROL|
00000b90  77 69 64 74 68 48 49 3a  2e 64 68 65 69 67 68 74  |widthHI:.dheight|
00000ba0  20 4c 44 58 68 65 69 67  68 74 4c 4f 3a 44 45 58  | LDXheightLO:DEX|
00000bb0  3a 53 54 58 68 65 69 67  68 74 4c 4f 3a 43 50 58  |:STXheightLO:CPX|
00000bc0  23 26 46 46 3a 42 4e 45  63 6f 6e 74 32 3a 44 45  |#&FF:BNEcont2:DE|
00000bd0  43 68 65 69 67 68 74 48  49 3a 2e 63 6f 6e 74 32  |CheightHI:.cont2|
00000be0  20 41 53 4c 68 65 69 67  68 74 4c 4f 3a 52 4f 4c  | ASLheightLO:ROL|
00000bf0  68 65 69 67 68 74 48 49  3a 41 53 4c 68 65 69 67  |heightHI:ASLheig|
00000c00  68 74 4c 4f 3a 52 4f 4c  68 65 69 67 68 74 48 49  |htLO:ROLheightHI|
00000c10  0d 01 36 56 4c 44 59 23  30 3a 53 54 59 79 48 49  |..6VLDY#0:STYyHI|
00000c20  3a 53 54 59 79 4c 4f 3a  4c 44 41 23 26 38 30 3a  |:STYyLO:LDA#&80:|
00000c30  53 54 41 26 38 38 3a 4c  44 41 23 6d 65 6d 74 6f  |STA&88:LDA#memto|
00000c40  70 3a 53 54 41 26 38 39  3a 2e 70 6c 6f 74 6c 69  |p:STA&89:.plotli|
00000c50  6e 65 20 4c 44 41 23 30  3a 53 54 41 78 4c 4f 3a  |ne LDA#0:STAxLO:|
00000c60  53 54 41 78 48 49 0d 01  40 be 2e 70 6c 6f 74 6c  |STAxHI..@..plotl|
00000c70  6f 6f 70 20 4c 44 41 28  26 38 38 29 2c 59 3a 4c  |oop LDA(&88),Y:L|
00000c80  53 52 20 41 3a 53 54 41  28 26 38 38 29 2c 59 3a  |SR A:STA(&88),Y:|
00000c90  42 43 43 6e 65 78 74 70  6c 6f 74 3a 4c 44 58 23  |BCCnextplot:LDX#|
00000ca0  34 3a 2e 64 72 61 77 20  4c 44 41 23 32 35 3a 4a  |4:.draw LDA#25:J|
00000cb0  53 52 26 46 46 45 45 3a  54 58 41 3a 4a 53 52 26  |SR&FFEE:TXA:JSR&|
00000cc0  46 46 45 45 3a 4c 44 41  78 4c 4f 3a 4a 53 52 26  |FFEE:LDAxLO:JSR&|
00000cd0  46 46 45 45 3a 4c 44 41  78 48 49 3a 4a 53 52 26  |FFEE:LDAxHI:JSR&|
00000ce0  46 46 45 45 3a 4c 44 41  79 4c 4f 3a 4a 53 52 26  |FFEE:LDAyLO:JSR&|
00000cf0  46 46 45 45 3a 4c 44 41  79 48 49 3a 4a 53 52 26  |FFEE:LDAyHI:JSR&|
00000d00  46 46 45 45 3a 43 50 58  23 35 3a 42 45 51 6e 65  |FFEE:CPX#5:BEQne|
00000d10  78 74 70 6c 6f 74 3a 4c  44 58 23 35 3a 4a 4d 50  |xtplot:LDX#5:JMP|
00000d20  64 72 61 77 0d 01 4a d8  20 2e 6e 65 78 74 70 6c  |draw..J. .nextpl|
00000d30  6f 74 20 49 4e 43 63 6f  75 6e 74 65 72 3a 4c 44  |ot INCcounter:LD|
00000d40  41 63 6f 75 6e 74 65 72  3a 43 4d 50 23 38 3a 42  |Acounter:CMP#8:B|
00000d50  4e 45 6e 65 78 74 78 3a  4c 44 41 23 30 3a 53 54  |NEnextx:LDA#0:ST|
00000d60  41 63 6f 75 6e 74 65 72  3a 44 45 43 26 38 38 3a  |Acounter:DEC&88:|
00000d70  4c 44 41 26 38 38 3a 43  4d 50 23 26 46 46 3a 42  |LDA&88:CMP#&FF:B|
00000d80  4e 45 6e 65 78 74 78 3a  44 45 43 26 38 39 3a 2e  |NEnextx:DEC&89:.|
00000d90  6e 65 78 74 78 20 4c 44  41 78 4c 4f 3a 43 4c 43  |nextx LDAxLO:CLC|
00000da0  3a 41 44 43 23 70 69 78  65 6c 73 3a 53 54 41 78  |:ADC#pixels:STAx|
00000db0  4c 4f 3a 42 43 43 63 68  65 63 6b 77 3a 49 4e 43  |LO:BCCcheckw:INC|
00000dc0  78 48 49 3a 2e 63 68 65  63 6b 77 20 4c 44 41 78  |xHI:.checkw LDAx|
00000dd0  48 49 3a 43 4d 50 77 69  64 74 68 48 49 3a 42 43  |HI:CMPwidthHI:BC|
00000de0  43 70 6c 6f 74 6c 6f 6f  70 3a 4c 44 41 78 4c 4f  |Cplotloop:LDAxLO|
00000df0  3a 42 43 43 70 6c 6f 74  6c 6f 6f 70 0d 01 54 8c  |:BCCplotloop..T.|
00000e00  4c 44 41 79 4c 4f 3a 43  4c 43 3a 41 44 43 23 34  |LDAyLO:CLC:ADC#4|
00000e10  3a 53 54 41 79 4c 4f 3a  42 43 43 63 68 65 63 6b  |:STAyLO:BCCcheck|
00000e20  65 6e 64 3a 49 4e 43 79  48 49 3a 2e 63 68 65 63  |end:INCyHI:.chec|
00000e30  6b 65 6e 64 20 43 4d 50  68 65 69 67 68 74 4c 4f  |kend CMPheightLO|
00000e40  3a 42 4e 45 70 6c 6f 74  6c 69 6e 65 32 3a 4c 44  |:BNEplotline2:LD|
00000e50  41 79 48 49 3a 43 4d 50  68 65 69 67 68 74 48 49  |AyHI:CMPheightHI|
00000e60  3a 42 4e 45 70 6c 6f 74  6c 69 6e 65 32 3a 52 54  |:BNEplotline2:RT|
00000e70  53 3a 2e 70 6c 6f 74 6c  69 6e 65 32 20 4a 4d 50  |S:.plotline2 JMP|
00000e80  70 6c 6f 74 6c 69 6e 65  0d 01 5e d3 2e 78 4c 4f  |plotline..^..xLO|
00000e90  20 45 51 55 42 30 3a 2e  78 48 49 20 45 51 55 42  | EQUB0:.xHI EQUB|
00000ea0  30 3a 2e 79 4c 4f 20 45  51 55 42 30 3a 2e 79 48  |0:.yLO EQUB0:.yH|
00000eb0  49 20 45 51 55 42 30 3a  2e 73 61 6d 65 4c 4f 20  |I EQUB0:.sameLO |
00000ec0  45 51 55 42 30 3a 2e 73  61 6d 65 48 49 20 45 51  |EQUB0:.sameHI EQ|
00000ed0  55 42 30 3a 2e 63 6f 6c  4c 4f 20 45 51 55 42 30  |UB0:.colLO EQUB0|
00000ee0  3a 2e 63 6f 6c 48 49 20  45 51 55 42 30 3a 2e 77  |:.colHI EQUB0:.w|
00000ef0  69 64 74 68 4c 4f 20 45  51 55 42 30 3a 2e 77 69  |idthLO EQUB0:.wi|
00000f00  64 74 68 48 49 20 45 51  55 42 30 3a 2e 68 65 69  |dthHI EQUB0:.hei|
00000f10  67 68 74 4c 4f 20 45 51  55 42 30 3a 2e 68 65 69  |ghtLO EQUB0:.hei|
00000f20  67 68 74 48 49 20 45 51  55 42 30 3a 2e 73 65 70  |ghtHI EQUB0:.sep|
00000f30  4c 4f 20 45 51 55 42 30  3a 2e 73 65 70 48 49 20  |LO EQUB0:.sepHI |
00000f40  45 51 55 42 30 3a 2e 69  4c 4f 20 45 51 55 42 30  |EQUB0:.iLO EQUB0|
00000f50  3a 2e 69 48 49 20 45 51  55 42 30 0d 01 68 4a 2e  |:.iHI EQUB0..hJ.|
00000f60  6a 4c 4f 20 45 51 55 42  30 3a 2e 6a 48 49 20 45  |jLO EQUB0:.jHI E|
00000f70  51 55 42 30 3a 2e 73 4c  4f 20 45 51 55 42 30 3a  |QUB0:.sLO EQUB0:|
00000f80  2e 73 48 49 20 45 51 55  42 30 3a 2e 62 79 74 65  |.sHI EQUB0:.byte|
00000f90  20 45 51 55 42 30 3a 2e  63 6f 75 6e 74 65 72 20  | EQUB0:.counter |
00000fa0  45 51 55 42 30 0d 01 72  5a 2e 73 68 61 70 65 20  |EQUB0..rZ.shape |
00000fb0  4c 44 41 78 4c 4f 3a 53  54 41 26 37 30 3a 4c 44  |LDAxLO:STA&70:LD|
00000fc0  41 78 48 49 3a 53 54 41  26 37 31 3a 41 53 4c 26  |AxHI:STA&71:ASL&|
00000fd0  37 30 3a 52 4f 4c 26 37  31 3a 4c 44 41 23 6d 6f  |70:ROL&71:LDA#mo|
00000fe0  64 65 3a 43 4d 50 23 34  3a 42 4e 45 79 6d 75 6c  |de:CMP#4:BNEymul|
00000ff0  74 3a 41 53 4c 26 37 30  3a 52 4f 4c 26 37 31 0d  |t:ASL&70:ROL&71.|
00001000  01 7c 60 20 2e 79 6d 75  6c 74 20 4c 44 41 79 4c  |.|` .ymult LDAyL|
00001010  4f 3a 53 54 41 26 37 32  3a 4c 44 41 79 48 49 3a  |O:STA&72:LDAyHI:|
00001020  53 54 41 26 37 33 3a 41  53 4c 26 37 32 3a 52 4f  |STA&73:ASL&72:RO|
00001030  4c 26 37 33 3a 41 53 4c  26 37 32 3a 52 4f 4c 26  |L&73:ASL&72:ROL&|
00001040  37 33 3a 4c 44 41 23 39  3a 4c 44 58 23 26 37 30  |73:LDA#9:LDX#&70|
00001050  3a 4c 44 59 23 30 3a 4a  53 52 26 46 46 46 31 0d  |:LDY#0:JSR&FFF1.|
00001060  01 86 7a 4c 44 41 26 37  34 3a 41 53 4c 20 41 3a  |..zLDA&74:ASL A:|
00001070  54 41 59 3a 4c 44 41 23  28 67 72 6f 75 6e 64 4c  |TAY:LDA#(groundL|
00001080  4f 20 83 32 35 36 29 3a  53 54 41 26 38 42 3a 4c  |O .256):STA&8B:L|
00001090  44 41 23 28 67 72 6f 75  6e 64 4c 4f 20 81 32 35  |DA#(groundLO .25|
000010a0  36 29 3a 53 54 41 26 38  43 3a 4c 44 41 28 26 38  |6):STA&8C:LDA(&8|
000010b0  42 29 2c 59 3a 53 54 41  73 65 70 4c 4f 3a 49 4e  |B),Y:STAsepLO:IN|
000010c0  59 3a 4c 44 41 28 26 38  42 29 2c 59 3a 53 54 41  |Y:LDA(&8B),Y:STA|
000010d0  73 65 70 48 49 3a 52 54  53 0d 01 9a 41 2e 67 72  |sepHI:RTS...A.gr|
000010e0  6f 75 6e 64 4c 4f 20 45  51 55 42 30 3a 2e 67 72  |oundLO EQUB0:.gr|
000010f0  6f 75 6e 64 48 49 20 45  51 55 42 30 3a 45 51 55  |oundHI EQUB0:EQU|
00001100  44 30 3a 45 51 55 44 30  3a 45 51 55 44 30 3a 45  |D0:EQUD0:EQUD0:E|
00001110  51 55 57 30 3a 45 51 55  42 30 0d 01 a4 05 5d 0d  |QUW0:EQUB0....].|
00001120  01 ae 05 ed 0d 01 b8 20  20 21 77 69 64 74 68 4c  |.......  !widthL|
00001130  4f 3d 77 69 64 74 68 2b  68 65 69 67 68 74 2a 36  |O=width+height*6|
00001140  35 35 33 36 0d 01 c2 22  20 65 79 65 67 61 70 3d  |5536..." eyegap=|
00001150  a8 28 65 79 65 73 65 70  2f 31 33 36 2a 77 69 64  |.(eyesep/136*wid|
00001160  74 68 2b 2e 35 29 0d 01  cc 7f 20 f1 27 22 45 6e  |th+.5).... .'"En|
00001170  74 65 72 20 65 6c 65 76  61 74 69 6f 6e 20 6e 75  |ter elevation nu|
00001180  6d 62 65 72 20 66 6f 72  20 65 61 63 68 20 6c 6f  |mber for each lo|
00001190  67 69 63 61 6c 20 20 63  6f 6c 6f 75 72 20 28 30  |gical  colour (0|
000011a0  3d 62 61 63 6b 67 72 6f  75 6e 64 2c 20 34 20 69  |=background, 4 i|
000011b0  73 20 73 75 69 74 61 62  6c 65 20 66 6f 72 20 6d  |s suitable for m|
000011c0  6f 73 74 20 6f 62 6a 65  63 74 73 2c 20 6f 6e 6c  |ost objects, onl|
000011d0  79 20 69 6e 74 65 67 65  72 73 20 61 6c 6c 6f 77  |y integers allow|
000011e0  65 64 29 22 27 0d 01 d6  93 e3 6f 62 6a 65 63 74  |ed)"'.....object|
000011f0  3d 30 20 b8 20 63 6f 6c  6f 75 72 73 2d 31 3a f1  |=0 . colours-1:.|
00001200  22 20 20 20 43 6f 6c 6f  75 72 20 22 2b c3 28 6f  |"   Colour "+.(o|
00001210  62 6a 65 63 74 29 2b 22  3a 20 22 3b 3a e8 22 22  |bject)+": ";:.""|
00001220  65 6c 65 76 3a 3f 28 67  72 6f 75 6e 64 4c 4f 2b  |elev:?(groundLO+|
00001230  6f 62 6a 65 63 74 2a 32  29 3d 28 65 79 65 67 61  |object*2)=(eyega|
00001240  70 2d 65 6c 65 76 29 20  83 32 35 36 3a 3f 28 67  |p-elev) .256:?(g|
00001250  72 6f 75 6e 64 4c 4f 2b  6f 62 6a 65 63 74 2a 32  |roundLO+object*2|
00001260  2b 31 29 3d 28 65 79 65  67 61 70 2d 65 6c 65 76  |+1)=(eyegap-elev|
00001270  29 20 81 32 35 36 3a ed  0d 01 e0 65 20 21 26 35  |) .256:....e !&5|
00001280  46 46 43 3d 72 61 6e 64  6f 6d 3a 21 26 35 46 46  |FFC=random:!&5FF|
00001290  38 3d 73 68 6f 77 3a 3f  26 35 46 46 37 3d 73 6d  |8=show:?&5FF7=sm|
000012a0  6f 64 65 3a 3f 26 35 46  46 36 3d 6d 6f 64 65 3a  |ode:?&5FF6=mode:|
000012b0  24 26 35 46 45 30 3d 73  66 24 3a 24 26 35 46 44  |$&5FE0=sf$:$&5FD|
000012c0  30 3d 64 66 24 3a 24 26  35 46 43 38 3d 61 64 64  |0=df$:$&5FC8=add|
000012d0  24 3a 21 26 35 46 43 34  3d 63 6f 64 65 0d 01 ea  |$:!&5FC4=code...|
000012e0  28 20 61 24 3d 22 44 45  4c 45 54 45 20 31 30 2c  |( a$="DELETE 10,|
000012f0  35 31 30 22 2b bd 31 33  2b 22 52 55 4e 22 2b bd  |510"+.13+"RUN"+.|
00001300  36 2b bd 31 33 0d 01 f4  3b 20 ef 20 32 31 3a e3  |6+.13...; . 21:.|
00001310  20 63 68 61 72 3d 31 20  b8 20 a9 28 61 24 29 3a  | char=1 . .(a$):|
00001320  ff 22 46 58 20 31 33 38  2c 30 2c 22 2b c3 28 97  |."FX 138,0,"+.(.|
00001330  28 c1 61 24 2c 63 68 61  72 2c 31 29 29 29 3a ed  |(.a$,char,1))):.|
00001340  0d 01 fe 06 20 e0 0d 02  08 64 72 61 6e 64 6f 6d  |.... ....drandom|
00001350  3d 21 26 35 46 46 43 3a  73 68 6f 77 3d 21 26 35  |=!&5FFC:show=!&5|
00001360  46 46 38 3a 73 6d 6f 64  65 3d 3f 26 35 46 46 37  |FF8:smode=?&5FF7|
00001370  3a 6d 6f 64 65 3d 3f 26  35 46 46 36 3a 73 66 24  |:mode=?&5FF6:sf$|
00001380  3d 24 26 35 46 45 30 3a  64 66 24 3d 24 26 35 46  |=$&5FE0:df$=$&5F|
00001390  44 30 3a 61 64 64 24 3d  24 26 35 46 43 38 3a 63  |D0:add$=$&5FC8:c|
000013a0  6f 64 65 3d 21 26 35 46  43 34 0d 02 12 2e eb 73  |ode=!&5FC4.....s|
000013b0  6d 6f 64 65 3a d3 3d 26  32 30 30 30 3a ef 20 32  |mode:.=&2000:. 2|
000013c0  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 3a ff 22 4c  |3,1,0;0;0;0;:."L|
000013d0  4f 2e 20 22 2b 73 66 24  0d 02 1c 09 d6 63 6f 64  |O. "+sf$.....cod|
000013e0  65 0d 02 26 2f e7 3f 26  37 30 3d 31 20 8c 20 e5  |e..&/.?&70=1 . .|
000013f0  8d 54 70 42 20 8b 20 3f  26 37 31 3d b3 28 32 29  |.TpB . ?&71=.(2)|
00001400  2d 31 3a d6 72 61 6e 64  6f 6d 3a e5 8d 54 66 42  |-1:.random:..TfB|
00001410  0d 02 30 46 20 e7 20 6d  6f 64 65 3d 30 20 8c 20  |..0F . mode=0 . |
00001420  ff 22 53 41 2e 20 54 45  4d 50 20 32 44 38 30 20  |."SA. TEMP 2D80 |
00001430  37 44 38 30 22 3a eb 30  3a ff 22 4c 4f 2e 20 54  |7D80":.0:."LO. T|
00001440  45 4d 50 22 3a ff 22 44  45 4c 2e 20 54 45 4d 50  |EMP":."DEL. TEMP|
00001450  22 20 8b 20 eb 34 0d 02  3a 0a 20 d6 73 68 6f 77  |" . .4..:. .show|
00001460  0d 02 44 1c 20 ff 22 53  41 2e 20 22 2b 64 66 24  |..D. ."SA. "+df$|
00001470  2b 61 64 64 24 2b 22 38  30 30 30 22 0d 02 4e 0a  |+add$+"8000"..N.|
00001480  20 e5 8d 44 4e 42 0d ff                           | ..DNB..|
00001488