20ONERRORGOTO30
30REPEAT
35VDU3:MODE7:CLOSE#0
40*FX18
50*DIR $
160*FX6,0
170*FX4,0
240CLS:PRINTCHR$132;CHR$157;CHR$130;CH
R$141;" DFS UTILITIES MENU"
250PRINTCHR$132;CHR$157;CHR$130;CHR$14
1;" DFS UTILITIES MENU"
300PRINT
310PRINTTAB(6)"1. File loader"
340PRINTTAB(6)"2. Backup discs"
370PRINTTAB(6)"3. Format discs"
380PRINTTAB(6)"4. Verify discs"
410PRINTTAB(6)"5. Alter directories"
420*FX21,0
440PRINT
450PRINTTAB(0)" Option ? ";:A
=GET
460IFA=42THENPROCoscommand
462IFA=49THEN690
464IFA=50THEN600
466IFA=51THENPROCformat
468IFA=52THENPROCverify
469IFA=53THENPROCcd
500IFA<42ORA>53THENPROChelp
522UNTILFALSE
540
600 PAGE=O%:CHAIN"$.BACKUP"
690 CHAIN"$.LOADER"
720
730DEFPROCcd
740CLS:PRINT" Alter directories "
745PROCdrivenumber
746OSCLI("DIR :"+DRI$)
748REPEAT
750CLS:*.
770PRINTTAB(0,21)" Alter dir1 ? "
775D1$=GET$
776IFD1$>"/"ANDD1$<"4"THENOSCLI("DIR :
"+D1$):GOTO750
780PRINTTAB(0,21)" Alter ";D1$;" dir2
? "
785D2$=GET$
786PRINTTAB(0,21)" Alter ";D1$;" ";D2$
;" "
790C$="CD "+D1$+" "+D2$
800PRINTTAB(0,23)" Press RETURN if O.K
."
810Q$=GET$:IFQ$=CHR$(13)THENOSCLI(C$)
822UNTILFALSE
824ENDPROC
830
900DEFPROCoscommand
910CLS:VDU15
920INPUT" *"C$
930IFC$=""THENENDPROC
940OSCLI(C$)
950PROCend:ENDPROC
1000
2000DEFPROCformat
2002CLS:PRINT" Format 40 or 80 track ?
";
2005T$="":A=GET
2010IFA=52THENT$="40"
2015IFA=56THENT$="80"
2020IF T$="" THEN2000ELSEPRINT" ";T$
2040PROCdrivenumber
2092PRINT" ";DRI$
2094PRINT'" FORM ";T$;" ";DRI$
2100OSCLI("FORM+V "+T$+" "+DRI$)
2110PROCend:ENDPROC
2120
2200DEFPROCverify
2210CLS:PRINT" Verify ";
2230PROCdrivenumber
2250PRINT" ";DRI$
2260PRINT'" VERIFY ";DRI$
2270OSCLI("V "+DRI$)
2280PROCend:ENDPROC
2290
2500DEFPROCdrivenumber
2510PRINTTAB(0,2)" which drive ? ";
2520REPEAT:DRI$="":A=GET
2530IFA=48THENDRI$="0"
2540IFA=49THENDRI$="1"
2550IFA=50THENDRI$="2"
2560IFA=51THENDRI$="3"
2562UNTILLEN(DRI$)
2570ENDPROC
2600DEFPROCend
2610PRINT'" PRESS ANY KEY ":B=GET
2620ENDPROC
2700DEFPROChelp
2710CLS:PRINT
2712PRINT"****** Help for the Control M
enu ******"
2714PRINT'"esc..Return to the control m
enu"
2716PRINT'"*..Enter os commands"
2718PRINT'"1..File Loader has its own h
elp file"
2720PRINT'"2..Fast backup of used track
s only "
2722PRINT" using compact first speeds
it up "
2724PRINT'"3..Formats and Verifies 40/8
0 T disks"
2726PRINT" If any errors are reported
then "
2728PRINT" bin that disk."
2730PRINT'"4..Verifies a disks tracks/s
ectors."
2732PRINT" If any errors are reported
then "
2734PRINT" copy files to another disk
and try"
2736PRINT" reformat before consigning
this to"
2738PRINT" the dustbin."
2740PRINT'"5..Moves all files from one
directory"
2742PRINT" to another on selected dri
ve."
2790A=GET:ENDPROC