CHANGE DRIVES
FILE INFORMATION
FILENAME(S): CHANGE DRIVES
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:11:20
APPEARS ON: 1 disk(s)
FILE HASH
91f00bd68b5bc87755b7797e3bf3b785ed6cd6d79abfb32f6ecb9f345e9112d3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NOW PROGS | CHANGE DRIVES | PRG | DuncanTwain | 14 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 10 08 64 00 4D 45 4E 55 B2 33 38 36 38 32 |....d.MENU.38682|
00000010: 00 1D 08 65 00 8B 58 B2 31 A7 31 30 34 00 2A 08 |...e..X.1.104.*.|
00000020: 66 00 8B 58 B2 32 A7 31 30 36 00 44 08 67 00 58 |f..X.2.106.D.g.X|
00000030: B2 31 3A 93 22 4D 41 49 4C 20 4E 4F 57 31 22 2C |.1:."MAIL NOW1",|
00000040: 38 2C 31 3A 00 50 08 68 00 9E 28 4D 45 4E 55 29 |8,1:.P.h..(MENU)|
00000050: 00 69 08 69 00 58 B2 32 3A 93 22 4D 41 49 4C 20 |.i.i.X.2:."MAIL |
00000060: 4E 4F 57 32 22 2C 38 2C 31 00 A4 08 6A 00 9E 28 |NOW2",8,1...j..(|
00000070: 4D 45 4E 55 29 3A 99 22 1E 48 4F 57 20 4D 41 4E |MENU):.".HOW MAN|
00000080: 59 20 44 49 53 4B 20 44 52 49 56 45 53 20 41 52 |Y DISK DRIVES AR|
00000090: 45 20 59 4F 55 20 55 53 49 4E 47 20 20 20 31 9D |E YOU USING 1.|
000000A0: 9D 9D 22 3B 00 B2 08 6B 00 8D 31 38 32 3A 44 31 |..";...k..182:D1|
000000B0: B2 58 00 C0 08 6C 00 8B 44 31 B2 31 A7 31 35 38 |.X...l..D1.1.158|
000000C0: 00 CF 08 6D 00 8B 44 31 B3 B1 32 A7 31 30 36 00 |...m..D1..2.106.|
000000D0: DB 08 6E 00 9E 28 4D 45 4E 55 29 00 0F 09 6F 00 |..n..(MENU)...o.|
000000E0: 99 22 9A 45 4E 54 45 52 20 9E 44 52 49 56 45 9A |.".ENTER .DRIVE.|
000000F0: 20 23 20 46 4F 52 20 54 48 45 20 05 44 41 54 41 | # FOR THE .DATA|
00000100: 20 44 49 53 4B 9A 20 20 20 31 9D 9D 9D 22 3B 00 | DISK. 1...";.|
00000110: 1D 09 70 00 8D 31 38 32 3A 44 32 B2 58 00 30 09 |..p..182:D2.X.0.|
00000120: 71 00 8B 44 34 B3 30 B0 44 34 B1 34 A7 31 31 31 |q..D4.0.D4.4.111|
00000130: 00 3C 09 72 00 9E 28 4D 45 4E 55 29 00 72 09 73 |.<.r..(MENU).r.s|
00000140: 00 99 22 9A 45 4E 54 45 52 20 1E 44 45 56 49 43 |..".ENTER .DEVIC|
00000150: 45 9A 20 23 20 46 4F 52 20 54 48 45 20 05 44 41 |E. # FOR THE .DA|
00000160: 54 41 20 44 49 53 4B 9A 20 20 20 20 38 9D 9D 9D |TA DISK. 8...|
00000170: 22 3B 00 80 09 74 00 8D 31 38 32 3A 44 33 B2 58 |";...t..182:D3.X|
00000180: 00 94 09 75 00 8B 44 33 B3 38 B0 44 33 B1 31 30 |...u..D3.8.D3.10|
00000190: A7 31 31 34 00 AF 09 76 00 97 34 39 39 36 33 2C |.114...v..49963,|
000001A0: 44 32 AA 34 38 3A 97 34 39 39 36 35 2C 44 33 00 |D2.48:.49965,D3.|
000001B0: BB 09 77 00 9E 28 4D 45 4E 55 29 00 ED 09 78 00 |..w..(MENU)...x.|
000001C0: 99 22 9A 45 4E 54 45 52 20 9E 44 52 49 56 45 9A |.".ENTER .DRIVE.|
000001D0: 20 23 20 46 4F 52 20 05 57 4F 52 4B 20 46 49 4C | # FOR .WORK FIL|
000001E0: 45 53 9A 20 20 20 20 30 9D 9D 9D 22 3B 00 FB 09 |ES. 0...";...|
000001F0: 79 00 8D 31 38 32 3A 44 34 B2 58 00 0E 0A 7A 00 |y..182:D4.X...z.|
00000200: 8B 44 34 B3 30 B0 44 34 B1 34 A7 31 31 39 00 1A |.D4.0.D4.4.119..|
00000210: 0A 7B 00 9E 28 4D 45 4E 55 29 00 4D 0A 7C 00 99 |.{..(MENU).M.|..|
00000220: 22 9A 45 4E 54 45 52 20 1E 44 45 56 49 43 45 9A |".ENTER .DEVICE.|
00000230: 20 23 20 46 4F 52 20 05 57 4F 52 4B 20 46 49 4C | # FOR .WORK FIL|
00000240: 45 53 9A 20 20 20 20 38 9D 9D 9D 22 3B 00 5B 0A |ES. 8...";.[.|
00000250: 7D 00 8D 31 38 32 3A 44 35 B2 58 00 6F 0A 7E 00 |}..182:D5.X.o.~.|
00000260: 8B 44 35 B3 38 B0 44 35 B1 31 30 A7 31 32 33 00 |.D5.8.D5.10.123.|
00000270: 8A 0A 7F 00 97 34 39 39 36 37 2C 44 34 AA 34 38 |.....49967,D4.48|
00000280: 3A 97 34 39 39 36 39 2C 44 35 00 A0 0A 80 00 97 |:.49969,D5......|
00000290: 34 39 39 36 34 2C 30 3A 97 34 39 39 36 36 2C 30 |49964,0:.49966,0|
000002A0: 00 B6 0A 81 00 97 34 39 39 36 38 2C 30 3A 97 34 |......49968,0:.4|
000002B0: 39 39 37 30 2C 30 00 C2 0A 82 00 9E 28 4D 45 4E |9970,0......(MEN|
000002C0: 55 29 00 F1 0A 83 00 99 22 9F 41 52 45 20 59 4F |U)......".ARE YO|
000002D0: 55 20 55 53 49 4E 47 20 41 4E 20 49 45 45 45 20 |U USING AN IEEE |
000002E0: 49 4E 54 45 52 46 41 43 45 20 22 3B 3A 8D 31 38 |INTERFACE ";:.18|
000002F0: 32 00 26 0B 84 00 8B C8 28 41 24 2C 31 29 B3 B1 |2.&.....(A$,1)..|
00000300: 22 59 22 A7 4E 43 B2 31 35 32 30 30 3A 4D 43 B2 |"Y".NC.15200:MC.|
00000310: 4E 43 3A 50 43 B2 4D 43 3A 54 50 B2 35 33 32 34 |NC:PC.MC:TP.5324|
00000320: 37 3A 89 31 34 38 00 32 0B 85 00 9E 28 4D 45 4E |7:.148.2....(MEN|
00000330: 55 29 00 69 0B 86 00 99 22 9E 54 4F 50 20 4F 46 |U).i....".TOP OF|
00000340: 20 4D 45 4D 4F 52 59 20 41 54 22 3A 99 22 20 20 | MEMORY AT":." |
00000350: 35 33 32 34 37 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 8D |53247.......";:.|
00000360: 31 38 32 3A 54 50 B2 58 31 00 88 0B 87 00 8B 28 |182:TP.X1......(|
00000370: 54 50 B3 35 30 32 32 31 29 B0 28 54 50 B1 35 33 |TP.50221).(TP.53|
00000380: 32 34 37 29 A7 31 33 30 00 94 0B 88 00 9E 28 4D |247).130......(M|
00000390: 45 4E 55 29 00 C0 0B 89 00 99 22 9A 45 4E 54 45 |ENU)......".ENTE|
000003A0: 52 20 43 41 4C 4C 20 41 44 44 52 45 53 53 20 46 |R CALL ADDRESS F|
000003B0: 4F 52 20 05 44 41 54 41 20 44 52 49 56 45 9A 22 |OR .DATA DRIVE."|
000003C0: 00 E3 0B 8A 00 99 22 20 20 20 36 34 37 38 39 9D |......" 64789.|
000003D0: 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 31 38 32 3A 4D 43 |......";:.182:MC|
000003E0: B2 58 31 00 FF 0B 8B 00 8B 28 4D 43 B3 54 50 29 |.X1......(MC.TP)|
000003F0: B0 28 4D 43 B1 36 35 35 33 30 29 A7 31 33 30 00 |.(MC.65530).130.|
00000400: 0B 0C 8C 00 9E 28 4D 45 4E 55 29 00 37 0C 8D 00 |.....(MENU).7...|
00000410: 99 22 9A 45 4E 54 45 52 20 43 41 4C 4C 20 41 44 |.".ENTER CALL AD|
00000420: 44 52 45 53 53 20 46 4F 52 20 05 57 4F 52 4B 20 |DRESS FOR .WORK |
00000430: 44 52 49 56 45 9A 22 00 5A 0C 8E 00 99 22 20 20 |DRIVE.".Z...." |
00000440: 20 36 34 37 38 39 9D 9D 9D 9D 9D 9D 9D 22 3B 3A | 64789.......";:|
00000450: 8D 31 38 32 3A 4E 43 B2 58 31 00 76 0C 8F 00 8B |.182:NC.X1.v....|
00000460: 28 4E 43 B3 54 50 29 B0 28 4E 43 B1 36 35 35 33 |(NC.TP).(NC.6553|
00000470: 30 29 A7 31 33 30 00 82 0C 90 00 9E 28 4D 45 4E |0).130......(MEN|
00000480: 55 29 00 AB 0C 91 00 99 22 9A 45 4E 54 45 52 20 |U)......".ENTER |
00000490: 43 41 4C 4C 20 41 44 44 52 45 53 53 20 46 4F 52 |CALL ADDRESS FOR|
000004A0: 20 05 50 52 49 4E 54 45 52 9A 22 00 CE 0C 92 00 | .PRINTER.".....|
000004B0: 99 22 20 20 20 36 34 37 38 39 9D 9D 9D 9D 9D 9D |." 64789......|
000004C0: 9D 22 3B 3A 8D 31 38 32 3A 50 43 B2 58 31 00 EA |.";:.182:PC.X1..|
000004D0: 0C 93 00 8B 28 50 43 B3 54 50 29 B0 28 50 43 B1 |....(PC.TP).(PC.|
000004E0: 36 35 35 33 30 29 A7 31 33 30 00 FE 0C 94 00 96 |65530).130......|
000004F0: A5 48 28 58 29 B2 B5 28 58 AD 32 35 36 29 00 15 |.H(X)..(X.256)..|
00000500: 0D 95 00 96 A5 4C 28 58 29 B2 58 AB A5 48 28 58 |.....L(X).X..H(X|
00000510: 29 AC 32 35 36 00 35 0D 96 00 97 34 39 39 37 31 |).256.5....49971|
00000520: 2C A5 4C 28 4E 43 29 3A 97 34 39 39 37 32 2C A5 |,.L(NC):.49972,.|
00000530: 48 28 4E 43 29 00 55 0D 97 00 97 34 39 39 37 33 |H(NC).U....49973|
00000540: 2C A5 4C 28 4D 43 29 3A 97 34 39 39 37 34 2C A5 |,.L(MC):.49974,.|
00000550: 48 28 4D 43 29 00 75 0D 98 00 97 34 39 39 37 35 |H(MC).u....49975|
00000560: 2C A5 4C 28 50 43 29 3A 97 34 39 39 37 36 2C A5 |,.L(PC):.49976,.|
00000570: 48 28 50 43 29 00 95 0D 99 00 97 34 39 39 33 35 |H(PC)......49935|
00000580: 2C A5 4C 28 54 50 29 3A 97 34 39 39 33 36 2C A5 |,.L(TP):.49936,.|
00000590: 48 28 54 50 29 00 B5 0D 9A 00 97 34 39 39 33 37 |H(TP)......49937|
000005A0: 2C A5 4C 28 54 50 29 3A 97 34 39 39 33 38 2C A5 |,.L(TP):.49938,.|
000005B0: 48 28 54 50 29 00 C2 0D 9B 00 97 34 39 39 33 39 |H(TP)......49939|
000005C0: 2C 58 00 E3 0D 9C 00 58 B2 31 35 3A 8B 28 4D 43 |,X.....X.15:.(MC|
000005D0: B3 B1 4E 43 29 B0 28 44 35 B3 B1 44 33 29 A7 58 |..NC).(D5..D3).X|
000005E0: B2 31 33 00 F0 0D 9D 00 97 34 39 39 33 39 2C 58 |.13......49939,X|
000005F0: 00 FD 0D 9E 00 97 35 30 31 32 39 2C 32 00 0A 0E |......50129,2...|
00000600: 9F 00 97 35 30 31 33 30 2C 30 00 17 0E A0 00 97 |...50130,0......|
00000610: 35 30 31 33 31 2C 30 00 24 0E A1 00 97 35 30 31 |50131,0.$....501|
00000620: 33 32 2C 32 00 31 0E A2 00 97 35 30 31 33 33 2C |32,2.1....50133,|
00000630: 32 00 3E 0E A3 00 97 35 30 31 33 34 2C 35 00 4B |2.>....50134,5.K|
00000640: 0E A4 00 97 35 30 31 33 35 2C 30 00 58 0E A5 00 |....50135,0.X...|
00000650: 97 35 30 31 33 36 2C 30 00 64 0E A6 00 9E 28 4D |.50136,0.d....(M|
00000660: 45 4E 55 29 00 94 0E A7 00 99 22 9E 52 45 4D 4F |ENU)......".REMO|
00000670: 56 45 9A 20 54 48 45 20 50 52 4F 47 52 41 4D 20 |VE. THE PROGRAM |
00000680: 57 52 49 54 45 20 50 52 4F 54 45 43 54 20 22 3A |WRITE PROTECT ":|
00000690: 8D 31 38 35 00 9D 0E A8 00 8D 31 37 37 00 AC 0E |.185......177...|
000006A0: A9 00 8B 41 B3 B1 30 A7 89 31 36 36 00 B7 0E AA |...A..0..166....|
000006B0: 00 9E 34 39 31 35 32 00 C2 0E AB 00 A0 36 3A A0 |..49152......6:.|
000006C0: 31 35 00 CE 0E AC 00 9E 28 4D 45 4E 55 29 00 FE |15......(MENU)..|
000006D0: 0E AD 00 99 22 9E 52 45 50 4C 41 43 45 9A 20 54 |....".REPLACE. T|
000006E0: 48 45 20 50 52 4F 47 52 41 4D 20 57 52 49 54 45 |HE PROGRAM WRITE|
000006F0: 20 50 52 4F 54 45 43 54 22 3A 8D 31 38 35 00 07 | PROTECT":.185..|
00000700: 0F AE 00 8D 31 37 37 00 16 0F AF 00 8B 28 41 B2 |....177......(A.|
00000710: 30 29 A7 31 37 32 00 2D 0F B0 00 93 22 4D 41 49 |0).172.-...."MAI|
00000720: 4C 20 4E 4F 57 21 2A 22 2C 38 2C 31 3A 00 51 0F |L NOW!*",8,1:.Q.|
00000730: B1 00 9F 31 35 2C 38 2C 31 35 3A 9F 34 2C 38 2C |...15,8,15:.4,8,|
00000740: 34 2C 22 30 3A 4D 41 49 4C 20 41 41 2C 53 2C 57 |4,"0:MAIL AA,S,W|
00000750: 22 00 64 0F B2 00 84 31 35 2C 41 2C 41 24 2C 41 |".d....15,A,A$,A|
00000760: 31 2C 41 31 00 81 0F B3 00 8B 41 B2 30 A7 A0 34 |1,A1......A.0..4|
00000770: 3A 98 31 35 2C 22 53 30 3A 4D 41 49 4C 20 41 41 |:.15,"S0:MAIL AA|
00000780: 22 00 8E 0F B4 00 98 31 35 2C 22 49 30 22 00 9B |"......15,"I0"..|
00000790: 0F B5 00 A0 31 35 3A A0 34 3A 8E 00 B0 0F B6 00 |....15:.4:......|
000007A0: 97 31 39 38 2C 30 3A 99 22 05 22 3B 3A 85 41 24 |.198,0:.".";:.A$|
000007B0: 00 C1 0F B7 00 58 B2 C5 28 C8 28 41 24 2C 31 29 |.....X..(.(A$,1)|
000007C0: 29 00 D5 0F B8 00 58 31 B2 C5 28 C8 28 41 24 2C |).....X1..(.(A$,|
000007D0: 35 29 29 3A 8E 00 F4 0F B9 00 99 22 99 20 20 20 |5)):.......". |
000007E0: 20 50 52 45 53 53 20 52 45 54 55 52 4E 22 3B 3A | PRESS RETURN";:|
000007F0: 8D 31 38 32 00 FA 0F BA 00 8E 00 00 10 BB 00 80 |.182............|
00000800: 00 00 00 |... |
....D.MENU.38682...E..X.1.104.*.F..X.2.1
06.D.G.X.1:."MAIL NOW1",8,1:.P.H..(MENU)
.I.I.X.2:."MAIL NOW2",8,1...J..(MENU):."
.HOW MANY DISK DRIVES ARE YOU USING 1.
..";...K..182:D1.X...L..D1.1.158.O.M..D1
..2.106...N..(MENU)...O..".ENTER .DRIVE.
# FOR THE .DATA DISK. 1...";...P..182
:D2.X.0.Q..D4.0.D4.4.111.<.R..(MENU).R.S
..".ENTER .DEVICE. # FOR THE .DATA DISK.
8...";...T..182:D3.X...U..D3.8.D3.10
.114...V..49963,D2.48:.49965,D3...W..(ME
NU)...X..".ENTER .DRIVE. # FOR .WORK FIL
ES. 0...";...Y..182:D4.X...Z..D4.0.D4
.4.119...{..(MENU).M.|..".ENTER .DEVICE.
# FOR .WORK FILES. 8...";.[.}..182:D
5.X.O.~..D5.8.D5.10.123.....49967,D4.48
:.49969,D5. ....49964,0:.49966,0......49
968,0:.49970,0.B....(MENU)......".ARE YO
U USING AN IEEE INTERFACE ";:.182.&....H
(A$,1).."Y".NC.15200:MC.NC:PC.MC:TP.5324
7:.148.2....(MENU).I....".TOP OF MEMORY
AT":." 53247.......";:.182:TP.X1......(
TP.50221).(TP.53247).130......(MENU)....
..".ENTER CALL ADDRESS FOR .DATA DRIVE."
......" 64789.......";:.182:MC.X1.....
.(MC.TP).(MC.65530).130......(MENU).7...
.".ENTER CALL ADDRESS FOR .WORK DRIVE.".
Z...." 64789.......";:.182:NC.X1.V....
(NC.TP).(NC.65530).130......(MENU)......
".ENTER CALL ADDRESS FOR .PRINTER.".N...
." 64789.......";:.182:PC.X1......(PC.
TP).(PC.65530).130.......H(X)..(X.256)..
.....L(X).X..H(X).256.5....49971,.L(NC):
.49972,.H(NC).U....49973,.L(MC):.49974,.
H(MC).U....49975,.L(PC):.49976,.H(PC)...
...49935,.L(TP):.49936,.H(TP)......49937
,.L(TP):.49938,.H(TP).B....49939,X.....X
.15:.(MC..NC).(D5..D3).X.13......49939,X
......50129,2......50130,0... ..50131,0.
$....50132,2.1....50133,2.>....50134,5.K
....50135,0.X....50136,0.D....(MENU)....
..".REMOVE. THE PROGRAM WRITE PROTECT ":
.185......177......A..0..166......49152.
B... 6: 15.N....(MENU)......".REPLACE. T
HE PROGRAM WRITE PROTECT":.185......177.
.....(A.0).172.-...."MAIL NOW!*",8,1:.Q.
...15,8,15:.4,8,4,"0:MAIL AA,S,W".D....1
5,A,A$,A1,A1......A.0. 4:.15,"S0:MAIL AA
"......15,"I0"..... 15: 4:.......198,0:.
".";:.A$.A...X.E(H(A$,1)).U...X1.E(H(A$,
5)):.......". PRESS RETURN";:.182....
...........
> CLICK IMAGE PREVIEW FOR FULL MODAL