5 ' QuickFormat by Adrian Forbes
10 MODE 1:PRINT"Please Wait..."
20 GOSUB 150
30 MODE 1
40 INPUT "(D)ata or (V)endor";f$
50 PRINT "Sure (Y/N)"
60 a$=INKEY$:IF a$="" THEN 60
70 IF LOWER$(a$)<>"y" THEN GOTO 60
80 MODE 1
90 PRINT"Insert disc to format in drive A":PRINT"Then press a key..."
100 CALL &BB18
110 MODE 1
120 PRINT"Formatting..."
130 |QF,f$
140 GOTO 30
150 ch=0
160 add=&4000
170 ln=310
180 FOR x=1 TO 8
190 READ a$:a=VAL("&"+a$)
200 POKE add,a
210 add=add+1
220 ch=ch+a
230 NEXT
240 READ ch$
250 IF ch<>VAL("&"+ch$) THEN PRINT"Error in line";ln:END
260 ln=ln+10
270 ch=0
280 IF ln<>510 THEN GOTO 180
290 CALL &4000
300 RETURN
310 DATA 21,8D,40,01,91,40,C3,D1,354
320 DATA BC,FE,01,C0,21,9A,40,06,37C
330 DATA 09,36,00,23,36,00,23,36,F1
340 DATA 00,23,36,02,23,10,F2,21,1A1
350 DATA 88,40,CD,D4,BC,22,89,40,410
360 DATA DD,6E,00,DD,66,01,23,5E,310
370 DATA 23,56,1A,FE,44,CA,80,40,35F
380 DATA FE,64,CA,80,40,3E,41,32,39D
390 DATA 8C,40,11,00,00,06,28,C5,1D0
400 DATA 21,9A,40,7A,06,09,77,23,21E
410 DATA 23,23,23,10,F9,3A,8C,40,278
420 DATA 06,05,21,9C,40,CD,73,40,288
430 DATA 06,04,21,A0,40,CD,73,40,28B
440 DATA 21,9A,40,DF,89,40,14,C1,378
450 DATA 10,D5,C9,77,23,23,23,23,2B1
460 DATA 23,23,23,23,3C,10,F4,C9,295
470 DATA 3E,C1,32,8C,40,C3,3F,40,33F
480 DATA 86,00,00,07,00,00,00,00,8D
490 DATA 00,97,40,C3,09,40,C9,51,2FD
500 DATA C6,00,20,00,00,00,00,00,E6
510 DATA end