MAKE IT A DA
FILE INFORMATION
FILENAME(S): MAKE IT A DA
FILE TYPE(S): PRG
FILE SIZE: 1.1K
FIRST SEEN: 2025-10-20 14:30:03
APPEARS ON: 4 disk(s)
FILE HASH
aaaa1f7068fd3c277c74c603786324cddb5d9fea7ceae9cc5a00473389f993db
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| S 1286 | MAKE IT A DA | PRG | Treasure Chest - Klaus Der Suhler | 8 | 10 | DOWNLOAD FILE |
| G PD 85 | MAKE IT A DA | PRG | Treasure Chest - Klaus Der Suhler | 8 | 18 | DOWNLOAD FILE |
| S 1286 | MAKE IT A DA | PRG | Treasure Chest - Klaus Der Suhler | 8 | 18 | DOWNLOAD FILE |
| PD 17 | MAKE IT A DA | PRG | DuncanTwain | 3 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 64 00 8F 20 49 20 4E 45 56 45 52 20 |..%.d.. I NEVER | 00000010: 52 45 49 4E 56 45 4E 54 20 54 48 45 20 57 48 45 |REINVENT THE WHE| 00000020: 45 4C 2E 2E 2E 00 4A 08 6E 00 8F 20 50 41 52 54 |EL....J.n.. PART| 00000030: 53 20 4F 46 20 54 48 49 53 20 50 52 4F 47 52 41 |S OF THIS PROGRA| 00000040: 4D 20 4D 41 59 20 4C 4F 4F 4B 00 6E 08 78 00 8F |M MAY LOOK.n.x..| 00000050: 20 46 41 4D 49 4C 49 41 52 2E 2E 2E 2E 20 4D 45 | FAMILIAR.... ME| 00000060: 52 52 59 20 43 48 52 49 53 54 4D 41 53 21 00 74 |RRY CHRISTMAS!.t| 00000070: 08 7D 00 8F 00 93 08 82 00 8F 20 43 4F 4E 56 45 |.}........ CONVE| 00000080: 52 54 20 41 20 50 52 49 4E 54 45 52 20 44 52 49 |RT A PRINTER DRI| 00000090: 56 45 52 00 AE 08 8C 00 8F 20 54 4F 20 41 20 44 |VER...... TO A D| 000000A0: 45 53 4B 20 41 43 43 45 53 53 4F 52 59 2E 00 CD |ESK ACCESSORY...| 000000B0: 08 96 00 8F 20 46 4F 4F 4C 20 54 48 45 20 43 4F |.... FOOL THE CO| 000000C0: 4D 50 55 54 45 52 20 57 49 54 48 20 41 00 E5 08 |MPUTER WITH A...| 000000D0: A0 00 8F 20 44 49 53 4B 20 45 44 49 54 4F 52 20 |... DISK EDITOR | 000000E0: 46 49 52 53 54 00 0D 09 AA 00 9F 31 35 2C 38 2C |FIRST......15,8,| 000000F0: 31 35 2C 22 49 30 3A 22 3A 8F 20 49 4E 49 54 49 |15,"I0:":. INITI| 00000100: 41 4C 49 5A 45 20 44 52 49 56 45 20 38 00 31 09 |ALIZE DRIVE 8.1.| 00000110: B4 00 8F 20 4E 41 4D 45 20 49 53 20 27 53 27 2E |... NAME IS 'S'.| 00000120: 20 42 49 47 20 44 45 41 4C 2C 20 48 55 48 3F 3F | BIG DEAL, HUH??| 00000130: 3F 00 5C 09 BE 00 9F 20 32 2C 38 2C 32 2C 22 23 |?.\.... 2,8,2,"#| 00000140: 22 20 3A 8F 20 41 4C 4C 4F 43 41 54 45 20 41 4E |" :. ALLOCATE AN| 00000150: 59 20 4F 4C 44 20 42 55 46 46 45 52 00 78 09 C8 |Y OLD BUFFER.x..| 00000160: 00 54 24 B2 C7 28 31 38 29 3A 53 24 B2 C7 28 31 |.T$..(18):S$..(1| 00000170: 29 3A 8D 20 31 30 30 30 00 88 09 D2 00 A1 23 32 |):. 1000......#2| 00000180: 2C 4E 54 24 2C 4E 53 24 00 AA 09 DC 00 81 20 45 |,NT$,NS$...... E| 00000190: 20 B2 20 30 20 A4 20 37 20 3A 8F 20 23 20 4F 46 | . 0 . 7 :. # OF| 000001A0: 20 46 49 4C 45 4E 41 4D 45 53 00 B5 09 E6 00 8D | FILENAMES......| 000001B0: 20 33 30 30 30 00 C8 09 F0 00 8B 20 44 24 B2 22 | 3000...... D$."| 000001C0: 53 22 20 89 20 32 38 30 00 CE 09 FA 00 82 00 E1 |S" . 280........| 000001D0: 09 04 01 8B 20 4E 54 24 B2 22 22 20 89 20 32 38 |.... NT$."" . 28| 000001E0: 30 00 F9 09 0E 01 54 24 B2 4E 54 24 3A 53 24 B2 |0.....T$.NT$:S$.| 000001F0: 4E 53 24 3A 89 20 32 30 30 00 0B 0A 18 01 8B 20 |NS$:. 200...... | 00000200: 44 24 B2 22 22 20 A7 20 38 38 30 00 26 0A 22 01 |D$."" . 880.&.".| 00000210: 44 41 24 B2 C7 28 35 29 20 3A 8F 20 46 4F 52 20 |DA$..(5) :. FOR | 00000220: 41 20 44 2E 41 2E 00 4A 0A 2C 01 8D 20 31 30 30 |A D.A..J.,.. 100| 00000230: 30 20 3A 8F 20 47 45 54 20 54 48 41 54 20 53 45 |0 :. GET THAT SE| 00000240: 43 54 4F 52 20 41 47 41 49 4E 00 6E 0A 36 01 81 |CTOR AGAIN.n.6..| 00000250: 20 49 20 B2 20 30 20 A4 20 33 32 AC 45 AA 31 20 | I . 0 . 32.E.1 | 00000260: 3A 8F 20 42 4F 52 52 4F 57 20 54 48 49 53 00 79 |:. BORROW THIS.y| 00000270: 0A 40 01 A1 23 32 2C 42 24 00 7F 0A 4A 01 82 00 |.@..#2,B$...J...| 00000280: A9 0A 54 01 81 20 49 20 B2 20 31 20 A4 20 32 32 |..T.. I . 1 . 22| 00000290: 3A A1 20 23 32 2C 42 24 3A 82 3A 8F 20 53 4B 49 |:. #2,B$:.:. SKI| 000002A0: 50 20 54 4F 20 54 59 50 45 00 DF 0A 5E 01 98 32 |P TO TYPE...^..2| 000002B0: 2C 44 41 24 3B 3A 8F 20 57 52 49 54 45 20 41 20 |,DA$;:. WRITE A | 000002C0: 35 20 54 4F 20 54 59 50 45 2E 20 4D 41 4B 45 20 |5 TO TYPE. MAKE | 000002D0: 41 4E 59 54 48 49 4E 47 20 41 20 44 2E 41 2E 00 |ANYTHING A D.A..| 000002E0: EA 0A 68 01 8D 20 32 30 30 30 00 F2 0A 72 01 A0 |..h.. 2000...r..| 000002F0: 20 32 00 FA 0A 7C 01 A0 31 35 00 09 0B 86 01 99 | 2...|..15......| 00000300: 22 44 4F 4E 45 2E 22 3A 80 00 39 0B E8 03 98 31 |"DONE.":..9....1| 00000310: 35 2C 22 55 31 22 3B 32 3B 30 3B C6 28 54 24 29 |5,"U1";2;0;.(T$)| 00000320: 3B C6 28 53 24 29 3A 8F 20 52 45 41 44 20 49 4E |;.(S$):. READ IN| 00000330: 20 41 20 53 45 43 54 4F 52 00 3F 0B F2 03 8E 00 | A SECTOR.?.....| 00000340: 5E 0B D0 07 98 31 35 2C 22 55 32 22 3B 32 3B 30 |^....15,"U2";2;0| 00000350: 3B C6 28 54 24 29 3B C6 28 53 24 29 3A 8E 00 68 |;.(T$);.(S$):..h| 00000360: 0B B8 0B 44 24 B2 22 22 00 77 0B C4 0B A1 23 32 |...D$."".w....#2| 00000370: 2C 42 24 3A 49 B2 31 00 89 0B C5 0B 8B 20 42 24 |,B$:I.1...... B$| 00000380: B2 22 22 20 89 33 30 35 30 00 BC 0B C6 0B 8B 20 |."" .3050...... | 00000390: C6 28 42 24 29 B3 B1 31 33 31 20 89 20 33 30 35 |.(B$)..131 . 305| 000003A0: 30 20 3A 8F 20 4C 4F 4F 4B 20 46 4F 52 20 55 53 |0 :. LOOK FOR US| 000003B0: 45 52 20 46 49 4C 45 20 54 59 50 45 00 D0 0B C8 |ER FILE TYPE....| 000003C0: 0B A1 23 32 2C 48 54 24 2C 48 53 24 3A 49 B2 33 |..#2,HT$,HS$:I.3| 000003D0: 00 E1 0B CC 0B A1 23 32 2C 42 24 3A 49 B2 49 AA |......#2,B$:I.I.| 000003E0: 31 00 F8 0B D6 0B 8B 20 C6 28 42 24 29 B2 31 36 |1...... .(B$).16| 000003F0: 30 20 89 20 33 30 35 30 00 0C 0C E0 0B 44 24 B2 |0 . 3050.....D$.| 00000400: 44 24 AA 42 24 3A 89 20 33 30 32 30 00 38 0C EA |D$.B$:. 3020.8..| 00000410: 0B 81 20 49 20 B2 20 49 20 A4 20 33 31 3A 8F 20 |.. I . I . 31:. | 00000420: 53 4B 49 50 20 4F 55 54 20 44 49 52 45 43 54 4F |SKIP OUT DIRECTO| 00000430: 52 59 20 45 4E 54 52 59 00 47 0C F4 0B A1 23 32 |RY ENTRY.G....#2| 00000440: 2C 42 24 3A 82 3A 8E 00 00 00 |,B$:.:.... |
..%.D.. I NEVER REINVENT THE WHEEL....J. N.. PARTS OF THIS PROGRAM MAY LOOK.N.X.. FAMILIAR.... MERRY CHRISTMAS!.T.}...... .. CONVERT A PRINTER DRIVER...... TO A D ESK ACCESSORY..M.... FOOL THE COMPUTER W ITH A... .. DISK EDITOR FIRST......15,8, 15,"I0:":. INITIALIZE DRIVE 8.1.... NAME IS 'S'. BIG DEAL, HUH???.\.... 2,8,2,"# " :. ALLOCATE ANY OLD BUFFER.X.H.T$.G(18 ):S$.G(1):. 1000...R..#2,NT$,NS$...... E . 0 . 7 :. # OF FILENAMES...... 3000.H. ... D$."S" . 280.N.......... NT$."" . 28 0.....T$.NT$:S$.NS$:. 200...... D$."" . 880.&.".DA$.G(5) :. FOR A D.A..J.,.. 100 0 :. GET THAT SECTOR AGAIN.N.6.. I . 0 . 32.E.1 :. BORROW THIS.Y.@..#2,B$..J... ..T.. I . 1 . 22:. #2,B$:.:. SKIP TO TYP E...^..2,DA$;:. WRITE A 5 TO TYPE. MAKE ANYTHING A D.A....H.. 2000...R. 2...|. 15......"DONE.":..9....15,"U1";2;0;F(T$) ;F(S$):. READ IN A SECTOR.?.....^.P..15, "U2";2;0;F(T$);F(S$):..H...D$."".W.D..#2 ,B$:I.1...E.. B$."" .3050...F.. F(B$)..1 31 . 3050 :. LOOK FOR USER FILE TYPE.P.H ..#2,HT$,HS$:I.3...L..#2,B$:I.I.1...V.. F(B$).160 . 3050.....D$.D$.B$:. 3020.8.. .. I . I . 31:. SKIP OUT DIRECTORY ENTRY .G....#2,B$:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL