DISKMANAGER
FILE INFORMATION
FILENAME(S): DISKMANAGER
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-30 21:08:56
APPEARS ON: 1 disk(s)
FILE HASH
66b211b2bf9c0f32e105afe6169e0d48e1b5f877ba2d37dde331f2852d099471
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HULPPROGRAM | DISKMANAGER | PRG | DuncanTwain | 8 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 02 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 99 22 05 22 00 43 08 03 |53281,0:.".".C..|
00000020: 00 97 20 34 39 31 35 32 2C 31 30 3A 8B 20 C2 28 |.. 49152,10:. .(|
00000030: 34 39 31 35 32 29 B3 B1 31 30 A7 20 43 30 B2 31 |49152)..10. C0.1|
00000040: 3A 89 36 00 4C 08 05 00 43 30 B2 32 00 5B 08 06 |:.6.L...C0.2.[..|
00000050: 00 86 20 44 4F 53 25 28 36 35 29 00 7C 08 07 00 |.. DOS%(65).|...|
00000060: 46 52 B2 B8 28 30 29 3A 8B 20 46 52 B3 30 20 A7 |FR..(0):. FR.0 .|
00000070: 20 46 52 B2 46 52 AA 36 35 35 33 36 00 9B 08 08 | FR.FR.65536....|
00000080: 00 53 B2 28 46 52 AB 34 30 30 29 AD 32 3A 4D 32 |.S.(FR.400).2:M2|
00000090: B2 B5 28 53 AD 32 35 36 29 AA 31 00 AA 08 09 00 |..(S.256).1.....|
000000A0: 86 20 54 45 4D 50 25 28 53 29 00 B4 08 0A 00 99 |. TEMP%(S)......|
000000B0: 22 93 22 3B 00 D9 08 0F 00 99 22 20 20 20 20 20 |".";......" |
000000C0: 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **********|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 22 00 FE 08 14 00 99 22 |********"......"|
000000E0: 20 20 20 20 20 20 20 20 20 20 20 2A 20 20 44 49 | * DI|
000000F0: 53 4B 20 4D 41 4E 41 47 45 52 20 20 2A 22 00 23 |SK MANAGER *".#|
00000100: 09 19 00 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." |
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000120: 2A 2A 22 00 3E 09 32 00 99 3A 99 22 31 2E 20 44 |**".>.2..:."1. D|
00000130: 49 53 4B 20 44 49 52 45 43 54 4F 52 59 22 00 58 |ISK DIRECTORY".X|
00000140: 09 3C 00 99 22 32 2E 20 46 4F 52 4D 41 54 20 4E |.<.."2. FORMAT N|
00000150: 45 57 20 44 49 53 4B 22 00 72 09 46 00 99 22 33 |EW DISK".r.F.."3|
00000160: 2E 20 49 4E 49 54 49 41 4C 49 5A 45 20 44 49 53 |. INITIALIZE DIS|
00000170: 4B 22 00 97 09 50 00 99 22 34 2E 20 43 4F 50 59 |K"...P.."4. COPY|
00000180: 20 46 49 4C 45 20 4F 4E 20 53 41 4D 45 20 20 20 | FILE ON SAME |
00000190: 20 20 44 49 53 4B 22 00 C3 09 55 00 99 22 35 2E | DISK"...U.."5.|
000001A0: 20 43 4F 50 59 20 46 49 4C 45 20 4F 4E 20 4E 45 | COPY FILE ON NE|
000001B0: 57 20 28 46 4F 52 4D 41 54 54 45 44 29 20 44 49 |W (FORMATTED) DI|
000001C0: 53 4B 22 00 EC 09 58 00 99 22 36 2E 20 43 4F 50 |SK"...X.."6. COP|
000001D0: 59 20 42 4F 54 48 20 44 4F 53 20 57 45 44 47 45 |Y BOTH DOS WEDGE|
000001E0: 20 20 20 50 52 4F 47 52 41 4D 53 22 00 02 0A 5A | PROGRAMS"...Z|
000001F0: 00 99 22 37 2E 20 52 45 4E 41 4D 45 20 46 49 4C |.."7. RENAME FIL|
00000200: 45 22 00 1A 0A 64 00 99 22 38 2E 20 45 52 41 53 |E"...d.."8. ERAS|
00000210: 45 20 46 49 4C 45 28 53 29 22 00 33 0A 6E 00 99 |E FILE(S)".3.n..|
00000220: 22 39 2E 20 56 41 4C 49 44 41 54 45 20 46 49 4C |"9. VALIDATE FIL|
00000230: 45 53 22 00 50 0A 78 00 99 22 31 30 2E 57 52 49 |ES".P.x.."10.WRI|
00000240: 54 45 20 44 49 53 4B 20 4D 41 4E 41 47 45 52 22 |TE DISK MANAGER"|
00000250: 00 67 0A 82 00 99 22 31 31 2E 45 52 52 4F 52 20 |.g...."11.ERROR |
00000260: 53 54 41 54 55 53 22 00 81 0A 8C 00 99 22 31 32 |STATUS"......"12|
00000270: 2E 45 58 49 54 20 54 4F 20 42 41 53 49 43 22 3A |.EXIT TO BASIC":|
00000280: 99 00 9E 0A AA 00 85 22 43 48 4F 49 43 45 20 20 |......."CHOICE |
00000290: 20 20 9D 9D 9D 9D 22 3B 43 48 4F 49 43 45 00 C7 | ....";CHOICE..|
000002A0: 0A B4 00 8B 28 43 48 4F 49 43 45 B3 31 29 B0 28 |....(CHOICE.1).(|
000002B0: 43 48 4F 49 43 45 B1 31 32 29 A7 20 99 22 91 22 |CHOICE.12). ."."|
000002C0: 3B 3A 89 20 31 37 30 00 07 0B C8 00 91 20 43 48 |;:. 170...... CH|
000002D0: 4F 49 43 45 20 8D 20 32 35 30 2C 33 30 30 2C 33 |OICE . 250,300,3|
000002E0: 35 30 2C 34 30 30 2C 38 30 30 2C 31 32 30 30 2C |50,400,800,1200,|
000002F0: 34 35 30 2C 35 30 30 2C 35 35 30 2C 36 30 30 2C |450,500,550,600,|
00000300: 36 35 30 2C 37 30 30 00 10 0B D2 00 89 20 31 30 |650,700...... 10|
00000310: 00 30 0B FA 00 8F 20 2A 2A 2A 20 44 49 53 50 4C |.0.... *** DISPL|
00000320: 41 59 20 44 49 52 45 43 54 4F 52 59 20 2A 2A 2A |AY DIRECTORY ***|
00000330: 00 39 0B FB 00 99 22 93 22 00 49 0B FC 00 9F 20 |.9....".".I.... |
00000340: 31 2C 38 2C 30 2C 22 24 22 00 58 0B FD 00 A1 20 |1,8,0,"$".X.... |
00000350: 23 31 2C 41 24 2C 42 24 00 66 0B FE 00 A1 23 31 |#1,A$,B$.f....#1|
00000360: 2C 41 24 2C 42 24 00 74 0B 00 01 A1 23 31 2C 41 |,A$,B$.t....#1,A|
00000370: 24 2C 42 24 00 8E 0B 02 01 43 B2 30 3A 8B 20 41 |$,B$.....C.0:. A|
00000380: 24 B3 B1 22 22 A7 20 43 B2 C6 28 41 24 29 00 AB |$.."". C..(A$)..|
00000390: 0B 04 01 8B 20 42 24 B3 B1 22 22 A7 20 43 B2 43 |.... B$.."". C.C|
000003A0: AA 20 C6 28 42 24 29 AC 32 35 36 00 C0 0B 06 01 |. .(B$).256.....|
000003B0: 99 20 CA 28 C4 28 43 29 2C 32 29 3B A3 33 29 3B |. .(.(C),2);.3);|
000003C0: 00 D8 0B 08 01 A1 23 31 2C 42 24 3A 8B 53 54 B3 |......#1,B$:.ST.|
000003D0: B1 30 20 A7 20 32 38 32 00 EF 0B 0A 01 8B 20 42 |.0 . 282...... B|
000003E0: 24 B3 B1 20 C7 28 33 34 29 20 A7 20 32 36 34 00 |$.. .(34) . 264.|
000003F0: 14 0C 0C 01 A1 23 31 2C 42 24 3A 8B 20 42 24 B3 |.....#1,B$:. B$.|
00000400: B1 20 C7 28 33 34 29 20 A7 20 99 42 24 3B 3A 89 |. .(34) . .B$;:.|
00000410: 20 32 36 38 00 30 0C 0E 01 A1 23 31 2C 42 24 3A | 268.0....#1,B$:|
00000420: 8B 20 42 24 B2 C7 28 33 32 29 20 A7 20 32 37 30 |. B$..(32) . 270|
00000430: 00 42 0C 10 01 99 20 A3 31 38 29 3B 3A 43 24 B2 |.B.... .18);:C$.|
00000440: 22 22 00 63 0C 12 01 43 24 B2 43 24 AA 42 24 3A |"".c...C$.C$.B$:|
00000450: A1 23 31 2C 42 24 3A 8B 20 42 24 B3 B1 22 22 A7 |.#1,B$:. B$.."".|
00000460: 32 37 34 00 71 0C 14 01 99 20 C8 28 43 24 2C 33 |274.q.... .(C$,3|
00000470: 29 00 82 0C 18 01 8B 20 53 54 B2 30 20 A7 20 32 |)...... ST.0 . 2|
00000480: 35 34 00 95 0C 1A 01 99 22 42 4C 4F 43 4B 53 20 |54......"BLOCKS |
00000490: 46 52 45 45 22 00 BA 0C 1C 01 A0 20 31 3A 99 3A |FREE"...... 1:.:|
000004A0: 99 3A 99 22 48 49 54 20 41 4E 59 20 4B 45 59 20 |.:."HIT ANY KEY |
000004B0: 54 4F 20 52 45 54 55 52 4E 22 00 CF 0C 22 01 A1 |TO RETURN"..."..|
000004C0: 20 58 24 3A 8B 58 24 B2 22 22 A7 20 32 39 30 00 | X$:.X$."". 290.|
000004D0: D5 0C 27 01 8E 00 F5 0C 2C 01 8F 20 2A 2A 2A 20 |..'.....,.. *** |
000004E0: 46 4F 52 4D 41 54 20 28 4E 45 57 29 20 44 49 53 |FORMAT (NEW) DIS|
000004F0: 4B 20 2A 2A 2A 00 FE 0C 2D 01 99 22 93 22 00 27 |K ***...-..".".'|
00000500: 0D 31 01 99 22 49 4E 53 45 52 54 20 44 49 53 4B |.1.."INSERT DISK|
00000510: 20 54 4F 20 42 45 22 3A 99 22 46 4F 52 4D 41 54 | TO BE":."FORMAT|
00000520: 54 45 44 2E 22 3A 99 00 46 0D 36 01 99 22 49 4E |TED.":..F.6.."IN|
00000530: 50 55 54 20 44 49 53 4B 20 4E 41 4D 45 22 3A 85 |PUT DISK NAME":.|
00000540: 20 44 49 53 4B 24 00 6A 0D 40 01 99 3A 99 22 49 | DISK$.j.@..:."I|
00000550: 4E 50 55 54 20 45 58 54 45 4E 44 45 52 20 4E 41 |NPUT EXTENDER NA|
00000560: 4D 45 22 3A 85 20 45 58 54 24 00 8A 0D 45 01 4D |ME":. EXT$...E.M|
00000570: 41 43 52 4F 24 B2 22 4E 30 3A 22 AA 44 49 53 4B |ACRO$."N0:".DISK|
00000580: 24 AA 22 2C 22 AA 45 58 54 24 00 9F 0D 4A 01 9F |$.",".EXT$...J..|
00000590: 20 31 35 2C 38 2C 31 35 2C 4D 41 43 52 4F 24 00 | 15,8,15,MACRO$.|
000005A0: B4 0D 54 01 A0 20 31 35 3A 4D 41 43 52 4F 24 B2 |..T.. 15:MACRO$.|
000005B0: 22 22 3A 8E 00 D2 0D 5E 01 8F 20 2A 2A 2A 20 49 |"":....^.. *** I|
000005C0: 4E 49 54 49 41 4C 49 5A 45 20 44 49 53 4B 20 2A |NITIALIZE DISK *|
000005D0: 2A 2A 00 DB 0D 63 01 99 22 93 22 00 06 0E 68 01 |**...c.."."...h.|
000005E0: 99 22 49 4E 53 45 52 54 20 44 49 53 4B 20 54 4F |."INSERT DISK TO|
000005F0: 20 42 45 22 3A 99 22 49 4E 49 54 49 41 4C 49 5A | BE":."INITIALIZ|
00000600: 45 44 2E 22 3A 99 00 30 0E 72 01 99 22 48 49 54 |ED.":..0.r.."HIT|
00000610: 20 3C 52 45 54 55 52 4E 3E 20 54 4F 22 3A 99 22 | <RETURN> TO":."|
00000620: 49 4E 49 54 49 41 4C 49 5A 45 22 3A 85 20 58 24 |INITIALIZE":. X$|
00000630: 00 41 0E 7C 01 9F 31 35 2C 38 2C 31 35 2C 22 49 |.A.|..15,8,15,"I|
00000640: 22 00 4B 0E 86 01 A0 31 35 3A 8E 00 70 0E 90 01 |".K....15:..p...|
00000650: 8F 20 2A 2A 2A 20 43 4F 50 59 20 46 49 4C 45 20 |. *** COPY FILE |
00000660: 4F 4E 20 53 41 4D 45 20 44 49 53 4B 20 2A 2A 2A |ON SAME DISK ***|
00000670: 00 7D 0E 95 01 99 22 93 22 3A 99 3A 99 00 A3 0E |.}....".":.:....|
00000680: 9A 01 99 22 49 4E 50 55 54 20 53 4F 55 52 43 45 |..."INPUT SOURCE|
00000690: 20 46 49 4C 45 20 4E 41 4D 45 22 3A 85 20 44 49 | FILE NAME":. DI|
000006A0: 53 4B 24 00 C7 0E A4 01 99 3A 99 22 49 4E 50 55 |SK$......:."INPU|
000006B0: 54 20 4E 45 57 20 46 49 4C 45 20 4E 41 4D 45 22 |T NEW FILE NAME"|
000006C0: 3A 85 20 4E 57 53 24 00 E6 0E A9 01 4D 41 43 52 |:. NWS$.....MACR|
000006D0: 4F 24 B2 22 43 3A 22 AA 4E 57 53 24 AA 22 3D 22 |O$."C:".NWS$."="|
000006E0: AA 44 49 53 4B 24 00 FA 0E AE 01 9F 31 35 2C 38 |.DISK$......15,8|
000006F0: 2C 31 35 2C 4D 41 43 52 4F 24 00 0E 0F B8 01 A0 |,15,MACRO$......|
00000700: 31 35 3A 4D 41 43 52 4F 24 B2 22 22 3A 8E 00 27 |15:MACRO$."":..'|
00000710: 0F C2 01 8F 20 2A 2A 2A 52 45 4E 41 4D 45 20 46 |.... ***RENAME F|
00000720: 49 4C 45 20 2A 2A 2A 00 32 0F C7 01 99 22 93 22 |ILE ***.2...."."|
00000730: 3A 99 00 55 0F CC 01 99 22 49 4E 50 55 54 20 4F |:..U...."INPUT O|
00000740: 4C 44 20 46 49 4C 45 20 4E 41 4D 45 22 3A 85 20 |LD FILE NAME":. |
00000750: 44 49 53 4B 24 00 79 0F D6 01 99 3A 99 22 49 4E |DISK$.y....:."IN|
00000760: 50 55 54 20 4E 45 57 20 46 49 4C 45 20 4E 41 4D |PUT NEW FILE NAM|
00000770: 45 22 3A 85 20 4E 57 53 24 00 98 0F DB 01 4D 41 |E":. NWS$.....MA|
00000780: 43 52 4F 24 B2 22 52 3A 22 AA 4E 57 53 24 AA 22 |CRO$."R:".NWS$."|
00000790: 3D 22 AA 44 49 53 4B 24 00 AC 0F E0 01 9F 31 35 |=".DISK$......15|
000007A0: 2C 38 2C 31 35 2C 4D 41 43 52 4F 24 00 C0 0F EA |,8,15,MACRO$....|
000007B0: 01 A0 31 35 3A 4D 41 43 52 4F 24 B2 22 22 3A 8E |..15:MACRO$."":.|
000007C0: 00 D9 0F F4 01 8F 20 2A 2A 2A 20 45 52 41 53 45 |...... *** ERASE|
000007D0: 20 46 49 4C 45 20 2A 2A 2A 00 E6 0F F9 01 99 22 | FILE ***......"|
000007E0: 93 22 3A 99 3A 99 00 12 10 FE 01 99 22 49 4E 50 |.":.:......."INP|
000007F0: 55 54 20 46 49 4C 45 20 4E 41 4D 45 28 53 29 20 |UT FILE NAME(S) |
00000800: 54 4F 20 44 45 4C 45 54 45 22 3A 85 20 44 49 53 |TO DELETE":. DIS|
00000810: 4B 24 00 33 10 08 02 99 3A 99 3A 99 22 48 49 54 |K$.3....:.:."HIT|
00000820: 20 41 4E 59 20 4B 45 59 20 54 4F 20 44 45 4C 45 | ANY KEY TO DELE|
00000830: 54 45 22 00 47 10 0D 02 A1 58 24 3A 8B 58 24 B2 |TE".G....X$:.X$.|
00000840: 22 22 A7 20 35 32 35 00 5E 10 12 02 4D 41 43 52 |"". 525.^...MACR|
00000850: 4F 24 B2 22 53 30 3A 22 AA 44 49 53 4B 24 00 73 |O$."S0:".DISK$.s|
00000860: 10 17 02 9F 20 31 35 2C 38 2C 31 35 2C 4D 41 43 |.... 15,8,15,MAC|
00000870: 52 4F 24 00 88 10 1C 02 A0 20 31 35 3A 4D 41 43 |RO$...... 15:MAC|
00000880: 52 4F 24 B2 22 22 3A 8E 00 A5 10 26 02 8F 20 2A |RO$."":....&.. *|
00000890: 2A 2A 20 56 41 4C 49 44 41 54 45 20 46 49 4C 45 |** VALIDATE FILE|
000008A0: 53 20 2A 2A 2A 00 B2 10 2B 02 99 22 93 22 3A 99 |S ***...+..".":.|
000008B0: 3A 99 00 DF 10 30 02 99 22 57 41 52 4E 49 4E 47 |:....0.."WARNING|
000008C0: 3A 4F 50 45 4E 20 46 49 4C 45 53 22 3A 99 22 57 |:OPEN FILES":."W|
000008D0: 49 4C 4C 20 42 45 20 44 45 4C 45 54 45 44 22 00 |ILL BE DELETED".|
000008E0: 02 11 3A 02 99 3A 99 3A 99 22 48 49 54 20 41 4E |..:..:.:."HIT AN|
000008F0: 59 20 4B 45 59 20 54 4F 20 56 41 4C 49 44 41 54 |Y KEY TO VALIDAT|
00000900: 45 22 00 18 11 3F 02 A1 58 24 3A 8B 20 58 24 B2 |E"...?..X$:. X$.|
00000910: 22 22 20 A7 20 35 37 35 00 29 11 44 02 9F 20 31 |"" . 575.).D.. 1|
00000920: 2C 38 2C 31 35 2C 22 56 22 00 33 11 4E 02 A0 20 |,8,15,"V".3.N.. |
00000930: 31 3A 8E 00 59 11 58 02 8F 20 2A 2A 20 57 52 49 |1:..Y.X.. ** WRI|
00000940: 54 45 20 44 49 53 4B 4D 41 4E 41 47 45 52 20 50 |TE DISKMANAGER P|
00000950: 52 4F 47 52 41 4D 20 2A 2A 00 66 11 5D 02 99 22 |ROGRAM **.f.].."|
00000960: 93 22 3A 99 3A 99 00 8D 11 62 02 99 22 49 4E 53 |.":.:....b.."INS|
00000970: 45 52 54 20 44 49 53 4B 20 54 4F 20 42 45 20 57 |ERT DISK TO BE W|
00000980: 52 49 54 54 45 4E 20 54 4F 2E 22 3A 99 00 BA 11 |RITTEN TO.":....|
00000990: 6C 02 99 3A 99 3A 99 22 48 49 54 20 41 4E 59 20 |l..:.:."HIT ANY |
000009A0: 4B 45 59 20 54 4F 20 57 52 49 54 45 20 44 49 53 |KEY TO WRITE DIS|
000009B0: 4B 20 4D 41 4E 41 47 45 52 22 00 D0 11 6E 02 A1 |K MANAGER"...n..|
000009C0: 58 24 3A 8B 20 58 24 B2 22 22 20 A7 20 36 32 32 |X$:. X$."" . 622|
000009D0: 00 DD 11 71 02 9F 20 31 2C 38 2C 31 35 00 F5 11 |...q.. 1,8,15...|
000009E0: 76 02 94 22 40 30 3A 44 49 53 4B 4D 41 4E 41 47 |v.."@0:DISKMANAG|
000009F0: 45 52 22 2C 38 00 FD 11 7B 02 A0 20 31 00 03 12 |ER",8...{.. 1...|
00000A00: 80 02 8E 00 26 12 8A 02 8F 20 2A 2A 2A 20 44 49 |....&.... *** DI|
00000A10: 53 50 4C 41 59 20 45 52 52 4F 52 20 53 54 41 54 |SPLAY ERROR STAT|
00000A20: 55 53 20 2A 2A 2A 00 33 12 8F 02 9F 31 35 2C 38 |US ***.3....15,8|
00000A30: 2C 31 35 00 47 12 94 02 84 31 35 2C 41 24 2C 42 |,15.G....15,A$,B|
00000A40: 24 2C 43 24 2C 44 24 00 54 12 9E 02 99 22 93 22 |$,C$,D$.T...."."|
00000A50: 3A 99 3A 99 00 84 12 A8 02 99 22 45 52 52 4F 52 |:.:......."ERROR|
00000A60: 20 53 54 41 54 55 53 3A 20 20 22 42 24 3A 99 3A | STATUS: "B$:.:|
00000A70: 99 22 45 52 52 4F 52 20 4E 55 4D 42 45 52 3A 20 |."ERROR NUMBER: |
00000A80: 20 22 41 24 00 A5 12 B2 02 99 3A 99 3A 99 22 48 | "A$......:.:."H|
00000A90: 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 |IT ANY KEY TO RE|
00000AA0: 54 55 52 4E 22 00 BB 12 B7 02 A1 20 58 24 3A 8B |TURN"...... X$:.|
00000AB0: 20 58 24 B2 22 22 A7 20 36 39 35 00 C5 12 B9 02 | X$."". 695.....|
00000AC0: A0 31 35 3A 8E 00 E2 12 BC 02 8F 20 2A 2A 2A 52 |.15:....... ***R|
00000AD0: 45 54 55 52 4E 20 54 4F 20 42 41 53 49 43 20 2A |ETURN TO BASIC *|
00000AE0: 2A 2A 00 EF 12 C1 02 99 22 93 22 3A 99 3A 99 00 |**......".":.:..|
00000AF0: 21 13 C6 02 99 22 4E 4F 54 45 3A 44 49 53 4B 4D |!...."NOTE:DISKM|
00000B00: 41 4E 41 47 45 52 20 50 52 4F 47 52 41 4D 20 49 |ANAGER PROGRAM I|
00000B10: 53 20 53 54 49 4C 4C 20 52 45 53 49 44 45 4E 54 |S STILL RESIDENT|
00000B20: 22 00 27 13 D0 02 80 00 4A 13 20 03 8F 20 2A 2A |".'.....J. .. **|
00000B30: 2A 43 4F 50 59 20 46 49 4C 45 20 4F 4E 20 4E 45 |*COPY FILE ON NE|
00000B40: 57 20 44 49 53 4B 20 2A 2A 2A 00 53 13 21 03 99 |W DISK ***.S.!..|
00000B50: 22 93 22 00 5B 13 22 03 A0 31 35 00 6C 13 23 03 |".".[."..15.l.#.|
00000B60: 4D 41 58 B2 B5 28 53 AD 32 35 36 29 00 B0 13 24 |MAX..(S.256)...$|
00000B70: 03 99 22 20 20 4D 41 58 49 4D 55 4D 20 53 49 5A |.." MAXIMUM SIZ|
00000B80: 45 20 4F 46 20 46 49 4C 45 20 57 48 49 43 48 20 |E OF FILE WHICH |
00000B90: 43 41 4E 20 42 45 20 43 4F 50 49 45 44 20 49 53 |CAN BE COPIED IS|
00000BA0: 20 22 4D 41 58 22 20 42 4C 4F 43 4B 53 22 3A 99 | "MAX" BLOCKS":.|
00000BB0: 00 C6 13 26 03 8B 20 4D 41 58 B1 B2 4D 32 20 A7 |...&.. MAX..M2 .|
00000BC0: 20 89 20 38 30 39 00 F6 13 27 03 99 22 20 20 46 | . 809...'.." F|
00000BD0: 4F 52 20 4D 41 58 49 4D 55 4D 20 43 4F 50 59 20 |OR MAXIMUM COPY |
00000BE0: 53 49 5A 45 20 4F 46 20 22 4D 32 22 20 42 4C 4F |SIZE OF "M2" BLO|
00000BF0: 43 4B 53 2C 22 3B 00 23 14 28 03 99 22 54 55 52 |CKS,";.#.(.."TUR|
00000C00: 4E 20 43 4F 4D 50 55 54 45 52 20 4F 46 46 2F 4F |N COMPUTER OFF/O|
00000C10: 4E 20 41 4E 44 20 52 45 4C 4F 41 44 20 50 52 4F |N AND RELOAD PRO|
00000C20: 47 2E 22 00 5F 14 29 03 99 3A 99 22 20 20 52 45 |G."._.)..:." RE|
00000C30: 41 44 2F 57 52 49 54 45 20 52 41 54 45 20 49 53 |AD/WRITE RATE IS|
00000C40: 20 41 50 50 52 4F 58 49 4D 41 54 45 4C 59 20 36 | APPROXIMATELY 6|
00000C50: 20 42 4C 4F 43 4B 53 2F 4D 49 4E 55 54 45 22 00 | BLOCKS/MINUTE".|
00000C60: 88 14 2A 03 99 3A 99 22 49 4E 50 55 54 20 4E 41 |..*..:."INPUT NA|
00000C70: 4D 45 20 4F 46 20 46 49 4C 45 20 54 4F 20 42 45 |ME OF FILE TO BE|
00000C80: 20 43 4F 50 49 45 44 22 00 94 14 34 03 85 20 46 | COPIED"...4.. F|
00000C90: 49 4C 45 24 00 B1 14 3E 03 99 3A 99 22 20 20 20 |ILE$...>..:." |
00000CA0: 49 4E 50 55 54 20 46 49 4C 45 20 54 59 50 45 3A |INPUT FILE TYPE:|
00000CB0: 22 00 C7 14 48 03 99 22 20 20 20 20 20 50 20 50 |"...H.." P P|
00000CC0: 52 4F 47 52 41 4D 22 00 E0 14 52 03 99 22 20 20 |ROGRAM"...R.." |
00000CD0: 20 20 20 53 20 53 45 51 55 45 4E 54 49 41 4C 22 | S SEQUENTIAL"|
00000CE0: 00 F3 14 5C 03 99 22 20 20 20 20 20 55 20 55 53 |...\.." U US|
00000CF0: 45 52 22 00 0A 15 66 03 99 22 20 20 20 20 20 52 |ER"...f.." R|
00000D00: 20 52 45 4C 41 54 49 56 45 22 00 16 15 70 03 85 | RELATIVE"...p..|
00000D10: 20 54 59 50 45 24 00 45 15 7A 03 99 3A 99 22 49 | TYPE$.E.z..:."I|
00000D20: 4E 53 45 52 54 20 53 4F 55 52 43 45 20 44 49 53 |NSERT SOURCE DIS|
00000D30: 4B 20 41 4E 44 20 50 52 45 53 53 20 3C 52 45 54 |K AND PRESS <RET|
00000D40: 55 52 4E 3E 22 00 5E 15 84 03 A1 20 57 24 3A 8B |URN>".^.... W$:.|
00000D50: 20 57 24 B2 22 22 20 A7 20 89 20 39 30 30 00 7E | W$."" . . 900.~|
00000D60: 15 8E 03 8D 31 30 30 30 3A 8F 20 52 45 41 44 20 |....1000:. READ |
00000D70: 46 49 4C 45 20 49 4E 54 4F 20 54 45 4D 50 00 AF |FILE INTO TEMP..|
00000D80: 15 98 03 99 3A 99 22 49 4E 53 45 52 54 20 44 45 |....:."INSERT DE|
00000D90: 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B 20 41 |STINATION DISK A|
00000DA0: 4E 44 20 50 52 45 53 53 20 3C 52 45 54 3E 22 00 |ND PRESS <RET>".|
00000DB0: C8 15 A2 03 A1 20 57 24 3A 8B 20 57 24 B2 22 22 |..... W$:. W$.""|
00000DC0: 20 A7 20 89 20 39 33 30 00 EB 15 AC 03 8D 20 31 | . . 930...... 1|
00000DD0: 30 35 30 3A 8F 20 57 52 49 54 45 20 46 49 4C 45 |050:. WRITE FILE|
00000DE0: 20 46 52 4F 4D 20 54 45 4D 50 24 00 0B 16 B6 03 | FROM TEMP$.....|
00000DF0: 99 3A 99 22 4D 41 4B 45 20 41 4E 4F 54 48 45 52 |.:."MAKE ANOTHER|
00000E00: 20 43 4F 50 59 22 3B 3A 85 57 24 00 25 16 C0 03 | COPY";:.W$.%...|
00000E10: 8B 20 C8 28 57 24 2C 31 29 B2 22 59 22 20 A7 20 |. .(W$,1)."Y" . |
00000E20: 89 20 39 32 30 00 2F 16 CA 03 89 31 31 30 30 00 |. 920./....1100.|
00000E30: 49 16 D4 03 8F 2D 43 48 45 43 4B 20 46 4F 52 20 |I....-CHECK FOR |
00000E40: 47 4F 4F 44 20 4F 50 45 4E 00 5D 16 D9 03 84 31 |GOOD OPEN.]....1|
00000E50: 35 2C 41 24 2C 42 24 2C 43 24 2C 44 24 00 6F 16 |5,A$,B$,C$,D$.o.|
00000E60: DE 03 8B 20 C5 28 41 24 29 B2 30 20 A7 20 8E 00 |... .(A$).0 . ..|
00000E70: 88 16 E3 03 99 20 41 24 2C 42 24 2C 43 24 2C 44 |..... A$,B$,C$,D|
00000E80: 24 3A A0 20 31 35 3A 90 00 A5 16 E8 03 8F 20 2D |$:. 15:....... -|
00000E90: 20 52 45 41 44 20 46 49 4C 45 20 49 4E 54 4F 20 | READ FILE INTO |
00000EA0: 54 45 4D 50 25 00 AD 16 EA 03 49 B2 31 00 BA 16 |TEMP%.....I.1...|
00000EB0: EC 03 9F 31 35 2C 38 2C 31 35 00 DF 16 EE 03 9F |...15,8,15......|
00000EC0: 35 2C 38 2C 35 2C 22 30 3A 22 AA 46 49 4C 45 24 |5,8,5,"0:".FILE$|
00000ED0: AA 22 2C 22 AA 54 59 50 45 24 AA 22 2C 52 22 00 |.",".TYPE$.",R".|
00000EE0: E8 16 F0 03 8D 39 38 30 00 03 17 F1 03 99 22 20 |.....980......" |
00000EF0: 20 20 20 20 4E 4F 57 20 52 45 41 44 49 4E 47 2E | NOW READING.|
00000F00: 2E 2E 22 00 0E 17 F2 03 A1 23 35 2C 41 24 00 26 |.."......#5,A$.&|
00000F10: 17 F4 03 54 45 4D 50 25 28 49 29 B2 C6 28 41 24 |...TEMP%(I)..(A$|
00000F20: AA C7 28 30 29 29 00 30 17 F6 03 49 B2 49 AA 31 |..(0)).0...I.I.1|
00000F30: 00 41 17 F8 03 8B 20 53 54 B2 30 20 A7 31 30 31 |.A.... ST.0 .101|
00000F40: 30 00 74 17 FA 03 99 3A 99 22 46 49 4C 45 3D 3F |0.t....:."FILE=?|
00000F50: 20 22 3B 46 49 4C 45 24 2C 22 53 54 3D 22 3B 53 | ";FILE$,"ST=";S|
00000F60: 54 22 42 59 54 45 53 3D 22 3B 49 3A A0 20 35 3A |T"BYTES=";I:. 5:|
00000F70: A0 20 31 35 00 7A 17 FC 03 8E 00 96 17 1A 04 8F |. 15.z..........|
00000F80: 2D 57 52 49 54 45 20 46 49 4C 45 20 46 52 4F 4D |-WRITE FILE FROM|
00000F90: 20 54 45 4D 50 25 00 A3 17 1C 04 9F 31 35 2C 38 | TEMP%......15,8|
00000FA0: 2C 31 35 00 C8 17 1E 04 9F 35 2C 38 2C 35 2C 22 |,15......5,8,5,"|
00000FB0: 30 3A 22 AA 46 49 4C 45 24 AA 22 2C 22 AA 54 59 |0:".FILE$.",".TY|
00000FC0: 50 45 24 AA 22 2C 57 22 00 D2 17 20 04 8D 20 39 |PE$.",W"... .. 9|
00000FD0: 38 30 00 ED 17 21 04 99 22 20 20 20 20 20 4E 4F |80...!.." NO|
00000FE0: 57 20 57 52 49 54 49 4E 47 2E 2E 2E 22 00 F5 17 |W WRITING..."...|
00000FF0: 22 04 4A B2 31 00 09 18 24 04 98 35 2C C7 28 54 |".J.1...$..5,.(T|
00001000: 45 4D 50 25 28 4A 29 29 3B 00 13 18 26 04 4A B2 |EMP%(J));...&.J.|
00001010: 4A AA 31 00 24 18 28 04 8B 20 4A B3 49 20 A7 20 |J.1.$.(.. J.I . |
00001020: 31 30 36 30 00 4C 18 2A 04 99 3A 99 22 46 49 4C |1060.L.*..:."FIL|
00001030: 45 3D 20 22 3B 46 49 4C 45 24 2C 22 42 59 54 45 |E= ";FILE$,"BYTE|
00001040: 53 3D 22 3B 4A 3A A0 35 3A A0 31 35 00 52 18 2C |S=";J:.5:.15.R.,|
00001050: 04 8E 00 58 18 4C 04 8E 00 7C 18 B0 04 8F 20 2A |...X.L...|.... *|
00001060: 2A 2A 43 4F 50 59 20 42 4F 54 48 20 44 4F 53 20 |**COPY BOTH DOS |
00001070: 50 52 4F 47 52 41 4D 53 20 2A 2A 2A 00 B2 18 B5 |PROGRAMS ***....|
00001080: 04 99 22 93 22 3A 99 22 49 4E 53 45 52 54 20 53 |..".":."INSERT S|
00001090: 4F 55 52 43 45 20 44 49 53 4B 20 57 49 54 48 20 |OURCE DISK WITH |
000010A0: 57 45 44 47 45 20 41 4E 44 2F 4F 52 20 44 4F 53 |WEDGE AND/OR DOS|
000010B0: 22 3B 00 D7 18 BA 04 99 22 50 52 4F 47 52 41 4D |";......"PROGRAM|
000010C0: 28 53 29 20 41 4E 44 20 50 52 45 53 53 20 3C 52 |(S) AND PRESS <R|
000010D0: 45 54 55 52 4E 3E 22 00 EF 18 BF 04 A1 57 24 3A |ETURN>"......W$:|
000010E0: 8B 20 57 24 B2 22 22 20 A7 20 89 31 32 31 35 00 |. W$."" . .1215.|
000010F0: FD 18 C2 04 54 59 50 45 24 B2 22 50 22 00 26 19 |....TYPE$."P".&.|
00001100: C3 04 8B 20 43 30 B2 31 20 A7 20 46 49 4C 45 24 |... C0.1 . FILE$|
00001110: B2 22 56 49 43 2D 32 30 20 57 45 44 47 45 22 3A |."VIC-20 WEDGE":|
00001120: 89 20 31 32 33 35 00 44 19 C4 04 46 49 4C 45 24 |. 1235.D...FILE$|
00001130: B2 22 43 2D 36 34 20 57 45 44 47 45 22 3A 8D 20 |."C-64 WEDGE":. |
00001140: 31 30 30 30 00 8A 19 C9 04 81 20 43 B2 31 20 A4 |1000...... C.1 .|
00001150: 20 36 34 3A 44 4F 53 25 28 43 29 B2 54 45 4D 50 | 64:DOS%(C).TEMP|
00001160: 25 28 43 29 3A 82 20 43 3A 8F 20 4D 4F 56 45 20 |%(C):. C:. MOVE |
00001170: 43 2D 36 34 20 57 45 44 47 45 20 54 4F 20 53 4D |C-64 WEDGE TO SM|
00001180: 41 4C 4C 20 42 55 46 46 45 52 00 9E 19 CE 04 46 |ALL BUFFER.....F|
00001190: 49 4C 45 24 B2 22 44 4F 53 20 35 2E 31 22 00 D6 |ILE$."DOS 5.1"..|
000011A0: 19 D3 04 8D 20 31 30 30 30 3A 99 3A 99 22 49 4E |.... 1000:.:."IN|
000011B0: 53 45 52 54 20 44 45 53 54 49 4E 41 54 49 4F 4E |SERT DESTINATION|
000011C0: 20 44 49 53 4B 20 41 4E 44 20 50 52 45 53 53 20 | DISK AND PRESS |
000011D0: 3C 52 45 54 3E 22 00 F0 19 D8 04 A1 20 57 24 3A |<RET>"...... W$:|
000011E0: 8B 20 57 24 B2 22 22 20 A7 20 89 20 31 32 34 30 |. W$."" . . 1240|
000011F0: 00 06 1A DD 04 8D 20 31 30 35 30 3A 8B 20 43 30 |...... 1050:. C0|
00001200: B2 31 20 A7 20 8E 00 2A 1A E2 04 81 20 43 B2 31 |.1 . ..*.... C.1|
00001210: 20 A4 20 36 34 3A 54 45 4D 50 25 28 43 29 B2 44 | . 64:TEMP%(C).D|
00001220: 4F 53 25 28 43 29 3A 82 20 43 00 60 1A E7 04 46 |OS%(C):. C.`...F|
00001230: 49 4C 45 24 B2 22 43 2D 36 34 20 57 45 44 47 45 |ILE$."C-64 WEDGE|
00001240: 22 3A 49 B2 36 34 3A 8D 20 31 30 35 30 3A 8F 20 |":I.64:. 1050:. |
00001250: 57 52 49 54 45 20 43 2D 36 34 20 57 45 44 47 45 |WRITE C-64 WEDGE|
00001260: 00 66 1A 0A 05 8E 00 00 00 |.f....... |
.......53280,0:.53281,0:.".".C.... 49152
,10:. B(49152)..10. C0.1:.6.L...C0.2.[..
.. DOS%(65).|...FR..(0):. FR.0 . FR.FR.6
5536.....S.(FR.400).2:M2..(S.256).1.....
. TEMP%(S)......".";.Y...." **
****************"......" * DI
SK MANAGER *".#...." ********
**********".>.2..:."1. DISK DIRECTORY".X
.<.."2. FORMAT NEW DISK".R.F.."3. INITIA
LIZE DISK"...P.."4. COPY FILE ON SAME
DISK".C.U.."5. COPY FILE ON NEW (FORMA
TTED) DISK"...X.."6. COPY BOTH DOS WEDGE
PROGRAMS"...Z.."7. RENAME FILE"...D..
"8. ERASE FILE(S)".3.N.."9. VALIDATE FIL
ES".P.X.."10.WRITE DISK MANAGER".G...."1
1.ERROR STATUS"......"12.EXIT TO BASIC":
......."CHOICE ....";CHOICE.G....(CHO
ICE.1).(CHOICE.12). .".";:. 170...H.. CH
OICE . 250,300,350,400,800,1200,450,500,
550,600,650,700...R.. 10.0.... *** DISPL
AY DIRECTORY ***.9....".".I.... 1,8,0,"$
".X.... #1,A$,B$.F....#1,A$,B$.T....#1,A
$,B$.....C.0:. A$.."". C.F(A$)...... B$.
."". C.C. F(B$).256...... J(D(C),2);.3);
.X....#1,B$:.ST..0 . 282...... B$.. G(34
) . 264......#1,B$:. B$.. G(34) . .B$;:.
268.0....#1,B$:. B$.G(32) . 270.B.... .
18);:C$."".C...C$.C$.B$:.#1,B$:. B$.."".
274.Q.... H(C$,3)...... ST.0 . 254......
"BLOCKS FREE"..... 1:.:.:."HIT ANY KEY
TO RETURN".O.".. X$:.X$."". 290.U.'.....
,.. *** FORMAT (NEW) DISK ***...-..".".'
.1.."INSERT DISK TO BE":."FORMATTED.":..
F.6.."INPUT DISK NAME":. DISK$.J.@..:."I
NPUT EXTENDER NAME":. EXT$...E.MACRO$."N
0:".DISK$.",".EXT$...J.. 15,8,15,MACRO$.
..T. 15:MACRO$."":..R.^.. *** INITIALIZ
E DISK ***...C.."."...H.."INSERT DISK TO
BE":."INITIALIZED.":..0.R.."HIT <RETURN
> TO":."INITIALIZE":. X$.A.|..15,8,15,"I
".K... 15:..P.... *** COPY FILE ON SAME
DISK ***.}....".":.:......."INPUT SOURCE
FILE NAME":. DISK$.G....:."INPUT NEW FI
LE NAME":. NWS$.....MACRO$."C:".NWS$."="
.DISK$......15,8,15,MACRO$..... 15:MACRO
$."":..'.B.. ***RENAME FILE ***.2.G.."."
:..U.L.."INPUT OLD FILE NAME":. DISK$.Y.
V..:."INPUT NEW FILE NAME":. NWS$.....MA
CRO$."R:".NWS$."=".DISK$......15,8,15,MA
CRO$..... 15:MACRO$."":..Y.... *** ERASE
FILE ***......".":.:......."INPUT FILE
NAME(S) TO DELETE":. DISK$.3....:.:."HIT
ANY KEY TO DELETE".G....X$:.X$."". 525.
^...MACRO$."S0:".DISK$.S.... 15,8,15,MAC
RO$..... 15:MACRO$."":....&.. *** VALID
ATE FILES ***...+..".":.:....0.."WARNING
:OPEN FILES":."WILL BE DELETED"...:..:.:
."HIT ANY KEY TO VALIDATE"...?..X$:. X$.
"" . 575.).D.. 1,8,15,"V".3.N. 1:..Y.X.
. ** WRITE DISKMANAGER PROGRAM **.F.].."
.":.:....B.."INSERT DISK TO BE WRITTEN T
O.":....L..:.:."HIT ANY KEY TO WRITE DIS
K MANAGER".P.N..X$:. X$."" . 622...Q.. 1
,8,15...V.."@0:DISKMANAGER",8...{. 1...
....&.... *** DISPLAY ERROR STATUS ***.3
....15,8,15.G....15,A$,B$,C$,D$.T...."."
:.:......."ERROR STATUS: "B$:.:."ERROR
NUMBER: "A$......:.:."HIT ANY KEY TO RE
TURN"...... X$:. X$."". 695.E... 15:....
... ***RETURN TO BASIC ***...A..".":.:..
!.F.."NOTE:DISKMANAGER PROGRAM IS STILL
RESIDENT".'.P...J. .. ***COPY FILE ON NE
W DISK ***.S.!..".".[.". 15.L.#.MAX..(S.
256)...$.." MAXIMUM SIZE OF FILE WHICH
CAN BE COPIED IS "MAX" BLOCKS":..F.&.. M
AX..M2 . . 809...'.." FOR MAXIMUM COPY
SIZE OF "M2" BLOCKS,";.#.(.."TURN COMPUT
ER OFF/ON AND RELOAD PROG."._.)..:." RE
AD/WRITE RATE IS APPROXIMATELY 6 BLOCKS/
MINUTE"...*..:."INPUT NAME OF FILE TO BE
COPIED"...4.. FILE$...>..:." INPUT FI
LE TYPE:".G.H.." P PROGRAM"...R.."
S SEQUENTIAL"...\.." U USER"...F.
." R RELATIVE"...P.. TYPE$.E.Z..:."I
NSERT SOURCE DISK AND PRESS <RETURN>".^.
... W$:. W$."" . . 900.~....1000:. READ
FILE INTO TEMP......:."INSERT DESTINATIO
N DISK AND PRESS <RET>".H.... W$:. W$.""
. . 930...... 1050:. WRITE FILE FROM TE
MP$......:."MAKE ANOTHER COPY";:.W$.%...
. H(W$,1)."Y" . . 920./.J..1100.I.T..-CH
ECK FOR GOOD OPEN.].Y..15,A$,B$,C$,D$.O.
... E(A$).0 . ....... A$,B$,C$,D$: 15:.
...... - READ FILE INTO TEMP%.....I.1...
...15,8,15......5,8,5,"0:".FILE$.",".TYP
E$.",R"......980......" NOW READING.
.."......#5,A$.&...TEMP%(I).F(A$.G(0)).0
...I.I.1.A.... ST.0 .1010.T....:."FILE=?
";FILE$,"ST=";ST"BYTES=";I: 5: 15.Z..
........-WRITE FILE FROM TEMP%......15,8
,15.H....5,8,5,"0:".FILE$.",".TYPE$.",W"
.R. .. 980...!.." NOW WRITING..."...
".J.1...$..5,G(TEMP%(J));...&.J.J.1.$.(.
. J.I . 1060.L.*..:."FILE= ";FILE$,"BYTE
S=";J: 5: 15.R.,...X.L...|.... ***COPY B
OTH DOS PROGRAMS ***......".":."INSERT S
OURCE DISK WITH WEDGE AND/OR DOS";.W....
"PROGRAM(S) AND PRESS <RETURN>"......W$:
. W$."" . .1215...B.TYPE$."P".&.C.. C0.1
. FILE$."VIC-20 WEDGE":. 1235.D.D.FILE$
."C-64 WEDGE":. 1000...I.. C.1 . 64:DOS%
(C).TEMP%(C):. C:. MOVE C-64 WEDGE TO SM
ALL BUFFER...N.FILE$."DOS 5.1".V.S.. 100
0:.:."INSERT DESTINATION DISK AND PRESS
<RET>"...X.. W$:. W$."" . . 1240...... 1
050:. C0.1 . ..*.... C.1 . 64:TEMP%(C).D
OS%(C):. C.`...FILE$."C-64 WEDGE":I.64:.
1050:. WRITE C-64 WEDGE.F.......
> CLICK IMAGE PREVIEW FOR FULL MODAL