2 K=PEEK(186):PRINT"[147]":POKE53280,0:POKE53281,0:POKE53265,11
4 D=D+1:IFD<3THENLOAD"D."+STR$(D),K,1
6 POKE56576,148:POKE53272,2:PRINT"[147]":POKE648,192:POKE52487,255:GOSUB1044
8 PRINT"[147]":SYS51024:IL=0:XL=0:XS=0:FL=0:FS=0:POKE56576,148
10 PRINTTB$:INPUT"[145][145][145][145][145]LOAD INDEX FROM DEVICE.(8/9)";XL$:XL=VAL(XL$)
12 IFXL<8ORXL>9THEN10
14 PRINTTB$:INPUT"[145][145][145][145]STORE INDEX ON DEVICE..(8/9)";XS$:XS=VAL(XS$)
16 IFXS<8ORXS>9THEN14
18 PRINTTB$:INPUT"[158][145][145][145]LOAD FILES FROM DEVICE.(8/9)";FL$:FL=VAL(FL$)
20 IFFL<8ORXL>9THEN18
22 PRINTTB$:INPUT"[158][145][145]STORE FILES TO DEVICE..(8/9)";FS$:FS=VAL(FS$)
24 IFFS<8ORXL>9THEN22
26 PRINTTB$"ARE INPUTS CORRECT ? (Y/N)":GETYN$
28 IFYN$="Y"THENSYS50984:PRINT"[147]":POKE53272,2:POKE53270,200:GOTO34
30 IFYN$="N"THENSYS50984:GOTO8
32 IFYN$<>"Y"ORYN$<>"N"THENPRINT"[145][145]":GOTO26
34 SO=0:POKE198,0:R=0:RC=0:E$(1)="":E$(2)=""
36 PRINT"[147][159]"X$(1);"[194][154]      MASTER CASSETTE FILES MENU      [159][194]";X$(2)"[146]";
38 PRINT"[152][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
40 FORBD=1TO15:PRINT"[209]                            [209]":NEXT
42 PRINTTB$"[145][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
44 GOSUB1006:PRINTTB$"[146][158]@SHADOW GRAPHICS 1992"
46 PRINT"[159] 1. CASSETTE FILES MENU"
48 PRINT"[154] 2. NUMERICAL INDEX"
50 PRINT"[159] 3. ALPHABETICAL INDEX"
52 PRINT"[154] 4. CHANGE DEVICE NUMBERS":GOSUB1004
54 PRINT,"[176][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
56 PRINT,"^[153]SELECT NUMBER_":PRINT,"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][189]"
58 GETO$:IFO$=""THEN58
62 O=VAL(O$):IFO=1ANDIL=1THEN496
64 IFO=1ANDIL<>1THENPRINTTB$"[145][145][145][145]";X$(10):GOSUB1026:GOTO496
66 IFO=2ANDIL=1THEN76
68 IFO=2ANDIL<>1THENPRINTTB$"[145][145][145][145]";X$(10):GOSUB1026:GOTO76
70 IFO=3THEN930
72 IFO=4THENPOKE53265,11:GOTO8
74 IFO$<>""THEN58
76 PRINT"[147][156]"X$(1);"[194][158]   NUMERICAL  CASSETTE  FILES  MENU   [156][194]";X$(2)"[146]";
78 PRINT"[150][209] 1 [146][150]  CREATE A NEW FILE":GOSUB1012
80 PRINT"[209] 2 [146][150]  SCRATCH FILE FROM DISK":GOSUB1012
82 PRINT"[209] 3 [146][150]  PRINT INDEX 1":GOSUB1012
84 PRINT"[209] 4 [146][150]  UPDATE INDEXES":GOSUB1012
86 PRINT"[209] 5 [146][150]  CLEAR INDEXES":GOSUB1012
88 PRINT"[209] 6 [146][150]  MAIN MENU":GOSUB1012:PRINT,"[156][176][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
92 PRINT,"^[150]SELECT NUMBER[156]_":PRINT,"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][189]"
96 GETP$:IFP$=""THEN96
100 S=VAL(P$):IFS=1THENFC=4:GOTO130
102 IFS=2THENFC=3:GOTO130
104 IFS=3THENFC=1:GOTO300
106 IFS=4THENFC=5:GOTO130
108 IFS=5THEN114
110 IFS=6THEN34
112 IFP$<>""THEN96
114 PRINTTB$"[158]CONFIRM SCRATCH INDEXES (Y/N)"
116 GETA$:IFA$=""THEN116
118 IFA$<>"Y"THEN76
120 FORJ=1TO140:G$(J)="(   "+")  "+"[209][209][209]":NEXTJ
122 PRINTTB$"";X$(9):GOSUB1018:FORJ=1TO140:G$(J)="[192][192][192]":NEXTJ
126 PRINTTB$"";X$(9):GOSUB1022:GOTO34
130 GOSUB1002:PRINT"[147]":PG=1:TN=1:LN=20:A=0:G$(A)=""
132 IFSS=1THENME$="[154] FILE FROM DISK [146]"
134 IFS=1THENME$="[154]    NEW FILE    [146]"
136 IFS=2THENME$="[154]  SCRATCH FILE  [146]"
138 IFS=3THENME$="[154]   INDEX PRINT  [146]"
140 IFS=4THENME$="[154]  INDEX UPDATE  [146]"
142 POKE198,0:PRINT"[156] F1=PAGE ON:[129]F3=PAGE BACK:[159]F5=FILE:[158]F7=MENU[146]";
144 PRINT"[155] PAGE ";PG;"[157]   [155]             ";ME$;
146 FORX=TNTOLN:PRINT"[152]                            [146][145]":GOSUB1012
148 PRINT"                            [145]"
150 PRINTTAB(1)X;"[154]"TAB(6)G$(X):NEXTX:PRINTTB$"[129] PAGE NUMBER [146]";
152 :
154 GETA$:IFA$=""THENGOSUB1008
156 IFA$>""THEN162
158 PRINTTB$"[156] PAGE  NUMBER [146]";
160 GETA$:IFA$=""THENGOSUB1008:GOTO152
162 IFA$<CHR$(133)ORA$>CHR$(136)THEN152
164 IFA$=CHR$(133)ANDX>139THENTN=1:LN=20:PG=1:GOTO142
166 IFA$=CHR$(134)ANDX<22THENTN=121:LN=140:PG=7:GOTO142
168 IFA$=CHR$(136)THEN34
170 IFA$=CHR$(133)THENTN=LN+1:LN=LN+20:PG=PG+1:GOTO142
172 IFA$=CHR$(134)THENTN=LN-39:LN=LN-20:PG=PG-1:GOTO142
174 IFA$=CHR$(135)THENPRINTTB$:INPUT"[159] FILE NUMBER [146]";A
176 PRINTTB$,"   "
178 IFA=0THEN174
180 IFA<TNORA>LNTHENPRINT"[145][145]":GOTO152
182 IFFC=5ANDG$(A)="[192][192][192]"THENGOSUB998:GOTO236
184 IFG$(A)="[192][192][192]"THENGOSUB998:PRINT"[145][145]":GOTO152
186 IFFC=5ANDA<TNORA>LNTHENPRINT"[145][145]":GOTO152
188 IFFC=1THEN472
190 IFFC=3THEN196
192 IFFC=4THEN324
194 IFFC=5THEN236
196 PRINT"[145][158]CONFIRM THIS FILE SCRATCH (Y/N)"
198 GETA$:IFA$=""THEN198
200 IFA$="Y"THEN206
202 IFA$="N"THEN76
204 IFA$=<"Y"ORA$>"N"THEN198
206 PRINT"[145]                                "
208 PRINT"[145][129] SCRATCHING ";G$(A);" ":OPEN2,FL,15:PRINT#2,"S:";G$(A):CLOSE2
210 PRINT"[145][153] FILE HAS BEEN SCRATCHED [146]           ":AA$=G$(A):G$(A)="[192][192][192]"
212 GOSUB1000:ZZ$="(   "+")  "+AA$:PRINT"[145][155]";X$(9)"            ":GOSUB1022
214 FORQ=1TO16:IFMID$(AA$,Q,1)=CHR$(32)THENCQ$=CQ$+CHR$(160):GOTO218
216 CQ$=CQ$+MID$(AA$,Q,1)
218 NEXTQ:AA$=CQ$:ZZ$="(   "+")  "+AA$:CQ$=""
220 IFIL=2THENG$(141)=ZZ$
222 IFIL<2THENPRINT"[145][152]";X$(10):GOSUB1014:G$(141)=ZZ$
224 FORN=141TO1STEP-1
226 IFMID$(G$(N),8)=AA$THENG$(N)="(   "+")  "+"[209][209][209]"
228 NEXT:FORN=1TO140STEP1:PRINT"[145][154] BUSY                             "
230 IFMID$(G$(N),8)>MID$(G$(N+1),8)THENB$=G$(N):G$(N)=G$(N+1):G$(N+1)=B$
232 PRINT"[145][159] BUSY":NEXT
234 PRINT"[145]";X$(9):GOSUB1018:AA$="":ZZ$="":B$="":GOTO34
236 PRINT"[147][156]"X$(1);"[194][159]    CASSETTE  FILES  INDEX  UPDATE    [156][194]";X$(2)"[146]";
238 PRINT"[176][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][178][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
240 PRINT"^[159]CASSETTE NUMBER"ATAB(22)"[157][156]_[129]ENTRIES LEFT    [156]_"
242 PRINT"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][177][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][189]"
244 IFG$(A)<>"[192][192][192]"THENPRINT""E$(8):GOSUB996:GOTO130
246 ES=0:FORJ=1TO140STEP1
248 IFG$(J)<>"[192][192][192]"THENNEXT
250 IFG$(J)="[192][192][192]"THENES=ES+1:NEXT
252 IFES<1THENPRINTTB$"[145][145][145][145][145][145]"E$(9):GOSUB998:GOTO34
254 PRINT"[150]":PRINTTAB(34)ES;
256 PRINT"[156][176][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][174][176][175][175][175][175][175][175][175][175][175][174]"
258 PRINT"^[159]ENTER CASSETTE TITLE[156]_^         _"
260 PRINT"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][189][173][172][172][172][172][172][172][172][172][172][189]"
262 PRINT"[156][176][175][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174][159]16 CHARACTERS MAX"
264 INPUT"";G$(A)
266 L=LEN(G$(A)):IFL>16THENPRINT"[145]                          ":GOTO262
268 PRINT"[159] DUPLICATION  CHECK ":FORN=1TO140STEP1
270 IFG$(N)=G$(A)ANDN=ATHEN274
272 IFG$(N)=G$(A)THENPRINT""E$(8);:GOSUB996:G$(A)="[192][192][192]":GOTO130
274 NEXTN
276 PRINT"[154] WRITING INDEX 1    ":GOSUB1022
278 FORQ=1TO16:IFMID$(G$(A),Q,1)=CHR$(32)THENCQ$=CQ$+CHR$(160):GOTO282
280 CQ$=CQ$+MID$(G$(A),Q,1)
282 PRINT"[158]"CQ$;:NEXTQ:G$(A)=CQ$:CQ$=""
284 G$(A)=LEFT$("(  ",5-LEN(STR$(A)))+MID$(STR$(A),2)+")  "+G$(A):XX$=G$(A)
286 PRINT"[153] READING INDEX 2    ":GOSUB1014:G$(J)=XX$
288 PRINT"[156]^                    _":FORN=141TO1STEP-1
290 PRINT"":PRINT,,"[150] BUSY"
292 IFMID$(G$(N),8)<MID$(G$(N-1),8)THENB$=G$(N):G$(N)=G$(N-1):G$(N-1)=B$
294 PRINT"":PRINT,," BUSY":NEXT
296 PRINT"[154] WRITING INDEX 2    "
298 PRINT"":PRINT,,"        ":GOSUB1018:XX$="":GOTO34
300 PRINTTB$"[154] PRINTER OFF ":OPEN4,4:PRINT#4
302 IFST<>0THENGOSUB998:CLOSE4:GOTO76
304 IFST=0THENPRINTTB$"[156] PRINT INDEX"
306 PRINT#4,CHR$(14)CHR$(27)"1";X$(1);X$(4);X$(2)"[146]";:PRINT#4,CHR$(10)
308 PRINT#4,CHR$(27);"@";
310 PRINT#4,CHR$(27);CHR$(15):PRINT#4,CHR$(27);"3";CHR$(25);
312 PRINT#4,CHR$(27)"D";CHR$(7);CHR$(14);CHR$(60);CHR$(67);CHR$(0);:FORN=1TO70
314 PRINT#4,CHR$(9);N;CHR$(9);G$(N)CHR$(9);N+70;CHR$(9);G$(N+70):NEXT
316 PRINT#4,CHR$(27);"@":PRINT#4,CHR$(27);CHR$(10);CHR$(10);CHR$(10);CHR$(10)
318 PRINT#4,CHR$(27);"@":PRINT#4:CLOSE4
320 IFSO=2THEN930
322 GOTO34
324 T$=LEFT$(T$,1):PRINT,"[158][145] CHECKING FILE BANK [146]":OPEN15,FS,15
326 GOSUB998:OPEN5,FS,5,"0:"+G$(A)+","+T$+",R":GOSUB332
328 PRINT,"[153][145] FILE EXISTS [146]          ":GOSUB998:CLOSE5:CLOSE15:GOTO130
332 INPUT#15,A$
334 IFVAL(A$)>0THENPRINT,"[153][145] O.K-FILE DOES NOT EXIST [146]":GOSUB998
336 IFVAL(A$)>0THENCLOSE5:CLOSE15:GOSUB998:GOTO340
338 RETURN
340 AO=0:E$(3)=STR$(A)
342 PRINT"[147][151]"X$(1);"[194][152]         CREATE  A  NEW  FILE         [151][194]";X$(2)"[146]";
344 PRINT"":PRINT,,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
346 FORE=1TO8:PRINT,,"[161]              [161][146]":NEXTE:PRINT,,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]";
350 PRINT"":PRINT,,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
352 FORE=1TO9:PRINT,,"[161]              [161][146]":NEXTE:PRINT,,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]";
356 PRINT"[152][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
358 FORE=1TO5:PRINT"[161]                  [161][146]":NEXTE:PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]"
364 PRINT"[154]1. CASSETTE SIZE ":PRINT"[152]2. CASSETTE TYPE ":GOSUB1004
368 PRINT"[154]1. CASSETTE SIZE [146]":PRINT"":PRINT,,"[154][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]"
370 FORE=1TO8:PRINT,,"[161]            [161][146]":NEXTE
372 PRINT,,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]";:PRINT"":PRINT,,"1.[154] C 60 "
374 PRINT,,"2.[154] C 90 ":PRINT,,"3.[154] C 120 "
376 GETCS$:IFCS$=""THEN376
380 CS=VAL(CS$):IFCS=1THENE$(1)="60":GOTO386
382 IFCS=2THENE$(1)="90":GOTO386
384 IFCS=3THENE$(1)="120"
386 IFCS<1ORCS>3THEN376
388 PRINT"":PRINT,,"[150][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
390 FORE=1TO9:PRINT,,"[161]            [161][146]":NEXTE:PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]";
396 PRINT"[152]1. CASSETTE SIZE ":PRINT"[150]2. CASSETTE TYPE [146]"
398 PRINT"":PRINT,,"1.[150] STANDARD "
400 PRINT,,"2.[150] CHROME ":PRINT,,"3.[150] FERRIC "
402 PRINT,,"4.[150] METAL  "
404 GETCT$:IFCT$=""THEN404
406 CT=VAL(CT$):IFCT<1ORCT>4THEN404
410 GOSUB1034:PRINT"[156]TITLE [159]"G$(A):PRINT"[156]NUMBER[159]"E$(3)
412 PRINT"[156]SIZE [159]C"E$(1):GOSUB708:PRINT"[156]TYPE[159] "E$(4)
414 PRINT"[152]CORRECT DETAILS (Y/N)"
416 GETP$:IFP$=""THEN416
418 IFP$="N"THENE$(1)="":E$(2)="":GOTO340
422 IFP$<>"Y"ORP$<>"N"THEN416
424 PRINT"[147][149]"X$(1);"[194][158]      TRACK ENTRIES TO A NEW FILE     [149][194]";
426 PRINT"[194][129]   PRESS RETURN TO FILL BLANK TRACKS  [149][194]";
428 PRINTX$(2)"[146]";
430 IFTL=0THENRC=RC+1:GOTO434
432 IFTL=1THENRC=RC:TL=0
434 IFRC<17THENTS=1
436 IFRC>17THENTS=2
438 PRINT"[155][176][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
440 PRINT"[155]^  TRACK NR";RC;TAB(23)":[154]SIDE"TS"[155]_"
442 PRINT"[152][171][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][179]"
444 PRINT"[151]^[159] MAXIMUM 35 CHARACTERS  [151]_"
446 PRINT"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][189]"
450 PRINT"[176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
452 IFAO=1THENPOKE198,2:POKE631,42:POKE632,13
454 PRINT"[159]":INPUTD$(RC)
456 L=LEN(D$(RC)):IFL>35THENTL=1:GOTO470
458 IFL<2THEND$(RC)="-----------":AO=1
460 IFL<2THENPRINT"***********"
462 IFRC=17THENPRINTTB$,"[145][145][145][145][154]SIDE ONE IS FULL":POKE198,0:AO=0:GOSUB1000
464 IFRC=17THENPRINTTB$,"[145][145][145][145]                ":GOSUB1006:GOTO470
466 IFRC=34THENPRINTTB$,"[145][145][145][145][154]SIDE TWO IS FULL":POKE198,0:AO=0:GOSUB1000
468 IFRC=34THENPRINTTB$,"[145][145][145][145]                ":NF=1:GOTO868
470 PRINT"                                     ":GOTO430
472 T$=LEFT$(T$,1):PRINT,"[158][145] CHECKING FILE BANK [146]":OPEN15,FL,15
474 OPEN5,FL,5,"0:"+G$(A)+","+T$+",R"
476 INPUT#15,A$:GOSUB998
478 IFVAL(A$)>0THENPRINT,"[158][145] FILE DOES NOT EXIST [146]":GOSUB998
480 IFVAL(A$)>0THENCLOSE5:CLOSE15:GOSUB998:GOTO34
482 PRINT"[145][144]                                       "
484 CLOSE5:CLOSE15:PRINT"[145]":RC=0:R=0
486 POKE198,0:OPEN2,FL,2,G$(A)+",S,R":PRINT"[154][145] READING ";G$(A);" [146]"
490 FORZ=1TO3:INPUT#2,E$(Z):NEXTZ
492 FORR=1TO34:INPUT#2,D$(R):RC=RC+1:NEXT:CLOSE2
496 PRINT"[147][129]"X$(1);"[194][158]  CASSETTE FILES     MENU NUMBER TWO  [129][194]";X$(2)"[146]";
498 PRINT"[151][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
500 FORBD=1TO17:PRINT"[209]                        [209]":NEXT
502 PRINTTB$"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
504 PRINT""
506 IFRC>0THENPRINT,"[151] 1 [146][152]  LOAD FILE":GOSUB1012
508 IFRC<1THENPRINT,"[158] 1 [146][159]  LOAD FILE":GOSUB1012
510 IFRC>0THENPRINT,"[158] 2 [146][159]  VIEW DATA":GOSUB1012
512 IFRC<1THENPRINT,"[151] 2 [146][152]  VIEW DATA":GOSUB1012
514 IFRC<1THENPRINT,"[151] 3 [146][152]  PRINT PAGE":GOSUB1012
516 IFRC>0THENPRINT,"[158] 3 [146][159]  PRINT PAGE":GOSUB1012
518 IFRC>0THENPRINT,"[158] 4 [146][159]  ADD/AMEND TRACKS":GOSUB1012
520 IFRC<1THENPRINT,"[151] 4 [146][152]  ADD/AMEND TRACKS":GOSUB1012
522 IFRC<1THENPRINT,"[151] 5 [146][152]  PRINT LABEL":GOSUB1012
524 IFRC>0THENPRINT,"[158] 5 [146][159]  PRINT LABEL":GOSUB1012
526 IFRC>0THENPRINT,"[158] 6 [146][159]  TITLE AMEND":GOSUB1012
528 IFRC<1THENPRINT,"[151] 6 [146][152]  TITLE AMEND":GOSUB1012
530 PRINT,"[158] 7 [146][159]  MAIN MENU":GOSUB1012
532 PRINT,"[154][176][175][175][175][175][175][175][175][175][175][175][175][175][175][174]":PRINT,"[154]^[152]SELECT NUMBER[154]_"
536 PRINT,"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][189]"
538 GETP$:IFP$=""THEN538
542 S=VAL(P$):IFS=1ANDRC>0THEN538
544 IFS=1THENFC=1:S=0:SS=1:GOTO130
546 IFS=2ANDRC>0THEN562
548 IFS=3ANDRC>0THEN718
550 IFS=4ANDRC>0THENTA=1:GOTO592
552 IFS=5ANDRC>0THEN652
554 IFS=6ANDRC>0THEN784
556 IFS=7THEN34
558 IFS<1ORS>7THEN496
562 INPUT"[156]SIDE NR.[152](0=MENU)";V$
566 V=VAL(V$):IFV=0THEN496
568 IFV=1THENR1=1:GOTO574
570 IFV=2THENR1=18:GOTO574
572 IFV<0ORV>2THEN562
574 GOSUB708:PRINT"[147]TITLE: ";G$(A)TAB(28)":[154]SIDE "V
576 PRINT"[156] SIZE: C";E$(1)""TAB(10)": TYPE:";E$(4)TAB(28)":[158]C/NR [146]";A
578 PRINT"[159][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
580 R2=R1+16:IFR2>RCTHENR2=RC
582 K$="[150]":FORC=R1TOR2
584 PRINT"[152]"C;TAB(4)K$;D$(C)
586 IFK$="[150]"THENK$="[154]":GOTO590
588 IFK$="[154]"THENK$="[150]"
590 GOSUB1012:NEXTC:GOTO562
592 PRINT"[147]":FORC=J1TOJ2
594 IFC<18THENK$="":GOTO598
596 IFC>=17THENK$="[153]"
598 PRINT"[152]"C;TAB(4)K$;D$(C):GOSUB1012:NEXTC
602 POKEVP,14:PRINT"[145][145]":PRINT"[158][176][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
604 PRINT"^[159]      ADD AND AMEND TRACKS      [146][158]_"
606 PRINT"^[154]  F1=SEE MORE  F7=SELECT TRACK  [146][158]_"
608 PRINT"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][189]"
610 GETA$:IFA$=""THEN610
612 IFA$=CHR$(133)ANDJ2=34THENJ1=1:J2=11:GOTO592
614 IFA$=CHR$(133)ANDJ2=22THENJ1=J2+1:J2=J2+12:GOTO592
616 IFA$=CHR$(133)THENJ1=J2+1:J2=J2+11:GOTO592
618 IFA$=CHR$(136)THEN624
620 IFA$<CHR$(133)ORA$>CHR$(136)THEN610
622 IFA$=CHR$(134)ORA$=CHR$(135)THEN610
624 POKEVP,18:PRINT"[145][145]":POKEHP,1:INPUT"[154]WHICH TRACK NUMBER";C
626 IFC<J1ORC>J2THEN624
628 POKEVP,18:PRINT"[145][145]":POKEHP,1:PRINT"                                   "
630 POKEVP,18:PRINT"[145][145]":POKEHP,1:PRINT"[157][152]"C;K$;D$(C)
632 POKEVP,19:PRINT"[145][145]":POKEHP,1:PRINT"[158]PLEASE INPUT NEW TRACK NAME[154]"
634 POKEVP,20:PRINT"[145][145]":POKEHP,3:PRINT"[176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174][159]"
636 POKEVP,21:PRINT"[145][145]":POKEHP,1:INPUTD$(C)
638 L=LEN(D$(C)):IFL>35THEN592
640 IFL<2THEND$(C)="-----------"
642 POKEVP,23:PRINT"[145][145]":POKEHP,13:PRINT"[153] ADD MORE(Y/N) "
644 GETF$:IFF$=""THEN644
646 IFF$="N"THENTA=0:NF=2:PRINTTB$"[156] STORING FILE TO DISK ":GOTO880
648 IFF$="Y"THEN592
650 IFF$<>"Y"ORF$<>"N"THEN644
652 PRINT""X$(1);"[194] [153]      PRINTING CASSETTE LABEL        [194]";X$(2)"[146]";
654 GOSUB708:C1$=G$(A):SP$="                  ":C1$=LEFT$(C1$+SP$,18)
656 FORI=1TO18:AC=ASC(MID$(C1$,I,1))
658 PB$=PB$+CHR$(AC):NEXTI
660 IFVAL(E$(1))=60ORVAL(E$(1))=90THENC2$="C"+E$(1)+"  "+E$(4)+"  ":GOTO664
662 IFVAL(E$(1))=120THENC2$="C"+E$(1)+" "+E$(4)+"  "
664 IFVAL(E$(3))<10THENCN$="00"+E$(3):GOTO670
666 IFVAL(E$(3))>9ANDVAL(E$(3))<100THENCN$="0"+E$(3):GOTO670
668 IFVAL(E$(3))>99THENCN$=E$(3)
670 BT$=C2$+CN$
672 PRINTTB$,"[154] PRINTER OFF ":OPEN4,4:PRINT#4
674 IFST<>0THENGOSUB998:CLOSE4:GOTO496
676 IFST=0THENPRINTTB$,"[158] PRINT LABEL"
678 PRINT#4,CHR$(14)CHR$(27)"1";X$(6):PRINT#4,CHR$(10)
680 PRINT#4,CHR$(27);"@";:PRINT#4,CHR$(27);CHR$(15);
682 PRINT#4,CHR$(27);"3";CHR$(23);:PRINT#4," SIDE 2.";CHR$(13)
684 PRINT#4,CHR$(27)"D";CHR$(5);CHR$(0);:FORN=18TO34
686 PRINT#4,N;CHR$(9);D$(N):NEXT
688 PRINT#4,CHR$(10):PRINT#4,CHR$(27);"@";:PRINT#4,CHR$(14)CHR$(27)"1";X$(6)
690 PRINT#4,CHR$(10):PRINT#4,CHR$(27);"@";:PRINT#4,CHR$(27);CHR$(15);
692 PRINT#4,CHR$(27);"3";CHR$(23);:PRINT#4," SIDE 1.";CHR$(13)
694 PRINT#4,CHR$(27)"D";CHR$(5);CHR$(0);:FORN=1TO17
696 PRINT#4,N;CHR$(9);D$(N):NEXT
698 PRINT#4,CHR$(27);"@":PRINT#4,CHR$(14)CHR$(27)"1";X$(7)
700 PRINT#4,CHR$(27)"1";"[221]";PB$;"[146][221]":PRINT#4,CHR$(27)"1";X$(8)
702 PRINT#4,CHR$(27)"1";"[221]";BT$;"[146][221]":PRINT#4,CHR$(27)"1";X$(5)
704 PRINT#4,CHR$(27);"@";:FORPU=1TO2:PRINT#4,CHR$(10):NEXTPU
706 PRINT#4:CLOSE4:C1$="":C2$="":PB$="":CN$="":GOTO496
708 IFE$(2)="S"THENE$(4)="STANDARD"
710 IFE$(2)="C"THENE$(4)=" CHROME "
712 IFE$(2)="F"THENE$(4)=" FERRIC "
714 IFE$(2)="M"THENE$(4)=" METAL  "
716 RETURN
718 CP$(2)="[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
720 CP$(2)="[221]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]O[221]"
722 CP$(3)="[221] [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201] [221]"
724 CP$(4)="[221] [194][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][194] [221]        [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
726 CP$(5)="[221] [221][213][192][201][176][192][192][192][192][192][192][192][192][192][174][213][192][201][221] [221]"
728 CP$(6)="[221] [221][221][215][221][221])[166][166][166]   [166]([221][221][215][221][221] [221]        [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
730 CP$(7)="[221] [221][202][192][203][173][192][192][192][192][192][192][192][192][192][189][202][192][203][221] [221]        [166]    CASSETTE FILE PRINTOUT     [146][166]"
732 CP$(8)="[181] [221]   [177][177][177][177][177][177][177][177][177][177][177] S1[221] [182]        [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
734 CP$(9)="[181] [221]TDK MA 90[146][209][209][209][209][209][209][209][209][221] [182]"
736 CP$(10)="[181] [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203] [182]        [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
738 CP$(11)="[181]   [206][163][163][163][163][163][163][163][163][163][163][163][163][163][205]   [182]"
740 CP$(12)="[181]O [217] [209] [209]   O   [209] [209] [212] O[182]"
742 CP$(13)="[173][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][189]        [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
744 PRINT""X$(1);"[194][150]    CASSETTE PAGES PRINTING SERVICE   [194]";X$(2)"[146]";
746 PRINTTB$,"[154] PRINTER OFF ":OPEN4,4:PRINT#4
748 IFST<>0THENGOSUB998:CLOSE4:GOTO496
750 IFST=0THENPRINTTB$," PRINT PAGE "
752 PRINTCHR$(15):FORMM=1TO13
754 PRINTCHR$(27);"1";TAB(8)CP$(MM):NEXTMM
756 PRINTCHR$(27);"S0";:PRINTTAB(8)"(C) SHADOWGRAPHICS 1992":PRINTCHR$(27);"@";
758 PRINTCHR$(14)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";:GOSUB708
760 PRINT"CASSETTE NAME "G$(A)
762 PRINT"CASSETTE SIZE "E$(1):PRINT"CASSETTE TYPE "E$(4)
764 PRINT"CASSETTE NUMBER "E$(3)
766 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";:PRINT"SIDE ONE"
770 PRINTCHR$(15):PRINTCHR$(27)CHR$(108):FORL=1TO17
772 PRINTCHR$(27);"1";CHR$(10);L;:PRINTD$(L):NEXTL:PRINTCHR$(27);"1";CHR$(0);
774 PRINTCHR$(14)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
776 PRINT"SIDE TWO":PRINTCHR$(15):PRINTCHR$(27)CHR$(108):FORL=18TO34
778 PRINTCHR$(27);"1";CHR$(10);L;:PRINTD$(L):NEXTL:PRINTCHR$(27);"1";CHR$(0);
780 PRINTCHR$(27)CHR$(108)CHR$(0)CHR$(15)
782 PRINTCHR$(27);"@";:PRINT#4:CLOSE4:GOTO498
784 PRINT"[147][154]"X$(1);
786 PRINT"[194][159]        CASSETTE TITLES UPDATE        [154][194]";:PRINTX$(2)"[146]";
788 PRINT"[156][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
790 FORE=1TO7:PRINT"[161]                                      [161][146]";:NEXTE
792 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]";
794 PRINT"[159]1. CHANGE TITLE [154]";G$(A)
796 PRINT"[159]2. CHANGE SIZE  [154]C";E$(1)
798 GOSUB708:PRINT"[159]3. CHANGE TYPE [154]";E$(4)
800 GETCD$:IFCD$=""THEN800
802 CD=VAL(CD$)
804 IFCD<1ORCD>3THEN800
806 PRINT"":ONCDGOTO808,816,838
808 PRINT"[159][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]":N$(A)=G$(A)
810 INPUT"NEW CASSETTE TITLE[154]";G$(A)
812 L=LEN(G$(A)):IFL>16THENPRINT"[145][145]":GOTO810
814 GOTO854
816 PRINT"[129][162][162][162][162][162][162][162][162][162][162][162][162][162]"
818 FORE=1TO7:PRINT"[161]           [161][146]":NEXTE
820 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][146]";:PRINT"[159]1. C 60 [154]"
822 PRINT"[159]2. C 90 [154]":PRINT"[159]3. C 120 [154]"
824 GETCS$:IFCS$=""THEN824
828 CS=VAL(CS$):IFCS=1THENE$(1)="60":GOTO834
830 IFCS=2THENE$(1)="90":GOTO834
832 IFCS=3THENE$(1)="120"
834 IFCS<1ORCS>3THEN824
836 GOTO854
838 PRINT"[153][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
840 FORE=1TO9:PRINT"[161]             [161][146]":NEXTE
842 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]";
844 PRINT"[159]1. STANDARD [154]":PRINT"[159]2. CHROME [154]"
846 PRINT"[159]3. FERRIC [154]":PRINT"[159]4. METAL  [154]"
848 GETCT$:IFCT$=""THEN848
850 CT=VAL(CT$):IFCT<1ORCT>4THEN848
852 GOSUB1034
854 PRINT"":PRINT,"[155] DO YOU WISH TO CHANGE"
856 PRINT,"[152]MORE INFORMATION ? (Y/N)"
858 GETP$:IFP$=""THEN858
860 IFP$="N"THEN866
862 IFP$="Y"THEN784
864 IFP$<>"Y"ORP$<>"N"THEN858
866 E$(3)=STR$(A):TF=1
868 PRINTTB$"[158][176][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
870 PRINT"^                          _"
872 PRINT"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][189]":IFNF=1THEN878
874 PRINTTB$" STORING INDEX 1       ":GOSUB1022
876 OPEN2,FL,15:PRINT#2,"S:";N$(A):CLOSE2:NM=A
878 PRINTTB$"[156] STORING FILE TO DISK  "
880 OPEN2,FS,2,"@0:"+G$(A)+",S,W":FORZ=1TO3:PRINT#2,E$(Z):NEXTZ
882 FORR=1TO34:PRINT#2,D$(R):NEXTR:CLOSE2
884 IFNF=0THEN888
886 IFNF=1ORNF=2THENNF=0:GOTO34
888 IFTF<1THEN496
890 IFTF=1THENTF=0
892 FORQ=1TO16:IFMID$(N$(A),Q,1)=CHR$(32)THENJQ$=JQ$+CHR$(160):GOTO896
894 JQ$=JQ$+MID$(N$(A),Q,1)
896 NEXTQ:N$(A)=JQ$:YY$="(   "+")  "+N$(A):JQ$=""
898 FORQ=1TO16:IFMID$(G$(A),Q,1)=CHR$(32)THENCQ$=CQ$+CHR$(160):GOTO902
900 CQ$=CQ$+MID$(G$(A),Q,1)
902 NEXTQ:G$(A)=CQ$
904 PRINTTB$"[152] READING INDEX 2       ":GOSUB1014:G$(141)=YY$
906 FORN=141TO1STEP-1
908 IFMID$(G$(N),8)=N$(A)THENG$(N)="(   "+")  "+"[209][209][209]"
910 NEXT:N$=""
912 FORN=1TO140STEP1:PRINTTB$"[154] BUSY           "
914 IFMID$(G$(N),8)>MID$(G$(N+1),8)THENB$=G$(N):G$(N)=G$(N+1):G$(N+1)=B$
916 PRINTTB$" BUSY":NEXT:A=NM
918 G$(J)=LEFT$("(  ",5-LEN(STR$(NM)))+MID$(STR$(NM),2)+")  "+CQ$
920 FORN=141TO1STEP-1
922 PRINTTB$"[150] BUSY"
924 IFMID$(G$(N),8)<MID$(G$(N-1),8)THENB$=G$(N):G$(N)=G$(N-1):G$(N-1)=B$
926 PRINTTB$" BUSY":NEXT
928 PRINTTB$"[159] STORING INDEX 2":GOSUB1018:CQ$="":YY$="":B$="":GOTO34
930 PRINT"[147]"X$(1);"[194][158]  ALPHABETICAL  CASSETTE FILES  MENU  [194]";X$(2)"[146]";
932 S0=1:PRINT"[209] 1 [146][129]  DISPLAY ALPHABETICAL INDEX":GOSUB1012
934 PRINT"[209] 2 [146][129]  PRINT ALPHABETICAL INDEX":GOSUB1012
936 PRINT"[209] 3 [146][129]  MAIN MENU":GOSUB1012
938 PRINTTB$,"[145][129][176][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
940 PRINTTB$,"^[150]SELECT NUMBER[129]_"
942 PRINTTB$,"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][189]"
944 GETP$:IFP$=""THEN944
948 SO=VAL(P$):IFSO=1ORSO=2THEN954
950 IFSO=3THEN34
952 IFSO<1ORSO>3THEN944
954 IFIL=2THEN958
956 IFIL<2THENPRINTTB$"[153]";X$(10):GOSUB1014:IFSO=2THEN300
958 IFSO=2THEN300
960 GOSUB1002:PRINT"[147]":PG=1:TN=1:LN=20:A=0:G$(A)=""
962 POKE198,0:PRINT"[155] PAGE";PG;TAB(7)"[156]:F1=PAGE ON:[129]F3=PAGE BACK:[159]F7=MENU";
964 FORX=TNTOLN:PRINT"[152]                                [146][145]":GOSUB1012
966 PRINT"                                [145]"
968 PRINTTAB(1)X;"[154]"TAB(6)G$(X):NEXTX
970 PRINTTB$"[129] PAGE  NUMBER [146]";
972 GETA$:IFA$=""THENGOSUB1008
974 IFA$>""THEN980
976 PRINTTB$"[156] PAGE  NUMBER [146]";
978 GETA$:IFA$=""THENGOSUB1008:GOTO970
980 IFA$<CHR$(133)ORA$>CHR$(136)THEN970
982 IFA$=CHR$(133)ANDX>139THENTN=1:LN=20:PG=1:GOTO962
984 IFA$=CHR$(134)ANDX<22THENTN=121:LN=140:PG=7:GOTO962
986 IFA$=CHR$(136)THEN930
988 IFA$=CHR$(133)THENTN=LN+1:LN=LN+20:PG=PG+1:GOTO962
990 IFA$=CHR$(134)THENTN=LN-39:LN=LN-20:PG=PG-1:GOTO962
992 IFA$=CHR$(135)THEN972
994 FORW=1TO2000:NEXT
996 FORW=1TO1000:NEXT
998 FORW=1TO500:NEXT
1000 FORW=1TO400:NEXT
1002 FORW=1TO300:NEXT
1004 FORW=1TO200:NEXT
1006 FORW=1TO100:NEXT
1008 FORW=1TO40:NEXT
1010 FORW=1TO30:NEXT
1012 FORW=1TO20:NEXT:RETURN
1014 IFIL=2THENRETURN
1016 OPEN2,XL,2,E$(6)+",S,R":FORJ=1TO140:INPUT#2,G$(J):NEXT:CLOSE2:IL=2
1018 OPEN2,XS,2,"@0:"+E$(6)+",S,W":FORJ=1TO140:PRINT#2,G$(J):NEXT:CLOSE2
1020 GOTO1032
1022 OPEN2,XS,2,"@0:"+E$(5)+",S,W":FORJ=1TO140:PRINT#2,G$(J):NEXT:CLOSE2
1024 GOTO1032
1026 IFIL=1THENRETURN
1028 OPEN2,XL,2,E$(5)+",S,R":FORJ=1TO140:INPUT#2,G$(J):NEXTJ:CLOSE2:IL=1
1030 OPEN1,XL,15:PRINT#1,"I":CLOSE1:GOSUB1002:RETURN
1032 OPEN1,XS,15:PRINT#1,"I":CLOSE1:GOSUB1002:RETURN
1034 IFCT=1THENE$(2)="S"
1036 IFCT=2THENE$(2)="C"
1038 IFCT=3THENE$(2)="F"
1040 IFCT=4THENE$(2)="M"
1042 RETURN
1044 X$(1)="[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":J1=1
1046 X$(7)="[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":X$(8)="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]":E$(6)="INDEX 2"
1048 X$(5)="[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":X$(6)="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":E$(5)="INDEX 1"
1050 X$(2)="[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":X$(10)="READING INDEX"
1052 X$(3)="[221]   CASSETTE  FILE    CASSETTE  FILE   [221]":DIMD$(34),G$(141),A(140)
1054 X$(4)="[221]   CASSETTE  INDEX   CASSETTE  INDEX  [221]":DIMCP$(14):VP=214:HP=211
1056 TB$="":BK=53280:PK=BK+1:X$(9)="WRITING INDEX":J2=11
1058 E$(8)="THIS TITLE IS ALREADY ON DISK":E$(9)="INDEX IS FULL":DIMN$(140)
1060 RETURN