[Coco] Determining OS-9 Floppy Type

[Bob Devries]

Here's a very quick and dirty BASIC programme which should determine and 
display some basic(!) information about your OS9 disk.

10 CLEAR 1000
20 CLS
30 PRINT"OS9 DISK IDENTIFICATION UTILITY"
40 PRINT"BY BOB DEVRIES"
50 PRINT:INPUT"WHICH DRIVE";DN
60 IF DN<0 OR DN>3 THEN PRINT"ERROR... TRY AGAIN":GOTO50
70 ON ERR GOTO 200
80 DSKI$DN,0,1,A$,B$
90 SZ=ASC(MID$(A$,1,1))*65536+ASC(MID$(A$,2,1))*256+ASC(MID$(A$,3,1))
100 TK=ASC(MID$(A$,4,1))
110 FM=ASC(MID$(A$,17,1))
120 PRINT"THERE ARE";SZ;"SECTORS"
130 PRINT"THERE ARE";TK;"SECTORS PER TRACK"
140 SI=(FM AND 1)+1
150 PRINT"DISK HAS";SI;"SIDE(S)"
160 PRINT"DISK HAS";(SZ/SI)/TK;"TRACKS"
170 IF (FM AND 4)=4 THEN PRINT"DISK IS 96TPI" ELSE PRINT"DISK IS 48TPI"
180 INPUT"DO ANOTHER";YN$
190 IF YN$="Y" THEN GOTO 20 ELSE END
200 PRINT"SORRY, COULD NOT READ DISK IN DRIVE";DN
210 INPUT"TRY AGAIN";YN$
220 IF YN$="Y" THEN GOTO 30
230 END


--
Regards, Bob Devries, Dalby, Queensland, Australia

Isaiah 50:4 The sovereign Lord has given me
the capacity to be his spokesman,
so that I know how to help the weary.

website: http://www.home.gil.com.au/~bdevasl
my blog: http://bdevries.invigorated.org/