_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

CODEC

FILE INFORMATION

FILENAME(S): CODEC

FILE TYPE(S): PRG

FILE SIZE: 2.4K

FIRST SEEN: 2025-11-30 21:11:02

APPEARS ON: 1 disk(s)

FILE HASH

02555af16fb8b7c2f976ce8c6476780d893fda374020a60cedfd10e8f6826f1d

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
SPEEDY SPEL CODEC PRG DuncanTwain 10 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 16 08 0A 00 86 20  4D 41 54 52 49 58 24 28  |....... MATRIX$(|
00000010: 32 36 2C 32 36 29 00 5D  08 14 00 4D 41 58 B2 38  |26,26).]...MAX.8|
00000020: 30 30 3A 86 20 42 45 52  49 43 48 54 24 28 4D 41  |00:. BERICHT$(MA|
00000030: 58 AA 31 29 2C 43 4F 44  45 24 28 4D 41 58 AA 31  |X.1),CODE$(MAX.1|
00000040: 29 2C 44 45 43 4F 44 45  24 28 4D 41 58 AA 31 29  |),DECODE$(MAX.1)|
00000050: 2C 53 4C 45 55 54 45 4C  24 28 32 31 29 00 98 08  |,SLEUTEL$(21)...|
00000060: 1E 00 53 43 48 45 52 4D  24 B2 22 93 12 20 20 20  |..SCHERM$."..   |
00000070: 20 20 20 20 20 20 20 20  20 20 43 20 4F 20 44 20  |          C O D |
00000080: 45 20 43 20 20 20 20 20  20 20 20 20 20 20 20 20  |E C             |
00000090: 20 20 20 20 20 92 11 22  00 C7 08 28 00 45 24 B2  |     .."...(.E$.|
000000A0: 22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
000000B0: 20 20 20 20 20 12 20 45  49 4E 44 45 20 42 45 52  |     . EINDE BER|
000000C0: 49 43 48 54 20 92 22 00  CD 08 32 00 3A 00 E5 08  |ICHT ."...2.:...|
000000D0: 37 00 8F 20 2A 20 5A 45  54 20 4D 41 54 52 49 58  |7.. * ZET MATRIX|
000000E0: 20 4F 50 20 2A 00 24 09  3C 00 41 24 B2 22 2A 41  | OP *.$.<.A$."*A|
000000F0: 42 43 44 45 46 47 48 49  4A 4B 4C 4D 4E 4F 50 51  |BCDEFGHIJKLMNOPQ|
00000100: 52 53 54 55 56 57 58 59  5A 41 42 43 44 45 46 47  |RSTUVWXYZABCDEFG|
00000110: 48 49 4A 4B 4C 4D 4E 4F  50 51 52 53 54 55 56 57  |HIJKLMNOPQRSTUVW|
00000120: 58 59 5A 22 00 33 09 46  00 81 20 59 B2 31 20 A4  |XYZ".3.F.. Y.1 .|
00000130: 20 32 36 00 48 09 50 00  41 24 B2 C9 28 41 24 2C  | 26.H.P.A$..(A$,|
00000140: C3 28 41 24 29 AB 31 29  00 57 09 5A 00 81 20 58  |.(A$).1).W.Z.. X|
00000150: B2 31 20 A4 20 32 36 00  74 09 64 00 4D 41 54 52  |.1 . 26.t.d.MATR|
00000160: 49 58 24 28 59 2C 58 29  B2 CA 28 41 24 2C 28 58  |IX$(Y,X)..(A$,(X|
00000170: 29 2C 31 29 00 84 09 6E  00 82 20 58 2C 59 3A 8D  |),1)...n.. X,Y:.|
00000180: 20 34 30 30 00 8A 09 78  00 3A 00 99 09 04 01 8F  | 400...x.:......|
00000190: 20 2A 20 4D 45 4E 55 20  2A 00 BE 09 0E 01 99 20  | * MENU *...... |
000001A0: 53 43 48 45 52 4D 24 3B  22 11 11 1D 1D 4D 45 4E  |SCHERM$;"....MEN|
000001B0: 55 3A 11 9D 9D 9D 9D 9D  A3 A3 A3 A3 11 22 00 E9  |U:..........."..|
000001C0: 09 18 01 99 22 11 20 20  20 20 20 31 2E 20 43 4F  |....".     1. CO|
000001D0: 44 45 52 45 4E 20 4D 45  54 20 50 52 49 4E 54 45  |DEREN MET PRINTE|
000001E0: 52 2D 55 49 54 56 4F 45  52 00 16 0A 22 01 99 22  |R-UITVOER...".."|
000001F0: 11 20 20 20 20 20 32 2E  20 44 45 43 4F 44 45 52  |.     2. DECODER|
00000200: 45 4E 20 4D 45 54 20 50  52 49 4E 54 45 52 2D 55  |EN MET PRINTER-U|
00000210: 49 54 56 4F 45 52 00 44  0A 2C 01 99 22 11 20 20  |ITVOER.D.,..".  |
00000220: 20 20 20 33 2E 20 43 4F  44 45 52 45 4E 20 5A 4F  |   3. CODEREN ZO|
00000230: 4E 44 45 52 20 50 52 49  4E 54 45 52 2D 55 49 54  |NDER PRINTER-UIT|
00000240: 56 4F 45 52 00 74 0A 36  01 99 22 11 20 20 20 20  |VOER.t.6..".    |
00000250: 20 34 2E 20 44 45 43 4F  44 45 52 45 4E 20 5A 4F  | 4. DECODEREN ZO|
00000260: 4E 44 45 52 20 50 52 49  4E 54 45 52 2D 55 49 54  |NDER PRINTER-UIT|
00000270: 56 4F 45 52 00 8F 0A 40  01 99 22 11 20 20 12 55  |VOER...@..".  .U|
00000280: 57 20 4B 45 55 5A 45 92  20 20 12 3F 92 9D 22 00  |W KEUZE.  .?..".|
00000290: C5 0A 4A 01 A1 20 4D 45  4E 55 24 3A 4D 45 4E 55  |..J.. MENU$:MENU|
000002A0: B2 B5 28 C5 28 4D 45 4E  55 24 29 29 3A 8B 20 4D  |..(.(MENU$)):. M|
000002B0: 45 4E 55 B3 31 20 B0 20  4D 45 4E 55 20 B1 34 20  |ENU.1 . MENU .4 |
000002C0: A7 20 33 33 30 00 F4 0A  54 01 8D 20 35 35 30 3A  |. 330...T.. 550:|
000002D0: 8D 20 36 37 30 3A 91 20  4D 45 4E 55 20 8D 20 33  |. 670:. MENU . 3|
000002E0: 35 30 2C 33 36 30 2C 33  37 30 2C 33 38 30 3A 89  |50,360,370,380:.|
000002F0: 20 32 36 30 00 0C 0B 5E  01 9F 20 31 2C 34 3A 8D  | 260...^.. 1,4:.|
00000300: 20 37 39 30 3A 8D 20 34  30 30 3A 8E 00 24 0B 68  | 790:. 400:..$.h|
00000310: 01 9F 20 31 2C 34 3A 8D  20 38 38 30 3A 8D 20 34  |.. 1,4:. 880:. 4|
00000320: 30 30 3A 8E 00 36 0B 72  01 8D 20 37 39 30 3A 8D  |00:..6.r.. 790:.|
00000330: 20 34 30 30 3A 8E 00 48  0B 7C 01 8D 20 38 38 30  | 400:..H.|.. 880|
00000340: 3A 8D 20 34 30 30 3A 8E  00 4E 0B 86 01 3A 00 67  |:. 400:..N...:.g|
00000350: 0B 90 01 8F 20 2A 20 57  41 43 48 54 20 4F 50 20  |.... * WACHT OP |
00000360: 54 4F 45 54 53 20 2A 00  88 0B 9A 01 A1 20 52 4F  |TOETS *...... RO|
00000370: 4D 4D 45 4C 24 3A 8B 20  52 4F 4D 4D 45 4C 24 B3  |MMEL$:. ROMMEL$.|
00000380: B1 22 22 A7 20 34 30 30  00 A3 0B A4 01 99 22 11  |."". 400......".|
00000390: 20 20 54 4F 45 54 53 20  56 4F 4F 52 20 4D 45 4E  |  TOETS VOOR MEN|
000003A0: 55 22 3B 00 BB 0B AE 01  A1 20 49 4E 24 3A 8B 20  |U";...... IN$:. |
000003B0: 49 4E 24 B2 22 22 A7 20  34 33 30 00 C5 0B B8 01  |IN$."". 430.....|
000003C0: A0 20 31 3A 8E 00 CB 0B  C2 01 3A 00 E6 0B CC 01  |. 1:......:.....|
000003D0: 8F 20 2A 20 50 49 45 50  2C 20 42 55 46 46 45 52  |. * PIEP, BUFFER|
000003E0: 20 56 4F 4C 20 2A 00 F6  0B D6 01 53 4F 55 4E 44  | VOL *.....SOUND|
000003F0: B2 35 34 32 37 32 00 21  0C E0 01 97 20 53 4F AA  |.54272.!.... SO.|
00000400: 35 2C 31 35 3A 97 20 53  4F AA 32 34 2C 31 35 3A  |5,15:. SO.24,15:|
00000410: 97 20 53 4F AA 31 2C 31  32 3A 97 20 53 4F 2C 33  |. SO.1,12:. SO,3|
00000420: 32 00 47 0C EA 01 97 20  53 4F AA 34 2C 33 33 3A  |2.G.... SO.4,33:|
00000430: 81 20 54 B2 31 20 A4 20  32 30 30 3A 82 3A 97 20  |. T.1 . 200:.:. |
00000440: 53 4F AA 34 2C 33 32 00  65 0C F4 01 97 20 53 4F  |SO.4,32.e.... SO|
00000450: 2C 30 3A 97 20 53 4F AA  31 2C 30 3A 97 20 53 4F  |,0:. SO.1,0:. SO|
00000460: AA 32 34 2C 30 00 99 0C  FE 01 99 3A 99 22 11 20  |.24,0......:.". |
00000470: 12 20 44 45 20 42 55 46  46 45 52 20 49 53 20 56  |. DE BUFFER IS V|
00000480: 4F 4C 20 21 20 20 44 52  55 4B 20 27 46 31 27 2D  |OL !  DRUK 'F1'-|
00000490: 54 4F 45 54 53 2E 20 92  22 00 B3 0C 08 02 A1 20  |TOETS. ."...... |
000004A0: 49 4E 24 3A 8B 20 49 4E  24 B3 B1 22 85 22 A7 20  |IN$:. IN$..".". |
000004B0: 35 32 30 00 B9 0C 12 02  8E 00 BF 0C 1C 02 3A 00  |520...........:.|
000004C0: D8 0C 26 02 8F 20 2A 20  4E 4F 54 45 45 52 20 42  |..&.. * NOTEER B|
000004D0: 45 52 49 43 48 54 20 2A  00 09 0D 30 02 99 20 53  |ERICHT *...0.. S|
000004E0: 43 48 45 52 4D 24 3B 22  47 45 45 46 20 42 45 52  |CHERM$;"GEEF BER|
000004F0: 49 43 48 54 20 28 4D 41  58 2E 22 3B 4D 41 58 3B  |ICHT (MAX.";MAX;|
00000500: 22 54 45 4B 45 4E 53 29  22 00 2A 0D 3A 02 99 20  |"TEKENS)".*.:.. |
00000510: A3 32 30 29 22 53 54 4F  50 20 4D 45 54 20 27 46  |.20)"STOP MET 'F|
00000520: 31 27 2D 54 4F 45 54 53  2E 22 00 41 0D 44 02 81  |1'-TOETS.".A.D..|
00000530: 20 42 B2 31 20 A4 20 4D  41 58 3A 99 22 AF 9D 22  | B.1 . MAX:.".."|
00000540: 3B 00 59 0D 4E 02 A1 20  49 4E 24 3A 8B 20 49 4E  |;.Y.N.. IN$:. IN|
00000550: 24 B2 22 22 A7 20 35 39  30 00 75 0D 58 02 43 4F  |$."". 590.u.X.CO|
00000560: B2 C6 28 49 4E 24 29 3A  8F 20 43 4F 3D 43 4F 4E  |..(IN$):. CO=CON|
00000570: 54 52 4F 4C 45 00 96 0D  62 02 8B 20 43 4F B2 31  |TROLE...b.. CO.1|
00000580: 33 33 20 A7 20 42 45 52  49 43 48 54 24 28 42 29  |33 . BERICHT$(B)|
00000590: B2 22 2A 22 3A 8E 00 B3  0D 6C 02 8B 20 43 4F B2  |."*":....l.. CO.|
000005A0: 32 30 20 A7 20 99 20 49  4E 24 3B 3A 42 B2 42 AB  |20 . . IN$;:B.B.|
000005B0: 32 3A 82 00 D1 0D 76 02  8B 20 43 4F B3 36 35 20  |2:....v.. CO.65 |
000005C0: B0 20 43 4F B1 39 30 20  A7 20 42 B2 42 AB 31 3A  |. CO.90 . B.B.1:|
000005D0: 82 00 EE 0D 80 02 99 20  49 4E 24 3B 3A 42 45 52  |....... IN$;:BER|
000005E0: 49 43 48 54 24 28 42 29  B2 49 4E 24 3A 82 00 08  |ICHT$(B).IN$:...|
000005F0: 0E 8A 02 42 45 52 49 43  48 54 24 28 42 29 B2 22  |...BERICHT$(B)."|
00000600: 2A 22 3A 89 20 34 36 30  00 0E 0E 94 02 3A 00 27  |*":. 460.....:.'|
00000610: 0E 9E 02 8F 20 2A 20 4E  4F 54 45 45 52 20 53 4C  |.... * NOTEER SL|
00000620: 45 55 54 45 4C 20 2A 00  55 0E A8 02 99 20 53 43  |EUTEL *.U.... SC|
00000630: 48 45 52 4D 24 3B 22 47  45 45 46 20 53 4C 45 55  |HERM$;"GEEF SLEU|
00000640: 54 45 4C 20 28 4D 41 58  2E 20 32 30 20 54 45 4B  |TEL (MAX. 20 TEK|
00000650: 45 4E 53 29 22 00 77 0E  B2 02 99 20 A3 32 30 29  |ENS)".w.... .20)|
00000660: 3B 22 53 54 4F 50 20 4D  45 54 20 27 46 31 27 2D  |;"STOP MET 'F1'-|
00000670: 54 4F 45 54 53 2E 22 00  8D 0E BC 02 81 20 53 B2  |TOETS."...... S.|
00000680: 31 20 A4 20 32 30 3A 99  22 AF 9D 22 3B 00 A5 0E  |1 . 20:."..";...|
00000690: C6 02 A1 20 49 4E 24 3A  8B 20 49 4E 24 B2 22 22  |... IN$:. IN$.""|
000006A0: A7 20 37 31 30 00 C1 0E  D0 02 43 4F B2 C6 28 49  |. 710.....CO..(I|
000006B0: 4E 24 29 3A 8F 20 43 4F  3D 43 4F 4E 54 52 4F 4C  |N$):. CO=CONTROL|
000006C0: 45 00 E2 0E DA 02 8B 20  43 4F B2 31 33 33 20 A7  |E...... CO.133 .|
000006D0: 20 53 4C 45 55 54 45 4C  24 28 53 29 B2 49 4E 24  | SLEUTEL$(S).IN$|
000006E0: 3A 8E 00 FF 0E E4 02 8B  20 43 4F B2 32 30 20 A7  |:....... CO.20 .|
000006F0: 20 99 20 49 4E 24 3B 3A  53 B2 53 AB 32 3A 82 00  | . IN$;:S.S.2:..|
00000700: 1D 0F EE 02 8B 20 43 4F  B3 36 35 20 B0 20 43 4F  |..... CO.65 . CO|
00000710: B1 39 30 20 A7 20 53 B2  53 AB 31 3A 82 00 3A 0F  |.90 . S.S.1:..:.|
00000720: F8 02 99 20 49 4E 24 3B  3A 53 4C 45 55 54 45 4C  |... IN$;:SLEUTEL|
00000730: 24 28 53 29 B2 49 4E 24  3A 82 00 59 0F 02 03 89  |$(S).IN$:..Y....|
00000740: 20 34 36 30 3A 53 4C 45  55 54 45 4C 24 28 53 29  | 460:SLEUTEL$(S)|
00000750: B2 22 22 3A 89 20 34 36  30 00 5F 0F 0C 03 3A 00  |."":. 460._...:.|
00000760: 78 0F 16 03 8F 20 2A 20  43 4F 44 45 45 52 20 42  |x.... * CODEER B|
00000770: 45 52 49 43 48 54 20 2A  00 AB 0F 20 03 99 20 53  |ERICHT *... .. S|
00000780: 43 48 45 52 4D 24 3B 22  48 45 54 20 47 45 43 4F  |CHERM$;"HET GECO|
00000790: 44 45 45 52 44 45 20 42  45 52 49 43 48 54 20 4C  |DEERDE BERICHT L|
000007A0: 55 49 44 54 3A 11 22 3A  45 B2 30 00 BD 0F 2A 03  |UIDT:.":E.0...*.|
000007B0: 81 20 43 B2 31 20 A4 20  4D 41 58 AA 31 00 DD 0F  |. C.1 . MAX.1...|
000007C0: 34 03 8B 20 42 45 52 49  43 48 54 24 28 43 29 B2  |4.. BERICHT$(C).|
000007D0: 22 2A 22 A7 20 99 3A 99  20 45 24 3A 8E 00 F3 0F  |"*". .:. E$:....|
000007E0: 3E 03 45 B2 45 AA 31 3A  8B 20 45 B2 53 20 A7 20  |>.E.E.1:. E.S . |
000007F0: 45 B2 31 00 2D 10 48 03  43 4F 44 45 24 28 43 29  |E.1.-.H.CODE$(C)|
00000800: B2 4D 41 54 52 49 58 24  28 C6 28 53 4C 45 55 54  |.MATRIX$(.(SLEUT|
00000810: 45 4C 24 28 45 29 29 AB  36 34 2C C6 28 42 45 52  |EL$(E)).64,.(BER|
00000820: 49 43 48 54 24 28 43 29  29 AB 36 34 29 00 55 10  |ICHT$(C)).64).U.|
00000830: 52 03 99 20 43 4F 44 45  24 28 43 29 3B 3A 8B 20  |R.. CODE$(C);:. |
00000840: 4D 45 4E 55 B2 31 20 A7  20 98 31 2C 43 4F 44 45  |MENU.1 . .1,CODE|
00000850: 24 28 43 29 3B 00 5E 10  5C 03 3A 82 3A 8E 00 64  |$(C);.^.\.:.:..d|
00000860: 10 66 03 3A 00 7F 10 70  03 8F 20 2A 20 44 45 43  |.f.:...p.. * DEC|
00000870: 4F 44 45 45 52 20 42 45  52 49 43 48 54 20 2A 00  |ODEER BERICHT *.|
00000880: B4 10 7A 03 99 20 53 43  48 45 52 4D 24 3B 22 48  |..z.. SCHERM$;"H|
00000890: 45 54 20 47 45 44 45 43  4F 44 45 45 52 44 45 20  |ET GEDECODEERDE |
000008A0: 42 45 52 49 43 48 54 20  4C 55 49 44 54 3A 11 22  |BERICHT LUIDT:."|
000008B0: 3A 45 B2 30 00 C6 10 84  03 81 20 44 B2 31 20 A4  |:E.0...... D.1 .|
000008C0: 20 4D 41 58 AA 31 00 E6  10 8E 03 8B 20 42 45 52  | MAX.1...... BER|
000008D0: 49 43 48 54 24 28 44 29  B2 22 2A 22 A7 20 99 3A  |ICHT$(D)."*". .:|
000008E0: 99 20 45 24 3A 8E 00 FC  10 98 03 45 B2 45 AA 31  |. E$:......E.E.1|
000008F0: 3A 8B 20 45 B2 53 20 A7  20 45 B2 31 00 0B 11 A2  |:. E.S . E.1....|
00000900: 03 81 20 4B B2 31 20 A4  20 32 35 00 3E 11 AC 03  |.. K.1 . 25.>...|
00000910: 8B 20 42 45 52 49 43 48  54 24 28 44 29 B3 B1 4D  |. BERICHT$(D)..M|
00000920: 41 54 52 49 58 24 28 C6  28 53 4C 45 55 54 45 4C  |ATRIX$(.(SLEUTEL|
00000930: 24 28 45 29 29 AB 36 34  2C 4B 29 A7 20 82 00 5A  |$(E)).64,K). ..Z|
00000940: 11 B6 03 44 45 43 4F 44  45 24 28 44 29 B2 4D 41  |...DECODE$(D).MA|
00000950: 54 52 49 58 24 28 31 2C  4B 29 00 86 11 C0 03 99  |TRIX$(1,K)......|
00000960: 20 44 45 43 4F 44 45 24  28 44 29 3B 3A 8B 20 4D  | DECODE$(D);:. M|
00000970: 45 4E 55 B2 32 20 A7 20  98 31 2C 44 45 43 4F 44  |ENU.2 . .1,DECOD|
00000980: 45 24 28 44 29 3B 00 8E  11 CA 03 82 20 44 00 94  |E$(D);...... D..|
00000990: 11 D4 03 3A 00 9A 11 DE  03 8E 00 00 00           |...:.........   |
....... MATRIX$(26,26).]...MAX.800:. BER
ICHT$(MAX.1),CODE$(MAX.1),DECODE$(MAX.1)
,SLEUTEL$(21).....SCHERM$."..           
  C O D E C                  ..".G.(.E$.
"                    . EINDE BERICHT .".
M.2.:...7.. * ZET MATRIX OP *.$.<.A$."*A
BCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO
PQRSTUVWXYZ".3.F.. Y.1 . 26.H.P.A$.I(A$,
C(A$).1).W.Z.. X.1 . 26.T.D.MATRIX$(Y,X)
.J(A$,(X),1)...N.. X,Y:. 400...X.:......
 * MENU *...... SCHERM$;"....MENU:......
....."......".     1. CODEREN MET PRINTE
R-UITVOER..."..".     2. DECODEREN MET P
RINTER-UITVOER.D.,..".     3. CODEREN ZO
NDER PRINTER-UITVOER.T.6..".     4. DECO
DEREN ZONDER PRINTER-UITVOER...@..".  .U
W KEUZE.  .?..".E.J.. MENU$:MENU..(E(MEN
U$)):. MENU.1 . MENU .4 . 330...T.. 550:
. 670:. MENU . 350,360,370,380:. 260...^
.. 1,4:. 790:. 400:..$.H.. 1,4:. 880:. 4
00:..6.R.. 790:. 400:..H.|.. 880:. 400:.
.N...:.G.... * WACHT OP TOETS *...... RO
MMEL$:. ROMMEL$.."". 400......".  TOETS 
VOOR MENU";...... IN$:. IN$."". 430.E...
  1:..K.B.:...L.. * PIEP, BUFFER VOL *..
.V.SOUND.54272.!.... SO.5,15:. SO.24,15:
. SO.1,12:. SO,32.G.... SO.4,33:. T.1 . 
200:.:. SO.4,32.E.... SO,0:. SO.1,0:. SO
.24,0......:.". . DE BUFFER IS VOL !  DR
UK 'F1'-TOETS. ."...... IN$:. IN$..".". 
520...........:.X.&.. * NOTEER BERICHT *
...0.. SCHERM$;"GEEF BERICHT (MAX.";MAX;
"TEKENS)".*.:.. .20)"STOP MET 'F1'-TOETS
.".A.D.. B.1 . MAX:."..";.Y.N.. IN$:. IN
$."". 590.U.X.CO.F(IN$):. CO=CONTROLE...
B.. CO.133 . BERICHT$(B)."*":....L.. CO.
20 . . IN$;:B.B.2:..Q.V.. CO.65 . CO.90 
. B.B.1:....... IN$;:BERICHT$(B).IN$:...
...BERICHT$(B)."*":. 460.....:.'.... * N
OTEER SLEUTEL *.U.... SCHERM$;"GEEF SLEU
TEL (MAX. 20 TEKENS)".W.... .20);"STOP M
ET 'F1'-TOETS."...... S.1 . 20:."..";...
F.. IN$:. IN$."". 710.A.P.CO.F(IN$):. CO
=CONTROLE...Z.. CO.133 . SLEUTEL$(S).IN$
:....... CO.20 . . IN$;:S.S.2:....... CO
.65 . CO.90 . S.S.1:..:.... IN$;:SLEUTEL
$(S).IN$:..Y.... 460:SLEUTEL$(S)."":. 46
0._...:.X.... * CODEER BERICHT *... .. S
CHERM$;"HET GECODEERDE BERICHT LUIDT:.":
E.0...*.. C.1 . MAX.1...4.. BERICHT$(C).
"*". .:. E$:....>.E.E.1:. E.S . E.1.-.H.
CODE$(C).MATRIX$(F(SLEUTEL$(E)).64,F(BER
ICHT$(C)).64).U.R.. CODE$(C);:. MENU.1 .
 .1,CODE$(C);.^.\.:.:..D.F.:..P.. * DEC
ODEER BERICHT *...Z.. SCHERM$;"HET GEDEC
ODEERDE BERICHT LUIDT:.":E.0.F.... D.1 .
 MAX.1...... BERICHT$(D)."*". .:. E$:...
...E.E.1:. E.S . E.1...... K.1 . 25.>...
. BERICHT$(D)..MATRIX$(F(SLEUTEL$(E)).64
,K). ..Z...DECODE$(D).MATRIX$(1,K)......
 DECODE$(D);:. MENU.2 . .1,DECODE$(D);..
.J.. D...T.:.........
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL