DISKMANAGER
FILE INFORMATION
FILENAME(S): DISKMANAGER
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-11-30 17:23:58
APPEARS ON: 1 disk(s)
FILE HASH
ae1799d55500dcd9b3989fcb55be59e592e8e58261962360e7d5e059263c4f45
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ULTILITIES | DISKMANAGER | PRG | Quetzal & Style | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 01 00 8F 20 20 2A 2A 2A 20 44 49 53 |.. .... *** DIS|
00000010: 4B 20 4D 41 4E 41 47 45 52 20 36 34 20 2A 2A 2A |K MANAGER 64 ***|
00000020: 00 47 08 03 00 97 34 39 31 35 32 2C 31 30 3A 8B |.G....49152,10:.|
00000030: 20 C2 28 34 39 31 35 32 29 B3 B1 31 30 20 A7 20 | .(49152)..10 . |
00000040: 43 30 B2 31 3A 89 36 00 50 08 05 00 43 30 B2 32 |C0.1:.6.P...C0.2|
00000050: 00 5F 08 06 00 86 20 44 4F 53 25 28 36 35 29 00 |._.... DOS%(65).|
00000060: 80 08 07 00 46 52 B2 B8 28 30 29 3A 8B 20 46 52 |....FR..(0):. FR|
00000070: B3 30 20 A7 20 46 52 B2 46 52 AA 36 35 35 33 36 |.0 . FR.FR.65536|
00000080: 00 9F 08 08 00 53 B2 28 46 52 AB 34 30 30 29 AD |.....S.(FR.400).|
00000090: 32 3A 4D 32 B2 B5 28 53 AD 32 35 36 29 AA 31 00 |2:M2..(S.256).1.|
000000A0: AE 08 09 00 86 20 54 45 4D 50 25 28 53 29 00 B9 |..... TEMP%(S)..|
000000B0: 08 0A 00 99 22 93 1C 22 3B 00 D1 08 0C 00 97 35 |...."..";......5|
000000C0: 33 32 38 30 2C 31 35 3A 97 35 33 32 38 31 2C 31 |3280,15:.53281,1|
000000D0: 35 00 E5 08 0D 00 99 3A 99 3A 99 3A 99 3A 99 3A |5......:.:.:.:.:|
000000E0: 99 3A 99 3A 99 00 09 09 0F 00 99 22 20 20 20 20 |.:.:......." |
000000F0: 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **********|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 22 00 2D 09 14 00 99 22 |********".-...."|
00000110: 20 20 20 20 20 20 20 20 20 20 2A 20 20 44 49 53 | * DIS|
00000120: 4B 20 4D 41 4E 41 47 45 52 20 20 2A 22 00 51 09 |K MANAGER *".Q.|
00000130: 19 00 99 22 20 20 20 20 20 20 20 20 20 20 2A 2A |..." **|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000150: 22 00 7F 09 1E 00 99 22 11 11 11 11 11 1D 1D 1D |"......"........|
00000160: 1D 1D 1D 1D 12 20 50 52 45 53 53 20 41 4E 59 20 |..... PRESS ANY |
00000170: 4B 45 59 20 46 4F 52 20 4D 45 4E 55 20 92 22 00 |KEY FOR MENU .".|
00000180: 91 09 1F 00 A1 50 24 3A 8B 50 24 B2 22 22 A7 33 |.....P$:.P$."".3|
00000190: 31 00 9A 09 28 00 99 22 93 22 00 CD 09 32 00 99 |1...(.."."...2..|
000001A0: 3A 99 22 20 11 31 2E 20 12 20 44 49 53 4B 20 44 |:." .1. . DISK D|
000001B0: 49 52 45 43 54 4F 52 59 20 20 20 20 20 20 20 20 |IRECTORY |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 FE 09 | "...|
000001D0: 3C 00 99 22 11 20 32 2E 20 12 20 46 4F 52 4D 41 |<..". 2. . FORMA|
000001E0: 54 20 4E 45 57 20 44 49 53 4B 20 20 20 20 20 20 |T NEW DISK |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 2F | "./|
00000200: 0A 46 00 99 22 11 20 33 2E 20 12 20 49 4E 49 54 |.F..". 3. . INIT|
00000210: 49 41 4C 49 5A 45 20 44 49 53 4B 20 20 20 20 20 |IALIZE DISK |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000230: 60 0A 50 00 99 22 11 20 34 2E 20 12 20 43 4F 50 |`.P..". 4. . COP|
00000240: 59 20 46 49 4C 45 20 4F 4E 20 53 41 4D 45 20 44 |Y FILE ON SAME D|
00000250: 49 53 4B 20 20 20 20 20 20 20 20 20 20 20 20 22 |ISK "|
00000260: 00 91 0A 55 00 99 22 11 20 35 2E 20 12 20 43 4F |...U..". 5. . CO|
00000270: 50 59 20 46 49 4C 45 20 4F 4E 20 4E 45 57 20 28 |PY FILE ON NEW (|
00000280: 46 4F 52 4D 41 54 54 45 44 29 20 44 49 53 4B 20 |FORMATTED) DISK |
00000290: 22 00 C2 0A 58 00 99 22 11 20 36 2E 20 12 20 43 |"...X..". 6. . C|
000002A0: 4F 50 59 20 42 4F 54 48 20 44 4F 53 20 57 45 44 |OPY BOTH DOS WED|
000002B0: 47 45 20 50 52 4F 47 52 41 4D 53 20 20 20 20 20 |GE PROGRAMS |
000002C0: 20 22 00 F3 0A 5A 00 99 22 11 20 37 2E 20 12 20 | "...Z..". 7. . |
000002D0: 52 45 4E 41 4D 45 20 46 49 4C 45 20 20 20 20 20 |RENAME FILE |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002F0: 20 20 22 00 24 0B 64 00 99 22 20 11 38 2E 20 12 | ".$.d.." .8. .|
00000300: 20 45 52 41 53 45 20 46 49 4C 45 28 53 29 20 20 | ERASE FILE(S) |
00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000320: 20 20 20 22 00 55 0B 6E 00 99 22 20 11 39 2E 20 | ".U.n.." .9. |
00000330: 12 20 56 41 4C 49 44 41 54 45 20 46 49 4C 45 53 |. VALIDATE FILES|
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000350: 20 20 20 20 22 00 86 0B 78 00 99 22 11 31 30 2E | "...x..".10.|
00000360: 20 12 20 57 52 49 54 45 20 44 49 53 4B 20 4D 41 | . WRITE DISK MA|
00000370: 4E 41 47 45 52 20 20 20 20 20 20 20 20 20 20 20 |NAGER |
00000380: 20 20 20 20 20 22 00 B7 0B 82 00 99 22 11 31 31 | "......".11|
00000390: 2E 20 12 20 45 52 52 4F 52 20 53 54 41 54 55 53 |. . ERROR STATUS|
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 20 20 20 22 00 EA 0B 8C 00 99 22 11 31 | "......".1|
000003C0: 32 2E 20 12 20 45 58 49 54 20 54 4F 20 42 41 53 |2. . EXIT TO BAS|
000003D0: 49 43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |IC |
000003E0: 20 20 20 20 20 20 20 22 3A 99 00 07 0C AA 00 85 | ":.......|
000003F0: 22 43 48 4F 49 43 45 20 20 20 20 9D 9D 9D 9D 22 |"CHOICE ...."|
00000400: 3B 43 48 4F 49 43 45 00 2F 0C B4 00 8B 28 43 48 |;CHOICE./....(CH|
00000410: 4F 49 43 45 B3 31 29 B0 28 43 48 4F 49 43 45 B1 |OICE.1).(CHOICE.|
00000420: 31 32 29 A7 20 99 22 91 22 3B 3A 89 31 37 30 00 |12). .".";:.170.|
00000430: 6F 0C C8 00 91 20 43 48 4F 49 43 45 20 8D 20 32 |o.... CHOICE . 2|
00000440: 35 30 2C 33 30 30 2C 33 35 30 2C 34 30 30 2C 38 |50,300,350,400,8|
00000450: 30 30 2C 31 32 30 30 2C 34 35 30 2C 35 30 30 2C |00,1200,450,500,|
00000460: 35 35 30 2C 36 30 30 2C 36 35 30 2C 37 30 30 00 |550,600,650,700.|
00000470: 77 0C D2 00 89 31 30 00 97 0C FA 00 8F 20 2A 2A |w....10...... **|
00000480: 2A 20 44 49 53 50 4C 41 59 20 44 49 52 45 43 54 |* DISPLAY DIRECT|
00000490: 4F 52 59 20 2A 2A 2A 00 A0 0C FB 00 99 22 93 22 |ORY ***......"."|
000004A0: 00 B0 0C FC 00 9F 20 31 2C 38 2C 30 2C 22 24 22 |...... 1,8,0,"$"|
000004B0: 00 BF 0C FD 00 A1 20 23 31 2C 41 24 2C 42 24 00 |...... #1,A$,B$.|
000004C0: CE 0C FE 00 A1 20 23 31 2C 41 24 2C 42 24 00 DD |..... #1,A$,B$..|
000004D0: 0C 00 01 A1 20 23 31 2C 41 24 2C 42 24 00 F6 0C |.... #1,A$,B$...|
000004E0: 02 01 43 B2 30 3A 8B 41 24 B3 B1 22 22 A7 20 43 |..C.0:.A$.."". C|
000004F0: B2 C6 28 41 24 29 00 12 0D 04 01 8B 20 42 24 B3 |..(A$)...... B$.|
00000500: B1 22 22 A7 20 43 B2 43 AA C6 28 42 24 29 AC 32 |."". C.C..(B$).2|
00000510: 35 36 00 26 0D 06 01 99 CA 28 C4 28 43 29 2C 32 |56.&.....(.(C),2|
00000520: 29 3B A3 33 29 3B 00 3E 0D 08 01 A1 23 31 2C 42 |);.3);.>....#1,B|
00000530: 24 3A 8B 20 53 54 B3 B1 30 20 A7 32 38 32 00 54 |$:. ST..0 .282.T|
00000540: 0D 0A 01 8B 20 42 24 B3 B1 20 C7 28 33 34 29 20 |.... B$.. .(34) |
00000550: A7 32 36 34 00 79 0D 0C 01 A1 20 23 31 2C 42 24 |.264.y.... #1,B$|
00000560: 3A 8B 20 42 24 B3 B1 20 C7 28 33 34 29 20 A7 20 |:. B$.. .(34) . |
00000570: 99 42 24 3B 3A 89 32 36 38 00 97 0D 0E 01 A1 20 |.B$;:.268...... |
00000580: 23 31 2C 42 24 3A 8B 20 42 24 B2 20 C7 28 33 32 |#1,B$:. B$. .(32|
00000590: 29 20 A7 20 32 37 30 00 A8 0D 10 01 99 A3 31 38 |) . 270.......18|
000005A0: 29 3B 3A 43 24 B2 22 22 00 CB 0D 12 01 43 24 B2 |);:C$."".....C$.|
000005B0: 43 24 AA 42 24 3A A1 20 23 31 2C 42 24 3A 8B 20 |C$.B$:. #1,B$:. |
000005C0: 42 24 B3 B1 22 22 20 A7 32 37 34 00 D8 0D 14 01 |B$.."" .274.....|
000005D0: 99 C8 28 43 24 2C 33 29 00 E9 0D 18 01 8B 20 53 |..(C$,3)...... S|
000005E0: 54 B2 30 20 A7 20 32 35 34 00 00 0E 1A 01 99 22 |T.0 . 254......"|
000005F0: 1D 12 20 42 4C 4F 43 4B 53 20 46 52 45 45 20 22 |.. BLOCKS FREE "|
00000600: 00 28 0E 1C 01 A0 20 31 3A 99 3A 99 3A 99 22 12 |.(.... 1:.:.:.".|
00000610: 20 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 | HIT ANY KEY TO |
00000620: 52 45 54 55 52 4E 20 22 00 3B 0E 22 01 A1 58 24 |RETURN ".;."..X$|
00000630: 3A 8B 58 24 B2 22 22 A7 32 39 30 00 41 0E 27 01 |:.X$."".290.A.'.|
00000640: 8E 00 61 0E 2C 01 8F 20 2A 2A 2A 20 46 4F 52 4D |..a.,.. *** FORM|
00000650: 41 54 20 28 4E 45 57 29 20 44 49 53 4B 20 2A 2A |AT (NEW) DISK **|
00000660: 2A 00 6A 0E 2D 01 99 22 93 22 00 93 0E 31 01 99 |*.j.-.."."...1..|
00000670: 22 49 4E 53 45 52 54 20 44 49 53 4B 20 54 4F 20 |"INSERT DISK TO |
00000680: 42 45 22 3A 99 22 46 4F 52 4D 41 54 54 45 44 2E |BE":."FORMATTED.|
00000690: 22 3A 99 00 B2 0E 36 01 99 22 49 4E 50 55 54 20 |":....6.."INPUT |
000006A0: 44 49 53 4B 20 4E 41 4D 45 22 3A 85 20 44 49 53 |DISK NAME":. DIS|
000006B0: 4B 24 00 D6 0E 40 01 99 3A 99 22 49 4E 50 55 54 |K$...@..:."INPUT|
000006C0: 20 45 58 54 45 4E 44 45 52 20 4E 41 4D 45 22 3A | EXTENDER NAME":|
000006D0: 85 20 45 58 54 24 00 F6 0E 45 01 4D 41 43 52 4F |. EXT$...E.MACRO|
000006E0: 24 B2 22 4E 30 3A 22 AA 44 49 53 4B 24 AA 22 2C |$."N0:".DISK$.",|
000006F0: 22 AA 45 58 54 24 00 0A 0F 4A 01 9F 31 35 2C 38 |".EXT$...J..15,8|
00000700: 2C 31 35 2C 4D 41 43 52 4F 24 00 1F 0F 54 01 A0 |,15,MACRO$...T..|
00000710: 20 31 35 3A 4D 41 43 52 4F 24 B2 22 22 3A 8E 00 | 15:MACRO$."":..|
00000720: 3D 0F 5E 01 8F 20 2A 2A 2A 20 49 4E 49 54 49 41 |=.^.. *** INITIA|
00000730: 4C 49 5A 45 20 44 49 53 4B 20 2A 2A 2A 00 46 0F |LIZE DISK ***.F.|
00000740: 63 01 99 22 93 22 00 71 0F 68 01 99 22 49 4E 53 |c..".".q.h.."INS|
00000750: 45 52 54 20 44 49 53 4B 20 54 4F 20 42 45 22 3A |ERT DISK TO BE":|
00000760: 99 22 49 4E 49 54 49 41 4C 49 5A 45 44 2E 22 3A |."INITIALIZED.":|
00000770: 99 00 9B 0F 72 01 99 22 48 49 54 20 3C 52 45 54 |....r.."HIT <RET|
00000780: 55 52 4E 3E 20 54 4F 22 3A 99 22 49 4E 49 54 49 |URN> TO":."INITI|
00000790: 41 4C 49 5A 45 22 3A 85 20 58 24 00 AD 0F 7C 01 |ALIZE":. X$...|.|
000007A0: 9F 20 31 35 2C 38 2C 31 35 2C 22 49 22 00 B8 0F |. 15,8,15,"I"...|
000007B0: 86 01 A0 20 31 35 3A 8E 00 DD 0F 90 01 8F 20 2A |... 15:....... *|
000007C0: 2A 2A 20 43 4F 50 59 20 46 49 4C 45 20 4F 4E 20 |** COPY FILE ON |
000007D0: 53 41 4D 45 20 44 49 53 4B 20 2A 2A 2A 00 EA 0F |SAME DISK ***...|
000007E0: 95 01 99 22 93 22 3A 99 3A 99 00 10 10 9A 01 99 |...".":.:.......|
000007F0: 22 49 4E 50 55 54 20 53 4F 55 52 43 45 20 46 49 |"INPUT SOURCE FI|
00000800: 4C 45 20 4E 41 4D 45 22 3A 85 20 44 49 53 4B 24 |LE NAME":. DISK$|
00000810: 00 34 10 A4 01 99 3A 99 22 49 4E 50 55 54 20 4E |.4....:."INPUT N|
00000820: 45 57 20 46 49 4C 45 20 4E 41 4D 45 22 3A 85 20 |EW FILE NAME":. |
00000830: 4E 57 53 24 00 53 10 A9 01 4D 41 43 52 4F 24 B2 |NWS$.S...MACRO$.|
00000840: 22 43 3A 22 AA 4E 57 53 24 AA 22 3D 22 AA 44 49 |"C:".NWS$."=".DI|
00000850: 53 4B 24 00 68 10 AE 01 9F 20 31 35 2C 38 2C 31 |SK$.h.... 15,8,1|
00000860: 35 2C 4D 41 43 52 4F 24 00 7D 10 B8 01 A0 20 31 |5,MACRO$.}.... 1|
00000870: 35 3A 4D 41 43 52 4F 24 B2 22 22 3A 8E 00 97 10 |5:MACRO$."":....|
00000880: C2 01 8F 20 2A 2A 2A 20 52 45 4E 41 4D 45 20 46 |... *** RENAME F|
00000890: 49 4C 45 20 2A 2A 2A 00 A2 10 C7 01 99 22 93 22 |ILE ***......"."|
000008A0: 3A 99 00 C5 10 CC 01 99 22 49 4E 50 55 54 20 4F |:......."INPUT O|
000008B0: 4C 44 20 46 49 4C 45 20 4E 41 4D 45 22 3A 85 20 |LD FILE NAME":. |
000008C0: 44 49 53 4B 24 00 E9 10 D6 01 99 3A 99 22 49 4E |DISK$......:."IN|
000008D0: 50 55 54 20 4E 45 57 20 46 49 4C 45 20 4E 41 4D |PUT NEW FILE NAM|
000008E0: 45 22 3A 85 20 4E 57 53 24 00 08 11 DB 01 4D 41 |E":. NWS$.....MA|
000008F0: 43 52 4F 24 B2 22 52 3A 22 AA 4E 57 53 24 AA 22 |CRO$."R:".NWS$."|
00000900: 3D 22 AA 44 49 53 4B 24 00 1D 11 E0 01 9F 20 31 |=".DISK$...... 1|
00000910: 35 2C 38 2C 31 35 2C 4D 41 43 52 4F 24 00 32 11 |5,8,15,MACRO$.2.|
00000920: EA 01 A0 20 31 35 3A 4D 41 43 52 4F 24 B2 22 22 |... 15:MACRO$.""|
00000930: 3A 8E 00 4B 11 F4 01 8F 20 2A 2A 2A 20 45 52 41 |:..K.... *** ERA|
00000940: 53 45 20 46 49 4C 45 20 2A 2A 2A 00 58 11 F9 01 |SE FILE ***.X...|
00000950: 99 22 93 22 3A 99 3A 99 00 84 11 FE 01 99 22 49 |.".":.:......."I|
00000960: 4E 50 55 54 20 46 49 4C 45 20 4E 41 4D 45 28 53 |NPUT FILE NAME(S|
00000970: 29 20 54 4F 20 44 45 4C 45 54 45 22 3A 85 20 44 |) TO DELETE":. D|
00000980: 49 53 4B 24 00 A5 11 08 02 99 3A 99 3A 99 22 48 |ISK$......:.:."H|
00000990: 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 44 45 |IT ANY KEY TO DE|
000009A0: 4C 45 54 45 22 00 B8 11 0D 02 A1 58 24 3A 8B 58 |LETE"......X$:.X|
000009B0: 24 B2 22 22 A7 35 32 35 00 CF 11 12 02 4D 41 43 |$."".525.....MAC|
000009C0: 52 4F 24 B2 22 53 30 3A 22 AA 44 49 53 4B 24 00 |RO$."S0:".DISK$.|
000009D0: E4 11 17 02 9F 20 31 35 2C 38 2C 31 35 2C 4D 41 |..... 15,8,15,MA|
000009E0: 43 52 4F 24 00 F9 11 1C 02 A0 20 31 35 3A 4D 41 |CRO$...... 15:MA|
000009F0: 43 52 4F 24 B2 22 22 3A 8E 00 16 12 26 02 8F 20 |CRO$."":....&.. |
00000A00: 2A 2A 2A 20 56 41 4C 49 44 41 54 45 20 46 49 4C |*** VALIDATE FIL|
00000A10: 45 53 20 2A 2A 2A 00 23 12 2B 02 99 22 93 22 3A |ES ***.#.+..".":|
00000A20: 99 3A 99 00 51 12 30 02 99 22 57 41 52 4E 49 4E |.:..Q.0.."WARNIN|
00000A30: 47 3A 4F 50 45 4E 20 46 49 4C 45 53 20 22 3A 99 |G:OPEN FILES ":.|
00000A40: 22 57 49 4C 4C 20 42 45 20 44 45 4C 45 54 45 44 |"WILL BE DELETED|
00000A50: 22 00 74 12 3A 02 99 3A 99 3A 99 22 48 49 54 20 |".t.:..:.:."HIT |
00000A60: 41 4E 59 20 4B 45 59 20 54 4F 20 56 41 4C 49 44 |ANY KEY TO VALID|
00000A70: 41 54 45 22 00 87 12 3F 02 A1 58 24 3A 8B 58 24 |ATE"...?..X$:.X$|
00000A80: B2 22 22 A7 35 37 35 00 98 12 44 02 9F 20 31 2C |."".575...D.. 1,|
00000A90: 38 2C 31 35 2C 22 56 22 00 A2 12 4E 02 A0 20 31 |8,15,"V"...N.. 1|
00000AA0: 3A 8E 00 CA 12 58 02 8F 20 2A 2A 2A 20 57 52 49 |:....X.. *** WRI|
00000AB0: 54 45 20 44 49 53 4B 4D 41 4E 41 47 45 52 20 50 |TE DISKMANAGER P|
00000AC0: 52 4F 47 52 41 4D 20 2A 2A 2A 00 D7 12 5D 02 99 |ROGRAM ***...]..|
00000AD0: 22 93 22 3A 99 3A 99 00 FE 12 62 02 99 22 49 4E |".":.:....b.."IN|
00000AE0: 53 45 52 54 20 44 49 53 4B 20 54 4F 20 42 45 20 |SERT DISK TO BE |
00000AF0: 57 52 49 54 54 45 4E 20 54 4F 2E 22 3A 99 00 2B |WRITTEN TO.":..+|
00000B00: 13 6C 02 99 3A 99 3A 99 22 48 49 54 20 41 4E 59 |.l..:.:."HIT ANY|
00000B10: 20 4B 45 59 20 54 4F 20 57 52 49 54 45 20 44 49 | KEY TO WRITE DI|
00000B20: 53 4B 20 4D 41 4E 41 47 45 52 22 00 3E 13 6E 02 |SK MANAGER".>.n.|
00000B30: A1 58 24 3A 8B 58 24 B2 22 22 A7 36 32 32 00 4A |.X$:.X$."".622.J|
00000B40: 13 71 02 9F 31 2C 38 2C 31 35 00 63 13 76 02 94 |.q..1,8,15.c.v..|
00000B50: 20 22 40 30 3A 44 49 53 4B 4D 41 4E 41 47 45 52 | "@0:DISKMANAGER|
00000B60: 22 2C 38 00 6B 13 7B 02 A0 20 31 00 71 13 80 02 |",8.k.{.. 1.q...|
00000B70: 8E 00 94 13 8A 02 8F 20 2A 2A 2A 20 44 49 53 50 |....... *** DISP|
00000B80: 4C 41 59 20 45 52 52 4F 52 20 53 54 41 54 55 53 |LAY ERROR STATUS|
00000B90: 20 2A 2A 2A 00 A1 13 8F 02 9F 31 35 2C 38 2C 31 | ***......15,8,1|
00000BA0: 35 00 B5 13 94 02 84 31 35 2C 41 24 2C 42 24 2C |5......15,A$,B$,|
00000BB0: 43 24 2C 44 24 00 C2 13 9E 02 99 22 93 22 3A 99 |C$,D$......".":.|
00000BC0: 3A 99 00 F2 13 A8 02 99 22 45 52 52 4F 52 20 53 |:......."ERROR S|
00000BD0: 54 41 54 55 53 3A 20 20 22 42 24 3A 99 3A 99 22 |TATUS: "B$:.:."|
00000BE0: 45 52 52 4F 52 20 4E 55 4D 42 45 52 3A 20 20 22 |ERROR NUMBER: "|
00000BF0: 41 24 00 13 14 B2 02 99 3A 99 3A 99 22 48 49 54 |A$......:.:."HIT|
00000C00: 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 55 | ANY KEY TO RETU|
00000C10: 52 4E 22 00 26 14 B7 02 A1 58 24 3A 8B 58 24 B2 |RN".&....X$:.X$.|
00000C20: 22 22 A7 36 39 35 00 30 14 B9 02 A0 31 35 3A 8E |"".695.0....15:.|
00000C30: 00 4E 14 BC 02 8F 20 2A 2A 2A 20 52 45 54 55 52 |.N.... *** RETUR|
00000C40: 4E 20 54 4F 20 42 41 53 49 43 20 2A 2A 2A 00 5B |N TO BASIC ***.[|
00000C50: 14 C1 02 99 22 93 22 3A 99 3A 99 00 77 14 C3 02 |....".":.:..w...|
00000C60: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
00000C70: 31 34 3A 99 22 9A 22 00 A3 14 C5 02 99 22 1D 20 |14:."."......". |
00000C80: 20 20 12 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
00000C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CA0: 20 20 22 00 CF 14 C6 02 99 22 1D 20 20 20 12 20 | "......". . |
00000CB0: 4E 4F 54 45 3A 2E 2E 44 49 53 4B 4D 41 4E 41 47 |NOTE:..DISKMANAG|
00000CC0: 45 52 20 50 52 4F 47 52 41 4D 20 49 53 20 22 00 |ER PROGRAM IS ".|
00000CD0: FB 14 CA 02 99 22 1D 20 20 20 12 20 53 54 49 4C |.....". . STIL|
00000CE0: 4C 20 52 45 53 49 44 45 4E 54 20 20 20 20 20 20 |L RESIDENT |
00000CF0: 20 20 20 20 20 20 20 20 20 20 22 00 27 15 CB 02 | ".'...|
00000D00: 99 22 1D 20 20 20 12 20 20 20 20 20 20 20 20 20 |.". . |
00000D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D20: 20 20 20 20 20 20 22 00 53 15 CC 02 99 22 11 11 | ".S...."..|
00000D30: 1D 20 20 20 20 54 4F 20 4B 49 4C 4C 20 44 49 53 |. TO KILL DIS|
00000D40: 4B 20 4D 41 4E 41 47 45 52 20 54 59 50 45 20 49 |K MANAGER TYPE I|
00000D50: 4E 20 22 00 7D 15 CD 02 99 22 11 1D 20 20 20 20 |N ".}....".. |
00000D60: 12 20 4E 45 57 20 92 20 41 4E 44 20 50 52 45 53 |. NEW . AND PRES|
00000D70: 53 20 3C 52 45 54 55 52 4E 3E 11 11 22 00 83 15 |S <RETURN>.."...|
00000D80: D0 02 80 00 A7 15 20 03 8F 20 2A 2A 2A 20 43 4F |...... .. *** CO|
00000D90: 50 59 20 46 49 4C 45 20 4F 4E 20 4E 45 57 20 44 |PY FILE ON NEW D|
00000DA0: 49 53 4B 20 2A 2A 2A 00 B0 15 21 03 99 22 93 22 |ISK ***...!.."."|
00000DB0: 00 B8 15 22 03 A0 31 35 00 C9 15 23 03 4D 41 58 |..."..15...#.MAX|
00000DC0: B2 B5 28 53 AD 32 35 36 29 00 0E 16 24 03 99 22 |..(S.256)...$.."|
00000DD0: 4D 41 58 49 4D 55 4D 20 53 49 5A 45 20 4F 46 20 |MAXIMUM SIZE OF |
00000DE0: 46 49 4C 45 20 57 48 49 43 48 20 43 41 4E 20 42 |FILE WHICH CAN B|
00000DF0: 45 22 3A 99 22 43 4F 50 49 45 44 20 49 53 20 22 |E":."COPIED IS "|
00000E00: 4D 41 58 22 20 42 4C 4F 43 4B 53 22 3A 99 00 24 |MAX" BLOCKS":..$|
00000E10: 16 26 03 8B 20 4D 41 58 B1 B2 4D 32 20 A7 20 89 |.&.. MAX..M2 . .|
00000E20: 20 38 30 39 00 52 16 27 03 99 22 46 4F 52 20 4D | 809.R.'.."FOR M|
00000E30: 41 58 49 4D 55 4D 20 43 4F 50 59 20 53 49 5A 45 |AXIMUM COPY SIZE|
00000E40: 20 4F 46 20 22 4D 32 22 20 42 4C 4F 43 4B 53 2C | OF "M2" BLOCKS,|
00000E50: 22 3B 00 82 16 28 03 99 22 20 20 20 54 55 52 4E |";...(.." TURN|
00000E60: 20 43 4F 4D 50 55 54 45 52 20 4F 46 46 2F 4F 4E | COMPUTER OFF/ON|
00000E70: 20 41 4E 44 20 52 45 4C 4F 41 44 20 50 52 4F 47 | AND RELOAD PROG|
00000E80: 2E 22 00 B0 16 29 03 99 3A 99 22 12 20 52 45 41 |."...)..:.". REA|
00000E90: 44 2F 57 52 49 54 45 20 52 41 54 45 20 49 53 20 |D/WRITE RATE IS |
00000EA0: 41 50 50 52 4F 58 49 4D 41 54 45 4C 59 20 20 22 |APPROXIMATELY "|
00000EB0: 00 E3 16 2A 03 99 22 12 20 20 36 20 42 4C 4F 43 |...*..". 6 BLOC|
00000EC0: 4B 53 2F 4D 49 4E 55 54 45 20 20 20 20 20 20 20 |KS/MINUTE |
00000ED0: 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 22 11 | ":.".|
00000EE0: 11 11 22 00 0D 17 2F 03 99 3A 99 22 49 4E 50 55 |..".../..:."INPU|
00000EF0: 54 20 4E 41 4D 45 20 4F 46 20 46 49 4C 45 20 54 |T NAME OF FILE T|
00000F00: 4F 20 42 45 20 43 4F 50 49 45 44 11 22 00 19 17 |O BE COPIED."...|
00000F10: 34 03 85 20 46 49 4C 45 24 00 36 17 3E 03 99 3A |4.. FILE$.6.>..:|
00000F20: 99 22 20 20 20 49 4E 50 55 54 20 46 49 4C 45 20 |." INPUT FILE |
00000F30: 54 59 50 45 3A 22 00 4C 17 48 03 99 22 20 20 20 |TYPE:".L.H.." |
00000F40: 20 20 50 20 50 52 4F 47 52 41 4D 22 00 65 17 52 | P PROGRAM".e.R|
00000F50: 03 99 22 20 20 20 20 20 53 20 53 45 51 55 45 4E |.." S SEQUEN|
00000F60: 54 49 41 4C 22 00 78 17 5C 03 99 22 20 20 20 20 |TIAL".x.\.." |
00000F70: 20 55 20 55 53 45 52 22 00 8F 17 66 03 99 22 20 | U USER"...f.." |
00000F80: 20 20 20 20 52 20 52 45 4C 41 54 49 56 45 22 00 | R RELATIVE".|
00000F90: 9B 17 70 03 85 20 54 59 50 45 24 00 CA 17 7A 03 |..p.. TYPE$...z.|
00000FA0: 99 3A 99 22 49 4E 53 45 52 54 20 53 4F 55 52 43 |.:."INSERT SOURC|
00000FB0: 45 20 44 49 53 4B 20 41 4E 44 20 50 52 45 53 53 |E DISK AND PRESS|
00000FC0: 20 3C 52 45 54 55 52 4E 3E 22 00 DE 17 84 03 A1 | <RETURN>"......|
00000FD0: 57 24 3A 8B 57 24 B2 22 22 A7 89 39 30 30 00 FF |W$:.W$.""..900..|
00000FE0: 17 8E 03 8D 20 31 30 30 30 3A 8F 20 52 45 41 44 |.... 1000:. READ|
00000FF0: 20 46 49 4C 45 20 49 4E 54 4F 20 54 45 4D 50 00 | FILE INTO TEMP.|
00001000: 30 18 98 03 99 3A 99 22 49 4E 53 45 52 54 20 44 |0....:."INSERT D|
00001010: 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B 20 |ESTINATION DISK |
00001020: 41 4E 44 20 50 52 45 53 53 20 3C 52 45 54 3E 22 |AND PRESS <RET>"|
00001030: 00 45 18 A2 03 A1 57 24 3A 8B 20 57 24 B2 22 22 |.E....W$:. W$.""|
00001040: A7 89 39 33 30 00 69 18 AC 03 8D 20 31 30 35 30 |..930.i.... 1050|
00001050: 3A 20 8F 20 57 52 49 54 45 20 46 49 4C 45 20 46 |: . WRITE FILE F|
00001060: 52 4F 4D 20 54 45 4D 50 24 00 89 18 B6 03 99 3A |ROM TEMP$......:|
00001070: 99 22 4D 41 4B 45 20 41 4E 4F 54 48 45 52 20 43 |."MAKE ANOTHER C|
00001080: 4F 50 59 22 3B 3A 85 57 24 00 A2 18 C0 03 8B 20 |OPY";:.W$...... |
00001090: C8 28 57 24 2C 31 29 B2 22 59 22 20 A7 20 89 39 |.(W$,1)."Y" . .9|
000010A0: 32 30 00 AD 18 CA 03 89 20 31 31 30 30 00 C9 18 |20...... 1100...|
000010B0: D4 03 8F 20 2D 20 43 48 45 43 4B 20 46 4F 52 20 |... - CHECK FOR |
000010C0: 47 4F 4F 44 20 4F 50 45 4E 00 DD 18 D9 03 84 31 |GOOD OPEN......1|
000010D0: 35 2C 41 24 2C 42 24 2C 43 24 2C 44 24 00 EE 18 |5,A$,B$,C$,D$...|
000010E0: DE 03 8B 20 C5 28 41 24 29 B2 30 A7 20 8E 00 05 |... .(A$).0. ...|
000010F0: 19 E3 03 99 41 24 2C 42 24 2C 43 24 2C 44 24 3A |....A$,B$,C$,D$:|
00001100: A0 31 35 3A 90 00 22 19 E8 03 8F 20 2D 20 52 45 |.15:..".... - RE|
00001110: 41 44 20 46 49 4C 45 20 49 4E 54 4F 20 54 45 4D |AD FILE INTO TEM|
00001120: 50 25 00 2A 19 EA 03 49 B2 31 00 37 19 EC 03 9F |P%.*...I.1.7....|
00001130: 31 35 2C 38 2C 31 35 00 5D 19 EE 03 9F 20 35 2C |15,8,15.].... 5,|
00001140: 38 2C 35 2C 22 30 3A 22 AA 46 49 4C 45 24 AA 22 |8,5,"0:".FILE$."|
00001150: 2C 22 AA 54 59 50 45 24 AA 22 2C 52 22 00 67 19 |,".TYPE$.",R".g.|
00001160: F0 03 8D 20 39 38 30 00 84 19 F1 03 99 22 11 20 |... 980......". |
00001170: 20 20 12 20 4E 4F 57 20 52 45 41 44 49 4E 47 2E | . NOW READING.|
00001180: 2E 2E 20 22 00 8F 19 F2 03 A1 23 35 2C 41 24 00 |.. "......#5,A$.|
00001190: A7 19 F4 03 54 45 4D 50 25 28 49 29 B2 C6 28 41 |....TEMP%(I)..(A|
000011A0: 24 AA C7 28 30 29 29 00 B1 19 F6 03 49 B2 49 AA |$..(0)).....I.I.|
000011B0: 31 00 C2 19 F8 03 8B 20 53 54 B2 30 20 A7 31 30 |1...... ST.0 .10|
000011C0: 31 30 00 F4 19 FA 03 99 3A 99 22 46 49 4C 45 3D |10......:."FILE=|
000011D0: 20 22 3B 46 49 4C 45 24 2C 22 53 54 3D 22 3B 53 | ";FILE$,"ST=";S|
000011E0: 54 2C 22 42 59 54 45 53 3D 22 3B 49 3A A0 20 35 |T,"BYTES=";I:. 5|
000011F0: 3A A0 31 35 00 FA 19 FC 03 8E 00 18 1A 1A 04 8F |:.15............|
00001200: 20 2D 20 57 52 49 54 45 20 46 49 4C 45 20 46 52 | - WRITE FILE FR|
00001210: 4F 4D 20 54 45 4D 50 25 00 26 1A 1C 04 9F 20 31 |OM TEMP%.&.... 1|
00001220: 35 2C 38 2C 31 35 00 4C 1A 1E 04 9F 20 35 2C 38 |5,8,15.L.... 5,8|
00001230: 2C 35 2C 22 30 3A 22 AA 46 49 4C 45 24 AA 22 2C |,5,"0:".FILE$.",|
00001240: 22 AA 54 59 50 45 24 AA 22 2C 57 22 00 56 1A 20 |".TYPE$.",W".V. |
00001250: 04 8D 20 39 38 30 00 73 1A 21 04 99 22 11 20 20 |.. 980.s.!..". |
00001260: 20 12 20 4E 4F 57 20 57 52 49 54 49 4E 47 2E 2E | . NOW WRITING..|
00001270: 2E 20 22 00 7B 1A 22 04 4A B2 31 00 8F 1A 24 04 |. ".{.".J.1...$.|
00001280: 98 35 2C C7 28 54 45 4D 50 25 28 4A 29 29 3B 00 |.5,.(TEMP%(J));.|
00001290: 99 1A 26 04 4A B2 4A AA 31 00 AA 1A 28 04 8B 20 |..&.J.J.1...(.. |
000012A0: 4A B3 49 20 A7 20 31 30 36 30 00 D4 1A 2A 04 99 |J.I . 1060...*..|
000012B0: 3A 99 22 46 49 4C 45 3D 20 22 3B 46 49 4C 45 24 |:."FILE= ";FILE$|
000012C0: 2C 22 42 59 54 45 53 3D 22 3B 4A 3A A0 20 35 3A |,"BYTES=";J:. 5:|
000012D0: A0 20 31 35 00 DA 1A 2C 04 8E 00 E0 1A 4C 04 8E |. 15...,.....L..|
000012E0: 00 05 1B B0 04 8F 20 2A 2A 2A 20 43 4F 50 59 20 |...... *** COPY |
000012F0: 42 4F 54 48 20 44 4F 53 20 50 52 4F 47 52 41 4D |BOTH DOS PROGRAM|
00001300: 53 20 2A 2A 2A 00 3B 1B B5 04 99 22 93 22 3A 99 |S ***.;....".":.|
00001310: 22 49 4E 53 45 52 54 20 53 4F 55 52 43 45 20 44 |"INSERT SOURCE D|
00001320: 49 53 4B 20 57 49 54 48 20 57 45 44 47 45 20 41 |ISK WITH WEDGE A|
00001330: 4E 44 2F 4F 52 20 44 4F 53 22 3B 00 61 1B BA 04 |ND/OR DOS";.a...|
00001340: 99 22 20 50 52 4F 47 52 41 4D 28 53 29 20 41 4E |." PROGRAM(S) AN|
00001350: 44 20 50 52 45 53 53 20 3C 52 45 54 55 52 4E 3E |D PRESS <RETURN>|
00001360: 22 00 78 1B BF 04 A1 57 24 3A 8B 57 24 B2 22 22 |".x....W$:.W$.""|
00001370: A7 20 89 20 31 32 31 35 00 86 1B C2 04 54 59 50 |. . 1215.....TYP|
00001380: 45 24 B2 22 50 22 00 AF 1B C3 04 8B 20 43 30 B2 |E$."P"...... C0.|
00001390: 31 20 A7 20 46 49 4C 45 24 B2 22 56 49 43 2D 32 |1 . FILE$."VIC-2|
000013A0: 30 20 57 45 44 47 45 22 3A 89 20 31 32 33 35 00 |0 WEDGE":. 1235.|
000013B0: CC 1B C4 04 46 49 4C 45 24 B2 22 43 2D 36 34 20 |....FILE$."C-64 |
000013C0: 57 45 44 47 45 22 3A 8D 31 30 30 30 00 10 1C C9 |WEDGE":.1000....|
000013D0: 04 81 43 B2 31 A4 20 36 34 3A 44 4F 53 25 28 43 |..C.1. 64:DOS%(C|
000013E0: 29 B2 54 45 4D 50 25 28 43 29 3A 82 20 43 3A 8F |).TEMP%(C):. C:.|
000013F0: 20 4D 4F 56 45 20 43 2D 36 34 20 57 45 44 47 45 | MOVE C-64 WEDGE|
00001400: 20 54 4F 20 53 4D 41 4C 4C 20 42 55 46 46 45 52 | TO SMALL BUFFER|
00001410: 00 24 1C CE 04 46 49 4C 45 24 B2 22 44 4F 53 20 |.$...FILE$."DOS |
00001420: 35 2E 31 22 00 5C 1C D3 04 8D 20 31 30 30 30 3A |5.1".\.... 1000:|
00001430: 99 3A 99 22 49 4E 53 45 52 54 20 44 45 53 54 49 |.:."INSERT DESTI|
00001440: 4E 41 54 49 4F 4E 20 44 49 53 4B 20 41 4E 44 20 |NATION DISK AND |
00001450: 50 52 45 53 53 20 3C 52 45 54 3E 22 00 73 1C D8 |PRESS <RET>".s..|
00001460: 04 A1 57 24 3A 8B 57 24 B2 22 22 A7 20 89 20 31 |..W$:.W$."". . 1|
00001470: 32 34 30 00 89 1C DD 04 8D 20 31 30 35 30 3A 8B |240...... 1050:.|
00001480: 20 43 30 B2 31 20 A7 20 8E 00 AD 1C E2 04 81 20 | C0.1 . ....... |
00001490: 43 B2 31 20 A4 20 36 34 3A 54 45 4D 50 25 28 43 |C.1 . 64:TEMP%(C|
000014A0: 29 B2 44 4F 53 25 28 43 29 3A 82 20 43 00 E4 1C |).DOS%(C):. C...|
000014B0: E7 04 46 49 4C 45 24 B2 22 43 2D 36 34 20 57 45 |..FILE$."C-64 WE|
000014C0: 44 47 45 22 3A 49 B2 36 34 3A 8D 20 31 30 35 30 |DGE":I.64:. 1050|
000014D0: 3A 20 8F 20 57 52 49 54 45 20 43 2D 36 34 20 57 |: . WRITE C-64 W|
000014E0: 45 44 47 45 00 EA 1C 0A 05 8E 00 00 00 |EDGE......... |
.. .... *** DISK MANAGER 64 ***.G....49
152,10:. B(49152)..10 . C0.1:.6.P...C0.2
._.... DOS%(65).....FR..(0):. FR.0 . FR.
FR.65536.....S.(FR.400).2:M2..(S.256).1.
..... TEMP%(S)......"..";.Q....53280,15:
.53281,15......:.:.:.:.:.:.:......."
******************".-...."
* DISK MANAGER *".Q...." **
****************"....."............. PR
ESS ANY KEY FOR MENU ."......P$:.P$."".3
1...(..".".M.2..:." .1. . DISK DIRECTORY
"...<..". 2. . FORMA
T NEW DISK "./.F..". 3
. . INITIALIZE DISK ".
`.P..". 4. . COPY FILE ON SAME DISK
"...U..". 5. . COPY FILE ON NEW (
FORMATTED) DISK ".B.X..". 6. . COPY BOTH
DOS WEDGE PROGRAMS "...Z..". 7. .
RENAME FILE ".$.D.
." .8. . ERASE FILE(S)
".U.N.." .9. . VALIDATE FILES
"...X..".10. . WRITE DISK MA
NAGER "......".11. . ERRO
R STATUS "......".1
2. . EXIT TO BASIC "
:......."CHOICE ....";CHOICE./....(CH
OICE.1).(CHOICE.12). .".";:.170.O.H.. CH
OICE . 250,300,350,400,800,1200,450,500,
550,600,650,700.W.R..10...... *** DISPLA
Y DIRECTORY ***. ...."."...... 1,8,0,"$"
...... #1,A$,B$.N.... #1,A$,B$...... #1,
A$,B$.....C.0:.A$.."". C.F(A$)...... B$.
."". C.C.F(B$).256.&....J(D(C),2);.3);.>
....#1,B$:. ST..0 .282.T.... B$.. G(34)
.264.Y.... #1,B$:. B$.. G(34) . .B$;:.26
8...... #1,B$:. B$. G(32) . 270.......18
);:C$."".K...C$.C$.B$:. #1,B$:. B$.."" .
274.X....H(C$,3)...... ST.0 . 254......"
.. BLOCKS FREE ".(... 1:.:.:.". HIT ANY
KEY TO RETURN ".;."..X$:.X$."".290.A.'.
..A.,.. *** FORMAT (NEW) DISK ***.J.-.."
."...1.."INSERT DISK TO BE":."FORMATTED.
":....6.."INPUT DISK NAME":. DISK$.V.@..
:."INPUT EXTENDER NAME":. EXT$...E.MACRO
$."N0:".DISK$.",".EXT$...J..15,8,15,MACR
O$...T. 15:MACRO$."":..=.^.. *** INITIA
LIZE DISK ***.F.C..".".Q.H.."INSERT DISK
TO BE":."INITIALIZED.":....R.."HIT <RET
URN> TO":."INITIALIZE":. X$...|.. 15,8,1
5,"I"..... 15:....... *** COPY FILE ON
SAME DISK ***......".":.:......."INPUT S
OURCE FILE NAME":. DISK$.4....:."INPUT N
EW FILE NAME":. NWS$.S...MACRO$."C:".NWS
$."=".DISK$.H.... 15,8,15,MACRO$.}... 1
5:MACRO$."":....B.. *** RENAME FILE ***.
..G..".":..E.L.."INPUT OLD FILE NAME":.
DISK$...V..:."INPUT NEW FILE NAME":. NWS
$.....MACRO$."R:".NWS$."=".DISK$...... 1
5,8,15,MACRO$.2... 15:MACRO$."":..K....
*** ERASE FILE ***.X....".":.:......."I
NPUT FILE NAME(S) TO DELETE":. DISK$....
..:.:."HIT ANY KEY TO DELETE"......X$:.X
$."".525.O...MACRO$."S0:".DISK$...... 15
,8,15,MACRO$..... 15:MACRO$."":....&..
*** VALIDATE FILES ***.#.+..".":.:..Q.0.
."WARNING:OPEN FILES ":."WILL BE DELETED
".T.:..:.:."HIT ANY KEY TO VALIDATE"...?
..X$:.X$."".575...D.. 1,8,15,"V"...N. 1
:..J.X.. *** WRITE DISKMANAGER PROGRAM *
**.W.]..".":.:....B.."INSERT DISK TO BE
WRITTEN TO.":..+.L..:.:."HIT ANY KEY TO
WRITE DISK MANAGER".>.N..X$:.X$."".622.J
.Q..1,8,15.C.V.. "@0:DISKMANAGER",8.K.{.
1.Q.......... *** DISPLAY ERROR STATUS
***......15,8,15......15,A$,B$,C$,D$.B.
...".":.:......."ERROR STATUS: "B$:.:."
ERROR NUMBER: "A$......:.:."HIT ANY KEY
TO RETURN".&....X$:.X$."".695.0... 15:.
.N.... *** RETURN TO BASIC ***.[.A..".":
.:..W.C..53281,6:.53280,14:."."...E..".
. ".O.F.
.". . NOTE:..DISKMANAGER PROGRAM IS ".
..J..". . STILL RESIDENT
".'.K..". .
".S.L.."... TO KILL DISK MANAGE
R TYPE IN ".}.M..".. . NEW . AND PRES
S <RETURN>.."...P..... .. *** COPY FILE
ON NEW DISK ***...!.."."...". 15.I.#.MAX
..(S.256)...$.."MAXIMUM SIZE OF FILE WHI
CH CAN BE":."COPIED IS "MAX" BLOCKS":..$
.&.. MAX..M2 . . 809.R.'.."FOR MAXIMUM C
OPY SIZE OF "M2" BLOCKS,";...(.." TURN
COMPUTER OFF/ON AND RELOAD PROG."...)..
:.". READ/WRITE RATE IS APPROXIMATELY "
...*..". 6 BLOCKS/MINUTE
":."...".../..:."INPUT NAME OF FILE T
O BE COPIED."...4.. FILE$.6.>..:." INP
UT FILE TYPE:".L.H.." P PROGRAM".E.R
.." S SEQUENTIAL".X.\.." U USER"
...F.." R RELATIVE"...P.. TYPE$.J.Z.
.:."INSERT SOURCE DISK AND PRESS <RETURN
>"......W$:.W$.""..900...... 1000:. READ
FILE INTO TEMP.0....:."INSERT DESTINATI
ON DISK AND PRESS <RET>".E....W$:. W$.""
..930.I.... 1050: . WRITE FILE FROM TEMP
$......:."MAKE ANOTHER COPY";:.W$......
H(W$,1)."Y" . .920...J.. 1100.I.T.. - CH
ECK FOR GOOD OPEN...Y..15,A$,B$,C$,D$...
... E(A$).0. .......A$,B$,C$,D$: 15:..".
... - READ FILE INTO TEMP%.*...I.1.7....
15,8,15.].... 5,8,5,"0:".FILE$.",".TYPE$
.",R".G.... 980......". . NOW READING.
.. "......#5,A$.....TEMP%(I).F(A$.G(0)).
....I.I.1.B.... ST.0 .1010......:."FILE=
";FILE$,"ST=";ST,"BYTES=";I: 5: 15....
........ - WRITE FILE FROM TEMP%.&.... 1
5,8,15.L.... 5,8,5,"0:".FILE$.",".TYPE$.
",W".V. .. 980.S.!..". . NOW WRITING..
. ".{.".J.1...$..5,G(TEMP%(J));...&.J.J.
1...(.. J.I . 1060.T.*..:."FILE= ";FILE$
,"BYTES=";J: 5: 15.Z.,.....L........ *
** COPY BOTH DOS PROGRAMS ***.;....".":.
"INSERT SOURCE DISK WITH WEDGE AND/OR DO
S";.A...." PROGRAM(S) AND PRESS <RETURN>
".X....W$:.W$."". . 1215...B.TYPE$."P"..
.C.. C0.1 . FILE$."VIC-20 WEDGE":. 1235.
L.D.FILE$."C-64 WEDGE":.1000...I..C.1. 6
4:DOS%(C).TEMP%(C):. C:. MOVE C-64 WEDGE
TO SMALL BUFFER.$.N.FILE$."DOS 5.1".\.S
.. 1000:.:."INSERT DESTINATION DISK AND
PRESS <RET>".S.X..W$:.W$."". . 1240.....
. 1050:. C0.1 . ....... C.1 . 64:TEMP%(C
).DOS%(C):. C.....FILE$."C-64 WEDGE":I.6
4:. 1050: . WRITE C-64 WEDGE.........
> CLICK IMAGE PREVIEW FOR FULL MODAL