DISK MANAGER
FILE INFORMATION
FILENAME(S): DISK MANAGER
FILE TYPE(S): PRG
FILE SIZE: 4.7K
FIRST SEEN: 2025-11-30 21:28:03
APPEARS ON: 1 disk(s)
FILE HASH
f2f1b637b3ff2b33605f28fa6dab8e65dbd2f35bbacadb90a618b4dfb252a85d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| T STOUGIE | DISK MANAGER | PRG | DuncanTwain | 32 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 00 00 97 20 35 33 32 38 30 2C 36 3A |..".... 53280,6:|
00000010: 97 20 35 33 32 38 31 2C 31 35 3A 97 20 36 34 36 |. 53281,15:. 646|
00000020: 2C 30 00 3E 08 01 00 8F 20 53 41 56 45 20 22 44 |,0.>.... SAVE "D|
00000030: 49 53 4B 20 4D 41 4E 41 47 45 52 22 2C 38 00 64 |ISK MANAGER",8.d|
00000040: 08 02 00 8F 20 44 45 43 45 4D 42 45 52 20 43 4F |.... DECEMBER CO|
00000050: 4D 50 55 54 45 20 47 41 5A 45 54 54 45 2C 20 50 |MPUTE GAZETTE, P|
00000060: 47 31 33 30 00 8C 08 03 00 97 20 34 39 31 35 32 |G130...... 49152|
00000070: 2C 31 30 3A 8B 20 C2 28 34 39 31 35 32 29 B3 B1 |,10:. .(49152)..|
00000080: 31 30 20 A7 20 43 30 B2 31 3A 89 36 00 95 08 05 |10 . C0.1:.6....|
00000090: 00 43 30 B2 32 00 A4 08 06 00 86 20 44 4F 53 25 |.C0.2...... DOS%|
000000A0: 28 36 35 29 00 C5 08 07 00 46 52 B2 B8 28 30 29 |(65).....FR..(0)|
000000B0: 3A 8B 20 46 52 B3 30 20 A7 20 46 52 B2 46 52 AA |:. FR.0 . FR.FR.|
000000C0: 36 35 35 33 36 00 E4 08 08 00 53 B2 28 46 52 AB |65536.....S.(FR.|
000000D0: 34 30 30 29 AD 32 3A 4D 32 B2 B5 28 53 AD 32 35 |400).2:M2..(S.25|
000000E0: 36 29 AA 31 00 F3 08 09 00 86 20 54 45 4D 50 25 |6).1...... TEMP%|
000000F0: 28 53 29 00 FD 08 0A 00 99 22 93 22 3B 00 19 09 |(S)......".";...|
00000100: 0F 00 99 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..." **********|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 22 00 35 09 14 00 99 22 |********".5...."|
00000120: 20 20 2A 20 20 44 49 53 4B 20 4D 41 4E 41 47 45 | * DISK MANAGE|
00000130: 52 20 20 2A 22 00 51 09 19 00 99 22 20 20 2A 2A |R *".Q...." **|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000150: 22 00 6B 09 32 00 99 3A 99 22 31 2E 44 49 53 4B |".k.2..:."1.DISK|
00000160: 20 44 49 52 45 43 54 4F 52 59 22 00 84 09 3C 00 | DIRECTORY"...<.|
00000170: 99 22 32 2E 46 4F 52 4D 41 54 20 4E 45 57 20 44 |."2.FORMAT NEW D|
00000180: 49 53 4B 22 00 9D 09 46 00 99 22 33 2E 49 4E 49 |ISK"...F.."3.INI|
00000190: 54 49 41 4C 49 5A 45 20 44 49 53 4B 22 00 BD 09 |TIALIZE DISK"...|
000001A0: 50 00 99 22 34 2E 43 4F 50 59 20 46 49 4C 45 20 |P.."4.COPY FILE |
000001B0: 4F 4E 20 53 41 4D 45 20 44 49 53 4B 22 00 E8 09 |ON SAME DISK"...|
000001C0: 55 00 99 22 35 2E 43 4F 50 59 20 46 49 4C 45 20 |U.."5.COPY FILE |
000001D0: 4F 4E 20 4E 45 57 20 28 46 4F 52 4D 41 54 54 45 |ON NEW (FORMATTE|
000001E0: 44 29 20 44 49 53 4B 22 00 0E 0A 58 00 99 22 36 |D) DISK"...X.."6|
000001F0: 2E 43 4F 50 59 20 42 4F 54 48 20 44 4F 53 20 57 |.COPY BOTH DOS W|
00000200: 45 44 47 45 20 50 52 4F 47 52 41 4D 53 22 00 23 |EDGE PROGRAMS".#|
00000210: 0A 5A 00 99 22 37 2E 52 45 4E 41 4D 45 20 46 49 |.Z.."7.RENAME FI|
00000220: 4C 45 22 00 3A 0A 64 00 99 22 38 2E 45 52 41 53 |LE".:.d.."8.ERAS|
00000230: 45 20 46 49 4C 45 28 53 29 22 00 52 0A 6E 00 99 |E FILE(S)".R.n..|
00000240: 22 39 2E 56 41 4C 49 44 41 54 45 20 46 49 4C 45 |"9.VALIDATE FILE|
00000250: 53 22 00 6F 0A 78 00 99 22 31 30 2E 57 52 49 54 |S".o.x.."10.WRIT|
00000260: 45 20 44 49 53 4B 20 4D 41 4E 41 47 45 52 22 00 |E DISK MANAGER".|
00000270: 86 0A 82 00 99 22 31 31 2E 45 52 52 4F 52 20 53 |....."11.ERROR S|
00000280: 54 41 54 55 53 22 00 A0 0A 8C 00 99 22 31 32 2E |TATUS"......"12.|
00000290: 45 58 49 54 20 54 4F 20 42 41 53 49 43 22 3A 99 |EXIT TO BASIC":.|
000002A0: 00 BD 0A AA 00 85 22 43 48 4F 49 43 45 20 20 20 |......"CHOICE |
000002B0: 20 9D 9D 9D 9D 22 3B 43 48 4F 49 43 45 00 E6 0A | ....";CHOICE...|
000002C0: B4 00 8B 20 28 43 48 4F 49 43 45 B3 31 29 B0 28 |... (CHOICE.1).(|
000002D0: 43 48 4F 49 43 45 B1 31 32 29 A7 20 99 22 91 22 |CHOICE.12). ."."|
000002E0: 3B 3A 89 31 37 30 00 26 0B C8 00 91 20 43 48 4F |;:.170.&.... CHO|
000002F0: 49 43 45 20 8D 20 32 35 30 2C 33 30 30 2C 33 35 |ICE . 250,300,35|
00000300: 30 2C 34 30 30 2C 38 30 30 2C 31 32 30 30 2C 34 |0,400,800,1200,4|
00000310: 35 30 2C 35 30 30 2C 35 35 30 2C 36 30 30 2C 36 |50,500,550,600,6|
00000320: 35 30 2C 37 30 30 00 2F 0B D2 00 89 20 31 30 00 |50,700./.... 10.|
00000330: 4F 0B FA 00 8F 20 2A 2A 2A 20 44 49 53 50 4C 41 |O.... *** DISPLA|
00000340: 59 20 44 49 52 45 43 54 4F 52 59 20 2A 2A 2A 00 |Y DIRECTORY ***.|
00000350: 58 0B FB 00 99 22 93 22 00 68 0B FC 00 9F 20 31 |X....".".h.... 1|
00000360: 2C 38 2C 30 2C 22 24 22 00 76 0B FD 00 A1 23 31 |,8,0,"$".v....#1|
00000370: 2C 41 24 2C 42 24 00 84 0B FE 00 A1 23 31 2C 41 |,A$,B$......#1,A|
00000380: 24 2C 42 24 00 92 0B 00 01 A1 23 31 2C 41 24 2C |$,B$......#1,A$,|
00000390: 42 24 00 AC 0B 02 01 43 B2 30 3A 8B 20 41 24 B3 |B$.....C.0:. A$.|
000003A0: B1 22 22 A7 20 43 B2 C6 28 41 24 29 00 C8 0B 04 |."". C..(A$)....|
000003B0: 01 8B 20 42 24 B3 B1 22 22 A7 20 43 B2 43 AA C6 |.. B$.."". C.C..|
000003C0: 28 42 24 29 AC 32 35 36 00 DD 0B 06 01 99 20 CA |(B$).256...... .|
000003D0: 28 C4 28 43 29 2C 32 29 3B A3 33 29 3B 00 F6 0B |(.(C),2);.3);...|
000003E0: 08 01 A1 23 31 2C 42 24 3A 8B 20 53 54 B3 B1 30 |...#1,B$:. ST..0|
000003F0: 20 A7 20 32 38 32 00 0D 0C 0A 01 8B 20 42 24 B3 | . 282...... B$.|
00000400: B1 20 C7 28 33 34 29 20 A7 20 32 36 34 00 32 0C |. .(34) . 264.2.|
00000410: 0C 01 A1 23 31 2C 42 24 3A 8B 20 42 24 B3 B1 20 |...#1,B$:. B$.. |
00000420: C7 28 33 34 29 20 A7 20 99 20 42 24 3B 3A 89 32 |.(34) . . B$;:.2|
00000430: 36 38 00 4F 0C 0E 01 A1 23 31 2C 42 24 3A 8B 20 |68.O....#1,B$:. |
00000440: 42 24 B2 20 C7 28 33 32 29 20 A7 20 32 37 30 00 |B$. .(32) . 270.|
00000450: 61 0C 10 01 99 20 A3 31 38 29 3B 3A 43 24 B2 22 |a.... .18);:C$."|
00000460: 22 00 85 0C 12 01 43 24 B2 43 24 AA 42 24 3A A1 |".....C$.C$.B$:.|
00000470: 20 23 31 2C 42 24 3A 8B 20 42 24 B3 B1 22 22 20 | #1,B$:. B$.."" |
00000480: A7 20 32 37 34 00 93 0C 14 01 99 20 C8 28 43 24 |. 274...... .(C$|
00000490: 2C 33 29 00 A4 0C 18 01 8B 20 53 54 B2 30 20 A7 |,3)...... ST.0 .|
000004A0: 20 32 35 34 00 B9 0C 1A 01 99 22 20 42 4C 4F 43 | 254......" BLOC|
000004B0: 4B 53 20 46 52 45 45 20 22 00 DE 0C 1C 01 A0 20 |KS FREE "...... |
000004C0: 31 3A 99 3A 99 3A 99 22 48 49 54 20 41 4E 59 20 |1:.:.:."HIT ANY |
000004D0: 4B 45 59 20 54 4F 20 52 45 54 55 52 4E 22 00 F4 |KEY TO RETURN"..|
000004E0: 0C 22 01 A1 20 58 24 3A 8B 20 58 24 B2 22 22 A7 |.".. X$:. X$."".|
000004F0: 20 32 39 30 00 FA 0C 27 01 8E 00 1A 0D 2C 01 8F | 290...'.....,..|
00000500: 20 2A 2A 2A 20 46 4F 52 4D 41 54 20 28 4E 45 57 | *** FORMAT (NEW|
00000510: 29 20 44 49 53 4B 20 2A 2A 2A 00 23 0D 2D 01 99 |) DISK ***.#.-..|
00000520: 22 93 22 00 4C 0D 31 01 99 22 49 4E 53 45 52 54 |".".L.1.."INSERT|
00000530: 20 44 49 53 4B 20 54 4F 20 42 45 22 3A 99 22 46 | DISK TO BE":."F|
00000540: 4F 52 4D 41 54 54 45 44 2E 22 3A 99 00 6B 0D 36 |ORMATTED.":..k.6|
00000550: 01 99 22 49 4E 50 55 54 20 44 49 53 4B 20 4E 41 |.."INPUT DISK NA|
00000560: 4D 45 22 3A 85 20 44 49 53 4B 24 00 8F 0D 40 01 |ME":. DISK$...@.|
00000570: 99 3A 99 22 49 4E 50 55 54 20 45 58 54 45 4E 44 |.:."INPUT EXTEND|
00000580: 45 52 20 4E 41 4D 45 22 3A 85 20 45 58 54 24 00 |ER NAME":. EXT$.|
00000590: AF 0D 45 01 4D 41 43 52 4F 24 B2 22 4E 30 3A 22 |..E.MACRO$."N0:"|
000005A0: AA 44 49 53 4B 24 AA 22 2C 22 AA 45 58 54 24 00 |.DISK$.",".EXT$.|
000005B0: C4 0D 4A 01 9F 20 31 35 2C 38 2C 31 35 2C 4D 41 |..J.. 15,8,15,MA|
000005C0: 43 52 4F 24 00 D9 0D 54 01 A0 20 31 35 3A 4D 41 |CRO$...T.. 15:MA|
000005D0: 43 52 4F 24 B2 22 22 3A 8E 00 F7 0D 5E 01 8F 20 |CRO$."":....^.. |
000005E0: 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 45 20 44 |*** INITIALIZE D|
000005F0: 49 53 4B 20 2A 2A 2A 00 00 0E 63 01 99 22 93 22 |ISK ***...c.."."|
00000600: 00 2B 0E 68 01 99 22 49 4E 53 45 52 54 20 44 49 |.+.h.."INSERT DI|
00000610: 53 4B 20 54 4F 20 42 45 22 3A 99 22 49 4E 49 54 |SK TO BE":."INIT|
00000620: 49 41 4C 49 5A 45 44 2E 22 3A 99 00 55 0E 72 01 |IALIZED.":..U.r.|
00000630: 99 22 48 49 54 20 3C 52 45 54 55 52 4E 3E 20 54 |."HIT <RETURN> T|
00000640: 4F 22 3A 99 22 49 4E 49 54 49 41 4C 49 5A 45 22 |O":."INITIALIZE"|
00000650: 3A 85 20 58 24 00 67 0E 7C 01 9F 20 31 35 2C 38 |:. X$.g.|.. 15,8|
00000660: 2C 31 35 2C 22 49 22 00 72 0E 86 01 A0 20 31 35 |,15,"I".r.... 15|
00000670: 3A 8E 00 97 0E 90 01 8F 20 2A 2A 2A 20 43 4F 50 |:....... *** COP|
00000680: 59 20 46 49 4C 45 20 4F 4E 20 53 41 4D 45 20 44 |Y FILE ON SAME D|
00000690: 49 53 4B 20 2A 2A 2A 00 A4 0E 95 01 99 22 93 22 |ISK ***......"."|
000006A0: 3A 99 3A 99 00 CA 0E 9A 01 99 22 49 4E 50 55 54 |:.:......."INPUT|
000006B0: 20 53 4F 55 52 43 45 20 46 49 4C 45 20 4E 41 4D | SOURCE FILE NAM|
000006C0: 45 22 3A 85 20 44 49 53 4B 24 00 EE 0E A4 01 99 |E":. DISK$......|
000006D0: 3A 99 22 49 4E 50 55 54 20 4E 45 57 20 46 49 4C |:."INPUT NEW FIL|
000006E0: 45 20 4E 41 4D 45 22 3A 85 20 4E 57 53 24 00 0D |E NAME":. NWS$..|
000006F0: 0F A9 01 4D 41 43 52 4F 24 B2 22 43 3A 22 AA 4E |...MACRO$."C:".N|
00000700: 57 53 24 AA 22 3D 22 AA 44 49 53 4B 24 00 22 0F |WS$."=".DISK$.".|
00000710: AE 01 9F 20 31 35 2C 38 2C 31 35 2C 4D 41 43 52 |... 15,8,15,MACR|
00000720: 4F 24 00 37 0F B8 01 A0 20 31 35 3A 4D 41 43 52 |O$.7.... 15:MACR|
00000730: 4F 24 B2 22 22 3A 8E 00 51 0F C2 01 8F 20 2A 2A |O$."":..Q.... **|
00000740: 2A 20 52 45 4E 41 4D 45 20 46 49 4C 45 20 2A 2A |* RENAME FILE **|
00000750: 2A 00 5C 0F C7 01 99 22 93 22 3A 99 00 7F 0F CC |*.\....".":.....|
00000760: 01 99 22 49 4E 50 55 54 20 4F 4C 44 20 46 49 4C |.."INPUT OLD FIL|
00000770: 45 20 4E 41 4D 45 22 3A 85 20 44 49 53 4B 24 00 |E NAME":. DISK$.|
00000780: A3 0F D6 01 99 3A 99 22 49 4E 50 55 54 20 4E 45 |.....:."INPUT NE|
00000790: 57 20 46 49 4C 45 20 4E 41 4D 45 22 3A 85 20 4E |W FILE NAME":. N|
000007A0: 57 53 24 00 C2 0F DB 01 4D 41 43 52 4F 24 B2 22 |WS$.....MACRO$."|
000007B0: 52 3A 22 AA 4E 57 53 24 AA 22 3D 22 AA 44 49 53 |R:".NWS$."=".DIS|
000007C0: 4B 24 00 D6 0F E0 01 9F 31 35 2C 38 2C 31 35 2C |K$......15,8,15,|
000007D0: 4D 41 43 52 4F 24 00 EB 0F EA 01 A0 20 31 35 3A |MACRO$...... 15:|
000007E0: 4D 41 43 52 4F 24 B2 22 22 3A 8E 00 04 10 F4 01 |MACRO$."":......|
000007F0: 8F 20 2A 2A 2A 20 45 52 41 53 45 20 46 49 4C 45 |. *** ERASE FILE|
00000800: 20 2A 2A 2A 00 11 10 F9 01 99 22 93 22 3A 99 3A | ***......".":.:|
00000810: 99 00 3D 10 FE 01 99 22 49 4E 50 55 54 20 46 49 |..=...."INPUT FI|
00000820: 4C 45 20 4E 41 4D 45 28 53 29 20 54 4F 20 44 45 |LE NAME(S) TO DE|
00000830: 4C 45 54 45 22 3A 85 20 44 49 53 4B 24 00 5E 10 |LETE":. DISK$.^.|
00000840: 08 02 99 3A 99 3A 99 22 48 49 54 20 41 4E 59 20 |...:.:."HIT ANY |
00000850: 4B 45 59 20 54 4F 20 44 45 4C 45 54 45 22 00 75 |KEY TO DELETE".u|
00000860: 10 0D 02 A1 20 58 24 3A 8B 20 58 24 B2 22 22 20 |.... X$:. X$."" |
00000870: A7 20 35 32 35 00 8C 10 12 02 4D 41 43 52 4F 24 |. 525.....MACRO$|
00000880: B2 22 53 30 3A 22 AA 44 49 53 4B 24 00 A0 10 17 |."S0:".DISK$....|
00000890: 02 9F 31 35 2C 38 2C 31 35 2C 4D 41 43 52 4F 24 |..15,8,15,MACRO$|
000008A0: 00 B5 10 1C 02 A0 20 31 35 3A 4D 41 43 52 4F 24 |...... 15:MACRO$|
000008B0: B2 22 22 3A 8E 00 D2 10 26 02 8F 20 2A 2A 2A 20 |."":....&.. *** |
000008C0: 56 41 4C 49 44 41 54 45 20 46 49 4C 45 53 20 2A |VALIDATE FILES *|
000008D0: 2A 2A 00 DF 10 2B 02 99 22 93 22 3A 99 3A 99 00 |**...+..".":.:..|
000008E0: 0E 11 30 02 99 22 57 41 52 4E 49 4E 47 3A 4F 50 |..0.."WARNING:OP|
000008F0: 45 4E 20 46 49 4C 45 53 20 22 20 3A 99 22 57 49 |EN FILES " :."WI|
00000900: 4C 4C 20 42 45 20 44 45 4C 45 54 45 44 22 00 31 |LL BE DELETED".1|
00000910: 11 3A 02 99 3A 99 3A 99 22 48 49 54 20 41 4E 59 |.:..:.:."HIT ANY|
00000920: 20 4B 45 59 20 54 4F 20 56 41 4C 49 44 41 54 45 | KEY TO VALIDATE|
00000930: 22 00 48 11 3F 02 A1 20 58 24 3A 8B 20 58 24 B2 |".H.?.. X$:. X$.|
00000940: 22 22 20 A7 20 35 37 35 00 59 11 44 02 9F 20 31 |"" . 575.Y.D.. 1|
00000950: 2C 38 2C 31 35 2C 22 56 22 00 63 11 4E 02 A0 20 |,8,15,"V".c.N.. |
00000960: 31 3A 8E 00 8C 11 58 02 8F 20 2A 2A 2A 20 57 52 |1:....X.. *** WR|
00000970: 49 54 45 20 44 49 53 4B 20 4D 41 4E 41 47 45 52 |ITE DISK MANAGER|
00000980: 20 50 52 4F 47 52 41 4D 20 2A 2A 2A 00 99 11 5D | PROGRAM ***...]|
00000990: 02 99 22 93 22 3A 99 3A 99 00 C0 11 62 02 99 22 |..".":.:....b.."|
000009A0: 49 4E 53 45 52 54 20 44 49 53 4B 20 54 4F 20 42 |INSERT DISK TO B|
000009B0: 45 20 57 52 49 54 54 45 4E 20 54 4F 2E 22 3A 99 |E WRITTEN TO.":.|
000009C0: 00 ED 11 6C 02 99 3A 99 3A 99 22 48 49 54 20 41 |...l..:.:."HIT A|
000009D0: 4E 59 20 4B 45 59 20 54 4F 20 57 52 49 54 45 20 |NY KEY TO WRITE |
000009E0: 44 49 53 4B 20 4D 41 4E 41 47 45 52 22 00 04 12 |DISK MANAGER"...|
000009F0: 6E 02 A1 20 58 24 3A 8B 20 58 24 B2 22 22 20 A7 |n.. X$:. X$."" .|
00000A00: 20 36 32 32 00 11 12 71 02 9F 20 31 2C 38 2C 31 | 622...q.. 1,8,1|
00000A10: 35 00 29 12 76 02 94 22 40 30 3A 44 49 53 4B 4D |5.).v.."@0:DISKM|
00000A20: 41 4E 41 47 45 52 22 2C 38 00 30 12 7B 02 A0 31 |ANAGER",8.0.{..1|
00000A30: 00 36 12 80 02 8E 00 59 12 8A 02 8F 20 2A 2A 2A |.6.....Y.... ***|
00000A40: 20 44 49 53 50 4C 41 59 20 45 52 52 4F 52 20 53 | DISPLAY ERROR S|
00000A50: 54 41 54 55 53 20 2A 2A 2A 00 67 12 8F 02 9F 20 |TATUS ***.g.... |
00000A60: 31 35 2C 38 2C 31 35 00 7B 12 94 02 84 31 35 2C |15,8,15.{....15,|
00000A70: 41 24 2C 42 24 2C 43 24 2C 44 24 00 88 12 9E 02 |A$,B$,C$,D$.....|
00000A80: 99 22 93 22 3A 99 3A 99 00 B8 12 A8 02 99 22 45 |.".":.:......."E|
00000A90: 52 52 4F 52 20 53 54 41 54 55 53 3A 20 20 22 42 |RROR STATUS: "B|
00000AA0: 24 3A 99 3A 99 22 45 52 52 4F 52 20 4E 55 4D 42 |$:.:."ERROR NUMB|
00000AB0: 45 52 3A 20 20 22 41 24 00 D9 12 B2 02 99 3A 99 |ER: "A$......:.|
00000AC0: 3A 99 22 48 49 54 20 41 4E 59 20 4B 45 59 20 54 |:."HIT ANY KEY T|
00000AD0: 4F 20 52 45 54 55 52 4E 22 00 F0 12 B7 02 A1 20 |O RETURN"...... |
00000AE0: 58 24 3A 8B 20 58 24 B2 22 22 20 A7 20 36 39 35 |X$:. X$."" . 695|
00000AF0: 00 FB 12 B9 02 A0 20 31 35 3A 8E 00 19 13 BC 02 |...... 15:......|
00000B00: 8F 20 2A 2A 2A 20 52 45 54 55 52 4E 20 54 4F 20 |. *** RETURN TO |
00000B10: 42 41 53 49 43 20 2A 2A 2A 00 26 13 C1 02 99 22 |BASIC ***.&...."|
00000B20: 93 22 3A 99 3A 99 00 52 13 C6 02 99 22 4E 4F 54 |.":.:..R...."NOT|
00000B30: 45 3A 20 44 49 53 4B 20 4D 41 4E 41 47 45 52 20 |E: DISK MANAGER |
00000B40: 49 53 20 53 54 49 4C 4C 20 52 45 53 49 44 45 4E |IS STILL RESIDEN|
00000B50: 54 22 00 58 13 D0 02 80 00 7C 13 20 03 8F 20 2A |T".X.....|. .. *|
00000B60: 2A 2A 20 43 4F 50 59 20 46 49 4C 45 20 4F 4E 20 |** COPY FILE ON |
00000B70: 4E 45 57 20 44 49 53 4B 20 2A 2A 2A 00 85 13 21 |NEW DISK ***...!|
00000B80: 03 99 22 93 22 00 8D 13 22 03 A0 31 35 00 9E 13 |.."."..."..15...|
00000B90: 23 03 4D 41 58 B2 B5 28 53 AD 32 35 36 29 00 E2 |#.MAX..(S.256)..|
00000BA0: 13 24 03 99 22 20 20 4D 41 58 49 4D 55 4D 20 53 |.$.." MAXIMUM S|
00000BB0: 49 5A 45 20 4F 46 20 46 49 4C 45 20 57 48 49 43 |IZE OF FILE WHIC|
00000BC0: 48 20 43 41 4E 20 42 45 20 43 4F 50 49 45 44 20 |H CAN BE COPIED |
00000BD0: 49 53 20 22 4D 41 58 22 20 42 4C 4F 43 4B 53 22 |IS "MAX" BLOCKS"|
00000BE0: 3A 99 00 F8 13 26 03 8B 20 4D 41 58 B1 B2 4D 32 |:....&.. MAX..M2|
00000BF0: 20 A7 20 89 20 38 30 39 00 28 14 27 03 99 22 20 | . . 809.(.'.." |
00000C00: 20 46 4F 52 20 4D 41 58 49 4D 55 4D 20 43 4F 50 | FOR MAXIMUM COP|
00000C10: 59 20 53 49 5A 45 20 4F 46 20 22 4D 32 22 20 42 |Y SIZE OF "M2" B|
00000C20: 4C 4F 43 4B 53 2C 22 3B 00 57 14 28 03 99 22 54 |LOCKS,";.W.(.."T|
00000C30: 55 52 4E 20 43 4F 4D 50 55 54 45 52 20 4F 46 46 |URN COMPUTER OFF|
00000C40: 2F 4F 4E 20 41 4E 44 20 52 45 4C 4F 41 44 20 50 |/ON AND RELOAD P|
00000C50: 52 4F 47 52 41 4D 22 00 93 14 29 03 99 3A 99 22 |ROGRAM"...)..:."|
00000C60: 20 20 52 45 41 44 2F 57 52 49 54 45 20 52 41 54 | READ/WRITE RAT|
00000C70: 45 20 49 53 20 41 50 50 52 4F 58 49 4D 41 54 45 |E IS APPROXIMATE|
00000C80: 4C 59 20 36 20 42 4C 4F 43 4B 53 2F 4D 49 4E 55 |LY 6 BLOCKS/MINU|
00000C90: 54 45 22 00 BC 14 2A 03 99 3A 99 22 49 4E 50 55 |TE"...*..:."INPU|
00000CA0: 54 20 4E 41 4D 45 20 4F 46 20 46 49 4C 45 20 54 |T NAME OF FILE T|
00000CB0: 4F 20 42 45 20 43 4F 50 49 45 44 22 00 C8 14 34 |O BE COPIED"...4|
00000CC0: 03 85 20 46 49 4C 45 24 00 E5 14 3E 03 99 3A 99 |.. FILE$...>..:.|
00000CD0: 22 20 20 20 49 4E 50 55 54 20 46 49 4C 45 20 54 |" INPUT FILE T|
00000CE0: 59 50 45 3A 22 00 FB 14 48 03 99 22 20 20 20 20 |YPE:"...H.." |
00000CF0: 20 50 20 50 52 4F 47 52 41 4D 22 00 14 15 52 03 | P PROGRAM"...R.|
00000D00: 99 22 20 20 20 20 20 53 20 53 45 51 55 45 4E 54 |." S SEQUENT|
00000D10: 49 41 4C 22 00 27 15 5C 03 99 22 20 20 20 20 20 |IAL".'.\.." |
00000D20: 55 20 55 53 45 52 22 00 3E 15 66 03 99 22 20 20 |U USER".>.f.." |
00000D30: 20 20 20 52 20 52 45 4C 41 54 49 56 45 22 00 4A | R RELATIVE".J|
00000D40: 15 70 03 85 20 54 59 50 45 24 00 79 15 7A 03 99 |.p.. TYPE$.y.z..|
00000D50: 3A 99 22 49 4E 53 45 52 54 20 53 4F 55 52 43 45 |:."INSERT SOURCE|
00000D60: 20 44 49 53 4B 20 41 4E 44 20 50 52 45 53 53 20 | DISK AND PRESS |
00000D70: 3C 52 45 54 55 52 4E 3E 22 00 92 15 84 03 A1 20 |<RETURN>"...... |
00000D80: 57 24 3A 8B 20 57 24 B2 22 22 20 A7 20 89 20 39 |W$:. W$."" . . 9|
00000D90: 30 30 00 B3 15 8E 03 8D 20 31 30 30 30 3A 8F 20 |00...... 1000:. |
00000DA0: 52 45 41 44 20 46 49 4C 45 20 49 4E 54 4F 20 54 |READ FILE INTO T|
00000DB0: 45 4D 50 00 E7 15 98 03 99 3A 99 22 49 4E 53 45 |EMP......:."INSE|
00000DC0: 52 54 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 |RT DESTINATION D|
00000DD0: 49 53 4B 20 41 4E 44 20 50 52 45 53 53 20 3C 52 |ISK AND PRESS <R|
00000DE0: 45 54 55 52 4E 3E 22 00 FF 15 A2 03 A1 20 57 24 |ETURN>"...... W$|
00000DF0: 3A 8B 20 57 24 B2 22 22 20 A7 20 89 39 33 30 00 |:. W$."" . .930.|
00000E00: 22 16 AC 03 8D 20 31 30 35 30 3A 8F 20 57 52 49 |".... 1050:. WRI|
00000E10: 54 45 20 46 49 4C 45 20 46 52 4F 4D 20 54 45 4D |TE FILE FROM TEM|
00000E20: 50 24 00 42 16 B6 03 99 3A 99 22 4D 41 4B 45 20 |P$.B....:."MAKE |
00000E30: 41 4E 4F 54 48 45 52 20 43 4F 50 59 22 3B 3A 85 |ANOTHER COPY";:.|
00000E40: 57 24 00 5C 16 C0 03 8B 20 C8 28 57 24 2C 31 29 |W$.\.... .(W$,1)|
00000E50: B2 22 59 22 20 A7 20 89 20 39 32 30 00 66 16 CA |."Y" . . 920.f..|
00000E60: 03 89 31 31 30 30 00 80 16 D4 03 8F 20 43 48 45 |..1100...... CHE|
00000E70: 43 4B 20 46 4F 52 20 47 4F 4F 44 20 4F 50 45 4E |CK FOR GOOD OPEN|
00000E80: 00 94 16 D9 03 84 31 35 2C 41 24 2C 42 24 2C 43 |......15,A$,B$,C|
00000E90: 24 2C 44 24 00 A6 16 DE 03 8B 20 C5 28 41 24 29 |$,D$...... .(A$)|
00000EA0: B2 30 20 A7 20 8E 00 BF 16 E3 03 99 20 41 24 2C |.0 . ....... A$,|
00000EB0: 42 24 2C 43 24 2C 44 24 3A A0 20 31 35 3A 90 00 |B$,C$,D$:. 15:..|
00000EC0: DA 16 E8 03 8F 20 52 45 41 44 20 46 49 4C 45 20 |..... READ FILE |
00000ED0: 49 4E 54 4F 20 54 45 4D 50 25 00 E2 16 EA 03 49 |INTO TEMP%.....I|
00000EE0: B2 31 00 EF 16 EC 03 9F 31 35 2C 38 2C 31 35 00 |.1......15,8,15.|
00000EF0: 15 17 EE 03 9F 20 35 2C 38 2C 35 2C 22 30 3A 22 |..... 5,8,5,"0:"|
00000F00: AA 46 49 4C 45 24 AA 22 2C 22 AA 54 59 50 45 24 |.FILE$.",".TYPE$|
00000F10: AA 22 2C 52 22 00 1F 17 F0 03 8D 20 39 38 30 00 |.",R"...... 980.|
00000F20: 3D 17 F1 03 99 22 20 20 20 20 20 4E 4F 57 20 52 |=...." NOW R|
00000F30: 45 41 44 49 4E 47 20 2E 20 2E 20 2E 22 00 48 17 |EADING . . .".H.|
00000F40: F2 03 A1 23 35 2C 41 24 00 60 17 F4 03 54 45 4D |...#5,A$.`...TEM|
00000F50: 50 25 28 49 29 B2 C6 28 41 24 AA C7 28 30 29 29 |P%(I)..(A$..(0))|
00000F60: 00 6A 17 F6 03 49 B2 49 AA 31 00 7C 17 F8 03 8B |.j...I.I.1.|....|
00000F70: 20 53 54 B2 30 20 A7 20 31 30 31 30 00 AF 17 FA | ST.0 . 1010....|
00000F80: 03 99 3A 99 20 22 46 49 4C 45 3D 3F 20 22 3B 46 |..:. "FILE=? ";F|
00000F90: 49 4C 45 24 2C 22 53 54 3D 22 3B 53 54 2C 22 42 |ILE$,"ST=";ST,"B|
00000FA0: 59 54 45 53 3D 22 3B 49 3A A0 35 3A A0 31 35 00 |YTES=";I:.5:.15.|
00000FB0: B5 17 FC 03 8E 00 D2 17 1A 04 8F 20 57 52 49 54 |........... WRIT|
00000FC0: 45 20 46 49 4C 45 53 20 46 52 4F 4D 20 54 45 4D |E FILES FROM TEM|
00000FD0: 50 24 00 E0 17 1C 04 9F 20 31 35 2C 38 2C 31 35 |P$...... 15,8,15|
00000FE0: 00 06 18 1E 04 9F 20 35 2C 38 2C 35 2C 22 30 3A |...... 5,8,5,"0:|
00000FF0: 22 AA 46 49 4C 45 24 AA 22 2C 22 AA 54 59 50 45 |".FILE$.",".TYPE|
00001000: 24 AA 22 2C 57 22 00 10 18 20 04 8D 20 39 38 30 |$.",W"... .. 980|
00001010: 00 2E 18 21 04 99 22 20 20 20 20 20 4E 4F 57 20 |...!.." NOW |
00001020: 57 52 49 54 49 4E 47 20 2E 20 2E 20 2E 22 00 36 |WRITING . . .".6|
00001030: 18 22 04 4A B2 31 00 4A 18 24 04 98 35 2C C7 28 |.".J.1.J.$..5,.(|
00001040: 54 45 4D 50 25 28 4A 29 29 3B 00 54 18 26 04 4A |TEMP%(J));.T.&.J|
00001050: B2 4A AA 31 00 65 18 28 04 8B 20 4A B3 49 20 A7 |.J.1.e.(.. J.I .|
00001060: 20 31 30 36 30 00 8F 18 2A 04 99 3A 99 22 46 49 | 1060...*..:."FI|
00001070: 4C 45 3D 20 22 3B 46 49 4C 45 24 2C 22 42 59 54 |LE= ";FILE$,"BYT|
00001080: 45 53 3D 22 3B 4A 3A A0 20 35 3A A0 20 31 35 00 |ES=";J:. 5:. 15.|
00001090: 95 18 2C 04 8E 00 9B 18 4C 04 8E 00 C0 18 B0 04 |..,.....L.......|
000010A0: 8F 20 2A 2A 2A 20 43 4F 50 59 20 42 4F 54 48 20 |. *** COPY BOTH |
000010B0: 44 4F 53 20 50 52 4F 47 52 41 4D 53 20 2A 2A 2A |DOS PROGRAMS ***|
000010C0: 00 F6 18 B5 04 99 22 93 22 3A 99 22 49 4E 53 45 |......".":."INSE|
000010D0: 52 54 20 53 4F 55 52 43 45 20 44 49 53 4B 20 57 |RT SOURCE DISK W|
000010E0: 49 54 48 20 57 45 44 47 45 20 41 4E 44 2F 4F 52 |ITH WEDGE AND/OR|
000010F0: 20 44 4F 53 22 3B 00 1C 19 BA 04 99 22 20 50 52 | DOS";......" PR|
00001100: 4F 47 52 41 4D 28 53 29 20 41 4E 44 20 50 52 45 |OGRAM(S) AND PRE|
00001110: 53 53 20 3C 52 45 54 55 52 4E 3E 22 00 36 19 BF |SS <RETURN>".6..|
00001120: 04 A1 20 57 24 3A 8B 20 57 24 B2 22 22 20 A7 20 |.. W$:. W$."" . |
00001130: 89 20 31 32 31 35 00 44 19 C2 04 54 59 50 45 24 |. 1215.D...TYPE$|
00001140: B2 22 50 22 00 6D 19 C3 04 8B 20 43 30 B2 31 20 |."P".m.... C0.1 |
00001150: A7 20 46 49 4C 45 24 B2 22 56 49 43 2D 32 30 20 |. FILE$."VIC-20 |
00001160: 57 45 44 47 45 22 3A 89 20 31 32 33 35 00 8B 19 |WEDGE":. 1235...|
00001170: C4 04 46 49 4C 45 24 B2 22 43 2D 36 34 20 57 45 |..FILE$."C-64 WE|
00001180: 44 47 45 22 3A 8D 20 31 30 30 30 00 D1 19 C9 04 |DGE":. 1000.....|
00001190: 81 20 43 B2 31 20 A4 20 36 34 3A 44 4F 53 25 28 |. C.1 . 64:DOS%(|
000011A0: 43 29 B2 54 45 4D 50 25 28 43 29 3A 82 20 43 3A |C).TEMP%(C):. C:|
000011B0: 8F 20 4D 4F 56 45 20 43 2D 36 34 20 57 45 44 47 |. MOVE C-64 WEDG|
000011C0: 45 20 54 4F 20 53 4D 41 4C 4C 20 42 55 46 46 45 |E TO SMALL BUFFE|
000011D0: 52 00 E5 19 CE 04 46 49 4C 45 24 B2 22 44 4F 53 |R.....FILE$."DOS|
000011E0: 20 35 2E 31 22 00 20 1A D3 04 8D 20 31 30 30 30 | 5.1". .... 1000|
000011F0: 3A 99 3A 99 22 49 4E 53 45 52 54 20 44 45 53 54 |:.:."INSERT DEST|
00001200: 49 4E 41 54 49 4F 4E 20 44 49 53 4B 20 41 4E 44 |INATION DISK AND|
00001210: 20 50 52 45 53 53 20 3C 52 45 54 55 52 4E 3E 22 | PRESS <RETURN>"|
00001220: 00 3A 1A D8 04 A1 20 57 24 3A 8B 20 57 24 B2 22 |.:.... W$:. W$."|
00001230: 22 20 A7 20 89 20 31 32 34 30 00 50 1A DD 04 8D |" . . 1240.P....|
00001240: 20 31 30 35 30 3A 8B 20 43 30 B2 31 20 A7 20 8E | 1050:. C0.1 . .|
00001250: 00 74 1A E2 04 81 20 43 B2 31 20 A4 20 36 34 3A |.t.... C.1 . 64:|
00001260: 54 45 4D 50 25 28 43 29 B2 44 4F 53 25 28 43 29 |TEMP%(C).DOS%(C)|
00001270: 3A 82 20 43 00 AA 1A E7 04 46 49 4C 45 24 B2 22 |:. C.....FILE$."|
00001280: 43 2D 36 34 20 57 45 44 47 45 22 3A 49 B2 36 34 |C-64 WEDGE":I.64|
00001290: 3A 8D 20 31 30 35 30 3A 8F 20 57 52 49 54 45 20 |:. 1050:. WRITE |
000012A0: 43 2D 36 34 20 57 45 44 47 45 00 B0 1A 0A 05 8E |C-64 WEDGE......|
000012B0: 00 00 00 01 03 |..... |
..".... 53280,6:. 53281,15:. 646,0.>....
SAVE "DISK MANAGER",8.D.... DECEMBER CO
MPUTE GAZETTE, PG130...... 49152,10:. B(
49152)..10 . C0.1:.6.....C0.2...... DOS%
(65).E...FR..(0):. FR.0 . FR.FR.65536...
..S.(FR.400).2:M2..(S.256).1...... TEMP%
(S)......".";......" ******************
".5...." * DISK MANAGER *".Q...." **
****************".K.2..:."1.DISK DIRECTO
RY"...<.."2.FORMAT NEW DISK"...F.."3.INI
TIALIZE DISK"...P.."4.COPY FILE ON SAME
DISK"...U.."5.COPY FILE ON NEW (FORMATTE
D) DISK"...X.."6.COPY BOTH DOS WEDGE PRO
GRAMS".#.Z.."7.RENAME FILE".:.D.."8.ERAS
E FILE(S)".R.N.."9.VALIDATE FILES".O.X..
"10.WRITE DISK MANAGER"......"11.ERROR S
TATUS". ...."12.EXIT TO BASIC":......."C
HOICE ....";CHOICE...... (CHOICE.1).(
CHOICE.12). .".";:.170.&.H.. CHOICE . 25
0,300,350,400,800,1200,450,500,550,600,6
50,700./.R.. 10.O.... *** DISPLAY DIRECT
ORY ***.X....".".H.... 1,8,0,"$".V....#1
,A$,B$......#1,A$,B$......#1,A$,B$.....C
.0:. A$.."". C.F(A$).H.... B$.."". C.C.F
(B$).256...... J(D(C),2);.3);......#1,B$
:. ST..0 . 282...... B$.. G(34) . 264.2.
...#1,B$:. B$.. G(34) . . B$;:.268.O....
#1,B$:. B$. G(32) . 270.A.... .18);:C$."
".....C$.C$.B$:. #1,B$:. B$.."" . 274...
... H(C$,3)...... ST.0 . 254......" BLOC
KS FREE "..... 1:.:.:."HIT ANY KEY TO R
ETURN"...".. X$:. X$."". 290...'.....,..
*** FORMAT (NEW) DISK ***.#.-..".".L.1.
."INSERT DISK TO BE":."FORMATTED.":..K.6
.."INPUT DISK NAME":. DISK$...@..:."INPU
T EXTENDER NAME":. EXT$...E.MACRO$."N0:"
.DISK$.",".EXT$.D.J.. 15,8,15,MACRO$.Y.T
. 15:MACRO$."":....^.. *** INITIALIZE D
ISK ***...C..".".+.H.."INSERT DISK TO BE
":."INITIALIZED.":..U.R.."HIT <RETURN> T
O":."INITIALIZE":. X$.G.|.. 15,8,15,"I".
R... 15:....... *** COPY FILE ON SAME D
ISK ***......".":.:..J...."INPUT SOURCE
FILE NAME":. DISK$......:."INPUT NEW FIL
E NAME":. NWS$.....MACRO$."C:".NWS$."=".
DISK$.".... 15,8,15,MACRO$.7... 15:MACR
O$."":..Q.B.. *** RENAME FILE ***.\.G.."
.":...L.."INPUT OLD FILE NAME":. DISK$.
..V..:."INPUT NEW FILE NAME":. NWS$.B...
MACRO$."R:".NWS$."=".DISK$.V....15,8,15,
MACRO$..... 15:MACRO$."":....... *** ER
ASE FILE ***......".":.:..=...."INPUT FI
LE NAME(S) TO DELETE":. DISK$.^....:.:."
HIT ANY KEY TO DELETE".U.... X$:. X$.""
. 525.....MACRO$."S0:".DISK$. ....15,8,1
5,MACRO$..... 15:MACRO$."":..R.&.. ***
VALIDATE FILES ***...+..".":.:....0.."WA
RNING:OPEN FILES " :."WILL BE DELETED".1
.:..:.:."HIT ANY KEY TO VALIDATE".H.?..
X$:. X$."" . 575.Y.D.. 1,8,15,"V".C.N.
1:....X.. *** WRITE DISK MANAGER PROGRAM
***...]..".":.:....B.."INSERT DISK TO B
E WRITTEN TO.":....L..:.:."HIT ANY KEY T
O WRITE DISK MANAGER"...N.. X$:. X$."" .
622...Q.. 1,8,15.).V.."@0:DISKMANAGER",
8.0.{. 1.6.....Y.... *** DISPLAY ERROR S
TATUS ***.G.... 15,8,15.{....15,A$,B$,C$
,D$......".":.:......."ERROR STATUS: "B
$:.:."ERROR NUMBER: "A$.Y....:.:."HIT A
NY KEY TO RETURN"...... X$:. X$."" . 695
..... 15:....... *** RETURN TO BASIC **
*.&.A..".":.:..R.F.."NOTE: DISK MANAGER
IS STILL RESIDENT".X.P...|. .. *** COPY
FILE ON NEW DISK ***...!.."."...". 15...
#.MAX..(S.256)...$.." MAXIMUM SIZE OF F
ILE WHICH CAN BE COPIED IS "MAX" BLOCKS"
:....&.. MAX..M2 . . 809.(.'.." FOR MAX
IMUM COPY SIZE OF "M2" BLOCKS,";.W.(.."T
URN COMPUTER OFF/ON AND RELOAD PROGRAM".
..)..:." READ/WRITE RATE IS APPROXIMATE
LY 6 BLOCKS/MINUTE"...*..:."INPUT NAME O
F FILE TO BE COPIED".H.4.. FILE$...>..:.
" INPUT FILE TYPE:"...H.." P PROGR
AM"...R.." S SEQUENTIAL".'.\.."
U USER".>.F.." R RELATIVE".J.P.. TYP
E$.Y.Z..:."INSERT SOURCE DISK AND PRESS
<RETURN>"...... W$:. W$."" . . 900......
1000:. READ FILE INTO TEMP......:."INSE
RT DESTINATION DISK AND PRESS <RETURN>".
..... W$:. W$."" . .930.".... 1050:. WRI
TE FILE FROM TEMP$.B....:."MAKE ANOTHER
COPY";:.W$.\.... H(W$,1)."Y" . . 920.F.J
..1100...T.. CHECK FOR GOOD OPEN...Y..15
,A$,B$,C$,D$...... E(A$).0 . ....... A$,
B$,C$,D$: 15:..Z.... READ FILE INTO TEM
P%.....I.1......15,8,15...... 5,8,5,"0:"
.FILE$.",".TYPE$.",R"...... 980.=...."
NOW READING . . .".H....#5,A$.`...TEM
P%(I).F(A$.G(0)).J...I.I.1.|.... ST.0 .
1010......:. "FILE=? ";FILE$,"ST=";ST,"B
YTES=";I: 5: 15.......R.... WRITE FILES
FROM TEMP$...... 15,8,15...... 5,8,5,"0:
".FILE$.",".TYPE$.",W"... .. 980...!.."
NOW WRITING . . .".6.".J.1.J.$..5,G(
TEMP%(J));.T.&.J.J.1.E.(.. J.I . 1060...
*..:."FILE= ";FILE$,"BYTES=";J: 5: 15.
..,.....L........ *** COPY BOTH DOS PROG
RAMS ***......".":."INSERT SOURCE DISK W
ITH WEDGE AND/OR DOS";......" PROGRAM(S)
AND PRESS <RETURN>".6.... W$:. W$."" .
. 1215.D.B.TYPE$."P".M.C.. C0.1 . FILE$.
"VIC-20 WEDGE":. 1235...D.FILE$."C-64 WE
DGE":. 1000.Q.I.. C.1 . 64:DOS%(C).TEMP%
(C):. C:. MOVE C-64 WEDGE TO SMALL BUFFE
R...N.FILE$."DOS 5.1". .S.. 1000:.:."INS
ERT DESTINATION DISK AND PRESS <RETURN>"
.:.X.. W$:. W$."" . . 1240.P.... 1050:.
C0.1 . ..T.... C.1 . 64:TEMP%(C).DOS%(C)
:. C.....FILE$."C-64 WEDGE":I.64:. 1050:
. WRITE C-64 WEDGE...........
> CLICK IMAGE PREVIEW FOR FULL MODAL