0 REM  FORMAT 2.5  BY ALAN M. GLICK
1 REM V.1.O;MAY 24,1985
4 REM MODIFICATION OF FORMAT1 BY JERRY WHITE ORIGINALLY PUBLISHED IN ...
5 REM ACE NEWSLETTER 3662 VINE MAPLE DR,EUGENE,OR 97405
6 REM MARCH 1981 ISSUE
9 REM  SET TEXT MODE,BLACK & WHITE,MARGINS,PRINTTAB WIDTH,NO CURSORS 
10 GRAPHICS 0:SETCOLOR 2,0,0:POKE 82,2:POKE 83,39:POKE 201,10:POKE 752,1:? 
20 ? "FORMAT  DUAL  2.5 DISK ON DR.1":? :? "    PRESS  START  WHEN READY.":GOTO 80
30 REM  STORE CURRENT SUCCESSFUL FORMATS+1 THEN SAY WHAT WE ARE UP TO. 
40 F=F+1:? CHR$(125):? :? :? :? "FORMATTING DISK # ";F
50 TRAP 200:XIO 253,#7,34,0,"D1:":TRAP 40000:REM  SET DRIVE # & START 
55 POKE 66,1:? CHR$(253):POKE 66,0:REM  RING BELL BUT NOT TOO LOUD 
60 ? "DISK FORMATTED":? :POKE 77,0:REM DISPLAY RESULTS 6 KIL ATTRCT MODE
70 ? "PRESS START TO FORMAT ANOTHER DISK":? "PRESS OPTION TO END THIS PROGRAM"
80 IF PEEK(53279)=6 THEN 40:REM  INSTANT REPLAY 
90 IF PEEK(53279)=3 THEN 300:REM  THAT'S ALL FOLKS 
100 GOTO 80:REM  WHATCHA WANT?PRESSA BUTTON 
180 REM  A TRAP TO LINE 200 WAS SET IN LINE 50 FOR UNFORMATTABLE DISKS 
190 REM  ABORT BY TAPPING THE BREAK KEY IN MOST CASES 
195 REM  YOU MIGHT HAVE TO REMOVE THE DISK AND THEN TURN THE DRIVE OFF AND ON. 
200 ? CHR$(253):? :? "I WAS UNABLE TO FORMAT THIS DISKETTE":? 
210 BAD=BAD+1:F=F-1:GOTO 70:REM  ONE LESS SUCCESSFUL FORMAT 
300 ? CHR$(125):? :? F;" DISKS FORMATTED":? :? "UNABLE TO FORMAT ";BAD;" DISK(S)"
310 REM  SAY WHAT WE ACCOMPLISHED AND LET BASIC TAKE OVER 
320 ? :? "END OF PROGRAM FORMAT25":? :? "BASIC IS....":POKE 752,0
330 END