ENCODE

FILE INFORMATION

FILENAME(S): ENCODE

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-10-19 22:49:37

APPEARS ON: 1 disk(s)

FILE HASH

c9f3a9506ecf29698ecb993737a096202d823b95b30034420e07d297c96f53b8

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
GOLD DISK 6	ENCODE	PRG	Radd Maxx	10	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 D8  |.. .(142);.(8)..|
000000A0: 08 5A 00 99 20 22 93 11  45 4E 54 45 52 20 4B 45  |.Z.. "..ENTER KE|
000000B0: 59 3A 20 22 3B 3A 20 8D  20 33 37 30 3A 20 4B 45  |Y: ";: . 370: KE|
000000C0: 59 24 B2 4C 49 4E 45 24  3A 20 8B 20 4B 45 59 24  |Y$.LINE$: . KEY$|
000000D0: B2 22 22 20 A7 20 39 30  00 F2 08 64 00 99 20 22  |."" . 90...d.. "|
000000E0: 93 11 4B 45 59 20 45 4E  54 45 52 45 44 2E 2E 2E  |..KEY ENTERED...|
000000F0: 2E 22 00 F8 08 6E 00 8F  00 1C 09 78 00 8F 20 44  |."...n.....x.. D|
00000100: 45 54 45 52 4D 49 4E 45  20 49 46 20 45 4E 43 4F  |ETERMINE IF ENCO|
00000110: 44 45 20 4F 52 20 44 45  43 4F 44 45 00 22 09 82  |DE OR DECODE."..|
00000120: 00 8F 00 43 09 8C 00 85  20 22 11 45 4E 43 4F 44  |...C.... ".ENCOD|
00000130: 45 2F 44 45 43 4F 44 45  20 5B 45 2F 44 5D 22 3B  |E/DECODE [E/D]";|
00000140: 20 54 24 00 84 09 96 00  8B 20 54 24 B3 B1 22 45  | T$...... T$.."E|
00000150: 22 20 AF 20 54 24 B3 B1  22 44 22 20 A7 20 99 22  |" . T$.."D" . ."|
00000160: 49 4E 43 4F 52 52 45 43  54 20 41 4E 53 57 45 52  |INCORRECT ANSWER|
00000170: 20 2D 20 54 52 59 20 41  47 41 49 4E 22 3A 20 89  | - TRY AGAIN": .|
00000180: 20 31 34 30 00 A3 09 A0  00 53 49 47 4E B2 31 3A  | 140.....SIGN.1:|
00000190: 20 8B 20 54 24 B2 22 44  22 20 A7 20 53 49 47 4E  | . T$."D" . SIGN|
000001A0: B2 AB 31 00 A9 09 AA 00  8F 00 C3 09 B4 00 8F 20  |..1............ |
000001B0: 52 45 51 55 45 53 54 20  53 4F 55 52 43 45 20 4C  |REQUEST SOURCE L|
000001C0: 49 4E 45 00 C9 09 BE 00  8F 00 03 0A C8 00 99 20  |INE............ |
000001D0: 22 11 45 4E 54 45 52 20  53 4F 55 52 43 45 20 4D  |".ENTER SOURCE M|
000001E0: 45 53 53 41 47 45 3A 20  22 3B 3A 20 8D 20 33 37  |ESSAGE: ";: . 37|
000001F0: 30 3A 20 8B 20 4C 49 4E  45 24 B2 22 22 20 A7 20  |0: . LINE$."" . |
00000200: 32 30 30 00 09 0A D2 00  8F 00 2D 0A DC 00 8F 20  |200.......-.... |
00000210: 43 41 4C 43 55 4C 41 54  45 20 41 4E 44 20 50 52  |CALCULATE AND PR|
00000220: 49 4E 54 20 43 4F 44 45  44 20 4D 53 47 00 33 0A  |INT CODED MSG.3.|
00000230: E6 00 8F 00 56 0A F0 00  99 20 22 11 4F 55 54 50  |....V.... ".OUTP|
00000240: 55 54 20 4D 45 53 53 41  47 45 20 49 53 3A 20 12  |UT MESSAGE IS: .|
00000250: 22 3B 3A 50 B2 30 00 6B  0A FA 00 81 20 49 B2 31  |";:P.0.k.... I.1|
00000260: 20 A4 20 C3 28 4C 49 4E  45 24 29 00 81 0A 04 01  | . .(LINE$).....|
00000270: 54 B2 C6 28 CA 28 4C 49  4E 45 24 2C 49 2C 31 29  |T..(.(LINE$,I,1)|
00000280: 29 00 9E 0A 0E 01 50 B2  50 AA 31 3A 20 8B 20 50  |).....P.P.1: . P|
00000290: B1 C3 28 4B 45 59 24 29  20 A7 20 50 B2 31 00 B9  |..(KEY$) . P.1..|
000002A0: 0A 18 01 43 4F 44 45 20  B2 20 C6 28 CA 28 4B 45  |...CODE . .(.(KE|
000002B0: 59 24 2C 50 29 29 AB 33  32 00 D3 0A 22 01 4E 57  |Y$,P)).32...".NW|
000002C0: 43 4F 44 45 B2 54 AA 36  34 AA 53 49 47 4E AC 43  |CODE.T.64.SIGN.C|
000002D0: 4F 44 45 00 F5 0A 2C 01  4E 57 43 4F 44 45 B2 4E  |ODE...,.NWCODE.N|
000002E0: 57 43 4F 44 45 AB B5 28  4E 57 43 4F 44 45 AD 36  |WCODE..(NWCODE.6|
000002F0: 34 29 AC 36 34 00 08 0B  36 01 99 C7 28 4E 57 43  |4).64...6...(NWC|
00000300: 4F 44 45 AA 33 32 29 3B  00 1C 0B 40 01 82 20 49  |ODE.32);...@.. I|
00000310: 3A 20 97 20 32 31 32 2C  30 3A 20 99 00 26 0B 4A  |: . 212,0: ..&.J|
00000320: 01 89 20 32 30 30 00 2C  0B 54 01 8F 00 40 0B 5E  |.. 200.,.T...@.^|
00000330: 01 8F 20 49 4E 50 55 54  20 52 4F 55 54 49 4E 45  |.. INPUT ROUTINE|
00000340: 00 46 0B 68 01 8F 00 64  0B 72 01 4C 49 4E 45 24  |.F.h...d.r.LINE$|
00000350: B2 22 22 3A 20 97 20 32  30 34 2C 30 3A 20 99 20  |."": . 204,0: . |
00000360: 22 12 22 3B 00 88 0B 7C  01 A1 20 49 4E 24 3A 20  |".";...|.. IN$: |
00000370: 8B 20 49 4E 24 B2 22 22  20 A7 20 99 20 49 4E 24  |. IN$."" . . IN$|
00000380: 3B 3A 20 89 20 33 38 30  00 B3 0B 86 01 97 20 32  |;: . 380...... 2|
00000390: 31 32 2C 30 3A 20 8B 20  49 4E 24 B2 C7 28 31 33  |12,0: . IN$..(13|
000003A0: 29 20 A7 20 97 20 32 30  34 2C 32 35 35 3A 20 99  |) . . 204,255: .|
000003B0: 3A 20 8E 00 D5 0B 90 01  8B 20 49 4E 24 B3 B1 C7  |: ....... IN$...|
000003C0: 28 32 30 29 20 B0 20 4C  49 4E 45 24 B2 22 22 20  |(20) . LINE$."" |
000003D0: A7 20 34 32 30 00 02 0C  9A 01 4C 49 4E 45 24 B2  |. 420.....LINE$.|
000003E0: C8 28 4C 49 4E 45 24 2C  C3 28 4C 49 4E 45 24 29  |.(LINE$,.(LINE$)|
000003F0: AB 31 29 3A 20 99 20 49  4E 24 3B 3A 20 89 20 33  |.1): . IN$;: . 3|
00000400: 38 30 00 3A 0C A4 01 8B  20 C6 28 49 4E 24 29 B1  |80.:.... .(IN$).|
00000410: B2 33 32 20 AF 20 C6 28  49 4E 24 29 B3 B2 39 35  |.32 . .(IN$)..95|
00000420: 20 A7 20 4C 49 4E 45 24  B2 4C 49 4E 45 24 AA 49  | . LINE$.LINE$.I|
00000430: 4E 24 3A 20 99 20 49 4E  24 3B 00 44 0C AE 01 89  |N$: . IN$;.D....|
00000440: 20 33 38 30 00 00 00                              | 380...         |

....... (C) GOLD DISK INC.......F.... EN
CRIPTION/DECRIPTION TECHNIQUES.N.(.. "..
...............................T.2.....<
.. REQUEST KEY...F.....P.. G(142);G(8).X
.Z.. "..ENTER KEY: ";: . 370: KEY$.LINE$
: . KEY$."" . 90...D.. "..KEY ENTERED...
."...N.....X.. DETERMINE IF ENCODE OR DE
CODE.".....C.... ".ENCODE/DECODE [E/D]";
 T$...... T$.."E" . T$.."D" . ."INCORREC
T ANSWER - TRY AGAIN": . 140... .SIGN.1:
 . T$."D" . SIGN..1.......C.... REQUEST 
SOURCE LINE.I.......H.. ".ENTER SOURCE M
ESSAGE: ";: . 370: . LINE$."" . 200...R.
..-.... CALCULATE AND PRINT CODED MSG.3.
....V.... ".OUTPUT MESSAGE IS: .";:P.0.K
.... I.1 . C(LINE$).....T.F(J(LINE$,I,1)
).....P.P.1: . P.C(KEY$) . P.1.....CODE 
. F(J(KEY$,P)).32.S.".NWCODE.T.64.SIGN.C
ODE...,.NWCODE.NWCODE..(NWCODE.64).64...
6..G(NWCODE.32);...@.. I: . 212,0: ..&.J
.. 200.,.T...@.^.. INPUT ROUTINE.F.H...D
.R.LINE$."": . 204,0: . ".";...|.. IN$: 
. IN$."" . . IN$;: . 380...... 212,0: . 
IN$.G(13) . . 204,255: .: ..U.... IN$..G
(20) . LINE$."" . 420.....LINE$.H(LINE$,
C(LINE$).1): . IN$;: . 380.:.... F(IN$).
.32 . F(IN$)..95 . LINE$.LINE$.IN$: . IN
$;.D.... 380...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL