CODES
FILE INFORMATION
FILENAME(S): CODES
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 21:11:18
APPEARS ON: 1 disk(s)
FILE HASH
e25a4c77725d660a2b8bbd5a637b74ee058b0d9c1586f7cf65a2c5f83ec245a2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DIVERSEN 1 | CODES | PRG | DuncanTwain | 11 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 0A 1C 01 00 99 22 93 22 00 27 1C 02 00 97 |.......".".'....| 00000010: 20 35 33 32 38 30 2C 30 3A 97 20 35 33 32 38 31 | 53280,0:. 53281| 00000020: 2C 30 3A 99 22 99 22 00 30 1C 03 00 99 22 9C 22 |,0:.".".0...."."| 00000030: 00 62 1C 04 00 99 22 12 20 2A 2A 2A 2A 2A 2A 2A |.b....". *******| 00000040: 2A 2A 2A 2A 2A 2A 20 20 43 20 4F 20 44 20 45 20 |****** C O D E | 00000050: 53 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |S ************ | 00000060: 92 22 00 73 1C 05 00 99 3A 99 3A 99 3A 99 3A 99 |.".s....:.:.:.:.| 00000070: 22 9B 22 00 95 1C 06 00 99 22 20 20 20 20 20 20 |"."......" | 00000080: 20 20 20 20 20 20 20 5B 31 5D 20 20 4D 41 54 52 | [1] MATR| 00000090: 49 58 2D 33 22 00 9E 1C 07 00 99 3A 99 22 00 C4 |IX-3"......:."..| 000000A0: 1C 08 00 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." | 000000B0: 20 20 5B 32 5D 20 20 53 55 42 53 54 49 54 55 54 | [2] SUBSTITUT| 000000C0: 49 4F 4E 22 00 ED 1C 09 00 99 3A 99 3A 99 22 20 |ION"......:.:." | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 5B 33 5D 20 | [3] | 000000E0: 20 45 4E 44 22 3A 99 3A 99 3A 99 3A 99 00 11 1D | END":.:.:.:....| 000000F0: 0A 00 99 22 05 20 20 20 20 20 20 20 20 20 20 20 |...". | 00000100: 20 20 59 4F 55 52 20 43 48 4F 49 43 45 20 3F 99 | YOUR CHOICE ?.| 00000110: 22 00 26 1D 0B 00 A1 20 41 24 3A 8B 20 41 24 B2 |".&.... A$:. A$.| 00000120: 22 22 A7 20 31 31 00 3F 1D 0C 00 8B 20 41 24 B2 |"". 11.?.... A$.| 00000130: 22 31 22 20 A7 20 99 22 93 22 3A 89 20 31 35 00 |"1" . .".":. 15.| 00000140: 59 1D 0D 00 8B 20 41 24 B2 22 32 22 20 A7 20 99 |Y.... A$."2" . .| 00000150: 22 93 22 3A 89 20 35 30 30 00 6A 1D 0E 00 8B 20 |".":. 500.j.... | 00000160: 41 24 B2 22 33 22 20 A7 20 80 00 74 1D 0F 00 99 |A$."3" . ..t....| 00000170: 22 99 22 3B 00 7A 1D 10 00 99 00 9C 1D 14 00 99 |".";.z..........| 00000180: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 41 |" MA| 00000190: 54 52 49 58 20 43 49 50 48 45 52 22 00 BE 1D 15 |TRIX CIPHER"....| 000001A0: 00 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." | 000001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 C4 |-------------"..| 000001C0: 1D 16 00 99 00 CA 1D 17 00 99 00 F2 1D 28 00 53 |.............(.S| 000001D0: B2 33 3A 81 49 B2 31 20 A4 20 53 3A 81 20 4A B2 |.3:.I.1 . S:. J.| 000001E0: 31 20 A4 20 53 3A 87 20 41 28 49 2C 4A 29 3A 82 |1 . S:. A(I,J):.| 000001F0: 3A 82 00 F8 1D 2D 00 99 00 1A 1E 32 00 99 22 45 |:....-.....2.."E| 00000200: 20 3D 20 45 4E 43 4F 44 45 22 3A 99 3A 99 22 44 | = ENCODE":.:."D| 00000210: 20 3D 20 44 45 43 4F 44 45 22 00 25 1E 37 00 99 | = DECODE".%.7..| 00000220: 3A 99 22 05 22 00 39 1E 3C 00 85 22 45 20 4F 52 |:.".".9.<.."E OR| 00000230: 20 44 20 22 3B 41 24 3A 99 00 42 1E 41 00 99 22 | D ";A$:..B.A.."| 00000240: 93 22 00 6C 1E 46 00 8B 20 41 24 B3 B1 22 45 22 |.".l.F.. A$.."E"| 00000250: 20 AF 20 41 24 B3 B1 22 44 22 20 A7 20 99 20 22 | . A$.."D" . . "| 00000260: 57 48 49 43 48 3F 22 3A 89 20 36 30 00 78 1E 50 |WHICH?":. 60.x.P| 00000270: 00 42 24 B2 22 45 4E 22 00 AE 1E 5A 00 8B 20 41 |.B$."EN"...Z.. A| 00000280: 24 B2 22 44 22 A7 20 42 24 B2 22 44 45 22 3A 81 |$."D". B$."DE":.| 00000290: 49 B2 31 20 A4 20 53 3A 81 20 4A B2 31 20 A4 20 |I.1 . S:. J.1 . | 000002A0: 53 3A 87 20 41 28 49 2C 4A 29 3A 82 3A 82 00 B8 |S:. A(I,J):.:...| 000002B0: 1E 5F 00 99 22 9B 22 3B 00 E2 1E 64 00 99 22 54 |._..".";...d.."T| 000002C0: 59 50 45 20 4D 45 53 53 41 47 45 20 28 55 50 20 |YPE MESSAGE (UP | 000002D0: 54 4F 20 32 35 35 20 43 48 41 52 41 43 54 45 52 |TO 255 CHARACTER| 000002E0: 53 29 00 E8 1E 65 00 99 00 0C 1F 66 00 99 22 54 |S)...e.....f.."T| 000002F0: 48 45 4E 20 50 52 45 53 53 20 27 52 45 54 55 52 |HEN PRESS 'RETUR| 00000300: 4E 27 20 41 4E 44 20 57 41 49 54 22 00 1D 1F 67 |N' AND WAIT"...g| 00000310: 00 99 20 C7 28 31 35 35 29 3A 99 3A 99 00 2B 1F |.. .(155):.:..+.| 00000320: 6E 00 4D 24 B2 22 22 3A 4C B2 30 00 42 1F 78 00 |n.M$."":L.0.B.x.| 00000330: A1 20 47 24 3A 8B 20 47 24 B2 22 22 20 A7 20 31 |. G$:. G$."" . 1| 00000340: 32 30 00 4E 1F 82 00 47 B2 C6 28 47 24 29 00 77 |20.N...G..(G$).w| 00000350: 1F 8C 00 8B 20 47 B1 33 31 20 AF 20 47 B3 39 31 |.... G.31 . G.91| 00000360: 20 A7 20 4D 24 B2 4D 24 AA 47 24 3A 99 20 47 24 | . M$.M$.G$:. G$| 00000370: 3B 3A 4C B2 4C AA 31 00 A1 1F 96 00 8B 20 47 B2 |;:L.L.1...... G.| 00000380: 32 30 20 AF 20 4C B1 30 20 A7 20 99 20 47 24 3B |20 . L.0 . . G$;| 00000390: 3A 4C B2 4C AB 31 3A 4D 24 B2 C8 28 4D 24 2C 4C |:L.L.1:M$..(M$,L| 000003A0: 29 00 BB 1F A0 00 8B 20 47 B3 B1 31 33 20 AF 20 |)...... G..13 . | 000003B0: 4C B3 32 35 35 20 A7 20 31 32 30 00 D2 1F AA 00 |L.255 . 120.....| 000003C0: 99 22 20 20 22 3A 4D B2 B5 28 4C AD 53 AA 30 2E |." ":M..(L.S.0.| 000003D0: 39 29 00 E6 1F AB 00 86 20 42 28 53 2C 4D 29 2C |9)...... B(S,M),| 000003E0: 43 28 53 2C 4D 29 00 06 20 B4 00 8F 20 45 4E 43 |C(S,M).. ... ENC| 000003F0: 4F 44 49 4E 47 2F 44 45 43 4F 44 49 4E 47 20 4D |ODING/DECODING M| 00000400: 45 53 53 41 47 45 00 1E 20 BE 00 81 20 49 B2 31 |ESSAGE.. ... I.1| 00000410: 20 A4 20 53 3A 81 20 4A B2 31 20 A4 20 4D 00 2C | . S:. J.1 . M.,| 00000420: 20 C8 00 4B B2 53 AC 4A AA 49 AB 53 00 5F 20 D2 | ..K.S.J.I.S._ .| 00000430: 00 8B 20 4B B3 B2 4C 20 A7 20 4E B2 C6 28 CA 28 |.. K..L . N..(.(| 00000440: 4D 24 2C 4B 2C 31 29 29 AB 33 31 3A 42 28 49 2C |M$,K,1)).31:B(I,| 00000450: 4A 29 B2 4E AB 35 39 AC B5 28 4E AD 35 39 29 00 |J).N.59..(N.59).| 00000460: 67 20 DC 00 82 3A 82 00 8B 20 E6 00 81 20 49 B2 |g ...:... ... I.| 00000470: 32 20 A4 20 53 3A 8B 20 42 28 49 2C 4D 29 B3 31 |2 . S:. B(I,M).1| 00000480: 20 A7 20 42 28 49 2C 4D 29 B2 31 00 91 20 F0 00 | . B(I,M).1.. ..| 00000490: 82 00 A9 20 FA 00 81 20 49 B2 31 20 A4 20 53 3A |... ... I.1 . S:| 000004A0: 81 4A B2 20 31 20 A4 20 4D 00 D5 20 04 01 81 20 |.J. 1 . M.. ... | 000004B0: 4B B2 31 20 A4 20 53 3A 43 28 49 2C 4A 29 B2 43 |K.1 . S:C(I,J).C| 000004C0: 28 49 2C 4A 29 AA 41 28 49 2C 4B 29 AC 42 28 4B |(I,J).A(I,K).B(K| 000004D0: 2C 4A 29 3A 82 00 F7 20 0E 01 43 28 49 2C 4A 29 |,J):... ..C(I,J)| 000004E0: B2 43 28 49 2C 4A 29 AB 35 39 AC B5 28 43 28 49 |.C(I,J).59..(C(I| 000004F0: 2C 4A 29 AD 35 39 29 00 FF 20 18 01 82 3A 82 00 |,J).59).. ...:..| 00000500: 0A 21 1D 01 99 3A 99 22 9F 22 00 2F 21 22 01 99 |.!...:."."./!"..| 00000510: 3A 99 22 54 48 45 20 22 20 42 24 20 22 43 4F 44 |:."THE " B$ "COD| 00000520: 45 44 20 4D 45 53 53 41 47 45 20 49 53 3A 22 00 |ED MESSAGE IS:".| 00000530: 38 21 23 01 99 22 9B 22 00 42 21 25 01 99 3A 99 |8!#..".".B!%..:.| 00000540: 3A 99 00 5A 21 2C 01 81 20 4A B2 31 20 A4 20 4D |:..Z!,.. J.1 . M| 00000550: 3A 81 20 49 B2 31 20 A4 20 53 00 6D 21 36 01 99 |:. I.1 . S.m!6..| 00000560: C7 28 33 31 AA 43 28 49 2C 4A 29 29 3B 00 77 21 |.(31.C(I,J));.w!| 00000570: 40 01 82 3A 82 3A 99 00 83 21 4F 01 99 3A 99 3A |@..:.:...!O..:.:| 00000580: 99 3A 99 00 8C 21 50 01 99 22 05 22 00 AD 21 51 |.:...!P.."."..!Q| 00000590: 01 99 3A 99 22 41 4E 4F 54 48 45 52 20 47 4F 20 |..:."ANOTHER GO | 000005A0: 3F 20 28 20 59 20 4F 52 20 4E 20 29 22 00 D0 21 |? ( Y OR N )"..!| 000005B0: 54 01 A1 20 47 24 3A 8B 20 47 24 B3 B1 22 59 22 |T.. G$:. G$.."Y"| 000005C0: 20 AF 20 47 24 B3 B1 22 4E 22 20 A7 20 33 34 30 | . G$.."N" . 340| 000005D0: 00 E0 21 5E 01 8B 20 47 24 B2 22 59 22 A7 20 8A |..!^.. G$."Y". .| 000005E0: 00 EA 21 63 01 99 22 9B 22 3B 00 FE 21 68 01 99 |..!c..".";..!h..| 000005F0: C7 28 31 34 37 29 20 22 45 4E 44 22 3A 80 00 17 |.(147) "END":...| 00000600: 22 90 01 83 20 31 2C 30 2C 2D 31 2C 32 2C 31 2C |"... 1,0,-1,2,1,| 00000610: 33 2C 34 2C 32 2C 35 00 33 22 9A 01 83 20 31 2C |3,4,2,5.3"... 1,| 00000620: 32 2C 2D 31 2C 2D 32 2C 2D 39 2C 35 2C 30 2C 32 |2,-1,-2,-9,5,0,2| 00000630: 2C 2D 31 00 47 22 F4 01 99 3A 8F 20 53 55 42 53 |,-1.G"...:. SUBS| 00000640: 54 2E 20 43 4F 44 45 00 6C 22 08 02 99 22 20 20 |T. CODE.l"..." | 00000650: 20 20 20 20 20 20 20 20 20 20 53 55 42 53 54 49 | SUBSTI| 00000660: 54 55 54 49 4F 4E 20 43 4F 44 45 22 00 91 22 12 |TUTION CODE"..".| 00000670: 02 99 22 20 20 20 20 20 20 20 20 20 20 20 20 2D |.." -| 00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000690: 22 00 9A 22 1C 02 99 22 9B 22 00 B9 22 26 02 99 |".."...".".."&..| 000006A0: 22 45 4E 54 45 52 20 43 4F 44 45 20 4E 55 4D 42 |"ENTER CODE NUMB| 000006B0: 45 52 22 20 C7 28 31 37 29 00 BF 22 30 02 99 00 |ER" .(17).."0...| 000006C0: DB 22 3A 02 85 20 22 4E 55 4D 42 45 52 20 32 20 |.":.. "NUMBER 2 | 000006D0: 54 4F 20 35 38 20 22 3B 43 3A 99 00 0C 23 44 02 |TO 58 ";C:...#D.| 000006E0: 8B 20 43 B3 B1 B5 28 43 29 20 B0 20 43 B3 32 20 |. C...(C) . C.2 | 000006F0: B0 20 43 B1 35 38 20 A7 20 99 22 54 52 59 20 41 |. C.58 . ."TRY A| 00000700: 47 41 49 4E 2E 22 3A 89 20 35 37 30 00 12 23 4E |GAIN.":. 570..#N| 00000710: 02 99 00 18 23 58 02 8F 00 21 23 62 02 99 22 99 |....#X...!#b..".| 00000720: 22 00 43 23 6C 02 99 22 44 20 3D 20 44 45 43 4F |".C#l.."D = DECO| 00000730: 44 45 22 3A 99 3A 99 22 45 20 3D 20 45 4E 43 4F |DE":.:."E = ENCO| 00000740: 44 45 22 00 4E 23 76 02 99 3A 99 22 05 22 00 62 |DE".N#v..:.".".b| 00000750: 23 80 02 85 22 45 20 4F 52 20 44 20 22 3B 41 24 |#..."E OR D ";A$| 00000760: 3A 99 00 6B 23 8A 02 99 22 93 22 00 95 23 94 02 |:..k#..."."..#..| 00000770: 8B 20 41 24 B3 B1 22 45 22 20 AF 20 41 24 B3 B1 |. A$.."E" . A$..| 00000780: 22 44 22 20 A7 20 99 22 57 48 49 43 48 3F 22 3A |"D" . ."WHICH?":| 00000790: 89 20 36 34 30 00 C6 23 9E 02 44 B2 31 3A 49 B2 |. 640..#..D.1:I.| 000007A0: 43 3A 42 24 B2 22 44 45 22 3A 8B 20 41 24 B2 22 |C:B$."DE":. A$."| 000007B0: 45 22 20 A7 20 44 B2 43 3A 42 24 B2 22 45 4E 22 |E" . D.C:B$."EN"| 000007C0: 3A 89 20 37 30 30 00 EE 23 A8 02 43 B2 43 AA 49 |:. 700..#..C.C.I| 000007D0: 3A 44 B2 44 AA 31 3A 8B 20 43 AB 35 39 AC B5 28 |:D.D.1:. C.59..(| 000007E0: 43 AD 35 39 29 B3 B1 31 20 A7 20 36 38 30 00 21 |C.59)..1 . 680.!| 000007F0: 24 B2 02 8F 20 44 20 49 53 20 4D 55 4C 54 49 50 |$... D IS MULTIP| 00000800: 4C 45 20 52 45 51 55 49 52 45 44 20 46 4F 52 20 |LE REQUIRED FOR | 00000810: 45 4E 43 4F 44 49 4E 47 2F 44 45 43 4F 44 49 4E |ENCODING/DECODIN| 00000820: 47 00 4E 24 BC 02 99 22 9B 54 59 50 45 20 4D 45 |G.N$...".TYPE ME| 00000830: 53 53 41 47 45 20 28 55 50 20 54 4F 20 32 35 35 |SSAGE (UP TO 255| 00000840: 20 43 48 41 52 41 43 54 45 52 53 29 2C 22 00 54 | CHARACTERS),".T| 00000850: 24 C6 02 99 00 7E 24 D0 02 99 22 54 48 45 4E 20 |$....~$..."THEN | 00000860: 50 52 45 53 53 20 27 52 45 54 55 52 4E 27 20 41 |PRESS 'RETURN' A| 00000870: 4E 44 20 57 41 49 54 22 20 C7 28 31 37 29 00 8B |ND WAIT" .(17)..| 00000880: 24 DA 02 99 20 C7 28 31 35 35 29 00 9F 24 E4 02 |$... .(155)..$..| 00000890: 4D 24 B2 22 22 3A 4E 24 B2 22 22 3A 4C B2 30 00 |M$."":N$."":L.0.| 000008A0: B6 24 EE 02 A1 20 47 24 3A 8B 20 47 24 B2 22 22 |.$... G$:. G$.""| 000008B0: 20 A7 20 37 35 30 00 E6 24 F8 02 8F 20 4D 45 53 | . 750..$... MES| 000008C0: 53 41 47 45 20 49 53 20 45 4E 54 45 52 45 44 20 |SAGE IS ENTERED | 000008D0: 43 48 41 52 41 43 54 45 52 20 42 59 20 43 48 41 |CHARACTER BY CHA| 000008E0: 52 41 43 54 45 52 00 F2 24 02 03 47 B2 C6 28 47 |RACTER..$..G..(G| 000008F0: 24 29 00 19 25 0C 03 8B 47 B1 33 31 20 AF 20 47 |$)..%...G.31 . G| 00000900: B3 39 31 20 A7 20 4D 24 B2 4D 24 AA 47 24 3A 99 |.91 . M$.M$.G$:.| 00000910: 47 24 3B 3A 4C B2 4C AA 31 00 42 25 16 03 8B 20 |G$;:L.L.1.B%... | 00000920: 47 B2 32 30 20 AF 20 4C B1 30 20 A7 20 99 47 24 |G.20 . L.0 . .G$| 00000930: 3B 3A 4C B2 4C AB 31 3A 4D 24 B2 C8 28 4D 24 2C |;:L.L.1:M$..(M$,| 00000940: 4C 29 00 5C 25 20 03 8B 20 47 B3 B1 31 33 20 AF |L).\% .. G..13 .| 00000950: 20 4C B3 32 35 35 20 A7 20 37 35 30 00 66 25 2A | L.255 . 750.f%*| 00000960: 03 99 20 22 20 22 00 86 25 34 03 8F 20 45 4E 43 |.. " "..%4.. ENC| 00000970: 4F 44 49 4E 47 2F 44 45 43 4F 44 49 4E 47 20 4D |ODING/DECODING M| 00000980: 45 53 53 41 47 45 00 94 25 3E 03 81 20 49 B2 31 |ESSAGE..%>.. I.1| 00000990: 20 A4 20 4C 00 B0 25 48 03 4E B2 C6 28 CA 28 4D | . L..%H.N..(.(M| 000009A0: 24 2C 49 2C 31 29 29 AB 33 31 3A 4E B2 44 AC 4E |$,I,1)).31:N.D.N| 000009B0: 00 CD 25 52 03 4E 24 B2 4E 24 AA C7 28 33 31 AA |..%R.N$.N$..(31.| 000009C0: 4E AB 35 39 AC B5 28 4E AD 35 39 29 29 00 D3 25 |N.59..(N.59))..%| 000009D0: 5C 03 82 00 DE 25 66 03 99 3A 99 22 9F 22 00 02 |\....%f..:."."..| 000009E0: 26 70 03 99 3A 99 22 54 48 45 20 22 42 24 20 22 |&p..:."THE "B$ "| 000009F0: 43 4F 44 45 44 20 4D 45 53 53 41 47 45 20 49 53 |CODED MESSAGE IS| 00000A00: 3A 22 00 21 26 7A 03 99 22 2D 2D 2D 2D 2D 2D 2D |:".!&z.."-------| 00000A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000A20: 22 00 2E 26 84 03 99 3A 99 3A 99 22 9B 22 00 37 |"..&...:.:.".".7| 00000A30: 26 8E 03 99 20 4E 24 00 41 26 98 03 99 3A 99 3A |&... N$.A&...:.:| 00000A40: 99 00 4E 26 A2 03 99 3A 99 3A 99 22 05 22 00 6E |..N&...:.:.".".n| 00000A50: 26 AC 03 99 3A 99 22 41 4E 4F 54 48 45 52 20 47 |&...:."ANOTHER G| 00000A60: 4F 20 3F 20 28 20 59 20 4F 52 20 4E 29 22 00 78 |O ? ( Y OR N)".x| 00000A70: 26 B1 03 99 22 9B 22 3B 00 9B 26 B6 03 A1 20 47 |&...".";..&... G| 00000A80: 24 3A 8B 20 47 24 B3 B1 22 59 22 20 AF 20 47 24 |$:. G$.."Y" . G$| 00000A90: B3 B1 22 4E 22 20 A7 20 39 35 30 00 B5 26 C0 03 |.."N" . 950..&..| 00000AA0: 8B 20 47 24 B2 22 59 22 20 A7 20 99 22 93 22 3A |. G$."Y" . .".":| 00000AB0: 89 20 35 30 30 00 CD 26 CA 03 8B 20 47 24 B2 22 |. 500..&... G$."| 00000AC0: 4E 22 20 A7 20 99 22 93 22 3A 89 20 32 00 00 00 |N" . .".":. 2...|
.......".".'.... 53280,0:. 53281,0:.".". 0....".".B....". ************* C O D E S ************ .".S....:.:.:.:."."..... ." [1] MATRIX-3"......:.".D ...." [2] SUBSTITUTION".... ..:.:." [3] END":.:.:.:.... ...". YOUR CHOICE ?.".&.... A$:. A$."". 11.?.... A$."1" . .".":. 15. Y.... A$."2" . .".":. 500.J.... A$."3" . ..T....".";.Z.........." MA TRIX CIPHER"......" -------- -----".D.....J.......(.S.3:.I.1 . S:. J. 1 . S:. A(I,J):.:....-.....2.."E = ENCOD E":.:."D = DECODE".%.7..:.".".9.<.."E OR D ";A$:..B.A..".".L.F.. A$.."E" . A$.." D" . . "WHICH?":. 60.X.P.B$."EN"...Z.. A $."D". B$."DE":.I.1 . S:. J.1 . S:. A(I, J):.:...._..".";...D.."TYPE MESSAGE (UP TO 255 CHARACTERS)...E.....F.."THEN PRES S 'RETURN' AND WAIT"...G.. G(155):.:..+. N.M$."":L.0.B.X.. G$:. G$."" . 120.N...G .F(G$).W.... G.31 . G.91 . M$.M$.G$:. G$ ;:L.L.1...... G.20 . L.0 . . G$;:L.L.1:M $.H(M$,L)... .. G..13 . L.255 . 120.R... ." ":M..(L.S.0.9)...... B(S,M),C(S,M).. ... ENCODING/DECODING MESSAGE.. ... I.1 . S:. J.1 . M., H.K.S.J.I.S._ R.. K..L . N.F(J(M$,K,1)).31:B(I,J).N.59..(N.59). G ...:... ... I.2 . S:. B(I,M).1 . B(I,M ).1.. ..... ... I.1 . S:.J. 1 . M.U ... K.1 . S:C(I,J).C(I,J).A(I,K).B(K,J):... ..C(I,J).C(I,J).59..(C(I,J).59).. ...:.. .!...:."."./!"..:."THE " B$ "CODED MESSA GE IS:".8!#..".".B!%..:.:..Z!,.. J.1 . M :. I.1 . S.M!6..G(31.C(I,J));.W!@..:.:.. .!O..:.:.:...!P.."."..!Q..:."ANOTHER GO ? ( Y OR N )".P!T.. G$:. G$.."Y" . G$.." N" . 340..!^.. G$."Y". ...!C..".";..!H.. G(147) "END":..."... 1,0,-1,2,1,3,4,2,5. 3"... 1,2,-1,-2,-9,5,0,2,-1.G"...:. SUBS T. CODE.L"..." SUBSTITUTION C ODE".."..." ----------------- ".."...".".."&.."ENTER CODE NUMBER" G(17 ).."0....":.. "NUMBER 2 TO 58 ";C:...#D. . C...(C) . C.2 . C.58 . ."TRY AGAIN.":. 570..#N....#X...!#B..".".C#L.."D = DECO DE":.:."E = ENCODE".N#V..:.".".B#..."E O R D ";A$:..K#..."."..#... A$.."E" . A$.. "D" . ."WHICH?":. 640.F#..D.1:I.C:B$."DE ":. A$."E" . D.C:B$."EN":. 700..#..C.C.I :D.D.1:. C.59..(C.59)..1 . 680.!$... D I S MULTIPLE REQUIRED FOR ENCODING/DECODIN G.N$...".TYPE MESSAGE (UP TO 255 CHARACT ERS),".T$F...~$P.."THEN PRESS 'RETURN' A ND WAIT" G(17)..$Z.. G(155)..$..M$."":N$ ."":L.0..$... G$:. G$."" . 750..$... MES SAGE IS ENTERED CHARACTER BY CHARACTER.. $..G.F(G$)..%...G.31 . G.91 . M$.M$.G$:. G$;:L.L.1.B%... G.20 . L.0 . .G$;:L.L.1: M$.H(M$,L).\% .. G..13 . L.255 . 750.F%* .. " "..%4.. ENCODING/DECODING MESSAGE.. %>.. I.1 . L..%H.N.F(J(M$,I,1)).31:N.D.N .M%R.N$.N$.G(31.N.59..(N.59)).S%\....%F. .:."."..&P..:."THE "B$ "CODED MESSAGE IS :".!&Z.."-----------------------"..&...: .:.".".7&... N$.A&...:.:..N&...:.:.".".N &...:."ANOTHER GO ? ( Y OR N)".X&..."."; ..&... G$:. G$.."Y" . G$.."N" . 950..&.. . G$."Y" . .".":. 500.M&J.. G$."N" . .". ":. 2...
> CLICK IMAGE PREVIEW FOR FULL MODAL