Home » Archimedes archive » Acorn Computing » 1994 11 subscription disc.adf » 9411s » BeebDisk/CopyUti

BeebDisk/CopyUti

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn Computing » 1994 11 subscription disc.adf » 9411s
Filename: BeebDisk/CopyUti
Read OK: ✔
File size: 0D3F bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10*DISC
   20MODE 7
   30HIMEM=&1E00
   40DIM p 20
   50DIM srblock% 257
   60full%=0
   70PROCmain
   80END
   90:
  100DEFPROCread(a%,s%,t%)
  110IF s%>9 OR s%<0 OR t%>39 OR t%<0 THEN CLS:PRINT"Attempt to read sector ";s%;" track ";t%;" aborted.":END
  120p?0=S%:p!1=a%:p?5=3
  130p?6=&57:p?7=t%:p?8=s%:p?9=&21
  140PROCosword
  150del%=res% AND &20
  160res%=res% AND 030
  170IF res%=0 THEN ENDPROC
  180PRINT "Disc read error: (R)etry, (I)gnore                    or (A)bort?"
  190REPEAT
  200A$=GET$
  210UNTIL A$="A" OR A$="R" OR A$="I"
  220IF A$="I" THEN ENDPROC
  230IF A$="R" THEN GOTO 120
  240END
  250ENDPROC
  260:
  270DEFPROCosword
  280A%=&7F:X%=p MOD 256
  290Y%=p DIV 256
  300CALL &FFF1
  310res%=p?10:ENDPROC
  320:
  330DEFPROCwrite(a%,s%,t%)
  340IF s%>9 OR s%<0 OR t%>39 OR t%<0 THEN CLS:PRINT"Attempt to write sector ";s%;" track ";t%;" aborted.":END
  350p?0=0:p!1=a%
  360IF del%<>0 THEN p?6=&4F ELSE p?6=&4B
  370p?7=t%:p?8=s%:p?9=&21
  380PROCosword
  390res%=res% AND &1E
  400IF res%=0 THEN ENDPROC
  410PRINT "Disc write error: (R)etry, (I)gnore                    or (A)bort?"
  420REPEAT
  430A$=GET$
  440UNTIL A$="A" OR A$="R" OR A$="I"
  450IF A$="I" THEN ENDPROC
  460IF A$="R" THEN GOTO 350
  470END
  480ENDPROC
  490:
  500DEFPROCreaddisc
  510VDU 28,0,24,39,5:CLS
  520s%=0:t%=0
  530N%=HIMEM
  540PRINT TAB(0,0);"Insert source disc in drive 0 and hit a key";:a=GET
  550PROCscreen
  560REPEAT
  570PROCper
  580PROCread(N%,s%,t%)
  590N%=N%+&100
  600t%=t%+1:IF t%=40 THEN t%=0:s%=s%+1
  610UNTIL N%>=&7C00 OR s%=10
  620IF s%=10 THEN GOTO 850
  630*FX 108,1
  640N%=&3000
  650REPEAT
  660PROCper
  670PROCread(N%,s%,t%)
  680N%=N%+&100
  690t%=t%+1:IF t%=40 THEN t%=0:s%=s%+1
  700UNTIL N%>=&8000 OR s%=10
  710*FX 108,0
  720IF s%=10 THEN GOTO 850
  730bank%=4
  740REPEAT
  750N%=&8000
  760REPEAT
  770PROCper
  780PROCread(srblock%,s%,t%)
  790OSCLI("SRWRITE "+STR$~srblock%+" +100 "+STR$~N%+" "+STR$bank%)
  800N%=N%+&100
  810t%=t%+1:IF t%=40 THEN t%=0:s%=s%+1
  820UNTIL N%>=&C000 OR s%=10
  830bank%=bank%+1
  840UNTIL bank%>7 OR s%=10
  850IF s%=10 THEN full%=-1:ENDPROC
  860CLS
  870PRINT"Not enough memory to read entire disc - use disc-switching version"
  880END
  890:
  900DEFPROCwritedisc
  910s%=0:t%=0
  920N%=HIMEM
  930VDU 28,0,24,39,5:CLS
  940PRINTTAB(0,0);"Insert destination disc in drive 0 and  hit a key";:a=GET
  950PROCscreen
  960REPEAT
  970PROCper
  980PROCwrite(N%,s%,t%)
  990N%=N%+&100
 1000t%=t%+1:IF t%=40 THEN t%=0:s%=s%+1
 1010UNTIL N%>=&7C00 OR s%=10
 1020IF s%=10 THEN GOTO 1250
 1030*FX 108,1
 1040N%=&3000
 1050REPEAT
 1060PROCper
 1070PROCwrite(N%,s%,t%)
 1080N%=N%+&100
 1090t%=t%+1:IF t%=40 THEN t%=0:s%=s%+1
 1100UNTIL N%>=&8000 OR s%=10
 1110*FX 108,0
 1120IF s%=10 THEN GOTO 1250
 1130bank%=4
 1140REPEAT
 1150N%=&8000
 1160REPEAT
 1170PROCper
 1180OSCLI("SRREAD "+STR$~srblock%+" +100 "+STR$~N%+" "+STR$bank%)
 1190PROCwrite(srblock%,s%,t%)
 1200N%=N%+&100
 1210t%=t%+1:IF t%=40 THEN t%=0:s%=s%+1
 1220UNTIL N%>=&C000 OR s%=10
 1230bank%=bank%+1
 1240UNTIL bank%>7 OR s%=10
 1250IF s%=10 THEN ENDPROC
 1260PRINT"Something has gone badly wrong with     matching read/write procedures"
 1270END
 1280:
 1290DEFPROCmain
 1300REPEAT
 1310VDU 26:CLS
 1320PROCtitle("Disc Backup Utility")
 1330PROChead("by George Foot and David C Lowless")
 1340PRINTTAB(8,5);"�Memory status:�";:IF full%=0 THEN PRINT"Empty" ELSE PRINT"Full"
 1350PRINTTAB(10,8);"�Please select:"
 1360PRINTTAB(5,12);"�1) Read disc into memory"
 1370IF full% THEN PRINTTAB(5,15);"�2) Write memory to disc":PRINTTAB(5,18);"�3) "; ELSE PRINTTAB(5,15);"�2) ";
 1380PRINT"Quit"
 1390PRINT''TAB(10);"�Enter your choice: ";
 1400REPEAT
 1410A=GET-48
 1420UNTIL A>0 AND A<3-full%
 1430PRINTSTR$A
 1440ON A GOTO 1450,1460,1470
 1450PROCreaddisc:UNTIL0
 1460IF full% THEN PROCwritedisc:UNTIL0
 1470UNTIL-1
 1480ENDPROC
 1490:
 1500DEFPROCtitle(A$)
 1510VDU 31,0,0,141,132,157,135,10,13,141,132,157,135
 1520PRINTTAB(20-(LEN(A$) DIV 2),0);A$
 1530PRINTTAB(20-(LEN(A$) DIV 2),1);A$
 1540ENDPROC
 1550:
 1560DEFPROChead(A$)
 1570VDU 31,0,3,131
 1580PRINTTAB(20-(LEN(A$) DIV 2));A$
 1590ENDPROC
 1600:
 1610DEFPROCper
 1620frac=(t%+s%*40)/400
 1630len%=frac*34
 1640PRINTTAB(3,15);STRING$(len%,",");TAB(25,13);INT(frac*100);
 1650ENDPROC
 1660:
 1670DEFPROCscreen
 1680PRINTTAB(5,13);"�Percentange done:�"
 1690PRINTTAB(0,14);CHR$150;"h";STRING$(37,",");"4";CHR$150;"j";CHR$146;STRING$(35," ");CHR$150;"5";CHR$150;"*";STRING$(37,",");"%"
 1700ENDPROC


	*DISC
� 7
�=&1E00
(
� p 20
2� srblock% 257
<full%=0
F	�main
P�
Z:
d��read(a%,s%,t%)
n]� s%>9 � s%<0 � t%>39 � t%<0 � �:�"Attempt to read sector ";s%;" track ";t%;" aborted.":�
xp?0=S%:p!1=a%:p?5=3
�!p?6=&57:p?7=t%:p?8=s%:p?9=&21
��osword
�del%=res% � &20
�res%=res% � 030
�� res%=0 � �
�I� "Disc read error: (R)etry, (I)gnore                    or (A)bort?"
��
�A$=�
�� A$="A" � A$="R" � A$="I"
�� A$="I" � �
�� A$="R" � � �Dx@
��
��
:
��osword
A%=&7F:X%=p � 256
"Y%=p � 256
,� &FFF1
6res%=p?10:�
@:
J��write(a%,s%,t%)
T^� s%>9 � s%<0 � t%>39 � t%<0 � �:�"Attempt to write sector ";s%;" track ";t%;" aborted.":�
^p?0=0:p!1=a%
h!� del%<>0 � p?6=&4F � p?6=&4B
rp?7=t%:p?8=s%:p?9=&21
|�osword
�res%=res% � &1E
�� res%=0 � �
�J� "Disc write error: (R)etry, (I)gnore                    or (A)bort?"
��
�A$=�
�� A$="A" � A$="R" � A$="I"
�� A$="I" � �
�� A$="R" � � �D^A
��
��
�:
���readdisc
�� 28,0,24,39,5:�

s%=0:t%=0
N%=�
>� �0,0);"Insert source disc in drive 0 and hit a key";:a=�
&�screen
0�
:�per
D�read(N%,s%,t%)
NN%=N%+&100
X"t%=t%+1:� t%=40 � t%=0:s%=s%+1
b� N%>=&7C00 � s%=10
l� s%=10 � � �DRC
v
*FX 108,1
�N%=&3000
��
��per
��read(N%,s%,t%)
�N%=N%+&100
�"t%=t%+1:� t%=40 � t%=0:s%=s%+1
�� N%>=&8000 � s%=10
�
*FX 108,0
�� s%=10 � � �DRC
�bank%=4
��
�N%=&8000
��
�per
�read(srblock%,s%,t%)
5�("SRWRITE "+�~srblock%+" +100 "+�~N%+" "+�bank%)
 N%=N%+&100
*"t%=t%+1:� t%=40 � t%=0:s%=s%+1
4� N%>=&C000 � s%=10
>bank%=bank%+1
H� bank%>7 � s%=10
R� s%=10 � full%=-1:�
\�
fI�"Not enough memory to read entire disc - use disc-switching version"
p�
z:
���writedisc
�
s%=0:t%=0
�N%=�
�� 28,0,24,39,5:�
�C�0,0);"Insert destination disc in drive 0 and  hit a key";:a=�
��screen
��
��per
��write(N%,s%,t%)
�N%=N%+&100
�"t%=t%+1:� t%=40 � t%=0:s%=s%+1
�� N%>=&7C00 � s%=10
�� s%=10 � � �dbD

*FX 108,1
N%=&3000
�
$�per
.�write(N%,s%,t%)
8N%=N%+&100
B"t%=t%+1:� t%=40 � t%=0:s%=s%+1
L� N%>=&8000 � s%=10
V
*FX 108,0
`� s%=10 � � �dbD
jbank%=4
t�
~N%=&8000
��
��per
�4�("SRREAD "+�~srblock%+" +100 "+�~N%+" "+�bank%)
��write(srblock%,s%,t%)
�N%=N%+&100
�"t%=t%+1:� t%=40 � t%=0:s%=s%+1
�� N%>=&C000 � s%=10
�bank%=bank%+1
�� bank%>7 � s%=10
�� s%=10 � �
�M�"Something has gone badly wrong with     matching read/write procedures"
��
:


��main
�

� 26:�
(!�title("Disc Backup Utility")
2/�head("by George Foot and David C Lowless")
<=�8,5);"�Memory status:�";:� full%=0 � �"Empty" � �"Full"
F�10,8);"�Please select:"
P'�5,12);"�1) Read disc into memory"
ZR� full% � �5,15);"�2) Write memory to disc":�5,18);"�3) "; � �5,15);"�2) ";
d�"Quit"
n#�''�10);"�Enter your choice: ";
x�
�
A=�-48
�� A>0 � A<3-full%
���A
�� A � �tjE,�ttE,�t~E
��readdisc:�0
�� full% � �writedisc:�0
��-1
��
�:
���title(A$)
�2� 31,0,0,141,132,157,135,10,13,141,132,157,135
��20-(�(A$) � 2),0);A$
��20-(�(A$) � 2),1);A$
�
:
��head(A$)
"� 31,0,3,131
,�20-(�(A$) � 2));A$
6�
@:
J	��per
Tfrac=(t%+s%*40)/400
^len%=frac*34
h+�3,15);�len%,",");�25,13);�(frac*100);
r�
|:
���screen
�!�5,13);"�Percentange done:�"
�W�0,14);�150;"h";�37,",");"4";�150;"j";�146;�35," ");�150;"5";�150;"*";�37,",");"%"
��
�
00000000  0d 00 0a 09 2a 44 49 53  43 0d 00 14 07 eb 20 37  |....*DISC..... 7|
00000010  0d 00 1e 0b d3 3d 26 31  45 30 30 0d 00 28 0a de  |.....=&1E00..(..|
00000020  20 70 20 32 30 0d 00 32  12 de 20 73 72 62 6c 6f  | p 20..2.. srblo|
00000030  63 6b 25 20 32 35 37 0d  00 3c 0b 66 75 6c 6c 25  |ck% 257..<.full%|
00000040  3d 30 0d 00 46 09 f2 6d  61 69 6e 0d 00 50 05 e0  |=0..F..main..P..|
00000050  0d 00 5a 05 3a 0d 00 64  14 dd f2 72 65 61 64 28  |..Z.:..d...read(|
00000060  61 25 2c 73 25 2c 74 25  29 0d 00 6e 5d e7 20 73  |a%,s%,t%)..n]. s|
00000070  25 3e 39 20 84 20 73 25  3c 30 20 84 20 74 25 3e  |%>9 . s%<0 . t%>|
00000080  33 39 20 84 20 74 25 3c  30 20 8c 20 db 3a f1 22  |39 . t%<0 . .:."|
00000090  41 74 74 65 6d 70 74 20  74 6f 20 72 65 61 64 20  |Attempt to read |
000000a0  73 65 63 74 6f 72 20 22  3b 73 25 3b 22 20 74 72  |sector ";s%;" tr|
000000b0  61 63 6b 20 22 3b 74 25  3b 22 20 61 62 6f 72 74  |ack ";t%;" abort|
000000c0  65 64 2e 22 3a e0 0d 00  78 17 70 3f 30 3d 53 25  |ed.":...x.p?0=S%|
000000d0  3a 70 21 31 3d 61 25 3a  70 3f 35 3d 33 0d 00 82  |:p!1=a%:p?5=3...|
000000e0  21 70 3f 36 3d 26 35 37  3a 70 3f 37 3d 74 25 3a  |!p?6=&57:p?7=t%:|
000000f0  70 3f 38 3d 73 25 3a 70  3f 39 3d 26 32 31 0d 00  |p?8=s%:p?9=&21..|
00000100  8c 0b f2 6f 73 77 6f 72  64 0d 00 96 13 64 65 6c  |...osword....del|
00000110  25 3d 72 65 73 25 20 80  20 26 32 30 0d 00 a0 13  |%=res% . &20....|
00000120  72 65 73 25 3d 72 65 73  25 20 80 20 30 33 30 0d  |res%=res% . 030.|
00000130  00 aa 10 e7 20 72 65 73  25 3d 30 20 8c 20 e1 0d  |.... res%=0 . ..|
00000140  00 b4 49 f1 20 22 44 69  73 63 20 72 65 61 64 20  |..I. "Disc read |
00000150  65 72 72 6f 72 3a 20 28  52 29 65 74 72 79 2c 20  |error: (R)etry, |
00000160  28 49 29 67 6e 6f 72 65  20 20 20 20 20 20 20 20  |(I)gnore        |
00000170  20 20 20 20 20 20 20 20  20 20 20 20 6f 72 20 28  |            or (|
00000180  41 29 62 6f 72 74 3f 22  0d 00 be 05 f5 0d 00 c8  |A)bort?"........|
00000190  08 41 24 3d be 0d 00 d2  1e fd 20 41 24 3d 22 41  |.A$=...... A$="A|
000001a0  22 20 84 20 41 24 3d 22  52 22 20 84 20 41 24 3d  |" . A$="R" . A$=|
000001b0  22 49 22 0d 00 dc 10 e7  20 41 24 3d 22 49 22 20  |"I"..... A$="I" |
000001c0  8c 20 e1 0d 00 e6 15 e7  20 41 24 3d 22 52 22 20  |. ...... A$="R" |
000001d0  8c 20 e5 20 8d 44 78 40  0d 00 f0 05 e0 0d 00 fa  |. . .Dx@........|
000001e0  05 e1 0d 01 04 05 3a 0d  01 0e 0c dd f2 6f 73 77  |......:......osw|
000001f0  6f 72 64 0d 01 18 15 41  25 3d 26 37 46 3a 58 25  |ord....A%=&7F:X%|
00000200  3d 70 20 83 20 32 35 36  0d 01 22 0e 59 25 3d 70  |=p . 256..".Y%=p|
00000210  20 81 20 32 35 36 0d 01  2c 0b d6 20 26 46 46 46  | . 256..,.. &FFF|
00000220  31 0d 01 36 0f 72 65 73  25 3d 70 3f 31 30 3a e1  |1..6.res%=p?10:.|
00000230  0d 01 40 05 3a 0d 01 4a  15 dd f2 77 72 69 74 65  |..@.:..J...write|
00000240  28 61 25 2c 73 25 2c 74  25 29 0d 01 54 5e e7 20  |(a%,s%,t%)..T^. |
00000250  73 25 3e 39 20 84 20 73  25 3c 30 20 84 20 74 25  |s%>9 . s%<0 . t%|
00000260  3e 33 39 20 84 20 74 25  3c 30 20 8c 20 db 3a f1  |>39 . t%<0 . .:.|
00000270  22 41 74 74 65 6d 70 74  20 74 6f 20 77 72 69 74  |"Attempt to writ|
00000280  65 20 73 65 63 74 6f 72  20 22 3b 73 25 3b 22 20  |e sector ";s%;" |
00000290  74 72 61 63 6b 20 22 3b  74 25 3b 22 20 61 62 6f  |track ";t%;" abo|
000002a0  72 74 65 64 2e 22 3a e0  0d 01 5e 10 70 3f 30 3d  |rted.":...^.p?0=|
000002b0  30 3a 70 21 31 3d 61 25  0d 01 68 21 e7 20 64 65  |0:p!1=a%..h!. de|
000002c0  6c 25 3c 3e 30 20 8c 20  70 3f 36 3d 26 34 46 20  |l%<>0 . p?6=&4F |
000002d0  8b 20 70 3f 36 3d 26 34  42 0d 01 72 19 70 3f 37  |. p?6=&4B..r.p?7|
000002e0  3d 74 25 3a 70 3f 38 3d  73 25 3a 70 3f 39 3d 26  |=t%:p?8=s%:p?9=&|
000002f0  32 31 0d 01 7c 0b f2 6f  73 77 6f 72 64 0d 01 86  |21..|..osword...|
00000300  13 72 65 73 25 3d 72 65  73 25 20 80 20 26 31 45  |.res%=res% . &1E|
00000310  0d 01 90 10 e7 20 72 65  73 25 3d 30 20 8c 20 e1  |..... res%=0 . .|
00000320  0d 01 9a 4a f1 20 22 44  69 73 63 20 77 72 69 74  |...J. "Disc writ|
00000330  65 20 65 72 72 6f 72 3a  20 28 52 29 65 74 72 79  |e error: (R)etry|
00000340  2c 20 28 49 29 67 6e 6f  72 65 20 20 20 20 20 20  |, (I)gnore      |
00000350  20 20 20 20 20 20 20 20  20 20 20 20 20 20 6f 72  |              or|
00000360  20 28 41 29 62 6f 72 74  3f 22 0d 01 a4 05 f5 0d  | (A)bort?"......|
00000370  01 ae 08 41 24 3d be 0d  01 b8 1e fd 20 41 24 3d  |...A$=...... A$=|
00000380  22 41 22 20 84 20 41 24  3d 22 52 22 20 84 20 41  |"A" . A$="R" . A|
00000390  24 3d 22 49 22 0d 01 c2  10 e7 20 41 24 3d 22 49  |$="I"..... A$="I|
000003a0  22 20 8c 20 e1 0d 01 cc  15 e7 20 41 24 3d 22 52  |" . ...... A$="R|
000003b0  22 20 8c 20 e5 20 8d 44  5e 41 0d 01 d6 05 e0 0d  |" . . .D^A......|
000003c0  01 e0 05 e1 0d 01 ea 05  3a 0d 01 f4 0e dd f2 72  |........:......r|
000003d0  65 61 64 64 69 73 63 0d  01 fe 14 ef 20 32 38 2c  |eaddisc..... 28,|
000003e0  30 2c 32 34 2c 33 39 2c  35 3a db 0d 02 08 0d 73  |0,24,39,5:.....s|
000003f0  25 3d 30 3a 74 25 3d 30  0d 02 12 08 4e 25 3d 93  |%=0:t%=0....N%=.|
00000400  0d 02 1c 3e f1 20 8a 30  2c 30 29 3b 22 49 6e 73  |...>. .0,0);"Ins|
00000410  65 72 74 20 73 6f 75 72  63 65 20 64 69 73 63 20  |ert source disc |
00000420  69 6e 20 64 72 69 76 65  20 30 20 61 6e 64 20 68  |in drive 0 and h|
00000430  69 74 20 61 20 6b 65 79  22 3b 3a 61 3d a5 0d 02  |it a key";:a=...|
00000440  26 0b f2 73 63 72 65 65  6e 0d 02 30 05 f5 0d 02  |&..screen..0....|
00000450  3a 08 f2 70 65 72 0d 02  44 13 f2 72 65 61 64 28  |:..per..D..read(|
00000460  4e 25 2c 73 25 2c 74 25  29 0d 02 4e 0e 4e 25 3d  |N%,s%,t%)..N.N%=|
00000470  4e 25 2b 26 31 30 30 0d  02 58 22 74 25 3d 74 25  |N%+&100..X"t%=t%|
00000480  2b 31 3a e7 20 74 25 3d  34 30 20 8c 20 74 25 3d  |+1:. t%=40 . t%=|
00000490  30 3a 73 25 3d 73 25 2b  31 0d 02 62 17 fd 20 4e  |0:s%=s%+1..b.. N|
000004a0  25 3e 3d 26 37 43 30 30  20 84 20 73 25 3d 31 30  |%>=&7C00 . s%=10|
000004b0  0d 02 6c 14 e7 20 73 25  3d 31 30 20 8c 20 e5 20  |..l.. s%=10 . . |
000004c0  8d 44 52 43 0d 02 76 0d  2a 46 58 20 31 30 38 2c  |.DRC..v.*FX 108,|
000004d0  31 0d 02 80 0c 4e 25 3d  26 33 30 30 30 0d 02 8a  |1....N%=&3000...|
000004e0  05 f5 0d 02 94 08 f2 70  65 72 0d 02 9e 13 f2 72  |.......per.....r|
000004f0  65 61 64 28 4e 25 2c 73  25 2c 74 25 29 0d 02 a8  |ead(N%,s%,t%)...|
00000500  0e 4e 25 3d 4e 25 2b 26  31 30 30 0d 02 b2 22 74  |.N%=N%+&100..."t|
00000510  25 3d 74 25 2b 31 3a e7  20 74 25 3d 34 30 20 8c  |%=t%+1:. t%=40 .|
00000520  20 74 25 3d 30 3a 73 25  3d 73 25 2b 31 0d 02 bc  | t%=0:s%=s%+1...|
00000530  17 fd 20 4e 25 3e 3d 26  38 30 30 30 20 84 20 73  |.. N%>=&8000 . s|
00000540  25 3d 31 30 0d 02 c6 0d  2a 46 58 20 31 30 38 2c  |%=10....*FX 108,|
00000550  30 0d 02 d0 14 e7 20 73  25 3d 31 30 20 8c 20 e5  |0..... s%=10 . .|
00000560  20 8d 44 52 43 0d 02 da  0b 62 61 6e 6b 25 3d 34  | .DRC....bank%=4|
00000570  0d 02 e4 05 f5 0d 02 ee  0c 4e 25 3d 26 38 30 30  |.........N%=&800|
00000580  30 0d 02 f8 05 f5 0d 03  02 08 f2 70 65 72 0d 03  |0..........per..|
00000590  0c 19 f2 72 65 61 64 28  73 72 62 6c 6f 63 6b 25  |...read(srblock%|
000005a0  2c 73 25 2c 74 25 29 0d  03 16 35 ff 28 22 53 52  |,s%,t%)...5.("SR|
000005b0  57 52 49 54 45 20 22 2b  c3 7e 73 72 62 6c 6f 63  |WRITE "+.~srbloc|
000005c0  6b 25 2b 22 20 2b 31 30  30 20 22 2b c3 7e 4e 25  |k%+" +100 "+.~N%|
000005d0  2b 22 20 22 2b c3 62 61  6e 6b 25 29 0d 03 20 0e  |+" "+.bank%).. .|
000005e0  4e 25 3d 4e 25 2b 26 31  30 30 0d 03 2a 22 74 25  |N%=N%+&100..*"t%|
000005f0  3d 74 25 2b 31 3a e7 20  74 25 3d 34 30 20 8c 20  |=t%+1:. t%=40 . |
00000600  74 25 3d 30 3a 73 25 3d  73 25 2b 31 0d 03 34 17  |t%=0:s%=s%+1..4.|
00000610  fd 20 4e 25 3e 3d 26 43  30 30 30 20 84 20 73 25  |. N%>=&C000 . s%|
00000620  3d 31 30 0d 03 3e 11 62  61 6e 6b 25 3d 62 61 6e  |=10..>.bank%=ban|
00000630  6b 25 2b 31 0d 03 48 15  fd 20 62 61 6e 6b 25 3e  |k%+1..H.. bank%>|
00000640  37 20 84 20 73 25 3d 31  30 0d 03 52 18 e7 20 73  |7 . s%=10..R.. s|
00000650  25 3d 31 30 20 8c 20 66  75 6c 6c 25 3d 2d 31 3a  |%=10 . full%=-1:|
00000660  e1 0d 03 5c 05 db 0d 03  66 49 f1 22 4e 6f 74 20  |...\....fI."Not |
00000670  65 6e 6f 75 67 68 20 6d  65 6d 6f 72 79 20 74 6f  |enough memory to|
00000680  20 72 65 61 64 20 65 6e  74 69 72 65 20 64 69 73  | read entire dis|
00000690  63 20 2d 20 75 73 65 20  64 69 73 63 2d 73 77 69  |c - use disc-swi|
000006a0  74 63 68 69 6e 67 20 76  65 72 73 69 6f 6e 22 0d  |tching version".|
000006b0  03 70 05 e0 0d 03 7a 05  3a 0d 03 84 0f dd f2 77  |.p....z.:......w|
000006c0  72 69 74 65 64 69 73 63  0d 03 8e 0d 73 25 3d 30  |ritedisc....s%=0|
000006d0  3a 74 25 3d 30 0d 03 98  08 4e 25 3d 93 0d 03 a2  |:t%=0....N%=....|
000006e0  14 ef 20 32 38 2c 30 2c  32 34 2c 33 39 2c 35 3a  |.. 28,0,24,39,5:|
000006f0  db 0d 03 ac 43 f1 8a 30  2c 30 29 3b 22 49 6e 73  |....C..0,0);"Ins|
00000700  65 72 74 20 64 65 73 74  69 6e 61 74 69 6f 6e 20  |ert destination |
00000710  64 69 73 63 20 69 6e 20  64 72 69 76 65 20 30 20  |disc in drive 0 |
00000720  61 6e 64 20 20 68 69 74  20 61 20 6b 65 79 22 3b  |and  hit a key";|
00000730  3a 61 3d a5 0d 03 b6 0b  f2 73 63 72 65 65 6e 0d  |:a=......screen.|
00000740  03 c0 05 f5 0d 03 ca 08  f2 70 65 72 0d 03 d4 14  |.........per....|
00000750  f2 77 72 69 74 65 28 4e  25 2c 73 25 2c 74 25 29  |.write(N%,s%,t%)|
00000760  0d 03 de 0e 4e 25 3d 4e  25 2b 26 31 30 30 0d 03  |....N%=N%+&100..|
00000770  e8 22 74 25 3d 74 25 2b  31 3a e7 20 74 25 3d 34  |."t%=t%+1:. t%=4|
00000780  30 20 8c 20 74 25 3d 30  3a 73 25 3d 73 25 2b 31  |0 . t%=0:s%=s%+1|
00000790  0d 03 f2 17 fd 20 4e 25  3e 3d 26 37 43 30 30 20  |..... N%>=&7C00 |
000007a0  84 20 73 25 3d 31 30 0d  03 fc 14 e7 20 73 25 3d  |. s%=10..... s%=|
000007b0  31 30 20 8c 20 e5 20 8d  64 62 44 0d 04 06 0d 2a  |10 . . .dbD....*|
000007c0  46 58 20 31 30 38 2c 31  0d 04 10 0c 4e 25 3d 26  |FX 108,1....N%=&|
000007d0  33 30 30 30 0d 04 1a 05  f5 0d 04 24 08 f2 70 65  |3000.......$..pe|
000007e0  72 0d 04 2e 14 f2 77 72  69 74 65 28 4e 25 2c 73  |r.....write(N%,s|
000007f0  25 2c 74 25 29 0d 04 38  0e 4e 25 3d 4e 25 2b 26  |%,t%)..8.N%=N%+&|
00000800  31 30 30 0d 04 42 22 74  25 3d 74 25 2b 31 3a e7  |100..B"t%=t%+1:.|
00000810  20 74 25 3d 34 30 20 8c  20 74 25 3d 30 3a 73 25  | t%=40 . t%=0:s%|
00000820  3d 73 25 2b 31 0d 04 4c  17 fd 20 4e 25 3e 3d 26  |=s%+1..L.. N%>=&|
00000830  38 30 30 30 20 84 20 73  25 3d 31 30 0d 04 56 0d  |8000 . s%=10..V.|
00000840  2a 46 58 20 31 30 38 2c  30 0d 04 60 14 e7 20 73  |*FX 108,0..`.. s|
00000850  25 3d 31 30 20 8c 20 e5  20 8d 64 62 44 0d 04 6a  |%=10 . . .dbD..j|
00000860  0b 62 61 6e 6b 25 3d 34  0d 04 74 05 f5 0d 04 7e  |.bank%=4..t....~|
00000870  0c 4e 25 3d 26 38 30 30  30 0d 04 88 05 f5 0d 04  |.N%=&8000.......|
00000880  92 08 f2 70 65 72 0d 04  9c 34 ff 28 22 53 52 52  |...per...4.("SRR|
00000890  45 41 44 20 22 2b c3 7e  73 72 62 6c 6f 63 6b 25  |EAD "+.~srblock%|
000008a0  2b 22 20 2b 31 30 30 20  22 2b c3 7e 4e 25 2b 22  |+" +100 "+.~N%+"|
000008b0  20 22 2b c3 62 61 6e 6b  25 29 0d 04 a6 1a f2 77  | "+.bank%).....w|
000008c0  72 69 74 65 28 73 72 62  6c 6f 63 6b 25 2c 73 25  |rite(srblock%,s%|
000008d0  2c 74 25 29 0d 04 b0 0e  4e 25 3d 4e 25 2b 26 31  |,t%)....N%=N%+&1|
000008e0  30 30 0d 04 ba 22 74 25  3d 74 25 2b 31 3a e7 20  |00..."t%=t%+1:. |
000008f0  74 25 3d 34 30 20 8c 20  74 25 3d 30 3a 73 25 3d  |t%=40 . t%=0:s%=|
00000900  73 25 2b 31 0d 04 c4 17  fd 20 4e 25 3e 3d 26 43  |s%+1..... N%>=&C|
00000910  30 30 30 20 84 20 73 25  3d 31 30 0d 04 ce 11 62  |000 . s%=10....b|
00000920  61 6e 6b 25 3d 62 61 6e  6b 25 2b 31 0d 04 d8 15  |ank%=bank%+1....|
00000930  fd 20 62 61 6e 6b 25 3e  37 20 84 20 73 25 3d 31  |. bank%>7 . s%=1|
00000940  30 0d 04 e2 0f e7 20 73  25 3d 31 30 20 8c 20 e1  |0..... s%=10 . .|
00000950  0d 04 ec 4d f1 22 53 6f  6d 65 74 68 69 6e 67 20  |...M."Something |
00000960  68 61 73 20 67 6f 6e 65  20 62 61 64 6c 79 20 77  |has gone badly w|
00000970  72 6f 6e 67 20 77 69 74  68 20 20 20 20 20 6d 61  |rong with     ma|
00000980  74 63 68 69 6e 67 20 72  65 61 64 2f 77 72 69 74  |tching read/writ|
00000990  65 20 70 72 6f 63 65 64  75 72 65 73 22 0d 04 f6  |e procedures"...|
000009a0  05 e0 0d 05 00 05 3a 0d  05 0a 0a dd f2 6d 61 69  |......:......mai|
000009b0  6e 0d 05 14 05 f5 0d 05  1e 0a ef 20 32 36 3a db  |n.......... 26:.|
000009c0  0d 05 28 21 f2 74 69 74  6c 65 28 22 44 69 73 63  |..(!.title("Disc|
000009d0  20 42 61 63 6b 75 70 20  55 74 69 6c 69 74 79 22  | Backup Utility"|
000009e0  29 0d 05 32 2f f2 68 65  61 64 28 22 62 79 20 47  |)..2/.head("by G|
000009f0  65 6f 72 67 65 20 46 6f  6f 74 20 61 6e 64 20 44  |eorge Foot and D|
00000a00  61 76 69 64 20 43 20 4c  6f 77 6c 65 73 73 22 29  |avid C Lowless")|
00000a10  0d 05 3c 3d f1 8a 38 2c  35 29 3b 22 82 4d 65 6d  |..<=..8,5);".Mem|
00000a20  6f 72 79 20 73 74 61 74  75 73 3a 83 22 3b 3a e7  |ory status:.";:.|
00000a30  20 66 75 6c 6c 25 3d 30  20 8c 20 f1 22 45 6d 70  | full%=0 . ."Emp|
00000a40  74 79 22 20 8b 20 f1 22  46 75 6c 6c 22 0d 05 46  |ty" . ."Full"..F|
00000a50  1d f1 8a 31 30 2c 38 29  3b 22 83 50 6c 65 61 73  |...10,8);".Pleas|
00000a60  65 20 73 65 6c 65 63 74  3a 22 0d 05 50 27 f1 8a  |e select:"..P'..|
00000a70  35 2c 31 32 29 3b 22 82  31 29 20 52 65 61 64 20  |5,12);".1) Read |
00000a80  64 69 73 63 20 69 6e 74  6f 20 6d 65 6d 6f 72 79  |disc into memory|
00000a90  22 0d 05 5a 52 e7 20 66  75 6c 6c 25 20 8c 20 f1  |"..ZR. full% . .|
00000aa0  8a 35 2c 31 35 29 3b 22  82 32 29 20 57 72 69 74  |.5,15);".2) Writ|
00000ab0  65 20 6d 65 6d 6f 72 79  20 74 6f 20 64 69 73 63  |e memory to disc|
00000ac0  22 3a f1 8a 35 2c 31 38  29 3b 22 82 33 29 20 22  |":..5,18);".3) "|
00000ad0  3b 20 8b 20 f1 8a 35 2c  31 35 29 3b 22 82 32 29  |; . ..5,15);".2)|
00000ae0  20 22 3b 0d 05 64 0b f1  22 51 75 69 74 22 0d 05  | ";..d.."Quit"..|
00000af0  6e 23 f1 27 27 8a 31 30  29 3b 22 86 45 6e 74 65  |n#.''.10);".Ente|
00000b00  72 20 79 6f 75 72 20 63  68 6f 69 63 65 3a 20 22  |r your choice: "|
00000b10  3b 0d 05 78 05 f5 0d 05  82 0a 41 3d a5 2d 34 38  |;..x......A=.-48|
00000b20  0d 05 8c 15 fd 20 41 3e  30 20 80 20 41 3c 33 2d  |..... A>0 . A<3-|
00000b30  66 75 6c 6c 25 0d 05 96  07 f1 c3 41 0d 05 a0 18  |full%......A....|
00000b40  ee 20 41 20 e5 20 8d 74  6a 45 2c 8d 74 74 45 2c  |. A . .tjE,.ttE,|
00000b50  8d 74 7e 45 0d 05 aa 10  f2 72 65 61 64 64 69 73  |.t~E.....readdis|
00000b60  63 3a fd 30 0d 05 b4 1b  e7 20 66 75 6c 6c 25 20  |c:.0..... full% |
00000b70  8c 20 f2 77 72 69 74 65  64 69 73 63 3a fd 30 0d  |. .writedisc:.0.|
00000b80  05 be 07 fd 2d 31 0d 05  c8 05 e1 0d 05 d2 05 3a  |....-1.........:|
00000b90  0d 05 dc 0f dd f2 74 69  74 6c 65 28 41 24 29 0d  |......title(A$).|
00000ba0  05 e6 32 ef 20 33 31 2c  30 2c 30 2c 31 34 31 2c  |..2. 31,0,0,141,|
00000bb0  31 33 32 2c 31 35 37 2c  31 33 35 2c 31 30 2c 31  |132,157,135,10,1|
00000bc0  33 2c 31 34 31 2c 31 33  32 2c 31 35 37 2c 31 33  |3,141,132,157,13|
00000bd0  35 0d 05 f0 1a f1 8a 32  30 2d 28 a9 28 41 24 29  |5......20-(.(A$)|
00000be0  20 81 20 32 29 2c 30 29  3b 41 24 0d 05 fa 1a f1  | . 2),0);A$.....|
00000bf0  8a 32 30 2d 28 a9 28 41  24 29 20 81 20 32 29 2c  |.20-(.(A$) . 2),|
00000c00  31 29 3b 41 24 0d 06 04  05 e1 0d 06 0e 05 3a 0d  |1);A$.........:.|
00000c10  06 18 0e dd f2 68 65 61  64 28 41 24 29 0d 06 22  |.....head(A$).."|
00000c20  10 ef 20 33 31 2c 30 2c  33 2c 31 33 31 0d 06 2c  |.. 31,0,3,131..,|
00000c30  18 f1 8a 32 30 2d 28 a9  28 41 24 29 20 81 20 32  |...20-(.(A$) . 2|
00000c40  29 29 3b 41 24 0d 06 36  05 e1 0d 06 40 05 3a 0d  |));A$..6....@.:.|
00000c50  06 4a 09 dd f2 70 65 72  0d 06 54 17 66 72 61 63  |.J...per..T.frac|
00000c60  3d 28 74 25 2b 73 25 2a  34 30 29 2f 34 30 30 0d  |=(t%+s%*40)/400.|
00000c70  06 5e 10 6c 65 6e 25 3d  66 72 61 63 2a 33 34 0d  |.^.len%=frac*34.|
00000c80  06 68 2b f1 8a 33 2c 31  35 29 3b c4 6c 65 6e 25  |.h+..3,15);.len%|
00000c90  2c 22 2c 22 29 3b 8a 32  35 2c 31 33 29 3b a8 28  |,",");.25,13);.(|
00000ca0  66 72 61 63 2a 31 30 30  29 3b 0d 06 72 05 e1 0d  |frac*100);..r...|
00000cb0  06 7c 05 3a 0d 06 86 0c  dd f2 73 63 72 65 65 6e  |.|.:......screen|
00000cc0  0d 06 90 21 f1 8a 35 2c  31 33 29 3b 22 81 50 65  |...!..5,13);".Pe|
00000cd0  72 63 65 6e 74 61 6e 67  65 20 64 6f 6e 65 3a 83  |rcentange done:.|
00000ce0  22 0d 06 9a 57 f1 8a 30  2c 31 34 29 3b bd 31 35  |"...W..0,14);.15|
00000cf0  30 3b 22 68 22 3b c4 33  37 2c 22 2c 22 29 3b 22  |0;"h";.37,",");"|
00000d00  34 22 3b bd 31 35 30 3b  22 6a 22 3b bd 31 34 36  |4";.150;"j";.146|
00000d10  3b c4 33 35 2c 22 20 22  29 3b bd 31 35 30 3b 22  |;.35," ");.150;"|
00000d20  35 22 3b bd 31 35 30 3b  22 2a 22 3b c4 33 37 2c  |5";.150;"*";.37,|
00000d30  22 2c 22 29 3b 22 25 22  0d 06 a4 05 e1 0d ff     |",");"%".......|
00000d3f

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .