COPYDISK
FILE INFORMATION
FILENAME(S): COPYDISK
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 16:59:40
APPEARS ON: 1 disk(s)
FILE HASH
e219d5e2c6d9069b5431281462771588c4774d5f8e9eacf547ea6a7d615c0b61
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LANGUAGE DISK | COPYDISK | PRG | High Voltage Complete C64 Collection | 4 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 00 56 4F 4C 31 35 3A 42 45 B2 31 |..)...VOL15:BE.1|
00000010: 35 30 30 30 3A 53 41 B2 35 33 37 36 3A 97 35 35 |5000:SA.5376:.55|
00000020: 2C 30 3A 97 35 36 2C 32 31 00 3B 08 05 00 8B C2 |,0:.56,21.;.....|
00000030: 28 31 30 31 39 29 B2 31 A7 31 30 00 56 08 06 00 |(1019).1.10.V...|
00000040: 97 31 30 31 39 2C 31 3A 93 22 44 49 53 4B 2E 4D |.1019,1:."DISK.M|
00000050: 4C 22 2C 38 2C 31 00 81 08 0A 00 43 4C 45 41 52 |L",8,1.....CLEAR|
00000060: 3A 99 22 54 48 45 20 42 41 53 49 43 20 45 4E 48 |:."THE BASIC ENH|
00000070: 41 4E 43 45 52 3A 2A 43 4F 50 59 44 49 53 4B 2A |ANCER:*COPYDISK*|
00000080: 22 00 9B 08 14 00 99 22 42 59 20 4D 49 43 48 41 |"......"BY MICHA|
00000090: 45 4C 20 42 45 44 46 4F 52 44 22 00 B4 08 1E 00 |EL BEDFORD".....|
000000A0: 99 22 11 11 2A 43 4F 50 59 44 49 53 4B 20 4D 45 |."..*COPYDISK ME|
000000B0: 4E 55 2A 22 00 CF 08 28 00 99 22 11 41 2D 43 4F |NU*"...(..".A-CO|
000000C0: 50 59 20 42 59 20 46 49 4C 45 4E 41 4D 45 22 00 |PY BY FILENAME".|
000000D0: E9 08 3C 00 99 22 42 2D 43 4F 50 59 20 45 4E 54 |..<.."B-COPY ENT|
000000E0: 49 52 45 20 44 49 53 4B 22 00 09 09 3D 00 99 22 |IRE DISK"...=.."|
000000F0: 43 2D 45 58 49 54 20 54 4F 20 42 41 53 49 43 20 |C-EXIT TO BASIC |
00000100: 45 4E 48 41 4E 43 45 52 22 00 21 09 3E 00 99 22 |ENHANCER".!.>.."|
00000110: 44 2D 56 49 45 57 20 44 49 52 45 43 54 4F 52 59 |D-VIEW DIRECTORY|
00000120: 22 00 2D 09 3F 00 42 45 4C 4C 20 42 45 00 42 09 |".-.?.BELL BE.B.|
00000130: 46 00 99 22 11 11 53 45 4C 45 43 54 49 4F 4E 3A |F.."..SELECTION:|
00000140: 22 3B 00 54 09 50 00 A1 41 24 3A 8B 41 24 B2 22 |";.T.P..A$:.A$."|
00000150: 22 A7 38 30 00 5C 09 5A 00 99 41 24 00 6C 09 64 |".80.\.Z..A$.l.d|
00000160: 00 8B 41 24 B2 22 41 22 A7 31 38 30 00 7D 09 78 |..A$."A".180.}.x|
00000170: 00 8B 41 24 B2 22 42 22 A7 35 34 30 30 00 92 09 |..A$."B".5400...|
00000180: 82 00 8B 41 24 B2 22 43 22 A7 9E 34 39 31 35 32 |...A$."C"..49152|
00000190: 3A A2 00 B9 09 8C 00 8B 41 24 B2 22 44 22 A7 3A |:.......A$."D".:|
000001A0: 43 4C 45 41 52 3A 44 49 53 4B 44 49 52 22 24 22 |CLEAR:DISKDIR"$"|
000001B0: 3A 8D 31 35 30 3A 89 31 30 00 DF 09 8D 00 99 22 |:.150:.10......"|
000001C0: 3F 3F 20 49 4E 56 41 4C 49 44 20 43 48 4F 49 43 |?? INVALID CHOIC|
000001D0: 45 20 3F 3F 22 3A 50 41 55 53 45 3A 89 31 30 00 |E ??":PAUSE:.10.|
000001E0: 02 0A 96 00 99 22 2A 50 52 45 53 53 20 41 4E 59 |....."*PRESS ANY|
000001F0: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00000200: 2A 22 00 0E 0A 97 00 42 45 4C 4C 20 42 45 00 21 |*".....BELL BE.!|
00000210: 0A A0 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 31 36 |....K$:.K$."".16|
00000220: 30 00 27 0A AA 00 8E 00 49 0A B4 00 43 4C 45 41 |0.'.....I...CLEA|
00000230: 52 3A 42 45 4C 4C 20 42 45 3A 85 22 46 49 4C 45 |R:BELL BE:."FILE|
00000240: 4E 41 4D 45 2D 22 3B 46 24 00 6E 0A B5 00 42 45 |NAME-";F$.n...BE|
00000250: 4C 4C 20 42 45 3A 99 22 46 49 4C 45 20 54 59 50 |LL BE:."FILE TYP|
00000260: 45 20 28 50 2F 53 2F 55 2F 52 29 3A 22 3B 00 81 |E (P/S/U/R):";..|
00000270: 0A B6 00 A1 54 24 3A 8B 54 24 B2 22 22 A7 31 38 |....T$:.T$."".18|
00000280: 32 00 A6 0A B7 00 8B 54 24 B2 22 50 22 B0 54 24 |2......T$."P".T$|
00000290: B2 22 53 22 B0 54 24 B2 22 55 22 B0 54 24 B2 22 |."S".T$."U".T$."|
000002A0: 52 22 A7 31 38 35 00 CF 0A B8 00 99 3A 99 22 3F |R".185......:."?|
000002B0: 3F 20 49 4E 56 41 4C 49 44 20 43 48 4F 49 43 45 |? INVALID CHOICE|
000002C0: 20 3F 3F 22 3A 50 41 55 53 45 3A 89 31 38 31 00 | ??":PAUSE:.181.|
000002D0: D7 0A B9 00 99 54 24 00 F9 0A BE 00 99 22 11 2A |.....T$......".*|
000002E0: 49 4E 53 45 52 54 20 53 4F 55 52 43 45 20 44 49 |INSERT SOURCE DI|
000002F0: 53 4B 2A 22 3A 8D 31 35 30 00 1E 0B C8 00 42 45 |SK*":.150.....BE|
00000300: 4C 4C 35 30 30 30 3A 99 22 11 2A 52 45 41 44 49 |LL5000:.".*READI|
00000310: 4E 47 2A 22 3A 49 4E 49 54 3A 8D 35 30 30 00 24 |NG*":INIT:.500.$|
00000320: 0B F4 01 8F 00 43 0B FE 01 9F 35 2C 38 2C 35 2C |.....C....5,8,5,|
00000330: 22 30 3A 22 AA 46 24 AA 22 2C 22 AA 54 24 AA 22 |"0:".F$.",".T$."|
00000340: 2C 52 22 00 4C 0B FF 01 42 B2 53 41 00 57 0B 12 |,R".L...B.SA.W..|
00000350: 02 9E 38 32 38 2C 42 00 70 0B 1C 02 8B 53 54 B3 |..828,B.p....ST.|
00000360: B1 36 34 A7 42 B2 42 AA 32 35 35 3A 89 35 33 30 |.64.B.B.255:.530|
00000370: 00 87 0B 26 02 A0 35 3A 45 41 B2 28 42 AA C2 28 |...&..5:EA.(B..(|
00000380: 32 35 31 29 29 AA 31 00 B7 0B 27 02 99 22 11 2A |251)).1...'..".*|
00000390: 49 4E 53 45 52 54 20 44 45 53 54 49 4E 41 54 49 |INSERT DESTINATI|
000003A0: 4F 4E 20 44 49 53 4B 2A 22 3A 8D 31 35 30 3A 42 |ON DISK*":.150:B|
000003B0: 45 4C 4C 35 30 30 30 00 CE 0B 28 02 99 22 11 2A |ELL5000...(..".*|
000003C0: 57 52 49 54 49 4E 47 2A 22 3A 49 4E 49 54 00 F6 |WRITING*":INIT..|
000003D0: 0B 30 02 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA 46 |.0..5,8,5,"0:".F|
000003E0: 24 AA 22 2C 22 AA 54 24 AA 22 2C 57 22 3A 45 5A |$.",".T$.",W":EZ|
000003F0: B2 45 41 AB 53 41 00 1C 0C 32 02 42 31 B2 B5 28 |.EA.SA...2.B1..(|
00000400: 45 5A AD 32 35 30 29 3A 42 32 B2 45 5A AB 28 42 |EZ.250):B2.EZ.(B|
00000410: 31 AC 32 35 30 29 3A 42 33 B2 53 41 00 36 0C 33 |1.250):B3.SA.6.3|
00000420: 02 8B 42 31 B2 30 A7 9E 38 37 32 2C 42 33 2C 42 |..B1.0..872,B3,B|
00000430: 32 3A 89 35 38 30 00 65 0C 3A 02 81 49 B2 31 A4 |2:.580.e.:..I.1.|
00000440: 42 31 3A 9E 38 37 32 2C 42 33 2C 32 35 30 3A 42 |B1:.872,B3,250:B|
00000450: 33 B2 42 33 AA 32 35 30 3A 82 3A 9E 38 37 32 2C |3.B3.250:.:.872,|
00000460: 42 33 2C 42 32 00 6C 0C 44 02 A0 35 00 8B 0C 4E |B3,B2.l.D..5...N|
00000470: 02 99 22 2A 43 4F 50 59 20 43 4F 4D 50 4C 45 54 |.."*COPY COMPLET|
00000480: 45 2A 22 3A 8D 36 30 30 30 3A 8A 00 B9 0C 18 15 |E*":.6000:......|
00000490: 43 4C 45 41 52 20 20 20 20 20 20 20 20 20 20 20 |CLEAR |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 20 20 20 20 20 20 20 20 00 E0 0C 1E 15 99 22 | ......"|
000004C0: 2A 49 4E 53 45 52 54 20 44 45 53 54 49 4E 41 54 |*INSERT DESTINAT|
000004D0: 49 4F 4E 20 44 49 53 4B 2A 22 3A 8D 36 30 30 30 |ION DISK*":.6000|
000004E0: 00 14 0D 22 15 99 22 2A 46 4F 52 4D 41 54 54 49 |...".."*FORMATTI|
000004F0: 4E 47 2A 22 3A 42 45 4C 4C 42 45 3A 48 45 41 44 |NG*":BELLBE:HEAD|
00000500: 45 52 22 4E 30 3A 4E 4F 54 20 43 4F 50 49 45 44 |ER"N0:NOT COPIED|
00000510: 2C 30 30 22 00 20 0D E0 15 86 42 4E 28 33 35 29 |,00". ....BN(35)|
00000520: 00 4B 0D EA 15 81 49 B2 31 A4 31 37 3A 42 4E 28 |.K....I.1.17:BN(|
00000530: 49 29 B2 32 31 3A 82 3A 81 49 B2 31 38 A4 32 34 |I).21:.:.I.18.24|
00000540: 3A 42 4E 28 49 29 B2 31 39 3A 82 00 63 0D EB 15 |:BN(I).19:..c...|
00000550: 81 49 B2 32 35 A4 33 30 3A 42 4E 28 49 29 B2 31 |.I.25.30:BN(I).1|
00000560: 38 3A 82 00 7B 0D F4 15 81 49 B2 33 31 A4 33 35 |8:..{....I.31.35|
00000570: 3A 42 4E 28 49 29 B2 31 37 3A 82 00 99 0D 6C 16 |:BN(I).17:....l.|
00000580: 42 55 B2 32 31 3A 54 52 B2 31 3A 54 57 B2 31 3A |BU.21:TR.1:TW.1:|
00000590: 53 52 B2 30 3A 53 57 B2 30 00 BD 0D 6D 16 99 22 |SR.0:SW.0...m.."|
000005A0: 11 11 2A 49 4E 53 45 52 54 20 53 4F 55 52 43 45 |..*INSERT SOURCE|
000005B0: 20 44 49 53 4B 2A 22 3A 8D 36 30 30 30 00 DC 0D | DISK*":.6000...|
000005C0: 76 16 99 22 2A 52 45 41 44 49 4E 47 2A 22 3A 42 |v.."*READING*":B|
000005D0: 55 B2 32 31 3A 42 45 4C 4C 20 42 45 00 F8 0D 80 |U.21:BELL BE....|
000005E0: 16 9F 31 35 2C 38 2C 31 35 2C 22 49 22 3A 9F 35 |..15,8,15,"I":.5|
000005F0: 2C 38 2C 35 2C 22 23 22 00 14 0E 8A 16 8B 53 52 |,8,5,"#"......SR|
00000600: B2 42 4E 28 54 52 29 A7 54 52 B2 54 52 AA 31 3A |.BN(TR).TR.TR.1:|
00000610: 53 52 B2 30 00 24 0E 94 16 8B 54 52 B2 33 36 A7 |SR.0.$....TR.36.|
00000620: 35 38 33 30 00 52 0E 9F 16 54 24 B2 CA 28 C4 28 |5830.R...T$..(.(|
00000630: 54 52 29 AA 22 20 20 22 2C 31 2C 34 29 3A 53 24 |TR)." ",1,4):S$|
00000640: B2 CA 28 C4 28 53 52 29 AA 22 20 20 22 2C 31 2C |..(.(SR)." ",1,|
00000650: 34 29 00 6F 0E A0 16 42 24 B2 CA 28 C4 28 42 55 |4).o...B$..(.(BU|
00000660: AB 32 31 29 AA 22 20 20 20 22 2C 31 2C 34 29 00 |.21)." ",1,4).|
00000670: 9A 0E A8 16 99 22 54 52 41 43 4B 3A 22 54 24 22 |....."TRACK:"T$"|
00000680: 3A 53 45 43 54 4F 52 3A 22 53 24 22 3A 42 55 46 |:SECTOR:"S$":BUF|
00000690: 46 45 52 3A 22 42 24 22 91 22 00 B2 0E A9 16 98 |FER:"B$"."......|
000006A0: 31 35 2C 22 55 31 3A 22 3B 35 3B 30 3B 54 52 3B |15,"U1:";5;0;TR;|
000006B0: 53 52 00 E0 0E AA 16 84 31 35 2C 41 24 2C 42 24 |SR......15,A$,B$|
000006C0: 2C 43 24 2C 44 24 3A 8B 42 24 B3 B1 22 4F 4B 22 |,C$,D$:.B$.."OK"|
000006D0: A7 99 22 11 45 52 52 4F 52 3A 22 41 24 2C 42 24 |..".ERROR:"A$,B$|
000006E0: 00 09 0F B2 16 9E 39 32 31 2C 42 55 3A 42 55 B2 |......921,BU:BU.|
000006F0: 42 55 AA 31 3A 53 52 B2 53 52 AA 31 3A 8B 42 55 |BU.1:SR.SR.1:.BU|
00000700: B2 31 34 34 A7 35 38 33 30 00 13 0F BC 16 89 35 |.144.5830......5|
00000710: 37 37 30 00 1E 0F C6 16 A0 35 3A A0 31 35 00 5B |770......5:.15.[|
00000720: 0F D0 16 99 22 11 11 2A 49 4E 53 45 52 54 20 44 |...."..*INSERT D|
00000730: 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B 2A |ESTINATION DISK*|
00000740: 22 3A 8D 36 30 30 30 3A 99 22 2A 57 52 49 54 49 |":.6000:."*WRITI|
00000750: 4E 47 2A 22 3A 42 45 4C 4C 42 45 00 77 0F DA 16 |NG*":BELLBE.w...|
00000760: 9F 31 35 2C 38 2C 31 35 2C 22 49 22 3A 9F 35 2C |.15,8,15,"I":.5,|
00000770: 38 2C 35 2C 22 23 22 00 86 0F E4 16 81 57 B2 32 |8,5,"#"......W.2|
00000780: 31 A4 42 55 AB 31 00 A2 0F EE 16 8B 53 57 B2 42 |1.BU.1......SW.B|
00000790: 4E 28 54 57 29 A7 54 57 B2 54 57 AA 31 3A 53 57 |N(TW).TW.TW.1:SW|
000007A0: B2 30 00 D1 0F F9 16 54 24 B2 CA 28 C4 28 54 57 |.0.....T$..(.(TW|
000007B0: 29 AA 22 20 20 22 2C 31 2C 34 29 3A 53 24 B2 CA |)." ",1,4):S$..|
000007C0: 28 C4 28 53 57 29 AA 22 20 20 20 22 2C 31 2C 34 |(.(SW)." ",1,4|
000007D0: 29 00 ED 0F FA 16 42 24 B2 CA 28 C4 28 57 AB 32 |).....B$..(.(W.2|
000007E0: 31 29 AA 22 20 20 20 22 2C 31 2C 34 29 00 18 10 |1)." ",1,4)...|
000007F0: 02 17 99 22 54 52 41 43 4B 3A 22 54 24 22 3A 53 |..."TRACK:"T$":S|
00000800: 45 43 54 4F 52 3A 22 53 24 22 3A 42 55 46 46 45 |ECTOR:"S$":BUFFE|
00000810: 52 3A 22 42 24 22 91 22 00 4C 10 0C 17 98 31 35 |R:"B$".".L....15|
00000820: 2C 22 42 2D 50 22 3B 35 3B 30 3A 9E 39 32 34 2C |,"B-P";5;0:.924,|
00000830: 57 3A 98 31 35 2C 22 55 32 22 3B 35 3B 30 3B 54 |W:.15,"U2";5;0;T|
00000840: 57 3B 53 57 3A 53 57 B2 53 57 AA 31 00 66 10 16 |W;SW:SW.SW.1.f..|
00000850: 17 82 57 3A A0 35 3A A0 31 35 3A 8B 54 57 B3 33 |..W:.5:.15:.TW.3|
00000860: 35 A7 35 37 34 31 00 77 10 17 17 8B 53 57 B3 B1 |5.5741.w....SW..|
00000870: 31 37 A7 35 37 34 31 00 A3 10 20 17 42 4C 41 4E |17.5741... .BLAN|
00000880: 4B 30 3A 49 4E 49 54 3A 99 22 11 11 43 4F 50 59 |K0:INIT:."..COPY|
00000890: 20 43 4F 4D 50 4C 45 54 45 2E 22 3A 8D 36 30 30 | COMPLETE.":.600|
000008A0: 30 3A 8A 00 CD 10 70 17 97 31 39 38 2C 30 3A 99 |0:....p..198,0:.|
000008B0: 22 2A 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 |"*PRESS ANY KEY |
000008C0: 54 4F 20 43 4F 4E 54 49 4E 55 45 2A 22 00 F0 10 |TO CONTINUE*"...|
000008D0: 7A 17 43 54 B2 43 54 AA 31 3A 8B 43 54 B2 31 35 |z.CT.CT.1:.CT.15|
000008E0: A7 3A 42 45 4C 4C 20 37 30 30 30 3A 43 54 B2 30 |.:BELL 7000:CT.0|
000008F0: 00 04 11 84 17 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 |......K$:.K$."".|
00000900: 36 30 31 30 00 0A 11 8E 17 8E 00 00 00 56 4F 00 |6010.........VO.|
00000910: 00 00 00 00 54 3A 8E 00 00 00 31 35 3A 49 4E 49 |....T:....15:INI|
00000920: 54 3A 8E 00 00 00 00 41 80 01 FF 9F 00 00 41 CE |T:.....A......A.|
00000930: 01 FE 9F 00 00 43 54 00 00 00 00 00 4B 80 01 FD |.....CT.....K...|
00000940: 9F 00 00 59 00 00 00 00 00 00 35 A4 33 30 3A 42 |...Y......5.30:B|
00000950: 4E 28 49 29 B2 31 38 3A 82 00 58 15 2A 23 81 49 |N(I).18:..X.*#.I|
00000960: B2 33 31 A4 33 35 3A 42 4E 28 49 29 B2 31 37 3A |.31.35:BN(I).17:|
00000970: 82 00 00 00 42 45 8E 6A 60 00 00 53 41 8E 14 00 |....BE.j`..SA...|
00000980: 00 00 41 80 02 FD 3F 00 00 41 CE 01 1E 40 00 00 |..A...?..A...@..|
00000990: 43 54 84 40 00 00 00 4B 80 01 1F 40 00 00 49 00 |CT.@...K...@..I.|
000009A0: 89 00 00 00 00 54 00 86 10 00 00 00 53 00 00 00 |.....T......S...|
000009B0: 00 00 00 42 80 02 FB 3F 00 00 43 80 02 F9 3F 00 |...B...?..C...?.|
000009C0: 00 44 80 02 F7 3F 00 00 54 80 04 14 40 00 00 53 |.D...?..T...@..S|
000009D0: 80 04 0A 40 00 00 45 41 11 00 00 00 00 53 31 84 |...@..EA.....S1.|
000009E0: 70 00 00 00 41 44 8E 08 00 00 00 42 55 86 14 00 |p...AD.....BU...|
000009F0: 00 00 54 52 81 00 00 00 00 54 57 81 00 00 00 00 |..TR.....TW.....|
00000A00: 53 52 81 00 00 00 00 53 57 81 00 00 00 00 42 4E |SR.....SW.....BN|
00000A10: BB 00 01 00 24 00 00 00 00 00 85 28 00 00 00 85 |....$......(....|
00000A20: 28 00 00 00 85 28 00 00 00 85 28 00 00 00 85 28 |(....(....(....(|
00000A30: 00 00 00 85 28 00 00 00 85 28 00 00 00 85 28 00 |....(....(....(.|
00000A40: 00 00 85 28 00 00 00 85 28 00 00 00 85 28 00 00 |...(....(....(..|
00000A50: 00 85 28 00 00 00 85 28 00 00 00 85 28 00 00 00 |..(....(....(...|
00000A60: 85 28 00 00 00 85 28 00 00 00 85 28 00 00 00 85 |.(....(....(....|
00000A70: 18 00 00 00 85 18 00 00 00 85 18 00 00 00 85 18 |................|
00000A80: 00 00 00 85 18 00 00 00 85 18 00 00 00 85 18 00 |................|
00000A90: 00 00 85 10 00 00 00 85 10 00 00 00 85 10 00 00 |................|
00000AA0: 00 85 10 00 00 00 85 10 00 00 00 85 10 00 00 00 |................|
00000AB0: 85 08 00 00 00 85 08 00 00 00 85 08 00 00 00 85 |................|
00000AC0: 08 00 00 00 85 08 00 00 00 45 52 81 0F 02 00 16 |.........ER.....|
00000AD0: 00 24 00 00 00 00 00 00 00 00 |.$........ |
..)...VOL15:BE.15000:SA.5376:.55,0:.56,2
1.;....B(1019).1.10.V....1019,1:."DISK.M
L",8,1.....CLEAR:."THE BASIC ENHANCER:*C
OPYDISK*"......"BY MICHAEL BEDFORD".....
."..*COPYDISK MENU*".O.(..".A-COPY BY FI
LENAME"...<.."B-COPY ENTIRE DISK"...=.."
C-EXIT TO BASIC ENHANCER".!.>.."D-VIEW D
IRECTORY".-.?.BELL BE.B.F.."..SELECTION:
";.T.P..A$:.A$."".80.\.Z..A$.L.D..A$."A"
.180.}.X..A$."B".5400......A$."C"..49152
:.......A$."D".:CLEAR:DISKDIR"$":.150:.1
0......"?? INVALID CHOICE ??":PAUSE:.10.
....."*PRESS ANY KEY TO CONTINUE*".....B
ELL BE.!. ..K$:.K$."".160.'.....I...CLEA
R:BELL BE:."FILENAME-";F$.N...BELL BE:."
FILE TYPE (P/S/U/R):";......T$:.T$."".18
2......T$."P".T$."S".T$."U".T$."R".185.O
....:."?? INVALID CHOICE ??":PAUSE:.181.
W....T$......".*INSERT SOURCE DISK*":.15
0...H.BELL5000:.".*READING*":INIT:.500.$
.....C....5,8,5,"0:".F$.",".T$.",R".L...
B.SA.W....828,B.P....ST..64.B.B.255:.530
...&. 5:EA.(B.B(251)).1...'..".*INSERT D
ESTINATION DISK*":.150:BELL5000.N.(..".*
WRITING*":INIT...0..5,8,5,"0:".F$.",".T$
.",W":EZ.EA.SA...2.B1..(EZ.250):B2.EZ.(B
1.250):B3.SA.6.3..B1.0..872,B3,B2:.580.E
.:..I.1.B1:.872,B3,250:B3.B3.250:.:.872,
B3,B2.L.D. 5...N.."*COPY COMPLETE*":.600
0:......CLEAR
......"*INSERT DESTINATION DISK
*":.6000...".."*FORMATTING*":BELLBE:HEAD
ER"N0:NOT COPIED,00". ....BN(35).K....I.
1.17:BN(I).21:.:.I.18.24:BN(I).19:..C...
.I.25.30:BN(I).18:..{....I.31.35:BN(I).1
7:....L.BU.21:TR.1:TW.1:SR.0:SW.0...M.."
..*INSERT SOURCE DISK*":.6000...V.."*REA
DING*":BU.21:BELL BE......15,8,15,"I":.5
,8,5,"#"......SR.BN(TR).TR.TR.1:SR.0.$..
..TR.36.5830.R...T$.J(D(TR)." ",1,4):S$
.J(D(SR)." ",1,4).O. .B$.J(D(BU.21)."
",1,4)......"TRACK:"T$":SECTOR:"S$":BUF
FER:"B$"."......15,"U1:";5;0;TR;SR......
15,A$,B$,C$,D$:.B$.."OK"..".ERROR:"A$,B$
......921,BU:BU.BU.1:SR.SR.1:.BU.144.583
0......5770...F. 5: 15.[.P.."..*INSERT D
ESTINATION DISK*":.6000:."*WRITING*":BEL
LBE.W.Z..15,8,15,"I":.5,8,5,"#"......W.2
1.BU.1......SW.BN(TW).TW.TW.1:SW.0.Q...T
$.J(D(TW)." ",1,4):S$.J(D(SW)." ",1,4
).....B$.J(D(W.21)." ",1,4)......"TRAC
K:"T$":SECTOR:"S$":BUFFER:"B$".".L....15
,"B-P";5;0:.924,W:.15,"U2";5;0;TW;SW:SW.
SW.1.F....W: 5: 15:.TW.35.5741.W....SW..
17.5741... .BLANK0:INIT:."..COPY COMPLET
E.":.6000:..M.P..198,0:."*PRESS ANY KEY
TO CONTINUE*"...Z.CT.CT.1:.CT.15.:BELL 7
000:CT.0......K$:.K$."".6010.........VO.
....T:....15:INIT:.....A......AN.....CT.
....K......Y......5.30:BN(I).18:..X.*#.I
.31.35:BN(I).17:....BE.J`..SA.....A...?.
.AN..@..CT.@...K...@..I......T......S...
...B...?..C...?..D...?..T...@..S...@..EA
.....S1.P...AD.....BU.....TR.....TW.....
SR.....SW.....BN....$......(....(....(..
..(....(....(....(....(....(....(....(..
..(....(....(....(....(....(............
........................................
........................................
.ER......$........
> CLICK IMAGE PREVIEW FOR FULL MODAL