A STORY.C3
FILE INFORMATION
FILENAME(S): A STORY.C3
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-10-19 22:35:46
APPEARS ON: 1 disk(s)
FILE HASH
426011ffe4c85ad93d003429596d8b6cfaf514663df5e5d00cc9c7e51b9118bb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| !! | A STORY.C3 | PRG | Radd Maxx | 12 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....| 00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY | 00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....| 00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .| 00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....| 00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh| 00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`| 00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh| 00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4| 00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU| 000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **| 000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO| 000000C0: 55 54 49 4E 45 20 2A 2A 00 E4 08 23 00 8F 20 2B |UTINE **...#.. +| 000000D0: 2B 2B 20 49 4E 50 55 54 20 53 45 43 54 49 4F 4E |++ INPUT SECTION| 000000E0: 20 2B 2B 2B 00 FC 08 28 00 97 55 4F 2C 30 3A 55 | +++...(..UO,0:U| 000000F0: 52 24 B2 22 22 3A 55 49 24 B2 22 22 00 0C 09 2A |R$."":UI$.""...*| 00000100: 00 8B 55 4C B2 30 A7 55 4C B2 38 30 00 1F 09 2D |..UL.0.UL.80...-| 00000110: 00 99 22 20 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 |.." ..";:.UC,0.| 00000120: 33 09 32 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 |3.2..UI$:.UI$.""| 00000130: A7 35 30 00 5D 09 37 00 8B 55 49 24 B2 C7 28 31 |.50.].7..UI$..(1| 00000140: 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 |3)..(UR$)..1..UC| 00000150: 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 00 70 09 |,1:." .";:.85.p.| 00000160: 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 |<..UI$..(20).105| 00000170: 00 84 09 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 |...>.. .(UR$)..U| 00000180: 4C A7 35 30 00 A9 09 41 00 8D 31 32 30 3A 8F 20 |L.50...A..120:. | 00000190: 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 |CHECK FOR VALID | 000001A0: 43 48 41 52 41 43 54 45 52 00 B9 09 46 00 55 52 |CHARACTER...F.UR| 000001B0: 24 B2 55 52 24 AA 55 49 24 00 C3 09 4B 00 99 55 |$.UR$.UI$...K..U| 000001C0: 49 24 3B 00 CB 09 50 00 89 35 30 00 F0 09 55 00 |I$;...P..50...U.| 000001D0: 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 |. +++ CHECK FOR | 000001E0: 48 45 4C 50 20 52 45 51 55 45 53 54 20 2B 2B 2B |HELP REQUEST +++| 000001F0: 00 18 0A 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 |...Z..UR$.UX$.19| 00000200: 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 45 4C 50 |5:. EXIT TO HELP| 00000210: 20 52 4F 55 54 49 4E 45 00 27 0A 5F 00 8B 55 46 | ROUTINE.'._..UF| 00000220: B2 31 A7 8D 32 34 30 00 34 0A 64 00 55 46 B2 30 |.1..240.4.d.UF.0| 00000230: 3A 99 3A 8E 00 4D 0A 66 00 8F 20 2B 2B 20 43 48 |:.:..M.f.. ++ CH| 00000240: 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B 00 5E 0A |ECK DELETE ++.^.| 00000250: 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 30 00 76 |i...(UR$).1.50.v| 00000260: 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 |.n.UR$..(UR$,.(U| 00000270: 52 24 29 AB 31 29 00 88 0A 73 00 99 22 9D 20 20 |R$).1)...s..". | 00000280: 9D 9D 22 3B 3A 89 35 30 00 AF 0A 78 00 8F 20 2B |..";:.50...x.. +| 00000290: 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 |+ CHECK FOR VALI| 000002A0: 44 20 43 48 41 52 41 43 54 45 52 53 20 2B 2B 00 |D CHARACTERS ++.| 000002B0: C1 0A 7D 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 |..}...(US$).0.15| 000002C0: 30 00 D1 0A 7F 00 55 53 24 B2 55 53 24 AA 55 58 |0.....US$.US$.UX| 000002D0: 24 00 E2 0A 82 00 81 55 53 B2 31 A4 C3 28 55 53 |$......US.1..(US| 000002E0: 24 29 00 F9 0A 87 00 8B 55 49 24 B2 CA 28 55 53 |$)......UI$..(US| 000002F0: 24 2C 55 53 2C 31 29 A7 8E 00 FF 0A 8C 00 82 00 |$,US,1).........| 00000300: 0C 0B 91 00 55 49 24 B2 22 22 3A 8E 00 27 0B 96 |....UI$."":..'..| 00000310: 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 |.. ** STANDARD I| 00000320: 4E 50 55 54 20 2A 2A 00 38 0B 98 00 8B C6 28 55 |NPUT **.8.....(U| 00000330: 49 24 29 B2 34 36 A7 8E 00 49 0B 9B 00 8B 55 49 |I$).46...I....UI| 00000340: 24 B2 C7 28 33 32 29 A7 8E 00 66 0B A0 00 8B C6 |$..(32)...f.....| 00000350: 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 |(UI$).48..(UI$).| 00000360: 35 37 A7 31 37 30 00 6C 0B A5 00 8E 00 89 0B AA |57.170.l........| 00000370: 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 |...(UI$).65..(UI| 00000380: 24 29 B1 39 30 A7 31 38 30 00 8F 0B AF 00 8E 00 |$).90.180.......| 00000390: B3 0B B4 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 |......(UI$).193.| 000003A0: C6 28 55 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 |.(UI$).218.UI$."| 000003B0: 22 3A 8E 00 D6 0B B9 00 8B C2 28 55 54 29 B2 55 |":........(UT).U| 000003C0: 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB |U%.UI$..(.(UI$).| 000003D0: 31 32 38 29 3A 8E 00 DC 0B BB 00 8E 00 E9 0B BE |128):...........| 000003E0: 00 55 49 24 B2 22 22 3A 8E 00 0E 0C C3 00 55 46 |.UI$."":......UF| 000003F0: B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F |.1:. +++ HELP RO| 00000400: 55 54 49 4E 45 20 45 58 49 54 20 2B 2B 2B 00 17 |UTINE EXIT +++..| 00000410: 0C C5 00 8D 32 35 30 00 20 0C C8 00 8D 32 34 35 |....250. ....245| 00000420: 00 3F 0C CD 00 81 55 51 B2 55 42 A4 28 55 32 25 |.?....UQ.UB.(U2%| 00000430: AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 32 29 00 |.256.U1%.U3%.2).| 00000440: 5B 0C D2 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 |[...UQ%(UQ.UB)..| 00000450: 28 55 51 29 3A 82 3A 99 22 93 22 00 6E 0C D7 00 |(UQ):.:.".".n...| 00000460: 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 00 77 |UZ.1:UV%..(UT).w| 00000470: 0C D8 00 89 33 30 30 00 9C 0C D9 00 55 5A B2 30 |....300.....UZ.0| 00000480: 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 |:US$.UJ$:UG$.UK$| 00000490: 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 00 D3 0C DA |:UP.UJ:UL.UK....| 000004A0: 00 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |...(50003).0..53| 000004B0: 32 38 31 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 |281,1:.".";:.532| 000004C0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 3A 89 |81,6:.53280,14:.| 000004D0: 32 32 30 00 DD 0C DB 00 99 22 93 22 3B 00 0C 0D |220......".";...| 000004E0: DC 00 55 54 24 B2 55 4C 24 3A 97 55 54 2C 55 56 |..UT$.UL$:.UT,UV| 000004F0: 25 3A 81 55 51 B2 |%:.UQ. |
.......910.*.... ** ML STOP KEY DISABLE **.U...."X.=........X` ......L4.X.1..... ...X`.T...."XHHH.H.HHHHHHH.H.HX`111".... .."HHHHHHH`1"...... ** 4 - POP ML SUBROU TINE **.H.... **GENERAL INPUT ROUTINE ** ...#.. +++ INPUT SECTION +++...(..UO,0:U R$."":UI$.""...*..UL.0.UL.80...-.." .." ;:.UC,0.3.2..UI$:.UI$."".50.].7..UI$.G(1 3).C(UR$)..1..UC,1:." .";:.85.P.<..UI$.G (20).105...>.. C(UR$)..UL.50...A..120:. CHECK FOR VALID CHARACTER...F.UR$.UR$.UI $.C.K..UI$;.K.P..50...U.. +++ CHECK FOR HELP REQUEST +++...Z..UR$.UX$.195:. EXIT TO HELP ROUTINE.'._..UF.1..240.4.D.UF.0 :.:..M.F.. ++ CHECK DELETE ++.^.I..C(UR$ ).1.50.V.N.UR$.H(UR$,C(UR$).1)...S..". ..";:.50...X.. ++ CHECK FOR VALID CHARAC TERS ++.A.}..C(US$).0.150.Q..US$.US$.UX $......US.1.C(US$)......UI$.J(US$,US,1). ............UI$."":..'.... ** STANDARD I NPUT **.8....F(UI$).46...I....UI$.G(32). ..F. ..F(UI$).48.F(UI$).57.170.L........ ..F(UI$).65.F(UI$).90.180............F(U I$).193.F(UI$).218.UI$."":..V....B(UT).U U%.UI$.G(F(UI$).128):............UI$."": ....C.UF.1:. +++ HELP ROUTINE EXIT +++.. .E..250. .H..245.?.M..UQ.UB.(U2%.256.U1% .U3%.2).[.R.UQ%(UQ.UB).B(UQ):.:.".".N.W. UZ.1:UV%.B(UT).W.X..300...Y.UZ.0:US$.UJ$ :UG$.UK$:UP.UJ:UL.UK.S.Z..B(50003).0..53 281,1:.".";:.53281,6:.53280,14:.220..... .".";.....UT$.UL$:.UT,UV%:.UQ.
> CLICK IMAGE PREVIEW FOR FULL MODAL