COPY SOME
FILE INFORMATION
FILENAME(S): COPY SOME
FILE TYPE(S): PRG
FILE SIZE: 6.9K
FIRST SEEN: 2025-11-30 21:25:25
APPEARS ON: 1 disk(s)
FILE HASH
793b018e9df5c09384a1de7aa944526ba5731d454214d9b75595f2176b496c1b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64UTIL | COPY SOME | PRG | DuncanTwain | 9 | 15 | 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 C2 0A 5B 00 46 B2 31 3A 93 22 | . 95...[.F.1:."|
000002B0: 2D 43 4F 50 59 20 53 4F 4D 45 20 4D 4C 22 2C 38 |-COPY SOME ML",8|
000002C0: 2C 31 00 DE 0A 5F 00 97 35 33 32 38 30 2C 36 3A |,1..._..53280,6:|
000002D0: 97 35 33 32 38 31 2C 31 35 3A 99 22 93 22 00 10 |.53281,15:."."..|
000002E0: 0B 64 00 46 B2 30 3A 97 35 32 30 33 37 2C C2 28 |.d.F.0:.52037,.(|
000002F0: 35 36 29 3A 97 35 36 2C C2 28 34 36 29 AA 31 31 |56):.56,.(46).11|
00000300: 3A 97 35 32 30 33 36 2C C2 28 34 36 29 AA 31 32 |:.52036,.(46).12|
00000310: 00 3D 0B 69 00 97 35 32 30 33 38 2C C2 28 35 35 |.=.i..52038,.(55|
00000320: 29 3A 97 35 35 2C 32 35 35 3A 97 35 31 2C 32 35 |):.55,255:.51,25|
00000330: 35 3A 97 35 32 2C C2 28 35 36 29 3A 9C 00 7B 0B |5:.52,.(56):..{.|
00000340: 6E 00 86 20 44 54 24 28 35 30 29 2C 44 53 24 28 |n.. DT$(50),DS$(|
00000350: 35 30 29 2C 46 54 24 28 35 30 29 2C 4E 46 24 28 |50),FT$(50),NF$(|
00000360: 35 30 29 2C 4E 4C 24 28 35 30 29 2C 4E 48 24 28 |50),NL$(50),NH$(|
00000370: 35 30 29 2C 4E 42 25 28 35 30 29 00 8B 0B BE 00 |50),NB%(50).....|
00000380: 4E 46 B2 30 3A 54 44 24 B2 22 22 00 B1 0B C2 00 |NF.0:TD$."".....|
00000390: 8F 20 2A 2A 2A 20 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 2A 2A | **|
000003B0: 2A 00 D9 0B C3 00 8F 22 14 20 2A 2A 2A 20 C4 49 |*......". *** .I|
000003C0: 53 50 4C 41 59 2F C3 48 4F 4F 53 45 20 4F 50 54 |SPLAY/.HOOSE OPT|
000003D0: 49 4F 4E 53 20 20 2A 2A 2A 00 FF 0B C4 00 8F 20 |IONS ***...... |
000003E0: 2A 2A 2A 20 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 2A 2A 2A 00 | ***.|
00000400: 29 0C C8 00 99 C7 28 31 34 29 22 93 11 11 97 22 |).....(14)"...."|
00000410: A6 31 30 29 22 C3 4F 50 59 2D D3 4F 4D 45 20 31 |.10)".OPY-.OME 1|
00000420: 35 34 31 20 56 32 2E 32 22 00 49 0C CD 00 99 A6 |541 V2.2".I.....|
00000430: 39 29 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |9)".............|
00000440: B8 B8 B8 B8 B8 B8 B8 B8 22 00 64 0C D2 00 99 A3 |........".d.....|
00000450: 31 38 29 22 98 42 59 20 D0 41 55 4C 20 CB 45 4C |18)".BY .AUL .EL|
00000460: 4C 41 4D 22 00 97 0C DC 00 99 22 11 11 1F 20 46 |LAM"......"... F|
00000470: 31 20 97 D3 45 4C 45 43 54 20 D3 4F 55 52 43 45 |1 ..ELECT .OURCE|
00000480: 20 C4 49 53 4B 20 26 20 C6 49 4C 45 53 2F D0 52 | .ISK & .ILES/.R|
00000490: 4F 47 52 41 4D 53 22 00 B1 0C E6 00 99 22 20 20 |OGRAMS"......" |
000004A0: 20 20 20 54 4F 20 42 45 20 43 4F 50 49 45 44 2E | TO BE COPIED.|
000004B0: 22 00 D3 0C F0 00 99 22 11 1F 20 46 33 20 97 D3 |"......".. F3 ..|
000004C0: 45 4C 45 43 54 20 D4 41 52 47 45 54 20 C4 49 53 |ELECT .ARGET .IS|
000004D0: 4B 2E 22 00 FF 0C F5 00 8B 20 54 44 24 B1 22 22 |K."...... TD$.""|
000004E0: 20 A7 99 22 98 20 20 20 20 28 C3 55 52 52 45 4E | ..". (.URREN|
000004F0: 54 4C 59 20 27 22 3B 54 44 24 3B 22 27 29 22 00 |TLY '";TD$;"')".|
00000500: 25 0D FA 00 99 22 11 1F 20 46 35 20 97 D0 45 52 |%....".. F5 ..ER|
00000510: 46 4F 52 4D 20 C3 4F 50 59 20 D0 52 4F 43 45 44 |FORM .OPY .ROCED|
00000520: 55 52 45 2E 22 00 5D 0D FF 00 8B 20 52 50 25 B2 |URE.".].... RP%.|
00000530: 31 20 A7 20 99 22 98 20 20 20 20 28 CE 4F 20 46 |1 . .". (.O F|
00000540: 55 52 54 48 45 52 20 44 41 54 41 20 52 45 41 44 |URTHER DATA READ|
00000550: 53 20 52 45 51 55 49 52 45 44 2E 29 22 00 7E 0D |S REQUIRED.)".~.|
00000560: 04 01 99 22 11 1F 20 46 37 20 97 C5 58 49 54 20 |...".. F7 ..XIT |
00000570: 46 52 4F 4D 20 D0 52 4F 47 52 41 4D 2E 22 00 AD |FROM .ROGRAM."..|
00000580: 0D 18 01 99 22 11 11 1F 20 20 20 20 D0 52 45 53 |...."... .RES|
00000590: 53 20 4B 45 59 20 46 4F 52 20 44 45 53 49 52 45 |S KEY FOR DESIRE|
000005A0: 44 20 4F 50 45 52 41 54 49 4F 4E 2E 22 00 C9 0D |D OPERATION."...|
000005B0: 22 01 92 20 31 39 38 2C 31 3A A1 20 4F 50 24 3A |".. 198,1:. OP$:|
000005C0: 4F 50 B2 C6 28 4F 50 24 29 00 E5 0D 2C 01 8B 20 |OP..(OP$)...,.. |
000005D0: 4F 50 B3 31 33 33 20 B0 20 4F 50 B1 31 33 36 20 |OP.133 . OP.136 |
000005E0: A7 20 32 39 30 00 FB 0D 36 01 8B 20 4F 50 B3 B1 |. 290...6.. OP..|
000005F0: 31 33 36 20 A7 20 89 20 33 32 30 00 30 0E 38 01 |136 . . 320.0.8.|
00000600: 99 22 93 11 11 97 20 C7 4F 4F 44 2D 42 59 45 20 |.".... .OOD-BYE |
00000610: 21 11 11 22 3A 9C 3A 97 35 35 2C C2 28 35 32 30 |!..":.:.55,.(520|
00000620: 33 38 29 3A 97 35 36 2C C2 28 35 32 30 33 37 29 |38):.56,.(52037)|
00000630: 00 4A 0E 3A 01 97 35 31 2C C2 28 35 35 29 3A 97 |.J.:..51,.(55):.|
00000640: 35 32 2C C2 28 35 36 29 3A 80 00 6F 0E 40 01 91 |52,.(56):..o.@..|
00000650: 20 4F 50 AB 31 33 32 20 8D 20 31 30 30 30 2C 31 | OP.132 . 1000,1|
00000660: 35 30 30 2C 32 30 30 30 3A 20 89 20 32 30 30 00 |500,2000: . 200.|
00000670: 75 0E E7 03 80 00 9A 0E E8 03 8F 20 2A 2A 2A 20 |u.......... *** |
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 2A 2A 2A 00 C1 0E E9 03 8F | ***......|
000006A0: 20 22 14 2A 2A 2A 20 C4 45 54 45 52 4D 49 4E 45 | ".*** .ETERMINE|
000006B0: 20 C6 49 4C 45 53 2F D0 52 4F 47 53 20 20 2A 2A | .ILES/.ROGS **|
000006C0: 2A 00 E8 0E EA 03 8F 20 22 14 2A 2A 2A 20 54 4F |*...... ".*** TO|
000006D0: 20 42 45 20 C3 4F 50 49 45 44 2E 20 20 20 20 20 | BE .OPIED. |
000006E0: 20 20 20 20 20 2A 2A 2A 00 0D 0F EB 03 8F 20 2A | ***...... *|
000006F0: 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |** |
00000700: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 4F 0F | ***.O.|
00000710: F2 03 4E 46 B2 30 3A 99 22 93 11 97 20 C9 4E 53 |..NF.0:."... .NS|
00000720: 45 52 54 20 D3 4F 55 52 43 45 20 C4 49 53 4B 2E |ERT .OURCE .ISK.|
00000730: 22 3A 8D 20 39 30 30 30 3A 99 22 93 11 11 97 20 |":. 9000:.".... |
00000740: D0 4C 45 41 53 45 20 57 41 49 54 2E 2E 2E 22 00 |.LEASE WAIT...".|
00000750: 6F 0F FC 03 52 50 25 B2 30 3A 9F 20 31 35 2C 38 |o...RP%.0:. 15,8|
00000760: 2C 31 35 3A 9F 20 32 2C 38 2C 32 2C 22 23 22 00 |,15:. 2,8,2,"#".|
00000770: 9C 0F 06 04 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 |.....15,EN,EM$,E|
00000780: 54 2C 45 53 3A 8B 20 45 4E B3 B1 30 20 A7 20 A0 |T,ES:. EN..0 . .|
00000790: 32 3A A0 31 35 3A 89 20 31 30 30 30 00 B2 0F 10 |2:.15:. 1000....|
000007A0: 04 98 31 35 2C 22 55 31 3A 32 2C 30 22 3B 31 38 |..15,"U1:2,0";18|
000007B0: 3B 30 00 C6 0F 1A 04 98 31 35 2C 22 42 2D 50 3A |;0......15,"B-P:|
000007C0: 32 2C 31 34 34 22 00 F2 0F 24 04 53 49 24 B2 22 |2,144"...$.SI$."|
000007D0: 22 3A 81 20 49 B2 31 20 A4 20 32 30 3A A1 23 32 |":. I.1 . 20:.#2|
000007E0: 2C 42 59 24 3A 53 49 24 B2 53 49 24 AA 42 59 24 |,BY$:SI$.SI$.BY$|
000007F0: 3A 82 00 0A 10 28 04 99 22 93 11 1F 20 D3 4F 55 |:....(.."... .OU|
00000800: 52 43 45 3A 20 98 22 53 49 24 00 39 10 29 04 99 |RCE: ."SI$.9.)..|
00000810: 22 11 97 20 C3 48 4F 4F 53 45 20 50 52 4F 47 52 |".. .HOOSE PROGR|
00000820: 41 4D 53 2F 46 49 4C 45 53 20 54 4F 20 42 45 20 |AMS/FILES TO BE |
00000830: 43 4F 50 49 45 44 2E 11 22 00 55 10 2E 04 98 31 |COPIED..".U....1|
00000840: 35 2C 22 42 2D 50 3A 32 2C 30 22 3A A1 23 32 2C |5,"B-P:2,0":.#2,|
00000850: 54 24 2C 53 24 00 73 10 38 04 54 B2 C6 28 54 24 |T$,S$.s.8.T..(T$|
00000860: AA C7 28 30 29 29 3A 53 B2 C6 28 53 24 AA C7 28 |..(0)):S..(S$..(|
00000870: 30 29 29 00 9A 10 42 04 8B 20 54 B2 30 20 B0 20 |0))...B.. T.0 . |
00000880: 54 B1 33 35 20 B0 20 53 B1 32 30 20 B0 20 4E 46 |T.35 . S.20 . NF|
00000890: B2 35 31 20 A7 20 31 32 33 30 00 AF 10 4C 04 98 |.51 . 1230...L..|
000008A0: 31 35 2C 22 55 31 3A 32 2C 30 22 3B 54 3B 53 00 |15,"U1:2,0";T;S.|
000008B0: CC 10 56 04 81 20 49 B2 30 20 A4 20 37 3A 8B 20 |..V.. I.0 . 7:. |
000008C0: 4E 46 B2 35 31 20 A7 20 31 32 32 30 00 E3 10 60 |NF.51 . 1220...`|
000008D0: 04 98 31 35 2C 22 42 2D 50 3A 32 22 3B 49 AC 33 |..15,"B-P:2";I.3|
000008E0: 32 AA 32 00 10 11 6A 04 A1 23 32 2C 46 54 24 28 |2.2...j..#2,FT$(|
000008F0: 4E 46 29 3A 8B 20 C6 28 46 54 24 28 4E 46 29 AA |NF):. .(FT$(NF).|
00000900: C7 28 30 29 29 B3 31 32 39 20 A7 20 31 32 32 30 |.(0)).129 . 1220|
00000910: 00 28 11 74 04 A1 23 32 2C 44 54 24 28 4E 46 29 |.(.t..#2,DT$(NF)|
00000920: 2C 44 53 24 28 4E 46 29 00 5D 11 7E 04 4E 46 24 |,DS$(NF).].~.NF$|
00000930: 28 4E 46 29 B2 22 22 3A 81 4A B2 31 A4 31 36 3A |(NF)."":.J.1.16:|
00000940: A1 23 32 2C 42 59 24 3A 4E 46 24 28 4E 46 29 B2 |.#2,BY$:NF$(NF).|
00000950: 4E 46 24 28 4E 46 29 AA 42 59 24 3A 82 00 80 11 |NF$(NF).BY$:....|
00000960: 88 04 99 22 98 20 C3 4F 50 59 20 97 22 4E 46 24 |...". .OPY ."NF$|
00000970: 28 4E 46 29 22 98 20 28 59 2F 4E 29 20 3F 22 3B |(NF)". (Y/N) ?";|
00000980: 00 A3 11 92 04 92 20 31 39 38 2C 31 3A A1 20 43 |...... 198,1:. C|
00000990: 48 24 3A 8B 20 43 48 24 B2 22 4E 22 20 A7 20 31 |H$:. CH$."N" . 1|
000009A0: 32 31 30 00 B9 11 9C 04 8B 20 43 48 24 B3 B1 22 |210...... CH$.."|
000009B0: 59 22 20 A7 20 31 31 37 30 00 FF 11 A6 04 98 31 |Y" . 1170......1|
000009C0: 35 2C 22 42 2D 50 3A 32 22 3B 49 AC 33 32 AA 33 |5,"B-P:2";I.32.3|
000009D0: 30 3A A1 23 32 2C 4E 4C 24 28 4E 46 29 2C 4E 48 |0:.#2,NL$(NF),NH|
000009E0: 24 28 4E 46 29 3A 8B 20 4E 4C 24 28 4E 46 29 B2 |$(NF):. NL$(NF).|
000009F0: 22 22 A7 4E 4C 24 28 4E 46 29 B2 C7 28 30 29 00 |"".NL$(NF)..(0).|
00000A00: 1F 12 AB 04 8B 20 4E 48 24 28 4E 46 29 B2 22 22 |..... NH$(NF).""|
00000A10: 20 A7 20 4E 48 24 28 4E 46 29 B2 C7 28 30 29 00 | . NH$(NF)..(0).|
00000A20: 45 12 AD 04 4E 42 25 28 4E 46 29 B2 32 35 36 AC |E...NB%(NF).256.|
00000A30: C6 28 4E 48 24 28 4E 46 29 29 AA C6 28 4E 4C 24 |.(NH$(NF))..(NL$|
00000A40: 28 4E 46 29 29 00 51 12 B0 04 4E 46 B2 4E 46 AA |(NF)).Q...NF.NF.|
00000A50: 31 00 70 12 BA 04 99 A6 31 31 29 3B 22 91 20 20 |1.p.....11);". |
00000A60: 20 20 22 A6 31 38 29 22 20 20 20 20 20 20 20 22 | ".18)" "|
00000A70: 00 7E 12 C4 04 82 49 3A 89 20 31 30 37 30 00 8B |.~....I:. 1070..|
00000A80: 12 CE 04 A0 32 3A A0 31 35 3A 8E 00 B0 12 DC 05 |....2:.15:......|
00000A90: 8F 20 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 |. *** |
00000AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A | ***|
00000AB0: 00 D7 12 DD 05 8F 20 22 14 2A 2A 2A 20 D2 45 41 |...... ".*** .EA|
00000AC0: 44 20 D4 41 52 47 45 54 20 49 44 20 20 20 20 20 |D .ARGET ID |
00000AD0: 20 20 20 20 2A 2A 2A 00 FC 12 DE 05 8F 20 2A 2A | ***...... **|
00000AE0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000AF0: 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 29 13 E6 | ***.)..|
00000B00: 05 54 44 24 B2 22 22 3A 99 22 93 11 97 20 C9 4E |.TD$."":."... .N|
00000B10: 53 45 52 54 20 D4 41 52 47 45 54 20 C4 49 53 4B |SERT .ARGET .ISK|
00000B20: 2E 22 3A 8D 20 39 30 30 30 00 44 13 EB 05 99 22 |.":. 9000.D...."|
00000B30: 93 11 11 97 20 D0 4C 45 41 53 45 20 57 41 49 54 |.... .LEASE WAIT|
00000B40: 2E 2E 2E 22 00 5E 13 F0 05 9F 20 31 35 2C 38 2C |...".^.... 15,8,|
00000B50: 31 35 3A 9F 20 32 2C 38 2C 32 2C 22 23 22 00 8B |15:. 2,8,2,"#"..|
00000B60: 13 FA 05 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 |....15,EN,EM$,ET|
00000B70: 2C 45 53 3A 8B 20 45 4E B3 B1 30 20 A7 20 A0 32 |,ES:. EN..0 . .2|
00000B80: 3A A0 31 35 3A 89 20 31 35 30 30 00 A1 13 04 06 |:.15:. 1500.....|
00000B90: 98 31 35 2C 22 55 31 3A 32 2C 30 22 3B 31 38 3B |.15,"U1:2,0";18;|
00000BA0: 30 00 B5 13 0E 06 98 31 35 2C 22 42 2D 50 3A 32 |0......15,"B-P:2|
00000BB0: 2C 31 34 34 22 00 DA 13 18 06 81 20 49 B2 31 20 |,144"...... I.1 |
00000BC0: A4 20 32 30 3A A1 23 32 2C 42 59 24 3A 54 44 24 |. 20:.#2,BY$:TD$|
00000BD0: B2 54 44 24 AA 42 59 24 3A 82 00 E7 13 22 06 A0 |.TD$.BY$:...."..|
00000BE0: 32 3A A0 31 35 3A 8E 00 0C 14 D0 07 8F 20 2A 2A |2:.15:....... **|
00000BF0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000C00: 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 33 14 D1 | ***.3..|
00000C10: 07 8F 20 22 14 2A 2A 2A 20 C3 4F 50 59 20 D0 52 |.. ".*** .OPY .R|
00000C20: 4F 43 45 44 55 52 45 20 20 20 20 20 20 20 20 20 |OCEDURE |
00000C30: 2A 2A 2A 00 58 14 D2 07 8F 20 2A 2A 2A 20 20 20 |***.X.... *** |
00000C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C50: 20 20 20 20 20 2A 2A 2A 00 61 14 DA 07 99 22 93 | ***.a....".|
00000C60: 22 00 99 14 E4 07 8B 20 4E 46 B2 30 20 A7 20 99 |"...... NF.0 . .|
00000C70: 22 11 1C 20 D3 45 4C 45 43 54 20 53 4F 55 52 43 |".. .ELECT SOURC|
00000C80: 45 20 26 20 46 49 4C 45 53 20 46 49 52 53 54 2C |E & FILES FIRST,|
00000C90: 20 50 4C 45 41 53 45 21 22 00 D7 14 EE 07 8B 20 | PLEASE!"...... |
00000CA0: 54 44 24 B2 22 22 20 A7 20 99 22 11 1C 20 D3 45 |TD$."" . .".. .E|
00000CB0: 4C 45 43 54 20 54 41 52 47 45 54 20 44 49 53 4B |LECT TARGET DISK|
00000CC0: 20 46 49 52 53 54 2C 20 50 4C 45 41 53 45 21 22 | FIRST, PLEASE!"|
00000CD0: 3A 89 20 32 30 34 30 00 19 15 F3 07 8B 20 54 44 |:. 2040...... TD|
00000CE0: 24 B2 53 49 24 20 AF 20 4E 46 B3 B1 30 20 A7 20 |$.SI$ . NF..0 . |
00000CF0: 99 22 11 1C 20 D3 4F 55 52 43 45 20 26 20 D4 41 |.".. .OURCE & .A|
00000D00: 52 47 45 54 20 44 49 53 4B 53 20 48 41 56 45 20 |RGET DISKS HAVE |
00000D10: 53 41 4D 45 20 49 44 21 22 00 42 15 F8 07 8B 20 |SAME ID!".B.... |
00000D20: 4E 46 B2 30 20 B0 20 54 44 24 B2 22 22 20 B0 20 |NF.0 . TD$."" . |
00000D30: 54 44 24 B2 53 49 24 20 A7 20 8D 20 39 30 30 30 |TD$.SI$ . . 9000|
00000D40: 3A 8E 00 69 15 FD 07 46 31 B2 30 3A 42 31 B2 30 |:..i...F1.0:B1.0|
00000D50: 3A 46 32 B2 30 3A 42 32 B2 30 3A 8B 20 52 50 25 |:F2.0:B2.0:. RP%|
00000D60: B2 31 20 A7 20 32 32 31 30 00 73 15 FF 07 52 50 |.1 . 2210.s...RP|
00000D70: 25 B2 31 00 97 15 02 08 42 4E B2 C2 28 35 32 30 |%.1.....BN..(520|
00000D80: 33 36 29 3A 97 35 31 39 37 38 2C 42 4E 3A 97 35 |36):.51978,BN:.5|
00000D90: 32 30 30 38 2C 42 4E 00 BC 15 07 08 8F 20 2A 2A |2008,BN...... **|
00000DA0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000DB0: 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 E3 15 08 | ***....|
00000DC0: 08 8F 20 22 14 2A 2A 2A 20 D2 45 41 44 20 53 4F |.. ".*** .EAD SO|
00000DD0: 4D 45 20 44 41 54 41 20 20 20 20 20 20 20 20 20 |ME DATA |
00000DE0: 2A 2A 2A 00 08 16 09 08 8F 20 2A 2A 2A 20 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 2A 2A 2A 00 45 16 0C 08 99 22 93 | ***.E....".|
00000E10: 11 11 97 20 C9 4E 53 45 52 54 20 D3 4F 55 52 43 |... .NSERT .OURC|
00000E20: 45 20 C4 49 53 4B 2E 22 3A 8D 20 39 30 30 30 3A |E .ISK.":. 9000:|
00000E30: 99 22 93 11 11 97 D0 4C 45 41 53 45 20 57 41 49 |.".....LEASE WAI|
00000E40: 54 2E 2E 2E 22 00 5F 16 16 08 9F 20 31 35 2C 38 |T..."._.... 15,8|
00000E50: 2C 31 35 3A 9F 20 32 2C 38 2C 32 2C 22 23 22 00 |,15:. 2,8,2,"#".|
00000E60: 8C 16 20 08 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 |.. ..15,EN,EM$,E|
00000E70: 54 2C 45 53 3A 8B 20 45 4E B3 B1 30 20 A7 20 A0 |T,ES:. EN..0 . .|
00000E80: 32 3A A0 31 35 3A 89 20 32 30 36 30 00 A2 16 2A |2:.15:. 2060...*|
00000E90: 08 98 31 35 2C 22 55 31 3A 32 2C 30 22 3B 31 38 |..15,"U1:2,0";18|
00000EA0: 3B 30 00 B6 16 34 08 98 31 35 2C 22 42 2D 50 3A |;0...4..15,"B-P:|
00000EB0: 32 2C 31 34 34 22 00 E2 16 3E 08 53 4F 24 B2 22 |2,144"...>.SO$."|
00000EC0: 22 3A 81 20 49 B2 31 20 A4 20 32 30 3A A1 23 32 |":. I.1 . 20:.#2|
00000ED0: 2C 42 59 24 3A 53 4F 24 B2 53 4F 24 AA 42 59 24 |,BY$:SO$.SO$.BY$|
00000EE0: 3A 82 00 01 17 48 08 8B 20 53 4F 24 B3 B1 53 49 |:....H.. SO$..SI|
00000EF0: 24 20 A7 20 A0 32 3A A0 31 35 3A 89 20 32 30 36 |$ . .2:.15:. 206|
00000F00: 30 00 21 17 4D 08 8B 20 42 31 B2 4E 42 25 28 46 |0.!.M.. B1.NB%(F|
00000F10: 31 29 20 A7 20 42 31 B2 30 3A 46 31 B2 46 31 AA |1) . B1.0:F1.F1.|
00000F20: 31 00 34 17 52 08 8B 20 46 31 B2 4E 46 20 A7 20 |1.4.R.. F1.NF . |
00000F30: 32 32 30 30 00 55 17 57 08 8B 20 42 4E B2 C2 28 |2200.U.W.. BN..(|
00000F40: 35 32 30 33 37 29 20 A7 20 52 50 25 B2 30 3A 89 |52037) . RP%.0:.|
00000F50: 20 32 32 30 30 00 78 17 5C 08 8B 20 42 31 B2 30 | 2200.x.\.. B1.0|
00000F60: 20 A7 20 54 24 B2 44 54 24 28 46 31 29 3A 53 24 | . T$.DT$(F1):S$|
00000F70: B2 44 53 24 28 46 31 29 00 96 17 61 08 54 B2 C6 |.DS$(F1)...a.T..|
00000F80: 28 54 24 AA C7 28 30 29 29 3A 53 B2 C6 28 53 24 |(T$..(0)):S..(S$|
00000F90: AA C7 28 30 29 29 00 AC 17 66 08 98 31 35 2C 22 |..(0))...f..15,"|
00000FA0: 55 31 3A 32 2C 30 2C 22 3B 54 3B 53 00 BE 17 70 |U1:2,0,";T;S...p|
00000FB0: 08 98 31 35 2C 22 42 2D 50 3A 32 2C 32 22 00 CA |..15,"B-P:2,2"..|
00000FC0: 17 7A 08 9E 20 35 31 39 36 38 00 DE 17 84 08 42 |.z.. 51968.....B|
00000FD0: 4E B2 42 4E AA 31 3A 42 31 B2 42 31 AA 31 00 0C |N.BN.1:B1.B1.1..|
00000FE0: 18 8E 08 98 31 35 2C 22 42 2D 50 3A 32 2C 30 22 |....15,"B-P:2,0"|
00000FF0: 3A A1 23 32 2C 54 24 2C 53 24 3A 8B 20 53 24 B2 |:.#2,T$,S$:. S$.|
00001000: 22 22 20 A7 20 53 24 B2 C7 28 30 29 00 17 18 93 |"" . S$..(0)....|
00001010: 08 89 20 32 31 32 35 00 3C 18 98 08 8F 20 2A 2A |.. 2125.<.... **|
00001020: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00001030: 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 63 18 99 | ***.c..|
00001040: 08 8F 20 22 14 2A 2A 2A 20 D7 52 49 54 45 20 54 |.. ".*** .RITE T|
00001050: 48 45 20 44 41 54 41 20 20 20 20 20 20 20 20 20 |HE DATA |
00001060: 2A 2A 2A 00 88 18 9A 08 8F 20 2A 2A 2A 20 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 2A 2A 2A 00 AA 18 A2 08 A0 32 3A | ***......2:|
00001090: A0 31 35 3A 42 4E B2 C2 28 35 32 30 33 36 29 3A |.15:BN..(52036):|
000010A0: 97 20 35 32 30 30 38 2C 42 4E 00 E7 18 AC 08 99 |. 52008,BN......|
000010B0: 22 93 11 11 97 20 C9 4E 53 45 52 54 20 D4 41 52 |".... .NSERT .AR|
000010C0: 47 45 54 20 C4 49 53 4B 2E 22 3A 8D 20 39 30 30 |GET .ISK.":. 900|
000010D0: 30 3A 99 22 93 11 11 97 D0 4C 45 41 53 45 20 57 |0:.".....LEASE W|
000010E0: 41 49 54 2E 2E 2E 22 00 01 19 B6 08 9F 20 31 35 |AIT..."...... 15|
000010F0: 2C 38 2C 31 35 3A 9F 20 32 2C 38 2C 32 2C 22 23 |,8,15:. 2,8,2,"#|
00001100: 22 00 25 19 C0 08 84 31 35 2C 45 4E 2C 45 4D 24 |".%....15,EN,EM$|
00001110: 2C 45 54 2C 45 53 3A 8B 20 45 4E B3 B1 30 20 A7 |,ET,ES:. EN..0 .|
00001120: 20 32 32 31 30 00 3B 19 CA 08 98 31 35 2C 22 55 | 2210.;....15,"U|
00001130: 31 3A 32 2C 30 22 3B 31 38 3B 30 00 4F 19 D4 08 |1:2,0";18;0.O...|
00001140: 98 31 35 2C 22 42 2D 50 3A 32 2C 31 34 34 22 00 |.15,"B-P:2,144".|
00001150: 7B 19 DE 08 54 41 24 B2 22 22 3A 81 20 49 B2 31 |{...TA$."":. I.1|
00001160: 20 A4 20 32 30 3A A1 23 32 2C 42 59 24 3A 54 41 | . 20:.#2,BY$:TA|
00001170: 24 B2 54 41 24 AA 42 59 24 3A 82 00 91 19 E8 08 |$.TA$.BY$:......|
00001180: 8B 20 54 41 24 B3 B1 54 44 24 20 A7 20 32 32 31 |. TA$..TD$ . 221|
00001190: 30 00 B8 19 F2 08 8B 20 42 32 B2 4E 42 25 28 46 |0...... B2.NB%(F|
000011A0: 32 29 20 A7 20 42 32 B2 30 3A 8D 20 32 35 30 30 |2) . B2.0:. 2500|
000011B0: 3A 46 32 B2 46 32 AA 31 00 D0 19 F7 08 8B 20 45 |:F2.F2.1...... E|
000011C0: 4E B1 30 20 A7 20 45 B2 31 3A 89 20 32 39 30 30 |N.0 . E.1:. 2900|
000011D0: 00 E3 19 FC 08 8B 20 46 32 B2 4E 46 20 A7 20 32 |...... F2.NF . 2|
000011E0: 34 34 30 00 0B 1A 06 09 8B 20 42 32 B2 30 20 A7 |440...... B2.0 .|
000011F0: 20 8D 20 32 37 30 30 3A 8B 20 45 4E B1 30 20 A7 | . 2700:. EN.0 .|
00001200: 20 45 B2 32 3A 89 20 32 39 30 30 00 1E 1A 0B 09 | E.2:. 2900.....|
00001210: 8B 20 52 50 25 B2 31 20 A7 20 32 33 34 30 00 42 |. RP%.1 . 2340.B|
00001220: 1A 10 09 8B 20 46 32 B2 46 31 20 AF 20 42 32 B2 |.... F2.F1 . B2.|
00001230: 42 31 20 A7 20 A0 32 3A A0 31 35 3A 89 20 32 30 |B1 . .2:.15:. 20|
00001240: 35 30 00 54 1A 24 09 98 31 35 2C 22 42 2D 50 3A |50.T.$..15,"B-P:|
00001250: 32 2C 32 22 00 60 1A 2E 09 9E 20 35 32 30 30 31 |2,2".`.... 52001|
00001260: 00 70 1A 30 09 54 33 B2 54 32 3A 53 33 B2 53 32 |.p.0.T3.T2:S3.S2|
00001270: 00 98 1A 33 09 8B 20 42 32 B2 4E 42 25 28 46 32 |...3.. B2.NB%(F2|
00001280: 29 AB 31 20 A7 20 54 33 B2 30 3A 53 33 B2 32 35 |).1 . T3.0:S3.25|
00001290: 35 3A 89 20 32 34 30 30 00 AE 1A 38 09 98 31 35 |5:. 2400...8..15|
000012A0: 2C 22 42 2D 41 3A 30 22 3B 54 33 3B 53 33 00 C3 |,"B-A:0";T3;S3..|
000012B0: 1A 42 09 84 31 35 2C 45 4E 2C 45 4D 24 2C 54 34 |.B..15,EN,EM$,T4|
000012C0: 2C 53 34 00 D7 1A 47 09 8B 20 45 4E B2 30 20 A7 |,S4...G.. EN.0 .|
000012D0: 20 89 20 32 34 30 30 00 0B 1B 4C 09 8B 20 28 45 | . 2400...L.. (E|
000012E0: 4E B2 36 35 20 AF 20 54 34 B2 30 29 20 B0 20 28 |N.65 . T4.0) . (|
000012F0: 45 4E B1 30 20 AF 20 45 4E B3 B1 36 35 29 20 A7 |EN.0 . EN..65) .|
00001300: 20 45 B2 33 3A 89 20 32 39 30 30 00 24 1B 51 09 | E.3:. 2900.$.Q.|
00001310: 8B 20 54 34 B2 31 38 20 A7 20 54 34 B2 31 39 3A |. T4.18 . T4.19:|
00001320: 53 34 B2 30 00 44 1B 56 09 8B 20 45 4E B2 36 35 |S4.0.D.V.. EN.65|
00001330: 20 A7 20 54 33 B2 54 34 3A 53 33 B2 53 34 3A 89 | . T3.T4:S3.S4:.|
00001340: 32 33 36 30 00 56 1B 60 09 98 31 35 2C 22 42 2D |2360.V.`..15,"B-|
00001350: 50 3A 32 2C 30 22 00 6A 1B 6A 09 98 32 2C C7 28 |P:2,0".j.j..2,.(|
00001360: 54 33 29 3B C7 28 53 33 29 3B 00 81 1B 74 09 98 |T3);.(S3);...t..|
00001370: 31 35 2C 22 55 32 3A 32 2C 30 22 3B 54 32 3B 53 |15,"U2:2,0";T2;S|
00001380: 32 00 A8 1B 7E 09 42 4E B2 42 4E AA 31 3A 42 32 |2...~.BN.BN.1:B2|
00001390: B2 42 32 AA 31 3A 54 32 B2 54 33 3A 53 32 B2 53 |.B2.1:T2.T3:S2.S|
000013A0: 33 3A 89 20 32 32 39 30 00 B5 1B 88 09 A0 32 3A |3:. 2290......2:|
000013B0: A0 31 35 3A 8E 00 DA 1B C4 09 8F 20 2A 2A 2A 20 |.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 2A 2A 2A 00 01 1C C5 09 8F | ***......|
000013E0: 20 22 14 2A 2A 2A 20 C3 52 45 41 54 45 20 C4 49 | ".*** .REATE .I|
000013F0: 52 45 43 54 4F 52 59 20 C5 4E 54 52 59 20 2A 2A |RECTORY .NTRY **|
00001400: 2A 00 26 1C C6 09 8F 20 2A 2A 2A 20 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 2A 2A 2A 00 35 1C CE 09 54 34 B2 31 38 | ***.5...T4.18|
00001430: 3A 53 34 B2 31 00 50 1C D8 09 98 31 35 2C 22 55 |:S4.1.P....15,"U|
00001440: 31 3A 32 2C 30 22 3B 54 34 3B 53 34 3A 49 B2 30 |1:2,0";T4;S4:I.0|
00001450: 00 67 1C E2 09 98 31 35 2C 22 42 2D 50 3A 32 22 |.g....15,"B-P:2"|
00001460: 3B 49 AC 33 32 AA 32 00 8C 1C EC 09 A1 23 32 2C |;I.32.2......#2,|
00001470: 42 59 24 3A 8B 20 C6 28 42 59 24 AA C7 28 30 29 |BY$:. .(BY$..(0)|
00001480: 29 B3 31 32 39 20 A7 20 32 36 33 30 00 A5 1C F6 |).129 . 2630....|
00001490: 09 8B 20 49 B3 37 20 A7 20 49 B2 49 AA 31 3A 89 |.. I.7 . I.I.1:.|
000014A0: 20 32 35 33 30 00 B7 1C 00 0A 98 31 35 2C 22 42 | 2530......15,"B|
000014B0: 2D 50 3A 32 2C 30 22 00 DA 1C 0A 0A A1 23 32 2C |-P:2,0"......#2,|
000014C0: 42 59 24 2C 42 5A 24 3A 42 59 24 B2 C7 28 C6 28 |BY$,BZ$:BY$..(.(|
000014D0: 42 59 24 AA C7 28 30 29 29 29 00 0E 1D 0C 0A 8B |BY$..(0)))......|
000014E0: 42 59 24 B3 B1 C7 28 30 29 A7 54 34 B2 C6 28 42 |BY$...(0).T4..(B|
000014F0: 59 24 AA C7 28 30 29 29 3A 53 34 B2 C6 28 42 5A |Y$..(0)):S4..(BZ|
00001500: 24 AA C7 28 30 29 29 3A 89 20 32 35 32 30 00 16 |$..(0)):. 2520..|
00001510: 1D 0F 0A A0 20 32 00 39 1D 14 0A 9F 20 32 2C 38 |.... 2.9.... 2,8|
00001520: 2C 32 2C 22 DA 5A DA 5A DA 5A DA 5A DA 5A DA 5A |,2,".Z.Z.Z.Z.Z.Z|
00001530: DA 5A DA 5A 2C 50 2C 57 22 00 67 1D 19 0A 84 31 |.Z.Z,P,W".g....1|
00001540: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B |5,EN,EM$,ET,ES:.|
00001550: 20 45 4E B1 30 20 A7 20 A0 32 3A 9F 32 2C 38 2C | EN.0 . .2:.2,8,|
00001560: 32 2C 22 23 22 3A 8E 00 78 1D 1E 0A 98 32 2C C7 |2,"#":..x....2,.|
00001570: 28 39 39 29 3B 3A A0 32 00 96 1D 28 0A 98 31 35 |(99);:.2...(..15|
00001580: 2C 22 53 30 3A DA 5A DA 5A DA 5A DA 5A DA 5A DA |,"S0:.Z.Z.Z.Z.Z.|
00001590: 5A DA 5A DA 5A 22 00 A6 1D 2D 0A 9F 20 32 2C 38 |Z.Z.Z"...-.. 2,8|
000015A0: 2C 32 2C 22 23 22 00 BD 1D 32 0A 98 31 35 2C 22 |,2,"#"...2..15,"|
000015B0: 55 31 3A 32 2C 30 22 3B 54 34 3B 53 34 00 C8 1D |U1:2,0";T4;S4...|
000015C0: 3C 0A 89 20 32 35 36 30 00 DF 1D 46 0A 98 31 35 |<.. 2560...F..15|
000015D0: 2C 22 42 2D 50 3A 32 22 3B 49 AC 33 32 AA 32 00 |,"B-P:2";I.32.2.|
000015E0: 03 1E 50 0A 98 32 2C 46 54 24 28 46 32 29 3B C7 |..P..2,FT$(F2);.|
000015F0: 28 54 31 29 3B C7 28 53 31 29 3B 4E 46 24 28 46 |(T1);.(S1);NF$(F|
00001600: 32 29 3B 00 1B 1E 5A 0A 98 31 35 2C 22 42 2D 50 |2);...Z..15,"B-P|
00001610: 3A 32 22 3B 49 AC 33 32 AA 33 30 00 33 1E 64 0A |:2";I.32.30.3.d.|
00001620: 98 32 2C 4E 4C 24 28 46 32 29 3B 4E 48 24 28 46 |.2,NL$(F2);NH$(F|
00001630: 32 29 3B 00 4A 1E 6E 0A 98 31 35 2C 22 55 32 3A |2);.J.n..15,"U2:|
00001640: 32 2C 30 22 3B 54 34 3B 53 34 00 55 1E 78 0A 45 |2,0";T4;S4.U.x.E|
00001650: 4E B2 30 3A 8E 00 7A 1E 8C 0A 8F 20 2A 2A 2A 20 |N.0:..z.... *** |
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 2A 2A 2A 00 A1 1E 8D 0A 8F | ***......|
00001680: 20 22 14 2A 2A 2A 20 C4 45 54 45 52 4D 49 4E 45 | ".*** .ETERMINE|
00001690: 20 46 49 52 53 54 20 54 20 26 20 53 20 20 2A 2A | FIRST T & S **|
000016A0: 2A 00 C6 1E 8E 0A 8F 20 2A 2A 2A 20 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 2A 2A 2A 00 DA 1E 96 0A 98 31 35 2C 22 | ***......15,"|
000016D0: 42 2D 41 3A 30 2C 31 2C 30 22 00 FB 1E A0 0A 84 |B-A:0,1,0"......|
000016E0: 31 35 2C 45 4E 2C 45 4D 24 2C 54 31 2C 53 31 3A |15,EN,EM$,T1,S1:|
000016F0: 45 54 B2 54 31 3A 45 53 B2 53 31 00 1E 1F AA 0A |ET.T1:ES.S1.....|
00001700: 8B 20 45 4E B2 30 20 A7 20 54 31 B2 31 3A 54 32 |. EN.0 . T1.1:T2|
00001710: B2 31 3A 53 31 B2 30 3A 53 32 B2 30 3A 8E 00 40 |.1:S1.0:S2.0:..@|
00001720: 1F B4 0A 8B 20 45 4E B3 B1 36 35 20 B0 20 28 45 |.... EN..65 . (E|
00001730: 4E B2 36 35 20 AF 20 54 31 B2 30 29 20 A7 20 8E |N.65 . T1.0) . .|
00001740: 00 56 1F BE 0A 98 31 35 2C 22 42 2D 41 3A 30 22 |.V....15,"B-A:0"|
00001750: 3B 54 31 3B 53 31 00 6D 1F C8 0A 54 32 B2 54 31 |;T1;S1.m...T2.T1|
00001760: 3A 53 32 B2 53 31 3A 45 4E B2 30 3A 8E 00 92 1F |:S2.S1:EN.0:....|
00001770: 54 0B 8F 20 2A 2A 2A 20 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 2A | *|
00001790: 2A 2A 00 B9 1F 55 0B 8F 20 22 14 2A 2A 2A 20 C5 |**...U.. ".*** .|
000017A0: 52 52 4F 52 20 57 48 49 4C 45 20 57 52 49 54 49 |RROR WHILE WRITI|
000017B0: 4E 47 20 20 20 20 2A 2A 2A 00 DE 1F 56 0B 8F 20 |NG ***...V.. |
000017C0: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |*** |
000017D0: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 10 | ***..|
000017E0: 20 5E 0B 99 22 11 11 1C 20 C1 4E 20 45 52 52 4F | ^.."... .N ERRO|
000017F0: 52 20 48 41 53 20 4F 43 43 55 52 52 45 44 20 44 |R HAS OCCURRED D|
00001800: 55 52 49 4E 47 20 57 52 49 54 49 4E 47 20 21 22 |URING WRITING !"|
00001810: 00 2C 20 68 0B 99 22 11 97 22 45 4E 22 2C 22 45 |., h..".."EN","E|
00001820: 4D 24 22 2C 22 45 54 22 2C 22 45 53 00 5B 20 72 |M$","ET","ES.[ r|
00001830: 0B 99 22 11 1C 20 D4 48 45 20 43 4F 50 59 20 50 |..".. .HE COPY P|
00001840: 52 4F 43 45 44 55 52 45 20 48 41 53 20 42 45 45 |ROCEDURE HAS BEE|
00001850: 4E 20 41 42 4F 52 54 45 44 2E 22 00 6F 20 7C 0B |N ABORTED.".o |.|
00001860: 98 31 35 2C 22 56 30 22 3A A0 32 3A A0 31 35 00 |.15,"V0":.2:.15.|
00001870: 80 20 86 0B 8D 20 39 30 30 30 3A 89 20 32 30 30 |. ... 9000:. 200|
00001880: 00 A5 20 1E 23 8F 20 2A 2A 2A 20 20 20 20 20 20 |.. .#. *** |
00001890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018A0: 20 20 2A 2A 2A 00 CC 20 1F 23 8F 20 22 14 2A 2A | ***.. .#. ".**|
000018B0: 2A 20 D7 41 49 54 20 46 4F 52 20 52 45 53 50 4F |* .AIT FOR RESPO|
000018C0: 4E 53 45 20 20 20 20 20 20 2A 2A 2A 00 F1 20 20 |NSE ***.. |
000018D0: 23 8F 20 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 |#. *** |
000018E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **|
000018F0: 2A 00 1B 21 28 23 99 22 11 1F 20 20 20 20 20 20 |*..!(#.".. |
00001900: 20 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 57 | .RESS ANY KEY W|
00001910: 48 45 4E 20 52 45 41 44 59 2E 22 00 31 21 32 23 |HEN READY.".1!2#|
00001920: 92 20 31 39 38 2C 31 3A 97 20 31 39 38 2C 30 3A |. 198,1:. 198,0:|
00001930: 8E 00 00 00 31 B2 30 29 20 A7 20 8E 00 F4 1D BE |....1.0) . .....|
00001940: 0A 98 31 35 2C 22 42 2D 41 3A 30 22 3B 54 31 3B |..15,"B-A:0";T1;|
00001950: 53 31 00 0B 1E C8 0A 54 32 B2 54 31 3A 53 32 B2 |S1.....T2.T1:S2.|
00001960: 53 31 3A 45 4E B2 30 3A 8E 00 30 1E 54 0B 8F 20 |S1:EN.0:..0.T.. |
00001970: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |*** |
00001980: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 57 | ***.W|
00001990: 1E 55 0B 8F 20 22 14 2A 2A 2A 20 C5 52 52 4F 52 |.U.. ".*** .RROR|
000019A0: 20 57 48 49 4C 45 20 57 52 49 54 49 4E 47 20 20 | WHILE WRITING |
000019B0: 20 20 2A 2A 2A 00 7C 1E 56 0B 8F 20 2A 2A 2A 20 | ***.|.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 2A 2A 2A 00 AE 1E 5E 0B 99 | ***...^..|
000019E0: 22 11 11 1C 20 C1 4E 20 45 52 52 4F 52 20 48 41 |"... .N ERROR HA|
000019F0: 53 20 4F 43 43 55 52 52 45 44 20 44 55 52 49 4E |S OCCURRED DURIN|
00001A00: 47 20 57 52 49 54 49 4E 47 20 21 22 00 CA 1E 68 |G WRITING !"...h|
00001A10: 0B 99 22 11 97 22 45 4E 22 2C 22 45 4D 24 22 2C |..".."EN","EM$",|
00001A20: 22 45 54 22 2C 22 45 53 00 F9 1E 72 0B 99 22 11 |"ET","ES...r..".|
00001A30: 1C 20 D4 48 45 20 43 4F 50 59 20 50 52 4F 43 45 |. .HE COPY PROCE|
00001A40: 44 55 52 45 20 48 41 53 20 42 45 45 4E 20 41 42 |DURE HAS BEEN AB|
00001A50: 4F 52 54 45 44 2E 22 00 56 1F 7C 0B 98 31 35 2C |ORTED.".V.|..15,|
00001A60: 22 56 30 22 3A A0 32 3A A0 31 35 00 67 1F 86 0B |"V0":.2:.15.g...|
00001A70: 8D 20 39 30 30 30 3A 89 20 32 30 30 00 8C 1F 1E |. 9000:. 200....|
00001A80: 23 8F 20 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 |#. *** |
00001A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **|
00001AA0: 2A 00 B3 1F 1F 23 8F 20 22 14 2A 2A 2A 20 D7 41 |*....#. ".*** .A|
00001AB0: 49 54 20 46 4F 52 20 52 45 53 50 4F 4E 53 45 20 |IT FOR RESPONSE |
00001AC0: 20 20 20 20 20 2A 2A 2A 00 D8 1F 20 23 8F 20 2A | ***... #. *|
00001AD0: 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |** |
00001AE0: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 6F 20 | ***.o |
00001AF0: 28 23 99 22 11 1F 20 20 20 20 20 20 20 D0 52 45 |(#.".. .RE|
00001B00: 53 53 20 41 4E 59 20 4B 45 59 20 57 48 45 4E 20 |SS ANY KEY WHEN |
00001B10: 52 45 41 44 59 2E 22 00 85 20 32 23 92 20 31 39 |READY.".. 2#. 19|
00001B20: 38 2C 31 3A 97 20 31 39 38 2C 30 3A 8E 00 00 00 |8,1:. 198,0:....|
00001B30: 31 B2 30 29 20 A7 20 8E 00 F4 1D BE 0A 98 31 35 |1.0) . .......15|
00001B40: 2C 22 42 2D 41 3A 30 22 3B 54 31 3B 53 31 00 0B |,"B-A:0";T1;S1..|
00001B50: 1E C8 0A 54 32 B2 54 31 3A 53 32 B2 53 31 3A 45 |...T2.T1:S2.S1:E|
00001B60: 4E B2 30 3A 8E 00 30 1E 54 0B 8F 20 2A 2A 2A 20 |N.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 2A 2A 2A 00 57 1E 55 0B 8F | ***.W.U..|
00001B90: 20 22 14 2A 2A 2A 20 C5 52 52 4F 52 20 57 48 49 | ".*** .RROR WHI|
00001BA0: 4C 45 20 57 52 49 54 49 4E 47 20 20 20 20 2A 2A |LE WRITING **|
00001BB0: 2A 00 7C 1E 56 0B 8F 20 2A 2A 2A 20 20 20 20 20 |*.|.V.. *** |
00001BC0: 20 20 20 20 20 20 20 20 | |
..*...."....... 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.B.
[.F.1:."-COPY SOME ML",8,1..._..53280,6:
.53281,15:."."...D.F.0:.52037,B(56):.56,
B(46).11:.52036,B(46).12.=.I..52038,B(55
):.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.. ***
***.Y.C..". *** DI
SPLAY/CHOOSE OPTIONS ***...D.. ***
***.).H..G(14)"...."
.10)"COPY-SOME 1541 V2.2".I.M...9)".....
................".D.R...18)".BY PAUL KEL
LAM"......"... F1 .SELECT SOURCE DISK &
FILES/PROGRAMS"......" TO BE COPIED.
".S....".. F3 .SELECT TARGET DISK.".....
. TD$."" ..". (CURRENTLY '";TD$;"')".
%....".. F5 .PERFORM COPY PROCEDURE.".].
... RP%.1 . .". (NO FURTHER DATA READ
S REQUIRED.)".~....".. F7 .EXIT FROM PRO
GRAM."......"... PRESS KEY FOR DESIRE
D OPERATION.".I.".. 198,1:. OP$:OP.F(OP$
)...,.. OP.133 . OP.136 . 290...6.. OP..
136 . . 320.0.8..".... GOOD-BYE !..":.:.
55,B(52038):.56,B(52037).J.:..51,B(55):.
52,B(56):..O.@.. OP.132 . 1000,1500,2000
: . 200.U.......... ***
***.A.... ".*** DETERMINE FILES/P
ROGS ***...... ".*** TO BE COPIED.
***...... ***
***.O...NF.0:."... INSERT SOURCE DISK.
":. 9000:.".... PLEASE WAIT...".O...RP%.
0:. 15,8,15:. 2,8,2,"#"......15,EN,EM$,E
T,ES:. EN..0 . 2: 15:. 1000......15,"U1
:2,0";18;0.F....15,"B-P:2,144"...$.SI$."
":. I.1 . 20:.#2,BY$:SI$.SI$.BY$:....(..
"... SOURCE: ."SI$.9.)..".. CHOOSE PROGR
AMS/FILES TO BE COPIED..".U....15,"B-P:2
,0":.#2,T$,S$.S.8.T.F(T$.G(0)):S.F(S$.G(
0))...B.. T.0 . T.35 . S.20 . NF.51 . 12
30...L..15,"U1:2,0";T;S.L.V.. I.0 . 7:.
NF.51 . 1220...`..15,"B-P:2";I.32.2...J.
.#2,FT$(NF):. F(FT$(NF).G(0)).129 . 1220
.(.T..#2,DT$(NF),DS$(NF).].~.NF$(NF)."":
.J.1.16:.#2,BY$:NF$(NF).NF$(NF).BY$:....
...". COPY ."NF$(NF)". (Y/N) ?";...... 1
98,1:. CH$:. CH$."N" . 1210...... CH$.."
Y" . 1170......15,"B-P:2";I.32.30:.#2,NL
$(NF),NH$(NF):. NL$(NF)."".NL$(NF).G(0).
..... NH$(NF)."" . NH$(NF).G(0).E...NB%(
NF).256.F(NH$(NF)).F(NL$(NF)).Q...NF.NF.
1.P.....11);". ".18)" ".~.D..I:
. 1070...N. 2: 15:....... ***
***.W.... ".*** READ TARGET
ID ***...... ***
***.)...TD$."":."... INSERT TAR
GET DISK.":. 9000.D....".... PLEASE WAIT
...".^.... 15,8,15:. 2,8,2,"#"......15,E
N,EM$,ET,ES:. EN..0 . 2: 15:. 1500.....
.15,"U1:2,0";18;0......15,"B-P:2,144".Z.
... I.1 . 20:.#2,BY$:TD$.TD$.BY$:....".
2: 15:....P.. ***
***.3.Q.. ".*** COPY PROCEDURE
***.X.R.. *** ***
.A.Z.."."...... NF.0 . .".. SELECT SOURC
E & FILES FIRST, PLEASE!".W.... TD$."" .
.".. SELECT TARGET DISK FIRST, PLEASE!"
:. 2040...... TD$.SI$ . NF..0 . .".. SOU
RCE & TARGET DISKS HAVE SAME ID!".B....
NF.0 . TD$."" . TD$.SI$ . . 9000:..I...F
1.0:B1.0:F2.0:B2.0:. RP%.1 . 2210.S...RP
%.1.....BN.B(52036):.51978,BN:.52008,BN.
..... *** ***....
.. ".*** READ SOME DATA ***.....
. *** ***.E....".
... INSERT SOURCE DISK.":. 9000:."....PL
EASE 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:. 206
0.!.M.. B1.NB%(F1) . B1.0:F1.F1.1.4.R..
F1.NF . 2200.U.W.. BN.B(52037) . RP%.0:.
2200.X.\.. 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".J.Z.. 519
68.....BN.BN.1:B1.B1.1......15,"B-P:2,0"
:.#2,T$,S$:. S$."" . S$.G(0)...... 2125.
<.... *** ***.C..
.. ".*** WRITE THE DATA ***.....
. *** ***..... 2:
15:BN.B(52036):. 52008,BN......".... IN
SERT TARGET DISK.":. 9000:."....PLEASE W
AIT..."...... 15,8,15:. 2,8,2,"#".%....1
5,EN,EM$,ET,ES:. EN..0 . 2210.;.J..15,"U
1:2,0";18;0.O.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.P.... EN.0 . E.1:. 2900
...... F2.NF . 2440...... B2.0 . . 2700:
. EN.0 . E.2:. 2900...... RP%.1 . 2340.B
.... F2.F1 . B2.B1 . 2: 15:. 2050.T.$..
15,"B-P:2,2".`.... 52001.P.0.T3.T2:S3.S2
...3.. B2.NB%(F2).1 . T3.0:S3.255:. 2400
...8..15,"B-A:0";T3;S3.C.B..15,EN,EM$,T4
,S4.W.G.. EN.0 . . 2400...L.. (EN.65 . T
4.0) . (EN.0 . EN..65) . E.3:. 2900.$.Q.
. T4.18 . T4.19:S4.0.D.V.. EN.65 . T3.T4
:S3.S4:.2360.V.`..15,"B-P:2,0".J.J..2,G(
T3);G(S3);...T..15,"U2:2,0";T2;S2...~.BN
.BN.1:B2.B2.1:T2.T3:S2.S3:. 2290..... 2:
15:..Z.D.. *** *
**...E.. ".*** CREATE DIRECTORY ENTRY **
*.&.F.. *** ***.5
.N.T4.18:S4.1.P.X..15,"U1:2,0";T4;S4:I.0
.G....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".Z....#2,BY$,BZ$:
BY$.G(F(BY$.G(0)))......BY$..G(0).T4.F(B
Y$.G(0)):S4.F(BZ$.G(0)):. 2520..... 2.9
.... 2,8,2,"ZZZZZZZZZZZZZZZZ,P,W".G....1
5,EN,EM$,ET,ES:. EN.0 . 2:.2,8,2,"#":..
X....2,G(99);: 2...(..15,"S0:ZZZZZZZZZZZ
ZZZZZ"...-.. 2,8,2,"#"...2..15,"U1:2,0";
T4;S4.H.<.. 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.3.D..2,NL$(F2);NH$(F
2);.J.N..15,"U2:2,0";T4;S4.U.X.EN.0:..Z.
... *** ***......
".*** DETERMINE FIRST T & S ***.F....
*** ***.Z....15,"
B-A:0,1,0"... ..15,EN,EM$,T1,S1:ET.T1:ES
.S1...... EN.0 . T1.1:T2.1:S1.0:S2.0:..@
.... EN..65 . (EN.65 . T1.0) . ..V....15
,"B-A:0";T1;S1.M.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..".. TH
E COPY PROCEDURE HAS BEEN ABORTED.".O |.
.15,"V0": 2: 15.. ... 9000:. 200.. .#. *
** ***.L .#. ".**
* WAIT FOR RESPONSE ***.. #. ***
***..!(#."..
PRESS ANY KEY WHEN READY.".1!2#. 198,1:
. 198,0:....1.0) . .......15,"B-A:0";T1;
S1...H.T2.T1:S2.S1:EN.0:..0.T.. ***
***.W.U.. ".*** ERROR
WHILE WRITING ***.|.V.. ***
***...^.."... AN ERROR HA
S OCCURRED DURING WRITING !".J.H..".."EN
","EM$","ET","ES...R..".. THE COPY PROCE
DURE HAS BEEN ABORTED.".V.|..15,"V0": 2:
15.G.... 9000:. 200....#. ***
***....#. ".*** WAIT FOR R
ESPONSE ***.X. #. ***
***.O (#.".. PRESS ANY K
EY WHEN READY.".. 2#. 198,1:. 198,0:....
1.0) . .......15,"B-A:0";T1;S1...H.T2.T1
:S2.S1:EN.0:..0.T.. ***
***.W.U.. ".*** ERROR WHILE WRITI
NG ***.|.V.. ***
> CLICK IMAGE PREVIEW FOR FULL MODAL