Email list about Forth on Sinclair computers

[Silvester]

Gerry, Regarding disks,I have sent you a PM with contact details. Perhaps at the very worst I can retrieve something through doing a complete disk direct sector dump and piecing the good sectors together (something I've done before in drastic situations).

[Silvester]

Just dug out SB I use to find bad sectors

Code: Select all

100 WHEN ERRor
110 x%=1 : z%=z%+1
120 END WHEN
130 :
140 CLS#0 : CLS : PRINT 'Track','Side','Sector'\\
150 DIM a$(512) : a$=FILL$(' ',512) : x%=0 : z%=0
160 OPEN#3;'flp1_*d2d'
170 FOR t%=0 TO 79
180   FOR d%=0 TO 1
190     FOR s%=1 TO 9
200       AT#0;0,0 : PRINT#0;'Trk'!t%,'Side'!d%,'Sector'!s%;'              '
210       GET#3\s%+d%*256+t%*65536,a$
220       IF x% THEN PRINT t%,d%,s%,'bad sector' : x%=0
230       IF CODE(INKEY$)=27 THEN PRINT 'premature end' : EXIT t%
240     END FOR s%
250   END FOR d%
260 END FOR t%
270 CLOSE#3 : CLS#0
280 IF z% THEN PRINT#0;z%!'bad sectors' : ELSE PRINT#0;'disk OK'