DISK COM 128
FILE INFORMATION
FILENAME(S): DISK COM 128
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-11-02 16:38:58
APPEARS ON: 1 disk(s)
FILE HASH
7efd2b7b567d986822d3c470f232791a60ac23964c106096efe62dec895c0b1d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK 128 | DISK COM 128 | PRG | Treasure Chest - Plattfuss | 19 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 0F 1C 14 00 8F 20 32 2D 31 37 2D 38 36 00 |....... 2-17-86.|
00000010: 18 1C 28 00 99 22 93 22 00 33 1C 3C 00 E7 20 30 |..(..".".3.<.. 0|
00000020: 2C 31 36 3A E7 20 34 2C 31 36 3A 8F 47 4F 54 4F |,16:. 4,16:.GOTO|
00000030: 36 38 30 00 3C 1C 50 00 99 22 93 22 00 59 1C 64 |680.<.P..".".Y.d|
00000040: 00 99 20 20 20 22 90 50 52 4F 47 52 41 4D 20 57 |.. ".PROGRAM W|
00000050: 52 49 54 54 45 4E 20 42 59 00 63 1C 78 00 99 20 |RITTEN BY.c.x.. |
00000060: 20 20 22 00 7C 1C 8C 00 99 22 20 20 20 52 49 43 | ".|...." RIC|
00000070: 48 41 52 44 20 57 2E 20 42 59 52 44 00 83 1C A0 |HARD W. BYRD....|
00000080: 00 99 22 00 97 1C B4 00 99 22 20 20 20 50 4F 20 |.."......" PO |
00000090: 42 4F 58 20 38 34 39 00 9E 1C C8 00 99 22 00 BD |BOX 849......"..|
000000A0: 1C DC 00 99 22 20 20 20 4D 41 44 49 53 4F 4E 56 |...." MADISONV|
000000B0: 49 4C 4C 45 20 4B 59 20 34 32 34 33 31 00 C4 1C |ILLE KY 42431...|
000000C0: F0 00 99 22 00 DB 1C 04 01 99 3A 99 3A 99 22 50 |..."......:.:."P|
000000D0: 4C 45 41 53 45 20 57 41 49 54 22 00 F3 1C 18 01 |LEASE WAIT".....|
000000E0: 8F 46 4F 52 20 58 3D 31 54 4F 33 35 30 30 3A 4E |.FOR X=1TO3500:N|
000000F0: 45 58 54 00 FC 1C 22 01 FE 0B 20 33 00 05 1D 2C |EXT..."... 3...,|
00000100: 01 99 22 93 22 00 35 1D 40 01 99 22 2A 2A 20 20 |..".".5.@.."** |
00000110: 20 20 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 | THIS PROGRA|
00000120: 4D 20 57 49 4C 4C 20 41 4C 4C 4F 57 20 20 20 20 |M WILL ALLOW |
00000130: 20 20 2A 2A 22 00 65 1D 54 01 99 22 2A 2A 20 20 | **".e.T.."** |
00000140: 20 20 20 20 20 59 4F 55 20 54 4F 20 41 44 44 20 | YOU TO ADD |
00000150: 53 50 45 43 49 41 4C 20 20 20 20 20 20 20 20 20 |SPECIAL |
00000160: 20 20 2A 2A 22 00 95 1D 68 01 99 22 2A 2A 20 20 | **"...h.."** |
00000170: 20 20 20 20 20 43 48 41 52 41 43 54 45 52 53 20 | CHARACTERS |
00000180: 54 4F 20 54 48 45 20 45 4E 44 20 20 20 20 20 20 |TO THE END |
00000190: 20 20 2A 2A 22 00 C5 1D 7C 01 99 22 2A 2A 20 20 | **"...|.."** |
000001A0: 20 20 20 20 20 4F 46 20 59 4F 55 52 20 50 52 4F | OF YOUR PRO|
000001B0: 47 52 41 4D 20 4E 41 4D 45 53 20 20 20 20 20 20 |GRAM NAMES |
000001C0: 20 20 2A 2A 22 00 F5 1D 90 01 99 22 2A 2A 20 20 | **"......"** |
000001D0: 20 20 20 20 20 54 4F 20 41 49 44 20 59 4F 55 20 | TO AID YOU |
000001E0: 49 4E 20 4C 4F 41 44 49 4E 47 20 20 20 20 20 20 |IN LOADING |
000001F0: 20 20 2A 2A 22 00 25 1E A4 01 99 22 2A 2A 20 20 | **".%...."** |
00000200: 20 20 20 20 20 59 4F 55 52 20 50 52 4F 47 52 41 | YOUR PROGRA|
00000210: 4D 53 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 |MS. |
00000220: 20 20 2A 2A 22 00 39 1E B8 01 99 3A 99 3A 99 22 | **".9....:.:."|
00000230: 53 55 43 48 20 41 53 3A 22 00 62 1E CC 01 99 22 |SUCH AS:".b...."|
00000240: 1C 30 1D 12 27 27 54 45 53 54 20 44 49 53 4B 27 |.0..''TEST DISK'|
00000250: 27 20 55 32 20 32 41 20 20 20 20 20 20 20 20 20 |' U2 2A |
00000260: 20 22 00 8A 1E E0 01 99 22 31 32 20 20 20 20 20 | "......"12 |
00000270: 20 20 20 20 20 27 27 54 45 53 54 27 27 4A 4F 59 | ''TEST''JOY|
00000280: 31 20 20 20 20 20 50 52 47 22 00 B2 1E F4 01 99 |1 PRG"......|
00000290: 22 33 32 20 20 20 20 20 20 20 20 20 20 27 27 47 |"32 ''G|
000002A0: 41 4D 45 27 27 2C 38 3A 20 20 20 20 20 20 50 52 |AME'',8: PR|
000002B0: 47 22 00 DA 1E 08 02 99 22 35 34 20 20 20 20 20 |G"......"54 |
000002C0: 20 20 20 20 20 27 27 47 41 4D 45 27 27 2C 38 2C | ''GAME'',8,|
000002D0: 31 20 20 20 20 20 50 52 47 22 00 02 1F 1C 02 99 |1 PRG"......|
000002E0: 22 32 34 20 20 20 20 20 20 20 20 20 20 27 27 47 |"24 ''G|
000002F0: 41 4D 45 27 27 4A 4F 59 32 20 20 20 20 20 50 52 |AME''JOY2 PR|
00000300: 47 22 00 1A 1F 30 02 99 22 35 34 36 20 42 4C 4F |G"...0.."546 BLO|
00000310: 43 4B 53 20 46 52 45 45 2E 22 00 41 1F 44 02 99 |CKS FREE.".A.D..|
00000320: 22 90 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |".DO YOU WISH TO|
00000330: 20 43 4F 4E 54 49 4E 55 45 3F 20 59 2F 4E 20 07 | CONTINUE? Y/N .|
00000340: 22 00 56 1F 58 02 A1 44 57 24 3A 8B 44 57 24 B2 |".V.X..DW$:.DW$.|
00000350: 22 22 A7 36 30 30 00 6A 1F 6C 02 8B 20 44 57 24 |"".600.j.l.. DW$|
00000360: B2 22 59 22 A7 20 89 36 36 30 00 7B 1F 80 02 8B |."Y". .660.{....|
00000370: 20 44 57 24 B2 22 4E 22 A7 20 80 00 9B 1F 94 02 | DW$."N". ......|
00000380: 99 22 93 90 07 22 3A 85 22 44 45 56 49 43 45 20 |."...":."DEVICE |
00000390: 23 20 20 38 9D 9D 9D 22 3B 44 3A 00 C6 1F A8 02 |# 8...";D:.....|
000003A0: 8F 50 52 49 4E 54 22 93 1D 1D 1D 1D 1D 1D 1D 1D |.PRINT".........|
000003B0: 1D 20 43 48 4F 4F 53 45 20 4F 4E 45 20 4F 46 20 |. CHOOSE ONE OF |
000003C0: 54 48 45 53 45 22 00 EB 1F BC 02 99 22 93 1D 1D |THESE"......"...|
000003D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 43 48 4F 4F 53 45 |......... CHOOSE|
000003E0: 20 4F 4E 45 20 54 4F 20 47 4F 22 00 10 20 D0 02 | ONE TO GO".. ..|
000003F0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 41 |."............ A|
00000400: 46 54 45 52 20 46 49 4C 45 4E 41 4D 45 22 3A 99 |FTER FILENAME":.|
00000410: 00 42 20 E4 02 99 22 05 46 49 4C 45 4E 41 4D 45 |.B ...".FILENAME|
00000420: 20 4D 55 53 54 20 42 45 20 4C 45 53 53 20 54 48 | MUST BE LESS TH|
00000430: 41 4E 20 31 32 20 43 48 41 52 41 43 54 45 52 53 |AN 12 CHARACTERS|
00000440: 90 22 00 59 20 F8 02 99 22 1D 1D 1D 1D 1D 20 31 |.".Y ..."..... 1|
00000450: 2D 20 20 20 20 3A 22 3A 99 00 72 20 0C 03 99 22 |- :":..r ..."|
00000460: 1D 1D 1D 1D 1D 20 32 2D 20 20 20 20 2C 38 3A 22 |..... 2- ,8:"|
00000470: 3A 99 00 8C 20 20 03 99 22 1D 1D 1D 1D 1D 20 33 |:... .."..... 3|
00000480: 2D 20 20 20 20 2C 38 2C 31 22 3A 99 00 A6 20 34 |- ,8,1":... 4|
00000490: 03 99 22 1D 1D 1D 1D 1D 20 34 2D 20 20 20 20 4A |.."..... 4- J|
000004A0: 4F 59 32 22 3A 99 00 C0 20 48 03 99 22 1D 1D 1D |OY2":... H.."...|
000004B0: 1D 1D 20 35 2D 20 20 20 20 4A 4F 59 31 22 3A 99 |.. 5- JOY1":.|
000004C0: 00 DF 20 5C 03 99 22 1D 1D 1D 1D 1D 20 36 2D 20 |.. \.."..... 6- |
000004D0: 20 20 20 44 49 52 45 43 54 4F 52 59 22 3A 99 00 | DIRECTORY":..|
000004E0: 00 21 70 03 99 22 1D 1D 1D 1D 1D 20 37 2D 20 20 |.!p.."..... 7- |
000004F0: 20 20 52 45 4E 41 4D 45 20 46 49 4C 45 22 3A 99 | RENAME FILE":.|
00000500: 00 23 21 84 03 99 22 1D 1D 1D 1D 1D 20 38 2D 20 |.#!..."..... 8- |
00000510: 20 20 20 43 48 41 4E 47 45 20 44 45 56 49 43 45 | CHANGE DEVICE|
00000520: 22 3A 99 00 44 21 98 03 99 22 1D 1D 1D 1D 1D 20 |":..D!..."..... |
00000530: 58 2D 20 20 20 20 45 4E 44 20 50 52 4F 47 52 41 |X- END PROGRA|
00000540: 4D 22 3A 99 00 6B 21 A2 03 8F 50 52 49 4E 54 22 |M":..k!...PRINT"|
00000550: 1D 1D 1D 1D 1D 20 40 2D 20 20 20 20 45 52 52 4F |..... @- ERRO|
00000560: 52 20 43 48 41 4E 4E 45 4C 22 3A 00 81 21 AC 03 |R CHANNEL":..!..|
00000570: 99 22 07 1D 1D 1D 1D 1D 1C 43 48 4F 49 43 45 22 |.".......CHOICE"|
00000580: 3A 00 94 21 C0 03 A1 58 24 3A 8B 58 24 B2 22 22 |:..!...X$:.X$.""|
00000590: A7 39 36 30 00 B0 21 CA 03 8F 49 46 20 58 24 3D |.960..!...IF X$=|
000005A0: 22 40 22 54 48 45 4E 50 52 49 4E 54 44 52 52 24 |"@"THENPRINTDRR$|
000005B0: 00 C9 21 D4 03 8B 20 58 24 B2 22 36 22 A7 8D 20 |..!... X$."6".. |
000005C0: 31 35 30 30 3A 89 36 38 30 00 D8 21 E8 03 8B 20 |1500:.680..!... |
000005D0: 58 24 B2 22 58 22 A7 80 00 E9 21 FC 03 8B 58 24 |X$."X"....!...X$|
000005E0: B2 22 38 22 A7 89 36 36 30 00 FE 21 10 04 8B 20 |."8"..660..!... |
000005F0: 58 24 B2 22 37 22 A7 20 89 20 31 32 34 30 00 0F |X$."7". . 1240..|
00000600: 22 24 04 8B 20 58 24 B2 22 22 A7 89 36 38 30 00 |"$.. X$.""..680.|
00000610: 2B 22 2E 04 8F 49 46 20 58 24 3D 22 40 22 54 48 |+"...IF X$="@"TH|
00000620: 45 4E 50 52 49 4E 54 44 52 52 24 00 48 22 38 04 |ENPRINTDRR$.H"8.|
00000630: 99 22 1D 1D 1D 1D 1D 20 20 46 49 4C 45 4E 41 4D |."..... FILENAM|
00000640: 45 22 3A 85 4E 57 53 24 00 5B 22 4C 04 8B 20 4E |E":.NWS$.["L.. N|
00000650: 57 53 24 B2 22 22 A7 89 36 38 30 00 77 22 56 04 |WS$.""..680.w"V.|
00000660: 8F 49 46 20 58 24 3D 22 40 22 54 48 45 4E 50 52 |.IF X$="@"THENPR|
00000670: 49 4E 54 45 52 52 24 00 8B 22 60 04 8B 20 58 24 |INTERR$.."`.. X$|
00000680: B2 22 33 22 A7 20 89 31 32 38 30 00 A1 22 74 04 |."3". .1280.."t.|
00000690: 8B 20 58 24 B2 22 31 22 20 A7 20 89 20 31 33 34 |. X$."1" . . 134|
000006A0: 30 00 B7 22 88 04 8B 20 58 24 B2 22 32 22 20 A7 |0.."... X$."2" .|
000006B0: 20 89 20 31 33 32 30 00 CB 22 9C 04 8B 20 58 24 | . 1320.."... X$|
000006C0: B2 22 34 22 A7 20 89 31 33 36 30 00 E0 22 B0 04 |."4". .1360.."..|
000006D0: 8B 20 58 24 B2 22 35 22 A7 20 89 20 31 34 32 30 |. X$."5". . 1420|
000006E0: 00 1E 23 D8 04 99 22 93 07 22 3A 85 22 4F 4C 44 |..#..."..":."OLD|
000006F0: 20 46 49 4C 45 4E 41 4D 45 22 3B 4F 46 24 3A 85 | FILENAME";OF$:.|
00000700: 22 4E 45 57 20 46 49 4C 45 4E 41 4D 45 22 3B 4E |"NEW FILENAME";N|
00000710: 46 24 3A 8B 4E 46 24 B2 22 22 A7 37 30 30 00 45 |F$:.NF$."".700.E|
00000720: 23 EC 04 9F 31 35 2C 44 2C 31 35 2C 22 52 3A 22 |#...15,D,15,"R:"|
00000730: AA 4E 46 24 AA 22 3D 22 AA 4F 46 24 3A A0 31 35 |.NF$."=".OF$:.15|
00000740: 3A 89 36 38 30 00 84 23 00 05 4D 41 43 52 4F 24 |:.680..#..MACRO$|
00000750: B2 22 52 3A 22 AA 4E 57 53 24 AA C7 28 31 36 30 |."R:".NWS$..(160|
00000760: 29 AA C7 28 31 37 32 29 AA C7 28 35 36 29 AA C7 |)..(172)..(56)..|
00000770: 28 31 37 32 29 AA C7 28 34 39 29 AA 22 3D 22 AA |(172)..(49)."=".|
00000780: 4E 57 53 24 00 A1 23 14 05 9F 31 35 2C 44 2C 31 |NWS$..#...15,D,1|
00000790: 35 2C 4D 41 43 52 4F 24 3A A0 31 35 3A 89 36 38 |5,MACRO$:.15:.68|
000007A0: 30 00 DF 23 28 05 4D 41 43 52 4F 24 B2 22 52 3A |0..#(.MACRO$."R:|
000007B0: 22 AA 4E 57 53 24 AA C7 28 31 36 30 29 AA C7 28 |".NWS$..(160)..(|
000007C0: 31 37 32 29 AA C7 28 35 36 29 AA C7 28 35 38 29 |172)..(56)..(58)|
000007D0: AA 22 3D 22 AA 4E 57 53 24 3A 89 31 33 30 30 00 |."=".NWS$:.1300.|
000007E0: 10 24 3C 05 4D 41 43 52 4F 24 B2 22 52 3A 22 AA |.$<.MACRO$."R:".|
000007F0: 4E 57 53 24 AA C7 28 31 36 30 29 AA C7 28 35 38 |NWS$..(160)..(58|
00000800: 29 AA 22 3D 22 AA 4E 57 53 24 3A 89 31 33 30 30 |)."=".NWS$:.1300|
00000810: 00 40 24 50 05 4D 41 43 52 4F 24 B2 C7 28 31 36 |.@$P.MACRO$..(16|
00000820: 30 29 AA C7 28 33 32 29 AA C7 28 37 34 29 AA C7 |0)..(32)..(74)..|
00000830: 28 37 39 29 AA C7 28 38 39 29 AA C7 28 35 30 29 |(79)..(89)..(50)|
00000840: 00 67 24 64 05 9F 31 35 2C 44 2C 31 35 2C 22 52 |.g$d..15,D,15,"R|
00000850: 3A 22 AA 4E 57 53 24 AA 4D 41 43 52 4F 24 AA 22 |:".NWS$.MACRO$."|
00000860: 3D 22 AA 4E 57 53 24 00 74 24 78 05 A0 31 35 3A |=".NWS$.t$x..15:|
00000870: 89 36 38 30 00 A4 24 8C 05 4D 41 43 52 4F 24 B2 |.680..$..MACRO$.|
00000880: C7 28 31 36 30 29 AA C7 28 33 32 29 AA C7 28 37 |.(160)..(32)..(7|
00000890: 34 29 AA C7 28 37 39 29 AA C7 28 38 39 29 AA C7 |4)..(79)..(89)..|
000008A0: 28 34 39 29 00 CB 24 A0 05 9F 31 35 2C 44 2C 31 |(49)..$...15,D,1|
000008B0: 35 2C 22 52 3A 22 AA 4E 57 53 24 AA 4D 41 43 52 |5,"R:".NWS$.MACR|
000008C0: 4F 24 AA 22 3D 22 AA 4E 57 53 24 00 D8 24 B4 05 |O$."=".NWS$..$..|
000008D0: A0 31 35 3A 89 36 38 30 00 F7 24 C8 05 8F 2A 2A |.15:.680..$...**|
000008E0: 2A 2A 2A 44 49 52 45 43 54 4F 52 59 20 4C 49 53 |***DIRECTORY LIS|
000008F0: 54 2A 2A 2A 2A 2A 2A 00 09 25 DC 05 99 22 93 22 |T******..%..."."|
00000900: 3A FE 0C 3A 89 31 39 32 30 00 26 25 80 07 99 22 |:..:.1920.&%..."|
00000910: 07 50 52 45 53 53 20 52 45 54 55 52 4E 20 54 4F |.PRESS RETURN TO|
00000920: 20 43 4F 4E 54 22 00 3A 25 94 07 85 20 52 54 24 | CONT".:%... RT$|
00000930: 3A 8B 52 54 24 B2 22 22 A7 8E 00 6A 25 D0 07 8F |:.RT$.""...j%...|
00000940: 50 52 49 4E 54 22 12 45 52 52 4F 52 21 21 21 21 |PRINT".ERROR!!!!|
00000950: 92 22 3A 50 52 49 4E 54 45 52 52 24 28 45 52 29 |.":PRINTERR$(ER)|
00000960: 3B 45 4C 3A 52 45 53 55 4D 45 00 00 00 31 |;EL:RESUME...1 |
....... 2-17-86...(..".".3.<.. 0,16:. 4,
16:.GOTO680.<.P..".".Y.D.. ".PROGRAM W
RITTEN BY.C.X.. ".|...." RICHARD W.
BYRD... .."......" PO BOX 849...H.."..
...." MADISONVILLE KY 42431.D...."....
..:.:."PLEASE WAIT"......FOR X=1TO3500:N
EXT..."... 3...,..".".5.@.."** THI
S PROGRAM WILL ALLOW **".E.T.."**
YOU TO ADD SPECIAL **"...
H.."** CHARACTERS TO THE END
**".E.|.."** OF YOUR PROGRAM NAM
ES **"......"** TO AID YOU
IN LOADING **".%...."** YOU
R PROGRAMS. **".9....:.:."
SUCH AS:".B.L..".0..''TEST DISK'' U2 2A
"......"12 ''TEST''JOY
1 PRG"......"32 ''GAME'',8:
PRG".Z...."54 ''GAME'',8,
1 PRG"......"24 ''GAME''JOY
2 PRG"...0.."546 BLOCKS FREE.".A.D..
".DO YOU WISH TO CONTINUE? Y/N .".V.X..D
W$:.DW$."".600.J.L.. DW$."Y". .660.{....
DW$."N". ......."...":."DEVICE # 8..."
;D:.F....PRINT".......... CHOOSE ONE OF
THESE"......"............ CHOOSE ONE TO
GO".. P.."............ AFTER FILENAME":.
.B ...".FILENAME MUST BE LESS THAN 12 CH
ARACTERS.".Y ..."..... 1- :":..R ..."
..... 2- ,8:":... .."..... 3- ,8,
1":... 4.."..... 4- JOY2":... H.."...
.. 5- JOY1":... \.."..... 6- DIREC
TORY":...!P.."..... 7- RENAME FILE":.
.#!..."..... 8- CHANGE DEVICE":..D!..
."..... X- END PROGRAM":..K!...PRINT"
..... @- ERROR CHANNEL":..!..."......
.CHOICE":..!...X$:.X$."".960..!J..IF X$=
"@"THENPRINTDRR$.I!T.. X$."6".. 1500:.68
0.X!... X$."X"....!...X$."8"..660..!...
X$."7". . 1240.."$.. X$.""..680.+"...IF
X$="@"THENPRINTDRR$.H"8.."..... FILENAM
E":.NWS$.["L.. NWS$.""..680.W"V..IF X$="
@"THENPRINTERR$.."`.. X$."3". .1280.."T.
. X$."1" . . 1340.."... X$."2" . . 1320.
K"... X$."4". .1360.."... X$."5". . 1420
..#X.."..":."OLD FILENAME";OF$:."NEW FIL
ENAME";NF$:.NF$."".700.E#...15,D,15,"R:"
.NF$."=".OF$: 15:.680..#..MACRO$."R:".NW
S$.G(160).G(172).G(56).G(172).G(49)."=".
NWS$..#...15,D,15,MACRO$: 15:.680..#(.MA
CRO$."R:".NWS$.G(160).G(172).G(56).G(58)
."=".NWS$:.1300..$<.MACRO$."R:".NWS$.G(1
60).G(58)."=".NWS$:.1300.@$P.MACRO$.G(16
0).G(32).G(74).G(79).G(89).G(50).G$D..15
,D,15,"R:".NWS$.MACRO$."=".NWS$.T$X. 15:
.680..$..MACRO$.G(160).G(32).G(74).G(79)
.G(89).G(49).K$ ..15,D,15,"R:".NWS$.MACR
O$."=".NWS$.X$.. 15:.680..$H..*****DIREC
TORY LIST******..%...".":..:.1920.&%..."
.PRESS RETURN TO CONT".:%... RT$:.RT$.""
...J%P..PRINT".ERROR!!!!.":PRINTERR$(ER)
;EL:RESUME...1
> CLICK IMAGE PREVIEW FOR FULL MODAL