DISKMANAGER
FILE INFORMATION
FILENAME(S): DISKMANAGER
FILE TYPE(S): PRG
FILE SIZE: 4.7K
FIRST SEEN: 2025-11-30 01:07:53
APPEARS ON: 2 disk(s)
FILE HASH
69aaac705a164ff990afa80f564330993e36a2a7ce48e0a23b137995d71b5a64
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| D F UE | DISKMANAGER | PRG | Treasure Chest - Wolfgang Rauprich | 14 | 3 | DOWNLOAD FILE |
| FREESOFT DISK NR | DISKMANAGER | PRG | Treasure Chest - Wolfgang Rauprich | 14 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 33 08 01 00 8F 20 43 4F 4D 50 55 54 45 21 |..3.... COMPUTE!|
00000010: 27 53 20 47 41 5A 45 54 54 45 20 2D 20 44 45 43 |'S GAZETTE - DEC|
00000020: 2E 20 31 39 38 33 20 2D 20 20 20 50 41 47 45 20 |. 1983 - PAGE |
00000030: 31 33 30 00 5B 08 03 00 97 20 34 39 31 35 32 2C |130.[.... 49152,|
00000040: 31 30 3A 8B 20 C2 28 34 39 31 35 32 29 B3 B1 31 |10:. .(49152)..1|
00000050: 30 20 A7 20 43 30 B2 31 3A 89 36 00 64 08 05 00 |0 . C0.1:.6.d...|
00000060: 43 30 B2 32 00 73 08 06 00 86 20 44 4F 53 25 28 |C0.2.s.... DOS%(|
00000070: 36 35 29 00 94 08 07 00 46 52 B2 B8 28 30 29 3A |65).....FR..(0):|
00000080: 8B 20 46 52 B3 30 20 A7 20 46 52 B2 46 52 AA 36 |. FR.0 . FR.FR.6|
00000090: 35 35 33 36 00 B3 08 08 00 53 B2 28 46 52 AB 34 |5536.....S.(FR.4|
000000A0: 30 30 29 AD 32 3A 4D 32 B2 B5 28 53 AD 32 35 36 |00).2:M2..(S.256|
000000B0: 29 AA 31 00 C2 08 09 00 86 20 54 45 4D 50 25 28 |).1...... TEMP%(|
000000C0: 53 29 00 CC 08 0A 00 99 22 93 22 3B 00 E8 08 0F |S)......".";....|
000000D0: 00 99 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.." ***********|
000000E0: 2A 2A 2A 2A 2A 2A 2A 22 00 04 09 14 00 99 22 20 |*******"......" |
000000F0: 20 2A 20 20 44 49 53 4B 20 4D 41 4E 41 47 45 52 | * DISK MANAGER|
00000100: 20 20 2A 22 00 20 09 19 00 99 22 20 20 2A 2A 2A | *". ...." ***|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |***************"|
00000120: 00 3A 09 32 00 99 3A 99 22 31 2E 44 49 53 4B 20 |.:.2..:."1.DISK |
00000130: 44 49 52 45 43 54 4F 52 59 22 00 53 09 3C 00 99 |DIRECTORY".S.<..|
00000140: 22 32 2E 46 4F 52 4D 41 54 20 4E 45 57 20 44 49 |"2.FORMAT NEW DI|
00000150: 53 4B 22 00 6C 09 46 00 99 22 33 2E 49 4E 49 54 |SK".l.F.."3.INIT|
00000160: 49 41 4C 49 5A 45 20 44 49 53 4B 22 00 8C 09 50 |IALIZE DISK"...P|
00000170: 00 99 22 34 2E 43 4F 50 59 20 46 49 4C 45 20 4F |.."4.COPY FILE O|
00000180: 4E 20 53 41 4D 45 20 44 49 53 4B 22 00 B7 09 55 |N SAME DISK"...U|
00000190: 00 99 22 35 2E 43 4F 50 59 20 46 49 4C 45 20 4F |.."5.COPY FILE O|
000001A0: 4E 20 4E 45 57 20 28 46 4F 52 4D 41 54 54 45 44 |N NEW (FORMATTED|
000001B0: 29 20 44 49 53 4B 22 00 DD 09 58 00 99 22 36 2E |) DISK"...X.."6.|
000001C0: 43 4F 50 59 20 42 4F 54 48 20 44 4F 53 20 57 45 |COPY BOTH DOS WE|
000001D0: 44 47 45 20 50 52 4F 47 52 41 4D 53 22 00 F2 09 |DGE PROGRAMS"...|
000001E0: 5A 00 99 22 37 2E 52 45 4E 41 4D 45 20 46 49 4C |Z.."7.RENAME FIL|
000001F0: 45 22 00 09 0A 64 00 99 22 38 2E 45 52 41 53 45 |E"...d.."8.ERASE|
00000200: 20 46 49 4C 45 28 53 29 22 00 21 0A 6E 00 99 22 | FILE(S)".!.n.."|
00000210: 39 2E 56 41 4C 49 44 41 54 45 20 46 49 4C 45 53 |9.VALIDATE FILES|
00000220: 22 00 3E 0A 78 00 99 22 31 30 2E 57 52 49 54 45 |".>.x.."10.WRITE|
00000230: 20 44 49 53 4B 20 4D 41 4E 41 47 45 52 22 00 55 | DISK MANAGER".U|
00000240: 0A 82 00 99 22 31 31 2E 45 52 52 4F 52 20 53 54 |...."11.ERROR ST|
00000250: 41 54 55 53 22 00 70 0A 8C 00 99 22 31 32 2E 45 |ATUS".p...."12.E|
00000260: 58 49 54 20 54 4F 20 42 41 53 49 43 22 3A 99 3A |XIT TO BASIC":.:|
00000270: 00 8D 0A AA 00 85 22 43 48 4F 49 43 45 20 20 20 |......"CHOICE |
00000280: 20 9D 9D 9D 9D 22 3B 43 48 4F 49 43 45 00 B6 0A | ....";CHOICE...|
00000290: B4 00 8B 20 28 43 48 4F 49 43 45 B3 31 29 B0 28 |... (CHOICE.1).(|
000002A0: 43 48 4F 49 43 45 B1 31 32 29 A7 20 99 22 91 22 |CHOICE.12). ."."|
000002B0: 3B 3A 89 31 37 30 00 F6 0A C8 00 91 20 43 48 4F |;:.170...... CHO|
000002C0: 49 43 45 20 8D 20 32 35 30 2C 33 30 30 2C 33 35 |ICE . 250,300,35|
000002D0: 30 2C 34 30 30 2C 38 30 30 2C 31 32 30 30 2C 34 |0,400,800,1200,4|
000002E0: 35 30 2C 35 30 30 2C 35 35 30 2C 36 30 30 2C 36 |50,500,550,600,6|
000002F0: 35 30 2C 37 30 30 00 FF 0A D2 00 89 20 31 30 00 |50,700...... 10.|
00000300: 1F 0B FA 00 8F 20 2A 2A 2A 20 44 49 53 50 4C 41 |..... *** DISPLA|
00000310: 59 20 44 49 52 45 43 54 4F 52 59 20 2A 2A 2A 00 |Y DIRECTORY ***.|
00000320: 28 0B FB 00 99 22 93 22 00 38 0B FC 00 9F 20 31 |(....".".8.... 1|
00000330: 2C 38 2C 30 2C 22 24 22 00 47 0B FD 00 A1 20 23 |,8,0,"$".G.... #|
00000340: 31 2C 41 24 2C 42 24 00 55 0B FE 00 A1 23 31 2C |1,A$,B$.U....#1,|
00000350: 41 24 2C 42 24 00 64 0B 00 01 A1 20 23 31 2C 41 |A$,B$.d.... #1,A|
00000360: 24 2C 42 24 00 7F 0B 02 01 43 B2 30 3A 8B 20 41 |$,B$.....C.0:. A|
00000370: 24 B3 B1 22 22 A7 20 43 B2 20 C6 28 41 24 29 00 |$.."". C. .(A$).|
00000380: 9C 0B 04 01 8B 20 42 24 B3 B1 22 22 A7 20 43 B2 |..... B$.."". C.|
00000390: 43 AA 20 C6 28 42 24 29 AC 32 35 36 00 B1 0B 06 |C. .(B$).256....|
000003A0: 01 99 20 CA 28 C4 28 43 29 2C 32 29 3B A3 33 29 |.. .(.(C),2);.3)|
000003B0: 3B 00 CA 0B 08 01 A1 23 31 2C 42 24 3A 8B 20 53 |;......#1,B$:. S|
000003C0: 54 B3 B1 30 20 A7 20 32 38 32 00 E1 0B 0A 01 8B |T..0 . 282......|
000003D0: 20 42 24 B3 B1 20 C7 28 33 34 29 20 A7 20 32 36 | B$.. .(34) . 26|
000003E0: 34 00 08 0C 0C 01 A1 20 23 31 2C 42 24 3A 8B 20 |4...... #1,B$:. |
000003F0: 42 24 B3 B1 20 C7 28 33 34 29 20 A7 20 99 20 42 |B$.. .(34) . . B|
00000400: 24 3B 3A 89 20 32 36 38 00 26 0C 0E 01 A1 20 23 |$;:. 268.&.... #|
00000410: 31 2C 42 24 3A 8B 20 42 24 B2 20 C7 28 33 32 29 |1,B$:. B$. .(32)|
00000420: 20 A7 20 32 37 30 00 38 0C 10 01 99 20 A3 31 38 | . 270.8.... .18|
00000430: 29 3A 3A 43 24 B2 22 22 00 5C 0C 12 01 43 24 B2 |)::C$."".\...C$.|
00000440: 43 24 AA 42 24 3A A1 20 23 31 2C 42 24 3A 8B 20 |C$.B$:. #1,B$:. |
00000450: 42 24 B3 B1 22 22 20 A7 20 32 37 34 00 6A 0C 14 |B$.."" . 274.j..|
00000460: 01 99 20 C8 28 43 24 2C 33 29 00 7B 0C 18 01 8B |.. .(C$,3).{....|
00000470: 20 53 54 B2 30 20 A7 20 32 35 34 00 90 0C 1A 01 | ST.0 . 254.....|
00000480: 99 22 20 42 4C 4F 43 4B 53 20 46 52 45 45 20 22 |." BLOCKS FREE "|
00000490: 00 B5 0C 1C 01 A0 20 31 3A 99 3A 99 3A 99 22 48 |...... 1:.:.:."H|
000004A0: 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 |IT ANY KEY TO RE|
000004B0: 54 55 52 4E 22 00 CA 0C 22 01 A1 20 58 24 3A 8B |TURN"...".. X$:.|
000004C0: 58 24 B2 22 22 A7 20 32 39 30 00 D0 0C 27 01 8E |X$."". 290...'..|
000004D0: 00 F0 0C 2C 01 8F 20 2A 2A 2A 20 46 4F 52 4D 41 |...,.. *** FORMA|
000004E0: 54 20 28 4E 45 57 29 20 44 49 53 4B 20 2A 2A 2A |T (NEW) DISK ***|
000004F0: 00 F9 0C 2D 01 99 22 93 22 00 22 0D 31 01 99 22 |...-..".".".1.."|
00000500: 49 4E 53 45 52 54 20 44 49 53 4B 20 54 4F 20 42 |INSERT DISK TO B|
00000510: 45 22 3A 99 22 46 4F 52 4D 41 54 54 45 44 2E 22 |E":."FORMATTED."|
00000520: 3A 99 00 41 0D 36 01 99 22 49 4E 50 55 54 20 44 |:..A.6.."INPUT D|
00000530: 49 53 4B 20 4E 41 4D 45 22 3A 85 20 44 49 53 4B |ISK NAME":. DISK|
00000540: 24 00 65 0D 40 01 99 3A 99 22 49 4E 50 55 54 20 |$.e.@..:."INPUT |
00000550: 45 58 54 45 4E 44 45 52 20 4E 41 4D 45 22 3A 85 |EXTENDER NAME":.|
00000560: 20 45 58 54 24 00 85 0D 45 01 4D 41 43 52 4F 24 | EXT$...E.MACRO$|
00000570: B2 22 4E 30 3A 22 AA 44 49 53 4B 24 AA 22 2C 22 |."N0:".DISK$.","|
00000580: AA 45 58 54 24 00 9A 0D 4A 01 9F 20 31 35 2C 38 |.EXT$...J.. 15,8|
00000590: 2C 31 35 2C 4D 41 43 52 4F 24 00 AF 0D 54 01 A0 |,15,MACRO$...T..|
000005A0: 20 31 35 3A 4D 41 43 52 4F 24 B2 22 22 3A 8E 00 | 15:MACRO$."":..|
000005B0: CD 0D 5E 01 8F 20 2A 2A 2A 20 49 4E 49 54 49 41 |..^.. *** INITIA|
000005C0: 4C 49 5A 45 20 44 49 53 4B 20 2A 2A 2A 00 D6 0D |LIZE DISK ***...|
000005D0: 63 01 99 22 93 22 00 01 0E 68 01 99 22 49 4E 53 |c.."."...h.."INS|
000005E0: 45 52 54 20 44 49 53 4B 20 54 4F 20 42 45 22 3A |ERT DISK TO BE":|
000005F0: 99 22 49 4E 49 54 49 41 4C 49 5A 45 44 2E 22 3A |."INITIALIZED.":|
00000600: 99 00 2B 0E 72 01 99 22 48 49 54 20 3C 52 45 54 |..+.r.."HIT <RET|
00000610: 55 52 4E 3E 20 54 4F 22 3A 99 22 49 4E 49 54 49 |URN> TO":."INITI|
00000620: 41 4C 49 5A 45 22 3A 85 20 58 24 00 3D 0E 7C 01 |ALIZE":. X$.=.|.|
00000630: 9F 20 31 35 2C 38 2C 31 35 2C 22 49 22 00 48 0E |. 15,8,15,"I".H.|
00000640: 86 01 A0 20 31 35 3A 8E 00 6D 0E 90 01 8F 20 2A |... 15:..m.... *|
00000650: 2A 2A 20 43 4F 50 59 20 46 49 4C 45 20 4F 4E 20 |** COPY FILE ON |
00000660: 53 41 4D 45 20 44 49 53 4B 20 2A 2A 2A 00 7A 0E |SAME DISK ***.z.|
00000670: 95 01 99 22 93 22 3A 99 3A 99 00 A0 0E 9A 01 99 |...".":.:.......|
00000680: 22 49 4E 50 55 54 20 53 4F 55 52 43 45 20 46 49 |"INPUT SOURCE FI|
00000690: 4C 45 20 4E 41 4D 45 22 3A 85 20 44 49 53 4B 24 |LE NAME":. DISK$|
000006A0: 00 C4 0E A4 01 99 3A 99 22 49 4E 50 55 54 20 4E |......:."INPUT N|
000006B0: 45 57 20 46 49 4C 45 20 4E 41 4D 45 22 3A 85 20 |EW FILE NAME":. |
000006C0: 4E 57 53 24 00 E3 0E A9 01 4D 41 43 52 4F 24 B2 |NWS$.....MACRO$.|
000006D0: 22 43 3A 22 AA 4E 57 53 24 AA 22 3D 22 AA 44 49 |"C:".NWS$."=".DI|
000006E0: 53 4B 24 00 F8 0E AE 01 9F 20 31 35 2C 38 2C 31 |SK$...... 15,8,1|
000006F0: 35 2C 4D 41 43 52 4F 24 00 0D 0F B8 01 A0 20 31 |5,MACRO$...... 1|
00000700: 35 3A 4D 41 43 52 4F 24 B2 22 22 3A 8E 00 27 0F |5:MACRO$."":..'.|
00000710: C2 01 8F 20 2A 2A 2A 20 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 AD 0F E0 01 9F 20 31 |=".DISK$...... 1|
000007A0: 35 2C 38 2C 31 35 2C 4D 41 43 52 4F 24 00 C2 0F |5,8,15,MACRO$...|
000007B0: EA 01 A0 20 31 35 3A 4D 41 43 52 4F 24 B2 22 22 |... 15:MACRO$.""|
000007C0: 3A 8E 00 DB 0F F4 01 8F 20 2A 2A 2A 20 45 52 41 |:....... *** ERA|
000007D0: 53 45 20 46 49 4C 45 20 2A 2A 2A 00 E8 0F F9 01 |SE FILE ***.....|
000007E0: 99 22 93 22 3A 99 3A 99 00 14 10 FE 01 99 22 49 |.".":.:......."I|
000007F0: 4E 50 55 54 20 46 49 4C 45 20 4E 41 4D 45 28 53 |NPUT FILE NAME(S|
00000800: 29 20 54 4F 20 44 45 4C 45 54 45 22 3A 85 20 44 |) TO DELETE":. D|
00000810: 49 53 4B 24 00 35 10 08 02 99 3A 99 3A 99 22 48 |ISK$.5....:.:."H|
00000820: 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 44 45 |IT ANY KEY TO DE|
00000830: 4C 45 54 45 22 00 4C 10 0D 02 A1 20 58 24 3A 8B |LETE".L.... X$:.|
00000840: 20 58 24 B2 22 22 20 A7 20 35 32 35 00 63 10 12 | X$."" . 525.c..|
00000850: 02 4D 41 43 52 4F 24 B2 22 53 30 3A 22 AA 44 49 |.MACRO$."S0:".DI|
00000860: 53 4B 24 00 78 10 17 02 9F 20 31 35 2C 38 2C 31 |SK$.x.... 15,8,1|
00000870: 35 2C 4D 41 43 52 4F 24 00 8D 10 1C 02 A0 20 31 |5,MACRO$...... 1|
00000880: 35 3A 4D 41 43 52 4F 24 B2 22 22 3A 8E 00 AA 10 |5:MACRO$."":....|
00000890: 26 02 8F 20 2A 2A 2A 20 56 41 4C 49 44 41 54 45 |&.. *** VALIDATE|
000008A0: 20 46 49 4C 45 53 20 2A 2A 2A 00 B7 10 2B 02 99 | FILES ***...+..|
000008B0: 22 93 22 3A 99 3A 99 00 E5 10 30 02 99 22 57 41 |".":.:....0.."WA|
000008C0: 52 4E 49 4E 47 3A 4F 50 45 4E 20 46 49 4C 45 53 |RNING:OPEN FILES|
000008D0: 20 22 3A 99 22 57 49 4C 4C 20 42 45 20 44 45 4C | ":."WILL BE DEL|
000008E0: 45 54 45 44 22 00 08 11 3A 02 99 3A 99 3A 99 22 |ETED"...:..:.:."|
000008F0: 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 56 |HIT ANY KEY TO V|
00000900: 41 4C 49 44 41 54 45 22 00 1F 11 3F 02 A1 20 58 |ALIDATE"...?.. X|
00000910: 24 3A 8B 20 58 24 B2 22 22 20 A7 20 35 37 35 00 |$:. X$."" . 575.|
00000920: 30 11 44 02 9F 20 31 2C 38 2C 31 35 2C 22 56 22 |0.D.. 1,8,15,"V"|
00000930: 00 3A 11 4E 02 A0 20 31 3A 8E 00 60 11 58 02 8F |.:.N.. 1:..`.X..|
00000940: 20 2A 2A 20 57 52 49 54 45 20 44 49 53 4B 4D 41 | ** WRITE DISKMA|
00000950: 4E 41 47 45 52 20 50 52 4F 47 52 41 4D 20 2A 2A |NAGER PROGRAM **|
00000960: 00 6D 11 5D 02 99 22 93 22 3A 99 3A 99 00 94 11 |.m.]..".":.:....|
00000970: 62 02 99 22 49 4E 53 45 52 54 20 44 49 53 4B 20 |b.."INSERT DISK |
00000980: 54 4F 20 42 45 20 57 52 49 54 54 45 4E 20 54 4F |TO BE WRITTEN TO|
00000990: 2E 22 3A 99 00 C1 11 6C 02 99 3A 99 3A 99 22 48 |.":....l..:.:."H|
000009A0: 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 57 52 |IT ANY KEY TO WR|
000009B0: 49 54 45 20 44 49 53 4B 20 4D 41 4E 41 47 45 52 |ITE DISK MANAGER|
000009C0: 22 00 D8 11 6E 02 A1 20 58 24 3A 8B 20 58 24 B2 |"...n.. X$:. X$.|
000009D0: 22 22 20 A7 20 36 32 32 00 E5 11 71 02 9F 20 31 |"" . 622...q.. 1|
000009E0: 2C 38 2C 31 35 00 FE 11 76 02 94 20 22 40 30 3A |,8,15...v.. "@0:|
000009F0: 44 49 53 4B 4D 41 4E 41 47 45 52 22 2C 38 00 06 |DISKMANAGER",8..|
00000A00: 12 7B 02 A0 20 31 00 0C 12 80 02 8E 00 2F 12 8A |.{.. 1......./..|
00000A10: 02 8F 20 2A 2A 2A 20 44 49 53 50 4C 41 59 20 45 |.. *** DISPLAY E|
00000A20: 52 52 4F 52 20 53 54 41 54 55 53 20 2A 2A 2A 00 |RROR STATUS ***.|
00000A30: 3C 12 8F 02 9F 31 35 2C 38 2C 31 35 00 50 12 94 |<....15,8,15.P..|
00000A40: 02 84 31 35 2C 41 24 2C 42 24 2C 43 24 2C 44 24 |..15,A$,B$,C$,D$|
00000A50: 00 5D 12 9E 02 99 22 93 22 3A 99 3A 99 00 8D 12 |.]....".":.:....|
00000A60: A8 02 99 22 45 52 52 4F 52 20 53 54 41 54 55 53 |..."ERROR STATUS|
00000A70: 3A 20 20 22 42 24 3A 99 3A 99 22 45 52 52 4F 52 |: "B$:.:."ERROR|
00000A80: 20 4E 55 4D 42 45 52 3A 20 20 22 41 24 00 AE 12 | NUMBER: "A$...|
00000A90: B2 02 99 3A 99 3A 99 22 48 49 54 20 41 4E 59 20 |...:.:."HIT ANY |
00000AA0: 4B 45 59 20 54 4F 20 52 45 54 55 52 4E 22 00 C4 |KEY TO RETURN"..|
00000AB0: 12 B7 02 A1 20 58 24 3A 8B 20 58 24 B2 22 22 A7 |.... X$:. X$."".|
00000AC0: 20 36 39 35 00 CF 12 B9 02 A0 20 31 35 3A 8E 00 | 695...... 15:..|
00000AD0: ED 12 BC 02 8F 20 2A 2A 2A 20 52 45 54 55 52 4E |..... *** RETURN|
00000AE0: 20 54 4F 20 42 41 53 49 43 20 2A 2A 2A 00 FA 12 | TO BASIC ***...|
00000AF0: C1 02 99 22 93 22 3A 99 3A 99 00 2D 13 C6 02 99 |...".":.:..-....|
00000B00: 20 22 4E 4F 54 45 3A 44 49 53 4B 4D 41 4E 41 47 | "NOTE:DISKMANAG|
00000B10: 45 52 20 50 52 4F 47 52 41 4D 20 49 53 20 53 54 |ER PROGRAM IS ST|
00000B20: 49 4C 4C 20 52 45 53 49 44 45 4E 54 22 00 33 13 |ILL RESIDENT".3.|
00000B30: D0 02 80 00 57 13 20 03 8F 20 2A 2A 2A 20 43 4F |....W. .. *** CO|
00000B40: 50 59 20 46 49 4C 45 20 4F 4E 20 4E 45 57 20 44 |PY FILE ON NEW D|
00000B50: 49 53 4B 20 2A 2A 2A 00 61 13 21 03 99 20 22 93 |ISK ***.a.!.. ".|
00000B60: 22 00 6A 13 22 03 A0 20 31 35 00 7B 13 23 03 4D |".j.".. 15.{.#.M|
00000B70: 41 58 B2 B5 28 53 AD 32 35 36 29 00 C0 13 24 03 |AX..(S.256)...$.|
00000B80: 99 20 22 20 20 4D 41 58 49 4D 55 4D 20 53 49 5A |. " MAXIMUM SIZ|
00000B90: 45 20 4F 46 20 46 49 4C 45 20 57 48 49 43 48 20 |E OF FILE WHICH |
00000BA0: 43 41 4E 20 42 45 20 43 4F 50 49 45 44 20 49 53 |CAN BE COPIED IS|
00000BB0: 20 22 4D 41 58 22 20 42 4C 4F 43 4B 53 22 3A 99 | "MAX" BLOCKS":.|
00000BC0: 00 D6 13 26 03 8B 20 4D 41 58 B1 B2 4D 32 20 A7 |...&.. MAX..M2 .|
00000BD0: 20 89 20 38 30 39 00 07 14 27 03 99 20 22 20 20 | . 809...'.. " |
00000BE0: 46 4F 52 20 4D 41 58 49 4D 55 4D 20 43 4F 50 59 |FOR MAXIMUM COPY|
00000BF0: 20 53 49 5A 45 20 4F 46 20 22 4D 32 22 20 42 4C | SIZE OF "M2" BL|
00000C00: 4F 43 4B 53 2C 22 3B 00 35 14 28 03 99 20 22 54 |OCKS,";.5.(.. "T|
00000C10: 55 52 4E 20 43 4F 4D 50 55 54 45 52 20 4F 46 46 |URN COMPUTER OFF|
00000C20: 2F 4F 4E 20 41 4E 44 20 52 45 4C 4F 41 44 20 50 |/ON AND RELOAD P|
00000C30: 52 4F 47 2E 22 00 71 14 29 03 99 3A 99 22 20 20 |ROG.".q.)..:." |
00000C40: 52 45 41 44 2F 57 52 49 54 45 20 52 41 54 45 20 |READ/WRITE RATE |
00000C50: 49 53 20 41 50 50 52 4F 58 49 4D 41 54 45 4C 59 |IS APPROXIMATELY|
00000C60: 20 36 20 42 4C 4F 43 4B 53 2F 4D 49 4E 55 54 45 | 6 BLOCKS/MINUTE|
00000C70: 22 00 9B 14 2A 03 99 3A 99 20 22 49 4E 50 55 54 |"...*..:. "INPUT|
00000C80: 20 4E 41 4D 45 20 4F 46 20 46 49 4C 45 20 54 4F | NAME OF FILE TO|
00000C90: 20 42 45 20 43 4F 50 49 45 44 22 00 A7 14 34 03 | BE COPIED"...4.|
00000CA0: 85 20 46 49 4C 45 24 00 C5 14 3E 03 99 3A 99 20 |. FILE$...>..:. |
00000CB0: 22 20 20 20 49 4E 50 55 54 20 46 49 4C 45 20 54 |" INPUT FILE T|
00000CC0: 59 50 45 3A 22 00 DC 14 48 03 99 20 22 20 20 20 |YPE:"...H.. " |
00000CD0: 20 20 50 20 50 52 4F 47 52 41 4D 22 00 F6 14 52 | P PROGRAM"...R|
00000CE0: 03 99 20 22 20 20 20 20 20 53 20 53 45 51 55 45 |.. " S SEQUE|
00000CF0: 4E 54 49 41 4C 22 00 0A 15 5C 03 99 20 22 20 20 |NTIAL"...\.. " |
00000D00: 20 20 20 55 20 55 53 45 52 22 00 22 15 66 03 99 | U USER".".f..|
00000D10: 20 22 20 20 20 20 20 52 20 52 45 4C 41 54 49 56 | " R RELATIV|
00000D20: 45 22 00 2E 15 70 03 85 20 54 59 50 45 24 00 5E |E"...p.. TYPE$.^|
00000D30: 15 7A 03 99 3A 99 20 22 49 4E 53 45 52 54 20 53 |.z..:. "INSERT S|
00000D40: 4F 55 52 43 45 20 44 49 53 4B 20 41 4E 44 20 50 |OURCE DISK AND P|
00000D50: 52 45 53 53 20 3C 52 45 54 55 52 4E 3E 22 00 77 |RESS <RETURN>".w|
00000D60: 15 84 03 A1 20 57 24 3A 8B 20 57 24 B2 22 22 20 |.... W$:. W$."" |
00000D70: A7 20 89 20 39 30 30 00 98 15 8E 03 8D 20 31 30 |. . 900...... 10|
00000D80: 30 30 3A 8F 20 52 45 41 44 20 46 49 4C 45 20 49 |00:. READ FILE I|
00000D90: 4E 54 4F 20 54 45 4D 50 00 CB 15 98 03 99 3A 99 |NTO TEMP......:.|
00000DA0: 20 22 49 4E 53 45 52 54 20 44 45 53 54 49 4E 41 | "INSERT DESTINA|
00000DB0: 54 49 4F 4E 20 44 49 53 4B 20 20 41 4E 44 20 50 |TION DISK AND P|
00000DC0: 52 45 53 53 20 3C 52 45 54 3E 22 00 E4 15 A2 03 |RESS <RET>".....|
00000DD0: A1 20 57 24 3A 8B 20 57 24 B2 22 22 20 A7 20 89 |. W$:. W$."" . .|
00000DE0: 20 39 33 30 00 07 16 AC 03 8D 20 31 30 35 30 3A | 930...... 1050:|
00000DF0: 8F 20 57 52 49 54 45 20 46 49 4C 45 20 46 52 4F |. WRITE FILE FRO|
00000E00: 4D 20 54 45 4D 50 24 00 28 16 B6 03 99 3A 99 20 |M TEMP$.(....:. |
00000E10: 22 4D 41 4B 45 20 41 4E 4F 54 48 45 52 20 43 4F |"MAKE ANOTHER CO|
00000E20: 50 59 22 3B 3A 85 57 24 00 42 16 C0 03 8B 20 C8 |PY";:.W$.B.... .|
00000E30: 28 57 24 2C 31 29 B2 22 59 22 20 A7 20 89 20 39 |(W$,1)."Y" . . 9|
00000E40: 32 30 00 4D 16 CA 03 89 20 31 31 30 30 00 69 16 |20.M.... 1100.i.|
00000E50: D4 03 8F 20 2D 20 43 48 45 43 4B 20 46 4F 52 20 |... - CHECK FOR |
00000E60: 47 4F 4F 44 20 4F 50 45 4E 00 7D 16 D9 03 84 31 |GOOD OPEN.}....1|
00000E70: 35 2C 41 24 2C 42 24 2C 43 24 2C 44 24 00 8F 16 |5,A$,B$,C$,D$...|
00000E80: DE 03 8B 20 C5 28 41 24 29 B2 30 20 A7 20 8E 00 |... .(A$).0 . ..|
00000E90: A8 16 E3 03 99 20 41 24 2C 42 24 2C 43 24 2C 44 |..... A$,B$,C$,D|
00000EA0: 24 3A A0 20 31 35 3A 90 00 C5 16 E8 03 8F 20 2D |$:. 15:....... -|
00000EB0: 20 52 45 41 44 20 46 49 4C 45 20 49 4E 54 4F 20 | READ FILE INTO |
00000EC0: 54 45 4D 50 25 00 CD 16 EA 03 49 B2 31 00 DB 16 |TEMP%.....I.1...|
00000ED0: EC 03 9F 20 31 35 2C 38 2C 31 35 00 01 17 EE 03 |... 15,8,15.....|
00000EE0: 9F 20 35 2C 38 2C 35 2C 22 30 3A 22 AA 46 49 4C |. 5,8,5,"0:".FIL|
00000EF0: 45 24 AA 22 2C 22 AA 54 59 50 45 24 AA 22 2C 52 |E$.",".TYPE$.",R|
00000F00: 22 00 0B 17 F0 03 8D 20 39 38 30 00 2A 17 F1 03 |"...... 980.*...|
00000F10: 99 20 22 20 20 20 20 20 4E 4F 57 20 52 45 41 44 |. " NOW READ|
00000F20: 49 4E 47 20 2E 20 2E 20 2E 22 00 35 17 F2 03 A1 |ING . . .".5....|
00000F30: 23 35 2C 41 24 00 4D 17 F4 03 54 45 4D 50 25 28 |#5,A$.M...TEMP%(|
00000F40: 49 29 B2 C6 28 41 24 AA C7 28 30 29 29 00 57 17 |I)..(A$..(0)).W.|
00000F50: F6 03 49 B2 49 AA 31 00 69 17 F8 03 8B 20 53 54 |..I.I.1.i.... ST|
00000F60: B2 30 20 A7 20 31 30 31 30 00 9E 17 FA 03 99 3A |.0 . 1010......:|
00000F70: 99 20 22 46 49 4C 45 3D 3F 20 22 3B 46 49 4C 45 |. "FILE=? ";FILE|
00000F80: 24 2C 22 53 54 3D 22 3B 53 54 2C 22 42 59 54 45 |$,"ST=";ST,"BYTE|
00000F90: 53 3D 22 3B 49 3A A0 20 35 3A A0 20 31 35 00 A4 |S=";I:. 5:. 15..|
00000FA0: 17 FC 03 8E 00 C2 17 1A 04 8F 20 2D 20 57 52 49 |.......... - WRI|
00000FB0: 54 45 20 46 49 4C 45 20 46 52 4F 4D 20 54 45 4D |TE FILE FROM TEM|
00000FC0: 50 25 00 D0 17 1C 04 9F 20 31 35 2C 38 2C 31 35 |P%...... 15,8,15|
00000FD0: 00 F6 17 1E 04 9F 20 35 2C 38 2C 35 2C 22 30 3A |...... 5,8,5,"0:|
00000FE0: 22 AA 46 49 4C 45 24 AA 22 2C 22 AA 54 59 50 45 |".FILE$.",".TYPE|
00000FF0: 24 AA 22 2C 57 22 00 00 18 20 04 8D 20 39 38 30 |$.",W"... .. 980|
00001000: 00 1F 18 21 04 99 20 22 20 20 20 20 20 4E 4F 57 |...!.. " NOW|
00001010: 20 57 52 49 54 49 4E 47 20 2E 20 2E 20 2E 22 00 | WRITING . . .".|
00001020: 27 18 22 04 4A B2 31 00 3B 18 24 04 98 35 2C C7 |'.".J.1.;.$..5,.|
00001030: 28 54 45 4D 50 25 28 4A 29 29 3B 00 45 18 26 04 |(TEMP%(J));.E.&.|
00001040: 4A B2 4A AA 31 00 56 18 28 04 8B 20 4A B3 49 20 |J.J.1.V.(.. J.I |
00001050: A7 20 31 30 36 30 00 81 18 2A 04 99 3A 99 20 22 |. 1060...*..:. "|
00001060: 46 49 4C 45 3D 20 22 3B 46 49 4C 45 24 2C 22 42 |FILE= ";FILE$,"B|
00001070: 59 54 45 53 3D 22 3B 4A 3A A0 20 35 3A A0 20 31 |YTES=";J:. 5:. 1|
00001080: 35 00 87 18 2C 04 8E 00 8D 18 4C 04 8E 00 B1 18 |5...,.....L.....|
00001090: B0 04 8F 20 2A 2A 2A 43 4F 50 59 20 42 4F 54 48 |... ***COPY BOTH|
000010A0: 20 44 4F 53 20 50 52 4F 47 52 41 4D 53 20 2A 2A | DOS PROGRAMS **|
000010B0: 2A 00 E9 18 B5 04 99 20 22 93 22 3A 99 20 22 49 |*...... ".":. "I|
000010C0: 4E 53 45 52 54 20 53 4F 55 52 43 45 20 44 49 53 |NSERT SOURCE DIS|
000010D0: 4B 20 57 49 54 48 20 57 45 44 47 45 20 41 4E 44 |K WITH WEDGE AND|
000010E0: 2F 4F 52 20 44 4F 53 22 3B 00 10 19 BA 04 99 20 |/OR DOS";...... |
000010F0: 22 20 50 52 4F 47 52 41 4D 28 53 29 20 41 4E 44 |" PROGRAM(S) AND|
00001100: 20 50 52 45 53 53 20 3C 52 45 54 55 52 4E 3E 22 | PRESS <RETURN>"|
00001110: 00 2A 19 BF 04 A1 20 57 24 3A 8B 20 57 24 B2 22 |.*.... W$:. W$."|
00001120: 22 20 A7 20 89 20 31 32 31 35 00 38 19 C2 04 54 |" . . 1215.8...T|
00001130: 59 50 45 24 B2 22 50 22 00 61 19 C3 04 8B 20 43 |YPE$."P".a.... C|
00001140: 30 B2 31 20 A7 20 46 49 4C 45 24 B2 22 56 49 43 |0.1 . FILE$."VIC|
00001150: 2D 32 30 20 57 45 44 47 45 22 3A 89 20 31 32 33 |-20 WEDGE":. 123|
00001160: 35 00 7F 19 C4 04 46 49 4C 45 24 B2 22 43 2D 36 |5.....FILE$."C-6|
00001170: 34 20 57 45 44 47 45 22 3A 8D 20 31 30 30 30 00 |4 WEDGE":. 1000.|
00001180: C6 19 C9 04 81 20 43 B2 31 20 A4 20 36 34 3A 44 |..... C.1 . 64:D|
00001190: 4F 53 25 28 43 29 B2 54 45 4D 50 25 28 43 29 3A |OS%(C).TEMP%(C):|
000011A0: 82 20 20 43 3A 8F 20 4D 4F 56 45 20 43 2D 36 34 |. C:. MOVE C-64|
000011B0: 20 57 45 44 47 45 20 54 4F 20 53 4D 41 4C 4C 20 | WEDGE TO SMALL |
000011C0: 42 55 46 46 45 52 00 DA 19 CE 04 46 49 4C 45 24 |BUFFER.....FILE$|
000011D0: B2 22 44 4F 53 20 35 2E 31 22 00 13 1A D3 04 8D |."DOS 5.1"......|
000011E0: 20 31 30 30 30 3A 99 3A 99 20 22 49 4E 53 45 52 | 1000:.:. "INSER|
000011F0: 54 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 |T DESTINATION DI|
00001200: 53 4B 20 41 4E 44 20 50 52 45 53 53 20 3C 52 45 |SK AND PRESS <RE|
00001210: 54 3E 22 00 2D 1A D8 04 A1 20 57 24 3A 8B 20 57 |T>".-.... W$:. W|
00001220: 24 B2 22 22 20 A7 20 89 20 31 32 34 30 00 43 1A |$."" . . 1240.C.|
00001230: DD 04 8D 20 31 30 35 30 3A 8B 20 43 30 B2 31 20 |... 1050:. C0.1 |
00001240: A7 20 8E 00 68 1A E2 04 81 20 43 B2 31 20 A4 20 |. ..h.... C.1 . |
00001250: 36 34 3A 54 45 4D 50 25 28 43 29 B2 44 4F 53 25 |64:TEMP%(C).DOS%|
00001260: 28 43 29 3A 82 20 20 43 00 9E 1A E7 04 46 49 4C |(C):. C.....FIL|
00001270: 45 24 B2 22 43 2D 36 34 20 57 45 44 47 45 22 3A |E$."C-64 WEDGE":|
00001280: 49 B2 36 34 3A 8D 20 31 30 35 30 3A 8F 20 57 52 |I.64:. 1050:. WR|
00001290: 49 54 45 20 43 2D 36 34 20 57 45 44 47 45 00 A4 |ITE C-64 WEDGE..|
000012A0: 1A 0A 05 8E 00 00 00 |....... |
..3.... COMPUTE!'S GAZETTE - DEC. 1983 -
PAGE 130.[.... 49152,10:. B(49152)..1
0 . C0.1:.6.D...C0.2.S.... DOS%(65).....
FR..(0):. FR.0 . FR.FR.65536.....S.(FR.4
00).2:M2..(S.256).1.B.... TEMP%(S).L....
".";......" ******************"......"
* DISK MANAGER *". ...." ***********
*******".:.2..:."1.DISK DIRECTORY".S.<..
"2.FORMAT NEW DISK".L.F.."3.INITIALIZE D
ISK"...P.."4.COPY FILE ON SAME DISK"...U
.."5.COPY FILE ON NEW (FORMATTED) DISK".
..X.."6.COPY BOTH DOS WEDGE PROGRAMS"...
Z.."7.RENAME FILE"...D.."8.ERASE FILE(S)
".!.N.."9.VALIDATE FILES".>.X.."10.WRITE
DISK MANAGER".U...."11.ERROR STATUS".P.
..."12.EXIT TO BASIC":.:......"CHOICE
....";CHOICE...... (CHOICE.1).(CHOICE.1
2). .".";:.170...H.. CHOICE . 250,300,35
0,400,800,1200,450,500,550,600,650,700..
.R.. 10...... *** DISPLAY DIRECTORY ***.
(....".".8.... 1,8,0,"$".G.... #1,A$,B$.
U....#1,A$,B$.D.... #1,A$,B$....C.0:. A
$.."". C. F(A$)...... B$.."". C.C. F(B$)
.256...... J(D(C),2);.3);.J....#1,B$:. S
T..0 . 282...... B$.. G(34) . 264......
#1,B$:. B$.. G(34) . . B$;:. 268.&.... #
1,B$:. B$. G(32) . 270.8.... .18)::C$.""
.\...C$.C$.B$:. #1,B$:. B$.."" . 274.J..
.. H(C$,3).{.... ST.0 . 254......" BLOCK
S FREE "..... 1:.:.:."HIT ANY KEY TO RE
TURN".J.".. X$:.X$."". 290.P.'.....,.. *
** FORMAT (NEW) DISK ***...-..".".".1.."
INSERT DISK TO BE":."FORMATTED.":..A.6..
"INPUT DISK NAME":. DISK$.E.@..:."INPUT
EXTENDER NAME":. EXT$...E.MACRO$."N0:".D
ISK$.",".EXT$...J.. 15,8,15,MACRO$...T.
15:MACRO$."":..M.^.. *** INITIALIZE DIS
K ***.V.C.."."...H.."INSERT DISK TO BE":
."INITIALIZED.":..+.R.."HIT <RETURN> TO"
:."INITIALIZE":. X$.=.|.. 15,8,15,"I".H.
.. 15:..M.... *** COPY FILE ON SAME DIS
K ***.Z....".":.:.. ...."INPUT SOURCE FI
LE NAME":. DISK$.D....:."INPUT NEW FILE
NAME":. NWS$.....MACRO$."C:".NWS$."=".DI
SK$...... 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,M
ACRO$.B... 15:MACRO$."":....... *** ERA
SE FILE ***......".":.:......."INPUT FIL
E NAME(S) TO DELETE":. DISK$.5....:.:."H
IT ANY KEY TO DELETE".L.... X$:. X$."" .
525.C...MACRO$."S0:".DISK$.X.... 15,8,1
5,MACRO$..... 15:MACRO$."":....&.. ***
VALIDATE FILES ***...+..".":.:....0.."WA
RNING:OPEN FILES ":."WILL BE DELETED"...
:..:.:."HIT ANY KEY TO VALIDATE"...?.. X
$:. X$."" . 575.0.D.. 1,8,15,"V".:.N. 1
:..`.X.. ** WRITE DISKMANAGER PROGRAM **
.M.]..".":.:....B.."INSERT DISK TO BE WR
ITTEN TO.":..A.L..:.:."HIT ANY KEY TO WR
ITE DISK MANAGER".X.N.. X$:. X$."" . 622
...Q.. 1,8,15...V.. "@0:DISKMANAGER",8..
.{. 1......./.... *** DISPLAY ERROR STA
TUS ***.<....15,8,15.P....15,A$,B$,C$,D$
.]....".":.:......."ERROR STATUS: "B$:.
:."ERROR NUMBER: "A$......:.:."HIT ANY
KEY TO RETURN".D.... X$:. X$."". 695.O..
. 15:....... *** RETURN TO BASIC ***...
A..".":.:..-.F.. "NOTE:DISKMANAGER PROGR
AM IS STILL RESIDENT".3.P...W. .. *** CO
PY FILE ON NEW DISK ***.A.!.. ".".J.".
15.{.#.MAX..(S.256)...$.. " MAXIMUM SIZ
E OF FILE WHICH CAN BE COPIED IS "MAX" B
LOCKS":..V.&.. MAX..M2 . . 809...'.. "
FOR MAXIMUM COPY SIZE OF "M2" BLOCKS,";.
5.(.. "TURN COMPUTER OFF/ON AND RELOAD P
ROG.".Q.)..:." READ/WRITE RATE IS APPRO
XIMATELY 6 BLOCKS/MINUTE"...*..:. "INPUT
NAME OF FILE TO BE COPIED"...4.. FILE$.
E.>..:. " INPUT FILE TYPE:"...H.. "
P PROGRAM"...R.. " S SEQUENTIAL"..
.\.. " U USER".".F.. " R RELATIV
E"...P.. TYPE$.^.Z..:. "INSERT SOURCE DI
SK AND PRESS <RETURN>".W.... W$:. W$.""
. . 900...... 1000:. READ FILE INTO TEMP
.K....:. "INSERT DESTINATION DISK AND P
RESS <RET>"...... W$:. W$."" . . 930....
.. 1050:. WRITE FILE FROM TEMP$.(....:.
"MAKE ANOTHER COPY";:.W$.B.... H(W$,1)."
Y" . . 920.M.J.. 1100.I.T.. - CHECK FOR
GOOD OPEN.}.Y..15,A$,B$,C$,D$...... E(A$
).0 . ....... A$,B$,C$,D$: 15:..E.... -
READ FILE INTO TEMP%.M...I.1...... 15,8
,15...... 5,8,5,"0:".FILE$.",".TYPE$.",R
"...... 980.*.... " NOW READING . .
.".5....#5,A$.M...TEMP%(I).F(A$.G(0)).W.
..I.I.1.I.... ST.0 . 1010......:. "FILE=
? ";FILE$,"ST=";ST,"BYTES=";I: 5: 15..
.....B.... - WRITE FILE FROM TEMP%.P....
15,8,15...... 5,8,5,"0:".FILE$.",".TYPE
$.",W"... .. 980...!.. " NOW WRITING
. . .".'.".J.1.;.$..5,G(TEMP%(J));.E.&.
J.J.1.V.(.. J.I . 1060...*..:. "FILE= ";
FILE$,"BYTES=";J: 5: 15...,.....L.....
... ***COPY BOTH DOS PROGRAMS ***......
".":. "INSERT SOURCE DISK WITH WEDGE AND
/OR DOS";...... " PROGRAM(S) AND PRESS <
RETURN>".*.... W$:. W$."" . . 1215.8.B.T
YPE$."P".A.C.. C0.1 . FILE$."VIC-20 WEDG
E":. 1235..D.FILE$."C-64 WEDGE":. 1000.
F.I.. C.1 . 64:DOS%(C).TEMP%(C):. C:. M
OVE C-64 WEDGE TO SMALL BUFFER.Z.N.FILE$
."DOS 5.1"...S.. 1000:.:. "INSERT DESTIN
ATION DISK AND PRESS <RET>".-.X.. W$:. W
$."" . . 1240.C.... 1050:. C0.1 . ..H...
. C.1 . 64:TEMP%(C).DOS%(C):. C.....FIL
E$."C-64 WEDGE":I.64:. 1050:. WRITE C-64
WEDGE.........
> CLICK IMAGE PREVIEW FOR FULL MODAL