� Disk/Tape Index
� By Bill Millican
� (c) Electron User
(*KEY1 PROCmenu |M
2�19,1,3;0;:�1
<&� title$(200),disk(200),tape$(200)
Ftotal=0
P
�intro
Z:
d	�menu
n
��menu
x�:�19,1,2;0;  
��15,1);total;" Titles"
�%�'"Choose one of these numbers:-"
��'�(5)"0...Begin again."
��'�(5)"1...Read list."
�(�'�(5)"2...Sort Alphabetical order."
�"�'�(5)"3...Add title to list."
�'�'�(5)"4...Remove title from list."
�*�'�(5)"5...Change all disk/tape refs."
�)�'�(5)"6...Change one disk/tape ref."
�"�'�(5)"7...Save on disc/tape."
�'�'�(5)"8...Recover from disc/tape."
� �'�(5)"9...Send to Printer."
�Z=�:�Z<48 � Z>57 � �dz@


Z=Z-47

:� Z �TbA,�TlA,�TvA,�D@A,�DJA,�DTA,�D^A,�DhA,�DrA,�D|A

�

"�begin:�Dd@

,�read:�Dd@

6�alpha:�Dd@

@�add:�Dd@

J�remove:�Dd@

T�allchange:�DZ@

^�onechange:�Dd@

h�save:�Dd@

r�recover:�Dd@

|�printer:�Dd@

�:

���intro

��

��

��

�%�5"**** DISK & TAPE INDEX ****" 

�!�''�7"(by Bill Millican '89)"

��''�12"Volume No.1 "

�)�'�4"Programs on both Disk and Tape."

��

�,�''�3"It will accept approx.200 titles."

�U�'"You are given the option of saving and  loading either from disc and/or tape."

�F�'"To return to the MENU at any time press Func 1 or type:-GOTO90"
�holdscreen 
�
:
&��holdscreen
0�'�8"Press the SPACE-bar."
:ZZ=�
D�
N:
X��begin
b�
l �'�8"How many Titles ",total
v�:�count=1�total
��count=1 ��tTB
��"Now next title."
��"Title "title$(count)
�&�"Now the disk number "disk(count)
�'�"Now the tape ref.   "tape$(count)
��:�count
�!�''"That was the last title."
��holdscreen
��
�:
�
��read
��
��14
!�'�5"Title"�15"Disk"�4"Tape"'
�count=1� total 
3�title$(count);�26)disk(count);�33)tape$(count)
 
�count
*�holdscreen
4�
>:
H��alpha
R�
\u�'"Titles being put into alphabetical order"''"Be patient---it can take a long time if there are many entries!"''
fj=0
p�count=1�total-1
z*� title$(count)<=title$(count+1) ��d@C
�:x$=title$(count+1):x1=disk(count+1):x2$=tape$(count+1)
�!title$(count+1)=title$(count)
�disk(count+1)=disk(count)
�tape$(count+1)=tape$(count)
�4title$(count)=x$:disk(count)=x1:tape$(count)=x2$
�	j=j+1
�
�count
��j>0 ��DfC
�#�'�6"Now in alpabetical order."
��holdscreen
��
�:
�	��add
�
�'"Name of new title "new$
&�'"Disk number of new title "ndisk
$'�'"Tape ref.of new title    "ntape$
.total=total+1
8title$(total)=new$
Bdisk(total)=ndisk
Ltape$(total)=ntape$
V�'"New title now entered."
` �''"Any more ( Y / N )",ans$
j!�ans$="Y" �TFD � �holdscreen
t� PROCholdscreen 
~�
�:
���remove
��
�#�'"Title to be removed "remove$
��count=1�total
�!� title$(count)=remove$ ��dbD
�
�count
��'"Not on list"'
�	�tjE
�� j=count � total-1
�?title$(j)=title$(j+1):disk(j)=disk(j+1):tape$(j)=tape$(j+1)
��j
#title$(total)=" ":disk(total)=0

total=total-1
�'"Now removed"
�holdscreen
(�
2:
<��allchange
F�
P)�'"Input new disk numbers/tape refs."
Z�count=1�total
d+�"D " title$(count);�15);:� disk(count)
n,�"T " title$(count);�15);:� tape$(count)
x
�count
�8�'"New disk numbers & tape refs. now       entered,"
��holdscreen
��
�:
���onechange
��
��'"Title name ",tit$
��count=1�total
�� tit$=title$(count) � �TDF
�
�count
��''"Not on the list."
��holdscreen
�	�TlF
.�'"Enter the new disk number ",disk(count)
-�'"Enter the new tape ref.",tape$(count) 
count=total
"�holdscreen
,�
6:
@
��save
J�
TF�''"Save to (D)isc or (T)ape "Q$:� Q$="D" � �D^F � � Q$="T" � �DhF
^5�"*DISK":�'"Data now being stored on disc.":�DrF
h/�"*TAPE":�'"Data now being stored on tape."
r
X=�"DATA"
|:
��count=1�total
��# X,title$(count)
��# X,disk(count)
��# X,tape$(count) 
�
�count
��# X
��'"data now saved."
��holdscreen
��
�:
�
��recover
��
�!�'"Insert DATA disc or tape."
*�''"Recover from (D)isc or (T)ape.";Q$
%� Q$="D" � �T\G � � Q$="T" � �TfG
:�"*DISK":�'"Data now being recovered from disc.":�TzG
&4�"*TAPE":�'"Data now being recovered from tape."
0:
:�D=0�2000:�D
D:
Ntotal=0
X
X=�"DATA"
b:
l�
vtotal=total+1
��# X,title$(total)
��# X,disk(total)
��# X,tape$(total)
�
� �# X
��# X
��'�8"Data now loaded."
��holdscreen
��
�:
�
��printer
��2
�
*FX6,0
��1,27,1,108,1,5
	�read
�
�
�

00000000  0d 00 0a 15 f4 20 44 69  73 6b 2f 54 61 70 65 20  |..... Disk/Tape |
00000010  49 6e 64 65 78 0d 00 14  16 f4 20 42 79 20 42 69  |Index..... By Bi|
00000020  6c 6c 20 4d 69 6c 6c 69  63 61 6e 0d 00 1e 17 f4  |ll Millican.....|
00000030  20 28 63 29 20 45 6c 65  63 74 72 6f 6e 20 55 73  | (c) Electron Us|
00000040  65 72 0d 00 28 15 2a 4b  45 59 31 20 50 52 4f 43  |er..(.*KEY1 PROC|
00000050  6d 65 6e 75 20 7c 4d 0d  00 32 11 ef 31 39 2c 31  |menu |M..2..19,1|
00000060  2c 33 3b 30 3b 3a fb 31  0d 00 3c 26 de 20 74 69  |,3;0;:.1..<&. ti|
00000070  74 6c 65 24 28 32 30 30  29 2c 64 69 73 6b 28 32  |tle$(200),disk(2|
00000080  30 30 29 2c 74 61 70 65  24 28 32 30 30 29 0d 00  |00),tape$(200)..|
00000090  46 0b 74 6f 74 61 6c 3d  30 0d 00 50 0a f2 69 6e  |F.total=0..P..in|
000000a0  74 72 6f 0d 00 5a 05 3a  0d 00 64 09 f2 6d 65 6e  |tro..Z.:..d..men|
000000b0  75 0d 00 6e 0a dd f2 6d  65 6e 75 0d 00 78 12 db  |u..n...menu..x..|
000000c0  3a ef 31 39 2c 31 2c 32  3b 30 3b 20 20 0d 00 82  |:.19,1,2;0;  ...|
000000d0  1b f1 8a 31 35 2c 31 29  3b 74 6f 74 61 6c 3b 22  |...15,1);total;"|
000000e0  20 54 69 74 6c 65 73 22  0d 00 8c 25 f1 27 22 43  | Titles"...%.'"C|
000000f0  68 6f 6f 73 65 20 6f 6e  65 20 6f 66 20 74 68 65  |hoose one of the|
00000100  73 65 20 6e 75 6d 62 65  72 73 3a 2d 22 0d 00 96  |se numbers:-"...|
00000110  1c f1 27 89 28 35 29 22  30 2e 2e 2e 42 65 67 69  |..'.(5)"0...Begi|
00000120  6e 20 61 67 61 69 6e 2e  22 0d 00 a0 1a f1 27 89  |n again.".....'.|
00000130  28 35 29 22 31 2e 2e 2e  52 65 61 64 20 6c 69 73  |(5)"1...Read lis|
00000140  74 2e 22 0d 00 aa 28 f1  27 89 28 35 29 22 32 2e  |t."...(.'.(5)"2.|
00000150  2e 2e 53 6f 72 74 20 41  6c 70 68 61 62 65 74 69  |..Sort Alphabeti|
00000160  63 61 6c 20 6f 72 64 65  72 2e 22 0d 00 b4 22 f1  |cal order."...".|
00000170  27 89 28 35 29 22 33 2e  2e 2e 41 64 64 20 74 69  |'.(5)"3...Add ti|
00000180  74 6c 65 20 74 6f 20 6c  69 73 74 2e 22 0d 00 be  |tle to list."...|
00000190  27 f1 27 89 28 35 29 22  34 2e 2e 2e 52 65 6d 6f  |'.'.(5)"4...Remo|
000001a0  76 65 20 74 69 74 6c 65  20 66 72 6f 6d 20 6c 69  |ve title from li|
000001b0  73 74 2e 22 0d 00 c8 2a  f1 27 89 28 35 29 22 35  |st."...*.'.(5)"5|
000001c0  2e 2e 2e 43 68 61 6e 67  65 20 61 6c 6c 20 64 69  |...Change all di|
000001d0  73 6b 2f 74 61 70 65 20  72 65 66 73 2e 22 0d 00  |sk/tape refs."..|
000001e0  d2 29 f1 27 89 28 35 29  22 36 2e 2e 2e 43 68 61  |.).'.(5)"6...Cha|
000001f0  6e 67 65 20 6f 6e 65 20  64 69 73 6b 2f 74 61 70  |nge one disk/tap|
00000200  65 20 72 65 66 2e 22 0d  00 dc 22 f1 27 89 28 35  |e ref."...".'.(5|
00000210  29 22 37 2e 2e 2e 53 61  76 65 20 6f 6e 20 64 69  |)"7...Save on di|
00000220  73 63 2f 74 61 70 65 2e  22 0d 00 e6 27 f1 27 89  |sc/tape."...'.'.|
00000230  28 35 29 22 38 2e 2e 2e  52 65 63 6f 76 65 72 20  |(5)"8...Recover |
00000240  66 72 6f 6d 20 64 69 73  63 2f 74 61 70 65 2e 22  |from disc/tape."|
00000250  0d 00 f0 20 f1 27 89 28  35 29 22 39 2e 2e 2e 53  |... .'.(5)"9...S|
00000260  65 6e 64 20 74 6f 20 50  72 69 6e 74 65 72 2e 22  |end to Printer."|
00000270  0d 00 fa 1b 5a 3d a5 3a  e7 5a 3c 34 38 20 84 20  |....Z=.:.Z<48 . |
00000280  5a 3e 35 37 20 8c 20 8d  64 7a 40 0d 01 04 0a 5a  |Z>57 . .dz@....Z|
00000290  3d 5a 2d 34 37 0d 01 0e  3a ee 20 5a 20 e5 8d 54  |=Z-47...:. Z ..T|
000002a0  62 41 2c 8d 54 6c 41 2c  8d 54 76 41 2c 8d 44 40  |bA,.TlA,.TvA,.D@|
000002b0  41 2c 8d 44 4a 41 2c 8d  44 54 41 2c 8d 44 5e 41  |A,.DJA,.DTA,.D^A|
000002c0  2c 8d 44 68 41 2c 8d 44  72 41 2c 8d 44 7c 41 0d  |,.DhA,.DrA,.D|A.|
000002d0  01 18 05 e1 0d 01 22 10  f2 62 65 67 69 6e 3a e5  |......"..begin:.|
000002e0  8d 44 64 40 0d 01 2c 0f  f2 72 65 61 64 3a e5 8d  |.Dd@..,..read:..|
000002f0  44 64 40 0d 01 36 10 f2  61 6c 70 68 61 3a e5 8d  |Dd@..6..alpha:..|
00000300  44 64 40 0d 01 40 0e f2  61 64 64 3a e5 8d 44 64  |Dd@..@..add:..Dd|
00000310  40 0d 01 4a 11 f2 72 65  6d 6f 76 65 3a e5 8d 44  |@..J..remove:..D|
00000320  64 40 0d 01 54 14 f2 61  6c 6c 63 68 61 6e 67 65  |d@..T..allchange|
00000330  3a e5 8d 44 5a 40 0d 01  5e 14 f2 6f 6e 65 63 68  |:..DZ@..^..onech|
00000340  61 6e 67 65 3a e5 8d 44  64 40 0d 01 68 0f f2 73  |ange:..Dd@..h..s|
00000350  61 76 65 3a e5 8d 44 64  40 0d 01 72 12 f2 72 65  |ave:..Dd@..r..re|
00000360  63 6f 76 65 72 3a e5 8d  44 64 40 0d 01 7c 12 f2  |cover:..Dd@..|..|
00000370  70 72 69 6e 74 65 72 3a  e5 8d 44 64 40 0d 01 86  |printer:..Dd@...|
00000380  05 3a 0d 01 90 0b dd f2  69 6e 74 72 6f 0d 01 9a  |.:......intro...|
00000390  05 db 0d 01 a4 05 f1 0d  01 ae 05 f1 0d 01 b8 25  |...............%|
000003a0  f1 89 35 22 2a 2a 2a 2a  20 44 49 53 4b 20 26 20  |..5"**** DISK & |
000003b0  54 41 50 45 20 49 4e 44  45 58 20 2a 2a 2a 2a 22  |TAPE INDEX ****"|
000003c0  20 0d 01 c2 21 f1 27 27  89 37 22 28 62 79 20 42  | ...!.''.7"(by B|
000003d0  69 6c 6c 20 4d 69 6c 6c  69 63 61 6e 20 27 38 39  |ill Millican '89|
000003e0  29 22 0d 01 cc 18 f1 27  27 89 31 32 22 56 6f 6c  |)".....''.12"Vol|
000003f0  75 6d 65 20 4e 6f 2e 31  20 22 0d 01 d6 29 f1 27  |ume No.1 "...).'|
00000400  89 34 22 50 72 6f 67 72  61 6d 73 20 6f 6e 20 62  |.4"Programs on b|
00000410  6f 74 68 20 44 69 73 6b  20 61 6e 64 20 54 61 70  |oth Disk and Tap|
00000420  65 2e 22 0d 01 e0 05 f4  0d 01 ea 2c f1 27 27 89  |e."........,.''.|
00000430  33 22 49 74 20 77 69 6c  6c 20 61 63 63 65 70 74  |3"It will accept|
00000440  20 61 70 70 72 6f 78 2e  32 30 30 20 74 69 74 6c  | approx.200 titl|
00000450  65 73 2e 22 0d 01 f4 55  f1 27 22 59 6f 75 20 61  |es."...U.'"You a|
00000460  72 65 20 67 69 76 65 6e  20 74 68 65 20 6f 70 74  |re given the opt|
00000470  69 6f 6e 20 6f 66 20 73  61 76 69 6e 67 20 61 6e  |ion of saving an|
00000480  64 20 20 6c 6f 61 64 69  6e 67 20 65 69 74 68 65  |d  loading eithe|
00000490  72 20 66 72 6f 6d 20 64  69 73 63 20 61 6e 64 2f  |r from disc and/|
000004a0  6f 72 20 74 61 70 65 2e  22 0d 01 fe 46 f1 27 22  |or tape."...F.'"|
000004b0  54 6f 20 72 65 74 75 72  6e 20 74 6f 20 74 68 65  |To return to the|
000004c0  20 4d 45 4e 55 20 61 74  20 61 6e 79 20 74 69 6d  | MENU at any tim|
000004d0  65 20 70 72 65 73 73 20  46 75 6e 63 20 31 20 6f  |e press Func 1 o|
000004e0  72 20 74 79 70 65 3a 2d  47 4f 54 4f 39 30 22 0d  |r type:-GOTO90".|
000004f0  02 08 10 f2 68 6f 6c 64  73 63 72 65 65 6e 20 0d  |....holdscreen .|
00000500  02 12 05 e1 0d 02 1c 05  3a 0d 02 26 10 dd f2 68  |........:..&...h|
00000510  6f 6c 64 73 63 72 65 65  6e 0d 02 30 1e f1 27 89  |oldscreen..0..'.|
00000520  38 22 50 72 65 73 73 20  74 68 65 20 53 50 41 43  |8"Press the SPAC|
00000530  45 2d 62 61 72 2e 22 0d  02 3a 08 5a 5a 3d a5 0d  |E-bar."..:.ZZ=..|
00000540  02 44 05 e1 0d 02 4e 05  3a 0d 02 58 0b dd f2 62  |.D....N.:..X...b|
00000550  65 67 69 6e 0d 02 62 05  db 0d 02 6c 20 e8 27 89  |egin..b....l .'.|
00000560  38 22 48 6f 77 20 6d 61  6e 79 20 54 69 74 6c 65  |8"How many Title|
00000570  73 20 22 2c 74 6f 74 61  6c 0d 02 76 14 f1 3a e3  |s ",total..v..:.|
00000580  63 6f 75 6e 74 3d 31 b8  74 6f 74 61 6c 0d 02 80  |count=1.total...|
00000590  12 e7 63 6f 75 6e 74 3d  31 20 8c 8d 74 54 42 0d  |..count=1 ..tTB.|
000005a0  02 8a 16 f1 22 4e 6f 77  20 6e 65 78 74 20 74 69  |...."Now next ti|
000005b0  74 6c 65 2e 22 0d 02 94  1a e8 22 54 69 74 6c 65  |tle."....."Title|
000005c0  20 22 74 69 74 6c 65 24  28 63 6f 75 6e 74 29 0d  | "title$(count).|
000005d0  02 9e 26 e8 22 4e 6f 77  20 74 68 65 20 64 69 73  |..&."Now the dis|
000005e0  6b 20 6e 75 6d 62 65 72  20 22 64 69 73 6b 28 63  |k number "disk(c|
000005f0  6f 75 6e 74 29 0d 02 a8  27 e8 22 4e 6f 77 20 74  |ount)...'."Now t|
00000600  68 65 20 74 61 70 65 20  72 65 66 2e 20 20 20 22  |he tape ref.   "|
00000610  74 61 70 65 24 28 63 6f  75 6e 74 29 0d 02 b2 0c  |tape$(count)....|
00000620  f1 3a ed 63 6f 75 6e 74  0d 02 bc 21 f1 27 27 22  |.:.count...!.''"|
00000630  54 68 61 74 20 77 61 73  20 74 68 65 20 6c 61 73  |That was the las|
00000640  74 20 74 69 74 6c 65 2e  22 0d 02 c6 0f f2 68 6f  |t title.".....ho|
00000650  6c 64 73 63 72 65 65 6e  0d 02 d0 05 e1 0d 02 da  |ldscreen........|
00000660  05 3a 0d 02 e4 0a dd f2  72 65 61 64 0d 02 ee 05  |.:......read....|
00000670  db 0d 02 f8 07 ef 31 34  0d 03 02 21 f1 27 89 35  |......14...!.'.5|
00000680  22 54 69 74 6c 65 22 89  31 35 22 44 69 73 6b 22  |"Title".15"Disk"|
00000690  89 34 22 54 61 70 65 22  27 0d 03 0c 14 e3 63 6f  |.4"Tape"'.....co|
000006a0  75 6e 74 3d 31 b8 20 74  6f 74 61 6c 20 0d 03 16  |unt=1. total ...|
000006b0  33 f1 74 69 74 6c 65 24  28 63 6f 75 6e 74 29 3b  |3.title$(count);|
000006c0  8a 32 36 29 64 69 73 6b  28 63 6f 75 6e 74 29 3b  |.26)disk(count);|
000006d0  8a 33 33 29 74 61 70 65  24 28 63 6f 75 6e 74 29  |.33)tape$(count)|
000006e0  0d 03 20 0a ed 63 6f 75  6e 74 0d 03 2a 0f f2 68  |.. ..count..*..h|
000006f0  6f 6c 64 73 63 72 65 65  6e 0d 03 34 05 e1 0d 03  |oldscreen..4....|
00000700  3e 05 3a 0d 03 48 0b dd  f2 61 6c 70 68 61 0d 03  |>.:..H...alpha..|
00000710  52 05 db 0d 03 5c 75 f1  27 22 54 69 74 6c 65 73  |R....\u.'"Titles|
00000720  20 62 65 69 6e 67 20 70  75 74 20 69 6e 74 6f 20  | being put into |
00000730  61 6c 70 68 61 62 65 74  69 63 61 6c 20 6f 72 64  |alphabetical ord|
00000740  65 72 22 27 27 22 42 65  20 70 61 74 69 65 6e 74  |er"''"Be patient|
00000750  2d 2d 2d 69 74 20 63 61  6e 20 74 61 6b 65 20 61  |---it can take a|
00000760  20 6c 6f 6e 67 20 74 69  6d 65 20 69 66 20 74 68  | long time if th|
00000770  65 72 65 20 61 72 65 20  6d 61 6e 79 20 65 6e 74  |ere are many ent|
00000780  72 69 65 73 21 22 27 27  0d 03 66 07 6a 3d 30 0d  |ries!"''..f.j=0.|
00000790  03 70 14 e3 63 6f 75 6e  74 3d 31 b8 74 6f 74 61  |.p..count=1.tota|
000007a0  6c 2d 31 0d 03 7a 2a e7  20 74 69 74 6c 65 24 28  |l-1..z*. title$(|
000007b0  63 6f 75 6e 74 29 3c 3d  74 69 74 6c 65 24 28 63  |count)<=title$(c|
000007c0  6f 75 6e 74 2b 31 29 20  8c 8d 64 40 43 0d 03 84  |ount+1) ..d@C...|
000007d0  3a 78 24 3d 74 69 74 6c  65 24 28 63 6f 75 6e 74  |:x$=title$(count|
000007e0  2b 31 29 3a 78 31 3d 64  69 73 6b 28 63 6f 75 6e  |+1):x1=disk(coun|
000007f0  74 2b 31 29 3a 78 32 24  3d 74 61 70 65 24 28 63  |t+1):x2$=tape$(c|
00000800  6f 75 6e 74 2b 31 29 0d  03 8e 21 74 69 74 6c 65  |ount+1)...!title|
00000810  24 28 63 6f 75 6e 74 2b  31 29 3d 74 69 74 6c 65  |$(count+1)=title|
00000820  24 28 63 6f 75 6e 74 29  0d 03 98 1d 64 69 73 6b  |$(count)....disk|
00000830  28 63 6f 75 6e 74 2b 31  29 3d 64 69 73 6b 28 63  |(count+1)=disk(c|
00000840  6f 75 6e 74 29 0d 03 a2  1f 74 61 70 65 24 28 63  |ount)....tape$(c|
00000850  6f 75 6e 74 2b 31 29 3d  74 61 70 65 24 28 63 6f  |ount+1)=tape$(co|
00000860  75 6e 74 29 0d 03 ac 34  74 69 74 6c 65 24 28 63  |unt)...4title$(c|
00000870  6f 75 6e 74 29 3d 78 24  3a 64 69 73 6b 28 63 6f  |ount)=x$:disk(co|
00000880  75 6e 74 29 3d 78 31 3a  74 61 70 65 24 28 63 6f  |unt)=x1:tape$(co|
00000890  75 6e 74 29 3d 78 32 24  0d 03 b6 09 6a 3d 6a 2b  |unt)=x2$....j=j+|
000008a0  31 0d 03 c0 0a ed 63 6f  75 6e 74 0d 03 ca 0e e7  |1.....count.....|
000008b0  6a 3e 30 20 8c 8d 44 66  43 0d 03 d4 23 f1 27 89  |j>0 ..DfC...#.'.|
000008c0  36 22 4e 6f 77 20 69 6e  20 61 6c 70 61 62 65 74  |6"Now in alpabet|
000008d0  69 63 61 6c 20 6f 72 64  65 72 2e 22 0d 03 de 0f  |ical order."....|
000008e0  f2 68 6f 6c 64 73 63 72  65 65 6e 0d 03 e8 05 e1  |.holdscreen.....|
000008f0  0d 03 f2 05 3a 0d 03 fc  09 dd f2 61 64 64 0d 04  |....:......add..|
00000900  06 05 db 0d 04 10 1e e8  27 22 4e 61 6d 65 20 6f  |........'"Name o|
00000910  66 20 6e 65 77 20 74 69  74 6c 65 20 22 6e 65 77  |f new title "new|
00000920  24 0d 04 1a 26 e8 27 22  44 69 73 6b 20 6e 75 6d  |$...&.'"Disk num|
00000930  62 65 72 20 6f 66 20 6e  65 77 20 74 69 74 6c 65  |ber of new title|
00000940  20 22 6e 64 69 73 6b 0d  04 24 27 e8 27 22 54 61  | "ndisk..$'.'"Ta|
00000950  70 65 20 72 65 66 2e 6f  66 20 6e 65 77 20 74 69  |pe ref.of new ti|
00000960  74 6c 65 20 20 20 20 22  6e 74 61 70 65 24 0d 04  |tle    "ntape$..|
00000970  2e 11 74 6f 74 61 6c 3d  74 6f 74 61 6c 2b 31 0d  |..total=total+1.|
00000980  04 38 16 74 69 74 6c 65  24 28 74 6f 74 61 6c 29  |.8.title$(total)|
00000990  3d 6e 65 77 24 0d 04 42  15 64 69 73 6b 28 74 6f  |=new$..B.disk(to|
000009a0  74 61 6c 29 3d 6e 64 69  73 6b 0d 04 4c 17 74 61  |tal)=ndisk..L.ta|
000009b0  70 65 24 28 74 6f 74 61  6c 29 3d 6e 74 61 70 65  |pe$(total)=ntape|
000009c0  24 0d 04 56 1e f1 27 22  4e 65 77 20 74 69 74 6c  |$..V..'"New titl|
000009d0  65 20 6e 6f 77 20 65 6e  74 65 72 65 64 2e 22 0d  |e now entered.".|
000009e0  04 60 20 e8 27 27 22 41  6e 79 20 6d 6f 72 65 20  |.` .''"Any more |
000009f0  28 20 59 20 2f 20 4e 20  29 22 2c 61 6e 73 24 0d  |( Y / N )",ans$.|
00000a00  04 6a 21 e7 61 6e 73 24  3d 22 59 22 20 e5 8d 54  |.j!.ans$="Y" ..T|
00000a10  46 44 20 8b 20 f2 68 6f  6c 64 73 63 72 65 65 6e  |FD . .holdscreen|
00000a20  0d 04 74 15 f4 20 50 52  4f 43 68 6f 6c 64 73 63  |..t.. PROCholdsc|
00000a30  72 65 65 6e 20 0d 04 7e  05 e1 0d 04 88 05 3a 0d  |reen ..~......:.|
00000a40  04 92 0c dd f2 72 65 6d  6f 76 65 0d 04 9c 05 db  |.....remove.....|
00000a50  0d 04 a6 23 e8 27 22 54  69 74 6c 65 20 74 6f 20  |...#.'"Title to |
00000a60  62 65 20 72 65 6d 6f 76  65 64 20 22 72 65 6d 6f  |be removed "remo|
00000a70  76 65 24 0d 04 b0 12 e3  63 6f 75 6e 74 3d 31 b8  |ve$.....count=1.|
00000a80  74 6f 74 61 6c 0d 04 ba  21 e7 20 74 69 74 6c 65  |total...!. title|
00000a90  24 28 63 6f 75 6e 74 29  3d 72 65 6d 6f 76 65 24  |$(count)=remove$|
00000aa0  20 8c 8d 64 62 44 0d 04  c4 0a ed 63 6f 75 6e 74  | ..dbD.....count|
00000ab0  0d 04 ce 14 f1 27 22 4e  6f 74 20 6f 6e 20 6c 69  |.....'"Not on li|
00000ac0  73 74 22 27 0d 04 d8 09  e5 8d 74 6a 45 0d 04 e2  |st"'......tjE...|
00000ad0  17 e3 20 6a 3d 63 6f 75  6e 74 20 b8 20 74 6f 74  |.. j=count . tot|
00000ae0  61 6c 2d 31 0d 04 ec 3f  74 69 74 6c 65 24 28 6a  |al-1...?title$(j|
00000af0  29 3d 74 69 74 6c 65 24  28 6a 2b 31 29 3a 64 69  |)=title$(j+1):di|
00000b00  73 6b 28 6a 29 3d 64 69  73 6b 28 6a 2b 31 29 3a  |sk(j)=disk(j+1):|
00000b10  74 61 70 65 24 28 6a 29  3d 74 61 70 65 24 28 6a  |tape$(j)=tape$(j|
00000b20  2b 31 29 0d 04 f6 06 ed  6a 0d 05 00 23 74 69 74  |+1).....j...#tit|
00000b30  6c 65 24 28 74 6f 74 61  6c 29 3d 22 20 22 3a 64  |le$(total)=" ":d|
00000b40  69 73 6b 28 74 6f 74 61  6c 29 3d 30 0d 05 0a 11  |isk(total)=0....|
00000b50  74 6f 74 61 6c 3d 74 6f  74 61 6c 2d 31 0d 05 14  |total=total-1...|
00000b60  13 f1 27 22 4e 6f 77 20  72 65 6d 6f 76 65 64 22  |..'"Now removed"|
00000b70  0d 05 1e 0f f2 68 6f 6c  64 73 63 72 65 65 6e 0d  |.....holdscreen.|
00000b80  05 28 05 e1 0d 05 32 05  3a 0d 05 3c 0f dd f2 61  |.(....2.:..<...a|
00000b90  6c 6c 63 68 61 6e 67 65  0d 05 46 05 db 0d 05 50  |llchange..F....P|
00000ba0  29 f1 27 22 49 6e 70 75  74 20 6e 65 77 20 64 69  |).'"Input new di|
00000bb0  73 6b 20 6e 75 6d 62 65  72 73 2f 74 61 70 65 20  |sk numbers/tape |
00000bc0  72 65 66 73 2e 22 0d 05  5a 12 e3 63 6f 75 6e 74  |refs."..Z..count|
00000bd0  3d 31 b8 74 6f 74 61 6c  0d 05 64 2b f1 22 44 20  |=1.total..d+."D |
00000be0  22 20 74 69 74 6c 65 24  28 63 6f 75 6e 74 29 3b  |" title$(count);|
00000bf0  8a 31 35 29 3b 3a e8 20  64 69 73 6b 28 63 6f 75  |.15);:. disk(cou|
00000c00  6e 74 29 0d 05 6e 2c f1  22 54 20 22 20 74 69 74  |nt)..n,."T " tit|
00000c10  6c 65 24 28 63 6f 75 6e  74 29 3b 8a 31 35 29 3b  |le$(count);.15);|
00000c20  3a e8 20 74 61 70 65 24  28 63 6f 75 6e 74 29 0d  |:. tape$(count).|
00000c30  05 78 0a ed 63 6f 75 6e  74 0d 05 82 38 f1 27 22  |.x..count...8.'"|
00000c40  4e 65 77 20 64 69 73 6b  20 6e 75 6d 62 65 72 73  |New disk numbers|
00000c50  20 26 20 74 61 70 65 20  72 65 66 73 2e 20 6e 6f  | & tape refs. no|
00000c60  77 20 20 20 20 20 20 20  65 6e 74 65 72 65 64 2c  |w       entered,|
00000c70  22 0d 05 8c 0f f2 68 6f  6c 64 73 63 72 65 65 6e  |".....holdscreen|
00000c80  0d 05 96 05 e1 0d 05 a0  05 3a 0d 05 aa 0f dd f2  |.........:......|
00000c90  6f 6e 65 63 68 61 6e 67  65 0d 05 b4 05 db 0d 05  |onechange.......|
00000ca0  be 18 e8 27 22 54 69 74  6c 65 20 6e 61 6d 65 20  |...'"Title name |
00000cb0  22 2c 74 69 74 24 0d 05  c8 12 e3 63 6f 75 6e 74  |",tit$.....count|
00000cc0  3d 31 b8 74 6f 74 61 6c  0d 05 d2 1f e7 20 74 69  |=1.total..... ti|
00000cd0  74 24 3d 74 69 74 6c 65  24 28 63 6f 75 6e 74 29  |t$=title$(count)|
00000ce0  20 8c 20 8d 54 44 46 0d  05 dc 0a ed 63 6f 75 6e  | . .TDF.....coun|
00000cf0  74 0d 05 e6 19 f1 27 27  22 4e 6f 74 20 6f 6e 20  |t.....''"Not on |
00000d00  74 68 65 20 6c 69 73 74  2e 22 0d 05 f0 0f f2 68  |the list.".....h|
00000d10  6f 6c 64 73 63 72 65 65  6e 0d 05 fa 09 e5 8d 54  |oldscreen......T|
00000d20  6c 46 0d 06 04 2e e8 27  22 45 6e 74 65 72 20 74  |lF.....'"Enter t|
00000d30  68 65 20 6e 65 77 20 64  69 73 6b 20 6e 75 6d 62  |he new disk numb|
00000d40  65 72 20 22 2c 64 69 73  6b 28 63 6f 75 6e 74 29  |er ",disk(count)|
00000d50  0d 06 0e 2d e8 27 22 45  6e 74 65 72 20 74 68 65  |...-.'"Enter the|
00000d60  20 6e 65 77 20 74 61 70  65 20 72 65 66 2e 22 2c  | new tape ref.",|
00000d70  74 61 70 65 24 28 63 6f  75 6e 74 29 20 0d 06 18  |tape$(count) ...|
00000d80  0f 63 6f 75 6e 74 3d 74  6f 74 61 6c 0d 06 22 0f  |.count=total..".|
00000d90  f2 68 6f 6c 64 73 63 72  65 65 6e 0d 06 2c 05 e1  |.holdscreen..,..|
00000da0  0d 06 36 05 3a 0d 06 40  0a dd f2 73 61 76 65 0d  |..6.:..@...save.|
00000db0  06 4a 05 db 0d 06 54 46  e8 27 27 22 53 61 76 65  |.J....TF.''"Save|
00000dc0  20 74 6f 20 28 44 29 69  73 63 20 6f 72 20 28 54  | to (D)isc or (T|
00000dd0  29 61 70 65 20 22 51 24  3a e7 20 51 24 3d 22 44  |)ape "Q$:. Q$="D|
00000de0  22 20 8c 20 8d 44 5e 46  20 8b 20 e7 20 51 24 3d  |" . .D^F . . Q$=|
00000df0  22 54 22 20 8c 20 8d 44  68 46 0d 06 5e 35 ff 22  |"T" . .DhF..^5."|
00000e00  2a 44 49 53 4b 22 3a f1  27 22 44 61 74 61 20 6e  |*DISK":.'"Data n|
00000e10  6f 77 20 62 65 69 6e 67  20 73 74 6f 72 65 64 20  |ow being stored |
00000e20  6f 6e 20 64 69 73 63 2e  22 3a e5 8d 44 72 46 0d  |on disc.":..DrF.|
00000e30  06 68 2f ff 22 2a 54 41  50 45 22 3a f1 27 22 44  |.h/."*TAPE":.'"D|
00000e40  61 74 61 20 6e 6f 77 20  62 65 69 6e 67 20 73 74  |ata now being st|
00000e50  6f 72 65 64 20 6f 6e 20  74 61 70 65 2e 22 0d 06  |ored on tape."..|
00000e60  72 0d 58 3d ae 22 44 41  54 41 22 0d 06 7c 05 3a  |r.X=."DATA"..|.:|
00000e70  0d 06 86 12 e3 63 6f 75  6e 74 3d 31 b8 74 6f 74  |.....count=1.tot|
00000e80  61 6c 0d 06 90 16 f1 23  20 58 2c 74 69 74 6c 65  |al.....# X,title|
00000e90  24 28 63 6f 75 6e 74 29  0d 06 9a 14 f1 23 20 58  |$(count).....# X|
00000ea0  2c 64 69 73 6b 28 63 6f  75 6e 74 29 0d 06 a4 16  |,disk(count)....|
00000eb0  f1 23 20 58 2c 74 61 70  65 24 28 63 6f 75 6e 74  |.# X,tape$(count|
00000ec0  29 20 0d 06 ae 0a ed 63  6f 75 6e 74 0d 06 b8 08  |) .....count....|
00000ed0  d9 23 20 58 0d 06 c2 17  f1 27 22 64 61 74 61 20  |.# X.....'"data |
00000ee0  6e 6f 77 20 73 61 76 65  64 2e 22 0d 06 cc 0f f2  |now saved.".....|
00000ef0  68 6f 6c 64 73 63 72 65  65 6e 0d 06 d6 05 e1 0d  |holdscreen......|
00000f00  06 e0 05 3a 0d 06 ea 0d  dd f2 72 65 63 6f 76 65  |...:......recove|
00000f10  72 0d 06 f4 05 db 0d 06  fe 21 f1 27 22 49 6e 73  |r........!.'"Ins|
00000f20  65 72 74 20 44 41 54 41  20 64 69 73 63 20 6f 72  |ert DATA disc or|
00000f30  20 74 61 70 65 2e 22 0d  07 08 2a e8 27 27 22 52  | tape."...*.''"R|
00000f40  65 63 6f 76 65 72 20 66  72 6f 6d 20 28 44 29 69  |ecover from (D)i|
00000f50  73 63 20 6f 72 20 28 54  29 61 70 65 2e 22 3b 51  |sc or (T)ape.";Q|
00000f60  24 0d 07 12 25 e7 20 51  24 3d 22 44 22 20 8c 20  |$...%. Q$="D" . |
00000f70  8d 54 5c 47 20 8b 20 e7  20 51 24 3d 22 54 22 20  |.T\G . . Q$="T" |
00000f80  8c 20 8d 54 66 47 0d 07  1c 3a ff 22 2a 44 49 53  |. .TfG...:."*DIS|
00000f90  4b 22 3a f1 27 22 44 61  74 61 20 6e 6f 77 20 62  |K":.'"Data now b|
00000fa0  65 69 6e 67 20 72 65 63  6f 76 65 72 65 64 20 66  |eing recovered f|
00000fb0  72 6f 6d 20 64 69 73 63  2e 22 3a e5 8d 54 7a 47  |rom disc.":..TzG|
00000fc0  0d 07 26 34 ff 22 2a 54  41 50 45 22 3a f1 27 22  |..&4."*TAPE":.'"|
00000fd0  44 61 74 61 20 6e 6f 77  20 62 65 69 6e 67 20 72  |Data now being r|
00000fe0  65 63 6f 76 65 72 65 64  20 66 72 6f 6d 20 74 61  |ecovered from ta|
00000ff0  70 65 2e 22 0d 07 30 05  3a 0d 07 3a 10 e3 44 3d  |pe."..0.:..:..D=|
00001000  30 b8 32 30 30 30 3a ed  44 0d 07 44 05 3a 0d 07  |0.2000:.D..D.:..|
00001010  4e 0b 74 6f 74 61 6c 3d  30 0d 07 58 0d 58 3d 8e  |N.total=0..X.X=.|
00001020  22 44 41 54 41 22 0d 07  62 05 3a 0d 07 6c 05 f5  |"DATA"..b.:..l..|
00001030  0d 07 76 11 74 6f 74 61  6c 3d 74 6f 74 61 6c 2b  |..v.total=total+|
00001040  31 0d 07 80 16 e8 23 20  58 2c 74 69 74 6c 65 24  |1.....# X,title$|
00001050  28 74 6f 74 61 6c 29 0d  07 8a 14 e8 23 20 58 2c  |(total).....# X,|
00001060  64 69 73 6b 28 74 6f 74  61 6c 29 0d 07 94 15 e8  |disk(total).....|
00001070  23 20 58 2c 74 61 70 65  24 28 74 6f 74 61 6c 29  |# X,tape$(total)|
00001080  0d 07 9e 0a fd 20 c5 23  20 58 0d 07 a8 08 d9 23  |..... .# X.....#|
00001090  20 58 0d 07 b2 1a f1 27  89 38 22 44 61 74 61 20  | X.....'.8"Data |
000010a0  6e 6f 77 20 6c 6f 61 64  65 64 2e 22 0d 07 bc 0f  |now loaded."....|
000010b0  f2 68 6f 6c 64 73 63 72  65 65 6e 0d 07 c6 05 e1  |.holdscreen.....|
000010c0  0d 07 d0 05 3a 0d 07 da  0d dd f2 70 72 69 6e 74  |....:......print|
000010d0  65 72 0d 07 e4 06 ef 32  0d 07 ee 0a 2a 46 58 36  |er.....2....*FX6|
000010e0  2c 30 0d 07 f8 13 ef 31  2c 32 37 2c 31 2c 31 30  |,0.....1,27,1,10|
000010f0  38 2c 31 2c 35 0d 08 02  09 f2 72 65 61 64 0d 08  |8,1,5.....read..|
00001100  0c 05 f1 0d 08 16 05 e1  0d ff                    |..........|
0000110a