30 :
40 PRINT
50 PRINT "uIDE -8 PCW driver retrieval program"
60 PRINT "Copyright (c) Jon Bradbury 2017"
70 PRINT
80 fidStart%=&HD000: fidEnd%=&HD4FF: fidSec%=23
90 cfBase%=&HC8
100 cfData%=cfBase%
150 cfLBA1%=cfBase%+4
160 cfLBA2%=cfBase%+5
170 cfHead%=cfBase%+6
180 cfStatus%=cfBase%+7
190 cfCommand%=cfBase%+7
360 :
370 REM retrieve FID
380 PRINT "Retrieving xdrv.fiddriver: [ ]";: REM 24 spaces
390 FOR x=0 TO 24: PRINT CHR$(8);: NEXT x
400 FOR secNo% = 0 1 TO fidSec%
410 GOSUB 680: REM get current sector
420 NEXT secNo%
430 PRINT: PRINT 440 PRINT "Writing xdrv.fid: [ ]";: REM 20 spaces
450 FOR x=0 TO 20: PRINT CHR$(8);: NEXT x
460 OPEN "R",#1,"xdrv.fid",1