Multiple names: DISK-MANAGEMENT, 21.DISC-HELPER
FILE INFORMATION
FILENAME(S):
• DISK-MANAGEMENT<br>• 21.DISC-HELPER
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-11-02 16:39:29
APPEARS ON: 5 disk(s)
FILE HASH
38776573ed1419c2c03ca7f6366f1b51c8d0d8839f4aa9bd1fb006f251783fdb
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| D M PD SERVICE | DISK-MANAGEMENT | PRG | Treasure Chest - Plattfuss | 12 | 7 | DOWNLOAD FILE |
| U TILITEIS | 21.DISC-HELPER | PRG | Treasure Chest - Wolfgang Rauprich | 30 | 1 | DOWNLOAD FILE |
| FREESOFT DISK NR | DISK-MANAGEMENT | PRG | Treasure Chest - Wolfgang Rauprich | 33 | 1 | DOWNLOAD FILE |
| A NWENDER | DISK-MANAGEMENT | PRG | Treasure Chest - Wolfgang Rauprich | 33 | 1 | DOWNLOAD FILE |
| FREEWARE DISK NR | 21.DISC-HELPER | PRG | Treasure Chest - Wolfgang Rauprich | 30 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 01 00 8F 20 44 49 53 4B 20 46 49 4C |....... DISK FIL|
00000010: 45 20 4D 41 4E 41 47 45 52 00 3B 08 02 00 8F 20 |E MANAGER.;.... |
00000020: 50 55 42 4C 49 43 20 44 4F 4D 41 49 4E 20 53 4F |PUBLIC DOMAIN SO|
00000030: 46 54 57 41 52 45 20 31 39 38 35 00 5F 08 03 00 |FTWARE 1985._...|
00000040: 97 34 39 31 35 32 2C 31 30 3A 8B C2 28 34 39 31 |.49152,10:..(491|
00000050: 35 32 29 B3 B1 31 30 A7 43 30 B2 31 3A 89 36 00 |52)..10.C0.1:.6.|
00000060: A7 08 05 00 43 30 B2 32 3A 86 44 4F 53 25 28 36 |....C0.2:.DOS%(6|
00000070: 35 29 3A 46 52 B2 B8 28 30 29 3A 8B 46 52 B3 30 |5):FR..(0):.FR.0|
00000080: A7 46 52 B2 46 52 AA 36 35 35 33 36 3A 53 B2 28 |.FR.FR.65536:S.(|
00000090: 46 52 AB 34 30 30 29 AD 32 3A 4D 32 B2 B5 28 53 |FR.400).2:M2..(S|
000000A0: AD 32 35 36 29 AA 31 00 B5 08 09 00 86 54 45 4D |.256).1......TEM|
000000B0: 50 25 28 53 29 00 BF 08 0A 00 99 22 93 22 3B 00 |P%(S)......".";.|
000000C0: DB 08 0F 00 99 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A |....." ********|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 F7 08 14 00 |**********".....|
000000E0: 99 22 20 20 2A 20 20 44 49 53 43 20 4D 41 4E 41 |." * DISC MANA|
000000F0: 47 45 52 20 20 2A 22 00 13 09 19 00 99 22 20 20 |GER *"......" |
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 22 00 2D 09 32 00 99 3A 99 22 31 2E 44 49 |**".-.2..:."1.DI|
00000120: 53 43 20 44 49 52 45 43 54 4F 52 59 22 00 46 09 |SC DIRECTORY".F.|
00000130: 3C 00 99 22 32 2E 46 4F 52 4D 41 54 20 4E 45 57 |<.."2.FORMAT NEW|
00000140: 20 44 49 53 43 22 00 5F 09 46 00 99 22 33 2E 49 | DISC"._.F.."3.I|
00000150: 4E 49 54 49 41 4C 49 5A 45 20 44 49 53 43 22 00 |NITIALIZE DISC".|
00000160: 7F 09 50 00 99 22 34 2E 43 4F 50 59 20 46 49 4C |..P.."4.COPY FIL|
00000170: 45 20 4F 4E 20 53 41 4D 45 20 44 49 53 43 22 00 |E ON SAME DISC".|
00000180: AA 09 55 00 99 22 35 2E 43 4F 50 59 20 46 49 4C |..U.."5.COPY FIL|
00000190: 45 20 4F 4E 20 4E 45 57 20 28 46 4F 52 4D 41 54 |E ON NEW (FORMAT|
000001A0: 54 45 44 29 20 44 49 53 43 22 00 D0 09 58 00 99 |TED) DISC"...X..|
000001B0: 22 36 2E 43 4F 50 59 20 42 4F 54 48 20 44 4F 53 |"6.COPY BOTH DOS|
000001C0: 20 57 45 44 47 45 20 50 52 4F 47 52 41 4D 53 22 | WEDGE PROGRAMS"|
000001D0: 00 E5 09 5A 00 99 22 37 2E 52 45 4E 41 4D 45 20 |...Z.."7.RENAME |
000001E0: 46 49 4C 45 22 00 FC 09 64 00 99 22 38 2E 45 52 |FILE"...d.."8.ER|
000001F0: 41 53 45 20 46 49 4C 45 28 53 29 22 00 14 0A 6E |ASE FILE(S)"...n|
00000200: 00 99 22 39 2E 56 41 4C 49 44 41 54 45 20 46 49 |.."9.VALIDATE FI|
00000210: 4C 45 53 22 00 31 0A 78 00 99 22 31 30 2E 57 52 |LES".1.x.."10.WR|
00000220: 49 54 45 20 44 49 53 43 20 4D 41 4E 41 47 45 52 |ITE DISC MANAGER|
00000230: 22 00 48 0A 82 00 99 22 31 31 2E 45 52 52 4F 52 |".H...."11.ERROR|
00000240: 20 53 54 41 54 55 53 22 00 62 0A 8C 00 99 22 31 | STATUS".b...."1|
00000250: 32 2E 45 58 49 54 20 54 4F 20 42 41 53 49 43 22 |2.EXIT TO BASIC"|
00000260: 3A 99 00 7F 0A AA 00 85 22 43 48 4F 49 43 45 20 |:......."CHOICE |
00000270: 20 20 20 9D 9D 9D 9D 22 3B 43 48 4F 49 43 45 00 | ....";CHOICE.|
00000280: A7 0A B4 00 8B 20 28 43 48 4F 49 43 45 B3 31 29 |..... (CHOICE.1)|
00000290: B0 28 43 48 4F 49 43 45 B1 31 32 29 A7 99 22 91 |.(CHOICE.12)..".|
000002A0: 22 3B 3A 89 31 37 30 00 E5 0A C8 00 91 43 48 4F |";:.170......CHO|
000002B0: 49 43 45 8D 20 32 35 30 2C 33 30 30 2C 33 35 30 |ICE. 250,300,350|
000002C0: 2C 34 30 30 2C 38 30 30 2C 31 32 30 30 2C 34 35 |,400,800,1200,45|
000002D0: 30 2C 35 30 30 2C 35 35 30 2C 36 30 30 2C 36 35 |0,500,550,600,65|
000002E0: 30 2C 37 30 30 00 ED 0A D2 00 89 31 30 00 F3 0A |0,700......10...|
000002F0: FA 00 8F 00 FC 0A FB 00 99 22 93 22 00 0B 0B FC |........."."....|
00000300: 00 9F 31 2C 38 2C 30 2C 22 24 22 00 1A 0B FD 00 |..1,8,0,"$".....|
00000310: A1 20 23 31 2C 41 24 2C 42 24 00 28 0B FE 00 A1 |. #1,A$,B$.(....|
00000320: 23 31 2C 41 24 2C 42 24 00 37 0B 00 01 A1 20 23 |#1,A$,B$.7.... #|
00000330: 31 2C 41 24 2C 42 24 00 4F 0B 02 01 43 B2 30 3A |1,A$,B$.O...C.0:|
00000340: 8B 41 24 B3 B1 22 22 A7 43 B2 C6 28 41 24 29 00 |.A$.."".C..(A$).|
00000350: 69 0B 04 01 8B 42 24 B3 B1 22 22 A7 43 B2 43 AA |i....B$.."".C.C.|
00000360: C6 28 42 24 29 AC 32 35 36 00 7D 0B 06 01 99 CA |.(B$).256.}.....|
00000370: 28 C4 28 43 29 2C 32 29 3B A3 33 29 3B 00 93 0B |(.(C),2);.3);...|
00000380: 08 01 A1 23 31 2C 42 24 3A 8B 53 54 B3 B1 30 A7 |...#1,B$:.ST..0.|
00000390: 32 38 32 00 A6 0B 0A 01 8B 42 24 B3 B1 C7 28 33 |282......B$...(3|
000003A0: 34 29 A7 32 36 34 00 C6 0B 0C 01 A1 23 31 2C 42 |4).264......#1,B|
000003B0: 24 3A 8B 42 24 B3 B1 C7 28 33 34 29 A7 99 42 24 |$:.B$...(34)..B$|
000003C0: 3B 3A 89 32 36 38 00 DF 0B 0E 01 A1 23 31 2C 42 |;:.268......#1,B|
000003D0: 24 3A 8B 42 24 B2 C7 28 33 32 29 A7 32 37 30 00 |$:.B$..(32).270.|
000003E0: F0 0B 10 01 99 A3 31 38 29 3B 3A 43 24 B2 22 22 |......18);:C$.""|
000003F0: 00 10 0C 12 01 43 24 B2 43 24 AA 42 24 3A A1 23 |.....C$.C$.B$:.#|
00000400: 31 2C 42 24 3A 8B 42 24 B3 B1 22 22 A7 32 37 34 |1,B$:.B$.."".274|
00000410: 00 1D 0C 14 01 99 C8 28 43 24 2C 33 29 00 2B 0C |.......(C$,3).+.|
00000420: 18 01 8B 53 54 B2 30 A7 32 35 34 00 3E 0C 1A 01 |...ST.0.254.>...|
00000430: 99 22 20 42 4C 4F 43 4B 53 20 46 52 45 45 00 61 |." BLOCKS FREE.a|
00000440: 0C 1C 01 A0 31 3A 99 3A 99 3A 99 22 48 49 54 20 |....1:.:.:."HIT |
00000450: 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 55 52 |ANY KEY TO RETUR|
00000460: 4E 00 75 0C 22 01 A1 20 58 24 3A 8B 58 24 B2 22 |N.u.".. X$:.X$."|
00000470: 22 A7 32 39 30 00 7B 0C 27 01 8E 00 81 0C 2C 01 |".290.{.'.....,.|
00000480: 8F 00 89 0C 2D 01 99 22 93 00 B2 0C 31 01 99 22 |....-.."....1.."|
00000490: 49 4E 53 45 52 54 20 44 49 53 43 20 54 4F 20 42 |INSERT DISC TO B|
000004A0: 45 22 3A 99 22 46 4F 52 4D 41 54 54 45 44 2E 22 |E":."FORMATTED."|
000004B0: 3A 99 00 D1 0C 36 01 99 22 49 4E 50 55 54 20 44 |:....6.."INPUT D|
000004C0: 49 53 43 20 4E 41 4D 45 22 3A 85 20 44 49 53 43 |ISC NAME":. DISC|
000004D0: 24 00 F4 0C 40 01 99 3A 99 22 49 4E 50 55 54 20 |$...@..:."INPUT |
000004E0: 45 58 54 45 4E 44 45 52 20 4E 41 4D 45 22 3A 85 |EXTENDER NAME":.|
000004F0: 45 58 54 24 00 14 0D 46 01 4D 41 43 52 4F 24 B2 |EXT$...F.MACRO$.|
00000500: 22 4E 30 3A 22 AA 44 49 53 43 24 AA 22 2C 22 AA |"N0:".DISC$.",".|
00000510: 45 58 54 24 00 28 0D 4A 01 9F 31 35 2C 38 2C 31 |EXT$.(.J..15,8,1|
00000520: 35 2C 4D 41 43 52 4F 24 00 3D 0D 54 01 A0 20 31 |5,MACRO$.=.T.. 1|
00000530: 35 3A 4D 41 43 52 4F 24 B2 22 22 3A 8E 00 43 0D |5:MACRO$."":..C.|
00000540: 5E 01 8F 00 4C 0D 63 01 99 20 22 93 00 77 0D 68 |^...L.c.. "..w.h|
00000550: 01 99 22 49 4E 53 45 52 54 20 44 49 53 43 20 54 |.."INSERT DISC T|
00000560: 4F 20 42 45 22 3A 99 22 49 4E 49 54 49 41 4C 49 |O BE":."INITIALI|
00000570: 5A 45 44 2E 22 3A 99 00 A0 0D 72 01 99 22 48 49 |ZED.":....r.."HI|
00000580: 54 20 3C 52 45 54 55 52 4E 3E 20 54 4F 22 3A 99 |T <RETURN> TO":.|
00000590: 22 49 4E 49 54 49 41 4C 49 5A 45 22 3A 85 58 24 |"INITIALIZE":.X$|
000005A0: 00 B1 0D 7C 01 9F 31 35 2C 38 2C 31 35 2C 22 49 |...|..15,8,15,"I|
000005B0: 22 00 BC 0D 86 01 A0 20 31 35 3A 8E 00 C2 0D 90 |"...... 15:.....|
000005C0: 01 8F 00 CF 0D 95 01 99 22 93 22 3A 99 3A 99 00 |........".":.:..|
000005D0: F5 0D 9A 01 99 22 49 4E 50 55 54 20 53 4F 55 52 |....."INPUT SOUR|
000005E0: 43 45 20 46 49 4C 45 20 4E 41 4D 45 22 3A 85 20 |CE FILE NAME":. |
000005F0: 44 49 53 43 24 00 18 0E A4 01 99 3A 99 22 49 4E |DISC$......:."IN|
00000600: 50 55 54 20 4E 45 57 20 46 49 4C 45 20 4E 41 4D |PUT NEW FILE NAM|
00000610: 45 22 3A 85 4E 57 53 24 00 37 0E A9 01 4D 41 43 |E":.NWS$.7...MAC|
00000620: 52 4F 24 B2 22 43 3A 22 AA 4E 57 53 24 AA 22 3D |RO$."C:".NWS$."=|
00000630: 22 AA 44 49 53 43 24 00 4B 0E AE 01 9F 31 35 2C |".DISC$.K....15,|
00000640: 38 2C 31 35 2C 4D 41 43 52 4F 24 00 5F 0E B8 01 |8,15,MACRO$._...|
00000650: A0 31 35 3A 4D 41 43 52 4F 24 B2 22 22 3A 8E 00 |.15:MACRO$."":..|
00000660: 65 0E C2 01 8F 00 70 0E C7 01 99 22 93 22 3A 99 |e.....p....".":.|
00000670: 00 93 0E CC 01 99 22 49 4E 50 55 54 20 4F 4C 44 |......"INPUT OLD|
00000680: 20 46 49 4C 45 20 4E 41 4D 45 22 3A 85 20 44 49 | FILE NAME":. DI|
00000690: 53 43 24 00 B6 0E D6 01 99 3A 99 22 49 4E 50 55 |SC$......:."INPU|
000006A0: 54 20 4E 45 57 20 46 49 4C 45 20 4E 41 4D 45 22 |T NEW FILE NAME"|
000006B0: 3A 85 4E 57 53 24 00 D5 0E DB 01 4D 41 43 52 4F |:.NWS$.....MACRO|
000006C0: 24 B2 22 52 3A 22 AA 4E 57 53 24 AA 22 3D 22 AA |$."R:".NWS$."=".|
000006D0: 44 49 53 43 24 00 E9 0E E0 01 9F 31 35 2C 38 2C |DISC$......15,8,|
000006E0: 31 35 2C 4D 41 43 52 4F 24 00 FD 0E EA 01 A0 31 |15,MACRO$......1|
000006F0: 35 3A 4D 41 43 52 4F 24 B2 22 22 3A 8E 00 03 0F |5:MACRO$."":....|
00000700: F4 01 8F 00 10 0F F9 01 99 22 93 22 3A 99 3A 99 |.........".":.:.|
00000710: 00 3C 0F FE 01 99 22 49 4E 50 55 54 20 46 49 4C |.<...."INPUT FIL|
00000720: 45 20 4E 41 4D 45 28 53 29 20 54 4F 20 44 45 4C |E NAME(S) TO DEL|
00000730: 45 54 45 22 3A 85 20 44 49 53 43 24 00 5D 0F 08 |ETE":. DISC$.]..|
00000740: 02 99 3A 99 3A 99 22 48 49 54 20 41 4E 59 20 4B |..:.:."HIT ANY K|
00000750: 45 59 20 54 4F 20 44 45 4C 45 54 45 22 00 70 0F |EY TO DELETE".p.|
00000760: 0D 02 A1 58 24 3A 8B 58 24 B2 22 22 A7 35 32 35 |...X$:.X$."".525|
00000770: 00 87 0F 12 02 4D 41 43 52 4F 24 B2 22 53 30 3A |.....MACRO$."S0:|
00000780: 22 AA 44 49 53 43 24 00 9B 0F 17 02 9F 31 35 2C |".DISC$......15,|
00000790: 38 2C 31 35 2C 4D 41 43 52 4F 24 00 AF 0F 1C 02 |8,15,MACRO$.....|
000007A0: A0 31 35 3A 4D 41 43 52 4F 24 B2 22 22 3A 8E 00 |.15:MACRO$."":..|
000007B0: B5 0F 26 02 8F 00 C2 0F 2B 02 99 22 93 22 3A 99 |..&.....+..".":.|
000007C0: 3A 99 00 F1 0F 30 02 99 22 12 57 41 52 4E 49 4E |:....0..".WARNIN|
000007D0: 47 92 3A 20 4F 50 45 4E 20 46 49 4C 45 53 22 3A |G.: OPEN FILES":|
000007E0: 99 22 57 49 4C 4C 20 42 45 20 44 45 4C 45 54 45 |."WILL BE DELETE|
000007F0: 44 00 14 10 3A 02 99 3A 99 3A 99 22 48 49 54 20 |D...:..:.:."HIT |
00000800: 41 4E 59 20 4B 45 59 20 54 4F 20 12 56 41 4C 49 |ANY KEY TO .VALI|
00000810: 44 41 54 45 00 27 10 3F 02 A1 58 24 3A 8B 58 24 |DATE.'.?..X$:.X$|
00000820: B2 22 22 A7 35 37 35 00 36 10 44 02 9F 31 2C 38 |."".575.6.D..1,8|
00000830: 2C 31 35 2C 22 56 00 3F 10 4E 02 A0 31 3A 8E 00 |,15,"V.?.N..1:..|
00000840: 45 10 58 02 8F 00 52 10 5D 02 99 22 93 22 3A 99 |E.X...R.]..".":.|
00000850: 3A 99 00 79 10 62 02 99 22 49 4E 53 45 52 54 20 |:..y.b.."INSERT |
00000860: 44 49 53 43 20 54 4F 20 42 45 20 57 52 49 54 54 |DISC TO BE WRITT|
00000870: 45 4E 20 54 4F 2E 22 3A 99 00 A5 10 6C 02 99 3A |EN TO.":....l..:|
00000880: 99 3A 99 22 48 49 54 20 41 4E 59 20 4B 45 59 20 |.:."HIT ANY KEY |
00000890: 54 4F 20 57 52 49 54 45 20 44 49 53 43 20 4D 41 |TO WRITE DISC MA|
000008A0: 4E 41 47 45 52 00 B8 10 6E 02 A1 58 24 3A 8B 58 |NAGER...n..X$:.X|
000008B0: 24 B2 22 22 A7 36 32 32 00 C4 10 71 02 9F 31 2C |$."".622...q..1,|
000008C0: 38 2C 31 35 00 DD 10 76 02 94 22 40 30 3A 44 49 |8,15...v.."@0:DI|
000008D0: 53 43 20 4D 41 4E 41 47 45 52 22 2C 38 00 E4 10 |SC MANAGER",8...|
000008E0: 7B 02 A0 31 00 EA 10 80 02 8E 00 F0 10 8A 02 8F |{..1............|
000008F0: 00 FD 10 8F 02 9F 31 35 2C 38 2C 31 35 00 11 11 |......15,8,15...|
00000900: 94 02 84 31 35 2C 41 24 2C 42 24 2C 43 24 2C 44 |...15,A$,B$,C$,D|
00000910: 24 00 1E 11 9E 02 99 22 93 22 3A 99 3A 99 00 4E |$......".":.:..N|
00000920: 11 A8 02 99 22 45 52 52 4F 52 20 53 54 41 54 55 |...."ERROR STATU|
00000930: 53 3A 20 20 22 42 24 3A 99 3A 99 22 45 52 52 4F |S: "B$:.:."ERRO|
00000940: 52 20 4E 55 4D 42 45 52 3A 20 20 22 41 24 00 6E |R NUMBER: "A$.n|
00000950: 11 B2 02 99 3A 99 3A 99 22 48 49 54 20 41 4E 59 |....:.:."HIT ANY|
00000960: 4B 45 59 20 54 4F 20 52 45 54 55 52 4E 22 00 83 |KEY TO RETURN"..|
00000970: 11 B7 02 A1 58 24 3A 8B 20 58 24 B2 22 22 A7 20 |....X$:. X$."". |
00000980: 36 39 35 00 8E 11 B9 02 A0 20 31 35 3A 8E 00 94 |695...... 15:...|
00000990: 11 BC 02 8F 00 A1 11 C1 02 99 22 93 22 3A 99 3A |..........".":.:|
000009A0: 99 00 D5 11 C6 02 99 22 4E 4F 54 45 3A 20 44 49 |......."NOTE: DI|
000009B0: 53 43 20 4D 41 4E 41 47 45 52 20 50 52 4F 47 52 |SC MANAGER PROGR|
000009C0: 41 4D 20 12 49 53 20 53 54 49 4C 4C 20 52 45 53 |AM .IS STILL RES|
000009D0: 49 44 45 4E 54 00 DB 11 D0 02 80 00 E1 11 20 03 |IDENT......... .|
000009E0: 8F 00 E9 11 21 03 99 22 93 00 F1 11 22 03 A0 31 |....!.."...."..1|
000009F0: 35 00 02 12 23 03 4D 41 58 B2 B5 28 53 AD 32 35 |5...#.MAX..(S.25|
00000A00: 36 29 00 43 12 24 03 99 22 20 20 4D 41 58 49 4D |6).C.$.." MAXIM|
00000A10: 55 4D 20 53 49 5A 45 20 4F 46 20 46 49 4C 45 20 |UM SIZE OF FILE |
00000A20: 57 48 49 43 48 20 43 41 4E 20 42 45 20 43 4F 50 |WHICH CAN BE COP|
00000A30: 49 45 44 49 53 22 4D 41 58 22 42 4C 4F 43 4B 53 |IEDIS"MAX"BLOCKS|
00000A40: 22 3A 99 00 55 12 26 03 8B 4D 41 58 B1 B2 4D 32 |":..U.&..MAX..M2|
00000A50: A7 89 38 30 39 00 83 12 27 03 99 22 20 20 46 4F |..809...'.." FO|
00000A60: 52 20 4D 41 58 49 4D 55 4D 20 43 4F 50 59 20 53 |R MAXIMUM COPY S|
00000A70: 49 5A 45 20 4F 46 22 4D 32 22 42 4C 4F 43 4B 53 |IZE OF"M2"BLOCKS|
00000A80: 2C 22 3B 00 AF 12 28 03 99 22 54 55 52 4E 20 43 |,";...(.."TURN C|
00000A90: 4F 4D 50 55 54 45 52 20 4F 46 46 2F 4F 4E 20 41 |OMPUTER OFF/ON A|
00000AA0: 4E 44 20 52 45 4C 4F 41 44 20 50 52 4F 47 2E 00 |ND RELOAD PROG..|
00000AB0: E6 12 29 03 99 3A 99 22 20 20 52 45 41 44 2F 57 |..)..:." READ/W|
00000AC0: 52 49 54 45 20 52 41 54 45 20 49 53 20 41 50 50 |RITE RATE IS APP|
00000AD0: 52 4F 58 36 20 42 4C 4F 43 4B 53 20 50 45 52 20 |ROX6 BLOCKS PER |
00000AE0: 4D 49 4E 55 54 45 00 0E 13 2A 03 99 3A 99 22 49 |MINUTE...*..:."I|
00000AF0: 4E 50 55 54 20 4E 41 4D 45 20 4F 46 20 46 49 4C |NPUT NAME OF FIL|
00000B00: 45 20 54 4F 20 42 45 20 43 4F 50 49 45 44 00 1A |E TO BE COPIED..|
00000B10: 13 34 03 85 20 46 49 4C 45 24 00 35 13 3E 03 99 |.4.. FILE$.5.>..|
00000B20: 3A 99 22 20 20 20 49 4E 50 55 54 20 46 49 4C 45 |:." INPUT FILE|
00000B30: 20 54 59 50 45 00 4A 13 48 03 99 22 20 20 20 20 | TYPE.J.H.." |
00000B40: 20 50 20 50 52 4F 47 52 41 4D 00 62 13 52 03 99 | P PROGRAM.b.R..|
00000B50: 22 20 20 20 20 20 53 20 53 45 51 55 45 4E 54 49 |" S SEQUENTI|
00000B60: 41 4C 00 74 13 5C 03 99 22 20 20 20 20 20 55 20 |AL.t.\.." U |
00000B70: 55 53 45 52 00 8A 13 66 03 99 22 20 20 20 20 20 |USER...f.." |
00000B80: 52 20 52 45 4C 41 54 49 56 45 00 96 13 70 03 85 |R RELATIVE...p..|
00000B90: 20 54 59 50 45 24 00 C3 13 7A 03 99 3A 99 22 49 | TYPE$...z..:."I|
00000BA0: 4E 53 45 52 54 20 53 4F 55 52 43 45 20 44 49 53 |NSERT SOURCE DIS|
00000BB0: 43 20 41 4E 44 20 50 52 45 53 53 3C 52 45 54 55 |C AND PRESS<RETU|
00000BC0: 52 4E 3E 00 D7 13 84 03 A1 57 24 3A 8B 57 24 B2 |RN>......W$:.W$.|
00000BD0: 22 22 A7 89 39 30 30 00 E2 13 8E 03 8D 31 30 30 |""..900......100|
00000BE0: 30 3A 00 12 14 98 03 99 3A 99 22 49 4E 53 45 52 |0:......:."INSER|
00000BF0: 54 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 |T DESTINATION DI|
00000C00: 53 43 20 41 4E 44 20 50 52 45 53 53 20 3C 52 45 |SC AND PRESS <RE|
00000C10: 54 3E 00 26 14 A2 03 A1 57 24 3A 8B 57 24 B2 22 |T>.&....W$:.W$."|
00000C20: 22 A7 89 39 33 30 00 30 14 AC 03 8D 31 30 35 30 |"..930.0....1050|
00000C30: 00 50 14 B6 03 99 3A 99 22 4D 41 4B 45 20 41 4E |.P....:."MAKE AN|
00000C40: 4F 54 48 45 52 20 43 4F 50 59 22 3B 3A 85 57 24 |OTHER COPY";:.W$|
00000C50: 00 66 14 C0 03 8B C8 28 57 24 2C 31 29 B2 22 59 |.f.....(W$,1)."Y|
00000C60: 22 A7 89 39 32 30 00 70 14 CA 03 89 31 31 30 30 |"..920.p....1100|
00000C70: 00 76 14 D4 03 8F 00 8A 14 D9 03 84 31 35 2C 41 |.v..........15,A|
00000C80: 24 2C 42 24 2C 43 24 2C 44 24 00 9A 14 DE 03 8B |$,B$,C$,D$......|
00000C90: 20 C5 28 41 24 29 B2 30 A7 8E 00 B1 14 E3 03 99 | .(A$).0........|
00000CA0: 41 24 2C 42 24 2C 43 24 2C 44 24 3A A0 31 35 3A |A$,B$,C$,D$:.15:|
00000CB0: 90 00 B7 14 E8 03 8F 00 BF 14 EA 03 49 B2 31 00 |............I.1.|
00000CC0: CC 14 EC 03 9F 31 35 2C 38 2C 31 35 00 F0 14 EE |.....15,8,15....|
00000CD0: 03 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA 46 49 4C |..5,8,5,"0:".FIL|
00000CE0: 45 24 AA 22 2C 22 AA 54 59 50 45 24 AA 22 2C 52 |E$.",".TYPE$.",R|
00000CF0: 00 FA 14 F0 03 8D 20 39 38 30 00 17 15 F1 03 99 |...... 980......|
00000D00: 22 20 20 20 20 20 4E 4F 57 20 52 45 41 44 49 4E |" NOW READIN|
00000D10: 47 20 2E 20 2E 20 2E 00 22 15 F2 03 A1 23 35 2C |G . . .."....#5,|
00000D20: 41 24 00 3A 15 F4 03 54 45 4D 50 25 28 49 29 B2 |A$.:...TEMP%(I).|
00000D30: C6 28 41 24 AA C7 28 30 29 29 00 44 15 F6 03 49 |.(A$..(0)).D...I|
00000D40: B2 49 AA 31 00 53 15 F8 03 8B 53 54 B2 30 A7 31 |.I.1.S....ST.0.1|
00000D50: 30 31 30 00 86 15 FA 03 99 3A 99 20 22 46 49 4C |010......:. "FIL|
00000D60: 45 3D 3F 20 22 3B 46 49 4C 45 24 2C 22 53 54 3D |E=? ";FILE$,"ST=|
00000D70: 22 3B 53 54 2C 22 42 59 54 45 53 3D 22 3B 49 3A |";ST,"BYTES=";I:|
00000D80: A0 35 3A A0 31 35 00 8C 15 FC 03 8E 00 92 15 1A |.5:.15..........|
00000D90: 04 8F 00 9F 15 1C 04 9F 31 35 2C 38 2C 31 35 00 |........15,8,15.|
00000DA0: C3 15 1E 04 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA |.....5,8,5,"0:".|
00000DB0: 46 49 4C 45 24 AA 22 2C 22 AA 54 59 50 45 24 AA |FILE$.",".TYPE$.|
00000DC0: 22 2C 57 00 CC 15 20 04 8D 39 38 30 00 EA 15 21 |",W... ..980...!|
00000DD0: 04 99 20 22 20 20 20 20 20 4E 4F 57 20 57 52 49 |.. " NOW WRI|
00000DE0: 54 49 4E 47 20 2E 20 2E 20 2E 00 F2 15 22 04 4A |TING . . ....".J|
00000DF0: B2 31 00 06 16 24 04 98 35 2C C7 28 54 45 4D 50 |.1...$..5,.(TEMP|
00000E00: 25 28 4A 29 29 3B 00 10 16 26 04 4A B2 4A AA 31 |%(J));...&.J.J.1|
00000E10: 00 1E 16 28 04 8B 4A B3 49 A7 31 30 36 30 00 48 |...(..J.I.1060.H|
00000E20: 16 2A 04 99 3A 99 20 22 46 49 4C 45 3D 20 22 3B |.*..:. "FILE= ";|
00000E30: 46 49 4C 45 24 2C 22 42 59 54 45 53 3D 22 3B 4A |FILE$,"BYTES=";J|
00000E40: 3A A0 20 35 3A A0 31 35 00 4E 16 2C 04 8E 00 54 |:. 5:.15.N.,...T|
00000E50: 16 4C 04 8E 00 5A 16 B0 04 8F 00 91 16 B5 04 99 |.L...Z..........|
00000E60: 22 93 22 3A 99 20 22 49 4E 53 45 52 54 20 53 4F |".":. "INSERT SO|
00000E70: 55 52 43 45 20 44 49 53 43 20 57 49 54 48 20 57 |URCE DISC WITH W|
00000E80: 45 44 47 45 20 41 4E 44 2F 4F 52 20 44 4F 53 22 |EDGE AND/OR DOS"|
00000E90: 3B 00 B7 16 BA 04 99 20 22 20 50 52 4F 47 52 41 |;...... " PROGRA|
00000EA0: 4D 28 53 29 20 41 4E 44 20 50 52 45 53 53 20 3C |M(S) AND PRESS <|
00000EB0: 52 45 54 55 52 4E 3E 00 CC 16 BF 04 A1 57 24 3A |RETURN>......W$:|
00000EC0: 8B 57 24 B2 22 22 A7 89 31 32 31 35 00 D9 16 C2 |.W$.""..1215....|
00000ED0: 04 54 59 50 45 24 B2 22 50 00 00 17 C3 04 8B 20 |.TYPE$."P...... |
00000EE0: 43 30 B2 31 20 A7 46 49 4C 45 24 B2 22 56 49 43 |C0.1 .FILE$."VIC|
00000EF0: 2D 32 30 20 57 45 44 47 45 22 3A 89 31 32 33 35 |-20 WEDGE":.1235|
00000F00: 00 1D 17 C4 04 46 49 4C 45 24 B2 22 43 2D 36 34 |.....FILE$."C-64|
00000F10: 20 57 45 44 47 45 22 3A 8D 31 30 30 30 00 3E 17 | WEDGE":.1000.>.|
00000F20: C9 04 81 43 B2 31 A4 36 34 3A 44 4F 53 25 28 43 |...C.1.64:DOS%(C|
00000F30: 29 B2 54 45 4D 50 25 28 43 29 3A 82 20 43 00 51 |).TEMP%(C):. C.Q|
00000F40: 17 CE 04 46 49 4C 45 24 B2 22 44 4F 53 20 35 2E |...FILE$."DOS 5.|
00000F50: 31 00 87 17 D3 04 8D 31 30 30 30 3A 99 3A 99 22 |1......1000:.:."|
00000F60: 49 4E 53 45 52 54 20 44 45 53 54 49 4E 41 54 49 |INSERT DESTINATI|
00000F70: 4F 4E 20 44 49 53 43 20 41 4E 44 20 50 52 45 53 |ON DISC AND PRES|
00000F80: 53 20 3C 52 45 54 3E 00 9C 17 D8 04 A1 57 24 3A |S <RET>......W$:|
00000F90: 8B 57 24 B2 22 22 A7 89 31 32 34 30 00 AE 17 DD |.W$.""..1240....|
00000FA0: 04 8D 31 30 35 30 3A 8B 43 30 B2 31 A7 8E 00 CE |..1050:.C0.1....|
00000FB0: 17 E2 04 81 43 B2 31 A4 36 34 3A 54 45 4D 50 25 |....C.1.64:TEMP%|
00000FC0: 28 43 29 B2 44 4F 53 25 28 43 29 3A 82 43 00 F0 |(C).DOS%(C):.C..|
00000FD0: 17 E7 04 46 49 4C 45 24 B2 22 43 2D 36 34 20 57 |...FILE$."C-64 W|
00000FE0: 45 44 47 45 22 3A 49 B2 36 34 3A 8D 31 30 35 30 |EDGE":I.64:.1050|
00000FF0: 00 F6 17 0A 05 8E 00 00 00 00 |.......... |
....... DISK FILE MANAGER.;.... PUBLIC D
OMAIN SOFTWARE 1985._....49152,10:.B(491
52)..10.C0.1:.6.....C0.2:.DOS%(65):FR..(
0):.FR.0.FR.FR.65536:S.(FR.400).2:M2..(S
.256).1......TEMP%(S)......".";......"
******************"......" * DISC MANA
GER *"......" ******************".-.2.
.:."1.DISC DIRECTORY".F.<.."2.FORMAT NEW
DISC"._.F.."3.INITIALIZE DISC"..P.."4.
COPY FILE ON SAME DISC"...U.."5.COPY FIL
E ON NEW (FORMATTED) DISC".P.X.."6.COPY
BOTH DOS WEDGE PROGRAMS"...Z.."7.RENAME
FILE"...D.."8.ERASE FILE(S)"...N.."9.VAL
IDATE FILES".1.X.."10.WRITE DISC MANAGER
".H...."11.ERROR STATUS".B...."12.EXIT T
O BASIC":......"CHOICE ....";CHOICE.
..... (CHOICE.1).(CHOICE.12)..".";:.170.
..H..CHOICE. 250,300,350,400,800,1200,45
0,500,550,600,650,700...R..10...........
."."......1,8,0,"$"...... #1,A$,B$.(....
#1,A$,B$.7.... #1,A$,B$.O...C.0:.A$.."".
C.F(A$).I....B$.."".C.C.F(B$).256.}....J
(D(C),2);.3);......#1,B$:.ST..0.282.....
.B$..G(34).264.F....#1,B$:.B$..G(34)..B$
;:.268......#1,B$:.B$.G(32).270.......18
);:C$."".....C$.C$.B$:.#1,B$:.B$.."".274
......H(C$,3).+....ST.0.254.>...." BLOCK
S FREE.A... 1:.:.:."HIT ANY KEY TO RETUR
N.U.".. X$:.X$."".290.{.'.....,.....-.."
....1.."INSERT DISC TO BE":."FORMATTED."
:..Q.6.."INPUT DISC NAME":. DISC$...@..:
."INPUT EXTENDER NAME":.EXT$...F.MACRO$.
"N0:".DISC$.",".EXT$.(.J..15,8,15,MACRO$
.=.T. 15:MACRO$."":..C.^...L.C.. "..W.H
.."INSERT DISC TO BE":."INITIALIZED.":..
.R.."HIT <RETURN> TO":."INITIALIZE":.X$
...|..15,8,15,"I"..... 15:..B.....O....
".":.:......."INPUT SOURCE FILE NAME":.
DISC$......:."INPUT NEW FILE NAME":.NWS$
.7...MACRO$."C:".NWS$."=".DISC$.K....15,
8,15,MACRO$._... 15:MACRO$."":..E.B...P.
G..".":....L.."INPUT OLD FILE NAME":. DI
SC$...V..:."INPUT NEW FILE NAME":.NWS$.U
...MACRO$."R:".NWS$."=".DISC$......15,8,
15,MACRO$..... 15:MACRO$."":............
.".":.:..<...."INPUT FILE NAME(S) TO DEL
ETE":. DISC$.]....:.:."HIT ANY KEY TO DE
LETE".P....X$:.X$."".525.....MACRO$."S0:
".DISC$......15,8,15,MACRO$..... 15:MACR
O$."":....&...B.+..".":.:....0..".WARNIN
G.: OPEN FILES":."WILL BE DELETED...:..:
.:."HIT ANY KEY TO .VALIDATE.'.?..X$:.X$
."".575.6.D..1,8,15,"V.?.N. 1:..E.X...R.
]..".":.:..Y.B.."INSERT DISC TO BE WRITT
EN TO.":....L..:.:."HIT ANY KEY TO WRITE
DISC MANAGER...N..X$:.X$."".622.D.Q..1,
8,15...V.."@0:DISC MANAGER",8...{. 1....
..............15,8,15......15,A$,B$,C$,D
$......".":.:..N...."ERROR STATUS: "B$:
.:."ERROR NUMBER: "A$.N....:.:."HIT ANY
KEY TO RETURN"......X$:. X$."". 695.....
15:..........A..".":.:..U.F.."NOTE: DI
SC MANAGER PROGRAM .IS STILL RESIDENT...
P..... .....!.."....". 15...#.MAX..(S.25
6).C.$.." MAXIMUM SIZE OF FILE WHICH CA
N BE COPIEDIS"MAX"BLOCKS":..U.&..MAX..M2
..809...'.." FOR MAXIMUM COPY SIZE OF"M
2"BLOCKS,";...(.."TURN COMPUTER OFF/ON A
ND RELOAD PROG....)..:." READ/WRITE RAT
E IS APPROX6 BLOCKS PER MINUTE...*..:."I
NPUT NAME OF FILE TO BE COPIED...4.. FIL
E$.5.>..:." INPUT FILE TYPE.J.H.."
P PROGRAM.B.R.." S SEQUENTIAL.T.\..
" U USER...F.." R RELATIVE...P..
TYPE$.C.Z..:."INSERT SOURCE DISC AND PR
ESS<RETURN>.W....W$:.W$.""..900......100
0:......:."INSERT DESTINATION DISC AND P
RESS <RET>.&....W$:.W$.""..930.0....1050
.P....:."MAKE ANOTHER COPY";:.W$.F....H(
W$,1)."Y"..920.P.J..1100.V.T.....Y..15,A
$,B$,C$,D$...... E(A$).0........A$,B$,C$
,D$: 15:............I.1.L....15,8,15....
..5,8,5,"0:".FILE$.",".TYPE$.",R...... 9
80......" NOW READING . . .."....#5,
A$.:...TEMP%(I).F(A$.G(0)).D...I.I.1.S..
..ST.0.1010......:. "FILE=? ";FILE$,"ST=
";ST,"BYTES=";I: 5: 15..................
15,8,15.C....5,8,5,"0:".FILE$.",".TYPE$.
",W.L. ..980...!.. " NOW WRITING . .
....".J.1...$..5,G(TEMP%(J));...&.J.J.1
...(..J.I.1060.H.*..:. "FILE= ";FILE$,"B
YTES=";J: 5: 15.N.,...T.L...Z..........
".":. "INSERT SOURCE DISC WITH WEDGE AND
/OR DOS";...... " PROGRAM(S) AND PRESS <
RETURN>.L....W$:.W$.""..1215.Y.B.TYPE$."
P...C.. C0.1 .FILE$."VIC-20 WEDGE":.1235
...D.FILE$."C-64 WEDGE":.1000.>.I..C.1.6
4:DOS%(C).TEMP%(C):. C.Q.N.FILE$."DOS 5.
1...S..1000:.:."INSERT DESTINATION DISC
AND PRESS <RET>...X..W$:.W$.""..1240....
..1050:.C0.1...N....C.1.64:TEMP%(C).DOS%
(C):.C.....FILE$."C-64 WEDGE":I.64:.1050
..........
> CLICK IMAGE PREVIEW FOR FULL MODAL