Compucolor.org – Virtual Media

Listing of file='FMTINS.BAS;01' on disk='vmedia/taylor_7-sector.ccvf'

5 PLOT 12,15
10 PRINT "GO INTO FCS BY TYPING ESCAPE-D. INSERT THE FORMATTER"
20 PRINT "DISKETTE AND TYPE RUN FMTCD1, IF YOU WISH TO FORMAT"
30 PRINT "ON DRIVE 1:"
32 PRINT "A PROGRAM MOD WILL BE REQUIRED FOR USE ON DRIVE 0:"
35 PRINT
40 PRINT "THE FORMAT PROGRAM WILL RESPOND WITH A SIGN-ON MESSAGE AND"
50 PRINT "THE WORD FORMAT>. YOU NOW INSERT THE DISKETTE YOU WISH TO "
60 PRINT "FORMAT IN THE DRIVE, AND TYPE CONTROL-F TO FORMAT IT."
70 PRINT "THE PROGRAM WILL FORMAT THE ENTIRE DISKETTE, THEN HOME THE"
80 PRINT "HEAD AND VERIFY THE DISKETTE, PRINTING APPROPRIATE PROMPTS"
90 PRINT "AS IT DOES SO.  IF THE PROGRAM FAILS TO SUCCESSFULLY FORMAT"
100 PRINT "AND VERIFY THE DISKETTE IN THREE RE-TRIES, IT WILL INDI-"
110 PRINT "CATE BY THE MESSAGE FAILED TO FORMAT. YOU THEN HAVE THE"
120 PRINT "OPTION OF REJECTING THE DISKETTE OR TRYING AGAIN BY TYPING"
130 PRINT "ANOTHER CONTROL-F."
140 PRINT
150 PRINT "WHEN YOU ARE THROUGH FORMATTING ONE DISKETTE,YOU CAN "
160 PRINT "REMOVE IT, INSERT ANOTHER ONE,AND AGAIN TYPE CONTROL-F"
170 PRINT "TO FORMAT IT."
180 PRINT
190 PRINT "WHEN YOU ARE THROUGH, YOU MUST EITHER TYPE CONTROL-W"
200 PRINT "OR HIT CPU RESET.  THIS MUST BE DONE BECAUSE THE I/O"
210 PRINT "OF THE FORMATTING PROGRAM IS DONE UNDER INTERRUPTS,"
220 PRINT "AND IF FCS IS ENTERED BY TYPING ESCAPE-D BEFORE CPU RESET"
230 PRINT "HAS BEEN TYPED, THE FIRST CONTROL-F TYPED UNDER FCS WILL"
240 PRINT "CALL UP THE PROGRAM, AND IT WILL FORMAT THE DISKETTE"
250 PRINT "IN THE DRIVE."
260 PRINT
270 INPUT "TYPE RETURN TO CONTINUE";R$
280 PLOT 12
290 PRINT "NOTES ON USE"
300 PRINT
310 PRINT "ONCE YOU HAVE RETURNED TO FCS, YOU MAY RE-ENTER THE FORMAT-"
320 PRINT "TER (PROVIDED IT HAS NOT BEEN DESTROYED BY ANOTHER LOAD)"
330 PRINT "BY TYPING ESCAPE-T."
340 PRINT
350 PRINT "IF THE DISKETTE FAILS TO FORMAT AFTER ONE OR TWO TRIES, IT"
360 PRINT "IS PERHAPS BEST NOT TO USE IT."
370 PRINT
380 PRINT "IF YOU HAVE DIFFICULTY AFTER A TIME READING ANY DISKETTE,"
390 PRINT "IT IS POSSIBLY BECAUSE THE HEAD IS DIRTY."
400 PRINT
410 PRINT "THE PROGRAM MAY WORK BETTER ON SOME DRIVES THAN OTHERS."
420 PRINT "THIS HAS TO DO WITH THE SPEED OF THE DRIVE OR THE CPU"
430 PRINT "CLOCK SPEED.  THE MOTOR SPEED CAN BE ADJUSTED."
440 PRINT
450
460
470 PRINT "BOTH THE SOURCE AND OBJECT CODE ARE ON THIS DISK."
480 PRINT
490 PRINT "TYPE ONE OF THE FOLLOWING:  (1) TO FORMAT ON DRIVE 1"
500
510 PRINT "                            (2) TO END PROGRAM"
520 INPUT "SELECTION: ";S
530 ON S+ 0GOTO 700,800
540 END
600
610
700 PLOT 27,4
710 PRINT "RUN FMTCD1"
800 END