8640=x" "r"  DISK MASTER ݒ"" ˒":::   C64 GLE 1541  5:4:CX0:PD3:C$"" 53280,15:1000:120:(142)L 0V$(0)"> LIST DISK NAMES,ID'S " DV$(1)"> DISPLAY SELECTED DIRECTORY " XV$(2)"> FIND SPECIFIED FILE " lV$(3)"> UPDATE MASTER DIRECTORY " V$(4)"> DELETE DISK ENTRY FROM MASTER "U V$(5)"> LIST MIN FREE BLOCKS PER DISK " V$(6)"> LIST MAX FREE BLOCKS PER DISK " V$(7)"> QUICK LIST OF ID'S IN USE " V$(8)"> PRINT FULL ID USEAGE CHART "' V$(10)"> EXIT "Z V$(9)"> HELP " " ߒ " " USE CURSOR AND RETURN " " ߩ " 4NP10:8940 H ' \ BRANCHING...- p m V 5340,3520,1140,1960,4300,7320,7480,5060,4580,10000,7000s  y   SOUND...  54296,15:54277,2:54278,251 54276,17:54273,80 :54272,10:P.22: P.30:54276,16: $ 8 $ L SPECIED FILE...* ` ? tNX05720:520n 4:"TO FIND WHAT DISK(S) A FILE IS ON": "ENTER FILE NAME "::"(FIRST LETTERS;'*'NOT NEEDED)": "ENTER 'Q' TO QUIT":: US$"":UL16:60000:F$UR$:F$"Q"520F$"*":"RE-";:1180)S$F$:6000:VY:6100g4,PD:4," FILE NAME ...... ID, DISK NAME .......":4}ST.8220:5204,S$:Q$(S$,1):4(AD1,(Q$):GIN27,192: MODIFY ML<Z.NX1:DI$(X$(Z),2):DN$(X$(Z),3)PS$"0:DIR."DI$,d" ò "mx" READING";(DN$,9);"";DI$;"  _ TO SKIP "" ñ "9420:"";5,8,5,"0:DIR."DI$",S,R":EF155,DF$,NB(Q).1000:1840AD(Q).1000:1840VS$((AD2)):GIN28,18:GIN:S$S$(IN$,15):GIN28,20}TSSST:15,EN,EM$:EN.6520:8140hF$(S$,V)1720|F$(S$,V)4,S$;" ";DI$;" ";DN$SS.1720GIN:S$(IN$,2,16):16205:Z6520 PD452097006260&520A0C$:C$"_"Q,.:1720[DC$"Q"5:6520:520X"ѝ";:X.99::197,64,64:1000:" ";:lX.99:X:Q,.:1520  UPDATING... 15:CX0:53280,14ME$"INSERT DISK TO BE CATALOGUED"8280'C$"Q"7100:520E 6480:"OK":15,8,15,"I0"U ST.8140e45,8,5,"$0"nHGINx\8120pDN$(IN$,143,16)DI$(IN$,161,2)DI$(DI$" ",2)" DISK NAME, ID : "DN$", "DI$:NB0 : BAMZ31414:C$(IN$,Z,1):V(C$)*Z71Z6NBNBV< K$ NX02640g8 X0NX1:C$(X$(X),2)xL DI$C$2640` DI$C$X:2640t DN$(X$(X),3)2640 ""10)"* WARNING *"::"THIS DISK ID : ";DI$;"" :"DISK NAME: ";DN$- :"IS ALREADY CATALOGED WITH A DIFFERENT "P :"DISK NAME: ";(X$(X),3):Z 6480 "CATALOGING THIS DISK WILL DELETE THE" :"PREVIOUS DATA" 6480:( "CATALOG THIS DISK? (Y/N) ";:US$"YN":UL1:60000:C$UR$2 C$"Y"7100:34204< " CATALOGING DISK WITH NEW DISK NAME":ZP "READING DIRECTORY ENTRIES...":od DF$(IN$,164,2)|x NF0:Z0 SE18 SESE1:GIN J257:Z32 JJZ:A.:V.:L. F$(IN$,J,1):A(F$) A1293020 S$(IN$,J3,16)! C$(IN$,J28,1):C$""V(C$)F, Q$(IN$,J29,1):Q$""L(Q$)V@ NF02940{T X1NF:S$(D$(X),2,16)2960h X| XNF1:2980 YNFX1:D$(Y1)D$(Y):Y D$(X)F$S$(V)(L):NFNF1 S$;V J12760 STSE. SE27205 5:NB"  BLOCKS FREE":I.1300::1000? 7100m0 " UPDATING MASTER DIRECTORY..."|D NX03240X X0NX1:C$(X$(X),2):DI$C$3220l DI$C$3280 X:3240 YNX1X1:X$(Y1)X$(Y):Y:3260 XNX NXNX1 X$(X)DI$DN$:CX1! 5960G 15,"S"S$:5,8,5,S$",S,W":8120d 5,DF$;",";NB;CR$;:8120 NF0 X1 NF:5,D$(X);CR$;4 8120H NF0 X\ 5:6720p CX0:540  DISPLAY....  " TO DISPLAY DISK DIRECTORY" 5700% MM.:520R " DISK NAME, ID : "DN$", "DI$::\6120w$5,8,5,S$",S,R":812085,DF$,NB:8120L4,PD:4," DISK NAME, ID : "DN$", "DI$:`ST.8220:520t4:4," BLOCKS FREE : "NB#4:4," FORMAT : "DF$:4X4,"":4p"":9420:""NF0:J8:SS041806500GIN:8120C$(IN$,1):FT(C$)S$(IN$,2,16)(Z((IN$,18,1))<V((IN$,19,1)))P4,(" "(Z(256V)),4);" ";S$;" ";BdFT1294,"SEQ ";[xFT1304,"PRG ";tFT1314,"USR ";FT1324,"REL ";4(Q).1000:C$:C$""C$"Q"6420C$"Q"6520:520NFNF1:SS.3820652043,4,NB;" BLOCKS FREE ";NF;" FILES ":@4[TPD3"THIS WAS "DI$", "DN$eh6260n|520t  DEE..... " TO DELETE DISK FROM MASTER DIRECTORY"53280,2:53280,155700MM.:520"DELETING :"DI$" "DN$::'15,"S"S$O0CX0:X0NX1:(X$(X),2)DI$CX1eDCXX$(X)X$(X1)tXX:NXNX1l" ANY MORE? (Y/N) ";:US$"YN":UL1:60000mC$UR$:C$"Y"43006720520  CHART..... NX05720:520X1000:" PRINTER READY? (Y/N) ";:US$"YN":UL1:60000rC$UR$::C$"Y"540" PRINTING CHART....":4,4 4,""15);(14);" DISK ID USEAGE CHART" 4,(15):4," ";4ST.8220:520HX4890:X58X650\4," ";(X);:X:4LpZ0:X4890:X58X654,(15);" ";4,"";(8)4,(15)(X);Y4890:Y58Y654,(221);:ZNX4880 C$(X)(Y):S$(X$(Z),2); S$C$4,(166);:ZZ1:4900G 4," ";\ $Y:4,(221)(8)y 8(Q).1000:Q,.:6420 LC$"Q"X `4,(15);" "; t4,"":520  ! QUICK ....! ,!NX05720:520;!"":4,PDl!4,"  DISK ID'S CURRENTLY IN USE "!ST.8220:520!4:NX.Z.:5220!V12:PD4V25!(Z0:X0NX1:4,(X$(X),2);" ";!<ZZ1:Z(ZV)V4"PX:4:Z(ZV)V48"d4,Z;" DISKS IN MASTER DIRECTORY":4:PD4520M"x6100:PD45060V"520\" v" NAMES & ID...|" """:"4,PD:4," ID ...DISK NAME ...":4"ST.8220:520"9420:""",C$"":NX.5540"@X.NX1-#T4,(X$(X),2);" ";(X$(X),3);" "Y#h(Q).1000:C$:C$""C$"Q"6420j#|C$"Q"520t#X:4#4,NX;" DISKS IN MASTER DIRECTORY ":4#PD4520#6100:PD45360#520# # SETUP STRINGS SELECI...$ $0X1 NR:V$(X)B$::1$DV3:NX05740u$X" NO ENTRIES IN MASTER DIRECTORY":X12000:$bM1:$lSL1:NP0:V$(0)" NEXT PAGE.......EXIT":9520$NR19$SLSLNP:NPNXSL1:NPNRNPNR$NP.5940*%5680:"":X.18:" ":e%X1NP:V$(X)(X$(SLX2),2)" "(X$(SLX2),3):}%8940:CLRL05780%DI$(X$(SLV3),2)% DN$(X$(SLV3),3)% S$"0:DIR."DI$:"":%4"END OF FILES":X11000::M1: &HS$"0:DIR."DI$:&\ "&pF$(F$,16)J&(F$,1)"*"Y(F$)1:F$(F$,Y):V&Y(F$)z&F$(F$" ",Y):& &6480&1000:" WANT PRINTED COPY? (Y/N) ";:US$"YN":UL1:60000&C$UR$:""&PD3:C$"Y"PD4:6200 'PD3"";'$R'81000:" PRINTER READY? (Y/N) ";:US$"YN":UL1:60000m'9C$UR$::C$"Y"6120s'Ly'` 't" "'"  RETURN TO CONTINUE... " (" "(N (10008(C$:C$(13)6360D(1000:J(:^(C$:C$""6420j((1000:p(<:(P" ":(d GIN27,192: GIN28,20:: GET 20 CHARS AT A TIME)x GIN27,196: GIN28,139:: RESTORE TO GET FULL IN$):;)15,EN,EM$,ET,ES:EN.\)" DISK ERROR WHILE ";s)CX"WRITING NEW")CX0"READING"):"DISK DIRECTORY CROSS REFERENCE FILE.":)EN;EM$;ET;ES):" PROGRAM ABORTED! ":P12000::520*, *@CX0>*T" UPDATING DIRECTORY CROSS REFERENCE...":a*hNX015,"S0:DISK DIR XREF":|*|15,"S0:DIR XREF TEMP"*5,8,5,"0:DIR XREF TEMP,S,W"*6560*X0NX1:5,X$(X);CR$;*6560*X*5:15,"S0:DISK DIR XREF"+15,"R0:DISK DIR XREF=0:DIR XREF TEMP"'+6560-+04+D =+X""K+l4:5:15V+v63000\+b+ h+ q+""+ME$" INSERT MASTER DISK "+15:8280+15,8,15,"I0":8120+ 15,"C0:DISK MASTER=0:DISK MASTER"+ 15,EN,EM$,4EN632,HX.60:"INCORRECT DISK!"::6480:71408,\ J,p MIN...P, e,NX05720:520,"ENTER MINIMUM NUMBER OF FREE BLOCKS":PD3,:"TO BE DISPLAYED ";,US$"1234567890":UL3:60000,S$UR$:Y(S$):S$"0"Y0520-VF0:7560-MAX...%-8NX05720:520V-B"ENTER MAXIMUM NUMBER OF FREE BLOCKS":PD3q-L:"TO BE DISPLAYED ";-VUS$"1234567890":UL3:60000-`S$UR$:Y(S$):Y0520-tVF1-4,PD:4:4," #BLKS FREE..ID.....DISK NAME...........":4.ST.8220:520:.X0NX1:DI$(X$(X),2):DN$(X$(X),3)Y.5,8,5,"0:DIR."DI$",S,R"c.8120q.5,DF$,NB{.8120.5.((VF0)(NBY)7800.<(VF1)(NBY)7800.P4,(" "(NB),7);6);DI$;" ";DN$.d9420/x(Q).1000:C$:C$""C$"Q"6420,/C$"Q"4:540"w;'" UNTIL THE SHADED BOX IS ON THE";'" ŠҠ, THEN PRESS";'" AND FOLLOW THE PROMPTS.";'" HESE SAME STEPS SHOULD BE FOLLOWED"+<'" FOR EACH DISK YOU WANT CATALOGUED."W<'" F YOU ADD ANOTHER FILE TO ONE OF"}<'" YOUR DISKS, YOU MAY WANT TO"<'" RECATALOGUE THAT DISK ON ˠ.":20000<'" O DO THIS, SIMPLY INSERT YOUR "='" DISK AND WHEN YOU REACH THE"?='" MAIN MENU, CURSOR DOWN TO THE "j=(" ˠ٠͠ AND PRESS"= (" . HEN SELECT THE NAME OF"=(" THE DISK YOU WANT RECATALOGUED BY"=(" CURSORING DOWN TO YOUR SELECTION">((" AND PRESSING . FTER"B>2(" RETURNING TO THE MAIN MENU, CURSOR"v><(" UP TO THE ŠҠ,":20000>F(" PRESS , AND WHEN IT ASKS YOU">P(" TO INSERT THE DISK TO BE CATALOGUED,"?Z(" INSERT THE UPDATED VERSION OF THE""?d(" DISK YOU JUST DELETED."Q?n("Ԡˠ,' LISTS THE NAMES"~?x(" AND CODES OF THE DISKS YOU HAVE"?(" CATALOGUED ON ˠ."?("٠Ġ DISPLAYS"?(" THE DIRECTORY OF ANY DISK THAT HAS".@(" BEEN CATALOGUED ON ˠ.":20000_@(" HIS ALLOWS YOU TO SEE WHAT FILES YOU"|@(" HAVE ON EACH DISK."@("Ġà ALLOWS YOU TO FIND"@(" A SPECIFIC FILE ON ONE OF YOUR"A(" CATALOGUED DISKS, BY ENTERING THE"0A(" FIRST FEW LETTERS OF THE FILENAME AND"ZA(" PRESSING . OU NEED NOT"A(" REMEMBER THE ENTIRE NAME TO FIND THE"A(" FILE, ONLY THE FIRST FEW LETTERS.":20000A)"ԠΠŠӠҠ" B)"ԠؠŠӠҠ"5B)" HESE TWO FUNCTIONS HELP YOU MAKE"cB")" THE MOST EFFICIENT USE OF YOUR DISK"B,)" STORAGE SPACE. OR EXAMPLE, LET'S"B6)" SAY YOU HAVE A FILE THAT OCCUPIES"B;)" 100 BLOCKS(A BLOCK IS A UNIT OF"C<)" STORAGE ON A COMPUTER DISK). OU":20000GC=)" WOULD CURSOR DOWN TO Π"uC>)" ӠҠ, PRESS AND"C?)" ENTER '100' WHEN PROMPTED. HIS"CJ)" WOULD SHOW YOU WHICH DISKS HAVE"CT)" ROOM TO STORE YOUR PROGRAM."D^)" ԠؠŠӠҠ WORKS"NDh)" JUST THE OPPOSITE. T LISTS ALL THE"}Dr)" DISKS WITH LESS BLOCKS FREE THAN THE"D|)" AMOUNT YOU ENTER.":20000D)" T IS IMPORTANT THAT EACH OF YOUR"D)" DISKS HAS A DIFFERENT CODE TO"%E)" ENSURE THE PROPER TRANSFER OF DATA"QE)" AND FILES FROM DISK TO DISK. HE"E)" LAST TWO FUNCTIONS HELP YOU DO THIS"E)" BY KEEPING TRACK OF THE CODES YOU"E)" HAVE ALREADY USED."E)": Ԡ̠ĠŠԠCAN"&F)" ONLY BE USED WITH A PRINTER.":20000/F)520pF N" Ӡ٠٠Ϡ"F!NX$:X$""20001F"NF` INPUT STRINGFjUR$"":UI$"":204,0:198,0Fo UL0UL80Fq647,(646)FtUI$:UI$""60020Gy647,(646)-G~UI$(13)(UR$)1204,1:" ":BGUI$(20)60080XG(UR$)UL60020cG60110GUR$UR$UI$:UI$;:60020G (UR$)160020GUR$(UR$,(UR$)1)G(20);:60020G (US$)060160G US1 (US$)GUI$(US$,US,1)HUSHUI$"":'H(UI$)46 8H UI$(32)OHUI$(34)UI$"'"oH((UI$)33(UI$)90 60220uH2H<(UI$)193(UI$)218UI$"":HFH 53280,0:53281,0:(142)(8);H" MAKE SURE THE MASTER DISKETTE""I" IS IN THE DISK DRIVE"dI"" PRESS ANY KEY TO CONTINUE."|I, A$: A$"" 63020I61,8,2,"MENU1,P,R":#1,A$I@ ST0 1:63000IJ1I^"LOAD"(34)"MENU1"(34)",8"Ih 636,0:64,0:48,8:52,160Jr 54,0:56,160:57,0:58,255'J|62,06J"RUN"_J""14)"LOADING....":198,3J631,19:632,13:633,13:59,0:60,0: