CODE DECODE/128

FILE INFORMATION

FILENAME(S): CODE DECODE/128

FILE TYPE(S): PRG

FILE SIZE: 802b

FIRST SEEN: 2025-10-19 22:48:43

APPEARS ON: 1 disk(s)

FILE HASH

eed35d6598360bb7ca2158fc54a3a9350f66aa4a55d37365f2d1f1a9b9e59d85

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
GAZETTE MAY 86	CODE DECODE/128	PRG	Radd Maxx	7	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 17 1C 18 F6 8F 20  2A 2A 2A 2A 20 43 4F 44  |....... **** COD|
00000010: 45 52 20 2A 2A 2A 2A 00  23 1C 22 F6 58 B2 31 30  |ER ****.#.".X.10|
00000020: 30 30 30 00 39 1C 2C F6  59 B2 38 34 32 3A 5A B2  |000.9.,.Y.842:Z.|
00000030: 32 30 38 3A 42 24 B2 22  22 00 43 1C 36 F6 99 22  |208:B$."".C.6.."|
00000040: 9F 93 22 00 76 1C 40 F6  53 24 B2 22 2E 41 42 43  |..".v.@.S$.".ABC|
00000050: 44 45 46 47 48 49 4A 4B  4C 4D 4E 4F 50 51 52 53  |DEFGHIJKLMNOPQRS|
00000060: 54 55 56 57 58 59 5A 3F  21 31 32 33 34 35 36 37  |TUVWXYZ?!1234567|
00000070: 38 39 30 27 20 22 00 AA  1C 4A F6 53 31 24 B2 22  |890' "...J.S1$."|
00000080: 20 21 3F 5A 59 58 57 56  55 54 53 52 51 50 4F 4E  | !?ZYXWVUTSRQPON|
00000090: 4D 4C 4B 4A 49 48 47 46  45 44 43 42 41 2E 30 39  |MLKJIHGFEDCBA.09|
000000A0: 38 37 36 35 34 33 32 31  27 22 00 EA 1C 54 F6 99  |87654321'"...T..|
000000B0: 22 45 4E 54 45 52 20 44  41 54 41 20 54 4F 20 42  |"ENTER DATA TO B|
000000C0: 45 20 43 4F 44 45 44 20  28 27 45 4E 44 27 20 54  |E CODED ('END' T|
000000D0: 4F 20 51 55 49 54 29 3A  22 3A 85 41 24 3A 8B 41  |O QUIT):":.A$:.A|
000000E0: 24 B2 22 45 4E 44 22 A7  20 80 00 F9 1C 5E F6 81  |$."END". ....^..|
000000F0: 4E B2 31 A4 C3 28 41 24  29 00 05 1D 68 F6 81 52  |N.1..(A$)...h..R|
00000100: B2 31 A4 34 31 00 31 1D  72 F6 8B CA 28 41 24 2C  |.1.41.1.r...(A$,|
00000110: 4E 2C 31 29 B2 CA 28 53  24 2C 52 2C 31 29 A7 43  |N,1)..(S$,R,1).C|
00000120: 24 B2 CA 28 53 31 24 2C  52 2C 31 29 3A 52 B2 34  |$..(S1$,R,1):R.4|
00000130: 31 00 38 1D 7C F6 82 52  00 48 1D 86 F6 42 24 B2  |1.8.|..R.H...B$.|
00000140: 42 24 AA 43 24 3A 82 4E  00 78 1D 90 F6 99 22 93  |B$.C$:.N.x....".|
00000150: 90 22 58 22 44 C1 22 C7  28 33 34 29 42 24 C7 28  |."X"D.".(34)B$.(|
00000160: 33 34 29 22 11 11 58 3D  22 58 AA 31 22 3A 47 4F  |34)"..X="X.1":GO|
00000170: 54 4F 36 33 30 32 30 22  00 A1 1D 9A F6 97 59 2C  |TO63020"......Y,|
00000180: 31 39 3A 97 59 AA 31 2C  31 33 3A 97 59 AA 32 2C  |19:.Y.1,13:.Y.2,|
00000190: 31 33 3A 97 59 AA 33 2C  31 33 3A 97 5A 2C 34 3A  |13:.Y.3,13:.Z,4:|
000001A0: 80 00 B9 1D E0 F6 8F 20  2A 2A 2A 2A 20 44 45 43  |....... **** DEC|
000001B0: 4F 44 45 52 20 2A 2A 2A  2A 00 ED 1D EA F6 53 31  |ODER ****.....S1|
000001C0: 24 B2 22 2E 41 42 43 44  45 46 47 48 49 4A 4B 4C  |$.".ABCDEFGHIJKL|
000001D0: 4D 4E 4F 50 51 52 53 54  55 56 57 58 59 5A 3F 21  |MNOPQRSTUVWXYZ?!|
000001E0: 31 32 33 34 35 36 37 38  39 30 27 20 22 00 20 1E  |1234567890' ". .|
000001F0: F4 F6 53 24 B2 22 20 21  3F 5A 59 58 57 56 55 54  |..S$." !?ZYXWVUT|
00000200: 53 52 51 50 4F 4E 4D 4C  4B 4A 49 48 47 46 45 44  |SRQPONMLKJIHGFED|
00000210: 43 42 41 2E 30 39 38 37  36 35 34 33 32 31 27 22  |CBA.0987654321'"|
00000220: 00 5E 1E FE F6 99 22 93  45 4E 54 45 52 20 23 20  |.^....".ENTER # |
00000230: 4F 46 20 44 41 54 41 20  53 54 41 54 45 4D 45 4E  |OF DATA STATEMEN|
00000240: 54 53 20 54 4F 20 44 45  43 4F 44 45 3A 22 3A 85  |TS TO DECODE:":.|
00000250: 4E 3A 81 4C B2 31 A4 4E  3A 42 24 B2 22 22 00 80  |N:.L.1.N:B$.""..|
00000260: 1E 08 F7 87 41 24 3A 8F  20 47 45 54 20 46 52 4F  |....A$:. GET FRO|
00000270: 4D 20 44 41 54 41 20 53  54 41 54 45 4D 45 4E 54  |M DATA STATEMENT|
00000280: 00 8F 1E 12 F7 81 4E B2  31 A4 C3 28 41 24 29 00  |......N.1..(A$).|
00000290: 9B 1E 1C F7 81 52 B2 31  A4 34 31 00 C7 1E 26 F7  |.....R.1.41...&.|
000002A0: 8B CA 28 41 24 2C 4E 2C  31 29 B2 CA 28 53 24 2C  |..(A$,N,1)..(S$,|
000002B0: 52 2C 31 29 A7 43 24 B2  CA 28 53 31 24 2C 52 2C  |R,1).C$..(S1$,R,|
000002C0: 31 29 3A 52 B2 34 31 00  CE 1E 30 F7 82 52 00 DE  |1):R.41...0..R..|
000002D0: 1E 3A F7 42 24 B2 42 24  AA 43 24 3A 82 4E 00 1F  |.:.B$.B$.C$:.N..|
000002E0: 1F 44 F7 99 42 24 3A 82  4C 3A 8F 20 55 53 45 20  |.D..B$:.L:. USE |
000002F0: 42 24 20 49 4E 20 59 4F  55 52 20 50 52 4F 47 52  |B$ IN YOUR PROGR|
00000300: 41 4D 2C 20 44 45 4C 45  54 45 20 50 52 49 4E 54  |AM, DELETE PRINT|
00000310: 42 24 20 49 46 20 4E 45  43 45 53 53 41 52 59 00  |B$ IF NECESSARY.|
00000320: 00 00                                             |..              |

....... **** CODER ****.#.".X.10000.9.,.
Y.842:Z.208:B$."".C.6.."..".V.@.S$.".ABC
DEFGHIJKLMNOPQRSTUVWXYZ?!1234567890' "..
.J.S1$." !?ZYXWVUTSRQPONMLKJIHGFEDCBA.09
87654321'"...T.."ENTER DATA TO BE CODED 
('END' TO QUIT):":.A$:.A$."END". ....^..
N.1.C(A$)...H..R.1.41.1.R..J(A$,N,1).J(S
$,R,1).C$.J(S1$,R,1):R.41.8.|..R.H...B$.
B$.C$:.N.X....".."X"DA"G(34)B$G(34)"..X=
"X.1":GOTO63020"......Y,19:.Y.1,13:.Y.2,
13:.Y.3,13:.Z,4:....... **** DECODER ***
*.....S1$.".ABCDEFGHIJKLMNOPQRSTUVWXYZ?!
1234567890' ". ...S$." !?ZYXWVUTSRQPONML
KJIHGFEDCBA.0987654321'".^....".ENTER # 
OF DATA STATEMENTS TO DECODE:":.N:.L.1.N
:B$.""......A$:. GET FROM DATA STATEMENT
......N.1.C(A$)......R.1.41.G.&..J(A$,N,
1).J(S$,R,1).C$.J(S1$,R,1):R.41.N.0..R..
.:.B$.B$.C$:.N...D..B$:.L:. USE B$ IN YO
UR PROGRAM, DELETE PRINTB$ IF NECESSARY.
..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL