DISKMANAGER
FILE INFORMATION
FILENAME(S): DISKMANAGER
FILE TYPE(S): PRG
FILE SIZE: 4.2K
FIRST SEEN: 2025-12-02 23:08:25
APPEARS ON: 1 disk(s)
FILE HASH
6ab2ed6e169cf925b40583336018eb27e00a9bd9d374e7e0e5e2e7d812d92877
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST | DISKMANAGER | PRG | swasti, misc | 11 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 03 00 97 20 35 39 31 35 32 2C 31 30 |..&.... 59152,10|
00000010: 3A 8B C2 28 34 39 31 35 32 29 B3 B1 31 30 A7 43 |:..(49152)..10.C|
00000020: 30 B2 31 3A 89 36 00 2F 08 05 00 43 30 B2 32 00 |0.1:.6./...C0.2.|
00000030: 3D 08 06 00 86 44 4F 53 25 28 36 35 29 00 5B 08 |=....DOS%(65).[.|
00000040: 07 00 46 52 B2 B8 28 30 29 3A 8B 46 52 B3 30 A7 |..FR..(0):.FR.0.|
00000050: 46 52 B2 46 52 AA 36 35 35 33 36 00 7A 08 08 00 |FR.FR.65536.z...|
00000060: 53 B2 28 46 52 AB 34 30 30 29 AD 32 3A 4D 32 B2 |S.(FR.400).2:M2.|
00000070: B5 28 53 AD 32 35 36 29 AA 31 00 89 08 09 00 86 |.(S.256).1......|
00000080: 20 54 45 4D 50 25 28 53 29 00 93 08 0A 00 99 22 | TEMP%(S)......"|
00000090: 93 22 3B 00 AF 08 0F 00 99 22 20 20 2A 2A 2A 2A |.";......" ****|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 |**************".|
000000B0: CB 08 14 00 99 22 20 20 2A 20 20 44 49 53 4B 20 |....." * DISK |
000000C0: 4D 41 4E 41 47 45 52 20 20 2A 22 00 E7 08 19 00 |MANAGER *".....|
000000D0: 99 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |." ************|
000000E0: 2A 2A 2A 2A 2A 2A 22 00 01 09 32 00 99 3A 99 22 |******"...2..:."|
000000F0: 31 2E 44 49 53 4B 20 44 49 52 45 4B 54 4F 52 59 |1.DISK DIREKTORY|
00000100: 22 00 1A 09 3C 00 99 22 32 2E 46 4F 52 4D 41 54 |"...<.."2.FORMAT|
00000110: 20 4E 45 57 20 44 49 53 4B 22 00 33 09 46 00 99 | NEW DISK".3.F..|
00000120: 22 33 2E 49 4E 49 54 49 41 4C 49 5A 45 20 44 49 |"3.INITIALIZE DI|
00000130: 53 4B 22 00 53 09 50 00 99 22 34 2E 43 4F 50 59 |SK".S.P.."4.COPY|
00000140: 20 46 49 4C 45 20 4F 4E 20 53 41 4D 45 20 44 49 | FILE ON SAME DI|
00000150: 53 4B 22 00 7E 09 55 00 99 22 35 2E 43 4F 50 59 |SK".~.U.."5.COPY|
00000160: 20 46 49 4C 45 20 4F 4E 20 4E 45 57 20 28 46 4F | FILE ON NEW (FO|
00000170: 52 4D 41 54 54 45 44 29 20 44 49 53 4B 22 00 A5 |RMATTED) DISK"..|
00000180: 09 58 00 99 22 36 2E 43 4F 50 59 20 42 4F 54 48 |.X.."6.COPY BOTH|
00000190: 20 44 4F 53 20 57 45 44 47 45 20 50 52 4F 47 52 | DOS WEDGE PROGR|
000001A0: 41 4D 4D 53 22 00 BB 09 5A 00 99 22 37 2E 52 45 |AMMS"...Z.."7.RE|
000001B0: 4E 41 4D 45 20 46 49 4C 45 53 22 00 D0 09 64 00 |NAME FILES"...d.|
000001C0: 99 22 38 2E 45 52 41 53 45 20 46 49 4C 45 53 22 |."8.ERASE FILES"|
000001D0: 00 E8 09 6E 00 99 22 39 2E 56 41 4C 49 44 41 54 |...n.."9.VALIDAT|
000001E0: 45 20 46 49 4C 45 53 22 00 05 0A 78 00 99 22 31 |E FILES"...x.."1|
000001F0: 30 2E 57 52 49 54 45 20 44 49 53 4B 20 4D 41 4E |0.WRITE DISK MAN|
00000200: 41 47 45 52 22 00 1C 0A 82 00 99 22 31 31 2E 45 |AGER"......"11.E|
00000210: 52 52 4F 52 20 53 54 41 54 55 53 22 00 36 0A 8C |RROR STATUS".6..|
00000220: 00 99 22 31 33 2E 45 58 49 54 20 54 4F 20 42 41 |.."13.EXIT TO BA|
00000230: 53 49 43 22 3A 99 00 53 0A AA 00 85 22 43 48 4F |SIC":..S...."CHO|
00000240: 49 43 45 20 20 20 20 9D 9D 9D 9D 22 3B 43 48 4F |ICE ....";CHO|
00000250: 49 43 45 00 7A 0A B4 00 8B 28 43 48 4F 49 43 45 |ICE.z....(CHOICE|
00000260: B3 31 29 B0 28 43 48 4F 49 43 45 B1 31 32 29 A7 |.1).(CHOICE.12).|
00000270: 99 22 91 22 3B 3A 89 31 37 30 00 B7 0A C8 00 91 |.".";:.170......|
00000280: 43 48 4F 49 43 45 8D 32 35 30 2C 33 30 30 2C 33 |CHOICE.250,300,3|
00000290: 35 30 2C 34 30 30 2C 38 30 30 2C 31 32 30 30 2C |50,400,800,1200,|
000002A0: 34 35 30 2C 35 30 30 2C 35 35 30 2C 36 30 30 2C |450,500,550,600,|
000002B0: 36 35 30 2C 37 30 30 00 BF 0A D2 00 89 31 30 00 |650,700......10.|
000002C0: D2 0A FA 00 8F 20 2A 2A 44 49 52 45 43 54 4F 52 |..... **DIRECTOR|
000002D0: 59 2A 00 DB 0A FB 00 99 22 93 22 00 EA 0A FC 00 |Y*......".".....|
000002E0: 9F 31 2C 38 2C 30 2C 22 24 22 00 F8 0A FD 00 A1 |.1,8,0,"$"......|
000002F0: 23 31 2C 41 24 2C 42 24 00 06 0B FE 00 A1 23 31 |#1,A$,B$......#1|
00000300: 2C 41 24 2C 42 24 00 14 0B 00 01 A1 23 31 2C 41 |,A$,B$......#1,A|
00000310: 24 2C 42 24 00 2C 0B 02 01 43 B2 30 3A 8B 41 24 |$,B$.,...C.0:.A$|
00000320: B3 B1 22 22 A7 43 B2 C6 28 41 24 29 00 46 0B 04 |.."".C..(A$).F..|
00000330: 01 8B 42 24 B3 B1 22 22 A7 43 B2 43 AA C6 28 42 |..B$.."".C.C..(B|
00000340: 24 29 AC 32 35 36 00 5A 0B 06 01 99 CA 28 C4 28 |$).256.Z.....(.(|
00000350: 43 29 2C 32 29 3B A3 33 29 3B 00 70 0B 08 01 A1 |C),2);.3);.p....|
00000360: 23 31 2C 42 24 3A 8B 53 54 B3 B1 30 A7 32 38 32 |#1,B$:.ST..0.282|
00000370: 00 83 0B 0A 01 8B 42 24 B3 B1 C7 28 33 34 29 A7 |......B$...(34).|
00000380: 32 36 34 00 A3 0B 0C 01 A1 23 31 2C 42 24 3A 8B |264......#1,B$:.|
00000390: 42 24 B3 B1 C7 28 33 34 29 A7 99 42 24 3B 3A 89 |B$...(34)..B$;:.|
000003A0: 32 36 38 00 BC 0B 0E 01 A1 23 31 2C 42 24 3A 8B |268......#1,B$:.|
000003B0: 42 24 B2 C7 28 33 32 29 A7 32 37 30 00 CD 0B 10 |B$..(32).270....|
000003C0: 01 99 A3 31 38 29 3B 3A 43 24 B2 22 22 00 ED 0B |...18);:C$.""...|
000003D0: 12 01 43 24 B2 43 24 AA 42 24 3A A1 23 31 2C 42 |..C$.C$.B$:.#1,B|
000003E0: 24 3A 8B 42 24 B3 B1 22 22 A7 32 37 34 00 FA 0B |$:.B$.."".274...|
000003F0: 14 01 99 C8 28 43 24 2C 33 29 00 08 0C 18 01 8B |....(C$,3)......|
00000400: 53 54 B2 30 A7 32 35 34 00 1D 0C 1A 01 99 22 20 |ST.0.254......" |
00000410: 42 4C 4F 43 4B 53 20 46 52 45 45 20 22 00 41 0C |BLOCKS FREE ".A.|
00000420: 1C 01 A0 31 3A 99 3A 99 3A 99 22 48 49 54 20 41 |...1:.:.:."HIT A|
00000430: 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 55 52 4E |NY KEY TO RETURN|
00000440: 22 00 54 0C 22 01 A1 58 24 3A 8B 58 24 B2 22 22 |".T."..X$:.X$.""|
00000450: A7 32 39 30 00 5A 0C 27 01 8E 00 6C 0C 2C 01 8F |.290.Z.'...l.,..|
00000460: 20 20 2A 2A 46 4F 52 4D 41 54 2A 2A 00 75 0C 2D | **FORMAT**.u.-|
00000470: 01 99 22 93 22 00 9E 0C 31 01 99 22 49 4E 53 45 |.."."...1.."INSE|
00000480: 52 54 20 44 49 53 4B 20 54 4F 20 42 45 22 3A 99 |RT DISK TO BE":.|
00000490: 22 46 4F 52 4D 41 54 54 45 44 2E 22 3A 99 00 BD |"FORMATTED.":...|
000004A0: 0C 36 01 99 22 49 4E 50 55 54 20 44 49 53 4B 20 |.6.."INPUT DISK |
000004B0: 4E 41 4D 45 22 3A 85 20 44 49 53 4B 24 00 E1 0C |NAME":. DISK$...|
000004C0: 40 01 99 3A 99 22 49 4E 50 55 54 20 45 58 54 45 |@..:."INPUT EXTE|
000004D0: 4E 44 45 52 20 4E 41 4D 45 22 3A 85 20 45 58 54 |NDER NAME":. EXT|
000004E0: 24 00 01 0D 45 01 4D 41 43 52 4F 24 B2 22 4E 30 |$...E.MACRO$."N0|
000004F0: 3A 22 AA 44 49 53 4B 24 AA 22 2C 22 AA 45 58 54 |:".DISK$.",".EXT|
00000500: 24 00 15 0D 4A 01 9F 31 35 2C 38 2C 31 35 2C 4D |$...J..15,8,15,M|
00000510: 41 43 52 4F 24 00 29 0D 54 01 A0 31 35 3A 4D 41 |ACRO$.).T..15:MA|
00000520: 43 52 4F 24 B2 22 22 3A 8E 00 3D 0D 5E 01 8F 20 |CRO$."":..=.^.. |
00000530: 49 4E 49 54 49 41 4C 49 53 49 45 52 45 00 46 0D |INITIALISIERE.F.|
00000540: 63 01 99 22 93 22 00 71 0D 68 01 99 22 49 4E 53 |c..".".q.h.."INS|
00000550: 45 52 54 20 44 49 53 4B 20 54 4F 20 42 45 22 3A |ERT DISK TO BE":|
00000560: 99 22 49 4E 49 54 49 41 4C 49 5A 45 44 2E 22 3A |."INITIALIZED.":|
00000570: 99 00 9A 0D 72 01 99 22 48 49 54 20 3C 52 45 54 |....r.."HIT <RET|
00000580: 55 52 4E 3E 20 54 4F 22 3A 99 22 49 4E 49 54 49 |URN> TO":."INITI|
00000590: 41 4C 49 5A 45 22 3A 85 58 24 00 AB 0D 7C 01 9F |ALIZE":.X$...|..|
000005A0: 31 35 2C 38 2C 31 35 2C 22 49 22 00 B5 0D 86 01 |15,8,15,"I".....|
000005B0: A0 31 35 3A 8E 00 C5 0D 90 01 8F 20 43 4F 50 59 |.15:....... COPY|
000005C0: 20 46 49 4C 45 00 D2 0D 95 01 99 22 93 22 3A 99 | FILE......".":.|
000005D0: 3A 99 00 F8 0D 9A 01 99 22 49 4E 50 55 54 20 53 |:......."INPUT S|
000005E0: 4F 55 52 43 45 20 46 49 4C 45 20 4E 41 4D 45 22 |OURCE FILE NAME"|
000005F0: 3A 85 20 44 49 53 4B 24 00 1B 0E A4 01 99 3A 99 |:. DISK$......:.|
00000600: 22 49 4E 50 55 54 20 4E 45 57 20 46 49 4C 45 20 |"INPUT NEW FILE |
00000610: 4E 41 4D 45 22 3A 85 4E 57 53 24 00 3A 0E A9 01 |NAME":.NWS$.:...|
00000620: 4D 41 43 52 4F 24 B2 22 43 3A 22 AA 4E 57 53 24 |MACRO$."C:".NWS$|
00000630: AA 22 3D 22 AA 44 49 53 4B 24 00 4E 0E AE 01 9F |."=".DISK$.N....|
00000640: 31 35 2C 38 2C 31 35 2C 4D 41 43 52 4F 24 00 62 |15,8,15,MACRO$.b|
00000650: 0E B8 01 A0 31 35 3A 4D 41 43 52 4F 24 B2 22 22 |....15:MACRO$.""|
00000660: 3A 8E 00 74 0E C2 01 8F 20 52 45 4E 41 4D 45 20 |:..t.... RENAME |
00000670: 46 49 4C 45 00 7F 0E C7 01 99 22 93 22 3A 99 00 |FILE......".":..|
00000680: A1 0E CC 01 99 22 49 4E 50 55 54 20 4F 4C 44 20 |....."INPUT OLD |
00000690: 46 49 4C 45 20 4E 41 4D 45 22 3A 85 44 49 53 4B |FILE NAME":.DISK|
000006A0: 24 00 C4 0E D6 01 99 3A 99 22 49 4E 50 55 54 20 |$......:."INPUT |
000006B0: 4E 45 57 20 46 49 4C 45 20 4E 41 4D 45 22 3A 85 |NEW FILE NAME":.|
000006C0: 4E 57 53 24 00 E3 0E DB 01 4D 41 43 52 4F 24 B2 |NWS$.....MACRO$.|
000006D0: 22 52 3A 22 AA 4E 57 53 24 AA 22 3D 22 AA 44 49 |"R:".NWS$."=".DI|
000006E0: 53 4B 24 00 F7 0E E0 01 9F 31 35 2C 38 2C 31 35 |SK$......15,8,15|
000006F0: 2C 4D 41 43 52 4F 24 00 0B 0F EA 01 A0 31 35 3A |,MACRO$......15:|
00000700: 4D 41 43 52 4F 24 B2 22 22 3A 8E 00 1D 0F F4 01 |MACRO$."":......|
00000710: 8F 20 45 52 41 53 45 20 46 49 4C 45 53 00 2A 0F |. ERASE FILES.*.|
00000720: F9 01 99 22 93 22 3A 99 3A 99 00 55 0F FE 01 99 |...".":.:..U....|
00000730: 22 49 4E 50 55 54 20 46 49 4C 45 20 4E 41 4D 45 |"INPUT FILE NAME|
00000740: 28 53 29 20 54 4F 20 44 45 4C 45 54 45 22 3A 85 |(S) TO DELETE":.|
00000750: 44 49 53 4B 24 00 76 0F 08 02 99 3A 99 3A 99 22 |DISK$.v....:.:."|
00000760: 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 44 |HIT ANY KEY TO D|
00000770: 45 4C 45 54 45 22 00 89 0F 0D 02 A1 58 24 3A 8B |ELETE"......X$:.|
00000780: 58 24 B2 22 22 A7 35 32 35 00 A0 0F 12 02 4D 41 |X$."".525.....MA|
00000790: 43 52 4F 24 B2 22 53 30 3A 22 AA 44 49 53 4B 24 |CRO$."S0:".DISK$|
000007A0: 00 B4 0F 17 02 9F 31 35 2C 38 2C 31 35 2C 4D 41 |......15,8,15,MA|
000007B0: 43 52 4F 24 00 C8 0F 1C 02 A0 31 35 3A 4D 41 43 |CRO$......15:MAC|
000007C0: 52 4F 24 B2 22 22 3A 8E 00 D7 0F 26 02 8F 20 56 |RO$."":....&.. V|
000007D0: 41 4C 49 44 41 54 45 00 05 10 30 02 99 22 57 41 |ALIDATE...0.."WA|
000007E0: 52 4E 49 4E 47 3A 20 4F 50 45 4E 20 46 49 4C 45 |RNING: OPEN FILE|
000007F0: 53 22 3A 99 22 57 49 4C 4C 20 42 45 20 44 45 4C |S":."WILL BE DEL|
00000800: 45 54 45 44 22 00 28 10 3A 02 99 3A 99 3A 99 22 |ETED".(.:..:.:."|
00000810: 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 56 |HIT ANY KEY TO V|
00000820: 41 4C 49 44 41 54 45 22 00 3B 10 3F 02 A1 58 24 |ALIDATE".;.?..X$|
00000830: 3A 8B 58 24 B2 22 22 A7 35 37 35 00 4B 10 44 02 |:.X$."".575.K.D.|
00000840: 9F 31 2C 38 2C 31 35 2C 22 56 22 00 54 10 4E 02 |.1,8,15,"V".T.N.|
00000850: A0 31 3A 8E 00 71 10 58 02 8F 20 57 52 49 54 45 |.1:..q.X.. WRITE|
00000860: 20 44 49 53 4B 4D 41 4E 41 47 45 52 20 50 52 47 | DISKMANAGER PRG|
00000870: 4D 00 7E 10 5D 02 99 22 93 22 3A 99 3A 99 00 A5 |M.~.]..".":.:...|
00000880: 10 62 02 99 22 49 4E 53 45 52 54 20 44 49 53 4B |.b.."INSERT DISK|
00000890: 20 54 4F 20 42 45 20 57 52 49 54 54 45 4E 20 54 | TO BE WRITTEN T|
000008A0: 4F 2E 22 3A 99 00 D2 10 6C 02 99 3A 99 3A 99 22 |O.":....l..:.:."|
000008B0: 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 57 |HIT ANY KEY TO W|
000008C0: 52 49 54 45 20 44 49 53 4B 20 4D 41 4E 41 47 45 |RITE DISK MANAGE|
000008D0: 52 22 00 E5 10 6E 02 A1 58 24 3A 8B 58 24 B2 22 |R"...n..X$:.X$."|
000008E0: 22 A7 36 32 32 00 F1 10 71 02 9F 31 2C 38 2C 31 |".622...q..1,8,1|
000008F0: 35 00 09 11 76 02 94 22 40 30 3A 44 49 53 4B 4D |5...v.."@0:DISKM|
00000900: 41 4E 41 47 45 52 22 2C 38 00 10 11 7B 02 A0 31 |ANAGER",8...{..1|
00000910: 00 16 11 80 02 8E 00 31 11 8A 02 8F 20 44 49 53 |.......1.... DIS|
00000920: 50 4C 41 59 20 45 52 52 4F 52 20 53 54 41 54 55 |PLAY ERROR STATU|
00000930: 53 00 3E 11 8F 02 9F 31 35 2C 38 2C 31 35 00 52 |S.>....15,8,15.R|
00000940: 11 94 02 84 31 35 2C 41 24 2C 42 24 2C 43 24 2C |....15,A$,B$,C$,|
00000950: 44 24 00 5F 11 9E 02 99 22 93 22 3A 99 3A 99 00 |D$._....".":.:..|
00000960: 8F 11 A8 02 99 22 45 52 52 4F 52 20 53 54 41 54 |....."ERROR STAT|
00000970: 55 53 3A 20 20 22 42 24 3A 99 3A 99 22 45 52 52 |US: "B$:.:."ERR|
00000980: 4F 52 20 4E 55 4D 42 45 52 3A 20 20 22 41 24 00 |OR NUMBER: "A$.|
00000990: AF 11 B2 02 99 3A 99 3A 99 22 48 49 54 20 41 4E |.....:.:."HIT AN|
000009A0: 59 20 4B 45 59 20 54 4F 52 45 54 55 52 4E 22 00 |Y KEY TORETURN".|
000009B0: C2 11 B7 02 A1 58 24 3A 8B 58 24 B2 22 22 A7 36 |.....X$:.X$."".6|
000009C0: 39 35 00 CC 11 B9 02 A0 31 35 3A 8E 00 E2 11 BC |95......15:.....|
000009D0: 02 8F 20 52 45 54 55 52 4E 20 54 4F 20 42 41 53 |.. RETURN TO BAS|
000009E0: 49 43 00 EF 11 C1 02 99 22 93 22 3A 99 3A 99 00 |IC......".":.:..|
000009F0: 21 12 C6 02 99 22 4E 4F 54 45 3A 44 49 53 4B 4D |!...."NOTE:DISKM|
00000A00: 41 4E 41 47 45 52 20 50 52 4F 47 52 41 4D 20 49 |ANAGER PROGRAM I|
00000A10: 53 20 53 54 49 4C 4C 20 52 45 53 49 44 45 4E 54 |S STILL RESIDENT|
00000A20: 22 00 27 12 D0 02 80 00 37 12 20 03 8F 20 43 4F |".'.....7. .. CO|
00000A30: 50 59 20 46 49 4C 45 00 40 12 21 03 99 22 93 22 |PY FILE.@.!.."."|
00000A40: 00 48 12 22 03 A0 31 35 00 59 12 23 03 4D 41 58 |.H."..15.Y.#.MAX|
00000A50: B2 B5 28 53 AD 32 35 36 29 00 9D 12 24 03 99 22 |..(S.256)...$.."|
00000A60: 20 20 4D 41 58 49 4D 55 4D 20 53 49 5A 45 20 4F | MAXIMUM SIZE O|
00000A70: 46 20 46 49 4C 45 20 57 48 49 43 48 20 43 41 4E |F FILE WHICH CAN|
00000A80: 20 42 45 20 43 4F 50 49 45 44 20 49 53 20 22 4D | BE COPIED IS "M|
00000A90: 41 58 22 20 42 4C 4F 43 4B 53 22 3A 99 00 AF 12 |AX" BLOCKS":....|
00000AA0: 26 03 8B 4D 41 58 B1 B2 4D 32 A7 89 38 30 39 00 |&..MAX..M2..809.|
00000AB0: DF 12 27 03 99 22 20 20 46 4F 52 20 4D 41 58 49 |..'.." FOR MAXI|
00000AC0: 4D 55 4D 20 43 4F 50 59 20 53 49 5A 45 20 4F 46 |MUM COPY SIZE OF|
00000AD0: 20 22 4D 32 22 20 42 4C 4F 43 4B 53 2C 22 3B 00 | "M2" BLOCKS,";.|
00000AE0: 0C 13 28 03 99 22 54 55 52 4E 20 43 4F 4D 50 55 |..(.."TURN COMPU|
00000AF0: 54 45 52 20 4F 46 46 2F 4F 4E 20 41 4E 44 20 52 |TER OFF/ON AND R|
00000B00: 45 4C 4F 41 44 20 50 52 4F 47 2E 22 00 42 13 29 |ELOAD PROG.".B.)|
00000B10: 03 99 54 3A 99 22 20 20 52 45 41 44 2F 57 52 49 |..T:." READ/WRI|
00000B20: 54 45 20 52 41 54 45 20 49 53 20 41 50 50 52 4F |TE RATE IS APPRO|
00000B30: 58 20 36 20 42 4C 4F 43 4B 53 2F 4D 49 4E 55 54 |X 6 BLOCKS/MINUT|
00000B40: 45 22 00 6B 13 2A 03 99 3A 99 22 49 4E 50 55 54 |E".k.*..:."INPUT|
00000B50: 20 4E 41 4D 45 20 4F 46 20 46 49 4C 45 20 54 4F | NAME OF FILE TO|
00000B60: 20 42 45 20 43 4F 50 49 45 44 22 00 76 13 34 03 | BE COPIED".v.4.|
00000B70: 85 46 49 4C 45 24 00 93 13 3E 03 99 3A 99 22 20 |.FILE$...>..:." |
00000B80: 20 20 49 4E 50 55 54 20 46 49 4C 45 20 54 59 50 | INPUT FILE TYP|
00000B90: 45 3A 22 00 A9 13 48 03 99 22 20 20 20 20 20 50 |E:"...H.." P|
00000BA0: 20 50 52 4F 47 52 41 4D 22 00 C2 13 52 03 99 22 | PROGRAM"...R.."|
00000BB0: 20 20 20 20 20 53 20 53 45 51 55 45 4E 54 49 41 | S SEQUENTIA|
00000BC0: 4C 22 00 D5 13 5C 03 99 22 20 20 20 20 20 55 20 |L"...\.." U |
00000BD0: 55 53 45 52 22 00 EC 13 66 03 99 22 20 20 20 20 |USER"...f.." |
00000BE0: 20 52 20 52 45 4C 41 54 49 56 45 22 00 F8 13 70 | R RELATIVE"...p|
00000BF0: 03 85 20 54 59 50 45 24 00 27 14 7A 03 99 3A 99 |.. TYPE$.'.z..:.|
00000C00: 22 49 4E 53 45 52 54 20 53 4F 55 52 43 45 20 44 |"INSERT SOURCE D|
00000C10: 49 53 4B 20 41 4E 44 20 50 52 45 53 53 20 3C 52 |ISK AND PRESS <R|
00000C20: 45 54 55 52 4E 3E 22 00 3B 14 84 03 A1 57 24 3A |ETURN>".;....W$:|
00000C30: 8B 57 24 B2 22 22 A7 89 39 30 30 00 46 14 8E 03 |.W$.""..900.F...|
00000C40: 8D 31 30 30 30 3A 00 77 14 98 03 99 3A 99 22 49 |.1000:.w....:."I|
00000C50: 4E 53 45 52 54 20 44 45 53 54 49 4E 41 54 49 4F |NSERT DESTINATIO|
00000C60: 4E 20 44 49 53 4B 20 41 4E 44 20 50 52 45 53 53 |N DISK AND PRESS|
00000C70: 20 3C 52 45 54 3E 22 00 8B 14 A2 03 A1 57 24 3A | <RET>"......W$:|
00000C80: 8B 57 24 B2 22 22 A7 89 39 33 30 00 96 14 AC 03 |.W$.""..930.....|
00000C90: 8D 31 30 35 30 3A 00 B6 14 B6 03 99 3A 99 22 4D |.1050:......:."M|
00000CA0: 41 4B 45 20 41 4E 4F 54 48 45 52 20 43 4F 50 59 |AKE ANOTHER COPY|
00000CB0: 22 3B 3A 85 57 24 00 CC 14 C0 03 8B C8 28 57 24 |";:.W$.......(W$|
00000CC0: 2C 31 29 B2 22 59 22 A7 89 39 32 30 00 D6 14 CA |,1)."Y"..920....|
00000CD0: 03 89 31 31 30 30 00 F0 14 D4 03 8F 20 43 48 45 |..1100...... CHE|
00000CE0: 43 4B 20 46 4F 52 20 47 4F 4F 44 20 4F 50 45 4E |CK FOR GOOD OPEN|
00000CF0: 00 04 15 D9 03 84 31 35 2C 41 24 2C 42 24 2C 43 |......15,A$,B$,C|
00000D00: 24 2C 44 24 00 13 15 DE 03 8B C5 28 41 24 29 B2 |$,D$.......(A$).|
00000D10: 30 A7 8E 00 2A 15 E3 03 99 41 24 2C 42 24 2C 43 |0...*....A$,B$,C|
00000D20: 24 2C 44 24 3A A0 31 35 3A 90 00 3B 15 E8 03 8F |$,D$:.15:..;....|
00000D30: 20 20 20 45 41 44 20 46 49 4C 45 00 43 15 EA 03 | EAD FILE.C...|
00000D40: 49 B2 31 00 50 15 EC 03 9F 31 35 2C 38 2C 31 35 |I.1.P....15,8,15|
00000D50: 00 75 15 EE 03 9F 35 2C 38 2C 35 2C 22 30 3A 22 |.u....5,8,5,"0:"|
00000D60: AA 46 49 4C 45 24 AA 22 2C 22 AA 54 59 50 45 24 |.FILE$.",".TYPE$|
00000D70: AA 22 2C 52 22 00 7E 15 F0 03 8D 39 38 30 00 9B |.",R".~....980..|
00000D80: 15 F1 03 99 22 20 20 20 20 20 4E 4F 57 20 52 45 |...." NOW RE|
00000D90: 41 44 49 4E 47 2E 20 2E 20 2E 22 00 A6 15 F2 03 |ADING. . .".....|
00000DA0: A1 23 35 2C 41 24 00 BE 15 F4 03 54 45 4D 50 25 |.#5,A$.....TEMP%|
00000DB0: 28 49 29 B2 C6 28 41 24 AA C7 28 30 29 29 00 C8 |(I)..(A$..(0))..|
00000DC0: 15 F6 03 49 B2 49 AA 31 00 D7 15 F8 03 8B 53 54 |...I.I.1......ST|
00000DD0: B2 30 A7 31 30 31 30 00 0B 16 FA 03 99 3A 99 20 |.0.1010......:. |
00000DE0: 22 46 49 4C 45 3D 3F 20 22 3B 46 49 4C 45 24 2C |"FILE=? ";FILE$,|
00000DF0: 22 53 54 3D 22 3B 53 54 2C 20 22 42 59 54 45 53 |"ST=";ST, "BYTES|
00000E00: 3D 22 3B 49 3A A0 35 3A A0 31 35 00 11 16 FC 03 |=";I:.5:.15.....|
00000E10: 8E 00 22 16 1A 04 8F 20 57 52 49 54 45 20 46 49 |..".... WRITE FI|
00000E20: 4C 45 00 2F 16 1C 04 9F 31 35 2C 38 2C 31 35 00 |LE./....15,8,15.|
00000E30: 54 16 1E 04 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA |T....5,8,5,"0:".|
00000E40: 46 49 4C 45 24 AA 22 2C 22 AA 54 59 50 45 24 AA |FILE$.",".TYPE$.|
00000E50: 22 2C 57 22 00 5D 16 20 04 8D 39 38 30 00 7C 16 |",W".]. ..980.|.|
00000E60: 21 04 99 22 20 20 20 20 20 4E 4F 57 20 57 52 49 |!.." NOW WRI|
00000E70: 54 49 4E 47 20 2E 20 20 2E 20 2E 22 00 84 16 22 |TING . . ."..."|
00000E80: 04 4A B2 31 00 98 16 24 04 98 35 2C C7 28 54 45 |.J.1...$..5,.(TE|
00000E90: 4D 50 25 28 4A 29 29 3B 00 A2 16 26 04 4A B2 4A |MP%(J));...&.J.J|
00000EA0: AA 31 00 B0 16 28 04 8B 4A B3 49 A7 31 30 36 30 |.1...(..J.I.1060|
00000EB0: 00 D8 16 2A 04 99 3A 99 20 22 46 49 4C 45 3D 22 |...*..:. "FILE="|
00000EC0: 3B 46 49 4C 45 24 2C 22 42 59 54 45 53 3D 22 3B |;FILE$,"BYTES=";|
00000ED0: 4A 3A A0 35 3A A0 31 35 00 DE 16 2C 04 8E 00 E4 |J:.5:.15...,....|
00000EE0: 16 4C 04 8E 00 FC 16 B0 04 8F 20 43 4F 50 59 20 |.L........ COPY |
00000EF0: 42 4F 54 48 20 44 4F 53 20 50 52 47 00 32 17 B5 |BOTH DOS PRG.2..|
00000F00: 04 99 22 93 22 3A 99 22 49 4E 53 45 52 54 20 53 |..".":."INSERT S|
00000F10: 4F 55 52 43 45 20 44 49 53 4B 20 57 49 54 48 20 |OURCE DISK WITH |
00000F20: 57 45 44 47 45 20 41 4E 44 2F 4F 52 20 44 4F 53 |WEDGE AND/OR DOS|
00000F30: 22 3B 00 59 17 BA 04 99 20 22 20 50 52 4F 47 52 |";.Y.... " PROGR|
00000F40: 41 4D 28 53 29 20 41 4E 44 20 50 52 45 53 53 20 |AM(S) AND PRESS |
00000F50: 3C 52 45 54 55 52 4E 3E 22 00 6E 17 BF 04 A1 57 |<RETURN>".n....W|
00000F60: 24 3A 8B 57 24 B2 22 22 A7 89 31 32 31 35 00 7C |$:.W$.""..1215.||
00000F70: 17 C2 04 54 59 50 45 24 B2 22 50 22 00 A1 17 C3 |...TYPE$."P"....|
00000F80: 04 8B 43 30 B2 31 A7 46 49 4C 45 24 B2 22 56 49 |..C0.1.FILE$."VI|
00000F90: 43 2D 32 30 20 57 45 44 47 45 22 3A 89 31 32 33 |C-20 WEDGE":.123|
00000FA0: 35 00 BE 17 C4 04 46 49 4C 45 24 B2 22 43 2D 36 |5.....FILE$."C-6|
00000FB0: 34 20 57 45 44 47 45 22 3A 8D 31 30 30 30 00 01 |4 WEDGE":.1000..|
00000FC0: 18 C9 04 81 43 B2 31 A4 36 34 3A 44 4F 53 25 28 |....C.1.64:DOS%(|
00000FD0: 43 29 B2 54 45 4D 50 25 28 43 29 3A 82 20 43 3A |C).TEMP%(C):. C:|
00000FE0: 8F 20 4D 4F 56 45 20 43 2D 36 34 20 57 45 44 47 |. MOVE C-64 WEDG|
00000FF0: 45 20 54 4F 20 53 4D 41 4C 4C 20 42 55 46 46 45 |E TO SMALL BUFFE|
00001000: 52 00 15 18 CE 04 46 49 4C 45 24 B2 22 44 4F 53 |R.....FILE$."DOS|
00001010: 20 35 2E 31 22 00 4C 18 D3 04 8D 31 30 30 30 3A | 5.1".L....1000:|
00001020: 99 3A 99 22 49 4E 53 45 52 54 20 44 45 53 54 49 |.:."INSERT DESTI|
00001030: 4E 41 54 49 4F 4E 20 44 49 53 4B 20 41 4E 44 20 |NATION DISK AND |
00001040: 50 52 45 53 53 20 3C 52 45 54 3E 22 00 61 18 D8 |PRESS <RET>".a..|
00001050: 04 A1 57 24 3A 8B 57 24 B2 22 22 A7 89 31 32 34 |..W$:.W$.""..124|
00001060: 30 00 73 18 DD 04 8D 31 30 35 30 3A 8B 43 30 B2 |0.s....1050:.C0.|
00001070: 31 A7 8E 00 94 18 E2 04 81 43 B2 31 A4 36 34 3A |1........C.1.64:|
00001080: 54 45 4D 50 25 28 43 29 B2 44 4F 53 25 28 43 29 |TEMP%(C).DOS%(C)|
00001090: 3A 82 20 43 00 C9 18 E7 04 46 49 4C 45 24 B2 22 |:. C.....FILE$."|
000010A0: 43 2D 36 34 20 57 45 44 47 45 22 3A 49 B2 36 34 |C-64 WEDGE":I.64|
000010B0: 3A 8D 31 30 35 30 3A 8F 20 57 52 49 54 45 20 43 |:.1050:. WRITE C|
000010C0: 2D 36 34 20 57 45 44 47 45 00 CF 18 0A 05 8E 00 |-64 WEDGE.......|
000010D0: 00 00 00 FF 00 9C |...... |
..&.... 59152,10:.B(49152)..10.C0.1:.6./
...C0.2.=....DOS%(65).[...FR..(0):.FR.0.
FR.FR.65536.Z...S.(FR.400).2:M2..(S.256)
.1...... TEMP%(S)......".";......" ****
**************".K...." * DISK MANAGER
*"......" ******************"...2..:."
1.DISK DIREKTORY"...<.."2.FORMAT NEW DIS
K".3.F.."3.INITIALIZE DISK".S.P.."4.COPY
FILE ON SAME DISK".~.U.."5.COPY FILE ON
NEW (FORMATTED) DISK"...X.."6.COPY BOTH
DOS WEDGE PROGRAMMS"...Z.."7.RENAME FIL
ES".P.D.."8.ERASE FILES"...N.."9.VALIDAT
E FILES"...X.."10.WRITE DISK MANAGER"...
..."11.ERROR STATUS".6...."13.EXIT TO BA
SIC":..S...."CHOICE ....";CHOICE.Z...
.(CHOICE.1).(CHOICE.12)..".";:.170...H..
CHOICE.250,300,350,400,800,1200,450,500,
550,600,650,700...R..10.R.... **DIRECTOR
Y*......"."......1,8,0,"$"......#1,A$,B$
......#1,A$,B$......#1,A$,B$.,...C.0:.A$
.."".C.F(A$).F....B$.."".C.C.F(B$).256.Z
....J(D(C),2);.3);.P....#1,B$:.ST..0.282
......B$..G(34).264......#1,B$:.B$..G(34
)..B$;:.268......#1,B$:.B$.G(32).270.M..
...18);:C$."".....C$.C$.B$:.#1,B$:.B$.."
".274......H(C$,3)......ST.0.254......"
BLOCKS FREE ".A... 1:.:.:."HIT ANY KEY T
O RETURN".T."..X$:.X$."".290.Z.'...L.,..
**FORMAT**.U.-.."."...1.."INSERT DISK
TO BE":."FORMATTED.":....6.."INPUT DISK
NAME":. DISK$...@..:."INPUT EXTENDER NAM
E":. EXT$...E.MACRO$."N0:".DISK$.",".EXT
$...J..15,8,15,MACRO$.).T. 15:MACRO$."":
..=.^.. INITIALISIERE.F.C..".".Q.H.."INS
ERT DISK TO BE":."INITIALIZED.":....R.."
HIT <RETURN> TO":."INITIALIZE":.X$...|..
15,8,15,"I"..... 15:..E.... COPY FILE.R.
...".":.:......."INPUT SOURCE FILE NAME"
:. DISK$......:."INPUT NEW FILE NAME":.N
WS$.:...MACRO$."C:".NWS$."=".DISK$.N....
15,8,15,MACRO$.B... 15:MACRO$."":..T.B..
RENAME FILE..G..".":....L.."INPUT OLD
FILE NAME":.DISK$.D.V..:."INPUT NEW FILE
NAME":.NWS$.....MACRO$."R:".NWS$."=".DI
SK$......15,8,15,MACRO$..... 15:MACRO$."
":....... ERASE FILES.*....".":.:..U....
"INPUT FILE NAME(S) TO DELETE":.DISK$.V.
...:.:."HIT ANY KEY TO DELETE"......X$:.
X$."".525. ...MACRO$."S0:".DISK$......15
,8,15,MACRO$.H... 15:MACRO$."":..W.&.. V
ALIDATE...0.."WARNING: OPEN FILES":."WIL
L BE DELETED".(.:..:.:."HIT ANY KEY TO V
ALIDATE".;.?..X$:.X$."".575.K.D..1,8,15,
"V".T.N. 1:..Q.X.. WRITE DISKMANAGER PRG
M.~.]..".":.:....B.."INSERT DISK TO BE W
RITTEN TO.":..R.L..:.:."HIT ANY KEY TO W
RITE DISK MANAGER"...N..X$:.X$."".622...
Q..1,8,15...V.."@0:DISKMANAGER",8...{. 1
.......1.... DISPLAY ERROR STATUS.>....1
5,8,15.R....15,A$,B$,C$,D$._....".":.:..
....."ERROR STATUS: "B$:.:."ERROR NUMBE
R: "A$......:.:."HIT ANY KEY TORETURN".
B....X$:.X$."".695.L... 15:....... RETUR
N TO BASIC...A..".":.:..!.F.."NOTE:DISKM
ANAGER PROGRAM IS STILL RESIDENT".'.P...
7. .. COPY FILE.@.!..".".H.". 15.Y.#.MAX
..(S.256)...$.." MAXIMUM SIZE OF FILE W
HICH CAN BE COPIED IS "MAX" BLOCKS":....
&..MAX..M2..809...'.." FOR MAXIMUM COPY
SIZE OF "M2" BLOCKS,";...(.."TURN COMPU
TER OFF/ON AND RELOAD PROG.".B.)..T:."
READ/WRITE RATE IS APPROX 6 BLOCKS/MINUT
E".K.*..:."INPUT NAME OF FILE TO BE COPI
ED".V.4..FILE$...>..:." INPUT FILE TYP
E:"...H.." P PROGRAM".B.R.." S S
EQUENTIAL".U.\.." U USER"...F.."
R RELATIVE"...P.. TYPE$.'.Z..:."INSERT
SOURCE DISK AND PRESS <RETURN>".;....W$:
.W$.""..900.F....1000:.W....:."INSERT DE
STINATION DISK AND PRESS <RET>"......W$:
.W$.""..930......1050:......:."MAKE ANOT
HER COPY";:.W$.L....H(W$,1)."Y"..920.V.J
..1100...T.. CHECK FOR GOOD OPEN...Y..15
,A$,B$,C$,D$......E(A$).0...*....A$,B$,C
$,D$: 15:..;.... EAD FILE.C...I.1.P...
.15,8,15.U....5,8,5,"0:".FILE$.",".TYPE$
.",R".~....980......" NOW READING. .
."......#5,A$.....TEMP%(I).F(A$.G(0)).H
...I.I.1.W....ST.0.1010......:. "FILE=?
";FILE$,"ST=";ST, "BYTES=";I: 5: 15.....
..".... WRITE FILE./....15,8,15.T....5,8
,5,"0:".FILE$.",".TYPE$.",W".]. ..980.|.
!.." NOW WRITING . . ."...".J.1...$
..5,G(TEMP%(J));...&.J.J.1...(..J.I.1060
.X.*..:. "FILE=";FILE$,"BYTES=";J: 5: 15
...,.....L........ COPY BOTH DOS PRG.2..
..".":."INSERT SOURCE DISK WITH WEDGE AN
D/OR DOS";.Y.... " PROGRAM(S) AND PRESS
<RETURN>".N....W$:.W$.""..1215.|.B.TYPE$
."P"...C..C0.1.FILE$."VIC-20 WEDGE":.123
5...D.FILE$."C-64 WEDGE":.1000...I..C.1.
64:DOS%(C).TEMP%(C):. C:. MOVE C-64 WEDG
E TO SMALL BUFFER...N.FILE$."DOS 5.1".L.
S..1000:.:."INSERT DESTINATION DISK AND
PRESS <RET>".A.X..W$:.W$.""..1240.S....1
050:.C0.1........C.1.64:TEMP%(C).DOS%(C)
:. C.I...FILE$."C-64 WEDGE":I.64:.1050:.
WRITE C-64 WEDGE.O...........
> CLICK IMAGE PREVIEW FOR FULL MODAL