10REM 'FASTBAK'
20REM Speedy back-up of part or whole
of one side
30:
40REM Change the beep
50*FX213,10
60*FX214,1
70:
80MODE7
90ON ERROR PROCerror:END
100HIMEM=&2C00:DIM block% 12 :REM data
block for disk operations
110:
120PRINT CHR$(141);" DISK BACKU
P UTILITY"
130PRINT CHR$(141);" DISK BACKU
P UTILITY"
140PRINT''"Ensure SOURCE disk is write
-protected"
150VDU28,0,24,39,6,12
160:
170REPEAT *FX15,0
180INPUT'"Enter SOURCE drive (0 to 3):
"sdr%
190UNTIL sdr%>-1 AND sdr%<4
200:
210REPEAT *FX15,0
220INPUT''"Enter DESTINATION drive (0
to 3): "ddr%
230UNTIL ddr%>-1 AND ddr%<4
240:
250PROCloadcat
260PROCwhich`track
270PROCcopy
280PROCanother
290END
300:
310DEF PROCloadcat :REM checking disk
catalogue
320?block%=sdr% :REM source drive
330block%!1=&900 :REM load address in
RAM
340block%?5=3 :REM number of parame
ters
350block%?6=&53 :REM 'read' command b
yte
360block%?7=0 :REM track /2nd page
of-
370block%?8=1 :REM sector /disk cat
alogue
380block%?9=&21 :REM 1 sector of 256
bytes
390A%=&7F :REM Read/Write opera
tion required
400X%=block% MOD &100 :REM address of-
410Y%=block% DIV &100 :REM data block
420CALL &FFF1
430ENDPROC
440:
450DEF PROCwhich`track
460B%=&90C
470sectors%=(B%?2/&10 AND &3)*&100+(B%
?1)+ABS(?B%>0)+(B%?2 AND &3)*&100+(B%?3)
480trk%=sectors% DIV 10+ABS(sectors% M
OD 10>-1)
490IF trk%>80 trk%=80
500ENDPROC
510:
520DEF PROCcopy
530store%=0
540IF trk%<8 GOTO 810
550FOR main%=1 TO trk% DIV 8
560track%=store%
570buffer%=&2C00
580CLS
590PRINT TAB(0,4)"Number of tracks"
600PRINT TAB(0,5)"to be backed up:-"
610PRINT CHR$(141);" ";trk%-track
%
620PRINT CHR$(141);" ";trk%-track
%
630PROCinsert("SOURCE")
640FOR loop%=0 TO 7
650address%=buffer%+(loop%*&A00)
660PROCtransfer(sdr%,address%,&53,trac
k%)
670track%=track%+1
680NEXT
690:
700buffer%=&2C00
710track%=store%
720PROCinsert("DESTINATION")
730FOR loop%=0 TO 7
740address%=buffer%+(loop%*&A00)
750PROCtransfer(ddr%,address%,&4B,trac
k%)
760track%=track%+1
770NEXT
780store%=track%
790NEXT
800IF trk% MOD 8=0 ENDPROC
810track%=store%
820buffer%=&2C00
830CLS
840PRINT TAB(0,4)"Number of tracks"
850PRINT TAB(0,5)"to be backed up:-"
860PRINT CHR$(141);" ";trk%-track
%
870PRINT CHR$(141);" ";trk%-track
%
880PROCinsert("SOURCE")
890FOR loop%=1 TO trk% MOD 8
900address%=buffer%+(loop%*&A00)
910PROCtransfer(sdr%,address%,&53,trac
k%)
920track%=track%+1
930NEXT
940:
950buffer%=&2C00
960track%=store%
970PROCinsert("DESTINATION")
980FOR loop%=1 TO trk% MOD 8
990address%=buffer%+(loop%*&A00)
1000PROCtransfer(ddr%,address%,&4B,trac
k%)
1010track%=track%+1
1020NEXT
1030ENDPROC
1040:
1050DEF PROCinsert(A$)
1060PRINT''"Please insert the ";A$;" di
sk and press a key":VDU7
1070diskin=GET
1080ENDPROC
1090:
1100DEF PROCtransfer(drive%,address%,co
mmand,track%)
1110?block%=drive% :REM sdr% or ddr%
1120block%!1=address% :REM address in R
AM
1130block%?5=3 :REM number of pa
rameters
1140block%?6=command :REM &53 or &4B
1150block%?7=track% :REM track
1160block%?8=0 :REM sector(alway
s zero)
1170block%?9=&2A :REM 10 sectors o
f 256 bytes
1180block%?10=0 :REM error-check
byte
1190A%=&7F :REM Read/Write o
peration required
1200X%=block% MOD 256 :REM address of-
1210Y%=block% DIV 256 :REM data block
1220CALL&FFF1
1230IF block%?10=18 PRINT''"Make certai
n that DESTINATION disk is not write-p
rotected, and try again":END
1240IF block%?10<>0 PRINT''"Disc error,
please check and try again":END
1250ENDPROC
1260:
1270DEF PROCanother
1280CLS:VDU7:INPUT''''"Do you want to b
ackup another disk?(Y/N)"repeat$
1290IF repeat$="Y" OR repeat$="y" RUN E
LSE PRINT'''"Thank you"
1300ENDPROC
1310:
1320DEF PROCerror
1330CLOSE#0
1340REPORT:PRINT" at line ";ERL
1350ENDPROC