4040 COMMANDS.C
FILE INFORMATION
FILENAME(S): 4040 COMMANDS.C
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 01:08:00
APPEARS ON: 3 disk(s)
FILE HASH
f72bcb9b2d366a3ed29ba1afc05832cf79b390e90e501f67fef1571f55349e17
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | 4040 COMMANDS.C | PRG | Treasure Chest - Wolfgang Rauprich | 1 | 0 | DOWNLOAD FILE |
| U TILITIE | 4040 COMMANDS.C | PRG | Treasure Chest - Wolfgang Rauprich | 1 | 0 | DOWNLOAD FILE |
| TPUG JAN 84 C | 4040 COMMANDS.C | PRG | DuncanTwain | 11 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..)....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2F 08 01 00 8F 00 |*********./.....|
00000030: 51 08 02 00 8F 20 20 20 20 20 20 43 36 34 20 34 |Q.... C64 4|
00000040: 30 34 30 20 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 |040 DISK COMMAND|
00000050: 53 00 75 08 03 00 8F 20 20 20 20 49 45 45 45 20 |S.u.... IEEE |
00000060: 49 4E 54 45 52 46 41 43 45 20 49 53 20 52 45 51 |INTERFACE IS REQ|
00000070: 55 49 52 45 44 00 7B 08 04 00 8F 00 97 08 05 00 |UIRED.{.........|
00000080: 8F 20 20 20 20 20 20 20 20 20 20 20 44 41 56 49 |. DAVI|
00000090: 44 20 42 59 52 55 4D 00 B8 08 06 00 8F 20 20 20 |D BYRUM...... |
000000A0: 20 20 20 33 33 30 31 20 45 2E 20 46 54 2E 20 4C | 3301 E. FT. L|
000000B0: 4F 57 45 4C 4C 20 52 44 00 DC 08 07 00 8F 20 20 |OWELL RD...... |
000000C0: 20 54 55 43 53 4F 4E 2C 20 41 5A 20 38 35 37 31 | TUCSON, AZ 8571|
000000D0: 36 20 2F 20 37 39 35 2D 32 39 32 38 00 E2 08 08 |6 / 795-2928....|
000000E0: 00 8F 00 0A 09 09 00 8F 2A 2A 2A 2A 2A 2A 2A 2A |........********|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3A 09 64 00 97 |**********.:.d..|
00000110: 20 35 33 32 38 30 2C 34 3A 97 20 35 33 32 38 31 | 53280,4:. 53281|
00000120: 2C 36 3A 97 20 37 38 38 2C 35 32 3A 99 20 C7 28 |,6:. 788,52:. .(|
00000130: 31 34 29 3A 8D 31 30 30 30 30 00 6E 09 6E 00 99 |14):.10000.n.n..|
00000140: 22 93 90 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 81 34 |"..********** .4|
00000150: 30 34 30 20 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 |040 DISK COMMAND|
00000160: 53 90 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 9C |S. **********"..|
00000170: 09 78 00 99 A3 35 29 22 90 C6 20 31 20 20 9E 3D |.x...5)".. 1 .=|
00000180: 20 20 1E C4 55 50 4C 49 43 41 54 45 20 C4 49 53 | ..UPLICATE .IS|
00000190: 4B 20 28 C4 31 20 3D 20 C4 30 29 22 00 CC 09 7D |K (.1 = .0)"...}|
000001A0: 00 99 A3 35 29 22 11 90 C6 20 32 20 20 9E 3D 20 |...5)"... 2 .= |
000001B0: 20 1E C3 4F 50 59 20 41 20 46 49 4C 45 20 46 52 | ..OPY A FILE FR|
000001C0: 4F 4D 20 C4 30 20 54 4F 20 C4 31 22 00 F6 09 82 |OM .0 TO .1"....|
000001D0: 00 99 A3 35 29 22 11 11 90 C6 20 33 20 20 9E 3D |...5)".... 3 .=|
000001E0: 20 20 1E C9 4E 49 54 49 41 4C 49 5A 45 20 41 20 | ..NITIALIZE A |
000001F0: C4 52 49 56 45 22 00 1C 0A 87 00 99 A3 35 29 22 |.RIVE".......5)"|
00000200: 11 90 C6 20 34 20 20 9E 3D 20 20 1E D6 41 4C 49 |... 4 .= ..ALI|
00000210: 44 41 54 45 20 41 20 C4 49 53 4B 22 00 42 0A 8C |DATE A .ISK".B..|
00000220: 00 99 A3 35 29 22 11 11 90 C6 20 35 20 20 9E 3D |...5)".... 5 .=|
00000230: 20 20 1E C4 49 53 4B 20 C4 49 52 45 43 54 4F 52 | ..ISK .IRECTOR|
00000240: 59 22 00 70 0A 91 00 99 A3 35 29 22 11 90 C6 20 |Y".p.....5)"... |
00000250: 36 20 20 9E 3D 20 20 1E C6 4F 52 4D 41 54 45 20 |6 .= ..ORMATE |
00000260: C4 49 53 4B 20 49 4E 20 C4 52 49 56 45 20 31 22 |.ISK IN .RIVE 1"|
00000270: 00 9C 0A 96 00 99 A3 35 29 22 11 11 90 C6 20 37 |.......5)".... 7|
00000280: 20 20 9E 3D 20 20 1E C4 45 54 45 52 4D 49 4E 45 | .= ..ETERMINE|
00000290: 20 C4 49 53 4B 20 C5 52 52 4F 52 22 00 C0 0A 9B | .ISK .RROR"....|
000002A0: 00 99 A3 35 29 22 11 90 C6 20 38 20 20 9E 3D 20 |...5)"... 8 .= |
000002B0: 20 1E D2 45 4E 41 4D 45 20 41 20 46 49 4C 45 22 | ..ENAME A FILE"|
000002C0: 00 F1 0A AA 00 99 22 90 B9 B9 B9 B9 B9 B9 B9 B9 |......".........|
000002D0: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
000002E0: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
000002F0: 22 00 07 0B C8 00 A1 5A 24 3A 8B 20 5A 24 B2 22 |"......Z$:. Z$."|
00000300: 22 20 A7 20 32 30 30 00 3C 0B D2 00 8B 20 5A 24 |" . 200.<.... Z$|
00000310: B2 22 85 22 20 A7 20 8D 20 31 30 30 30 20 3A 8F |."." . . 1000 :.|
00000320: 20 46 31 20 2D 20 44 55 50 4C 49 43 41 54 45 20 | F1 - DUPLICATE |
00000330: 44 49 53 4B 20 28 44 31 3D 44 30 29 00 74 0B D7 |DISK (D1=D0).t..|
00000340: 00 8B 20 5A 24 B2 22 89 22 20 A7 20 8D 20 31 35 |.. Z$."." . . 15|
00000350: 30 30 20 3A 8F 20 46 32 20 2D 20 43 4F 50 59 20 |00 :. F2 - COPY |
00000360: 41 20 46 49 4C 45 20 46 52 4F 4D 20 44 30 20 54 |A FILE FROM D0 T|
00000370: 4F 20 44 31 00 A5 0B DC 00 8B 20 5A 24 B2 22 86 |O D1...... Z$.".|
00000380: 22 20 A7 20 8D 20 32 35 30 30 20 3A 8F 20 46 33 |" . . 2500 :. F3|
00000390: 20 2D 20 49 4E 49 54 49 41 4C 49 5A 45 20 44 52 | - INITIALIZE DR|
000003A0: 49 56 45 20 30 00 D4 0B E1 00 8B 20 5A 24 B2 22 |IVE 0...... Z$."|
000003B0: 8A 22 20 A7 20 8D 20 32 30 30 30 20 3A 8F 20 46 |." . . 2000 :. F|
000003C0: 34 20 2D 20 56 41 4C 49 44 41 54 45 20 44 31 20 |4 - VALIDATE D1 |
000003D0: 44 49 53 4B 00 F9 0B E6 00 8B 20 5A 24 B2 22 87 |DISK...... Z$.".|
000003E0: 22 20 A7 20 8D 20 33 30 30 30 20 3A 8F 20 46 35 |" . . 3000 :. F5|
000003F0: 20 2D 20 44 49 53 4B 20 DA 00 2B 0C EB 00 8B 20 | - DISK ..+.... |
00000400: 5A 24 B2 22 8B 22 20 A7 20 8D 20 33 35 30 30 20 |Z$."." . . 3500 |
00000410: 3A 8F 20 46 36 20 2D 20 46 4F 52 4D 41 54 45 20 |:. F6 - FORMATE |
00000420: 4E 45 57 20 44 31 20 44 49 53 4B 00 5E 0C F0 00 |NEW D1 DISK.^...|
00000430: 8B 20 5A 24 B2 22 88 22 20 A7 20 8D 20 34 30 30 |. Z$."." . . 400|
00000440: 30 20 3A 8F 20 46 37 20 2D 20 44 45 54 45 52 4D |0 :. F7 - DETERM|
00000450: 49 4E 45 20 44 49 53 4B 20 45 52 52 4F 52 00 8A |INE DISK ERROR..|
00000460: 0C FA 00 8B 20 5A 24 B2 22 8C 22 20 A7 20 8D 20 |.... Z$."." . . |
00000470: 34 35 30 30 20 3A 8F 20 46 38 20 2D 20 52 45 4E |4500 :. F8 - REN|
00000480: 41 4D 45 20 41 20 46 49 4C 45 00 C1 0C 04 01 8B |AME A FILE......|
00000490: 20 5A 24 B2 22 13 22 20 A7 20 8D 20 35 30 30 30 | Z$."." . . 5000|
000004A0: 20 3A 8F 20 43 4F 4E 54 52 4F 4C 20 53 20 2D 20 | :. CONTROL S - |
000004B0: 53 43 52 41 54 43 48 20 41 20 50 52 4F 47 52 41 |SCRATCH A PROGRA|
000004C0: 4D 00 F7 0C 0E 01 8B 20 5A 24 B2 22 11 22 20 A7 |M...... Z$."." .|
000004D0: 20 39 30 30 30 20 20 20 20 20 20 20 3A 8F 20 43 | 9000 :. C|
000004E0: 4F 4E 54 52 4F 4C 20 51 20 2D 20 51 55 49 54 20 |ONTROL Q - QUIT |
000004F0: 50 52 4F 47 52 41 4D 00 01 0D 22 01 89 20 31 31 |PROGRAM...".. 11|
00000500: 30 00 26 0D E8 03 8F 20 2D 2D 2D 2D 2D 20 42 41 |0.&.... ----- BA|
00000510: 43 4B 55 50 20 44 30 20 54 4F 20 44 31 20 2D 2D |CKUP D0 TO D1 --|
00000520: 2D 2D 2D 2D 2D 2D 00 64 0D F2 03 97 20 32 31 34 |------.d.... 214|
00000530: 2C 32 33 3A 99 22 91 81 20 C4 55 50 4C 49 43 41 |,23:.".. .UPLICA|
00000540: 54 49 4E 47 20 C4 49 53 4B 20 49 4E 20 90 C4 52 |TING .ISK IN ..R|
00000550: 49 56 45 20 30 90 20 81 54 4F 20 90 C4 52 49 56 |IVE 0. .TO ..RIV|
00000560: 45 20 31 22 00 72 0D FC 03 9F 20 31 35 2C 38 2C |E 1".r.... 15,8,|
00000570: 31 35 00 88 0D 06 04 98 31 35 2C 22 44 31 3D 30 |15......15,"D1=0|
00000580: 22 3A 8D 20 34 30 32 30 00 91 0D 10 04 A0 20 31 |":. 4020...... 1|
00000590: 35 00 97 0D 1A 04 8E 00 BC 0D DC 05 8F 20 2D 2D |5............ --|
000005A0: 2D 2D 2D 2D 2D 20 43 4F 50 59 20 41 20 46 49 4C |----- COPY A FIL|
000005B0: 45 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 E9 0D E6 |E ----------....|
000005C0: 05 97 20 32 31 34 2C 32 33 3A 85 22 91 81 D0 52 |.. 214,23:."...R|
000005D0: 4F 47 52 41 4D 20 54 4F 20 42 45 20 43 4F 50 49 |OGRAM TO BE COPI|
000005E0: 45 44 20 9A 22 3B 50 47 24 00 19 0E EB 05 99 22 |ED .";PG$......"|
000005F0: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000610: 20 20 20 20 20 20 20 20 22 00 3B 0E F0 05 99 22 | ".;...."|
00000620: 91 81 20 C3 CF D0 D9 C9 CE C7 A0 9B 22 3B 50 47 |.. .........";PG|
00000630: 24 3B 22 81 20 54 4F 20 C4 31 22 00 49 0E FA 05 |$;". TO .1".I...|
00000640: 9F 20 31 35 2C 38 2C 31 35 00 6C 0E 04 06 98 31 |. 15,8,15.l....1|
00000650: 35 2C 22 43 31 3A 22 AA 50 47 24 AA 22 3D 30 3A |5,"C1:".PG$."=0:|
00000660: 22 AA 50 47 24 3A 8D 20 34 30 32 30 00 75 0E 0E |".PG$:. 4020.u..|
00000670: 06 A0 20 31 35 00 7B 0E 18 06 8E 00 A0 0E D0 07 |.. 15.{.........|
00000680: 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 20 56 41 4C 49 44 |. -------- VALID|
00000690: 41 54 45 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |ATE ------------|
000006A0: 00 D5 0E D5 07 97 20 32 31 34 2C 32 33 3A 85 22 |...... 214,23:."|
000006B0: 91 81 D5 53 49 4E 47 20 C4 D2 C9 D6 C5 20 90 30 |...SING ..... .0|
000006C0: 81 20 4F 52 20 90 31 1D 1D 1D 1D 31 9D 9D 9D 9F |. OR .1....1....|
000006D0: 22 3B 44 52 24 00 04 0F DA 07 99 22 91 20 20 20 |";DR$......". |
000006E0: 20 20 20 20 81 D6 41 4C 49 44 41 54 49 4E 47 20 | ..ALIDATING |
000006F0: C4 49 53 4B 20 49 4E 20 90 C4 52 49 56 45 20 22 |.ISK IN ..RIVE "|
00000700: 3B 44 52 24 00 12 0F E4 07 9F 20 31 35 2C 38 2C |;DR$...... 15,8,|
00000710: 31 35 00 29 0F EE 07 98 31 35 2C 22 56 22 AA 44 |15.)....15,"V".D|
00000720: 52 24 3A 8D 20 34 30 32 30 00 32 0F F8 07 A0 20 |R$:. 4020.2.... |
00000730: 31 35 00 38 0F 02 08 8E 00 5D 0F C4 09 8F 20 2D |15.8.....].... -|
00000740: 2D 2D 2D 2D 2D 2D 20 49 4E 49 54 49 41 4C 49 5A |------ INITIALIZ|
00000750: 45 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 92 0F |E------------...|
00000760: C9 09 97 20 32 31 34 2C 32 33 3A 85 22 91 81 D5 |... 214,23:."...|
00000770: 53 49 4E 47 20 C4 D2 C9 D6 C5 20 90 30 81 20 4F |SING ..... .0. O|
00000780: 52 20 90 31 1D 1D 1D 1D 30 9D 9D 9D 9F 22 3B 44 |R .1....0....";D|
00000790: 52 24 00 BC 0F CE 09 99 22 91 20 20 20 20 20 20 |R$......". |
000007A0: 20 20 20 81 C9 4E 49 54 49 41 4C 49 5A 49 4E 47 | ..NITIALIZING|
000007B0: 20 90 C4 52 49 56 45 20 22 44 52 24 00 CA 0F D8 | ..RIVE "DR$....|
000007C0: 09 9F 20 31 35 2C 38 2C 31 35 00 E1 0F E2 09 98 |.. 15,8,15......|
000007D0: 31 35 2C 22 49 22 AA 44 52 24 3A 8D 20 34 30 32 |15,"I".DR$:. 402|
000007E0: 30 00 EA 0F EC 09 A0 20 31 35 00 F0 0F F6 09 8E |0...... 15......|
000007F0: 00 15 10 B8 0B 8F 20 2D 2D 2D 2D 2D 2D 2D 20 44 |...... ------- D|
00000800: 49 52 45 43 54 4F 52 59 20 2D 2D 2D 2D 2D 2D 2D |IRECTORY -------|
00000810: 2D 2D 2D 2D 2D 00 49 10 C2 0B 97 20 32 31 34 2C |-----.I.... 214,|
00000820: 32 33 3A 85 22 91 81 D5 53 49 4E 47 20 C4 D2 C9 |23:."...SING ...|
00000830: D6 C5 20 90 30 81 20 4F 52 20 90 31 1D 1D 1D 1D |.. .0. OR .1....|
00000840: 31 9D 9D 9D 9F 22 3B 44 52 00 6C 10 CC 0B 99 22 |1....";DR.l...."|
00000850: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000860: 20 20 20 20 20 20 20 20 20 20 20 22 00 86 10 D6 | "....|
00000870: 0B 8B 20 44 52 B3 B1 30 20 AF 20 44 52 B3 B1 31 |.. DR..0 . DR..1|
00000880: 20 A7 33 30 31 30 00 AF 10 E0 0B 8B 20 44 52 B2 | .3010...... DR.|
00000890: 30 20 A7 20 97 20 38 33 39 2C 34 38 3A 9E 20 38 |0 . . 839,48:. 8|
000008A0: 32 38 3A 8B 20 45 B1 31 39 20 A7 33 30 38 30 00 |28:. E.19 .3080.|
000008B0: D8 10 EA 0B 8B 20 44 52 B2 31 20 A7 20 97 20 38 |..... DR.1 . . 8|
000008C0: 33 39 2C 34 39 3A 9E 20 38 32 38 3A 8B 20 45 B1 |39,49:. 828:. E.|
000008D0: 31 39 20 A7 33 30 38 30 00 FD 10 F4 0B 99 A3 36 |19 .3080.......6|
000008E0: 29 22 11 11 90 D0 52 45 53 53 20 05 D2 45 54 55 |)"....RESS ..ETU|
000008F0: 52 4E 90 20 46 4F 52 20 4D 45 4E 55 22 00 17 11 |RN. FOR MENU"...|
00000900: FE 0B A1 5A 24 3A 8B 20 5A 24 B3 B1 C7 28 31 33 |...Z$:. Z$...(13|
00000910: 29 20 A7 33 30 37 30 00 1D 11 08 0C 8E 00 42 11 |) .3070.......B.|
00000920: AC 0D 8F 20 2D 2D 2D 2D 2D 2D 2D 20 4E 45 57 20 |... ------- NEW |
00000930: 48 45 41 44 45 52 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |HEADER ---------|
00000940: 2D 2D 00 7B 11 B6 0D 44 48 24 B2 22 22 3A 97 20 |--.{...DH$."":. |
00000950: 32 31 34 2C 32 33 3A 85 22 91 81 C4 49 53 4B 20 |214,23:."...ISK |
00000960: C8 C5 C1 C4 C5 D2 20 90 22 3B 44 48 24 3A 44 48 |...... .";DH$:DH|
00000970: 24 B2 C8 28 44 48 24 2C 31 36 29 00 A3 11 C0 0D |$..(DH$,16).....|
00000980: 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009A0: 20 20 22 00 C1 11 CA 0D 8B 20 44 48 24 B2 22 22 | "...... DH$.""|
000009B0: 20 A7 20 44 48 24 B2 22 4E 45 57 20 44 49 53 4B | . DH$."NEW DISK|
000009C0: 22 00 EC 11 D4 0D 97 20 32 31 34 2C 32 33 3A 99 |"...... 214,23:.|
000009D0: A3 39 29 22 91 81 20 C6 CF D2 CD C1 D4 C9 CE C7 |.9)".. .........|
000009E0: 20 C1 20 CE C5 D7 A0 C4 C9 D3 CB 22 00 FA 11 DE | . ........"....|
000009F0: 0D 9F 20 31 35 2C 38 2C 31 35 00 18 12 E8 0D 49 |.. 15,8,15.....I|
00000A00: 44 B2 B5 28 BB 28 54 49 29 AC 31 30 30 29 3A 49 |D..(.(TI).100):I|
00000A10: 44 24 B2 C4 28 49 44 29 00 38 12 F2 0D 98 31 35 |D$..(ID).8....15|
00000A20: 2C 22 4E 31 3A 22 AA 44 48 24 AA 22 2C 22 AA 49 |,"N1:".DH$.",".I|
00000A30: 44 24 3A 8D 34 30 32 30 00 41 12 FC 0D A0 20 31 |D$:.4020.A.... 1|
00000A40: 35 00 47 12 06 0E 8E 00 6C 12 A0 0F 8F 20 2D 2D |5.G.....l.... --|
00000A50: 2D 2D 2D 2D 2D 20 44 49 53 4B 20 45 52 52 4F 52 |----- DISK ERROR|
00000A60: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 7A 12 AA | -----------.z..|
00000A70: 0F 9F 20 31 35 2C 38 2C 31 35 00 87 12 B4 0F 84 |.. 15,8,15......|
00000A80: 31 35 2C 45 2C 45 24 00 9B 12 B9 0F 8B 20 5A 24 |15,E,E$...... Z$|
00000A90: B2 22 88 22 20 A7 20 34 30 34 30 00 AD 12 BE 0F |."." . 4040.....|
00000AA0: 8B 20 45 B3 32 30 20 A7 20 34 30 38 30 00 E6 12 |. E.20 . 4080...|
00000AB0: C8 0F 97 20 32 31 34 2C 32 33 3A 99 22 91 20 20 |... 214,23:.". |
00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AE0: 20 20 20 20 20 22 00 08 13 D2 0F 99 22 91 20 C4 | "......". .|
00000AF0: 49 53 4B 20 45 52 52 4F 52 20 81 22 3B 45 3B 22 |ISK ERROR .";E;"|
00000B00: 90 2D 20 81 22 3B 45 24 00 30 13 DC 0F 99 A3 36 |.- .";E$.0.....6|
00000B10: 29 22 11 90 D0 52 45 53 53 20 98 D2 45 54 55 52 |)"...RESS ..ETUR|
00000B20: 4E 90 20 54 4F 20 43 4F 4E 54 49 4E 55 45 91 22 |N. TO CONTINUE."|
00000B30: 00 4A 13 E6 0F A1 5A 24 3A 8B 20 5A 24 B3 B1 C7 |.J....Z$:. Z$...|
00000B40: 28 31 33 29 20 A7 34 30 37 30 00 55 13 F0 0F A0 |(13) .4070.U....|
00000B50: 20 31 35 3A 8E 00 7A 13 94 11 8F 20 2D 2D 2D 2D | 15:..z.... ----|
00000B60: 2D 20 52 45 4E 41 4D 45 20 41 20 46 49 4C 45 20 |- RENAME A FILE |
00000B70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 AF 13 9E 11 97 |----------......|
00000B80: 20 32 31 34 2C 32 33 3A 85 22 91 81 D5 53 49 4E | 214,23:."...SIN|
00000B90: 47 20 C4 D2 C9 D6 C5 20 90 30 81 20 4F 52 20 90 |G ..... .0. OR .|
00000BA0: 31 1D 1D 1D 1D 31 9D 9D 9D 9F 22 3B 44 52 24 00 |1....1....";DR$.|
00000BB0: D2 13 A8 11 99 22 91 20 20 20 20 20 20 20 20 20 |.....". |
00000BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BD0: 20 22 00 F2 13 B2 11 8B 20 44 52 24 B3 B1 22 30 | "...... DR$.."0|
00000BE0: 22 20 AF 20 44 52 24 B3 B1 22 31 22 20 A7 34 35 |" . DR$.."1" .45|
00000BF0: 31 30 00 0F 14 BC 11 85 22 91 81 CF 4C 44 20 C6 |10......"...LD .|
00000C00: 49 4C 45 20 CE 41 4D 45 20 9F 22 3B 4F 46 24 00 |ILE .AME .";OF$.|
00000C10: 2B 14 C6 11 85 22 81 CE 45 57 20 C6 49 4C 45 20 |+...."..EW .ILE |
00000C20: CE 41 4D 45 20 90 22 3B 4E 46 24 00 5B 14 D0 11 |.AME .";NF$.[...|
00000C30: 99 22 91 91 20 20 20 20 20 20 20 20 20 20 20 20 |.".. |
00000C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C50: 20 20 20 20 20 20 20 20 20 20 22 00 89 14 DA 11 | ".....|
00000C60: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C80: 20 20 20 20 20 20 20 20 22 00 B7 14 E4 11 97 20 | "...... |
00000C90: 32 31 34 2C 32 33 3A 99 22 91 81 D2 45 4E 41 4D |214,23:."...ENAM|
00000CA0: 49 4E 47 20 9F 22 3B 4F 46 24 3B 22 81 20 54 4F |ING .";OF$;". TO|
00000CB0: 20 90 22 3B 4E 46 24 00 C5 14 EE 11 9F 20 31 35 | .";NF$...... 15|
00000CC0: 2C 38 2C 31 35 00 EB 14 F8 11 98 31 35 2C 22 52 |,8,15......15,"R|
00000CD0: 22 AA 44 52 24 AA 22 3A 22 AA 4E 46 24 AA 22 3D |".DR$.":".NF$."=|
00000CE0: 22 AA 4F 46 24 3A 8D 34 30 32 30 00 F4 14 02 12 |".OF$:.4020.....|
00000CF0: A0 20 31 35 00 FA 14 0C 12 8E 00 1F 15 88 13 8F |. 15............|
00000D00: 20 2D 2D 2D 2D 2D 20 53 43 52 41 54 43 48 20 41 | ----- SCRATCH A|
00000D10: 20 46 49 4C 45 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 | FILE ---------.|
00000D20: 54 15 92 13 97 20 32 31 34 2C 32 33 3A 85 22 91 |T.... 214,23:.".|
00000D30: 81 D5 53 49 4E 47 20 C4 D2 C9 D6 C5 20 90 30 81 |..SING ..... .0.|
00000D40: 20 4F 52 20 90 31 1D 1D 1D 1D 31 9D 9D 9D 9F 22 | OR .1....1...."|
00000D50: 3B 44 52 24 00 77 15 9C 13 99 22 91 20 20 20 20 |;DR$.w....". |
00000D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D70: 20 20 20 20 20 20 22 00 97 15 A6 13 8B 20 44 52 | "...... DR|
00000D80: 24 B3 B1 22 30 22 20 AF 20 44 52 24 B3 B1 22 31 |$.."0" . DR$.."1|
00000D90: 22 20 A7 34 35 31 30 00 B3 15 B0 13 85 22 91 81 |" .4510......"..|
00000DA0: D3 43 52 41 54 43 48 20 C6 49 4C 45 20 9F 22 3B |.CRATCH .ILE .";|
00000DB0: 53 46 24 00 E2 15 C4 13 99 22 91 20 20 20 20 20 |SF$......". |
00000DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000DE0: 20 22 00 05 16 D8 13 97 20 32 31 34 2C 32 33 3A | "...... 214,23:|
00000DF0: 99 22 91 81 D3 43 52 41 54 43 48 49 4E 47 20 9F |."...CRATCHING .|
00000E00: 22 3B 53 46 24 00 13 16 E2 13 9F 20 31 35 2C 38 |";SF$...... 15,8|
00000E10: 2C 31 35 00 31 16 EC 13 98 31 35 2C 22 53 22 AA |,15.1....15,"S".|
00000E20: 44 52 24 AA 22 3A 22 AA 53 46 24 3A 8D 34 30 32 |DR$.":".SF$:.402|
00000E30: 30 00 3A 16 F6 13 A0 20 31 35 00 40 16 00 14 8E |0.:.... 15.@....|
00000E40: 00 65 16 28 23 8F 20 2D 2D 2D 2D 2D 2D 20 51 55 |.e.(#. ------ QU|
00000E50: 49 54 20 50 52 4F 47 52 41 4D 20 2D 2D 2D 2D 2D |IT PROGRAM -----|
00000E60: 2D 2D 2D 2D 2D 00 6E 16 32 23 A0 20 31 35 00 AD |-----.n.2#. 15..|
00000E70: 16 3C 23 97 20 32 31 34 2C 32 33 3A 99 A3 36 29 |.<#. 214,23:..6)|
00000E80: 22 91 C5 4E 44 20 4F 46 20 D0 52 4F 47 52 41 4D |"..ND OF .ROGRAM|
00000E90: 2E 2E 2E 2E 20 81 C7 4F 4F 44 42 59 45 2E 90 91 |.... ..OODBYE...|
00000EA0: 91 22 3A 97 20 37 38 38 2C 34 39 3A 80 00 D1 16 |.":. 788,49:....|
00000EB0: 10 27 8F 2D 2D 2D 2D 2D 20 4D 2E 4C 2E 20 44 49 |.'.----- M.L. DI|
00000EC0: 52 45 43 54 4F 52 59 20 2D 2D 2D 2D 2D 2D 2D 2D |RECTORY --------|
00000ED0: 2D 00 02 17 1A 27 99 22 93 22 3B A3 37 29 22 11 |-....'.".";.7)".|
00000EE0: 11 11 81 C5 4E 41 42 4C 49 4E 47 20 9F C9 4E 56 |....NABLING ..NV|
00000EF0: 49 53 49 42 4C 45 20 C4 49 52 45 43 54 4F 52 59 |ISIBLE .IRECTORY|
00000F00: 9A 22 00 28 17 24 27 81 20 49 20 B2 20 38 32 38 |.".(.$'. I . 828|
00000F10: 20 A4 20 39 37 31 3A 87 20 41 3A 97 20 49 2C 41 | . 971:. A:. I,A|
00000F20: 3A 54 B2 54 AA 41 3A 82 00 5B 17 2E 27 8B 20 54 |:T.T.A:..[..'. T|
00000F30: B3 B1 31 39 36 31 30 20 A7 20 99 22 12 05 45 52 |..19610 . ."..ER|
00000F40: 52 4F 52 20 49 4E 20 44 41 54 41 20 53 54 41 54 |ROR IN DATA STAT|
00000F50: 45 4D 45 4E 54 53 92 9A 22 3A 80 00 8C 17 38 27 |EMENTS..":....8'|
00000F60: 8B 20 C2 28 36 35 34 34 30 29 B2 31 33 35 20 A7 |. .(65440).135 .|
00000F70: 20 97 20 39 32 34 2C 31 38 39 3A 8F 20 55 53 45 | . 924,189:. USE|
00000F80: 20 2C 32 32 31 20 4F 4E 20 56 49 43 00 92 17 3D | ,221 ON VIC...=|
00000F90: 27 8E 00 B0 17 42 27 83 20 31 36 39 2C 31 2C 33 |'....B'. 169,1,3|
00000FA0: 32 2C 31 39 35 2C 32 35 35 2C 31 36 39 2C 33 36 |2,195,255,169,36|
00000FB0: 00 CF 17 4C 27 83 20 31 34 31 2C 32 34 30 2C 33 |...L'. 141,240,3|
00000FC0: 2C 31 36 39 2C 34 38 2C 31 34 31 2C 32 34 31 00 |,169,48,141,241.|
00000FD0: E9 17 56 27 83 20 33 2C 31 36 39 2C 31 2C 31 36 |..V'. 3,169,1,16|
00000FE0: 32 2C 38 2C 31 36 30 2C 30 00 08 18 60 27 83 20 |2,8,160,0...`'. |
00000FF0: 33 32 2C 31 38 36 2C 32 35 35 2C 31 36 39 2C 32 |32,186,255,169,2|
00001000: 2C 31 36 32 2C 32 34 30 00 26 18 6A 27 83 20 31 |,162,240.&.j'. 1|
00001010: 36 30 2C 33 2C 33 32 2C 31 38 39 2C 32 35 35 2C |60,3,32,189,255,|
00001020: 33 32 2C 31 39 32 00 46 18 74 27 83 20 32 35 35 |32,192.F.t'. 255|
00001030: 2C 31 36 39 2C 36 34 2C 33 32 2C 31 34 34 2C 32 |,169,64,32,144,2|
00001040: 35 35 2C 31 36 32 00 64 18 7E 27 83 20 31 2C 33 |55,162.d.~'. 1,3|
00001050: 32 2C 31 39 38 2C 32 35 35 2C 33 32 2C 31 34 34 |2,198,255,32,144|
00001060: 2C 32 35 35 00 83 18 88 27 83 20 33 32 2C 32 30 |,255....'. 32,20|
00001070: 37 2C 32 35 35 2C 33 32 2C 32 30 37 2C 32 35 35 |7,255,32,207,255|
00001080: 2C 33 32 00 A2 18 92 27 83 20 32 30 37 2C 32 35 |,32....'. 207,25|
00001090: 35 2C 33 32 2C 32 30 37 2C 32 35 35 2C 32 30 31 |5,32,207,255,201|
000010A0: 2C 30 00 C1 18 9C 27 83 20 32 34 30 2C 35 38 2C |,0....'. 240,58,|
000010B0: 33 32 2C 32 30 34 2C 32 35 35 2C 33 32 2C 32 32 |32,204,255,32,22|
000010C0: 38 00 DF 18 A6 27 83 20 32 35 35 2C 32 30 31 2C |8....'. 255,201,|
000010D0: 33 32 2C 32 30 38 2C 33 2C 33 32 2C 31 39 36 00 |32,208,3,32,196.|
000010E0: FB 18 B0 27 83 20 33 2C 31 36 32 2C 31 2C 33 32 |...'. 3,162,1,32|
000010F0: 2C 31 39 38 2C 32 35 35 2C 33 32 00 1B 19 BA 27 |,198,255,32....'|
00001100: 83 20 32 30 37 2C 32 35 35 2C 31 36 38 2C 33 32 |. 207,255,168,32|
00001110: 2C 32 30 37 2C 32 35 35 2C 37 32 00 3C 19 C4 27 |,207,255,72.<..'|
00001120: 83 20 31 35 32 2C 31 37 30 2C 31 30 34 2C 33 32 |. 152,170,104,32|
00001130: 2C 32 30 35 2C 32 32 31 2C 31 36 39 00 5B 19 CE |,205,221,169.[..|
00001140: 27 83 20 33 32 2C 33 32 2C 32 31 30 2C 32 35 35 |'. 32,32,210,255|
00001150: 2C 33 32 2C 32 30 37 2C 32 35 35 00 77 19 D8 27 |,32,207,255.w..'|
00001160: 83 20 32 30 31 2C 30 2C 32 30 38 2C 38 2C 31 36 |. 201,0,208,8,16|
00001170: 39 2C 31 33 2C 33 32 00 95 19 E2 27 83 20 32 31 |9,13,32....'. 21|
00001180: 30 2C 32 35 35 2C 37 36 2C 31 31 35 2C 33 2C 33 |0,255,76,115,3,3|
00001190: 32 2C 32 31 30 00 B1 19 EC 27 83 20 32 35 35 2C |2,210....'. 255,|
000011A0: 37 36 2C 31 36 32 2C 33 2C 31 36 39 2C 31 2C 33 |76,162,3,169,1,3|
000011B0: 32 00 D2 19 F6 27 83 20 31 39 35 2C 32 35 35 2C |2....'. 195,255,|
000011C0: 33 32 2C 32 30 34 2C 32 35 35 2C 31 36 39 2C 32 |32,204,255,169,2|
000011D0: 30 34 00 F2 19 00 28 83 20 31 33 33 2C 31 37 38 |04....(. 133,178|
000011E0: 2C 39 36 2C 33 32 2C 32 32 38 2C 32 35 35 2C 32 |,96,32,228,255,2|
000011F0: 30 31 00 06 1A 0A 28 83 20 33 32 2C 32 30 38 2C |01....(. 32,208,|
00001200: 32 34 39 2C 39 36 00 00 00 |249,96... |
..)....*********************************
*./.....Q.... C64 4040 DISK COMMAND
S.U.... IEEE INTERFACE IS REQUIRED.{.
......... DAVID BYRUM......
3301 E. FT. LOWELL RD...... TUCSON,
AZ 85716 / 795-2928............********
**************************.:.D.. 53280,4
:. 53281,6:. 788,52:. G(14):.10000.N.N..
"..********** .4040 DISK COMMANDS. *****
*****"...X...5)".F 1 .= .DUPLICATE DIS
K (D1 = D0)".L.}...5)"..F 2 .= .COPY A
FILE FROM D0 TO D1".......5)"...F 3 .=
.INITIALIZE A DRIVE".......5)"..F 4 .
= .VALIDATE A DISK".B.....5)"...F 5 .=
.DISK DIRECTORY".P.....5)"..F 6 .= .
FORMATE DISK IN DRIVE 1".......5)"...F 7
.= .DETERMINE DISK ERROR".......5)"..
F 8 .= .RENAME A FILE"......".........
................................"...H..Z
$:. Z$."" . 200.<.R.. Z$."." . . 1000 :.
F1 - DUPLICATE DISK (D1=D0).T.W.. Z$.".
" . . 1500 :. F2 - COPY A FILE FROM D0 T
O D1...... Z$."." . . 2500 :. F3 - INITI
ALIZE DRIVE 0.T.... Z$."." . . 2000 :. F
4 - VALIDATE D1 DISK...... Z$."." . . 30
00 :. F5 - DISK Z.+.... Z$."." . . 3500
:. F6 - FORMATE NEW D1 DISK.^.... Z$."."
. . 4000 :. F7 - DETERMINE DISK ERROR..
.... Z$."." . . 4500 :. F8 - RENAME A FI
LE.A.... Z$."." . . 5000 :. CONTROL S -
SCRATCH A PROGRAM...... Z$."." . 9000
:. CONTROL Q - QUIT PROGRAM...".. 11
0.&.... ----- BACKUP D0 TO D1 --------.D
.... 214,23:.".. DUPLICATING DISK IN .DR
IVE 0. .TO .DRIVE 1".R.... 15,8,15......
15,"D1=0":. 4020..... 15............ --
----- COPY A FILE ----------...... 214,2
3:."..PROGRAM TO BE COPIED .";PG$......"
.
".;....".. COPYING .";PG$;". TO D1".I...
. 15,8,15.L....15,"C1:".PG$."=0:".PG$:.
4020.U... 15.{..... .P.. -------- VALID
ATE ------------.U.U.. 214,23:."..USING
DRIVE .0. OR .1....1....";DR$...Z..".
.VALIDATING DISK IN .DRIVE ";DR$....
.. 15,8,15.)....15,"V".DR$:. 4020.2...
15.8.....].D.. ------- INITIALIZE-------
-----...I.. 214,23:."..USING DRIVE .0. O
R .1....0....";DR$...N..". .INIT
IALIZING .DRIVE "DR$.J.X.. 15,8,15......
15,"I".DR$:. 4020..... 15............ -
------ DIRECTORY ------------.I.B.. 214,
23:."..USING DRIVE .0. OR .1....1....";D
R.L.L..". "...V
.. DR..0 . DR..1 .3010...... DR.0 . . 83
9,48:. 828:. E.19 .3080.X.... DR.1 . . 8
39,49:. 828:. E.19 .3080.......6)"...PRE
SS .RETURN. FOR MENU"......Z$:. Z$..G(13
) .3070.......B.... ------- NEW HEADER -
----------.{...DH$."":. 214,23:."..DISK
HEADER .";DH$:DH$.H(DH$,16)......".
".A.J.. DH$.""
. DH$."NEW DISK"...T.. 214,23:..9)".. F
ORMATING A NEW DISK"...... 15,8,15.....I
D..(.(TI).100):ID$.D(ID).8....15,"N1:".D
H$.",".ID$:.4020.A... 15.G.....L. .. --
----- DISK ERROR -----------.Z.... 15,8,
15......15,E,E$...... Z$."." . 4040.....
. E.20 . 4080...H.. 214,23:.".
"...R..". D
ISK ERROR .";E;".- .";E$.0.....6)"..PRES
S .RETURN. TO CONTINUE.".J....Z$:. Z$..G
(13) .4070.U... 15:..Z.... ----- RENAME
A FILE ----------...... 214,23:."..USIN
G DRIVE .0. OR .1....1....";DR$.R....".
"...... DR$.."0
" . DR$.."1" .4510......"..OLD FILE NAME
.";OF$.+.F..".NEW FILE NAME .";NF$.[.P.
."..
"...Z.."
"...... 214,23:."..RENAMING .";O
F$;". TO .";NF$.E.... 15,8,15......15,"R
".DR$.":".NF$."=".OF$:.4020..... 15....
........ ----- SCRATCH A FILE ---------.
T.... 214,23:."..USING DRIVE .0. OR .1..
..1....";DR$.W....".
"...... DR$.."0" . DR$.."1" .4510.
....."..SCRATCH FILE .";SF$...D..".
"...X..
214,23:."..SCRATCHING .";SF$...... 15,8
,15.1....15,"S".DR$.":".SF$:.4020.:...
15.@.....E.(#. ------ QUIT PROGRAM -----
-----.N.2# 15...<#. 214,23:..6)".END OF
PROGRAM.... .GOODBYE....":. 788,49:..Q.
.'.----- M.L. DIRECTORY ---------....'."
.";.7)"....ENABLING .INVISIBLE DIRECTORY
.".(.$'. I . 828 . 971:. A:. I,A:T.T.A:.
.[..'. T..19610 . ."..ERROR IN DATA STAT
EMENTS..":....8'. B(65440).135 . . 924,1
89:. USE ,221 ON VIC...='....B'. 169,1,3
2,195,255,169,36.O.L'. 141,240,3,169,48,
141,241...V'. 3,169,1,162,8,160,0...`'.
32,186,255,169,2,162,240.&.J'. 160,3,32,
189,255,32,192.F.T'. 255,169,64,32,144,2
55,162.D.~'. 1,32,198,255,32,144,255....
'. 32,207,255,32,207,255,32....'. 207,25
5,32,207,255,201,0.A..'. 240,58,32,204,2
55,32,228....'. 255,201,32,208,3,32,196.
...'. 3,162,1,32,198,255,32....'. 207,25
5,168,32,207,255,72.<.D'. 152,170,104,32
,205,221,169.[.N'. 32,32,210,255,32,207,
255.W.X'. 201,0,208,8,169,13,32....'. 21
0,255,76,115,3,32,210....'. 255,76,162,3
,169,1,32.R..'. 195,255,32,204,255,169,2
04....(. 133,178,96,32,228,255,201....(.
32,208,249,96...
> CLICK IMAGE PREVIEW FOR FULL MODAL