This is one of the first programs I wrote. The file has a modified date of 1/9/1998

format.bas

CLS
                
                GOSUB sub1
                        IF quest$ = "y" THEN
                                GOSUB sub2
                        ELSE
                                END
                        END IF
                GOSUB sub3
               
              
                

END
sub1:
PRINT " C:\>format c:\"
PRINT " WARNING ALL DATA ON NON-REMOVABLE DISK"
PRINT " DRIVE C: WILL BE LOST!"
INPUT " Proceed with Format? (Y/N)"; quest$
RETURN
sub2:
PRINT
PRINT " Checking Existing Disk Format."
DO UNTIL y = 100
LOCATE 8, 1
LET y = y + 1
SLEEP 2
PRINT y; "Percent Completed"
LOOP
PRINT " Format Complete."
PRINT
INPUT " Volume Label (11 characters, ENTER for none)"; name$
PRINT
PRINT "    402,567,134 bytes total disk space"
PRINT "    402,527,134 bytes available on disk"
PRINT
PRINT "        512 bytes in each allocation unit."
PRINT "        232,425 allocation units available on disk."
PRINT " Volume Serial Number is 4F56-450A"
RETURN
sub3:
INPUT " Format another (Y/N)"; yn$
IF yn$ = "n" THEN
       GOSUB sub5
END IF
IF yn$ = "y" THEN
        GOSUB sub4
END IF
RETURN
sub4:
SLEEP 1
PRINT
PRINT " Invalid or Missing command.com System Halted"
COLOR (0)
END
RETURN
sub5:
PRINT
PRINT " C:\>";
INPUT word$
PRINT " Bad Command or File Name"
IF word$ > CHR$(1) THEN GOSUB sub4