Listing of file='@FORMAT' on disk='vmedia/mvp-boot-2.6.2.wvd.zip'
# Sector 669, program filename = '@FORMAT'
0010 REM % Prog = @FORMAT By PLS Date = 02/01/85 Time = 00.00.00 PM
Rel 2.6
0015 REM % COPYRIGHT WANG LABORATORIES 1985
0020 REM -- STAND ALONE UTILITY FOR FORMATTING 2260C, 2260BC, 2280 DISK DRIVES
--
0030 REM -- VP/MVP VERSION -- FOR COMPATABLE VP/MVP OPERATING SYSTEM --
0040 REM -------------------------------------------------------
0050 COM D$3,V
0060 DIM A1$1,A2$2,C$(4)64
0070 ON V GOTO 860,280
0080 IF D$ <> " " AND D$ <> "xyy" THEN 280
0090 REM -------------------------------------------------------
0100 V = 0
0110 PRINT HEX(020D0C030F0E);,"***** DISK PLATTER FORMAT UTILITY *****"
0120 PRINT AT(7,0);"1. Do NOT use unless the disk drive is SOFTWARE FORMATT
ABLE."
0130 PRINT "2. Some examples are the 2260C, 2260BC, and 2280 disk drives."
0140 PRINT "3. Check the manual for the time required to format a disk."
0150 PRINT "4. ALL DATA ON THE DISK WILL BE DESTROYED BY FORMATING."
0155 PRINT AT(23,0,70);"Press 'FN' or 'TAB' to return to menu.";
0160 REM -------------------------------------------------------
0170 REM ENTER ADDRESS AND CHECK VALIDITY
0180 $CLOSE
0190 D$="xyy"
0200 PRINT AT(2,0,60);
0210 LINPUT "Enter device address of the disk platter to format",-D$
0220 MAT SEARCH "310320330350360370B10B20B30B50B60B70D10D11D12D13D14D15D20D
21D22D23D24D25D30D31D32D33D34D35D50D51D52D53D54D55D60D61D62D63D64D65D70D7
1D72D73D74D75", = STR(D$,,3) TO A2$ STEP 3
0230 IF A2$ <> HEX(0000) THEN 250
0240 PRINT HEX(07);"RE-ENTER"
: GOTO 180
0250 SELECT #1<D$>
0260 REM -------------------------------------------------------
0270 REM OPERATOR CHECK / ABORT OPPORTUNITY
0280 PRINT HEX(030E);,"***** DISK PLATTER FORMAT UTILITY *****"
0281 PRINT AT(23,0,79);"Press 'FN' or 'TAB' to return to menu.";
0290 PRINT AT(12,0);,"FORMAT PLATTER /";D$
0300 A1$ = " "
0310 PRINT AT(2,0,60);"Are you sure that you want to format platter /"; D$
; " (Y/N)?";
0320 LINPUT A1$
0330 ON POS("YyNn"=A1$) GOTO 370,370,100,100
0340 PRINT HEX(07)
: GOTO 300
0350 REM -------------------------------------------------------
0360 REM HOG DEVICE
0370 $OPEN 680,#1
: ERRORX = ERR
: GOTO 630
0380 REM CHECK FOR PRESENCE OF DEVICE
0390 IF V = 2 THEN 540
: ELSE V = 1
0400 PRINT AT(2,0,60);"If this message has not been erased within 15 second
s, disk"
: PRINT "is not responding properly. Key 'RESET','RUN', AND 'RETURN'."
0410 DATA LOAD BA T#1,(0) C$()
: ERRORGOTO 420
0420 DATA LOAD BA T#1,(0) C$()
: ERRORX = ERR
: GOTO 740
0430 V = 0
: PRINT AT(2,0,63);AT(3,0,63);
0440 REM -------------------------------------------------------
0450 REM CHECK FOR DATA ON DISK
0460 IF POS(C$()<>00) = 0 THEN 540
0470 A1$ = " "
0480 PRINT AT(2,0,60);"There is data on disk /"; D$ ; ", do you wish to con
tinue (Y/N)?";
0490 LINPUT A1$
0500 ON POS("YyNn"=A1$) GOTO 540,540,100,100
0510 PRINT HEX(07)
: GOTO 480
0520 REM -------------------------------------------------------
0530 REM EXECUTE AND CHECK FORMAT OF PLATTER
0540 V = 0
0550 PRINT AT(2,0,70);,"FORMATTING...";
0560 $FORMAT DISK T#1
: ERRORX = ERR
: GOTO 970
0570 REM -------------------------------------------------------
0580 PRINT AT(2,0,60);,"FORMATTING COMPLETE"
0590 COM CLEAR D$
0600 END
0610 REM -------------------------------------------------------
0620 REM ERROR ATTEMPTING TO HOG DISK
0630 PRINT AT(4,0,60);"Specified disk address is not in the MASTER DEVICE T
ABLE."
0640 PRINT "ERROR CODE = ";X
0650 GOTO 200
0660 REM -------------------------------------------------------
0670 REM DISK HOGGED WITHIN MVP
0680 PRINT AT(2,0,60);"DISK IS HOGGED BY ANOTHER USER"
0690 INPUT "KEY 'RETURN' TO CONTINUE",X
0700 PRINT AT(2,0,150)
0710 GOTO 370
0720 REM -------------------------------------------------------
0730 REM ERRORS WHILE TRYING TO LOAD SECTOR 0
0740 V =0
0750 IF X = 90 OR X = 91 OR X=92 OR X=94 OR X=95 OR X = 98 THEN 780
0760 PRINT AT(2,0,63);AT(3,0,63)
: GOTO 540
0770 REM WRONG DISK SPECIFIED
0780 PRINT AT(2,0,160);,"PROBLEM WITH DISK /";D$
0790 PRINT ,"CHECK:"
0800 PRINT ,"1 - drive in 'READY' mode"
0810 PRINT ,"2 - wrong disk may have been specified"
0815 PRINT ,"3 - platter may not be mounted"
0820 PRINT ,"DISK READ ERROR, ERROR CODE = ";X
0830 GOTO 1030
0840 REM -------------------------------------------------------
0850 REM DISK HANGS DURING DATA LOAD
0860 PRINT AT(2,0,160);,"PROBLEM WITH DISK /";D$
0870 PRINT ,"CHECK:"
0880 PRINT ,"1 - drive in 'READY' mode"
0890 PRINT ,"2 - wrong disk may have been specified"
0900 PRINT ,"3 - cable connections may be loose"
0910 PRINT ,"4 - disk may be hogged by another user"
0920 PRINT ,"5 - may be a virgin platter"
0930 V = 2
0940 GOTO 1030
0950 REM -------------------------------------------------------
0960 REM ERRORS WHILE TRYING FORMAT DISK
0970 PRINT AT(2,0,160);,"ERROR DURING FORMAT ATTEMPT"
0980 PRINT ,"CHECK:"
0990 PRINT ,"1 - software formattable disk drives ONLY"
1000 PRINT ,"2 - disk address not in master device table"
1005 PRINT ,"3 - platter write protected"
1010 PRINT ,"ERROR CODE = ";X
1020 REM -------------------------------------------------------
1030 PRINT ,"To try again, key 'RESET','RUN', and 'RETURN'."
1040 STOP
1050 DEFFN '126
1060 DEFFN '127
1070 LOAD RUN