Home » Archimedes archive » Micro User » MU 1990-04.adf » Indexit
Indexit
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Micro User » MU 1990-04.adf |
| Filename: | Indexit |
| Read OK: | ✔ |
| File size: | 0B91 bytes |
| Load address: | FFFFFD43 |
| Exec address: | 6D3A916B |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Archimedes archive » Micro User » MU 1990-04.adf » Indexit
- AEW website » mu » mu_5_25_discs_Micro_User_08_02_D-MU08_02.ssd » Indexit
- AEW website » mu » mu_Micro_User_08_02_MU8-2_B.uef » Indexit
File contents
REM INDEXER
REM^ Indexing program
*ACCESS *.*
U%=0
CLS
V.31,6,8
P.
D.
V.131,141
P."UPDATE DISC OR MAKE INDEX?"
T.2
P.
P." PRESS U for Update, I for INDEX"
*FX202,47
A%=GE.
I.A%<>73 TH.PRO.upd
I.A%=73 TH.PRO.ind
SE.TE.
C.T.
PRO.end
C.T.
R.
REPL."{","FILE CALLED"
U.EOT
C.T.
R.
REPL."|R|R|R","|R"
U.EOT
SA.TE."INDEX"
CLS
V.31,6,8
P."FINISHED"
TIME=0
R.
U.TIME=75
DI.
END
.upd
CLS
V.31,6,8
P.
D.
V.131,141
P."INSERT DISC YOU WANT TO UPDATE"
T.2
P.
P." THEN PRESS ANY KEY"
A%=GE.
A$=""
CLOSE#0
SE.TE.
LO.TE."INDEX"
*DELETE "INDEX"
C.B.
TY."|R"
C.T.
R.
REPL."FILE CALLED","}{"
U.EOT
CLS
*CAT
*SAVE XXXXXXX FF7CA4 FF7FFF
SE.SEG.8
DE.TE.
LOAD TEXT "XXXXXXX"
*DELETE "XXXXXXX"
K%=0
C.D.7
V.31,6,2
P.
PRO.makelist
C.T.
TY."XXXXX|R"
C.T.
R.
REPL."|R|R","|R"
U. EOT
C.T.
X%=1
CLOSE#0
R.
C.T.
C.D.X%
V$=GLT$
X%=X%+1
I.LENV$<1TH.E.
SE.TE.
C.T.
FI."}"
C.R.
DE.L.
C.R.4
Q$=GLT$
I.LENQ$<1TH.Q$="ZZZZZZZ"
I.V$<Q$TH.PRO.less
I.V$>Q$th.PRO.more
SE.SEG.8
C.T.
U.LENV$<1
E.
.end
C.T.
FI."}"
FK.3
C.B.
FK.3
FK.7
E.
.less
C.U.
PRO.addit
TY."}"
P.
P."Updating..."
E.
.more
C.U.
FK.3
C.D.
FI."}"
FK.3
FK.7
X%=X%-1
P.
P."Updating..."
E.
.addit
CLOSE#0
V%=OPENIN V$
D$=""
Q%=1
R.
Q%=Q%+1
D$=GCF$#V%
I.EOF#V%TH.Q%=500
I.D$="^"THEN Q%=510
U.Q%>490
L$=GLF$#V%
I.Q%<510TH.L$=" ** No DATA in this file! **"
TY."FILE CALLED: "+V$+"|RCONTENT: "+L$+"|R|R"
CLOSE#0
E.
.ind
CLS
S.TE.
DE.TE.
TY."|GEP|R"
TY."|GTS3|R"
TY."|GFP20|R"
TY."|GLNS|R"
TY."|GLM9|R"
TY."|GLL67|R"
TY."|GLS1|R"
TY."|GJO|R"
TY."|GBS7|R"
TY."|GDT3|R"
TY."|GREM THIS FILE IS CALLED INDEX|R"
TY."|GREM^ INDEX: Index File|R"
TY."|GOC27,40|R"
TY." INDEX for Disc @|R|R"
C.T.
FI."@"
C.R.
DE.L.
CLS
V.31,6,8
P.
D.
V.131,141
P."DISC Number?"
T.2
P.
P." TYPE THE NUMBER - Press RETURN"
P.
B$=GLK$
TY.B$+" "
P.
P." TYPE THE NAME OF THE DISC"
P.
N$=GLK$
TY.N$
SE.SEG.8
DE.TE.
CLS
V.31,6,8
P.
V.136
P."PRESS ANY KEY TO START"
P.
P."N.B."
P.
P."Will not work on a full disc unless"
P."you already have a file called INDEX"
P.
P."(Program deletes and resaves INDEX file)"
A%=GE.
CLS
V.31,6,8
P.
D.
V.131,141
P."INSERT DISC YOU WANT TO INDEX"
T.2
P.
P." THEN PRESS ANY KEY"
A%=GE.
CLS
A$=""
CLOSE#0
SA.TE."INDEX"
*DELETE "INDEX"
*CAT
*SAVE XXXXXXX FF7CA4 FF7FFF
DE.TE.
LOAD TEXT "XXXXXXX"
*DELETE "XXXXXXX"
K%=0
C.D.7
V.31,6,2
P.
PRO.makelist
C.T.
TY."XXXXX|R"
C.T.
R.
REPL."|R|R","|R"
U.EOT
PRO.findit
CLOSE#0
S.TE.
C.T.
SA.TE."INDEX"
CLS
V.31,6,8
P."FINISHED - PRESS A KEY"
A%=GE.
DI.
END
.makelist
CLS
VDU10,10,13
P.
P."Creating file list ";
T$=" "
R.
REPL.T$,"|R"
U.EOT
C.T.
P."!";
R.
REPL." ","|R"
UNTIL EOT
P."!";
C.T.
REPL."!BOOT",""
C.T.
E.
.findit
S.SEG.8
C.T.
X%=1
R.
CLOSE#0
C.D.X%
V$=GLT$
I.LENV$<1TH.E.
C.U.
FK.3
F."|R"
C.R.
FK.3
FK.7
C.T.
CLOSE#0
V%=OPENIN V$
D$=""
Q%=1
R.
Q%=Q%+1
D$=GCF$#V%
I.EOF#V%TH.D$="^"
I.D$="^"THEN Q%=500
U.Q%>490
L$=GLF$#V%
I.Q%<500TH.L$=" ** No DATA in this file! **"
S.TE.
C.B.
TY."FILE CALLED: "+V$+"|RCONTENT: "+L$+"|R|R"
DI.
CLOSE#0
S.SEG.8
C.T.
U.LENV$<1
E.
00000000 0d 52 45 4d 20 20 49 4e 44 45 58 45 52 0d 52 45 |.REM INDEXER.RE|
00000010 4d 5e 20 49 6e 64 65 78 69 6e 67 20 70 72 6f 67 |M^ Indexing prog|
00000020 72 61 6d 0d 2a 41 43 43 45 53 53 20 2a 2e 2a 0d |ram.*ACCESS *.*.|
00000030 55 25 3d 30 0d 43 4c 53 0d 56 2e 33 31 2c 36 2c |U%=0.CLS.V.31,6,|
00000040 38 0d 50 2e 0d 44 2e 0d 56 2e 31 33 31 2c 31 34 |8.P..D..V.131,14|
00000050 31 0d 50 2e 22 55 50 44 41 54 45 20 44 49 53 43 |1.P."UPDATE DISC|
00000060 20 4f 52 20 4d 41 4b 45 20 49 4e 44 45 58 3f 22 | OR MAKE INDEX?"|
00000070 0d 54 2e 32 0d 50 2e 0d 50 2e 22 20 20 50 52 45 |.T.2.P..P." PRE|
00000080 53 53 20 20 55 20 66 6f 72 20 55 70 64 61 74 65 |SS U for Update|
00000090 2c 20 20 49 20 20 66 6f 72 20 49 4e 44 45 58 22 |, I for INDEX"|
000000a0 0d 2a 46 58 32 30 32 2c 34 37 0d 41 25 3d 47 45 |.*FX202,47.A%=GE|
000000b0 2e 0d 49 2e 41 25 3c 3e 37 33 20 54 48 2e 50 52 |..I.A%<>73 TH.PR|
000000c0 4f 2e 75 70 64 0d 49 2e 41 25 3d 37 33 20 54 48 |O.upd.I.A%=73 TH|
000000d0 2e 50 52 4f 2e 69 6e 64 0d 53 45 2e 54 45 2e 0d |.PRO.ind.SE.TE..|
000000e0 43 2e 54 2e 0d 50 52 4f 2e 65 6e 64 0d 43 2e 54 |C.T..PRO.end.C.T|
000000f0 2e 0d 52 2e 0d 52 45 50 4c 2e 22 7b 22 2c 22 46 |..R..REPL."{","F|
00000100 49 4c 45 20 43 41 4c 4c 45 44 22 0d 55 2e 45 4f |ILE CALLED".U.EO|
00000110 54 0d 43 2e 54 2e 0d 52 2e 0d 52 45 50 4c 2e 22 |T.C.T..R..REPL."|
00000120 7c 52 7c 52 7c 52 22 2c 22 7c 52 22 0d 55 2e 45 ||R|R|R","|R".U.E|
00000130 4f 54 0d 53 41 2e 54 45 2e 22 49 4e 44 45 58 22 |OT.SA.TE."INDEX"|
00000140 0d 43 4c 53 0d 56 2e 33 31 2c 36 2c 38 0d 50 2e |.CLS.V.31,6,8.P.|
00000150 22 46 49 4e 49 53 48 45 44 22 0d 54 49 4d 45 3d |"FINISHED".TIME=|
00000160 30 0d 52 2e 0d 55 2e 54 49 4d 45 3d 37 35 0d 44 |0.R..U.TIME=75.D|
00000170 49 2e 0d 45 4e 44 0d 2e 75 70 64 0d 43 4c 53 0d |I..END..upd.CLS.|
00000180 56 2e 33 31 2c 36 2c 38 0d 50 2e 0d 44 2e 0d 56 |V.31,6,8.P..D..V|
00000190 2e 31 33 31 2c 31 34 31 0d 50 2e 22 49 4e 53 45 |.131,141.P."INSE|
000001a0 52 54 20 44 49 53 43 20 59 4f 55 20 57 41 4e 54 |RT DISC YOU WANT|
000001b0 20 54 4f 20 55 50 44 41 54 45 22 0d 54 2e 32 0d | TO UPDATE".T.2.|
000001c0 50 2e 0d 50 2e 22 20 20 20 20 20 54 48 45 4e 20 |P..P." THEN |
000001d0 50 52 45 53 53 20 41 4e 59 20 4b 45 59 22 0d 41 |PRESS ANY KEY".A|
000001e0 25 3d 47 45 2e 0d 41 24 3d 22 22 0d 43 4c 4f 53 |%=GE..A$="".CLOS|
000001f0 45 23 30 0d 53 45 2e 54 45 2e 0d 4c 4f 2e 54 45 |E#0.SE.TE..LO.TE|
00000200 2e 22 49 4e 44 45 58 22 0d 2a 44 45 4c 45 54 45 |."INDEX".*DELETE|
00000210 20 22 49 4e 44 45 58 22 0d 43 2e 42 2e 0d 54 59 | "INDEX".C.B..TY|
00000220 2e 22 7c 52 22 0d 43 2e 54 2e 0d 52 2e 0d 52 45 |."|R".C.T..R..RE|
00000230 50 4c 2e 22 46 49 4c 45 20 43 41 4c 4c 45 44 22 |PL."FILE CALLED"|
00000240 2c 22 7d 7b 22 0d 55 2e 45 4f 54 0d 43 4c 53 0d |,"}{".U.EOT.CLS.|
00000250 2a 43 41 54 0d 2a 53 41 56 45 20 58 58 58 58 58 |*CAT.*SAVE XXXXX|
00000260 58 58 20 46 46 37 43 41 34 20 46 46 37 46 46 46 |XX FF7CA4 FF7FFF|
00000270 0d 53 45 2e 53 45 47 2e 38 0d 44 45 2e 54 45 2e |.SE.SEG.8.DE.TE.|
00000280 0d 4c 4f 41 44 20 54 45 58 54 20 22 58 58 58 58 |.LOAD TEXT "XXXX|
00000290 58 58 58 22 0d 2a 44 45 4c 45 54 45 20 22 58 58 |XXX".*DELETE "XX|
000002a0 58 58 58 58 58 22 0d 4b 25 3d 30 0d 43 2e 44 2e |XXXXX".K%=0.C.D.|
000002b0 37 0d 56 2e 33 31 2c 36 2c 32 0d 50 2e 0d 50 52 |7.V.31,6,2.P..PR|
000002c0 4f 2e 6d 61 6b 65 6c 69 73 74 0d 43 2e 54 2e 0d |O.makelist.C.T..|
000002d0 54 59 2e 22 58 58 58 58 58 7c 52 22 0d 43 2e 54 |TY."XXXXX|R".C.T|
000002e0 2e 0d 52 2e 0d 52 45 50 4c 2e 22 7c 52 7c 52 22 |..R..REPL."|R|R"|
000002f0 2c 22 7c 52 22 0d 55 2e 20 45 4f 54 0d 43 2e 54 |,"|R".U. EOT.C.T|
00000300 2e 0d 58 25 3d 31 0d 43 4c 4f 53 45 23 30 0d 52 |..X%=1.CLOSE#0.R|
00000310 2e 0d 43 2e 54 2e 0d 43 2e 44 2e 58 25 0d 56 24 |..C.T..C.D.X%.V$|
00000320 3d 47 4c 54 24 0d 58 25 3d 58 25 2b 31 0d 49 2e |=GLT$.X%=X%+1.I.|
00000330 4c 45 4e 56 24 3c 31 54 48 2e 45 2e 0d 53 45 2e |LENV$<1TH.E..SE.|
00000340 54 45 2e 0d 43 2e 54 2e 0d 46 49 2e 22 7d 22 0d |TE..C.T..FI."}".|
00000350 43 2e 52 2e 0d 44 45 2e 4c 2e 0d 43 2e 52 2e 34 |C.R..DE.L..C.R.4|
00000360 0d 51 24 3d 47 4c 54 24 0d 49 2e 4c 45 4e 51 24 |.Q$=GLT$.I.LENQ$|
00000370 3c 31 54 48 2e 51 24 3d 22 5a 5a 5a 5a 5a 5a 5a |<1TH.Q$="ZZZZZZZ|
00000380 22 0d 49 2e 56 24 3c 51 24 54 48 2e 50 52 4f 2e |".I.V$<Q$TH.PRO.|
00000390 6c 65 73 73 0d 49 2e 56 24 3e 51 24 74 68 2e 50 |less.I.V$>Q$th.P|
000003a0 52 4f 2e 6d 6f 72 65 0d 53 45 2e 53 45 47 2e 38 |RO.more.SE.SEG.8|
000003b0 0d 43 2e 54 2e 0d 55 2e 4c 45 4e 56 24 3c 31 0d |.C.T..U.LENV$<1.|
000003c0 45 2e 0d 2e 65 6e 64 0d 43 2e 54 2e 0d 46 49 2e |E...end.C.T..FI.|
000003d0 22 7d 22 0d 46 4b 2e 33 0d 43 2e 42 2e 0d 46 4b |"}".FK.3.C.B..FK|
000003e0 2e 33 0d 46 4b 2e 37 0d 45 2e 0d 2e 6c 65 73 73 |.3.FK.7.E...less|
000003f0 0d 43 2e 55 2e 0d 50 52 4f 2e 61 64 64 69 74 0d |.C.U..PRO.addit.|
00000400 54 59 2e 22 7d 22 0d 50 2e 0d 50 2e 22 55 70 64 |TY."}".P..P."Upd|
00000410 61 74 69 6e 67 2e 2e 2e 22 0d 45 2e 0d 2e 6d 6f |ating...".E...mo|
00000420 72 65 0d 43 2e 55 2e 0d 46 4b 2e 33 0d 43 2e 44 |re.C.U..FK.3.C.D|
00000430 2e 0d 46 49 2e 22 7d 22 0d 46 4b 2e 33 0d 46 4b |..FI."}".FK.3.FK|
00000440 2e 37 0d 58 25 3d 58 25 2d 31 0d 50 2e 0d 50 2e |.7.X%=X%-1.P..P.|
00000450 22 55 70 64 61 74 69 6e 67 2e 2e 2e 22 0d 45 2e |"Updating...".E.|
00000460 0d 2e 61 64 64 69 74 0d 43 4c 4f 53 45 23 30 0d |..addit.CLOSE#0.|
00000470 56 25 3d 4f 50 45 4e 49 4e 20 56 24 0d 44 24 3d |V%=OPENIN V$.D$=|
00000480 22 22 0d 51 25 3d 31 0d 52 2e 0d 51 25 3d 51 25 |"".Q%=1.R..Q%=Q%|
00000490 2b 31 0d 44 24 3d 47 43 46 24 23 56 25 0d 49 2e |+1.D$=GCF$#V%.I.|
000004a0 45 4f 46 23 56 25 54 48 2e 51 25 3d 35 30 30 0d |EOF#V%TH.Q%=500.|
000004b0 49 2e 44 24 3d 22 5e 22 54 48 45 4e 20 51 25 3d |I.D$="^"THEN Q%=|
000004c0 35 31 30 0d 55 2e 51 25 3e 34 39 30 0d 4c 24 3d |510.U.Q%>490.L$=|
000004d0 47 4c 46 24 23 56 25 0d 49 2e 51 25 3c 35 31 30 |GLF$#V%.I.Q%<510|
000004e0 54 48 2e 4c 24 3d 22 20 2a 2a 20 4e 6f 20 44 41 |TH.L$=" ** No DA|
000004f0 54 41 20 69 6e 20 74 68 69 73 20 66 69 6c 65 21 |TA in this file!|
00000500 20 2a 2a 22 0d 54 59 2e 22 46 49 4c 45 20 43 41 | **".TY."FILE CA|
00000510 4c 4c 45 44 3a 20 20 22 2b 56 24 2b 22 7c 52 43 |LLED: "+V$+"|RC|
00000520 4f 4e 54 45 4e 54 3a 20 22 2b 4c 24 2b 22 7c 52 |ONTENT: "+L$+"|R|
00000530 7c 52 22 0d 43 4c 4f 53 45 23 30 0d 45 2e 0d 2e ||R".CLOSE#0.E...|
00000540 69 6e 64 0d 43 4c 53 0d 53 2e 54 45 2e 0d 44 45 |ind.CLS.S.TE..DE|
00000550 2e 54 45 2e 0d 54 59 2e 22 7c 47 45 50 7c 52 22 |.TE..TY."|GEP|R"|
00000560 0d 54 59 2e 22 7c 47 54 53 33 7c 52 22 0d 54 59 |.TY."|GTS3|R".TY|
00000570 2e 22 7c 47 46 50 32 30 7c 52 22 0d 54 59 2e 22 |."|GFP20|R".TY."|
00000580 7c 47 4c 4e 53 7c 52 22 0d 54 59 2e 22 7c 47 4c ||GLNS|R".TY."|GL|
00000590 4d 39 7c 52 22 0d 54 59 2e 22 7c 47 4c 4c 36 37 |M9|R".TY."|GLL67|
000005a0 7c 52 22 0d 54 59 2e 22 7c 47 4c 53 31 7c 52 22 ||R".TY."|GLS1|R"|
000005b0 0d 54 59 2e 22 7c 47 4a 4f 7c 52 22 0d 54 59 2e |.TY."|GJO|R".TY.|
000005c0 22 7c 47 42 53 37 7c 52 22 0d 54 59 2e 22 7c 47 |"|GBS7|R".TY."|G|
000005d0 44 54 33 7c 52 22 0d 54 59 2e 22 7c 47 52 45 4d |DT3|R".TY."|GREM|
000005e0 20 54 48 49 53 20 46 49 4c 45 20 49 53 20 43 41 | THIS FILE IS CA|
000005f0 4c 4c 45 44 20 49 4e 44 45 58 7c 52 22 0d 54 59 |LLED INDEX|R".TY|
00000600 2e 22 7c 47 52 45 4d 5e 20 49 4e 44 45 58 3a 20 |."|GREM^ INDEX: |
00000610 49 6e 64 65 78 20 46 69 6c 65 7c 52 22 0d 54 59 |Index File|R".TY|
00000620 2e 22 7c 47 4f 43 32 37 2c 34 30 7c 52 22 0d 54 |."|GOC27,40|R".T|
00000630 59 2e 22 20 20 20 20 20 20 20 20 20 20 49 4e 44 |Y." IND|
00000640 45 58 20 66 6f 72 20 44 69 73 63 20 40 7c 52 7c |EX for Disc @|R||
00000650 52 22 0d 43 2e 54 2e 0d 46 49 2e 22 40 22 0d 43 |R".C.T..FI."@".C|
00000660 2e 52 2e 0d 44 45 2e 4c 2e 0d 43 4c 53 0d 56 2e |.R..DE.L..CLS.V.|
00000670 33 31 2c 36 2c 38 0d 50 2e 0d 44 2e 0d 56 2e 31 |31,6,8.P..D..V.1|
00000680 33 31 2c 31 34 31 0d 50 2e 22 44 49 53 43 20 4e |31,141.P."DISC N|
00000690 75 6d 62 65 72 3f 22 0d 54 2e 32 0d 50 2e 0d 50 |umber?".T.2.P..P|
000006a0 2e 22 20 20 54 59 50 45 20 54 48 45 20 4e 55 4d |." TYPE THE NUM|
000006b0 42 45 52 20 2d 20 50 72 65 73 73 20 52 45 54 55 |BER - Press RETU|
000006c0 52 4e 22 0d 50 2e 0d 42 24 3d 47 4c 4b 24 0d 54 |RN".P..B$=GLK$.T|
000006d0 59 2e 42 24 2b 22 20 22 0d 50 2e 0d 50 2e 22 20 |Y.B$+" ".P..P." |
000006e0 20 54 59 50 45 20 54 48 45 20 4e 41 4d 45 20 4f | TYPE THE NAME O|
000006f0 46 20 54 48 45 20 44 49 53 43 22 0d 50 2e 0d 4e |F THE DISC".P..N|
00000700 24 3d 47 4c 4b 24 0d 54 59 2e 4e 24 0d 53 45 2e |$=GLK$.TY.N$.SE.|
00000710 53 45 47 2e 38 0d 44 45 2e 54 45 2e 0d 43 4c 53 |SEG.8.DE.TE..CLS|
00000720 0d 56 2e 33 31 2c 36 2c 38 0d 50 2e 0d 56 2e 31 |.V.31,6,8.P..V.1|
00000730 33 36 0d 50 2e 22 50 52 45 53 53 20 41 4e 59 20 |36.P."PRESS ANY |
00000740 4b 45 59 20 54 4f 20 53 54 41 52 54 22 0d 50 2e |KEY TO START".P.|
00000750 0d 50 2e 22 4e 2e 42 2e 22 0d 50 2e 0d 50 2e 22 |.P."N.B.".P..P."|
00000760 57 69 6c 6c 20 6e 6f 74 20 77 6f 72 6b 20 6f 6e |Will not work on|
00000770 20 61 20 66 75 6c 6c 20 64 69 73 63 20 75 6e 6c | a full disc unl|
00000780 65 73 73 22 0d 50 2e 22 79 6f 75 20 61 6c 72 65 |ess".P."you alre|
00000790 61 64 79 20 68 61 76 65 20 61 20 66 69 6c 65 20 |ady have a file |
000007a0 63 61 6c 6c 65 64 20 49 4e 44 45 58 22 0d 50 2e |called INDEX".P.|
000007b0 0d 50 2e 22 28 50 72 6f 67 72 61 6d 20 64 65 6c |.P."(Program del|
000007c0 65 74 65 73 20 61 6e 64 20 72 65 73 61 76 65 73 |etes and resaves|
000007d0 20 49 4e 44 45 58 20 66 69 6c 65 29 22 0d 41 25 | INDEX file)".A%|
000007e0 3d 47 45 2e 0d 43 4c 53 0d 56 2e 33 31 2c 36 2c |=GE..CLS.V.31,6,|
000007f0 38 0d 50 2e 0d 44 2e 0d 56 2e 31 33 31 2c 31 34 |8.P..D..V.131,14|
00000800 31 0d 50 2e 22 49 4e 53 45 52 54 20 44 49 53 43 |1.P."INSERT DISC|
00000810 20 59 4f 55 20 57 41 4e 54 20 54 4f 20 49 4e 44 | YOU WANT TO IND|
00000820 45 58 22 0d 54 2e 32 0d 50 2e 0d 50 2e 22 20 20 |EX".T.2.P..P." |
00000830 20 20 20 54 48 45 4e 20 50 52 45 53 53 20 41 4e | THEN PRESS AN|
00000840 59 20 4b 45 59 22 0d 41 25 3d 47 45 2e 0d 43 4c |Y KEY".A%=GE..CL|
00000850 53 0d 41 24 3d 22 22 0d 43 4c 4f 53 45 23 30 0d |S.A$="".CLOSE#0.|
00000860 53 41 2e 54 45 2e 22 49 4e 44 45 58 22 0d 2a 44 |SA.TE."INDEX".*D|
00000870 45 4c 45 54 45 20 22 49 4e 44 45 58 22 0d 2a 43 |ELETE "INDEX".*C|
00000880 41 54 0d 2a 53 41 56 45 20 58 58 58 58 58 58 58 |AT.*SAVE XXXXXXX|
00000890 20 46 46 37 43 41 34 20 46 46 37 46 46 46 0d 44 | FF7CA4 FF7FFF.D|
000008a0 45 2e 54 45 2e 0d 4c 4f 41 44 20 54 45 58 54 20 |E.TE..LOAD TEXT |
000008b0 22 58 58 58 58 58 58 58 22 0d 2a 44 45 4c 45 54 |"XXXXXXX".*DELET|
000008c0 45 20 22 58 58 58 58 58 58 58 22 0d 4b 25 3d 30 |E "XXXXXXX".K%=0|
000008d0 0d 43 2e 44 2e 37 0d 56 2e 33 31 2c 36 2c 32 0d |.C.D.7.V.31,6,2.|
000008e0 50 2e 0d 50 52 4f 2e 6d 61 6b 65 6c 69 73 74 0d |P..PRO.makelist.|
000008f0 43 2e 54 2e 0d 54 59 2e 22 58 58 58 58 58 7c 52 |C.T..TY."XXXXX|R|
00000900 22 0d 43 2e 54 2e 0d 52 2e 0d 52 45 50 4c 2e 22 |".C.T..R..REPL."|
00000910 7c 52 7c 52 22 2c 22 7c 52 22 0d 55 2e 45 4f 54 ||R|R","|R".U.EOT|
00000920 0d 50 52 4f 2e 66 69 6e 64 69 74 0d 43 4c 4f 53 |.PRO.findit.CLOS|
00000930 45 23 30 0d 53 2e 54 45 2e 0d 43 2e 54 2e 0d 53 |E#0.S.TE..C.T..S|
00000940 41 2e 54 45 2e 22 49 4e 44 45 58 22 0d 43 4c 53 |A.TE."INDEX".CLS|
00000950 0d 56 2e 33 31 2c 36 2c 38 0d 50 2e 22 46 49 4e |.V.31,6,8.P."FIN|
00000960 49 53 48 45 44 20 2d 20 50 52 45 53 53 20 41 20 |ISHED - PRESS A |
00000970 4b 45 59 22 0d 41 25 3d 47 45 2e 0d 44 49 2e 0d |KEY".A%=GE..DI..|
00000980 45 4e 44 0d 2e 6d 61 6b 65 6c 69 73 74 0d 43 4c |END..makelist.CL|
00000990 53 0d 56 44 55 31 30 2c 31 30 2c 31 33 0d 50 2e |S.VDU10,10,13.P.|
000009a0 0d 50 2e 22 43 72 65 61 74 69 6e 67 20 66 69 6c |.P."Creating fil|
000009b0 65 20 6c 69 73 74 20 22 3b 0d 54 24 3d 22 20 20 |e list ";.T$=" |
000009c0 20 20 20 20 20 20 20 20 20 22 0d 52 2e 0d 52 45 | ".R..RE|
000009d0 50 4c 2e 54 24 2c 22 7c 52 22 0d 55 2e 45 4f 54 |PL.T$,"|R".U.EOT|
000009e0 0d 43 2e 54 2e 0d 50 2e 22 21 22 3b 0d 52 2e 0d |.C.T..P."!";.R..|
000009f0 52 45 50 4c 2e 22 20 22 2c 22 7c 52 22 0d 55 4e |REPL." ","|R".UN|
00000a00 54 49 4c 20 45 4f 54 0d 50 2e 22 21 22 3b 0d 43 |TIL EOT.P."!";.C|
00000a10 2e 54 2e 0d 52 45 50 4c 2e 22 21 42 4f 4f 54 22 |.T..REPL."!BOOT"|
00000a20 2c 22 22 0d 43 2e 54 2e 0d 45 2e 0d 2e 66 69 6e |,"".C.T..E...fin|
00000a30 64 69 74 0d 53 2e 53 45 47 2e 38 0d 43 2e 54 2e |dit.S.SEG.8.C.T.|
00000a40 0d 58 25 3d 31 0d 52 2e 0d 43 4c 4f 53 45 23 30 |.X%=1.R..CLOSE#0|
00000a50 0d 43 2e 44 2e 58 25 0d 56 24 3d 47 4c 54 24 0d |.C.D.X%.V$=GLT$.|
00000a60 49 2e 4c 45 4e 56 24 3c 31 54 48 2e 45 2e 0d 43 |I.LENV$<1TH.E..C|
00000a70 2e 55 2e 0d 46 4b 2e 33 0d 46 2e 22 7c 52 22 0d |.U..FK.3.F."|R".|
00000a80 43 2e 52 2e 0d 46 4b 2e 33 0d 46 4b 2e 37 0d 43 |C.R..FK.3.FK.7.C|
00000a90 2e 54 2e 0d 43 4c 4f 53 45 23 30 0d 56 25 3d 4f |.T..CLOSE#0.V%=O|
00000aa0 50 45 4e 49 4e 20 56 24 0d 44 24 3d 22 22 0d 51 |PENIN V$.D$="".Q|
00000ab0 25 3d 31 0d 52 2e 0d 51 25 3d 51 25 2b 31 0d 44 |%=1.R..Q%=Q%+1.D|
00000ac0 24 3d 47 43 46 24 23 56 25 0d 49 2e 45 4f 46 23 |$=GCF$#V%.I.EOF#|
00000ad0 56 25 54 48 2e 44 24 3d 22 5e 22 0d 49 2e 44 24 |V%TH.D$="^".I.D$|
00000ae0 3d 22 5e 22 54 48 45 4e 20 51 25 3d 35 30 30 0d |="^"THEN Q%=500.|
00000af0 55 2e 51 25 3e 34 39 30 0d 4c 24 3d 47 4c 46 24 |U.Q%>490.L$=GLF$|
00000b00 23 56 25 0d 49 2e 51 25 3c 35 30 30 54 48 2e 4c |#V%.I.Q%<500TH.L|
00000b10 24 3d 22 20 2a 2a 20 4e 6f 20 44 41 54 41 20 69 |$=" ** No DATA i|
00000b20 6e 20 74 68 69 73 20 66 69 6c 65 21 20 2a 2a 22 |n this file! **"|
00000b30 0d 53 2e 54 45 2e 0d 43 2e 42 2e 0d 54 59 2e 22 |.S.TE..C.B..TY."|
00000b40 46 49 4c 45 20 43 41 4c 4c 45 44 3a 20 20 22 2b |FILE CALLED: "+|
00000b50 56 24 2b 22 7c 52 43 4f 4e 54 45 4e 54 3a 20 22 |V$+"|RCONTENT: "|
00000b60 2b 4c 24 2b 22 7c 52 7c 52 22 0d 44 49 2e 0d 43 |+L$+"|R|R".DI..C|
00000b70 4c 4f 53 45 23 30 0d 53 2e 53 45 47 2e 38 0d 43 |LOSE#0.S.SEG.8.C|
00000b80 2e 54 2e 0d 55 2e 4c 45 4e 56 24 3c 31 0d 45 2e |.T..U.LENV$<1.E.|
00000b90 0d |.|
00000b91 
.