CODE-DECODE
FILE INFORMATION
FILENAME(S): CODE-DECODE
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-12-02 02:15:03
APPEARS ON: 1 disk(s)
FILE HASH
405b7ce148622cbc0bca879d23fd2512a7662e0b39fe3642e420e5f535d3acfb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PANS TOOLS 08 | CODE-DECODE | PRG | The BAM Archive | 6 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 0A 00 99 22 93 22 00 2E 08 0F 00 99 |......."."......| 00000010: 3A 99 22 20 20 20 20 20 20 20 20 20 2A 2A 2A 43 |:." ***C| 00000020: 4F 44 45 2D 44 45 43 4F 44 45 2A 2A 2A 22 00 54 |ODE-DECODE***".T| 00000030: 08 14 00 86 41 28 32 36 29 2C 42 28 32 36 29 2C |....A(26),B(26),| 00000040: 43 28 32 35 35 29 2C 44 28 32 35 35 29 2C 45 28 |C(255),D(255),E(| 00000050: 32 35 35 29 00 68 08 1E 00 50 49 B2 33 2E 31 34 |255).h...PI.3.14| 00000060: 31 35 39 32 36 35 33 36 00 90 08 28 00 42 24 B2 |15926536...(.B$.| 00000070: 22 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 |"XXXXXXXXXXXXXXX| 00000080: 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 22 |XXXXXXXXXXXXXXX"| 00000090: 00 AA 08 32 00 81 20 4A B2 31 20 A4 20 32 36 3A |...2.. J.1 . 26:| 000000A0: 41 28 4A 29 B2 4A 3A 82 20 4A 00 B4 08 37 00 99 |A(J).J:. J...7..| 000000B0: 3A 99 3A 99 00 DB 08 3C 00 99 22 47 45 45 46 20 |:.:....<.."GEEF | 000000C0: 55 57 20 43 4F 44 45 4E 55 4D 4D 45 52 20 20 3C |UW CODENUMMER <| 000000D0: 30 2D 31 3E 20 22 3B 3A 85 20 53 00 E1 08 41 00 |0-1> ";:. S...A.| 000000E0: 99 00 0D 09 46 00 99 22 43 4F 44 45 3D 30 20 44 |....F.."CODE=0 D| 000000F0: 45 43 4F 44 45 3D 31 20 20 47 45 45 46 20 55 57 |ECODE=1 GEEF UW| 00000100: 20 4B 45 55 5A 45 3A 22 3B 3A 85 20 44 00 30 09 | KEUZE:";:. D.0.| 00000110: 50 00 81 20 49 B2 31 20 A4 20 32 36 3A 51 B2 28 |P.. I.1 . 26:Q.(| 00000120: 53 AA 50 49 29 AE 33 3A 53 B2 51 AB B5 28 51 29 |S.PI).3:S.Q..(Q)| 00000130: 00 40 09 5A 00 4A B2 B5 28 53 AC 32 36 AA 31 29 |.@.Z.J..(S.26.1)| 00000140: 00 60 09 64 00 50 B2 41 28 49 29 3A 41 28 49 29 |.`.d.P.A(I):A(I)| 00000150: B2 41 28 4A 29 3A 41 28 4A 29 B2 50 3A 82 20 49 |.A(J):A(J).P:. I| 00000160: 00 81 09 6E 00 81 20 4A B2 31 20 A4 20 32 36 3A |...n.. J.1 . 26:| 00000170: 51 B2 41 28 4A 29 3A 42 28 51 29 B2 4A 3A 82 20 |Q.A(J):B(Q).J:. | 00000180: 4A 00 87 09 73 00 99 00 AF 09 78 00 99 22 48 4F |J...s.....x.."HO| 00000190: 45 56 45 45 4C 20 4C 45 54 54 45 52 53 20 20 28 |EVEEL LETTERS (| 000001A0: 4D 41 58 2E 20 32 35 35 29 22 3B 3A 85 20 48 00 |MAX. 255)";:. H.| 000001B0: C8 09 82 00 81 20 4A B2 31 20 A4 20 48 3A 43 28 |..... J.1 . H:C(| 000001C0: 4A 29 B2 4A 3A 82 20 4A 00 D6 09 8C 00 81 20 49 |J).J:. J...... I| 000001D0: B2 31 20 A4 20 48 00 F0 09 96 00 51 B2 28 53 AA |.1 . H.....Q.(S.| 000001E0: 50 49 29 AE 32 2E 35 3A 53 B2 51 AB B5 28 51 29 |PI).2.5:S.Q..(Q)| 000001F0: 00 FF 09 A0 00 4A B2 B5 28 53 AC 48 AA 31 29 00 |.....J..(S.H.1).| 00000200: 1F 0A AA 00 50 B2 43 28 49 29 3A 43 28 49 29 B2 |....P.C(I):C(I).| 00000210: 43 28 4A 29 3A 43 28 4A 29 B2 50 3A 82 20 49 00 |C(J):C(J).P:. I.| 00000220: 38 0A B4 00 81 20 4A B2 31 20 A4 20 48 3A 43 28 |8.... J.1 . H:C(| 00000230: 4A 29 B2 4A 3A 82 20 4A 00 45 0A BE 00 8B 44 B2 |J).J:. J.E....D.| 00000240: 31 A7 33 37 30 00 4B 0A C3 00 99 00 7D 0A C8 00 |1.370.K.....}...| 00000250: 99 20 22 47 45 45 46 20 4C 45 54 54 45 52 53 20 |. "GEEF LETTERS | 00000260: 2C 5A 4F 4E 44 45 52 20 53 50 41 54 49 45 53 20 |,ZONDER SPATIES | 00000270: 22 3B 3A 85 41 24 20 3A 99 3A 99 3A 99 00 95 0A |";:.A$ :.:.:....| 00000280: D2 00 4B B2 C3 28 41 24 29 3A 8B 20 4B B1 B2 48 |..K..(A$):. K..H| 00000290: 20 A7 32 33 30 00 A9 0A DC 00 41 24 B2 41 24 AA | .230.....A$.A$.| 000002A0: C8 28 42 24 2C 48 AB 4B 29 00 CD 0A E6 00 81 20 |.(B$,H.K)...... | 000002B0: 4B B2 31 20 A4 20 48 3A 4C 24 B2 C8 28 41 24 2C |K.1 . H:L$..(A$,| 000002C0: 4B 29 3A 4C 24 B2 C9 28 4C 24 2C 31 29 00 E3 0A |K):L$..(L$,1)...| 000002D0: F0 00 47 B2 C6 28 4C 24 29 AB 36 34 3A 47 B2 41 |..G..(L$).64:G.A| 000002E0: 28 47 29 00 FD 0A FA 00 51 B2 28 53 AA 50 49 29 |(G).....Q.(S.PI)| 000002F0: AE 33 2E 35 3A 53 B2 51 AB B5 28 51 29 00 0F 0B |.3.5:S.Q..(Q)...| 00000300: 04 01 47 B2 47 AA B5 28 53 AC 32 36 AA 31 29 00 |..G.G..(S.26.1).| 00000310: 24 0B 0E 01 47 B2 47 AB B5 28 47 AD 32 36 29 AC |$...G.G..(G.26).| 00000320: 32 36 AA 31 00 36 0B 18 01 51 B2 43 28 4B 29 3A |26.1.6...Q.C(K):| 00000330: 44 28 51 29 B2 47 00 3E 0B 22 01 82 20 4B 00 4C |D(Q).G.>.".. K.L| 00000340: 0B 2C 01 81 20 49 B2 31 20 A4 20 48 00 5D 0B 36 |.,.. I.1 . H.].6| 00000350: 01 99 C7 28 44 28 49 29 AA 36 34 29 3B 00 76 0B |...(D(I).64);.v.| 00000360: 40 01 8B 20 49 AB B5 28 49 AD 31 30 29 AC 31 30 |@.. I..(I.10).10| 00000370: B2 30 20 A7 20 99 00 7E 0B 4A 01 82 20 49 00 A5 |.0 . ..~.J.. I..| 00000380: 0B 54 01 99 3A 99 20 22 4E 4F 47 20 45 45 4E 20 |.T..:. "NOG EEN | 00000390: 42 4C 4F 4B 20 3C 4A 41 2F 4E 45 45 3E A0 22 3B |BLOK <JA/NEE>.";| 000003A0: 3A 85 20 41 24 00 BD 0B 5E 01 8B 20 C8 28 41 24 |:. A$...^.. .(A$| 000003B0: 2C 31 29 B2 22 4A 22 20 A7 20 31 32 30 00 C3 0B |,1)."J" . 120...| 000003C0: 68 01 80 00 EC 0B 72 01 99 3A 99 20 22 47 45 45 |h.....r..:. "GEE| 000003D0: 46 20 4C 45 54 54 45 52 53 2C 20 5A 4F 4E 44 45 |F LETTERS, ZONDE| 000003E0: 52 20 53 50 41 54 49 45 53 A0 22 3B 00 0A 0C 7C |R SPATIES.";...|| 000003F0: 01 85 20 41 24 3A 4B B2 C3 28 41 24 29 3A 8B 20 |.. A$:K..(A$):. | 00000400: 4B B1 B2 48 20 A7 20 34 30 30 00 1E 0C 86 01 41 |K..H . 400.....A| 00000410: 24 B2 41 24 AA C8 28 41 24 2C 48 AB 4B 29 00 2C |$.A$..(A$,H.K).,| 00000420: 0C 90 01 81 20 4B B2 31 20 A4 20 48 00 46 0C 9A |.... K.1 . H.F..| 00000430: 01 4C 24 B2 C8 28 41 24 2C 4B 29 3A 4C 24 B2 C9 |.L$..(A$,K):L$..| 00000440: 28 4C 24 2C 31 29 00 60 0C A4 01 47 B2 C6 28 4C |(L$,1).`...G..(L| 00000450: 24 29 AB 36 34 3A 45 28 4B 29 B2 47 3A 82 20 4B |$).64:E(K).G:. K| 00000460: 00 83 0C AE 01 81 20 4B B2 31 20 A4 20 48 3A 51 |...... K.1 . H:Q| 00000470: B2 43 28 4B 29 3A 44 28 4B 29 B2 45 28 51 29 3A |.C(K):D(K).E(Q):| 00000480: 82 20 4B 00 91 0C B8 01 81 20 4B B2 31 20 A4 20 |. K...... K.1 . | 00000490: 48 00 AB 0C C2 01 51 B2 28 53 AA 50 49 29 AE 33 |H.....Q.(S.PI).3| 000004A0: 2E 35 3A 53 B2 51 AB B5 28 51 29 00 C6 0C CC 01 |.5:S.Q..(Q).....| 000004B0: 44 28 4B 29 B2 44 28 4B 29 AB B5 28 53 AC 32 36 |D(K).D(K)..(S.26| 000004C0: AA 31 29 AA 32 35 00 E2 0C D6 01 44 28 4B 29 B2 |.1).25.....D(K).| 000004D0: 44 28 4B 29 AB B5 28 44 28 4B 29 AD 32 36 29 AC |D(K)..(D(K).26).| 000004E0: 32 36 00 00 0D E0 01 8B 20 B6 28 44 28 4B 29 29 |26...... .(D(K))| 000004F0: B3 30 2E 30 30 31 20 A7 20 44 28 4B 29 B2 32 36 |.0.001 . D(K).26| 00000500: 00 08 0D EA 01 82 20 4B 00 25 0D F4 01 81 20 49 |...... K.%.... I| 00000510: B2 31 A4 48 3A 51 B2 44 28 49 29 3A 44 28 49 29 |.1.H:Q.D(I):D(I)| 00000520: B2 42 28 51 29 00 3C 0D FE 01 99 20 A3 35 29 3B |.B(Q).<.... .5);| 00000530: 20 C7 28 44 28 49 29 AA 36 34 29 3B 00 57 0D 08 | .(D(I).64);.W..| 00000540: 02 8B 20 49 B2 B5 28 49 AD 31 30 29 AC 31 30 B2 |.. I..(I.10).10.| 00000550: 30 20 A7 20 99 20 3B 00 68 0D 12 02 82 20 49 20 |0 . . ;.h.... I | 00000560: 3A 99 3A 89 20 33 34 30 00 00 00 |:.:. 340... |
......."."......:." ***CODE-DECO DE***".T....A(26),B(26),C(255),D(255),E( 255).H...PI.3.1415926536...(.B$."XXXXXXX XXXXXXXXXXXXXXXXXXXXXXX"...2.. J.1 . 26: A(J).J:. J...7..:.:....<.."GEEF UW CODEN UMMER <0-1> ";:. S...A.....F.."CODE=0 D ECODE=1 GEEF UW KEUZE:";:. D.0.P.. I.1 . 26:Q.(S.PI).3:S.Q..(Q).@.Z.J..(S.26.1) .`.D.P.A(I):A(I).A(J):A(J).P:. I...N.. J .1 . 26:Q.A(J):B(Q).J:. J...S.....X.."HO EVEEL LETTERS (MAX. 255)";:. H.H.... J. 1 . H:C(J).J:. J.V.... I.1 . H.....Q.(S. PI).2.5:S.Q..(Q)... .J..(S.H.1).....P.C( I):C(I).C(J):C(J).P:. I.8.... J.1 . H:C( J).J:. J.E....D.1.370.K.C...}.H.. "GEEF LETTERS ,ZONDER SPATIES ";:.A$ :.:.:.... R.K.C(A$):. K..H .230.....A$.A$.H(B$,H.K ).M.... K.1 . H:L$.H(A$,K):L$.I(L$,1)... ..G.F(L$).64:G.A(G).....Q.(S.PI).3.5:S.Q ..(Q).....G.G..(S.26.1).$...G.G..(G.26). 26.1.6...Q.C(K):D(Q).G.>.".. K.L.,.. I.1 . H.].6..G(D(I).64);.V.@.. I..(I.10).10 .0 . ..~.J.. I...T..:. "NOG EEN BLOK <JA /NEE> ";:. A$...^.. H(A$,1)."J" . 120.C. H.....R..:. "GEEF LETTERS, ZONDER SPATIE S ";...|.. A$:K.C(A$):. K..H . 400.....A $.A$.H(A$,H.K).,.... K.1 . H.F...L$.H(A$ ,K):L$.I(L$,1).`...G.F(L$).64:E(K).G:. K ...... K.1 . H:Q.C(K):D(K).E(Q):. K..... . K.1 . H...B.Q.(S.PI).3.5:S.Q..(Q).F.L. D(K).D(K)..(S.26.1).25...V.D(K).D(K)..(D (K).26).26...... .(D(K)).0.001 . D(K).26 ...... K.%.... I.1.H:Q.D(I):D(I).B(Q).<. ... .5); G(D(I).64);.W.... I..(I.10).10. 0 . . ;.H.... I :.:. 340...
> CLICK IMAGE PREVIEW FOR FULL MODAL