5 fmess$ = ""
ON ERROR GOTO 600


10 INPUT "Drive < A,B > "; dr$
11 IF dr$ = "end" OR dr$ = "END" THEN 500
20 'INPUT "name or Label"; la$
25 PRINT "180 360 740 1.44 1.2 "
30 'INPUT " capacity"; ca

200
250 PRINT "Format "; dr$; "/F:" + STR$(ca)
300 SHELL "Format " + dr$: REM "/F:" + STR$(ca)
400 GOTO 10
500 END
600 PRINT "error"
700 RUN

