Notes

Disk info for Softdisk_082_July_1988_Disk_1_Side_A.dsk:

File Name: riag_007_Softdisk_082_July_1988_Disk_1_Side_A/Softdisk_082_July_1988_Disk_1_Side_A.dsk
Disk Name: /SDA82/
Physical Size (bytes): 143360
Free Space (bytes): 7168
Used Space (bytes): 136192
Physical Size (KB): 140
Free Space (KB): 7
Used Space (KB): 133
Archive Order: DOS
Disk Format: ProDOS
Total Blocks: 280
Free Blocks: 14
Used Blocks: 266
Volume Access: Destroy Read Rename Write
Block Number of Bitmap: 6
Creation Date: 07/18/1988
File Entries Per Block: 13
File Entry Length (bytes): 39
Active Files in Root Directory: 8
Minimum ProDOS Version Required: 0
Volume Created By ProDOS Version: 0
Volume Name: SDA82

Disk directory for Softdisk_082_July_1988_Disk_1_Side_A.dsk:

riag_007_Softdisk_082_July_1988_Disk_1_Side_A/Softdisk_082_July_1988_Disk_1_Side_A.dsk /SDA82/
PRODOS SYS 032 07/18/1988 07/18/1988 15,485
SOFTDISK.SYSTEM SYS 028 07/18/1988 07/18/1988 13,780 A=$2000
SOFTDISK.MENU BIN 005 07/18/1988 07/18/1988 2,022 A=$2000
SOFTDISK.QUIT BIN 003 07/18/1988 07/18/1988 768 A=$2000
SOFTDISK.COPY BAS 010 07/18/1988 07/18/1988 4,286 A=$0801
FILECOPY BIN 001 07/18/1988 07/18/1988 511 A=$3E00
BASIC.SYSTEM SYS 021 07/18/1988 07/18/1988 10,240 A=$2000
A DIR 002 07/18/1988 07/18/1988 1,024
COVER.PAGE.T BIN 001 07/18/1988 07/18/1988 28 A=$1FF7
COVER.PAGE.G BIN 009 07/18/1988 07/18/1988 4,088 A=$2000
TOC.T BIN 006 07/18/1988 07/18/1988 2,083 A=$1FED
TOC.G BIN 006 07/18/1988 07/18/1988 2,345 A=$2000
DISKOVERY.T BIN 007 07/18/1988 07/18/1988 2,631 A=$1FE9
DISKOVERY.G BIN 003 07/18/1988 07/18/1988 617 A=$2000
HELP.G BIN 009 07/18/1988 07/18/1988 3,888 A=$2000
HELP.T BIN 009 07/18/1988 07/18/1988 3,711 A=$1FE1
MB.START.T BIN 008 07/18/1988 07/18/1988 3,091 A=$1FE3
MAGIC.G BIN 009 07/18/1988 07/18/1988 3,586 A=$2000
MB.MENU BAS 003 07/18/1988 07/18/1988 904 A=$0801
MB.MAIN BAS 018 07/18/1988 07/18/1988 8,327 A=$0801
MBTITLE.PAK BIN 013 07/18/1988 07/18/1988 5,736 A=$6000
MBSCREEN.PAK BIN 011 07/18/1988 07/18/1988 4,660 A=$6000
MB.GDG BIN 005 07/18/1988 07/18/1988 1,776 A=$3900
MUS.CHARGE BIN 001 07/18/1988 07/18/1988 27 A=$6600
MB.SHAPES.LNK BIN 001 07/18/1988 07/18/1988 398 A=$3FE4
MB.PLOTTER BIN 003 07/18/1988 07/18/1988 780 A=$7300
LIBRARY BIN 001 07/18/1988 07/18/1988 162 A=$6600
SOUNDPLAY BIN 001 07/18/1988 07/18/1988 207 A=$0300
MB.START BAS 001 07/18/1988 07/18/1988 335 A=$0801
PROMAP.T BIN 010 07/18/1988 07/18/1988 4,308 A=$1FDD
PRO.G BIN 009 07/18/1988 07/18/1988 3,944 A=$2000
PROMAP BAS 012 07/18/1988 07/18/1988 5,242 A=$0801
RWBLOCK BIN 001 07/18/1988 07/18/1988 115 A=$0300
ProDOS format; 7,168 bytes free; 136,192 bytes used.

Text found in Softdisk_082_July_1988_Disk_1_Side_A.dsk/FILECOPY.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 4C 17 3E 7D 3F BE 3F A9 00 85 00 85 01 20 64 3E L.>}?>?) ..... d>
$000010 90 04 A9 56 85 00 60 A9 00 85 00 20 9E 3E B0 36 ..)V..`) ... .>06
$000020 20 B7 3E B0 31 20 CA 3E B0 2C 20 D7 3E B0 27 20 7>01 J> 0, W>0'
$000030 E8 3E B0 22 18 20 F5 3E 20 0A 3F B0 19 20 2B 3F h>0". u> .?0. +?
$000040 B0 F2 20 3D 3F B0 0F 20 4C 3F B0 0A 20 5B 3F B0 0r =?0. L?0. [?0
$000050 05 A9 00 85 00 60 85 00 A9 00 8D 4B 3F 20 00 BF .)...`.. )..K? .?
$000060 CC 4A 3F 60 A9 0C 20 F5 BE B0 2D 8D 9D 3E A9 00 LJ?`). u >0-..>).
$000070 8D 9C 3E A9 00 8D D4 3E 8D F2 3E 8D 04 3F 8D 25 ..>)..T> .r>..?.%
$000080 3F AD 9D 3E 8D D5 3E 18 69 04 8D F3 3E 18 69 04 ?-.>.U>. i..s>.i.
$000090 8D 05 3F 8D 26 3F 18 60 38 4C 97 3E 00 00 20 00 ..?.&?.` 8L.>.. .
$0000A0 BF C4 A5 3E 60 0A 7D 3F 00 00 00 00 00 00 00 00 ?D%>`.}? ........
$0000B0 00 00 00 00 00 00 00 20 00 BF C0 BE 3E 60 07 BE ....... .?@>>`.>
$0000C0 3F C3 00 00 00 01 00 00 00 00 20 00 BF C8 D1 3E ?C...... .. .?HQ>
$0000D0 60 03 7D 3F 00 60 00 AD D6 3E 8D E5 3E 20 00 BF `.}?.`.- V>.e> .?
$0000E0 C9 E4 3E 60 03 00 00 00 20 00 BF C8 EF 3E 60 03 Id>`.... .?Ho>`.
$0000F0 BE 3F 00 64 00 AD D6 3E 8D 03 3F 20 00 BF CA 02 >?.d.-V> ..? .?J.
$000100 3F 60 04 00 00 68 00 04 00 00 AD F4 3E 8D 24 3F ?`...h.. ..-t>.$?
$000110 AD 08 3F 8D 27 3F AD 09 3F 8D 28 3F 20 00 BF CB -.?.'?-. ?.(? .?K
$000120 23 3F 60 04 00 00 68 00 00 00 00 AD 08 3F C9 00 #?`...h. ...-.?I.
$000130 D0 09 AD 09 3F C9 04 D0 02 38 60 18 60 AD D6 3E P.-.?I.P .8`.`-V>
$000140 8D 4B 3F 20 00 BF CC 4A 3F 60 01 00 AD F4 3E 8D .K? .?LJ ?`..-t>.
$000150 5A 3F 20 00 BF CC 59 3F 60 01 00 A2 03 BD A5 3E Z? .?LY? `..".=%>
$000160 9D 6F 3F E8 E0 0E D0 F5 20 00 BF C3 6F 3F 60 07 .o?h`.Pu .?Co?`.
$000170 BE 3F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >?...... ........
$000180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$000190 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0001F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .. ........ .......
** END **

Text found in Softdisk_082_July_1988_Disk_1_Side_A.dsk/SOFTDISK.COPY.bas:

1 PRINT CHR$(21)
2 TEXT : HOME
7 VTAB 1: HTAB 1
8 LOMEM: 16384
10 INVERSE : PRINT SPC( 40)
20 FOR I = 2 TO 23
30 VTAB I: HTAB 1: INVERSE : PRINT " ";: NORMAL : PRINT SPC( 38);: INVERSE : PRINT " ";
35 NORMAL
40 IF I = 10 THEN VTAB I: HTAB 11: PRINT "SOFTDISK'S FILECOPY"
50 IF I = 12 THEN VTAB I: HTAB 9: PRINT "VERSION 1.0 BY TOM HALL"
60 IF I = 14 THEN VTAB I: HTAB 12: PRINT "(C)1988 SOFTDISK"
70 NEXT I
75 FOR I = 769 TO 768 + PEEK(768):ART$ = ART$ + CHR$( PEEK(I)): NEXT I
80 INVERSE : VTAB 24: HTAB 1: PRINT SPC( 39);: POKE 2039,32
90 VTAB 1: HTAB 1
100 FOR I = 16 TO 20: VTAB I: HTAB 6: PRINT SPC( 30): NEXT
105 NORMAL
110 FOR I = 17 TO 19: VTAB I: HTAB 7: PRINT SPC( 28);: NEXT I
114 VTAB 17: HTAB 12: PRINT "INSERT DISKS AND";
115 VTAB 18: HTAB 15: PRINT "PRESS A KEY";: GOSUB 40000
120 VTAB 17: HTAB 12: PRINT "LOADING DISK INFO";: VTAB 18: HTAB 15: PRINT "PLEASE WAIT";
130 VTAB 19: HTAB 11: PRINT "PRESS [ESC] TO EXIT";
131 POKE 34,1: POKE 35,23
140 VTAB 2: POKE 32,1: POKE 33,38: PRINT
150 DIM P$(12),D(12,1),F$(32),AD(12,1),AD$(12)
151 ONERR GOTO 22000
155 PRINT CHR$(4)"BLOAD FILECOPY,A$3E00":IN = 15879:SP = PEEK(IN -4) + PEEK(IN -3) *256:DP = PEEK(IN -2) + PEEK(IN -1) *256:ZC = 15872
157 CALL IN: REM GET BUFFERS
158 IF PEEK(0) = 86 THEN HOME : VTAB 4: HTAB 3: PRINT "NO SPACE FOR FILE BUFFERS": HTAB 3: PRINT "PRESS A KEY.": GOSUB 40000: GOTO 60000
160 D$ = CHR$(4)
170 PRINT CHR$(4)"PREFIX": INPUT PF$
175 PF$ = PF$ + LEFT$(ART$,1) +"/"
180 POKE -16368,0
190 REM READ ONLINE
200 FOR C9 = 1 TO 12:P$(C9) = "": NEXT
210 ONERR GOTO 230
220 VTAB 21: PRINT D$"PREFIX,S7,D1": VTAB 21: PRINT D$"PREFIX": INPUT P$(1)
225 IF PEEK( -16384) = 155 THEN 60000
230 ONERR GOTO 250
240 VTAB 21: PRINT D$"PREFIX,S7,D2": VTAB 21: PRINT D$"PREFIX": INPUT P$(2)
245 IF PEEK( -16384) = 155 THEN 60000
250 ONERR GOTO 270
260 VTAB 21: PRINT D$"PREFIX,S6,D1": VTAB 21: PRINT D$"PREFIX": INPUT P$(3)
265 IF PEEK( -16384) = 155 THEN 60000
270 ONERR GOTO 290
280 VTAB 21: PRINT D$"PREFIX,S6,D2": VTAB 21: PRINT D$"PREFIX": INPUT P$(4)
285 IF PEEK( -16384) = 155 THEN 60000
290 ONERR GOTO 310
300 VTAB 21: PRINT D$"PREFIX,S5,D1": VTAB 21: PRINT D$"PREFIX": INPUT P$(5)
305 IF PEEK( -16384) = 155 THEN 60000
310 ONERR GOTO 330
320 VTAB 21: PRINT D$"PREFIX,S5,D2": VTAB 21: PRINT D$"PREFIX": INPUT P$(6)
325 IF PEEK( -16384) = 155 THEN 60000
330 ONERR GOTO 350
340 VTAB 21: PRINT D$"PREFIX,S4,D1": VTAB 21: PRINT D$"PREFIX": INPUT P$(7)
345 IF PEEK( -16384) = 155 THEN 60000
350 ONERR GOTO 370
360 VTAB 21: PRINT D$"PREFIX,S4,D2": VTAB 21: PRINT D$"PREFIX": INPUT P$(8)
365 IF PEEK( -16384) = 155 THEN 60000
370 ONERR GOTO 390
380 VTAB 21: PRINT D$"PREFIX,S3,D1": VTAB 21: PRINT D$"PREFIX": INPUT P$(9)
385 IF PEEK( -16384) = 155 THEN 60000
390 ONERR GOTO 410
400 VTAB 21: PRINT D$"PREFIX,S3,D2": VTAB 21: PRINT D$"PREFIX": INPUT P$(10)
405 IF PEEK( -16384) = 155 THEN 60000
410 ONERR GOTO 430
420 VTAB 21: PRINT D$"PREFIX,S2,D1": VTAB 21: PRINT D$"PREFIX": INPUT P$(11)
425 IF PEEK( -16384) = 155 THEN 60000
430 ONERR GOTO 450
440 VTAB 21: PRINT D$"PREFIX,S2,D2": VTAB 21: PRINT D$"PREFIX": INPUT P$(12)
445 IF PEEK( -16384) = 155 THEN 60000
450 POKE 216,0
460 TS = 7:TD = 1: FOR C9 = 1 TO 12:D(C9,0) = TS:D(C9,1) = TD:TD = TD +1: IF TD >2 THEN TD = 1:TS = TS -1
470 NEXT
500 PRINT CHR$(4)"PREFIX " LEFT$(PF$, LEN(PF$) -2)
510 VTAB 17: HTAB 19: PRINT "FILE";
515 PRINT CHR$(4)"bload"ART$".t,a$300,b5,l2"
516 BV = 256 * PEEK(769) + PEEK(768)
520 PRINT CHR$(4)"OPEN "ART$".T,TBIN"
530 PRINT CHR$(4)"READ "ART$".T"
540 FOR I = 0 TO 4: GET K$: NEXT I:BV = BV -( ASC(K$) *2 +3)
550 FOR I = 1 TO ASC(K$): GET K$: GET K$: NEXT I
560 FC = 0
562 GET K$: GET K$: REM EATBYTES
565 GET K$: IF K$ = "^" THEN 600
566 IF K$ = "" OR BV <1 THEN 600
570 L = ASC(K$):F$(FC) = "": FOR I = 1 TO L: GET K$:F$(FC) = F$(FC) +K$:BV = BV -1: NEXT I
575 IF BV <1 THEN 565
580 FC = FC +1: GOTO 565
600 PRINT CHR$(4)"CLOSE"
610 POKE 34,1: POKE 35,23: HOME
620 FC = FC -1:SRC = 0:SC = 0
630 ND = 1: FOR I = 1 TO 12: IF P$(I) < >"" AND P$(I) < >"/RAM/" THEN ND = 0:AD$(SC) = P$(I):AD(SC,0) = D(I,0):AD(SC,1) = D(I,1):SC = SC +1:LD = I
635 IF LEFT$(P$(I),4) = LEFT$(PF$,4) THEN SRC = I
640 NEXT I
650 IF ND = 1 THEN VTAB 12: HTAB 3: PRINT "THERE ARE NO VOLUMES ONLINE.": VTAB 14: HTAB 14: PRINT "PRESS A KEY": GOSUB 40000: GOTO 60000
660 IF SRC = 0 THEN VTAB 12: HTAB 3: PRINT "ORIGINAL SOFTDISK NOT ONLINE.": VTAB 14: HTAB 14: PRINT "PRESS A KEY": GOSUB 40000: GOTO 60000
670 IF SC = 1 THEN GOTO 30000
680 VTAB 4: HTAB 3: PRINT "PLEASE SELECT DESTINATION PATH:"
690 FOR I = 0 TO SC -1: VTAB I +6: HTAB 5: PRINT AD$(I): NEXT
700 CP = 0
710 VTAB CP +6: HTAB 5: INVERSE : PRINT AD$(CP)
720 GOSUB 40000: VTAB CP +6: HTAB 5: NORMAL : PRINT AD$(CP)
725 IF K$ = CHR$(27) THEN 60000
730 IF K$ = CHR$(8) OR K$ = CHR$(11) THEN CP = CP -1: GOTO 760
740 IF K$ = CHR$(21) OR K$ = CHR$(10) THEN CP = CP +1: GOTO 760
750 IF K$ = CHR$(13) THEN 800
760 IF CP = SC THEN CP = 0
770 IF CP = -1 THEN CP = SC -1
780 GOTO 710
800 HOME : VTAB 4: HTAB 3: PRINT "COPYING FILES FROM": VTAB 5: HTAB 3: PRINT PF$: VTAB 6: HTAB 3: PRINT "TO "AD$(CP)"..."
805 ONERR GOTO 22000
810 POKE 34,10
815 FOR I = 0 TO FC
816 IF RIGHT$(F$(I),2) = ".G" OR RIGHT$(F$(I),2) = ".g" THEN 870
820 HOME : HTAB 3: PRINT "COPYING "F$(I): HTAB 3: PRINT "TO "AD$(CP)
830 SP$ = PF$ +F$(I):DP$ = AD$(CP) +F$(I)
840 POKE SP, LEN(SP$): FOR A = 1 TO LEN(SP$): POKE SP +A, ASC( MID$ (SP$,A,1)): NEXT A
850 POKE DP, LEN(DP$): FOR A = 1 TO LEN(DP$): POKE DP +A, ASC( MID$ (DP$,A,1)): NEXT A
855 POKE 0,0
860 CALL ZC: REM COPY ZE FILE
861 IF PEEK(0) = 71 THEN PRINT "FILE EXISTS. COPY OVER IT? (Y/N)";: GET K$: ON K$ < >"Y" AND K$ < >"y" GOTO 870: IF K$ = "Y" OR K$ = "y" THEN PRINT CHR$(4)"UNLOCK"DP$: PRINT CHR$(4)"DELETE"DP$: GOTO 820
865 IF PEEK(0) < >0 THEN GOTO 20000
870 NEXT I
880 POKE 34,1: HOME : VTAB 4: HTAB 3: PRINT "DONE COPYING. PRESS A KEY.": GOSUB 40000: GOTO 60000
9999 END
20000 POKE 34,1: HOME : VTAB 4:X = PEEK(0)
20001 IF X = 39 THEN PRINT "I/O ERROR."
20002 IF X = 43 THEN PRINT "DISK WRITE PROTECTED."
20003 IF X = 66 OR X = 73 OR X = 85 OR X = 72 THEN PRINT "DISK FULL."
20010 HTAB 3: PRINT "TROUBLE COPYING FILES.": HTAB 3: PRINT "(MLI ERROR "X")"
20015 HTAB 3: PRINT "PRESS A KEY.": GOSUB 40000: GOTO 60000
20030 PRINT "ERROR NUMBER "X: GOTO 20015
21000 FOR I = 1 TO 10000: NEXT I: RETURN
22000 POKE 216,0
22010 X = PEEK(222)
22020 IF X = 8 THEN X = 39: POKE 34,1: HOME : VTAB 4: GOTO 20001
30000 VTAB 12: HTAB 3: PRINT "SOURCE AND TARGET DRIVES NOT": VTAB 13: HTAB 3: PRINT "FOUND. PRESS A KEY."
30010 GOSUB 40000
30015 GOTO 60000
40000 POKE -16368,0: WAIT -16384,128:K$ = CHR$( PEEK( -16384) -128): POKE -16368,0: RETURN
60000 TEXT : HOME : VTAB 12: HTAB 9: PRINT "RETURNING TO SOFTDISK"
60001 POKE -16368,0
60005 FOR I = 1 TO 2000: NEXT I
60010 PRINT CHR$(4)"BYE"