ENCODE SOLUTION
FILE INFORMATION
FILENAME(S): ENCODE SOLUTION
FILE TYPE(S): PRG
FILE SIZE: 1.1K
FIRST SEEN: 2025-10-19 22:49:37
APPEARS ON: 1 disk(s)
FILE HASH
60639b282aeba01db9d26056e56095aa88cc12207208cff17137da85ae22f5d6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GOLD DISK 6 | ENCODE SOLUTION | PRG | Radd Maxx | 9 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 0A 00 8F 20 28 43 29 20 47 4F 4C 44 |....... (C) GOLD| 00000010: 20 44 49 53 4B 20 49 4E 43 00 1F 08 14 00 8F 00 | DISK INC.......| 00000020: 46 08 1E 00 8F 20 45 4E 43 52 49 50 54 49 4F 4E |F.... ENCRIPTION| 00000030: 2F 44 45 43 52 49 50 54 49 4F 4E 20 54 45 43 48 |/DECRIPTION TECH| 00000040: 4E 49 51 55 45 53 00 6E 08 28 00 8F 20 22 C0 C0 |NIQUES.n.(.. "..| 00000050: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000060: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 00 74 |...............t| 00000070: 08 32 00 8F 00 86 08 3C 00 8F 20 52 45 51 55 45 |.2.....<.. REQUE| 00000080: 53 54 20 4B 45 59 00 8C 08 46 00 8F 00 9E 08 50 |ST KEY...F.....P| 00000090: 00 99 20 C7 28 31 34 32 29 3B C7 28 38 29 00 D9 |.. .(142);.(8)..| 000000A0: 08 5A 00 99 20 22 05 93 11 45 4E 54 45 52 20 4B |.Z.. "...ENTER K| 000000B0: 45 59 3A 20 22 3B 3A 20 8D 20 33 38 30 3A 20 4B |EY: ";: . 380: K| 000000C0: 45 59 24 B2 4C 49 4E 45 24 3A 20 8B 20 4B 45 59 |EY$.LINE$: . KEY| 000000D0: 24 B2 22 22 20 A7 20 39 30 00 F3 08 64 00 99 20 |$."" . 90...d.. | 000000E0: 22 93 11 4B 45 59 20 45 4E 54 45 52 45 44 2E 2E |"..KEY ENTERED..| 000000F0: 2E 2E 22 00 F9 08 6E 00 8F 00 1D 09 78 00 8F 20 |.."...n.....x.. | 00000100: 44 45 54 45 52 4D 49 4E 45 20 49 46 20 45 4E 43 |DETERMINE IF ENC| 00000110: 4F 44 45 20 4F 52 20 44 45 43 4F 44 45 00 23 09 |ODE OR DECODE.#.| 00000120: 82 00 8F 00 44 09 8C 00 85 20 22 11 45 4E 43 4F |....D.... ".ENCO| 00000130: 44 45 2F 44 45 43 4F 44 45 20 5B 45 2F 44 5D 22 |DE/DECODE [E/D]"| 00000140: 3B 20 54 24 00 85 09 96 00 8B 20 54 24 B3 B1 22 |; T$...... T$.."| 00000150: 45 22 20 AF 20 54 24 B3 B1 22 44 22 20 A7 20 99 |E" . T$.."D" . .| 00000160: 22 49 4E 43 4F 52 52 45 43 54 20 41 4E 53 57 45 |"INCORRECT ANSWE| 00000170: 52 20 2D 20 54 52 59 20 41 47 41 49 4E 22 3A 20 |R - TRY AGAIN": | 00000180: 89 20 31 34 30 00 A4 09 A0 00 53 49 47 4E B2 31 |. 140.....SIGN.1| 00000190: 3A 20 8B 20 54 24 B2 22 44 22 20 A7 20 53 49 47 |: . T$."D" . SIG| 000001A0: 4E B2 AB 31 00 AA 09 AA 00 8F 00 C4 09 B4 00 8F |N..1............| 000001B0: 20 52 45 51 55 45 53 54 20 53 4F 55 52 43 45 20 | REQUEST SOURCE | 000001C0: 4C 49 4E 45 00 CA 09 BE 00 8F 00 FB 09 C8 00 99 |LINE............| 000001D0: 20 22 11 45 4E 54 45 52 20 53 4F 55 52 43 45 20 | ".ENTER SOURCE | 000001E0: 4D 45 53 53 41 47 45 20 28 20 12 20 46 31 20 92 |MESSAGE ( . F1 .| 000001F0: 20 54 4F 20 53 54 4F 50 20 29 22 00 17 0A D2 00 | TO STOP )".....| 00000200: 8D 20 33 38 30 3A 20 8B 20 4C 49 4E 45 24 B2 22 |. 380: . LINE$."| 00000210: 22 20 A7 20 32 30 30 00 1D 0A DC 00 8F 00 41 0A |" . 200.......A.| 00000220: E6 00 8F 20 43 41 4C 43 55 4C 41 54 45 20 41 4E |... CALCULATE AN| 00000230: 44 20 50 52 49 4E 54 20 43 4F 44 45 44 20 4D 53 |D PRINT CODED MS| 00000240: 47 00 47 0A F0 00 8F 00 6A 0A FA 00 99 20 22 11 |G.G.....j.... ".| 00000250: 4F 55 54 50 55 54 20 4D 45 53 53 41 47 45 20 49 |OUTPUT MESSAGE I| 00000260: 53 3A 20 12 22 3B 3A 50 B2 30 00 7F 0A 04 01 81 |S: .";:P.0......| 00000270: 20 49 B2 31 20 A4 20 C3 28 4C 49 4E 45 24 29 00 | I.1 . .(LINE$).| 00000280: 95 0A 0E 01 54 B2 C6 28 CA 28 4C 49 4E 45 24 2C |....T..(.(LINE$,| 00000290: 49 2C 31 29 29 00 B2 0A 18 01 50 B2 50 AA 31 3A |I,1)).....P.P.1:| 000002A0: 20 8B 20 50 B1 C3 28 4B 45 59 24 29 20 A7 20 50 | . P..(KEY$) . P| 000002B0: B2 31 00 CD 0A 22 01 43 4F 44 45 20 B2 20 C6 28 |.1...".CODE . .(| 000002C0: CA 28 4B 45 59 24 2C 50 29 29 AB 33 32 00 E7 0A |.(KEY$,P)).32...| 000002D0: 2C 01 4E 57 43 4F 44 45 B2 54 AA 36 34 AA 53 49 |,.NWCODE.T.64.SI| 000002E0: 47 4E AC 43 4F 44 45 00 09 0B 36 01 4E 57 43 4F |GN.CODE...6.NWCO| 000002F0: 44 45 B2 4E 57 43 4F 44 45 AB B5 28 4E 57 43 4F |DE.NWCODE..(NWCO| 00000300: 44 45 AD 36 34 29 AC 36 34 00 1C 0B 40 01 99 C7 |DE.64).64...@...| 00000310: 28 4E 57 43 4F 44 45 AA 33 32 29 3B 00 30 0B 4A |(NWCODE.32);.0.J| 00000320: 01 82 20 49 3A 20 97 20 32 31 32 2C 30 3A 20 99 |.. I: . 212,0: .| 00000330: 00 3A 0B 54 01 89 20 32 30 30 00 40 0B 5E 01 8F |.:.T.. 200.@.^..| 00000340: 00 54 0B 68 01 8F 20 49 4E 50 55 54 20 52 4F 55 |.T.h.. INPUT ROU| 00000350: 54 49 4E 45 00 5A 0B 72 01 8F 00 78 0B 7C 01 4C |TINE.Z.r...x.|.L| 00000360: 49 4E 45 24 B2 22 22 3A 20 97 20 32 30 34 2C 30 |INE$."": . 204,0| 00000370: 3A 20 99 20 22 12 22 3B 00 9C 0B 86 01 A1 20 49 |: . ".";...... I| 00000380: 4E 24 3A 20 8B 20 49 4E 24 B2 22 22 20 A7 20 99 |N$: . IN$."" . .| 00000390: 20 49 4E 24 3B 3A 20 89 20 33 39 30 00 C6 0B 90 | IN$;: . 390....| 000003A0: 01 8B 20 49 4E 24 B2 22 85 22 20 A7 20 97 20 32 |.. IN$."." . . 2| 000003B0: 30 34 2C 32 35 35 3A 20 99 20 22 93 22 3A 20 9E |04,255: . ".": .| 000003C0: 20 34 39 31 35 32 00 F1 0B 9A 01 97 20 32 31 32 | 49152...... 212| 000003D0: 2C 30 3A 20 8B 20 49 4E 24 B2 C7 28 31 33 29 20 |,0: . IN$..(13) | 000003E0: A7 20 97 20 32 30 34 2C 32 35 35 3A 20 99 3A 20 |. . 204,255: .: | 000003F0: 8E 00 13 0C A4 01 8B 20 49 4E 24 B3 B1 C7 28 32 |....... IN$...(2| 00000400: 30 29 20 B0 20 4C 49 4E 45 24 B2 22 22 20 A7 20 |0) . LINE$."" . | 00000410: 34 34 30 00 40 0C AE 01 4C 49 4E 45 24 B2 C8 28 |440.@...LINE$..(| 00000420: 4C 49 4E 45 24 2C C3 28 4C 49 4E 45 24 29 AB 31 |LINE$,.(LINE$).1| 00000430: 29 3A 20 99 20 49 4E 24 3B 3A 20 89 20 33 39 30 |): . IN$;: . 390| 00000440: 00 78 0C B8 01 8B 20 C6 28 49 4E 24 29 B1 B2 33 |.x.... .(IN$)..3| 00000450: 32 20 AF 20 C6 28 49 4E 24 29 B3 B2 39 35 20 A7 |2 . .(IN$)..95 .| 00000460: 20 4C 49 4E 45 24 B2 4C 49 4E 45 24 AA 49 4E 24 | LINE$.LINE$.IN$| 00000470: 3A 20 99 20 49 4E 24 3B 00 82 0C C2 01 89 20 33 |: . IN$;...... 3| 00000480: 39 30 00 00 00 |90... |
....... (C) GOLD DISK INC.......F.... EN CRIPTION/DECRIPTION TECHNIQUES.N.(.. ".. ...............................T.2.....< .. REQUEST KEY...F.....P.. G(142);G(8).Y .Z.. "...ENTER KEY: ";: . 380: KEY$.LINE $: . KEY$."" . 90...D.. "..KEY ENTERED.. .."...N.....X.. DETERMINE IF ENCODE OR D ECODE.#.....D.... ".ENCODE/DECODE [E/D]" ; T$...... T$.."E" . T$.."D" . ."INCORRE CT ANSWER - TRY AGAIN": . 140... .SIGN.1 : . T$."D" . SIGN..1.......D.... REQUEST SOURCE LINE.J.......H.. ".ENTER SOURCE MESSAGE ( . F1 . TO STOP )"...R.. 380: . LINE$."" . 200.......A.... CALCULATE AN D PRINT CODED MSG.G.....J.... ".OUTPUT M ESSAGE IS: .";:P.0..... I.1 . C(LINE$). ....T.F(J(LINE$,I,1)).....P.P.1: . P.C(K EY$) . P.1.M.".CODE . F(J(KEY$,P)).32... ,.NWCODE.T.64.SIGN.CODE...6.NWCODE.NWCOD E..(NWCODE.64).64...@..G(NWCODE.32);.0.J .. I: . 212,0: ..:.T.. 200.@.^...T.H.. I NPUT ROUTINE.Z.R...X.|.LINE$."": . 204,0 : . ".";...... IN$: . IN$."" . . IN$;: . 390.F.... IN$."." . . 204,255: . ".": . 49152...... 212,0: . IN$.G(13) . . 204, 255: .: ....... IN$..G(20) . LINE$."" . 440.@...LINE$.H(LINE$,C(LINE$).1): . IN$ ;: . 390.X.... F(IN$)..32 . F(IN$)..95 . LINE$.LINE$.IN$: . IN$;...B.. 390...
> CLICK IMAGE PREVIEW FOR FULL MODAL