�7:T$= "File Rescue"
� By Steve Turnbull
�  (c) Micro User
(� -----------------
2h%=(�P+&900)�&FF00:H%=�
<�=h%:� � �err
F�init:� � �error
P� �:�hd("Main Menu")
Z� Y%=1 � opts
d"�ox%,4+Y%)red$;Y%ylw$opt$(Y%)
n�:� �memused
x�25,oy%-3)cyn$drv
��25,oy%-2)cyn$traks
�2�cn(grn$+"Press key for your choice : ",oy%+2)
�Q%=�in(opts$):� Q%=3 �wipe
�� Q%=4 �drive
�� Q%=5 �swap
�� Q%=1 � Q%=2 � Q%=6
�� Q%=1 �search
�� Q%=2 �recover
�� Q%=6 quit=�
�� quit:�quit:�
�� �error:�coff
�� �=17 �
�� � �:�quit

� �err:�con

�:�" at line ";�:�

� �quit:�:*fx4

"�con:�hd("End"):*FX18

,�':@%=10:�

6� �init:�coff:*FX4,1

@� opts:� opt$(opts)

J� O%=1 � opts:� opt$(O%)

Topts$=opts$+�O%:�

^ox%=2:oy%=O%+4

hc$=�&88+�&88+�&89+�&89

rcopy$=�&87:tab$=�9:cr$=�13

|$buff1=&B00:buff2=&C00:buff3=&A00

�quit=�:ctrl=&70:�assem

�!sects=10:traks=40:sct=2:trk=0

�drv=0:P%=999:@%=5:J%=0

�red$=�129:grn$=�130

�ylw$=�131:blu$=�132

�mag$=�133:cyn$=�134

�wht$=�135:�

�� 6

�� Search disc for data

�� Recover data from disc

�� Wipe memory clean

�� Select disc drive

�� Number of tracks

� Quit
� �coff:� B%
� �con:� B%:B%=1
&�23,1,B%;0;0;0;:�
0� �hd(t$):�26,12
:�db(grn$+T$+" _ "+t$+" ",0)
D�
N� �db(t$,Y%)
X�cn(�141+t$+" ",Y%)
b�cn(�141+t$+" ",Y%+1)
l�
v� �cn(t$,Y%)
�� X%:X%=(40-�(t$))�2
��X%,Y%)t$;:�
�� �in(k$):� I%:*FX21
��con:� I%=�k$,�)
��-7*(I%=0):�I%:�coff:=I%
�� �rd(d%,t%,s%,b%):W%=&53
�� �wrt(d%,t%,s%,b%):W%=&4B
� ctrl?0=d%:ctrl!1=b%:ctrl?5=3
�!ctrl?6=W%:ctrl?7=t%:ctrl?8=s%
�ctrl?9=&21:�dfs(ctrl,10)
��
�� �dfs(C%,e%)
�� A%,X%,Y%,R%
A%=&7F:X%=C%:Y%=X%�256
� R%=R%+1:� &FFF1
� C%?e%=0 � R%=10
 � C%?e%=0 �
*�cn("Disc Error!!",�+1)
40�cn("Press Space to continue or Escape",�+2)
>Z%=�in(" "):�
H� �recover:�hd("Recover")
R� � �full �saving
\� J%>0 �memsave
f�
p
� �saving
z0�cn(cyn$+"Use [ and ] to change sector, ",5)
�+�cn(cyn$+"S to save, or Q to quit: ",6)
�� F%,X%,Y%:X%=�:Y%=�
�� �memused
��rd(drv,trk,sct,buff1)
��screen(buff1):�31X%Y%
�K%=(�in(c$+"SsQq")+1)�2
�� K%=3 �save
�� K%=2 �inc
�� K%=1 �dec
�� (K%=4) � �full
��memused:�
�� �save
�!ptr=J%+�:�shift2
J%=J%+&100:� 1,-7,40,1

�inc:�
� �full=((J%+�)=H%)
$� �memused:� L%,j$
.C� �full j$=red$+"Memory full"+wht$ � j$=grn$+"Memory used"+wht$
8�cn(j$,19):L%=38*J%�(H%-�)
Bj$=grn$+�L%,�&FF)
L� L%>30 j$=ylw$+�j$,2)
V� L%>35 j$=red$+�j$,2)
`�0,20)j$�(38-L%):�
j� �memsave
t,�cn(ylw$+"Do you want to save now? ",22)
~� �in("YyNn")>2 �
�;�13�39:�cn(ylw$+"Change disc, then press Space...",22)
�Z%=�in(" "):�13�39�13;
��mag$"Enter filename:"red$;
�8F$=�fnm(12):�cli("SAVE "+F$+" "+�~�+"+"+�~J%+" 0 0")
��
�� �fnm(L%):� F$,X%,Y%
�X%=�:Y%=�:� �con
��X%,Y%)�(�F$);
��X%,Y%)F$:�coff
�� �F$<=L%:=F$
�� �screen(!ptr)
��28,3,17,37,8,12
� ascout:�26:�

� �wipe:� J%=0 �
%�cn(ylw$+"Are you sure?"+wht$,15)
� �in("YyNn")<3 J%=0
(�13�40;:�
2� �drive
<drv=drv+1:� drv=4 drv=0
F�
P� �swap
Z"� traks=80 traks=40 � traks=80
d�
n
� �search
x�hd("Search")
�2�cn("Enter a distinctive string from the",�+2)
�%�cn("file you wish to find:",�+1)
�Y%=�+2:�con
�� �0,Y%)$buff3
�� $buff3>"":?leng=�$buff3
� �cn(�136+"Searching...",�+2)
� M%=sects*traks-1:trk=0:sct=2
��rd(drv,trk,sct,buff1)
�� � �inc
��rd(drv,trk,sct,buff2)
�A%=�(cmp)�&FF:� A% �shift1
�� �end:� A%=0 �this_it
�� �end:� A%<>0 �not_fnd
�
&� �end=A%=0�V%=M%�!buff1=&E5E5E5E5
� �this_it
"�dec:�screen(buff1)
,?�cn(red$+"Is this the file you want? ",20):A%=�in("YyNn")>2
6�cn(�28," "),�)
@8� A% �cn(ylw$+�136+"Continuing search...",�):�shift1
J�
T� �not_fnd
^1�cn(red$+"I could not find this string. ",20)
h.�cn(ylw$+"Press SPACE to continue... ",22)
rZ%=�in(" "):�
|� �inc:sct=sct+1
�� sct=sects trk=trk+1:sct=0
�� trk=traks trk=0:sct=2
�V%=trk*10+sct:�
�� �dec:sct=sct-1
�� sct=1 � trk=0 sct=-1
�"� sct=-1 sct=sects-1:trk=trk-1
�� trk=-1 trk=traks-1
�V%=trk*10+sct:�
�� �cli($&700):� X%,Y%
�Y%=7:�&FFF7:�
�� �assem:� L%,P%
�� code &80
�oswrch=&FFEE:osnewl=&FFE7
ptr=&88:leng=&8A
� L%=0 � 2 � 2
P%=code:[OPT L%:.cmp
& LDA #buff1 �256:STA ptr
0 LDA #buff1 �256:STA ptr+1
:$.clp1 LDY #&00:.clp2 LDA (ptr),Y
D  CMP buff3,Y:BNE notsame:INY
N# CPY leng:BNE clp2:LDA #&00:RTS
X.notsame INC ptr:BNE clp1
b LDA #&FF:RTS
l$.shift1 LDY #0:.slp1 LDA buff2,Y
v! STA buff1,Y:INY:BNE slp1:RTS
�$.shift2 LDY #0:.slp2 LDA buff1,Y
�! STA (ptr),Y:INY:BNE slp2:RTS
�.ascout LDY #0:.asclp TYA
� � #&1F:BNE nocr:JSR osnewl
�.nocr LDA (ptr),Y:JSR ascii
�! JSR oswrch:INY:BNE asclp:RTS
�.ascii CMP #32:BCC dot
� CMP #127:BCS dot:RTS
�.dot LDA #�".":RTS
�	]:�:�
�

00000000  0d 00 0a 18 eb 37 3a 54  24 3d 20 22 46 69 6c 65  |.....7:T$= "File|
00000010  20 52 65 73 63 75 65 22  0d 00 14 17 f4 20 42 79  | Rescue"..... By|
00000020  20 53 74 65 76 65 20 54  75 72 6e 62 75 6c 6c 0d  | Steve Turnbull.|
00000030  00 1e 15 f4 20 20 28 63  29 20 4d 69 63 72 6f 20  |....  (c) Micro |
00000040  55 73 65 72 0d 00 28 17  f4 20 2d 2d 2d 2d 2d 2d  |User..(.. ------|
00000050  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 00 32 1b 68  |-----------..2.h|
00000060  25 3d 28 b8 50 2b 26 39  30 30 29 80 26 46 46 30  |%=(.P+&900).&FF0|
00000070  30 3a 48 25 3d 93 0d 00  3c 11 d3 3d 68 25 3a ee  |0:H%=...<..=h%:.|
00000080  20 85 20 f2 65 72 72 0d  00 46 14 f2 69 6e 69 74  | . .err..F..init|
00000090  3a ee 20 85 20 f2 65 72  72 6f 72 0d 00 50 18 f5  |:. . .error..P..|
000000a0  20 db 3a f2 68 64 28 22  4d 61 69 6e 20 4d 65 6e  | .:.hd("Main Men|
000000b0  75 22 29 0d 00 5a 11 e3  20 59 25 3d 31 20 b8 20  |u")..Z.. Y%=1 . |
000000c0  6f 70 74 73 0d 00 64 22  f1 8a 6f 78 25 2c 34 2b  |opts..d"..ox%,4+|
000000d0  59 25 29 72 65 64 24 3b  59 25 79 6c 77 24 6f 70  |Y%)red$;Y%ylw$op|
000000e0  74 24 28 59 25 29 0d 00  6e 10 ed 3a f5 20 f2 6d  |t$(Y%)..n..:. .m|
000000f0  65 6d 75 73 65 64 0d 00  78 16 f1 8a 32 35 2c 6f  |emused..x...25,o|
00000100  79 25 2d 33 29 63 79 6e  24 64 72 76 0d 00 82 18  |y%-3)cyn$drv....|
00000110  f1 8a 32 35 2c 6f 79 25  2d 32 29 63 79 6e 24 74  |..25,oy%-2)cyn$t|
00000120  72 61 6b 73 0d 00 8c 32  f2 63 6e 28 67 72 6e 24  |raks...2.cn(grn$|
00000130  2b 22 50 72 65 73 73 20  6b 65 79 20 66 6f 72 20  |+"Press key for |
00000140  79 6f 75 72 20 63 68 6f  69 63 65 20 3a 20 22 2c  |your choice : ",|
00000150  6f 79 25 2b 32 29 0d 00  96 1e 51 25 3d a4 69 6e  |oy%+2)....Q%=.in|
00000160  28 6f 70 74 73 24 29 3a  e7 20 51 25 3d 33 20 f2  |(opts$):. Q%=3 .|
00000170  77 69 70 65 0d 00 a0 11  e7 20 51 25 3d 34 20 f2  |wipe..... Q%=4 .|
00000180  64 72 69 76 65 0d 00 aa  10 e7 20 51 25 3d 35 20  |drive..... Q%=5 |
00000190  f2 73 77 61 70 0d 00 b4  18 fd 20 51 25 3d 31 20  |.swap..... Q%=1 |
000001a0  84 20 51 25 3d 32 20 84  20 51 25 3d 36 0d 00 be  |. Q%=2 . Q%=6...|
000001b0  12 e7 20 51 25 3d 31 20  f2 73 65 61 72 63 68 0d  |.. Q%=1 .search.|
000001c0  00 c8 13 e7 20 51 25 3d  32 20 f2 72 65 63 6f 76  |.... Q%=2 .recov|
000001d0  65 72 0d 00 d2 11 e7 20  51 25 3d 36 20 71 75 69  |er..... Q%=6 qui|
000001e0  74 3d b9 0d 00 dc 12 fd  20 71 75 69 74 3a f2 71  |t=...... quit:.q|
000001f0  75 69 74 3a e0 0d 00 e6  12 dd 20 f2 65 72 72 6f  |uit:...... .erro|
00000200  72 3a f2 63 6f 66 66 0d  00 f0 0c e7 20 9f 3d 31  |r:.coff..... .=1|
00000210  37 20 e1 0d 00 fa 0f ee  20 85 20 87 3a f2 71 75  |7 ...... . .:.qu|
00000220  69 74 0d 01 04 0f dd 20  f2 65 72 72 3a f2 63 6f  |it..... .err:.co|
00000230  6e 0d 01 0e 16 f6 3a f1  22 20 61 74 20 6c 69 6e  |n.....:." at lin|
00000240  65 20 22 3b 9e 3a e0 0d  01 18 12 dd 20 f2 71 75  |e ";.:...... .qu|
00000250  69 74 3a db 3a 2a 66 78  34 0d 01 22 19 f2 63 6f  |it:.:*fx4.."..co|
00000260  6e 3a f2 68 64 28 22 45  6e 64 22 29 3a 2a 46 58  |n:.hd("End"):*FX|
00000270  31 38 0d 01 2c 0e f1 27  3a 40 25 3d 31 30 3a e1  |18..,..':@%=10:.|
00000280  0d 01 36 18 dd 20 f2 69  6e 69 74 3a f2 63 6f 66  |..6.. .init:.cof|
00000290  66 3a 2a 46 58 34 2c 31  0d 01 40 17 f3 20 6f 70  |f:*FX4,1..@.. op|
000002a0  74 73 3a de 20 6f 70 74  24 28 6f 70 74 73 29 0d  |ts:. opt$(opts).|
000002b0  01 4a 1c e3 20 4f 25 3d  31 20 b8 20 6f 70 74 73  |.J.. O%=1 . opts|
000002c0  3a f3 20 6f 70 74 24 28  4f 25 29 0d 01 54 15 6f  |:. opt$(O%)..T.o|
000002d0  70 74 73 24 3d 6f 70 74  73 24 2b c3 4f 25 3a ed  |pts$=opts$+.O%:.|
000002e0  0d 01 5e 12 6f 78 25 3d  32 3a 6f 79 25 3d 4f 25  |..^.ox%=2:oy%=O%|
000002f0  2b 34 0d 01 68 1a 63 24  3d bd 26 38 38 2b bd 26  |+4..h.c$=.&88+.&|
00000300  38 38 2b bd 26 38 39 2b  bd 26 38 39 0d 01 72 1e  |88+.&89+.&89..r.|
00000310  63 6f 70 79 24 3d bd 26  38 37 3a 74 61 62 24 3d  |copy$=.&87:tab$=|
00000320  bd 39 3a 63 72 24 3d bd  31 33 0d 01 7c 24 62 75  |.9:cr$=.13..|$bu|
00000330  66 66 31 3d 26 42 30 30  3a 62 75 66 66 32 3d 26  |ff1=&B00:buff2=&|
00000340  43 30 30 3a 62 75 66 66  33 3d 26 41 30 30 0d 01  |C00:buff3=&A00..|
00000350  86 1a 71 75 69 74 3d a3  3a 63 74 72 6c 3d 26 37  |..quit=.:ctrl=&7|
00000360  30 3a f2 61 73 73 65 6d  0d 01 90 21 73 65 63 74  |0:.assem...!sect|
00000370  73 3d 31 30 3a 74 72 61  6b 73 3d 34 30 3a 73 63  |s=10:traks=40:sc|
00000380  74 3d 32 3a 74 72 6b 3d  30 0d 01 9a 1a 64 72 76  |t=2:trk=0....drv|
00000390  3d 30 3a 50 25 3d 39 39  39 3a 40 25 3d 35 3a 4a  |=0:P%=999:@%=5:J|
000003a0  25 3d 30 0d 01 a4 17 72  65 64 24 3d bd 31 32 39  |%=0....red$=.129|
000003b0  3a 67 72 6e 24 3d bd 31  33 30 0d 01 ae 17 79 6c  |:grn$=.130....yl|
000003c0  77 24 3d bd 31 33 31 3a  62 6c 75 24 3d bd 31 33  |w$=.131:blu$=.13|
000003d0  32 0d 01 b8 17 6d 61 67  24 3d bd 31 33 33 3a 63  |2....mag$=.133:c|
000003e0  79 6e 24 3d bd 31 33 34  0d 01 c2 0f 77 68 74 24  |yn$=.134....wht$|
000003f0  3d bd 31 33 35 3a e1 0d  01 cc 07 dc 20 36 0d 01  |=.135:...... 6..|
00000400  d6 1a dc 20 53 65 61 72  63 68 20 64 69 73 63 20  |... Search disc |
00000410  66 6f 72 20 64 61 74 61  0d 01 e0 1c dc 20 52 65  |for data..... Re|
00000420  63 6f 76 65 72 20 64 61  74 61 20 66 72 6f 6d 20  |cover data from |
00000430  64 69 73 63 0d 01 ea 17  dc 20 57 69 70 65 20 6d  |disc..... Wipe m|
00000440  65 6d 6f 72 79 20 63 6c  65 61 6e 0d 01 f4 17 dc  |emory clean.....|
00000450  20 53 65 6c 65 63 74 20  64 69 73 63 20 64 72 69  | Select disc dri|
00000460  76 65 0d 01 fe 16 dc 20  4e 75 6d 62 65 72 20 6f  |ve..... Number o|
00000470  66 20 74 72 61 63 6b 73  0d 02 08 0a dc 20 51 75  |f tracks..... Qu|
00000480  69 74 0d 02 12 10 dd 20  f2 63 6f 66 66 3a ea 20  |it..... .coff:. |
00000490  42 25 0d 02 1c 14 dd 20  f2 63 6f 6e 3a ea 20 42  |B%..... .con:. B|
000004a0  25 3a 42 25 3d 31 0d 02  26 15 ef 32 33 2c 31 2c  |%:B%=1..&..23,1,|
000004b0  42 25 3b 30 3b 30 3b 30  3b 3a e1 0d 02 30 14 dd  |B%;0;0;0;:...0..|
000004c0  20 f2 68 64 28 74 24 29  3a ef 32 36 2c 31 32 0d  | .hd(t$):.26,12.|
000004d0  02 3a 1f f2 64 62 28 67  72 6e 24 2b 54 24 2b 22  |.:..db(grn$+T$+"|
000004e0  20 5f 20 22 2b 74 24 2b  22 20 22 2c 30 29 0d 02  | _ "+t$+" ",0)..|
000004f0  44 05 e1 0d 02 4e 10 dd  20 f2 64 62 28 74 24 2c  |D....N.. .db(t$,|
00000500  59 25 29 0d 02 58 17 f2  63 6e 28 bd 31 34 31 2b  |Y%)..X..cn(.141+|
00000510  74 24 2b 22 20 22 2c 59  25 29 0d 02 62 19 f2 63  |t$+" ",Y%)..b..c|
00000520  6e 28 bd 31 34 31 2b 74  24 2b 22 20 22 2c 59 25  |n(.141+t$+" ",Y%|
00000530  2b 31 29 0d 02 6c 05 e1  0d 02 76 10 dd 20 f2 63  |+1)..l....v.. .c|
00000540  6e 28 74 24 2c 59 25 29  0d 02 80 18 ea 20 58 25  |n(t$,Y%)..... X%|
00000550  3a 58 25 3d 28 34 30 2d  a9 28 74 24 29 29 81 32  |:X%=(40-.(t$)).2|
00000560  0d 02 8a 11 f1 8a 58 25  2c 59 25 29 74 24 3b 3a  |......X%,Y%)t$;:|
00000570  e1 0d 02 94 18 dd 20 a4  69 6e 28 6b 24 29 3a ea  |...... .in(k$):.|
00000580  20 49 25 3a 2a 46 58 32  31 0d 02 9e 14 f2 63 6f  | I%:*FX21.....co|
00000590  6e 3a f5 20 49 25 3d a7  6b 24 2c be 29 0d 02 a8  |n:. I%=.k$,.)...|
000005a0  1c ef 2d 37 2a 28 49 25  3d 30 29 3a fd 49 25 3a  |..-7*(I%=0):.I%:|
000005b0  f2 63 6f 66 66 3a 3d 49  25 0d 02 b2 1d dd 20 f2  |.coff:=I%..... .|
000005c0  72 64 28 64 25 2c 74 25  2c 73 25 2c 62 25 29 3a  |rd(d%,t%,s%,b%):|
000005d0  57 25 3d 26 35 33 0d 02  bc 1e dd 20 f2 77 72 74  |W%=&53..... .wrt|
000005e0  28 64 25 2c 74 25 2c 73  25 2c 62 25 29 3a 57 25  |(d%,t%,s%,b%):W%|
000005f0  3d 26 34 42 0d 02 c6 20  63 74 72 6c 3f 30 3d 64  |=&4B... ctrl?0=d|
00000600  25 3a 63 74 72 6c 21 31  3d 62 25 3a 63 74 72 6c  |%:ctrl!1=b%:ctrl|
00000610  3f 35 3d 33 0d 02 d0 21  63 74 72 6c 3f 36 3d 57  |?5=3...!ctrl?6=W|
00000620  25 3a 63 74 72 6c 3f 37  3d 74 25 3a 63 74 72 6c  |%:ctrl?7=t%:ctrl|
00000630  3f 38 3d 73 25 0d 02 da  1c 63 74 72 6c 3f 39 3d  |?8=s%....ctrl?9=|
00000640  26 32 31 3a f2 64 66 73  28 63 74 72 6c 2c 31 30  |&21:.dfs(ctrl,10|
00000650  29 0d 02 e4 05 e1 0d 02  ee 11 dd 20 f2 64 66 73  |).......... .dfs|
00000660  28 43 25 2c 65 25 29 0d  02 f8 11 ea 20 41 25 2c  |(C%,e%)..... A%,|
00000670  58 25 2c 59 25 2c 52 25  0d 03 02 1a 41 25 3d 26  |X%,Y%,R%....A%=&|
00000680  37 46 3a 58 25 3d 43 25  3a 59 25 3d 58 25 81 32  |7F:X%=C%:Y%=X%.2|
00000690  35 36 0d 03 0c 15 f5 20  52 25 3d 52 25 2b 31 3a  |56..... R%=R%+1:|
000006a0  d6 20 26 46 46 46 31 0d  03 16 15 fd 20 43 25 3f  |. &FFF1..... C%?|
000006b0  65 25 3d 30 20 84 20 52  25 3d 31 30 0d 03 20 0f  |e%=0 . R%=10.. .|
000006c0  e7 20 43 25 3f 65 25 3d  30 20 e1 0d 03 2a 1b f2  |. C%?e%=0 ...*..|
000006d0  63 6e 28 22 44 69 73 63  20 45 72 72 6f 72 21 21  |cn("Disc Error!!|
000006e0  22 2c bc 2b 31 29 0d 03  34 30 f2 63 6e 28 22 50  |",.+1)..40.cn("P|
000006f0  72 65 73 73 20 53 70 61  63 65 20 74 6f 20 63 6f  |ress Space to co|
00000700  6e 74 69 6e 75 65 20 6f  72 20 45 73 63 61 70 65  |ntinue or Escape|
00000710  22 2c bc 2b 32 29 0d 03  3e 11 5a 25 3d a4 69 6e  |",.+2)..>.Z%=.in|
00000720  28 22 20 22 29 3a e1 0d  03 48 1d dd 20 f2 72 65  |(" "):...H.. .re|
00000730  63 6f 76 65 72 3a f2 68  64 28 22 52 65 63 6f 76  |cover:.hd("Recov|
00000740  65 72 22 29 0d 03 52 15  e7 20 ac 20 a4 66 75 6c  |er")..R.. . .ful|
00000750  6c 20 f2 73 61 76 69 6e  67 0d 03 5c 13 e7 20 4a  |l .saving..\.. J|
00000760  25 3e 30 20 f2 6d 65 6d  73 61 76 65 0d 03 66 05  |%>0 .memsave..f.|
00000770  e1 0d 03 70 0d dd 20 f2  73 61 76 69 6e 67 0d 03  |...p.. .saving..|
00000780  7a 30 f2 63 6e 28 63 79  6e 24 2b 22 55 73 65 20  |z0.cn(cyn$+"Use |
00000790  5b 20 61 6e 64 20 5d 20  74 6f 20 63 68 61 6e 67  |[ and ] to chang|
000007a0  65 20 73 65 63 74 6f 72  2c 20 22 2c 35 29 0d 03  |e sector, ",5)..|
000007b0  84 2b f2 63 6e 28 63 79  6e 24 2b 22 53 20 74 6f  |.+.cn(cyn$+"S to|
000007c0  20 73 61 76 65 2c 20 6f  72 20 51 20 74 6f 20 71  | save, or Q to q|
000007d0  75 69 74 3a 20 22 2c 36  29 0d 03 8e 18 ea 20 46  |uit: ",6)..... F|
000007e0  25 2c 58 25 2c 59 25 3a  58 25 3d b1 3a 59 25 3d  |%,X%,Y%:X%=.:Y%=|
000007f0  bc 0d 03 98 0e f5 20 f2  6d 65 6d 75 73 65 64 0d  |...... .memused.|
00000800  03 a2 1a f2 72 64 28 64  72 76 2c 74 72 6b 2c 73  |....rd(drv,trk,s|
00000810  63 74 2c 62 75 66 66 31  29 0d 03 ac 1a f2 73 63  |ct,buff1).....sc|
00000820  72 65 65 6e 28 62 75 66  66 31 29 3a ef 33 31 58  |reen(buff1):.31X|
00000830  25 59 25 0d 03 b6 1b 4b  25 3d 28 a4 69 6e 28 63  |%Y%....K%=(.in(c|
00000840  24 2b 22 53 73 51 71 22  29 2b 31 29 81 32 0d 03  |$+"SsQq")+1).2..|
00000850  c0 10 e7 20 4b 25 3d 33  20 f2 73 61 76 65 0d 03  |... K%=3 .save..|
00000860  ca 0f e7 20 4b 25 3d 32  20 f2 69 6e 63 0d 03 d4  |... K%=2 .inc...|
00000870  0f e7 20 4b 25 3d 31 20  f2 64 65 63 0d 03 de 14  |.. K%=1 .dec....|
00000880  fd 20 28 4b 25 3d 34 29  20 84 20 a4 66 75 6c 6c  |. (K%=4) . .full|
00000890  0d 03 e8 0e f2 6d 65 6d  75 73 65 64 3a e1 0d 03  |.....memused:...|
000008a0  f2 0b dd 20 f2 73 61 76  65 0d 03 fc 15 21 70 74  |... .save....!pt|
000008b0  72 3d 4a 25 2b 93 3a d6  73 68 69 66 74 32 0d 04  |r=J%+.:.shift2..|
000008c0  06 1a 4a 25 3d 4a 25 2b  26 31 30 30 3a d4 20 31  |..J%=J%+&100:. 1|
000008d0  2c 2d 37 2c 34 30 2c 31  0d 04 10 0a f2 69 6e 63  |,-7,40,1.....inc|
000008e0  3a e1 0d 04 1a 17 dd 20  a4 66 75 6c 6c 3d 28 28  |:...... .full=((|
000008f0  4a 25 2b 93 29 3d 48 25  29 0d 04 24 16 dd 20 f2  |J%+.)=H%)..$.. .|
00000900  6d 65 6d 75 73 65 64 3a  ea 20 4c 25 2c 6a 24 0d  |memused:. L%,j$.|
00000910  04 2e 43 e7 20 a4 66 75  6c 6c 20 6a 24 3d 72 65  |..C. .full j$=re|
00000920  64 24 2b 22 4d 65 6d 6f  72 79 20 66 75 6c 6c 22  |d$+"Memory full"|
00000930  2b 77 68 74 24 20 8b 20  6a 24 3d 67 72 6e 24 2b  |+wht$ . j$=grn$+|
00000940  22 4d 65 6d 6f 72 79 20  75 73 65 64 22 2b 77 68  |"Memory used"+wh|
00000950  74 24 0d 04 38 1e f2 63  6e 28 6a 24 2c 31 39 29  |t$..8..cn(j$,19)|
00000960  3a 4c 25 3d 33 38 2a 4a  25 81 28 48 25 2d 93 29  |:L%=38*J%.(H%-.)|
00000970  0d 04 42 15 6a 24 3d 67  72 6e 24 2b c4 4c 25 2c  |..B.j$=grn$+.L%,|
00000980  bd 26 46 46 29 0d 04 4c  1a e7 20 4c 25 3e 33 30  |.&FF)..L.. L%>30|
00000990  20 6a 24 3d 79 6c 77 24  2b c1 6a 24 2c 32 29 0d  | j$=ylw$+.j$,2).|
000009a0  04 56 1a e7 20 4c 25 3e  33 35 20 6a 24 3d 72 65  |.V.. L%>35 j$=re|
000009b0  64 24 2b c1 6a 24 2c 32  29 0d 04 60 17 f1 8a 30  |d$+.j$,2)..`...0|
000009c0  2c 32 30 29 6a 24 89 28  33 38 2d 4c 25 29 3a e1  |,20)j$.(38-L%):.|
000009d0  0d 04 6a 0e dd 20 f2 6d  65 6d 73 61 76 65 0d 04  |..j.. .memsave..|
000009e0  74 2c f2 63 6e 28 79 6c  77 24 2b 22 44 6f 20 79  |t,.cn(ylw$+"Do y|
000009f0  6f 75 20 77 61 6e 74 20  74 6f 20 73 61 76 65 20  |ou want to save |
00000a00  6e 6f 77 3f 20 22 2c 32  32 29 0d 04 7e 15 e7 20  |now? ",22)..~.. |
00000a10  a4 69 6e 28 22 59 79 4e  6e 22 29 3e 32 20 e1 0d  |.in("YyNn")>2 ..|
00000a20  04 88 3b f1 bd 31 33 89  33 39 3a f2 63 6e 28 79  |..;..13.39:.cn(y|
00000a30  6c 77 24 2b 22 43 68 61  6e 67 65 20 64 69 73 63  |lw$+"Change disc|
00000a40  2c 20 74 68 65 6e 20 70  72 65 73 73 20 53 70 61  |, then press Spa|
00000a50  63 65 2e 2e 2e 22 2c 32  32 29 0d 04 92 1b 5a 25  |ce...",22)....Z%|
00000a60  3d a4 69 6e 28 22 20 22  29 3a f1 bd 31 33 89 33  |=.in(" "):..13.3|
00000a70  39 bd 31 33 3b 0d 04 9c  1f f1 6d 61 67 24 22 45  |9.13;.....mag$"E|
00000a80  6e 74 65 72 20 66 69 6c  65 6e 61 6d 65 3a 22 72  |nter filename:"r|
00000a90  65 64 24 3b 0d 04 a6 38  46 24 3d a4 66 6e 6d 28  |ed$;...8F$=.fnm(|
00000aa0  31 32 29 3a f2 63 6c 69  28 22 53 41 56 45 20 22  |12):.cli("SAVE "|
00000ab0  2b 46 24 2b 22 20 22 2b  c3 7e 93 2b 22 2b 22 2b  |+F$+" "+.~.+"+"+|
00000ac0  c3 7e 4a 25 2b 22 20 30  20 30 22 29 0d 04 b0 05  |.~J%+" 0 0")....|
00000ad0  e1 0d 04 ba 19 dd 20 a4  66 6e 6d 28 4c 25 29 3a  |...... .fnm(L%):|
00000ae0  ea 20 46 24 2c 58 25 2c  59 25 0d 04 c4 14 58 25  |. F$,X%,Y%....X%|
00000af0  3d b1 3a 59 25 3d bc 3a  f5 20 f2 63 6f 6e 0d 04  |=.:Y%=.:. .con..|
00000b00  ce 13 f1 8a 58 25 2c 59  25 29 89 28 a9 46 24 29  |....X%,Y%).(.F$)|
00000b10  3b 0d 04 d8 14 e8 8a 58  25 2c 59 25 29 46 24 3a  |;......X%,Y%)F$:|
00000b20  f2 63 6f 66 66 0d 04 e2  11 fd 20 a9 46 24 3c 3d  |.coff..... .F$<=|
00000b30  4c 25 3a 3d 46 24 0d 04  ec 13 dd 20 f2 73 63 72  |L%:=F$..... .scr|
00000b40  65 65 6e 28 21 70 74 72  29 0d 04 f6 14 ef 32 38  |een(!ptr).....28|
00000b50  2c 33 2c 31 37 2c 33 37  2c 38 2c 31 32 0d 05 00  |,3,17,37,8,12...|
00000b60  12 d6 20 61 73 63 6f 75  74 3a ef 32 36 3a e1 0d  |.. ascout:.26:..|
00000b70  05 0a 14 dd 20 f2 77 69  70 65 3a e7 20 4a 25 3d  |.... .wipe:. J%=|
00000b80  30 20 e1 0d 05 14 25 f2  63 6e 28 79 6c 77 24 2b  |0 ....%.cn(ylw$+|
00000b90  22 41 72 65 20 79 6f 75  20 73 75 72 65 3f 22 2b  |"Are you sure?"+|
00000ba0  77 68 74 24 2c 31 35 29  0d 05 1e 18 e7 20 a4 69  |wht$,15)..... .i|
00000bb0  6e 28 22 59 79 4e 6e 22  29 3c 33 20 4a 25 3d 30  |n("YyNn")<3 J%=0|
00000bc0  0d 05 28 0e f1 bd 31 33  89 34 30 3b 3a e1 0d 05  |..(...13.40;:...|
00000bd0  32 0c dd 20 f2 64 72 69  76 65 0d 05 3c 1b 64 72  |2.. .drive..<.dr|
00000be0  76 3d 64 72 76 2b 31 3a  e7 20 64 72 76 3d 34 20  |v=drv+1:. drv=4 |
00000bf0  64 72 76 3d 30 0d 05 46  05 e1 0d 05 50 0b dd 20  |drv=0..F....P.. |
00000c00  f2 73 77 61 70 0d 05 5a  22 e7 20 74 72 61 6b 73  |.swap..Z". traks|
00000c10  3d 38 30 20 74 72 61 6b  73 3d 34 30 20 8b 20 74  |=80 traks=40 . t|
00000c20  72 61 6b 73 3d 38 30 0d  05 64 05 e1 0d 05 6e 0d  |raks=80..d....n.|
00000c30  dd 20 f2 73 65 61 72 63  68 0d 05 78 11 f2 68 64  |. .search..x..hd|
00000c40  28 22 53 65 61 72 63 68  22 29 0d 05 82 32 f2 63  |("Search")...2.c|
00000c50  6e 28 22 45 6e 74 65 72  20 61 20 64 69 73 74 69  |n("Enter a disti|
00000c60  6e 63 74 69 76 65 20 73  74 72 69 6e 67 20 66 72  |nctive string fr|
00000c70  6f 6d 20 74 68 65 22 2c  bc 2b 32 29 0d 05 8c 25  |om the",.+2)...%|
00000c80  f2 63 6e 28 22 66 69 6c  65 20 79 6f 75 20 77 69  |.cn("file you wi|
00000c90  73 68 20 74 6f 20 66 69  6e 64 3a 22 2c bc 2b 31  |sh to find:",.+1|
00000ca0  29 0d 05 96 0f 59 25 3d  bc 2b 32 3a f2 63 6f 6e  |)....Y%=.+2:.con|
00000cb0  0d 05 a0 13 f5 20 e8 8a  30 2c 59 25 29 24 62 75  |..... ..0,Y%)$bu|
00000cc0  66 66 33 0d 05 aa 1d fd  20 24 62 75 66 66 33 3e  |ff3..... $buff3>|
00000cd0  22 22 3a 3f 6c 65 6e 67  3d a9 24 62 75 66 66 33  |"":?leng=.$buff3|
00000ce0  0d 05 b4 20 f2 63 6e 28  bd 31 33 36 2b 22 53 65  |... .cn(.136+"Se|
00000cf0  61 72 63 68 69 6e 67 2e  2e 2e 22 2c bc 2b 32 29  |arching...",.+2)|
00000d00  0d 05 be 20 4d 25 3d 73  65 63 74 73 2a 74 72 61  |... M%=sects*tra|
00000d10  6b 73 2d 31 3a 74 72 6b  3d 30 3a 73 63 74 3d 32  |ks-1:trk=0:sct=2|
00000d20  0d 05 c8 1a f2 72 64 28  64 72 76 2c 74 72 6b 2c  |.....rd(drv,trk,|
00000d30  73 63 74 2c 62 75 66 66  31 29 0d 05 d2 0c f5 20  |sct,buff1)..... |
00000d40  f5 20 f2 69 6e 63 0d 05  dc 1a f2 72 64 28 64 72  |. .inc.....rd(dr|
00000d50  76 2c 74 72 6b 2c 73 63  74 2c 62 75 66 66 32 29  |v,trk,sct,buff2)|
00000d60  0d 05 e6 1e 41 25 3d ba  28 63 6d 70 29 80 26 46  |....A%=.(cmp).&F|
00000d70  46 3a e7 20 41 25 20 d6  73 68 69 66 74 31 0d 05  |F:. A% .shift1..|
00000d80  f0 1a fd 20 a4 65 6e 64  3a e7 20 41 25 3d 30 20  |... .end:. A%=0 |
00000d90  f2 74 68 69 73 5f 69 74  0d 05 fa 1b fd 20 a4 65  |.this_it..... .e|
00000da0  6e 64 3a e7 20 41 25 3c  3e 30 20 f2 6e 6f 74 5f  |nd:. A%<>0 .not_|
00000db0  66 6e 64 0d 06 04 05 e1  0d 06 0e 26 dd 20 a4 65  |fnd........&. .e|
00000dc0  6e 64 3d 41 25 3d 30 84  56 25 3d 4d 25 84 21 62  |nd=A%=0.V%=M%.!b|
00000dd0  75 66 66 31 3d 26 45 35  45 35 45 35 45 35 0d 06  |uff1=&E5E5E5E5..|
00000de0  18 0e dd 20 f2 74 68 69  73 5f 69 74 0d 06 22 17  |... .this_it..".|
00000df0  f2 64 65 63 3a f2 73 63  72 65 65 6e 28 62 75 66  |.dec:.screen(buf|
00000e00  66 31 29 0d 06 2c 3f f2  63 6e 28 72 65 64 24 2b  |f1)..,?.cn(red$+|
00000e10  22 49 73 20 74 68 69 73  20 74 68 65 20 66 69 6c  |"Is this the fil|
00000e20  65 20 79 6f 75 20 77 61  6e 74 3f 20 22 2c 32 30  |e you want? ",20|
00000e30  29 3a 41 25 3d a4 69 6e  28 22 59 79 4e 6e 22 29  |):A%=.in("YyNn")|
00000e40  3e 32 0d 06 36 13 f2 63  6e 28 c4 32 38 2c 22 20  |>2..6..cn(.28," |
00000e50  22 29 2c bc 29 0d 06 40  38 e7 20 41 25 20 f2 63  |"),.)..@8. A% .c|
00000e60  6e 28 79 6c 77 24 2b bd  31 33 36 2b 22 43 6f 6e  |n(ylw$+.136+"Con|
00000e70  74 69 6e 75 69 6e 67 20  73 65 61 72 63 68 2e 2e  |tinuing search..|
00000e80  2e 22 2c bc 29 3a d6 73  68 69 66 74 31 0d 06 4a  |.",.):.shift1..J|
00000e90  05 e1 0d 06 54 0e dd 20  f2 6e 6f 74 5f 66 6e 64  |....T.. .not_fnd|
00000ea0  0d 06 5e 31 f2 63 6e 28  72 65 64 24 2b 22 49 20  |..^1.cn(red$+"I |
00000eb0  63 6f 75 6c 64 20 6e 6f  74 20 66 69 6e 64 20 74  |could not find t|
00000ec0  68 69 73 20 73 74 72 69  6e 67 2e 20 22 2c 32 30  |his string. ",20|
00000ed0  29 0d 06 68 2e f2 63 6e  28 79 6c 77 24 2b 22 50  |)..h..cn(ylw$+"P|
00000ee0  72 65 73 73 20 53 50 41  43 45 20 74 6f 20 63 6f  |ress SPACE to co|
00000ef0  6e 74 69 6e 75 65 2e 2e  2e 20 22 2c 32 32 29 0d  |ntinue... ",22).|
00000f00  06 72 11 5a 25 3d a4 69  6e 28 22 20 22 29 3a e1  |.r.Z%=.in(" "):.|
00000f10  0d 06 7c 14 dd 20 f2 69  6e 63 3a 73 63 74 3d 73  |..|.. .inc:sct=s|
00000f20  63 74 2b 31 0d 06 86 1f  e7 20 73 63 74 3d 73 65  |ct+1..... sct=se|
00000f30  63 74 73 20 74 72 6b 3d  74 72 6b 2b 31 3a 73 63  |cts trk=trk+1:sc|
00000f40  74 3d 30 0d 06 90 1b e7  20 74 72 6b 3d 74 72 61  |t=0..... trk=tra|
00000f50  6b 73 20 74 72 6b 3d 30  3a 73 63 74 3d 32 0d 06  |ks trk=0:sct=2..|
00000f60  9a 13 56 25 3d 74 72 6b  2a 31 30 2b 73 63 74 3a  |..V%=trk*10+sct:|
00000f70  e1 0d 06 a4 14 dd 20 f2  64 65 63 3a 73 63 74 3d  |...... .dec:sct=|
00000f80  73 63 74 2d 31 0d 06 ae  1a e7 20 73 63 74 3d 31  |sct-1..... sct=1|
00000f90  20 e7 20 74 72 6b 3d 30  20 73 63 74 3d 2d 31 0d  | . trk=0 sct=-1.|
00000fa0  06 b8 22 e7 20 73 63 74  3d 2d 31 20 73 63 74 3d  |..". sct=-1 sct=|
00000fb0  73 65 63 74 73 2d 31 3a  74 72 6b 3d 74 72 6b 2d  |sects-1:trk=trk-|
00000fc0  31 0d 06 c2 18 e7 20 74  72 6b 3d 2d 31 20 74 72  |1..... trk=-1 tr|
00000fd0  6b 3d 74 72 61 6b 73 2d  31 0d 06 cc 13 56 25 3d  |k=traks-1....V%=|
00000fe0  74 72 6b 2a 31 30 2b 73  63 74 3a e1 0d 06 d6 19  |trk*10+sct:.....|
00000ff0  dd 20 f2 63 6c 69 28 24  26 37 30 30 29 3a ea 20  |. .cli($&700):. |
00001000  58 25 2c 59 25 0d 06 e0  11 59 25 3d 37 3a d6 26  |X%,Y%....Y%=7:.&|
00001010  46 46 46 37 3a e1 0d 06  ea 14 dd 20 f2 61 73 73  |FFF7:...... .ass|
00001020  65 6d 3a ea 20 4c 25 2c  50 25 0d 06 f4 0e de 20  |em:. L%,P%..... |
00001030  63 6f 64 65 20 26 38 30  0d 06 fe 1d 6f 73 77 72  |code &80....oswr|
00001040  63 68 3d 26 46 46 45 45  3a 6f 73 6e 65 77 6c 3d  |ch=&FFEE:osnewl=|
00001050  26 46 46 45 37 0d 07 08  14 70 74 72 3d 26 38 38  |&FFE7....ptr=&88|
00001060  3a 6c 65 6e 67 3d 26 38  41 0d 07 12 12 e3 20 4c  |:leng=&8A..... L|
00001070  25 3d 30 20 b8 20 32 20  88 20 32 0d 07 1c 18 50  |%=0 . 2 . 2....P|
00001080  25 3d 63 6f 64 65 3a 5b  4f 50 54 20 4c 25 3a 2e  |%=code:[OPT L%:.|
00001090  63 6d 70 0d 07 26 1c 20  4c 44 41 20 23 62 75 66  |cmp..&. LDA #buf|
000010a0  66 31 20 83 32 35 36 3a  53 54 41 20 70 74 72 0d  |f1 .256:STA ptr.|
000010b0  07 30 1e 20 4c 44 41 20  23 62 75 66 66 31 20 81  |.0. LDA #buff1 .|
000010c0  32 35 36 3a 53 54 41 20  70 74 72 2b 31 0d 07 3a  |256:STA ptr+1..:|
000010d0  24 2e 63 6c 70 31 20 4c  44 59 20 23 26 30 30 3a  |$.clp1 LDY #&00:|
000010e0  2e 63 6c 70 32 20 4c 44  41 20 28 70 74 72 29 2c  |.clp2 LDA (ptr),|
000010f0  59 0d 07 44 20 20 43 4d  50 20 62 75 66 66 33 2c  |Y..D  CMP buff3,|
00001100  59 3a 42 4e 45 20 6e 6f  74 73 61 6d 65 3a 49 4e  |Y:BNE notsame:IN|
00001110  59 0d 07 4e 23 20 43 50  59 20 6c 65 6e 67 3a 42  |Y..N# CPY leng:B|
00001120  4e 45 20 63 6c 70 32 3a  4c 44 41 20 23 26 30 30  |NE clp2:LDA #&00|
00001130  3a 52 54 53 0d 07 58 1d  2e 6e 6f 74 73 61 6d 65  |:RTS..X..notsame|
00001140  20 49 4e 43 20 70 74 72  3a 42 4e 45 20 63 6c 70  | INC ptr:BNE clp|
00001150  31 0d 07 62 11 20 4c 44  41 20 23 26 46 46 3a 52  |1..b. LDA #&FF:R|
00001160  54 53 0d 07 6c 24 2e 73  68 69 66 74 31 20 4c 44  |TS..l$.shift1 LD|
00001170  59 20 23 30 3a 2e 73 6c  70 31 20 4c 44 41 20 62  |Y #0:.slp1 LDA b|
00001180  75 66 66 32 2c 59 0d 07  76 21 20 53 54 41 20 62  |uff2,Y..v! STA b|
00001190  75 66 66 31 2c 59 3a 49  4e 59 3a 42 4e 45 20 73  |uff1,Y:INY:BNE s|
000011a0  6c 70 31 3a 52 54 53 0d  07 80 24 2e 73 68 69 66  |lp1:RTS...$.shif|
000011b0  74 32 20 4c 44 59 20 23  30 3a 2e 73 6c 70 32 20  |t2 LDY #0:.slp2 |
000011c0  4c 44 41 20 62 75 66 66  31 2c 59 0d 07 8a 21 20  |LDA buff1,Y...! |
000011d0  53 54 41 20 28 70 74 72  29 2c 59 3a 49 4e 59 3a  |STA (ptr),Y:INY:|
000011e0  42 4e 45 20 73 6c 70 32  3a 52 54 53 0d 07 94 1d  |BNE slp2:RTS....|
000011f0  2e 61 73 63 6f 75 74 20  4c 44 59 20 23 30 3a 2e  |.ascout LDY #0:.|
00001200  61 73 63 6c 70 20 54 59  41 0d 07 9e 1f 20 80 20  |asclp TYA.... . |
00001210  23 26 31 46 3a 42 4e 45  20 6e 6f 63 72 3a 4a 53  |#&1F:BNE nocr:JS|
00001220  52 20 6f 73 6e 65 77 6c  0d 07 a8 1f 2e 6e 6f 63  |R osnewl.....noc|
00001230  72 20 4c 44 41 20 28 70  74 72 29 2c 59 3a 4a 53  |r LDA (ptr),Y:JS|
00001240  52 20 61 73 63 69 69 0d  07 b2 21 20 4a 53 52 20  |R ascii...! JSR |
00001250  6f 73 77 72 63 68 3a 49  4e 59 3a 42 4e 45 20 61  |oswrch:INY:BNE a|
00001260  73 63 6c 70 3a 52 54 53  0d 07 bc 1a 2e 61 73 63  |sclp:RTS.....asc|
00001270  69 69 20 43 4d 50 20 23  33 32 3a 42 43 43 20 64  |ii CMP #32:BCC d|
00001280  6f 74 0d 07 c6 19 20 43  4d 50 20 23 31 32 37 3a  |ot.... CMP #127:|
00001290  42 43 53 20 64 6f 74 3a  52 54 53 0d 07 d0 16 2e  |BCS dot:RTS.....|
000012a0  64 6f 74 20 4c 44 41 20  23 97 22 2e 22 3a 52 54  |dot LDA #.".":RT|
000012b0  53 0d 07 da 09 5d 3a ed  3a e1 0d ff              |S....]:.:...|
000012bc