Notes

Disk info for Softdisk_133_1992_Disk_1_Side_A.dsk:

File Name: riag_007_Softdisk_133_1992_Disk_1_Side_A/Softdisk_133_1992_Disk_1_Side_A.dsk
Disk Name: /SDA133/
Physical Size (bytes): 143360
Free Space (bytes): 11264
Used Space (bytes): 132096
Physical Size (KB): 140
Free Space (KB): 11
Used Space (KB): 129
Archive Order: DOS
Disk Format: ProDOS
Total Blocks: 280
Free Blocks: 22
Used Blocks: 258
Volume Access: Destroy Read Rename Write
Block Number of Bitmap: 6
Creation Date: 11/19/1992
File Entries Per Block: 13
File Entry Length (bytes): 39
Active Files in Root Directory: 9
Minimum ProDOS Version Required: 0
Volume Created By ProDOS Version: 5
Volume Name: SDA133

Disk directory for Softdisk_133_1992_Disk_1_Side_A.dsk:

riag_007_Softdisk_133_1992_Disk_1_Side_A/Softdisk_133_1992_Disk_1_Side_A.dsk /SDA133/
PRODOS SYS 034 08/20/1990 08/20/1990 16,509
PIRATE.SYSTEM SYS 003 12/22/1989 01/22/1990 586 A=$2000
PIRATE.PYCTEM BIN 008 04/07/1992 11/18/1991 3,492 A=$6000
SOFTDISK.SYSTEM SYS 028 01/02/1991 03/28/1989 13,438 A=$2000
SOFTDISK.COPY BAS 013 01/03/1992 07/15/1991 6,125 A=$0801
SOFTDISK.MENU BIN 003 11/18/1992 07/27/1990 877 A=$2000
SOFTDISK.QUIT BIN 003 11/19/1992 01/22/1990 768 A=$2000
BASIC.SYSTEM SYS 021 07/17/1990 07/17/1990 10,240 A=$2000
A DIR 002 11/19/1992 07/27/1990 1,024
COVERPAGE.T BIN 001 08/27/1992 08/27/1992 32 A=$2000
COVERPAGE.G BIN 008 11/11/1992 11/11/1992 3,185 A=$2000
HELP.T BIN 009 10/26/1992 10/26/1992 4,025 A=$2000
HELP.G BIN 009 07/27/1990 07/27/1990 3,869 A=$2000
TOC.T BIN 006 11/19/1992 11/19/1992 2,487 A=$2000
TOC.G BIN 004 10/07/1992 10/07/1992 1,307 A=$2000
APPLEWORKS.T BIN 010 11/19/1992 11/19/1992 4,539 A=$2000
Blood.Pressure ASP 016 11/16/1992 11/16/1992 7,221
Blood.Sugar ASP 007 11/16/1992 11/16/1992 2,728
APPLEWORKS.G BIN 009 11/11/1992 11/11/1992 3,883 A=$2000
XWORD.T BIN 007 11/19/1992 11/19/1992 2,674 A=$2000
XWORD BAS 005 05/04/1992 12/23/1991 1,999 A=$0801
XW.WHAT.WAS.THA BIN 005 05/19/1992 05/19/1992 1,814 A=$6000
XW.REGARDING... BIN 004 05/19/1992 05/19/1992 1,385 A=$6000
IP.WHAT.WAS.THA BIN 001 11/03/1992 05/21/1992 289 A=$7EDF
IP.REGARDING... BIN 001 11/03/1992 05/21/1992 289 A=$7EDF
CROSSWORD.BPK BIN 008 11/19/1992 05/20/1992 3,579 A=$6000
CROSSWORD.ML BIN 012 12/23/1991 02/27/1990 5,376 A=$8000
PIRACY.RPK BIN 008 12/03/1991 11/18/1991 3,275 A=$6000
XWORD.G BIN 006 11/11/1992 11/11/1992 2,424 A=$2000
ProDOS format; 11,264 bytes free; 132,096 bytes used.

Text found in Softdisk_133_1992_Disk_1_Side_A.dsk/PIRATE.PYCTEM.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 A9 20 85 E6 20 F2 F3 A9 9B 85 00 A9 60 85 01 20 ) .f rs) ...)`..
$000010 1F 60 2C 50 C0 2C 52 C0 2C 54 C0 2C 57 C0 60 A5 .`,P@,R@ ,T@,W@`%
$000020 E6 09 04 85 06 A2 01 86 04 A0 00 84 02 84 05 84 f....".. . ......
$000030 08 B1 00 D0 18 E6 00 D0 02 E6 01 B1 00 85 08 E6 .1.P.f.P .f.1...f
$000040 00 D0 02 E6 01 B1 00 85 07 A5 07 C6 08 A4 02 91 .P.f.1.. .%.F.$..
$000050 05 E8 E8 E0 C0 90 12 E6 02 A4 02 C0 28 90 08 C6 .hh`@..f .$.@(..F
$000060 04 30 15 A0 00 84 02 A6 04 20 79 60 A4 08 D0 D9 .0. ...& . y`$.PY
$000070 E6 00 D0 BD E6 01 D0 B9 60 8A 29 C0 85 05 4A 4A f.P=f.P9 `.)@..JJ
$000080 05 05 85 05 8A 85 06 0A 0A 0A 26 06 0A 26 06 0A ........ ..&..&..
$000090 66 05 A5 06 29 1F 05 E6 85 06 60 00 0C 80 D4 00 f.%.)..f ..`...T.
$0000A0 1D 84 A4 00 1B 84 D4 00 25 80 AA 00 13 80 F8 B0 ..$...T. %.*...x0
$0000B0 B0 F8 00 06 80 D5 00 1B 80 AA 00 25 80 D5 00 13 0x...U.. .*.%.U..
$0000C0 80 98 FC 98 F0 00 06 80 AA 80 00 04 C0 00 08 80 ..|.p... *...@...
$0000D0 C0 00 0D 80 D5 00 25 80 AA 00 1D 80 D5 80 9F 81 @...U.%. *...U...
$0000E0 81 81 00 07 80 8F 81 8F 00 0C 80 AA 00 25 80 D5 ........ ...*.%.U
$0000F0 00 13 80 86 C6 C6 E6 00 06 80 AA 80 80 9E B3 9E ....FFf. ..*...3.
$000100 00 07 80 9E BE BE 00 0C 80 D5 00 25 80 AA 00 14 ....>>.. .U.%.*..
$000110 80 87 83 83 80 80 E0 E0 E0 80 D5 80 80 BE 86 86 ......`` `.U..>..
$000120 80 00 04 CC 80 00 04 E6 00 0C 80 AA 00 25 80 D5 ...L...f ...*.%.U
$000130 00 09 80 86 C6 C6 E6 00 06 80 B0 F0 B0 B0 80 80 ....FFf. ..0p00..
$000140 CC C7 80 80 AA 00 06 80 00 04 99 00 11 80 D5 00 LG..*... ......U.
$000150 25 80 AA 00 0A 80 87 83 83 00 06 80 98 99 9E 98 %.*..... ........
$000160 80 80 99 99 80 80 D5 80 83 9F B3 B3 80 80 9E BF ......U. ..33...?
$000170 9E 80 BC 86 E0 BC 00 0C 80 AA 00 25 80 D5 00 09 ..<.`<.. .*.%.U..
$000180 80 E0 F0 E0 C0 00 06 80 9E B3 B3 9E 80 83 B3 B3 .`p`@... .33...33
$000190 80 80 AA 80 80 BC FE BC 80 80 FC E6 E0 80 F8 CC ..*..<~< ..|f`.xL
$0001A0 CC F8 00 0C 80 D5 00 25 80 AA 00 09 80 B0 F3 B0 Lx...U.% .*...0s0
$0001B0 B3 00 06 80 FE 98 98 98 80 86 E6 E6 80 80 D5 80 3...~... ..ff..U.
$0001C0 8C CC CC CC 80 80 F8 F8 F8 80 F8 99 99 98 00 0C .LLL..xx x.x.....
$0001D0 80 AA 00 25 80 D5 00 0A 80 C3 E6 C6 80 BC 86 E0 .*.%.U.. .CfF.<.`
$0001E0 BC 00 07 80 CC CC 80 80 AA 80 80 8F 99 81 80 98 <...LL.. *.......
$0001F0 98 99 99 80 F3 C0 C0 C0 00 0C 80 D5 00 25 80 AA ....s@@@ ...U.%.*
$000200 00 0A 80 87 8F 87 80 F8 CC CC F8 80 86 E6 E6 E6 .......x LLx..fff
$000210 80 80 81 81 80 80 D5 00 04 80 86 80 80 C0 E0 C0 ......U. .....@`@
$000220 80 E7 E1 E1 E1 00 0C 80 AA 00 25 80 D5 00 0A 80 .gaaa... *.%.U...
$000230 C0 E0 C0 80 F8 99 99 98 80 80 C7 8C 8C 80 C0 CC @`@.x... ..G...@L
$000240 CC 80 80 AA 80 00 04 B0 80 CC CF CC CF 80 C7 8C L..*...0 .LOLO.G.
$000250 8C C7 00 0C 80 D5 00 25 80 AA 00 0A 80 87 C0 87 .G...U.% .*....@.
$000260 80 F3 C0 C0 C0 80 83 8F C3 8E 80 81 99 99 80 80 .s@@@... C.......
$000270 D5 80 80 BE E6 E6 80 81 F1 F1 F9 80 C7 E3 83 C7 U..>ff.. qqy.Gc.G
$000280 80 8C 8C 8C 9E 80 8E 8C 8C 80 80 80 AA 00 25 80 ........ ....*.%.
$000290 D5 00 0A 80 8F 99 8F 80 E7 E1 E1 E1 80 80 8F 9F U....... gaaa....
$0002A0 8F 80 80 B3 B3 80 80 AA 80 F0 FC 98 98 80 B0 F9 ...33..* .p|...0y
$0002B0 B0 E0 80 C7 C0 CC C7 80 80 C0 CF 80 80 C0 80 C0 0`.G@LG. .@O..@.@
$0002C0 80 80 80 D5 00 14 80 9F B3 83 83 00 0D 80 AA 00 ...U.... 3.....*.
$0002D0 05 80 E0 E0 E0 80 80 9F B3 83 80 C7 8C 8C C7 80 ..```... 3..G..G.
$0002E0 80 9F B3 B3 80 80 E6 E6 80 80 D5 80 80 F8 CC F8 ..33..ff ..U..xLx
$0002F0 80 80 F1 B0 B1 80 99 8D 99 99 80 8F 99 99 8F 80 ..q01... ........
$000300 99 8E 99 80 80 80 AA 00 15 80 BE 86 86 00 0D 80 ......*. ..>.....
$000310 D5 00 05 80 B0 B0 B0 80 80 E6 E6 E0 80 C7 E3 83 U...000. .ff`.Gc.
$000320 C7 80 E0 FC E6 FC 80 80 C0 CC 80 80 AA 80 80 F8 G.`|f|.. @L..*..x
$000330 99 98 80 B0 B3 B0 B0 80 80 C0 C0 80 80 9E B3 B3 ...0300. .@@...33
$000340 9E 80 C7 86 C6 80 80 80 D5 00 15 80 BC FE BC 00 ..G.F... U...<~<.
$000350 0D 80 AA 00 06 80 E6 E6 80 80 FC 8C 8C 80 C7 C0 ..*...ff ..|...G@
$000360 CC C7 80 80 F8 FC F8 80 80 99 99 80 80 D5 80 80 LG..x|x. .....U..
$000370 F9 98 98 80 86 BE E6 BE 80 8F 81 81 8F 80 BC E6 y....>f> ........
$0003C0 80 BC 00 08 80 D5 00 15 80 F8 B8 BC 00 0D 80 AA .<...U.. .x8<...*
$0003D0 00 0A 80 9F 99 98 80 00 04 C0 80 00 04 83 00 06 ........ .@......
$0003E0 80 D5 80 80 BC FC FC 80 B0 F9 B1 E1 80 80 BC 9C .U..<||. 0y1a..<.
$0003F0 9E 80 BC E6 E6 BC 80 E6 B0 8C 80 80 80 AA 00 25 ...8.x@
$000430 C0 F8 80 CC E0 98 80 80 80 D5 00 15 80 BC FC FC @x.L`... .U...<||
$000440 00 0D 80 AA 00 06 80 CC 8C 80 8C BE 8C B8 80 B3 ...*...L ...>.8.3
$000450 B3 B3 9E 80 81 F1 98 F0 80 80 8E 86 80 80 D5 80 33...q.p ......U.
$000460 8C 8C CC 8C 80 80 9E B3 9E 80 80 BC E6 BC 80 B0 ..L....3 ...ff>.
$000490 80 F1 B3 B1 00 06 80 AA 80 80 8F 99 8F 80 80 BE .q31...* .......>
$0004A0 E6 E6 80 80 FC CC CC 80 80 80 BC 00 08 80 D5 00 ff..|LL. ..<...U.
$0004B0 14 80 86 E6 BE E6 00 0D 80 AA 00 05 80 81 8D 99 ...f>f.. .*......
$0004C0 80 C0 F8 CC F8 80 8C 8C 8C FC 80 80 83 00 04 80 .@xLx... .|......
$0004D0 83 98 80 80 D5 80 80 9F B3 B3 00 07 80 8F 99 99 ....U... 33......
$0004E0 80 BC E0 98 FE 80 E6 BC E6 80 80 80 AA 00 15 80 .<`.~.f< f...*...
$0004F0 F8 FC F8 00 0D 80 D5 00 09 80 00 04 81 80 BC 98 x|x...U. ......<.
$000500 98 BC 80 80 F0 98 F0 80 83 B3 B3 80 80 AA 80 80 .<..p.p. .33..*..
$000510 80 C0 80 80 80 BC E6 BC 80 80 9E BF 9E 80 F8 FC .@..... .p.qp.90
$000560 B0 80 80 80 AA 00 15 80 83 83 83 00 0D 80 D5 00 0...*... ......U.
$000570 0A 80 99 99 86 80 00 04 CC 80 80 BC 9C 9E 80 80 ........ L..<....
$000580 9C 8C 80 80 AA 80 80 9F 83 83 80 80 C0 00 08 80 ....*... ....@...
$000590 B1 B3 F3 81 80 CC F8 CC 80 80 80 D5 00 25 80 AA 13s..LxL ...U.%.*
$0005A0 00 0A 80 9E B3 9E 80 F9 B1 B1 F9 80 8C BE 8C B8 ....3..y 11y..>.8
$0005B0 80 80 CC 8C 80 80 D5 80 80 C0 80 80 80 C3 CF C3 ..L...U. .@...COC
$0005C0 CE 80 9E 83 B0 9E 80 80 86 87 86 80 81 80 81 80 N...0... ........
$0005D0 80 80 AA 00 25 80 D5 00 0A 80 BE 86 86 80 8C BC ..*.%.U. ..>....<
$0005E0 CC 8C 80 80 BE 86 86 80 80 99 F0 80 80 AA 80 83 L...>... ..p..*..
$0005F0 8F C3 8E 80 81 8F 99 99 80 80 BC FE BC 80 80 E0 .C...... ..<~<..`
$000600 B0 E0 00 07 80 D5 00 25 80 AA 00 09 80 86 E6 BE 0`...U.% .*....f>
$000610 E6 80 C6 E6 E7 C6 80 00 04 E6 80 80 B3 9F 80 80 f.FfgF.. .f..3...
$000620 D5 80 80 8F 99 8F 80 83 E3 E3 F3 80 80 FC 8C 8C U....... ccs..|..
$000630 80 80 E3 E6 E3 00 07 80 AA 00 25 80 D5 00 0E 80 ..cfc... *.%.U...
$000640 8F 80 98 8F 80 80 C7 CC 87 80 80 E0 E6 80 80 AA ......GL ...`f..*
$000650 80 80 C0 C0 C0 80 80 83 81 81 80 80 CC CC B0 80 ..@@@... ....LL0.
$000660 80 87 00 09 80 D5 00 25 80 AA 00 0A 80 BC E6 BC .....U.% .*....
$000AE0 86 00 05 80 CC CC 80 80 80 B3 B3 80 80 80 E6 E6 ....LL.. .33...ff
$000AF0 80 80 B9 B0 B1 80 B0 B1 B0 F9 80 80 AA 00 26 80 ..901.01 0y..*.&.
$000B00 D5 00 04 80 C0 CF C7 C7 80 80 E6 86 80 80 E6 BE U...@OGG ..f...f>
$000B10 E6 80 80 80 F3 B3 00 0A 80 99 99 80 80 80 E6 E6 f...s3.. ......ff
$000B20 80 80 80 CC CC 00 08 80 BC 80 80 80 D5 00 15 80 ...LL... <...U...
$000B30 86 B6 E6 00 0E 80 AA 00 04 80 81 99 8F 99 80 C0 .6f...*. .......@
$000B40 CC CC 80 80 8C 8C 8C 00 07 80 9E 8E 8F 00 05 80 LL...... ........
$000B50 B3 B3 00 08 80 99 99 80 80 E6 B0 8C 80 BC E6 E6 33...... .f0..

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

1 PRINT CHR$(21): TEXT : HOME :VER = 1.5
4 CALL 6656: CALL 16384: REM 5
14 FOR I = 769 TO 768 + PEEK(768):P$ = CHR$( PEEK(I)): IF P$ > = "a" AND P$ < = "z" THEN P$ = CHR$( ASC(P$) -32)
15 ART$ = ART$ +P$: NEXT
16 HTAB 12: PRINT "SOFTDISK FILECOPY": PRINT : HTAB 15: PRINT "VERSION "VE: PRINT : HTAB 3: PRINT "COPYRIGHT (C) 1992 BY SOFTDISK, INC."
18 PRINT : HTAB 5: PRINT "(PRESS [ESC] TO LEAVE FILECOPY)": FOR I = 1 TO 40: PRINT "-";: NEXT
20 POKE 32,1: POKE 33,38: POKE 34,8: HOME
32 VTAB 12: HTAB 3: PRINT "READING SYSTEM SETUP..."
35 DIM P$(12),D(12,1),F$(37),AD(12,1),AD$(12),SB$(127)
36 REM GETBUFR
37 ONERR GOTO 164
40 PRINT CHR$(4)"PREFIX": INPUT PF$
41 PF$ = PF$ + LEFT$(ART$,1) +"/"
42 POKE -16368,0
43 REM ONLINE
44 FOR I = 1 TO 12:P$(I) = "": NEXT
45 DD = 1:SS = 7:CP = 1
46 ONERR GOTO 50
47 VTAB 21: PRINT CHR$(4)"PREFIX,S"SS",D"DD
48 PRINT CHR$(4)"PREFIX": INPUT P$(CP)
49 IF PEEK( -16384) = 155 THEN 198
50 CP = CP +1:DD = DD +1: IF DD = 3 THEN DD = 1:SS = SS -1: IF SS = 1 THEN ON OD +1 GOTO 53,74
51 GOTO 47
52 REM S,D INTO VARS
53 POKE 216,0: POKE 222,0
54 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
55 NEXT
56 PRINT CHR$(4)"PREFIX " LEFT$(PF$, LEN(PF$) -2)
57 PRINT CHR$(4)"BLOAD "ART$".T,A$300,B5,L2"
58 BV = 256 * PEEK(769) + PEEK(768)
59 PRINT CHR$(4)"OPEN "ART$".T,TBIN"
60 PRINT CHR$(4)"READ "ART$".T"
61 FOR I = 0 TO 4: GET K$: NEXT I:BV = BV -( ASC(K$) *2 +3)
62 FOR I = 1 TO ASC(K$): GET K$: GET K$: NEXT I
63 FC = 0
64 GET K$: GET K$
65 GET K$: IF K$ = "@" OR K$ = CHR$(0) THEN 70
66 IF K$ = "" OR BV <1 THEN 70
67 L = ASC(K$):F$(FC) = "": FOR I = 1 TO L: GET K$:F$(FC) = F$(FC) +K$:BV = BV -1: NEXT I
68 IF BV <1 THEN 65
69 FC = FC +1: GOTO 65
70 PRINT CHR$(4)"CLOSE"
72 FC = FC -1:SRC = 0:SC = 0
73 REM ACTV DRVS
74 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
75 NEXT I
76 IF ND = 1 THEN HOME PRINT "THERE ARE NO VOLUMES ONLINE.": PRINT : HTAB 14: PRINT "PRESS A KEY": GOSUB 196: GOTO 198
77 IF SC = 1 AND NOT OD THEN HOME : HTAB 4: PRINT "PLEASE INSERT DESTINATION DISK": PRINT : HTAB 14: PRINT "PRESS A KEY": GOSUB 196:OD = 1: GOTO 44
78 REM PICK VOL
79 HOME : HTAB 3: PRINT "MOVE HIGHLIGHT ONTO THE NAME OF": HTAB 3: PRINT "YOUR DESTINATION DISK:": IF OD THEN CP = 1: GOTO 93
80 VTAB 21: HTAB 2: PRINT "ARROWS MOVE HIGHLIGHT/RETURN SELECTS"
81 FOR I = 0 TO SC -1: VTAB I +12: HTAB 4: PRINT "S"AD(I,0)"D"AD(I,1)"="AD$(I): NEXT
82 CP = 0
83 VTAB CP +12: HTAB 9: INVERSE : PRINT AD$(CP)
84 GOSUB 196: VTAB CP +12: HTAB 9: NORMAL : PRINT AD$(CP)
85 IF K$ = CHR$(27) THEN 198
86 IF K$ = CHR$(8) OR K$ = CHR$(11) THEN CP = CP -1: GOTO 89
87 IF K$ = CHR$(21) OR K$ = CHR$(10) THEN CP = CP +1: GOTO 89
88 IF K$ = CHR$(13) THEN 93
89 IF CP = SC THEN CP = 0
90 IF CP = -1 THEN CP = SC -1
91 GOTO 83
92 REM SUBDIRS?
93 HOME : HTAB 3: PRINT "CHECKING "AD$(CP): HTAB 3: PRINT "FOR SUBDIRECTORIES..."
94 ONERR GOTO 135
95 PRINT CHR$(4)"PREFIX,S"AD(CP,0)",D"AD(CP,1)
96 DC = 0
97 PRINT CHR$(4)"OPEN "AD$(CP)",TDIR"
98 PRINT CHR$(4)"READ "AD$(CP)
99 INPUT K$: INPUT K$: INPUT K$
100 INPUT K$: ON ( NOT ( LEN(K$))) GOTO 106
101 F$ = MID$ (K$,2,15):TYP$ = MID$ (K$,18,3)
102 ON TYP$ < >"DIR" GOTO 100
103 SB$(DC) = F$
104 IF RIGHT$(SB$(DC),1) = " " THEN SB$(DC) = LEFT$(SB$(DC), LEN(SB$(DC)) -1): GOTO 104
105 DC = DC +1: GOTO 100
106 PRINT CHR$(4)"CLOSE"
107 HOME : HTAB 3
108 IF DC = 0 THEN PRINT "I FOUND NO SUBDIRECTORIES IN": HTAB 3: PRINT AD$(CP)".": FOR QQ = 1 TO 3000: NEXT QQ: GOTO 143
109 HTAB 3: PRINT "MOVE HIGHLIGHT TO SELECT A": HTAB 3: PRINT "FURTHER SUBDIRECTORY:"
110 VTAB 21: HTAB 2: PRINT "SPACEBAR STARTS FILECOPY TO:"
111 POKE 32,2: POKE 33,36: VTAB 22: HTAB 1: PRINT AD$(CP): POKE 32,1: POKE 33,38
112 VTAB 23: HTAB 8: PRINT "ARROWS:MOVE HIGHLIGHT": HTAB 8: PRINT "RETURN:READ ";
113 TP = 0:BT = 7
114 CS = 0
115 IF BT >DC -1 THEN BT = DC -1
116 GOSUB 141
117 FOR I = 0 +(OD >0) TO BT -TP: VTAB I +12: HTAB 3
118 PRINT " "SB$(I +TP)" "
119 NEXT I
120 VTAB 11: HTAB 3: PRINT "----------------": VTAB 20: HTAB 3: PRINT "----------------"
121 IF TP >0 THEN VTAB 11: HTAB 3: PRINT "------MORE------"
122 IF BT 0 THEN TP = TP -8:BT = TP +7:CS = 7: GOTO 116
127 IF (K$ = CHR$(11) OR K$ = CHR$(8)) THEN IF CS >0 THEN CS = CS -1: GOTO 123
128 IF (K$ = CHR$(10) OR K$ = CHR$(21)) AND CS = BT -TP AND BT SUBDIR ERRS
135 IF PEEK(222) = 5 THEN POKE 216,0: GOTO 106
136 PRINT "ERROR:" PEEK(222)
137 GOTO 164
138 REM ADD DIR TO PATH
139 AD$(CP) = AD$(CP) +SB$(CS +TP) +"/": GOTO 93
140 REM CLR BTM
141 POKE 34,11: POKE 35,19: HOME : POKE 34,8: POKE 35,24: RETURN
142 REM COPY
143 HOME : HTAB 3: PRINT "PRESS A KEY TO START": PRINT " COPYING FILES FROM:": PRINT : PRINT " "PF$: PRINT : PRINT " TO "AD$(CP)"."
144 GOSUB 196: IF K$ = CHR$(27) THEN 198
145 HOME : HTAB 3: PRINT "COPYING FILES FROM": PRINT : HTAB 3: PRINT PF$: PRINT : HTAB 3: PRINT "TO "AD$(CP)"..."
146 ONERR GOTO 164
147 POKE 34,15
148 FOR I = 0 TO FC
149 IF RIGHT$(F$(I),2) = ".G" OR RIGHT$(F$(I),2) = ".g" THEN 160
150 HOME : HTAB 3: PRINT "COPYING "F$(I): HTAB 3: PRINT "TO "AD$(CP)
152 IF PEEK( -16384) = 155 THEN 198
153 SP$ = PF$ +F$(I):DP$ = AD$(CP) +F$(I)
154 PRINT CHR$(4)"copy"SP$","DP$
160 NEXT I
161 POKE 34,8: HOME : HTAB 3: PRINT "DONE COPYING. RETURNING...": GOTO 198
163 REM ERROR
164 POKE 34,1: HOME : VTAB 4
165 NORMAL
167 X = PEEK(222): POKE 216,0
168 HTAB 3
169 PRINT "BASIC ERROR "X" ENCOUNTERED:"
170 HTAB 3: IF X = 7 THEN PRINT "FILE NOT FOUND": GOTO 182
171 IF X = 4 THEN PRINT "DISK WRITE PROTECTED.": GOTO 182
172 IF X = 5 THEN PRINT "END OF DATA.": GOTO 182
173 IF X = 6 THEN PRINT "PATH NOT FOUND.": GOTO 182
174 IF X = 8 THEN PRINT "I/O ERROR.": GOTO 182
175 IF X = 9 THEN PRINT "DISK FULL.": GOTO 182
176 IF X = 16 THEN PRINT "SYNTAX ERROR.": GOTO 182
177 IF X = 17 THEN PRINT "DIRECTORY FULL.": GOTO 182
178 IF X = 20 THEN PRINT "FILE BUSY.": GOTO 182
179 IF X = 21 THEN PRINT "FILE(S) STILL OPEN.": GOTO 182
180 IF X = 255 THEN PRINT "YOU PRESSED CONTROL-C.": GOTO 182
181 PRINT "I DON'T KNOW THIS ERROR."
182 HTAB 3: PRINT "PRESS A KEY.": GOSUB 196: GOTO 198
196 POKE -16368,0: WAIT -16384,128: GET K$: POKE -16368,0: RETURN
197 REM EXIT
198 TEXT : HOME : VTAB 12: HTAB 9: PRINT "RETURNING TO SOFTDISK"
199 POKE -16368,0
200 FOR I = 1 TO 2000: NEXT I
201 PRINT CHR$(4)"BYE"
202 END