0 REM:Powr-DOS format Program
1 MAXFILES=2:CLEAR512:DEFINTI-N:DEFSTRA-F
2 R=MAXRAMC:F="":V=VARPTR(F):POKEV,PEEK(R+36):POKEV+1,PEEK(R+37):POKEV+2,PEEK(R+38):F="COM:"+F
3 LFILESV:IFPEEK(2)=125THENOB=65450:SM=23456:XR=60850ELSEOB=64798:SM=28449:XR=58960
4 INPUT"Perform check during format";A:IFINSTR("nN",A)THENCM="G6"ELSECM="F6"
5 KK=1:GOSUB18:ONERRORGOTO6:LFILESTO"qfwfq":GOTO8
6 IFERR<>18THEN14ELSERESUME7
7 ONERRORGOTO14:PRINT"Diskette Unreadable.":GOTO11
8 ONERRORGOTO14:NF=0:OPEN"qfwfq"FORINPUTAS1
9 IFEOF(1)THEN10ELSELINEINPUT#1,A:IFLEN(A)<>17THEN9ELSENF=NF+1:GOTO9
10 CLOSE1:IFNF=0THENPRINT"Diskette already formatted and empty!"ELSEPRINT"Diskette contains"NF"files."
11 INPUT"Format it (y/n)";A:IFINSTR("yY",A)=0THENKK=0:GOTO14
12 PRINT"Formatting...":CALLR+30:OPENFFORINPUTAS1:OPENFFOROUTPUTAS2:PRINT#2,CMCHR$(13);:GOSUB19:PRINT#2,"W0"CHR$(13);:GOSUB19:FORI=1TO5:PRINT#2,STRING$(248,CHR$(0));:NEXT:PRINT#2,CHR$(128);STRING$(39,CHR$(0));:GOSUB19
13 CLOSE:INPUT"Another (y/n)";A:IFINSTR("yY",A)THEN5ELSEKK=0
14 KILL"qfwfq.do"
15 IFERR=63THENPRINT"Write Protect Tab Open on Dest. Disk"
16 IFKKTHENPRINT"Error"ERR"...  ";
17 PRINT"Press Key":A=INPUT$(1):LFILESMENU
18 BEEP:PRINT"Insert Diskette to format; press key";:POKEOB,0:A=INPUT$(1):PRINT:RETURN
19 A=INPUT$(8,1):C=LEFT$(A,1):IFC="B"THENERROR63ELSEIFC="A"THENERROR18ELSEIFC<>"0"THENERROR66
20 RETURN
                          