COPY SOME.C
FILE INFORMATION
FILENAME(S): COPY SOME.C
FILE TYPE(S): PRG
FILE SIZE: 6.9K
FIRST SEEN: 2025-11-30 19:47:30
APPEARS ON: 2 disk(s)
FILE HASH
7cf2ca5e8652f0acfee7c349a1afc5d018d62f697d2e9ee763d6a92c572217bc
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KOPIDISK 09 1 | COPY SOME.C | PRG | Curtcool, Frank | 23 | 14 | DOWNLOAD FILE |
| HJ LPEDISK 07 2 | COPY SOME.C | PRG | Curtcool, Frank | 28 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2A 08 0A 00 8F 22 14 14 14 14 14 14 14 20 |..*...."....... |
00000010: C3 4F 50 59 2D D3 4F 4D 45 20 31 35 34 31 20 D6 |.OPY-.OME 1541 .|
00000020: 45 52 53 49 4F 4E 20 32 2E 32 00 38 08 0F 00 8F |ERSION 2.2.8....|
00000030: 22 14 14 14 14 14 14 14 00 56 08 14 00 8F 22 14 |"........V....".|
00000040: 14 14 14 14 14 14 20 20 42 59 20 D0 41 55 4C 20 |...... BY .AUL |
00000050: CB 45 4C 4C 41 4D 00 7D 08 19 00 8F 22 14 14 14 |.ELLAM.}...."...|
00000060: 14 14 14 14 20 20 20 31 30 35 20 D4 55 54 45 4C |.... 105 .UTEL|
00000070: 41 20 C8 45 49 47 48 54 53 20 D2 44 2E 00 A0 08 |A .EIGHTS .D....|
00000080: 1E 00 8F 22 14 14 14 14 14 14 14 20 20 20 C2 52 |..."....... .R|
00000090: 41 4E 54 46 4F 52 44 2C 20 CF 4E 54 41 52 49 4F |ANTFORD, .NTARIO|
000000A0: 00 B8 08 23 00 8F 22 14 14 14 14 14 14 14 20 20 |...#.."....... |
000000B0: 20 CE 33 D4 20 31 C1 34 00 C6 08 28 00 8F 22 14 | .3. 1.4...(..".|
000000C0: 14 14 14 14 14 14 00 FB 08 2D 00 8F 22 14 14 14 |.........-.."...|
000000D0: 14 14 14 14 20 C1 4E 59 20 43 4F 4D 4D 45 4E 54 |.... .NY COMMENT|
000000E0: 53 2C 20 51 55 45 53 54 49 4F 4E 53 20 4F 52 20 |S, QUESTIONS OR |
000000F0: 53 55 47 47 45 53 54 49 4F 4E 53 00 16 09 32 00 |SUGGESTIONS...2.|
00000100: 8F 22 14 14 14 14 14 14 14 20 41 52 45 20 57 45 |."....... ARE WE|
00000110: 4C 43 4F 4D 45 2E 00 24 09 37 00 8F 22 14 14 14 |LCOME..$.7.."...|
00000120: 14 14 14 14 00 55 09 3C 00 8F 22 14 14 14 14 14 |.....U.<..".....|
00000130: 14 14 20 CE CF D4 C5 20 3A 20 C6 4F 52 20 41 4E |.. .... : .OR AN|
00000140: 20 44 45 43 52 45 41 53 45 20 49 4E 20 54 48 45 | DECREASE IN THE|
00000150: 20 23 20 4F 46 00 8A 09 41 00 8F 22 14 14 14 14 | # OF...A.."....|
00000160: 14 14 14 20 20 20 20 20 20 20 20 54 49 4D 45 53 |... TIMES|
00000170: 20 49 54 20 49 53 20 4E 45 43 45 53 53 41 52 59 | IT IS NECESSARY|
00000180: 20 54 4F 20 53 57 49 54 43 48 00 BB 09 46 00 8F | TO SWITCH...F..|
00000190: 22 14 14 14 14 14 14 14 20 20 20 20 20 20 20 20 |"....... |
000001A0: 44 49 53 4B 53 2C 20 43 4F 4D 50 41 43 54 20 54 |DISKS, COMPACT T|
000001B0: 48 49 53 20 50 52 4F 47 52 41 4D 00 F2 09 4B 00 |HIS PROGRAM...K.|
000001C0: 8F 20 22 14 14 14 14 14 14 14 14 20 20 20 20 20 |. "........ |
000001D0: 20 20 20 55 53 49 4E 47 20 27 43 4F 4E 53 54 52 | USING 'CONSTR|
000001E0: 49 43 54 4F 52 2E 43 27 20 46 52 4F 4D 20 D4 D0 |ICTOR.C' FROM ..|
000001F0: D5 C7 00 11 0A 50 00 8F 22 14 14 14 14 14 14 14 |.....P..".......|
00000200: 20 20 20 20 20 20 20 20 44 49 53 4B 20 23 20 44 | DISK # D|
00000210: 34 00 1F 0A 55 00 8F 22 14 14 14 14 14 14 14 00 |4...U.."........|
00000220: 46 0A 56 00 8F 20 2A 2A 2A 20 20 20 20 20 20 20 |F.V.. *** |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 20 20 20 2A 2A 2A 00 6F 0A 57 00 8F 22 14 20 2A | ***.o.W..". *|
00000250: 2A 2A 20 D3 45 54 20 55 50 20 D6 41 52 49 41 42 |** .ET UP .ARIAB|
00000260: 4C 45 53 20 26 20 C3 4F 4C 4F 55 52 2A 2A 2A 00 |LES & .OLOUR***.|
00000270: 96 0A 58 00 8F 20 2A 2A 2A 20 20 20 20 20 20 20 |..X.. *** |
00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000290: 20 20 20 2A 2A 2A 00 A5 0A 5A 00 8B 20 46 B2 31 | ***...Z.. F.1|
000002A0: 20 A7 20 39 35 00 C3 0A 5B 00 46 B2 31 3A 93 22 | . 95...[.F.1:."|
000002B0: 43 4F 50 59 20 53 4F 4D 45 20 4D 4C 2E 44 22 2C |COPY SOME ML.D",|
000002C0: 38 2C 31 00 DF 0A 5F 00 97 35 33 32 38 30 2C 36 |8,1..._..53280,6|
000002D0: 3A 97 35 33 32 38 31 2C 31 35 3A 99 22 93 22 00 |:.53281,15:.".".|
000002E0: 11 0B 64 00 46 B2 30 3A 97 35 32 30 33 37 2C C2 |..d.F.0:.52037,.|
000002F0: 28 35 36 29 3A 97 35 36 2C C2 28 34 36 29 AA 31 |(56):.56,.(46).1|
00000300: 31 3A 97 35 32 30 33 36 2C C2 28 34 36 29 AA 31 |1:.52036,.(46).1|
00000310: 32 00 3E 0B 69 00 97 35 32 30 33 38 2C C2 28 35 |2.>.i..52038,.(5|
00000320: 35 29 3A 97 35 35 2C 32 35 35 3A 97 35 31 2C 32 |5):.55,255:.51,2|
00000330: 35 35 3A 97 35 32 2C C2 28 35 36 29 3A 9C 00 7C |55:.52,.(56):..||
00000340: 0B 6E 00 86 20 44 54 24 28 35 30 29 2C 44 53 24 |.n.. DT$(50),DS$|
00000350: 28 35 30 29 2C 46 54 24 28 35 30 29 2C 4E 46 24 |(50),FT$(50),NF$|
00000360: 28 35 30 29 2C 4E 4C 24 28 35 30 29 2C 4E 48 24 |(50),NL$(50),NH$|
00000370: 28 35 30 29 2C 4E 42 25 28 35 30 29 00 8C 0B BE |(50),NB%(50)....|
00000380: 00 4E 46 B2 30 3A 54 44 24 B2 22 22 00 B2 0B C2 |.NF.0:TD$.""....|
00000390: 00 8F 20 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 |.. *** |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
000003B0: 2A 2A 00 DA 0B C3 00 8F 22 14 20 2A 2A 2A 20 C4 |**......". *** .|
000003C0: 49 53 50 4C 41 59 2F C3 48 4F 4F 53 45 20 4F 50 |ISPLAY/.HOOSE OP|
000003D0: 54 49 4F 4E 53 20 20 2A 2A 2A 00 00 0C C4 00 8F |TIONS ***......|
000003E0: 20 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 | *** |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A | ***|
00000400: 00 2A 0C C8 00 99 C7 28 31 34 29 22 93 11 11 97 |.*.....(14)"....|
00000410: 22 A6 31 30 29 22 C3 4F 50 59 2D D3 4F 4D 45 20 |".10)".OPY-.OME |
00000420: 31 35 34 31 20 56 32 2E 32 22 00 4A 0C CD 00 99 |1541 V2.2".J....|
00000430: A6 39 29 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |.9)"............|
00000440: B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 65 0C D2 00 99 |.........".e....|
00000450: A3 31 38 29 22 98 42 59 20 D0 41 55 4C 20 CB 45 |.18)".BY .AUL .E|
00000460: 4C 4C 41 4D 22 00 98 0C DC 00 99 22 11 11 1F 20 |LLAM"......"... |
00000470: 46 31 20 97 D3 45 4C 45 43 54 20 D3 4F 55 52 43 |F1 ..ELECT .OURC|
00000480: 45 20 C4 49 53 4B 20 26 20 C6 49 4C 45 53 2F D0 |E .ISK & .ILES/.|
00000490: 52 4F 47 52 41 4D 53 22 00 B2 0C E6 00 99 22 20 |ROGRAMS"......" |
000004A0: 20 20 20 20 54 4F 20 42 45 20 43 4F 50 49 45 44 | TO BE COPIED|
000004B0: 2E 22 00 D4 0C F0 00 99 22 11 1F 20 46 33 20 97 |."......".. F3 .|
000004C0: D3 45 4C 45 43 54 20 D4 41 52 47 45 54 20 C4 49 |.ELECT .ARGET .I|
000004D0: 53 4B 2E 22 00 00 0D F5 00 8B 20 54 44 24 B1 22 |SK."...... TD$."|
000004E0: 22 20 A7 99 22 98 20 20 20 20 28 C3 55 52 52 45 |" ..". (.URRE|
000004F0: 4E 54 4C 59 20 27 22 3B 54 44 24 3B 22 27 29 22 |NTLY '";TD$;"')"|
00000500: 00 26 0D FA 00 99 22 11 1F 20 46 35 20 97 D0 45 |.&....".. F5 ..E|
00000510: 52 46 4F 52 4D 20 C3 4F 50 59 20 D0 52 4F 43 45 |RFORM .OPY .ROCE|
00000520: 44 55 52 45 2E 22 00 5E 0D FF 00 8B 20 52 50 25 |DURE.".^.... RP%|
00000530: B2 31 20 A7 20 99 22 98 20 20 20 20 28 CE 4F 20 |.1 . .". (.O |
00000540: 46 55 52 54 48 45 52 20 44 41 54 41 20 52 45 41 |FURTHER DATA REA|
00000550: 44 53 20 52 45 51 55 49 52 45 44 2E 29 22 00 7F |DS REQUIRED.)"..|
00000560: 0D 04 01 99 22 11 1F 20 46 37 20 97 C5 58 49 54 |....".. F7 ..XIT|
00000570: 20 46 52 4F 4D 20 D0 52 4F 47 52 41 4D 2E 22 00 | FROM .ROGRAM.".|
00000580: AE 0D 18 01 99 22 11 11 1F 20 20 20 20 D0 52 45 |....."... .RE|
00000590: 53 53 20 4B 45 59 20 46 4F 52 20 44 45 53 49 52 |SS KEY FOR DESIR|
000005A0: 45 44 20 4F 50 45 52 41 54 49 4F 4E 2E 22 00 CA |ED OPERATION."..|
000005B0: 0D 22 01 92 20 31 39 38 2C 31 3A A1 20 4F 50 24 |.".. 198,1:. OP$|
000005C0: 3A 4F 50 B2 C6 28 4F 50 24 29 00 E6 0D 2C 01 8B |:OP..(OP$)...,..|
000005D0: 20 4F 50 B3 31 33 33 20 B0 20 4F 50 B1 31 33 36 | OP.133 . OP.136|
000005E0: 20 A7 20 32 39 30 00 FC 0D 36 01 8B 20 4F 50 B3 | . 290...6.. OP.|
000005F0: B1 31 33 36 20 A7 20 89 20 33 32 30 00 31 0E 38 |.136 . . 320.1.8|
00000600: 01 99 22 93 11 11 97 20 C7 4F 4F 44 2D 42 59 45 |..".... .OOD-BYE|
00000610: 20 21 11 11 22 3A 9C 3A 97 35 35 2C C2 28 35 32 | !..":.:.55,.(52|
00000620: 30 33 38 29 3A 97 35 36 2C C2 28 35 32 30 33 37 |038):.56,.(52037|
00000630: 29 00 4B 0E 3A 01 97 35 31 2C C2 28 35 35 29 3A |).K.:..51,.(55):|
00000640: 97 35 32 2C C2 28 35 36 29 3A 80 00 70 0E 40 01 |.52,.(56):..p.@.|
00000650: 91 20 4F 50 AB 31 33 32 20 8D 20 31 30 30 30 2C |. OP.132 . 1000,|
00000660: 31 35 30 30 2C 32 30 30 30 3A 20 89 20 32 30 30 |1500,2000: . 200|
00000670: 00 76 0E E7 03 80 00 9B 0E E8 03 8F 20 2A 2A 2A |.v.......... ***|
00000680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000690: 20 20 20 20 20 20 20 20 2A 2A 2A 00 C2 0E E9 03 | ***.....|
000006A0: 8F 20 22 14 2A 2A 2A 20 C4 45 54 45 52 4D 49 4E |. ".*** .ETERMIN|
000006B0: 45 20 C6 49 4C 45 53 2F D0 52 4F 47 53 20 20 2A |E .ILES/.ROGS *|
000006C0: 2A 2A 00 E9 0E EA 03 8F 20 22 14 2A 2A 2A 20 54 |**...... ".*** T|
000006D0: 4F 20 42 45 20 C3 4F 50 49 45 44 2E 20 20 20 20 |O BE .OPIED. |
000006E0: 20 20 20 20 20 20 2A 2A 2A 00 0E 0F EB 03 8F 20 | ***...... |
000006F0: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |*** |
00000700: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 50 | ***.P|
00000710: 0F F2 03 4E 46 B2 30 3A 99 22 93 11 97 20 C9 4E |...NF.0:."... .N|
00000720: 53 45 52 54 20 D3 4F 55 52 43 45 20 C4 49 53 4B |SERT .OURCE .ISK|
00000730: 2E 22 3A 8D 20 39 30 30 30 3A 99 22 93 11 11 97 |.":. 9000:."....|
00000740: 20 D0 4C 45 41 53 45 20 57 41 49 54 2E 2E 2E 22 | .LEASE WAIT..."|
00000750: 00 70 0F FC 03 52 50 25 B2 30 3A 9F 20 31 35 2C |.p...RP%.0:. 15,|
00000760: 38 2C 31 35 3A 9F 20 32 2C 38 2C 32 2C 22 23 22 |8,15:. 2,8,2,"#"|
00000770: 00 9D 0F 06 04 84 31 35 2C 45 4E 2C 45 4D 24 2C |......15,EN,EM$,|
00000780: 45 54 2C 45 53 3A 8B 20 45 4E B3 B1 30 20 A7 20 |ET,ES:. EN..0 . |
00000790: A0 32 3A A0 31 35 3A 89 20 31 30 30 30 00 B3 0F |.2:.15:. 1000...|
000007A0: 10 04 98 31 35 2C 22 55 31 3A 32 2C 30 22 3B 31 |...15,"U1:2,0";1|
000007B0: 38 3B 30 00 C7 0F 1A 04 98 31 35 2C 22 42 2D 50 |8;0......15,"B-P|
000007C0: 3A 32 2C 31 34 34 22 00 F3 0F 24 04 53 49 24 B2 |:2,144"...$.SI$.|
000007D0: 22 22 3A 81 20 49 B2 31 20 A4 20 32 30 3A A1 23 |"":. I.1 . 20:.#|
000007E0: 32 2C 42 59 24 3A 53 49 24 B2 53 49 24 AA 42 59 |2,BY$:SI$.SI$.BY|
000007F0: 24 3A 82 00 0B 10 28 04 99 22 93 11 1F 20 D3 4F |$:....(.."... .O|
00000800: 55 52 43 45 3A 20 98 22 53 49 24 00 3A 10 29 04 |URCE: ."SI$.:.).|
00000810: 99 22 11 97 20 C3 48 4F 4F 53 45 20 50 52 4F 47 |.".. .HOOSE PROG|
00000820: 52 41 4D 53 2F 46 49 4C 45 53 20 54 4F 20 42 45 |RAMS/FILES TO BE|
00000830: 20 43 4F 50 49 45 44 2E 11 22 00 56 10 2E 04 98 | COPIED..".V....|
00000840: 31 35 2C 22 42 2D 50 3A 32 2C 30 22 3A A1 23 32 |15,"B-P:2,0":.#2|
00000850: 2C 54 24 2C 53 24 00 74 10 38 04 54 B2 C6 28 54 |,T$,S$.t.8.T..(T|
00000860: 24 AA C7 28 30 29 29 3A 53 B2 C6 28 53 24 AA C7 |$..(0)):S..(S$..|
00000870: 28 30 29 29 00 9B 10 42 04 8B 20 54 B2 30 20 B0 |(0))...B.. T.0 .|
00000880: 20 54 B1 33 35 20 B0 20 53 B1 32 30 20 B0 20 4E | T.35 . S.20 . N|
00000890: 46 B2 35 31 20 A7 20 31 32 33 30 00 B0 10 4C 04 |F.51 . 1230...L.|
000008A0: 98 31 35 2C 22 55 31 3A 32 2C 30 22 3B 54 3B 53 |.15,"U1:2,0";T;S|
000008B0: 00 CD 10 56 04 81 20 49 B2 30 20 A4 20 37 3A 8B |...V.. I.0 . 7:.|
000008C0: 20 4E 46 B2 35 31 20 A7 20 31 32 32 30 00 E4 10 | NF.51 . 1220...|
000008D0: 60 04 98 31 35 2C 22 42 2D 50 3A 32 22 3B 49 AC |`..15,"B-P:2";I.|
000008E0: 33 32 AA 32 00 11 11 6A 04 A1 23 32 2C 46 54 24 |32.2...j..#2,FT$|
000008F0: 28 4E 46 29 3A 8B 20 C6 28 46 54 24 28 4E 46 29 |(NF):. .(FT$(NF)|
00000900: AA C7 28 30 29 29 B3 31 32 39 20 A7 20 31 32 32 |..(0)).129 . 122|
00000910: 30 00 29 11 74 04 A1 23 32 2C 44 54 24 28 4E 46 |0.).t..#2,DT$(NF|
00000920: 29 2C 44 53 24 28 4E 46 29 00 5E 11 7E 04 4E 46 |),DS$(NF).^.~.NF|
00000930: 24 28 4E 46 29 B2 22 22 3A 81 4A B2 31 A4 31 36 |$(NF)."":.J.1.16|
00000940: 3A A1 23 32 2C 42 59 24 3A 4E 46 24 28 4E 46 29 |:.#2,BY$:NF$(NF)|
00000950: B2 4E 46 24 28 4E 46 29 AA 42 59 24 3A 82 00 81 |.NF$(NF).BY$:...|
00000960: 11 88 04 99 22 98 20 C3 4F 50 59 20 97 22 4E 46 |....". .OPY ."NF|
00000970: 24 28 4E 46 29 22 98 20 28 59 2F 4E 29 20 3F 22 |$(NF)". (Y/N) ?"|
00000980: 3B 00 A4 11 92 04 92 20 31 39 38 2C 31 3A A1 20 |;...... 198,1:. |
00000990: 43 48 24 3A 8B 20 43 48 24 B2 22 4E 22 20 A7 20 |CH$:. CH$."N" . |
000009A0: 31 32 31 30 00 BA 11 9C 04 8B 20 43 48 24 B3 B1 |1210...... CH$..|
000009B0: 22 59 22 20 A7 20 31 31 37 30 00 00 12 A6 04 98 |"Y" . 1170......|
000009C0: 31 35 2C 22 42 2D 50 3A 32 22 3B 49 AC 33 32 AA |15,"B-P:2";I.32.|
000009D0: 33 30 3A A1 23 32 2C 4E 4C 24 28 4E 46 29 2C 4E |30:.#2,NL$(NF),N|
000009E0: 48 24 28 4E 46 29 3A 8B 20 4E 4C 24 28 4E 46 29 |H$(NF):. NL$(NF)|
000009F0: B2 22 22 A7 4E 4C 24 28 4E 46 29 B2 C7 28 30 29 |."".NL$(NF)..(0)|
00000A00: 00 20 12 AB 04 8B 20 4E 48 24 28 4E 46 29 B2 22 |. .... NH$(NF)."|
00000A10: 22 20 A7 20 4E 48 24 28 4E 46 29 B2 C7 28 30 29 |" . NH$(NF)..(0)|
00000A20: 00 46 12 AD 04 4E 42 25 28 4E 46 29 B2 32 35 36 |.F...NB%(NF).256|
00000A30: AC C6 28 4E 48 24 28 4E 46 29 29 AA C6 28 4E 4C |..(NH$(NF))..(NL|
00000A40: 24 28 4E 46 29 29 00 52 12 B0 04 4E 46 B2 4E 46 |$(NF)).R...NF.NF|
00000A50: AA 31 00 71 12 BA 04 99 A6 31 31 29 3B 22 91 20 |.1.q.....11);". |
00000A60: 20 20 20 22 A6 31 38 29 22 20 20 20 20 20 20 20 | ".18)" |
00000A70: 22 00 7F 12 C4 04 82 49 3A 89 20 31 30 37 30 00 |"......I:. 1070.|
00000A80: 8C 12 CE 04 A0 32 3A A0 31 35 3A 8E 00 B1 12 DC |.....2:.15:.....|
00000A90: 05 8F 20 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 |.. *** |
00000AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **|
00000AB0: 2A 00 D8 12 DD 05 8F 20 22 14 2A 2A 2A 20 D2 45 |*...... ".*** .E|
00000AC0: 41 44 20 D4 41 52 47 45 54 20 49 44 20 20 20 20 |AD .ARGET ID |
00000AD0: 20 20 20 20 20 2A 2A 2A 00 FD 12 DE 05 8F 20 2A | ***...... *|
00000AE0: 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |** |
00000AF0: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 2A 13 | ***.*.|
00000B00: E6 05 54 44 24 B2 22 22 3A 99 22 93 11 97 20 C9 |..TD$."":."... .|
00000B10: 4E 53 45 52 54 20 D4 41 52 47 45 54 20 C4 49 53 |NSERT .ARGET .IS|
00000B20: 4B 2E 22 3A 8D 20 39 30 30 30 00 45 13 EB 05 99 |K.":. 9000.E....|
00000B30: 22 93 11 11 97 20 D0 4C 45 41 53 45 20 57 41 49 |".... .LEASE WAI|
00000B40: 54 2E 2E 2E 22 00 5F 13 F0 05 9F 20 31 35 2C 38 |T..."._.... 15,8|
00000B50: 2C 31 35 3A 9F 20 32 2C 38 2C 32 2C 22 23 22 00 |,15:. 2,8,2,"#".|
00000B60: 8C 13 FA 05 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 |.....15,EN,EM$,E|
00000B70: 54 2C 45 53 3A 8B 20 45 4E B3 B1 30 20 A7 20 A0 |T,ES:. EN..0 . .|
00000B80: 32 3A A0 31 35 3A 89 20 31 35 30 30 00 A2 13 04 |2:.15:. 1500....|
00000B90: 06 98 31 35 2C 22 55 31 3A 32 2C 30 22 3B 31 38 |..15,"U1:2,0";18|
00000BA0: 3B 30 00 B6 13 0E 06 98 31 35 2C 22 42 2D 50 3A |;0......15,"B-P:|
00000BB0: 32 2C 31 34 34 22 00 DB 13 18 06 81 20 49 B2 31 |2,144"...... I.1|
00000BC0: 20 A4 20 32 30 3A A1 23 32 2C 42 59 24 3A 54 44 | . 20:.#2,BY$:TD|
00000BD0: 24 B2 54 44 24 AA 42 59 24 3A 82 00 E8 13 22 06 |$.TD$.BY$:....".|
00000BE0: A0 32 3A A0 31 35 3A 8E 00 0D 14 D0 07 8F 20 2A |.2:.15:....... *|
00000BF0: 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |** |
00000C00: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 34 14 | ***.4.|
00000C10: D1 07 8F 20 22 14 2A 2A 2A 20 C3 4F 50 59 20 D0 |... ".*** .OPY .|
00000C20: 52 4F 43 45 44 55 52 45 20 20 20 20 20 20 20 20 |ROCEDURE |
00000C30: 20 2A 2A 2A 00 59 14 D2 07 8F 20 2A 2A 2A 20 20 | ***.Y.... *** |
00000C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C50: 20 20 20 20 20 20 2A 2A 2A 00 62 14 DA 07 99 22 | ***.b...."|
00000C60: 93 22 00 9A 14 E4 07 8B 20 4E 46 B2 30 20 A7 20 |."...... NF.0 . |
00000C70: 99 22 11 1C 20 D3 45 4C 45 43 54 20 53 4F 55 52 |.".. .ELECT SOUR|
00000C80: 43 45 20 26 20 46 49 4C 45 53 20 46 49 52 53 54 |CE & FILES FIRST|
00000C90: 2C 20 50 4C 45 41 53 45 21 22 00 D8 14 EE 07 8B |, PLEASE!"......|
00000CA0: 20 54 44 24 B2 22 22 20 A7 20 99 22 11 1C 20 D3 | TD$."" . .".. .|
00000CB0: 45 4C 45 43 54 20 54 41 52 47 45 54 20 44 49 53 |ELECT TARGET DIS|
00000CC0: 4B 20 46 49 52 53 54 2C 20 50 4C 45 41 53 45 21 |K FIRST, PLEASE!|
00000CD0: 22 3A 89 20 32 30 34 30 00 1A 15 F3 07 8B 20 54 |":. 2040...... T|
00000CE0: 44 24 B2 53 49 24 20 AF 20 4E 46 B3 B1 30 20 A7 |D$.SI$ . NF..0 .|
00000CF0: 20 99 22 11 1C 20 D3 4F 55 52 43 45 20 26 20 D4 | .".. .OURCE & .|
00000D00: 41 52 47 45 54 20 44 49 53 4B 53 20 48 41 56 45 |ARGET DISKS HAVE|
00000D10: 20 53 41 4D 45 20 49 44 21 22 00 43 15 F8 07 8B | SAME ID!".C....|
00000D20: 20 4E 46 B2 30 20 B0 20 54 44 24 B2 22 22 20 B0 | NF.0 . TD$."" .|
00000D30: 20 54 44 24 B2 53 49 24 20 A7 20 8D 20 39 30 30 | TD$.SI$ . . 900|
00000D40: 30 3A 8E 00 6A 15 FD 07 46 31 B2 30 3A 42 31 B2 |0:..j...F1.0:B1.|
00000D50: 30 3A 46 32 B2 30 3A 42 32 B2 30 3A 8B 20 52 50 |0:F2.0:B2.0:. RP|
00000D60: 25 B2 31 20 A7 20 32 32 31 30 00 74 15 FF 07 52 |%.1 . 2210.t...R|
00000D70: 50 25 B2 31 00 98 15 02 08 42 4E B2 C2 28 35 32 |P%.1.....BN..(52|
00000D80: 30 33 36 29 3A 97 35 31 39 37 38 2C 42 4E 3A 97 |036):.51978,BN:.|
00000D90: 35 32 30 30 38 2C 42 4E 00 BD 15 07 08 8F 20 2A |52008,BN...... *|
00000DA0: 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |** |
00000DB0: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 E4 15 | ***...|
00000DC0: 08 08 8F 20 22 14 2A 2A 2A 20 D2 45 41 44 20 53 |... ".*** .EAD S|
00000DD0: 4F 4D 45 20 44 41 54 41 20 20 20 20 20 20 20 20 |OME DATA |
00000DE0: 20 2A 2A 2A 00 09 16 09 08 8F 20 2A 2A 2A 20 20 | ***...... *** |
00000DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E00: 20 20 20 20 20 20 2A 2A 2A 00 46 16 0C 08 99 22 | ***.F...."|
00000E10: 93 11 11 97 20 C9 4E 53 45 52 54 20 D3 4F 55 52 |.... .NSERT .OUR|
00000E20: 43 45 20 C4 49 53 4B 2E 22 3A 8D 20 39 30 30 30 |CE .ISK.":. 9000|
00000E30: 3A 99 22 93 11 11 97 D0 4C 45 41 53 45 20 57 41 |:.".....LEASE WA|
00000E40: 49 54 2E 2E 2E 22 00 60 16 16 08 9F 20 31 35 2C |IT...".`.... 15,|
00000E50: 38 2C 31 35 3A 9F 20 32 2C 38 2C 32 2C 22 23 22 |8,15:. 2,8,2,"#"|
00000E60: 00 8D 16 20 08 84 31 35 2C 45 4E 2C 45 4D 24 2C |... ..15,EN,EM$,|
00000E70: 45 54 2C 45 53 3A 8B 20 45 4E B3 B1 30 20 A7 20 |ET,ES:. EN..0 . |
00000E80: A0 32 3A A0 31 35 3A 89 20 32 30 36 30 00 A3 16 |.2:.15:. 2060...|
00000E90: 2A 08 98 31 35 2C 22 55 31 3A 32 2C 30 22 3B 31 |*..15,"U1:2,0";1|
00000EA0: 38 3B 30 00 B7 16 34 08 98 31 35 2C 22 42 2D 50 |8;0...4..15,"B-P|
00000EB0: 3A 32 2C 31 34 34 22 00 E3 16 3E 08 53 4F 24 B2 |:2,144"...>.SO$.|
00000EC0: 22 22 3A 81 20 49 B2 31 20 A4 20 32 30 3A A1 23 |"":. I.1 . 20:.#|
00000ED0: 32 2C 42 59 24 3A 53 4F 24 B2 53 4F 24 AA 42 59 |2,BY$:SO$.SO$.BY|
00000EE0: 24 3A 82 00 02 17 48 08 8B 20 53 4F 24 B3 B1 53 |$:....H.. SO$..S|
00000EF0: 49 24 20 A7 20 A0 32 3A A0 31 35 3A 89 20 32 30 |I$ . .2:.15:. 20|
00000F00: 36 30 00 22 17 4D 08 8B 20 42 31 B2 4E 42 25 28 |60.".M.. B1.NB%(|
00000F10: 46 31 29 20 A7 20 42 31 B2 30 3A 46 31 B2 46 31 |F1) . B1.0:F1.F1|
00000F20: AA 31 00 35 17 52 08 8B 20 46 31 B2 4E 46 20 A7 |.1.5.R.. F1.NF .|
00000F30: 20 32 32 30 30 00 56 17 57 08 8B 20 42 4E B2 C2 | 2200.V.W.. BN..|
00000F40: 28 35 32 30 33 37 29 20 A7 20 52 50 25 B2 30 3A |(52037) . RP%.0:|
00000F50: 89 20 32 32 30 30 00 79 17 5C 08 8B 20 42 31 B2 |. 2200.y.\.. B1.|
00000F60: 30 20 A7 20 54 24 B2 44 54 24 28 46 31 29 3A 53 |0 . T$.DT$(F1):S|
00000F70: 24 B2 44 53 24 28 46 31 29 00 97 17 61 08 54 B2 |$.DS$(F1)...a.T.|
00000F80: C6 28 54 24 AA C7 28 30 29 29 3A 53 B2 C6 28 53 |.(T$..(0)):S..(S|
00000F90: 24 AA C7 28 30 29 29 00 AD 17 66 08 98 31 35 2C |$..(0))...f..15,|
00000FA0: 22 55 31 3A 32 2C 30 2C 22 3B 54 3B 53 00 BF 17 |"U1:2,0,";T;S...|
00000FB0: 70 08 98 31 35 2C 22 42 2D 50 3A 32 2C 32 22 00 |p..15,"B-P:2,2".|
00000FC0: CB 17 7A 08 9E 20 35 31 39 36 38 00 DF 17 84 08 |..z.. 51968.....|
00000FD0: 42 4E B2 42 4E AA 31 3A 42 31 B2 42 31 AA 31 00 |BN.BN.1:B1.B1.1.|
00000FE0: 0D 18 8E 08 98 31 35 2C 22 42 2D 50 3A 32 2C 30 |.....15,"B-P:2,0|
00000FF0: 22 3A A1 23 32 2C 54 24 2C 53 24 3A 8B 20 53 24 |":.#2,T$,S$:. S$|
00001000: B2 22 22 20 A7 20 53 24 B2 C7 28 30 29 00 18 18 |."" . S$..(0)...|
00001010: 93 08 89 20 32 31 32 35 00 3D 18 98 08 8F 20 2A |... 2125.=.... *|
00001020: 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |** |
00001030: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 64 18 | ***.d.|
00001040: 99 08 8F 20 22 14 2A 2A 2A 20 D7 52 49 54 45 20 |... ".*** .RITE |
00001050: 54 48 45 20 44 41 54 41 20 20 20 20 20 20 20 20 |THE DATA |
00001060: 20 2A 2A 2A 00 89 18 9A 08 8F 20 2A 2A 2A 20 20 | ***...... *** |
00001070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001080: 20 20 20 20 20 20 2A 2A 2A 00 AB 18 A2 08 A0 32 | ***......2|
00001090: 3A A0 31 35 3A 42 4E B2 C2 28 35 32 30 33 36 29 |:.15:BN..(52036)|
000010A0: 3A 97 20 35 32 30 30 38 2C 42 4E 00 E8 18 AC 08 |:. 52008,BN.....|
000010B0: 99 22 93 11 11 97 20 C9 4E 53 45 52 54 20 D4 41 |.".... .NSERT .A|
000010C0: 52 47 45 54 20 C4 49 53 4B 2E 22 3A 8D 20 39 30 |RGET .ISK.":. 90|
000010D0: 30 30 3A 99 22 93 11 11 97 D0 4C 45 41 53 45 20 |00:.".....LEASE |
000010E0: 57 41 49 54 2E 2E 2E 22 00 02 19 B6 08 9F 20 31 |WAIT..."...... 1|
000010F0: 35 2C 38 2C 31 35 3A 9F 20 32 2C 38 2C 32 2C 22 |5,8,15:. 2,8,2,"|
00001100: 23 22 00 26 19 C0 08 84 31 35 2C 45 4E 2C 45 4D |#".&....15,EN,EM|
00001110: 24 2C 45 54 2C 45 53 3A 8B 20 45 4E B3 B1 30 20 |$,ET,ES:. EN..0 |
00001120: A7 20 32 32 31 30 00 3C 19 CA 08 98 31 35 2C 22 |. 2210.<....15,"|
00001130: 55 31 3A 32 2C 30 22 3B 31 38 3B 30 00 50 19 D4 |U1:2,0";18;0.P..|
00001140: 08 98 31 35 2C 22 42 2D 50 3A 32 2C 31 34 34 22 |..15,"B-P:2,144"|
00001150: 00 7C 19 DE 08 54 41 24 B2 22 22 3A 81 20 49 B2 |.|...TA$."":. I.|
00001160: 31 20 A4 20 32 30 3A A1 23 32 2C 42 59 24 3A 54 |1 . 20:.#2,BY$:T|
00001170: 41 24 B2 54 41 24 AA 42 59 24 3A 82 00 92 19 E8 |A$.TA$.BY$:.....|
00001180: 08 8B 20 54 41 24 B3 B1 54 44 24 20 A7 20 32 32 |.. TA$..TD$ . 22|
00001190: 31 30 00 B9 19 F2 08 8B 20 42 32 B2 4E 42 25 28 |10...... B2.NB%(|
000011A0: 46 32 29 20 A7 20 42 32 B2 30 3A 8D 20 32 35 30 |F2) . B2.0:. 250|
000011B0: 30 3A 46 32 B2 46 32 AA 31 00 D1 19 F7 08 8B 20 |0:F2.F2.1...... |
000011C0: 45 4E B1 30 20 A7 20 45 B2 31 3A 89 20 32 39 30 |EN.0 . E.1:. 290|
000011D0: 30 00 E4 19 FC 08 8B 20 46 32 B2 4E 46 20 A7 20 |0...... F2.NF . |
000011E0: 32 34 34 30 00 0C 1A 06 09 8B 20 42 32 B2 30 20 |2440...... B2.0 |
000011F0: A7 20 8D 20 32 37 30 30 3A 8B 20 45 4E B1 30 20 |. . 2700:. EN.0 |
00001200: A7 20 45 B2 32 3A 89 20 32 39 30 30 00 1F 1A 0B |. E.2:. 2900....|
00001210: 09 8B 20 52 50 25 B2 31 20 A7 20 32 33 34 30 00 |.. RP%.1 . 2340.|
00001220: 43 1A 10 09 8B 20 46 32 B2 46 31 20 AF 20 42 32 |C.... F2.F1 . B2|
00001230: B2 42 31 20 A7 20 A0 32 3A A0 31 35 3A 89 20 32 |.B1 . .2:.15:. 2|
00001240: 30 35 30 00 55 1A 24 09 98 31 35 2C 22 42 2D 50 |050.U.$..15,"B-P|
00001250: 3A 32 2C 32 22 00 61 1A 2E 09 9E 20 35 32 30 30 |:2,2".a.... 5200|
00001260: 31 00 71 1A 30 09 54 33 B2 54 32 3A 53 33 B2 53 |1.q.0.T3.T2:S3.S|
00001270: 32 00 99 1A 33 09 8B 20 42 32 B2 4E 42 25 28 46 |2...3.. B2.NB%(F|
00001280: 32 29 AB 31 20 A7 20 54 33 B2 30 3A 53 33 B2 32 |2).1 . T3.0:S3.2|
00001290: 35 35 3A 89 20 32 34 30 30 00 AF 1A 38 09 98 31 |55:. 2400...8..1|
000012A0: 35 2C 22 42 2D 41 3A 30 22 3B 54 33 3B 53 33 00 |5,"B-A:0";T3;S3.|
000012B0: C4 1A 42 09 84 31 35 2C 45 4E 2C 45 4D 24 2C 54 |..B..15,EN,EM$,T|
000012C0: 34 2C 53 34 00 D8 1A 47 09 8B 20 45 4E B2 30 20 |4,S4...G.. EN.0 |
000012D0: A7 20 89 20 32 34 30 30 00 0C 1B 4C 09 8B 20 28 |. . 2400...L.. (|
000012E0: 45 4E B2 36 35 20 AF 20 54 34 B2 30 29 20 B0 20 |EN.65 . T4.0) . |
000012F0: 28 45 4E B1 30 20 AF 20 45 4E B3 B1 36 35 29 20 |(EN.0 . EN..65) |
00001300: A7 20 45 B2 33 3A 89 20 32 39 30 30 00 25 1B 51 |. E.3:. 2900.%.Q|
00001310: 09 8B 20 54 34 B2 31 38 20 A7 20 54 34 B2 31 39 |.. T4.18 . T4.19|
00001320: 3A 53 34 B2 30 00 45 1B 56 09 8B 20 45 4E B2 36 |:S4.0.E.V.. EN.6|
00001330: 35 20 A7 20 54 33 B2 54 34 3A 53 33 B2 53 34 3A |5 . T3.T4:S3.S4:|
00001340: 89 32 33 36 30 00 57 1B 60 09 98 31 35 2C 22 42 |.2360.W.`..15,"B|
00001350: 2D 50 3A 32 2C 30 22 00 6B 1B 6A 09 98 32 2C C7 |-P:2,0".k.j..2,.|
00001360: 28 54 33 29 3B C7 28 53 33 29 3B 00 82 1B 74 09 |(T3);.(S3);...t.|
00001370: 98 31 35 2C 22 55 32 3A 32 2C 30 22 3B 54 32 3B |.15,"U2:2,0";T2;|
00001380: 53 32 00 A9 1B 7E 09 42 4E B2 42 4E AA 31 3A 42 |S2...~.BN.BN.1:B|
00001390: 32 B2 42 32 AA 31 3A 54 32 B2 54 33 3A 53 32 B2 |2.B2.1:T2.T3:S2.|
000013A0: 53 33 3A 89 20 32 32 39 30 00 B6 1B 88 09 A0 32 |S3:. 2290......2|
000013B0: 3A A0 31 35 3A 8E 00 DB 1B C4 09 8F 20 2A 2A 2A |:.15:....... ***|
000013C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013D0: 20 20 20 20 20 20 20 20 2A 2A 2A 00 02 1C C5 09 | ***.....|
000013E0: 8F 20 22 14 2A 2A 2A 20 C3 52 45 41 54 45 20 C4 |. ".*** .REATE .|
000013F0: 49 52 45 43 54 4F 52 59 20 C5 4E 54 52 59 20 2A |IRECTORY .NTRY *|
00001400: 2A 2A 00 27 1C C6 09 8F 20 2A 2A 2A 20 20 20 20 |**.'.... *** |
00001410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001420: 20 20 20 20 2A 2A 2A 00 36 1C CE 09 54 34 B2 31 | ***.6...T4.1|
00001430: 38 3A 53 34 B2 31 00 51 1C D8 09 98 31 35 2C 22 |8:S4.1.Q....15,"|
00001440: 55 31 3A 32 2C 30 22 3B 54 34 3B 53 34 3A 49 B2 |U1:2,0";T4;S4:I.|
00001450: 30 00 68 1C E2 09 98 31 35 2C 22 42 2D 50 3A 32 |0.h....15,"B-P:2|
00001460: 22 3B 49 AC 33 32 AA 32 00 8D 1C EC 09 A1 23 32 |";I.32.2......#2|
00001470: 2C 42 59 24 3A 8B 20 C6 28 42 59 24 AA C7 28 30 |,BY$:. .(BY$..(0|
00001480: 29 29 B3 31 32 39 20 A7 20 32 36 33 30 00 A6 1C |)).129 . 2630...|
00001490: F6 09 8B 20 49 B3 37 20 A7 20 49 B2 49 AA 31 3A |... I.7 . I.I.1:|
000014A0: 89 20 32 35 33 30 00 B8 1C 00 0A 98 31 35 2C 22 |. 2530......15,"|
000014B0: 42 2D 50 3A 32 2C 30 22 00 DB 1C 0A 0A A1 23 32 |B-P:2,0"......#2|
000014C0: 2C 42 59 24 2C 42 5A 24 3A 42 59 24 B2 C7 28 C6 |,BY$,BZ$:BY$..(.|
000014D0: 28 42 59 24 AA C7 28 30 29 29 29 00 0F 1D 0C 0A |(BY$..(0))).....|
000014E0: 8B 42 59 24 B3 B1 C7 28 30 29 A7 54 34 B2 C6 28 |.BY$...(0).T4..(|
000014F0: 42 59 24 AA C7 28 30 29 29 3A 53 34 B2 C6 28 42 |BY$..(0)):S4..(B|
00001500: 5A 24 AA C7 28 30 29 29 3A 89 20 32 35 32 30 00 |Z$..(0)):. 2520.|
00001510: 17 1D 0F 0A A0 20 32 00 3A 1D 14 0A 9F 20 32 2C |..... 2.:.... 2,|
00001520: 38 2C 32 2C 22 DA 5A DA 5A DA 5A DA 5A DA 5A DA |8,2,".Z.Z.Z.Z.Z.|
00001530: 5A DA 5A DA 5A 2C 50 2C 57 22 00 68 1D 19 0A 84 |Z.Z.Z,P,W".h....|
00001540: 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A |15,EN,EM$,ET,ES:|
00001550: 8B 20 45 4E B1 30 20 A7 20 A0 32 3A 9F 32 2C 38 |. EN.0 . .2:.2,8|
00001560: 2C 32 2C 22 23 22 3A 8E 00 79 1D 1E 0A 98 32 2C |,2,"#":..y....2,|
00001570: C7 28 39 39 29 3B 3A A0 32 00 97 1D 28 0A 98 31 |.(99);:.2...(..1|
00001580: 35 2C 22 53 30 3A DA 5A DA 5A DA 5A DA 5A DA 5A |5,"S0:.Z.Z.Z.Z.Z|
00001590: DA 5A DA 5A DA 5A 22 00 A7 1D 2D 0A 9F 20 32 2C |.Z.Z.Z"...-.. 2,|
000015A0: 38 2C 32 2C 22 23 22 00 BE 1D 32 0A 98 31 35 2C |8,2,"#"...2..15,|
000015B0: 22 55 31 3A 32 2C 30 22 3B 54 34 3B 53 34 00 C9 |"U1:2,0";T4;S4..|
000015C0: 1D 3C 0A 89 20 32 35 36 30 00 E0 1D 46 0A 98 31 |.<.. 2560...F..1|
000015D0: 35 2C 22 42 2D 50 3A 32 22 3B 49 AC 33 32 AA 32 |5,"B-P:2";I.32.2|
000015E0: 00 04 1E 50 0A 98 32 2C 46 54 24 28 46 32 29 3B |...P..2,FT$(F2);|
000015F0: C7 28 54 31 29 3B C7 28 53 31 29 3B 4E 46 24 28 |.(T1);.(S1);NF$(|
00001600: 46 32 29 3B 00 1C 1E 5A 0A 98 31 35 2C 22 42 2D |F2);...Z..15,"B-|
00001610: 50 3A 32 22 3B 49 AC 33 32 AA 33 30 00 34 1E 64 |P:2";I.32.30.4.d|
00001620: 0A 98 32 2C 4E 4C 24 28 46 32 29 3B 4E 48 24 28 |..2,NL$(F2);NH$(|
00001630: 46 32 29 3B 00 4B 1E 6E 0A 98 31 35 2C 22 55 32 |F2);.K.n..15,"U2|
00001640: 3A 32 2C 30 22 3B 54 34 3B 53 34 00 56 1E 78 0A |:2,0";T4;S4.V.x.|
00001650: 45 4E B2 30 3A 8E 00 7B 1E 8C 0A 8F 20 2A 2A 2A |EN.0:..{.... ***|
00001660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001670: 20 20 20 20 20 20 20 20 2A 2A 2A 00 A2 1E 8D 0A | ***.....|
00001680: 8F 20 22 14 2A 2A 2A 20 C4 45 54 45 52 4D 49 4E |. ".*** .ETERMIN|
00001690: 45 20 46 49 52 53 54 20 54 20 26 20 53 20 20 2A |E FIRST T & S *|
000016A0: 2A 2A 00 C7 1E 8E 0A 8F 20 2A 2A 2A 20 20 20 20 |**...... *** |
000016B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000016C0: 20 20 20 20 2A 2A 2A 00 DB 1E 96 0A 98 31 35 2C | ***......15,|
000016D0: 22 42 2D 41 3A 30 2C 31 2C 30 22 00 FC 1E A0 0A |"B-A:0,1,0".....|
000016E0: 84 31 35 2C 45 4E 2C 45 4D 24 2C 54 31 2C 53 31 |.15,EN,EM$,T1,S1|
000016F0: 3A 45 54 B2 54 31 3A 45 53 B2 53 31 00 1F 1F AA |:ET.T1:ES.S1....|
00001700: 0A 8B 20 45 4E B2 30 20 A7 20 54 31 B2 31 3A 54 |.. EN.0 . T1.1:T|
00001710: 32 B2 31 3A 53 31 B2 30 3A 53 32 B2 30 3A 8E 00 |2.1:S1.0:S2.0:..|
00001720: 41 1F B4 0A 8B 20 45 4E B3 B1 36 35 20 B0 20 28 |A.... EN..65 . (|
00001730: 45 4E B2 36 35 20 AF 20 54 31 B2 30 29 20 A7 20 |EN.65 . T1.0) . |
00001740: 8E 00 57 1F BE 0A 98 31 35 2C 22 42 2D 41 3A 30 |..W....15,"B-A:0|
00001750: 22 3B 54 31 3B 53 31 00 6E 1F C8 0A 54 32 B2 54 |";T1;S1.n...T2.T|
00001760: 31 3A 53 32 B2 53 31 3A 45 4E B2 30 3A 8E 00 93 |1:S2.S1:EN.0:...|
00001770: 1F 54 0B 8F 20 2A 2A 2A 20 20 20 20 20 20 20 20 |.T.. *** |
00001780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001790: 2A 2A 2A 00 BA 1F 55 0B 8F 20 22 14 2A 2A 2A 20 |***...U.. ".*** |
000017A0: C5 52 52 4F 52 20 57 48 49 4C 45 20 57 52 49 54 |.RROR WHILE WRIT|
000017B0: 49 4E 47 20 20 20 20 2A 2A 2A 00 DF 1F 56 0B 8F |ING ***...V..|
000017C0: 20 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 | *** |
000017D0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 | ***.|
000017E0: 11 20 5E 0B 99 22 11 11 1C 20 C1 4E 20 45 52 52 |. ^.."... .N ERR|
000017F0: 4F 52 20 48 41 53 20 4F 43 43 55 52 52 45 44 20 |OR HAS OCCURRED |
00001800: 44 55 52 49 4E 47 20 57 52 49 54 49 4E 47 20 21 |DURING WRITING !|
00001810: 22 00 2D 20 68 0B 99 22 11 97 22 45 4E 22 2C 22 |".- h..".."EN","|
00001820: 45 4D 24 22 2C 22 45 54 22 2C 22 45 53 00 5C 20 |EM$","ET","ES.\ |
00001830: 72 0B 99 22 11 1C 20 D4 48 45 20 43 4F 50 59 20 |r..".. .HE COPY |
00001840: 50 52 4F 43 45 44 55 52 45 20 48 41 53 20 42 45 |PROCEDURE HAS BE|
00001850: 45 4E 20 41 42 4F 52 54 45 44 2E 22 00 70 20 7C |EN ABORTED.".p ||
00001860: 0B 98 31 35 2C 22 56 30 22 3A A0 32 3A A0 31 35 |..15,"V0":.2:.15|
00001870: 00 81 20 86 0B 8D 20 39 30 30 30 3A 89 20 32 30 |.. ... 9000:. 20|
00001880: 30 00 A6 20 1E 23 8F 20 2A 2A 2A 20 20 20 20 20 |0.. .#. *** |
00001890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018A0: 20 20 20 2A 2A 2A 00 CD 20 1F 23 8F 20 22 14 2A | ***.. .#. ".*|
000018B0: 2A 2A 20 D7 41 49 54 20 46 4F 52 20 52 45 53 50 |** .AIT FOR RESP|
000018C0: 4F 4E 53 45 20 20 20 20 20 20 2A 2A 2A 00 F2 20 |ONSE ***.. |
000018D0: 20 23 8F 20 2A 2A 2A 20 20 20 20 20 20 20 20 20 | #. *** |
000018E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
000018F0: 2A 2A 00 1C 21 28 23 99 22 11 1F 20 20 20 20 20 |**..!(#.".. |
00001900: 20 20 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 | .RESS ANY KEY |
00001910: 57 48 45 4E 20 52 45 41 44 59 2E 22 00 32 21 32 |WHEN READY.".2!2|
00001920: 23 92 20 31 39 38 2C 31 3A 97 20 31 39 38 2C 30 |#. 198,1:. 198,0|
00001930: 3A 8E 00 00 00 31 B2 30 29 20 A7 20 8E 00 F4 1D |:....1.0) . ....|
00001940: BE 0A 98 31 35 2C 22 42 2D 41 3A 30 22 3B 54 31 |...15,"B-A:0";T1|
00001950: 3B 53 31 00 0B 1E C8 0A 54 32 B2 54 31 3A 53 32 |;S1.....T2.T1:S2|
00001960: B2 53 31 3A 45 4E B2 30 3A 8E 00 30 1E 54 0B 8F |.S1:EN.0:..0.T..|
00001970: 20 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 | *** |
00001980: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 | ***.|
00001990: 57 1E 55 0B 8F 20 22 14 2A 2A 2A 20 C5 52 52 4F |W.U.. ".*** .RRO|
000019A0: 52 20 57 48 49 4C 45 20 57 52 49 54 49 4E 47 20 |R WHILE WRITING |
000019B0: 20 20 20 2A 2A 2A 00 7C 1E 56 0B 8F 20 2A 2A 2A | ***.|.V.. ***|
000019C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000019D0: 20 20 20 20 20 20 20 20 2A 2A 2A 00 AE 1E 5E 0B | ***...^.|
000019E0: 99 22 11 11 1C 20 C1 4E 20 45 52 52 4F 52 20 48 |."... .N ERROR H|
000019F0: 41 53 20 4F 43 43 55 52 52 45 44 20 44 55 52 49 |AS OCCURRED DURI|
00001A00: 4E 47 20 57 52 49 54 49 4E 47 20 21 22 00 CA 1E |NG WRITING !"...|
00001A10: 68 0B 99 22 11 97 22 45 4E 22 2C 22 45 4D 24 22 |h..".."EN","EM$"|
00001A20: 2C 22 45 54 22 2C 22 45 53 00 F9 1E 72 0B 99 22 |,"ET","ES...r.."|
00001A30: 11 1C 20 D4 48 45 20 43 4F 50 59 20 50 52 4F 43 |.. .HE COPY PROC|
00001A40: 45 44 55 52 45 20 48 41 53 20 42 45 45 4E 20 41 |EDURE HAS BEEN A|
00001A50: 42 4F 52 54 45 44 2E 22 00 56 1F 7C 0B 98 31 35 |BORTED.".V.|..15|
00001A60: 2C 22 56 30 22 3A A0 32 3A A0 31 35 00 67 1F 86 |,"V0":.2:.15.g..|
00001A70: 0B 8D 20 39 30 30 30 3A 89 20 32 30 30 00 8C 1F |.. 9000:. 200...|
00001A80: 1E 23 8F 20 2A 2A 2A 20 20 20 20 20 20 20 20 20 |.#. *** |
00001A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00001AA0: 2A 2A 00 B3 1F 1F 23 8F 20 22 14 2A 2A 2A 20 D7 |**....#. ".*** .|
00001AB0: 41 49 54 20 46 4F 52 20 52 45 53 50 4F 4E 53 45 |AIT FOR RESPONSE|
00001AC0: 20 20 20 20 20 20 2A 2A 2A 00 D8 1F 20 23 8F 20 | ***... #. |
00001AD0: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |*** |
00001AE0: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 6F | ***.o|
00001AF0: 20 28 23 99 22 11 1F 20 20 20 20 20 20 20 D0 52 | (#.".. .R|
00001B00: 45 53 53 20 41 4E 59 20 4B 45 59 20 57 48 45 4E |ESS ANY KEY WHEN|
00001B10: 20 52 45 41 44 59 2E 22 00 85 20 32 23 92 20 31 | READY.".. 2#. 1|
00001B20: 39 38 2C 31 3A 97 20 31 39 38 2C 30 3A 8E 00 00 |98,1:. 198,0:...|
00001B30: 00 31 B2 30 29 20 A7 20 8E 00 F4 1D BE 0A 98 31 |.1.0) . .......1|
00001B40: 35 2C 22 42 2D 41 3A 30 22 3B 54 31 3B 53 31 00 |5,"B-A:0";T1;S1.|
00001B50: 0B 1E C8 0A 54 32 B2 54 31 3A 53 32 B2 53 31 3A |....T2.T1:S2.S1:|
00001B60: 45 4E B2 30 3A 8E 00 30 1E 54 0B 8F 20 2A 2A 2A |EN.0:..0.T.. ***|
00001B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B80: 20 20 20 20 20 20 20 20 2A 2A 2A 00 57 1E 55 0B | ***.W.U.|
00001B90: 8F 20 22 14 2A 2A 2A 20 C5 52 52 4F 52 20 57 48 |. ".*** .RROR WH|
00001BA0: 49 4C 45 20 57 52 49 54 49 4E 47 20 20 20 20 2A |ILE WRITING *|
00001BB0: 2A 2A 00 7C 1E 56 0B 8F 20 2A 2A 2A 20 20 20 20 |**.|.V.. *** |
00001BC0: 20 20 20 20 20 20 54 | T |
..*...."....... COPY-SOME 1541 VERSION 2
.2.8...."........V...."....... BY PAUL
KELLAM.}...."....... 105 TUTELA HEIGHT
S RD.. ...."....... BRANTFORD, ONTARIO
...#.."....... N3T 1A4.F.(..".........
.-.."....... ANY COMMENTS, QUESTIONS OR
SUGGESTIONS...2.."....... ARE WELCOME..$
.7.."........U.<.."....... NOTE : FOR AN
DECREASE IN THE # OF...A..".......
TIMES IT IS NECESSARY TO SWITCH...F..
"....... DISKS, COMPACT THIS PROG
RAM...K.. "........ USING 'CONSTR
ICTOR.C' FROM TPUG...P..".......
DISK # D4...U.."........F.V.. ***
***.O.W..". *** SET U
P VARIABLES & COLOUR***...X.. ***
***...Z.. F.1 . 95.C.
[.F.1:."COPY SOME ML.D",8,1..._..53280,6
:.53281,15:."."...D.F.0:.52037,B(56):.56
,B(46).11:.52036,B(46).12.>.I..52038,B(5
5):.55,255:.51,255:.52,B(56):..|.N.. DT$
(50),DS$(50),FT$(50),NF$(50),NL$(50),NH$
(50),NB%(50).....NF.0:TD$.""...B.. ***
***.Z.C..". *** D
ISPLAY/CHOOSE OPTIONS ***...D.. ***
***.*.H..G(14)"....
".10)"COPY-SOME 1541 V2.2".J.M...9)"....
.................".E.R...18)".BY PAUL KE
LLAM"......"... F1 .SELECT SOURCE DISK &
FILES/PROGRAMS"......" TO BE COPIED
.".T....".. F3 .SELECT TARGET DISK."....
.. TD$."" ..". (CURRENTLY '";TD$;"')"
.&....".. F5 .PERFORM COPY PROCEDURE.".^
.... RP%.1 . .". (NO FURTHER DATA REA
DS REQUIRED.)".....".. F7 .EXIT FROM PR
OGRAM."......"... PRESS KEY FOR DESIR
ED OPERATION.".J.".. 198,1:. OP$:OP.F(OP
$)...,.. OP.133 . OP.136 . 290...6.. OP.
.136 . . 320.1.8..".... GOOD-BYE !..":.:
.55,B(52038):.56,B(52037).K.:..51,B(55):
.52,B(56):..P.@.. OP.132 . 1000,1500,200
0: . 200.V.......... ***
***.B.... ".*** DETERMINE FILES/
PROGS ***...... ".*** TO BE COPIED.
***...... ***
***.P...NF.0:."... INSERT SOURCE DISK
.":. 9000:.".... PLEASE WAIT...".P...RP%
.0:. 15,8,15:. 2,8,2,"#"......15,EN,EM$,
ET,ES:. EN..0 . 2: 15:. 1000......15,"U
1:2,0";18;0.G....15,"B-P:2,144"...$.SI$.
"":. I.1 . 20:.#2,BY$:SI$.SI$.BY$:....(.
."... SOURCE: ."SI$.:.)..".. CHOOSE PROG
RAMS/FILES TO BE COPIED..".V....15,"B-P:
2,0":.#2,T$,S$.T.8.T.F(T$.G(0)):S.F(S$.G
(0))...B.. T.0 . T.35 . S.20 . NF.51 . 1
230...L..15,"U1:2,0";T;S.M.V.. I.0 . 7:.
NF.51 . 1220...`..15,"B-P:2";I.32.2...J
..#2,FT$(NF):. F(FT$(NF).G(0)).129 . 122
0.).T..#2,DT$(NF),DS$(NF).^.~.NF$(NF).""
:.J.1.16:.#2,BY$:NF$(NF).NF$(NF).BY$:...
....". COPY ."NF$(NF)". (Y/N) ?";......
198,1:. CH$:. CH$."N" . 1210...... CH$..
"Y" . 1170......15,"B-P:2";I.32.30:.#2,N
L$(NF),NH$(NF):. NL$(NF)."".NL$(NF).G(0)
. .... NH$(NF)."" . NH$(NF).G(0).F...NB%
(NF).256.F(NH$(NF)).F(NL$(NF)).R...NF.NF
.1.Q.....11);". ".18)" "..D..I
:. 1070...N. 2: 15:....... ***
***.X.... ".*** READ TARGE
T ID ***...... ***
***.*...TD$."":."... INSERT TA
RGET DISK.":. 9000.E....".... PLEASE WAI
T..."._.... 15,8,15:. 2,8,2,"#"......15,
EN,EM$,ET,ES:. EN..0 . 2: 15:. 1500....
..15,"U1:2,0";18;0......15,"B-P:2,144"..
.... I.1 . 20:.#2,BY$:TD$.TD$.BY$:....".
2: 15:....P.. ***
***.4.Q.. ".*** COPY PROCEDURE
***.Y.R.. *** **
*.B.Z.."."...... NF.0 . .".. SELECT SOUR
CE & FILES FIRST, PLEASE!".X.... TD$.""
. .".. SELECT TARGET DISK FIRST, PLEASE!
":. 2040...... TD$.SI$ . NF..0 . .".. SO
URCE & TARGET DISKS HAVE SAME ID!".C....
NF.0 . TD$."" . TD$.SI$ . . 9000:..J...
F1.0:B1.0:F2.0:B2.0:. RP%.1 . 2210.T...R
P%.1.....BN.B(52036):.51978,BN:.52008,BN
...... *** ***...
... ".*** READ SOME DATA ***....
.. *** ***.F...."
.... INSERT SOURCE DISK.":. 9000:."....P
LEASE WAIT...".`.... 15,8,15:. 2,8,2,"#"
... ..15,EN,EM$,ET,ES:. EN..0 . 2: 15:.
2060...*..15,"U1:2,0";18;0...4..15,"B-P
:2,144"...>.SO$."":. I.1 . 20:.#2,BY$:SO
$.SO$.BY$:....H.. SO$..SI$ . 2: 15:. 20
60.".M.. B1.NB%(F1) . B1.0:F1.F1.1.5.R..
F1.NF . 2200.V.W.. BN.B(52037) . RP%.0:
. 2200.Y.\.. B1.0 . T$.DT$(F1):S$.DS$(F1
)...A.T.F(T$.G(0)):S.F(S$.G(0))...F..15,
"U1:2,0,";T;S...P..15,"B-P:2,2".K.Z.. 51
968.....BN.BN.1:B1.B1.1......15,"B-P:2,0
":.#2,T$,S$:. S$."" . S$.G(0)...... 2125
.=.... *** ***.D.
... ".*** WRITE THE DATA ***....
.. *** ***..... 2
: 15:BN.B(52036):. 52008,BN......".... I
NSERT TARGET DISK.":. 9000:."....PLEASE
WAIT..."...... 15,8,15:. 2,8,2,"#".&....
15,EN,EM$,ET,ES:. EN..0 . 2210.<.J..15,"
U1:2,0";18;0.P.T..15,"B-P:2,144".|...TA$
."":. I.1 . 20:.#2,BY$:TA$.TA$.BY$:.....
.. TA$..TD$ . 2210...... B2.NB%(F2) . B2
.0:. 2500:F2.F2.1.Q.... EN.0 . E.1:. 290
0...... F2.NF . 2440...... B2.0 . . 2700
:. EN.0 . E.2:. 2900...... RP%.1 . 2340.
C.... F2.F1 . B2.B1 . 2: 15:. 2050.U.$.
.15,"B-P:2,2".A.... 52001.Q.0.T3.T2:S3.S
2...3.. B2.NB%(F2).1 . T3.0:S3.255:. 240
0...8..15,"B-A:0";T3;S3.D.B..15,EN,EM$,T
4,S4.X.G.. EN.0 . . 2400...L.. (EN.65 .
T4.0) . (EN.0 . EN..65) . E.3:. 2900.%.Q
.. T4.18 . T4.19:S4.0.E.V.. EN.65 . T3.T
4:S3.S4:.2360.W.`..15,"B-P:2,0".K.J..2,G
(T3);G(S3);...T..15,"U2:2,0";T2;S2...~.B
N.BN.1:B2.B2.1:T2.T3:S2.S3:. 2290..... 2
: 15:....D.. ***
***...E.. ".*** CREATE DIRECTORY ENTRY *
**.'.F.. *** ***.
6.N.T4.18:S4.1.Q.X..15,"U1:2,0";T4;S4:I.
0.H....15,"B-P:2";I.32.2......#2,BY$:. F
(BY$.G(0)).129 . 2630...... I.7 . I.I.1:
. 2530......15,"B-P:2,0"......#2,BY$,BZ$
:BY$.G(F(BY$.G(0)))......BY$..G(0).T4.F(
BY$.G(0)):S4.F(BZ$.G(0)):. 2520..... 2.
:.... 2,8,2,"ZZZZZZZZZZZZZZZZ,P,W".H....
15,EN,EM$,ET,ES:. EN.0 . 2:.2,8,2,"#":.
.Y....2,G(99);: 2...(..15,"S0:ZZZZZZZZZZ
ZZZZZZ"...-.. 2,8,2,"#"...2..15,"U1:2,0"
;T4;S4.I.<.. 2560...F..15,"B-P:2";I.32.2
...P..2,FT$(F2);G(T1);G(S1);NF$(F2);...Z
..15,"B-P:2";I.32.30.4.D..2,NL$(F2);NH$(
F2);.K.N..15,"U2:2,0";T4;S4.V.X.EN.0:..{
.... *** ***.....
. ".*** DETERMINE FIRST T & S ***.G....
*** ***......15,
"B-A:0,1,0"... ..15,EN,EM$,T1,S1:ET.T1:E
S.S1...... EN.0 . T1.1:T2.1:S1.0:S2.0:..
A.... EN..65 . (EN.65 . T1.0) . ..W....1
5,"B-A:0";T1;S1.N.H.T2.T1:S2.S1:EN.0:...
.T.. *** ***...U.
. ".*** ERROR WHILE WRITING ***...V..
*** ***.. ^.."..
. AN ERROR HAS OCCURRED DURING WRITING !
".- H..".."EN","EM$","ET","ES.\ R..".. T
HE COPY PROCEDURE HAS BEEN ABORTED.".P |
..15,"V0": 2: 15.. ... 9000:. 200.. .#.
*** ***.M .#. ".*
** WAIT FOR RESPONSE ***.. #. ***
***..!(#."..
PRESS ANY KEY WHEN READY.".2!2#. 198,1
:. 198,0:....1.0) . .......15,"B-A:0";T1
;S1...H.T2.T1:S2.S1:EN.0:..0.T.. ***
***.W.U.. ".*** ERRO
R WHILE WRITING ***.|.V.. ***
***...^.."... AN ERROR H
AS OCCURRED DURING WRITING !".J.H..".."E
N","EM$","ET","ES...R..".. THE COPY PROC
EDURE HAS BEEN ABORTED.".V.|..15,"V0": 2
: 15.G.... 9000:. 200....#. ***
***....#. ".*** WAIT FOR
RESPONSE ***.X. #. ***
***.O (#.".. PRESS ANY
KEY WHEN READY.".. 2#. 198,1:. 198,0:...
.1.0) . .......15,"B-A:0";T1;S1...H.T2.T
1:S2.S1:EN.0:..0.T.. ***
***.W.U.. ".*** ERROR WHILE WRIT
ING ***.|.V.. *** T
> CLICK IMAGE PREVIEW FOR FULL MODAL