ENIGMA

00000000: 01 04 24 04 00 00 9C 3A  50 47 24 B2 22 45 4E 49  |..$....:PG$."ENI|
00000010: 47 4D 41 22 3A 4E 4D 24  B2 22 32 33 22 3A 89 36  |GMA":NM$."23":.6|
00000020: 32 30 30 30 00 35 04 01  00 22 20 41 4C 45 58 20  |2000.5..." ALEX |
00000030: 42 52 45 45 44 00 51 04  02 00 22 20 31 31 38 35  |BREED.Q..." 1185|
00000040: 20 42 4F 59 4C 53 54 4F  4E 20 53 54 2E 20 23 32  | BOYLSTON ST. #2|
00000050: 37 00 68 04 03 00 22 20  42 4F 53 54 4F 4E 2C 20  |7.h..." BOSTON, |
00000060: 4D 41 20 30 32 32 31 35  00 6E 04 04 00 22 00 89  |MA 02215.n..."..|
00000070: 04 05 00 22 20 43 55 52  53 4F 52 20 23 32 33 2C  |..." CURSOR #23,|
00000080: 20 44 45 43 20 31 39 38  30 00 AF 04 06 00 22 20  | DEC 1980....." |
00000090: 43 4F 50 59 52 49 47 48  54 28 43 29 31 39 38 30  |COPYRIGHT(C)1980|
000000A0: 20 54 48 45 20 43 4F 44  45 20 57 4F 52 4B 53 00  | THE CODE WORKS.|
000000B0: D0 04 07 00 22 20 42 4F  58 20 35 35 30 2C 20 47  |...." BOX 550, G|
000000C0: 4F 4C 45 54 41 2C 20 43  41 2E 20 39 33 30 31 37  |OLETA, CA. 93017|
000000D0: 00 D6 04 08 00 22 00 E9  04 0A 00 22 20 41 53 20  |....."....." AS |
000000E0: 4F 46 20 39 44 45 43 38  30 00 06 05 64 00 43 54  |OF 9DEC80...d.CT|
000000F0: B2 35 30 3A 86 20 43 54  24 28 43 54 29 2C 58 25  |.50:. CT$(CT),X%|
00000100: 28 35 2C 32 36 29 00 50  05 6E 00 83 34 2C 31 36  |(5,26).P.n..4,16|
00000110: 2C 31 35 2C 31 39 2C 38  2C 33 2C 32 35 2C 36 2C  |,15,19,8,3,25,6,|
00000120: 31 33 2C 31 2C 37 2C 32  36 2C 32 30 2C 31 30 2C  |13,1,7,26,20,10,|
00000130: 31 32 2C 39 2C 31 34 2C  31 37 2C 32 32 2C 32 2C  |12,9,14,17,22,2,|
00000140: 32 34 2C 32 33 2C 32 31  2C 35 2C 31 38 2C 31 31  |24,23,21,5,18,11|
00000150: 00 9A 05 78 00 83 31 2C  32 33 2C 39 2C 32 34 2C  |...x..1,23,9,24,|
00000160: 32 35 2C 32 2C 37 2C 31  38 2C 32 36 2C 34 2C 31  |25,2,7,18,26,4,1|
00000170: 33 2C 31 35 2C 32 30 2C  31 37 2C 31 30 2C 38 2C  |3,15,20,17,10,8,|
00000180: 35 2C 33 2C 31 34 2C 32  32 2C 31 36 2C 31 32 2C  |5,3,14,22,16,12,|
00000190: 32 31 2C 31 31 2C 36 2C  31 39 00 E4 05 82 00 83  |21,11,6,19......|
000001A0: 31 2C 38 2C 32 2C 32 30  2C 33 2C 31 34 2C 34 2C  |1,8,2,20,3,14,4,|
000001B0: 31 39 2C 35 2C 32 36 2C  36 2C 31 37 2C 37 2C 32  |19,5,26,6,17,7,2|
000001C0: 32 2C 39 2C 31 36 2C 31  30 2C 32 33 2C 31 31 2C  |2,9,16,10,23,11,|
000001D0: 32 31 2C 31 32 2C 32 35  2C 31 33 2C 31 35 2C 31  |21,12,25,13,15,1|
000001E0: 38 2C 32 34 00 2E 06 8C  00 83 31 2C 33 2C 32 2C  |8,24......1,3,2,|
000001F0: 35 2C 34 2C 31 38 2C 36  2C 31 36 2C 37 2C 32 36  |5,4,18,6,16,7,26|
00000200: 2C 38 2C 31 39 2C 39 2C  31 31 2C 31 30 2C 32 34  |,8,19,9,11,10,24|
00000210: 2C 31 32 2C 31 35 2C 31  33 2C 32 32 2C 31 34 2C  |,12,15,13,22,14,|
00000220: 32 33 2C 31 37 2C 32 30  2C 32 31 2C 32 35 00 78  |23,17,20,21,25.x|
00000230: 06 96 00 83 31 2C 36 2C  32 2C 32 32 2C 33 2C 31  |....1,6,2,22,3,1|
00000240: 32 2C 34 2C 31 31 2C 35  2C 32 30 2C 37 2C 31 36  |2,4,11,5,20,7,16|
00000250: 2C 38 2C 32 34 2C 39 2C  31 33 2C 31 30 2C 31 37  |,8,24,9,13,10,17|
00000260: 2C 31 34 2C 32 35 2C 31  35 2C 32 36 2C 31 38 2C  |,14,25,15,26,18,|
00000270: 32 33 2C 31 39 2C 32 31  00 85 06 A0 00 58 B2 BB  |23,19,21.....X..|
00000280: 28 AB 54 49 29 00 8B 06  AA 00 8C 00 96 06 B4 00  |(.TI)...........|
00000290: 81 57 B2 31 A4 35 00 A7  06 BE 00 81 4B B2 31 A4  |.W.1.5......K.1.|
000002A0: 31 33 3A 87 58 2C 59 00  BF 06 C8 00 58 25 28 57  |13:.X,Y.....X%(W|
000002B0: 2C 58 29 B2 59 3A 58 25  28 57 2C 59 29 B2 58 00  |,X).Y:X%(W,Y).X.|
000002C0: C9 06 D2 00 82 4B 3A 82  57 00 FC 06 DC 00 50 52  |.....K:.W.....PR|
000002D0: 24 B2 22 53 48 4F 55 4C  44 20 49 20 53 45 54 20  |$."SHOULD I SET |
000002E0: 55 50 20 54 48 45 20 4D  41 43 48 49 4E 45 22 3A  |UP THE MACHINE":|
000002F0: 44 46 24 B2 22 4E 22 3A  8D 38 34 30 00 18 07 E6  |DF$."N":.840....|
00000300: 00 8B C8 28 49 4E 24 2C  31 29 B2 22 59 22 A7 8D  |...(IN$,1)."Y"..|
00000310: 37 34 30 3A 89 34 32 30  00 27 07 F0 00 54 24 B2  |740:.420.'...T$.|
00000320: 22 41 42 43 44 45 22 00  32 07 FA 00 81 4B B2 31  |"ABCDE".2....K.1|
00000330: A4 33 00 64 07 04 01 99  20 22 11 57 48 49 43 48  |.3.d.... ".WHICH|
00000340: 20 57 48 45 45 4C 20 49  4E 20 53 4C 4F 54 22 4B  | WHEEL IN SLOT"K|
00000350: 22 28 22 3B 54 24 3B 22  29 3F 20 22 3B 3A 8D 36  |"(";T$;")? ";:.6|
00000360: 30 30 30 30 00 90 07 0E  01 8B C3 28 49 4E 24 29  |0000.......(IN$)|
00000370: B3 B1 31 A7 99 22 11 4F  4E 45 20 4C 45 54 54 45  |..1..".ONE LETTE|
00000380: 52 2C 20 50 4C 45 41 53  45 2E 22 3A 89 32 36 30  |R, PLEASE.":.260|
00000390: 00 D1 07 18 01 8B 49 4E  24 B3 22 41 22 B0 49 4E  |......IN$."A".IN|
000003A0: 24 B1 22 45 22 A7 99 22  11 41 20 4C 45 54 54 45  |$."E"..".A LETTE|
000003B0: 52 20 46 52 4F 4D 20 27  41 27 20 54 4F 20 27 45  |R FROM 'A' TO 'E|
000003C0: 27 2C 20 50 4C 45 41 53  45 2E 22 3A 89 20 32 36  |', PLEASE.":. 26|
000003D0: 30 00 F2 07 22 01 54 B2  C6 28 49 4E 24 29 AB 36  |0...".T..(IN$).6|
000003E0: 34 3A 8B 20 CA 28 54 24  2C 54 2C 31 29 B2 22 20  |4:. .(T$,T,1)." |
000003F0: 22 A7 00 2E 08 2C 01 8B  CA 28 54 24 2C 54 2C 31  |"....,...(T$,T,1|
00000400: 29 B2 22 20 22 A7 99 22  11 57 48 45 45 4C 20 22  |)." "..".WHEEL "|
00000410: 3B 49 4E 24 3B 22 20 49  53 20 41 4C 52 45 41 44  |;IN$;" IS ALREAD|
00000420: 59 20 54 41 4B 45 4E 2E  22 3A 89 32 36 30 00 4D  |Y TAKEN.":.260.M|
00000430: 08 36 01 55 24 B2 22 22  3A 8B 54 B1 31 A7 55 24  |.6.U$."":.T.1.U$|
00000440: B2 55 24 AA C8 28 54 24  2C 54 AB 31 29 00 65 08  |.U$..(T$,T.1).e.|
00000450: 40 01 54 24 B2 55 24 AA  22 20 22 AA CA 28 54 24  |@.T$.U$." "..(T$|
00000460: 2C 54 AA 31 29 00 7A 08  4A 01 57 24 28 4B 29 B2  |,T.1).z.J.W$(K).|
00000470: 49 4E 24 3A 57 28 4B 29  B2 54 00 81 08 54 01 82  |IN$:W(K).T...T..|
00000480: 4B 00 8C 08 5E 01 81 4B  B2 31 A4 33 00 B1 08 68  |K...^..K.1.3...h|
00000490: 01 99 22 11 53 45 54 54  49 4E 47 20 46 4F 52 20  |..".SETTING FOR |
000004A0: 57 48 45 45 4C 22 4B 22  28 41 2D 5A 29 3F 20 22  |WHEEL"K"(A-Z)? "|
000004B0: 3B 00 E5 08 72 01 8D 36  30 30 30 30 3A 8B C3 28  |;...r..60000:..(|
000004C0: 49 4E 24 29 B3 B1 31 A7  99 22 11 4F 4E 45 20 4C  |IN$)..1..".ONE L|
000004D0: 45 54 54 45 52 2C 20 50  4C 45 41 53 45 2E 22 3A  |ETTER, PLEASE.":|
000004E0: 89 20 33 36 30 00 F5 08  7C 01 54 B2 C6 28 49 4E  |. 360...|.T..(IN|
000004F0: 24 29 AB 36 34 00 32 09  86 01 8B 20 54 B3 31 20  |$).64.2.... T.1 |
00000500: B0 20 54 B1 32 36 20 A7  20 99 22 11 41 20 4C 45  |. T.26 . .".A LE|
00000510: 54 54 45 52 9D 9D 9D 9D  9D 9D 11 A3 A3 A3 A3 A3  |TTER............|
00000520: A3 91 2C 20 50 4C 45 41  53 45 21 22 3A 89 20 33  |.., PLEASE!":. 3|
00000530: 36 30 00 47 09 90 01 53  28 4B 29 B2 54 3A 53 24  |60.G...S(K).T:S$|
00000540: 28 4B 29 B2 49 4E 24 00  4F 09 9A 01 82 20 4B 00  |(K).IN$.O.... K.|
00000550: 79 09 A4 01 99 22 11 48  45 52 45 A0 41 52 45 20  |y....".HERE.ARE |
00000560: 54 48 45 20 57 48 45 45  4C 53 20 41 4E 44 20 53  |THE WHEELS AND S|
00000570: 45 54 54 49 4E 47 53 3A  22 00 A8 09 AE 01 99 22  |ETTINGS:"......"|
00000580: 11 28 59 4F 55 27 4C 4C  20 4E 45 45 44 20 27 45  |.(YOU'LL NEED 'E|
00000590: 4D 20 54 4F 20 44 45 43  4F 44 45 20 54 48 45 20  |M TO DECODE THE |
000005A0: 4D 45 53 53 41 47 45 29  00 B1 09 B8 01 8D 38 32  |MESSAGE)......82|
000005B0: 30 00 D0 09 C2 01 81 4B  B2 31 A4 33 3A 53 28 4B  |0......K.1.3:S(K|
000005C0: 29 B2 C6 28 53 24 28 4B  29 29 AB 36 34 3A 82 4B  |)..(S$(K)).64:.K|
000005D0: 00 F2 09 CC 01 99 22 11  50 4C 45 41 53 45 20 45  |......".PLEASE E|
000005E0: 4E 54 45 52 20 59 4F 55  52 20 4D 45 53 53 41 47  |NTER YOUR MESSAG|
000005F0: 45 2E 00 17 0A D6 01 99  22 11 45 4E 54 45 52 20  |E.......".ENTER |
00000600: 41 20 42 4C 41 4E 4B 20  4C 49 4E 45 20 57 48 45  |A BLANK LINE WHE|
00000610: 4E 20 44 4F 4E 45 2E 00  26 0A E0 01 81 20 49 B2  |N DONE..&.... I.|
00000620: 30 20 A4 20 43 54 00 31  0A EA 01 99 22 3F 20 22  |0 . CT.1...."? "|
00000630: 3B 00 53 0A F4 01 8D 36  30 30 30 30 3A 8B 20 49  |;.S....60000:. I|
00000640: 4E 24 B2 22 22 20 A7 20  4E B2 49 AB 31 3A 89 20  |N$."" . N.I.1:. |
00000650: 35 35 30 00 62 0A FE 01  43 54 24 28 49 29 B2 49  |550.b...CT$(I).I|
00000660: 4E 24 00 6A 0A 08 02 82  20 49 00 93 0A 12 02 99  |N$.j.... I......|
00000670: 22 11 54 48 41 54 27 53  20 41 4C 4C 20 49 20 43  |".THAT'S ALL I C|
00000680: 41 4E 20 48 41 4E 44 4C  45 2E 2E 2E 20 53 4F 52  |AN HANDLE... SOR|
00000690: 52 59 2E 00 9C 0A 1C 02  4E B2 43 54 00 A9 0A 26  |RY......N.CT...&|
000006A0: 02 8B 4E B3 30 A7 37 31  30 00 B5 0A 30 02 4B B2  |..N.0.710...0.K.|
000006B0: 30 3A 47 B2 30 00 D8 0A  3A 02 99 22 11 54 48 45  |0:G.0...:..".THE|
000006C0: 20 45 4E 43 52 59 50 54  49 4F 4E 20 46 4F 4C 4C  | ENCRYPTION FOLL|
000006D0: 4F 57 53 2E 2E 2E 11 22  00 EE 0A 44 02 81 49 B2  |OWS...."...D..I.|
000006E0: 30 A4 4E 3A 43 54 24 B2  43 54 24 28 49 29 00 FE  |0.N:CT$.CT$(I)..|
000006F0: 0A 4E 02 81 4A B2 31 A4  C3 28 43 54 24 29 00 15  |.N..J.1..(CT$)..|
00000700: 0B 58 02 46 B2 C6 28 CA  28 43 54 24 2C 4A 2C 31  |.X.F..(.(CT$,J,1|
00000710: 29 29 AB 36 34 00 27 0B  62 02 8B 46 B3 31 B0 46  |)).64.'.b..F.1.F|
00000720: B1 32 36 A7 36 38 30 00  52 0B 6C 02 81 57 B2 AB  |.26.680.R.l..W..|
00000730: 32 A4 32 3A 4C B2 33 AB  B6 28 57 29 3A 8D 38 37  |2.2:L.3..(W):.87|
00000740: 30 3A 82 57 3A 8F 20 4C  3D 31 2C 32 2C 33 2C 32  |0:.W:. L=1,2,3,2|
00000750: 2C 31 00 60 0B 76 02 99  C7 28 46 AA 36 34 29 3B  |,1.`.v...(F.64);|
00000760: 00 8A 0B 80 02 4B B2 4B  AA 31 3A 8B 4B B1 34 A7  |.....K.K.1:.K.4.|
00000770: 99 22 20 22 3B 3A 4B B2  30 3A 47 B2 47 AA 31 3A  |." ";:K.0:G.G.1:|
00000780: 8B 47 B1 35 A7 99 3A 47  B2 30 00 AA 0B 8A 02 53  |.G.5..:G.0.....S|
00000790: 28 31 29 B2 53 28 31 29  AA 31 3A 8B 53 28 31 29  |(1).S(1).1:.S(1)|
000007A0: B2 32 37 A7 53 28 31 29  B2 31 00 CA 0B 94 02 53  |.27.S(1).1.....S|
000007B0: 28 32 29 B2 53 28 32 29  AB 31 3A 8B 53 28 32 29  |(2).S(2).1:.S(2)|
000007C0: B2 30 A7 53 28 32 29 B2  32 36 00 EA 0B 9E 02 53  |.0.S(2).26.....S|
000007D0: 28 33 29 B2 53 28 33 29  AA 31 3A 8B 53 28 33 29  |(3).S(3).1:.S(3)|
000007E0: B2 32 37 A7 53 28 33 29  B2 31 00 F4 0B A8 02 82  |.27.S(3).1......|
000007F0: 4A 3A 82 49 00 FD 0B B2  02 89 37 30 30 00 21 0C  |J:.I......700.!.|
00000800: BC 02 8B 4B B1 30 A7 81  4A B2 31 A4 35 AB 4B 3A  |...K.0..J.1.5.K:|
00000810: 99 C7 28 32 36 AC BB 28  31 29 AA 36 35 29 3B 3A  |..(26..(1).65);:|
00000820: 82 00 35 0C C1 02 8B 20  47 B1 30 20 B0 20 4B B1  |..5.... G.0 . K.|
00000830: 30 20 A7 20 99 00 6E 0C  C6 02 50 52 24 B2 22 41  |0 . ..n...PR$."A|
00000840: 4E 4F 54 48 45 52 20 4D  45 53 53 41 47 45 22 3A  |NOTHER MESSAGE":|
00000850: 44 46 24 B2 22 59 22 3A  8D 38 34 30 3A 8B 49 4E  |DF$."Y":.840:.IN|
00000860: 24 B2 22 4E 22 A7 99 22  93 11 11 22 3A 80 00 A5  |$."N".."...":...|
00000870: 0C D0 02 50 52 24 B2 22  53 41 4D 45 20 4D 41 43  |...PR$."SAME MAC|
00000880: 48 49 4E 45 20 53 45 54  55 50 22 3A 44 46 24 B2  |HINE SETUP":DF$.|
00000890: 22 59 22 3A 8D 38 34 30  3A 8B 49 4E 24 B2 22 59  |"Y":.840:.IN$."Y|
000008A0: 22 A7 34 35 30 00 AF 0C  DA 02 89 20 32 32 30 00  |".450...... 220.|
000008B0: C5 0C E4 02 54 24 B2 22  41 42 43 44 45 22 3A 81  |....T$."ABCDE":.|
000008C0: 4B B2 31 A4 33 00 DB 0C  EE 02 54 B2 B5 28 BB 28  |K.1.3.....T..(.(|
000008D0: 31 29 AC C3 28 54 24 29  29 AA 31 00 00 0D F8 02  |1)..(T$)).1.....|
000008E0: 57 24 28 4B 29 B2 CA 28  54 24 2C 54 2C 31 29 3A  |W$(K)..(T$,T,1):|
000008F0: 57 28 4B 29 B2 C6 28 57  24 28 4B 29 29 AB 36 34  |W(K)..(W$(K)).64|
00000900: 00 1C 0D 02 03 55 24 B2  22 22 3A 8B 54 B1 31 A7  |.....U$."":.T.1.|
00000910: 55 24 B2 C8 28 54 24 2C  54 AB 31 29 00 30 0D 0C  |U$..(T$,T.1).0..|
00000920: 03 54 24 B2 55 24 AA CA  28 54 24 2C 54 AA 31 29  |.T$.U$..(T$,T.1)|
00000930: 00 57 0D 16 03 53 28 4B  29 B2 B5 28 BB 28 31 29  |.W...S(K)..(.(1)|
00000940: AC 32 36 29 AA 31 3A 53  24 28 4B 29 B2 C7 28 53  |.26).1:S$(K)..(S|
00000950: 28 4B 29 AA 36 34 29 00  60 0D 20 03 82 4B 3A 8E  |(K).64).`. ..K:.|
00000960: 00 7D 0D 2A 03 53 24 28  4B 29 B2 C7 28 53 28 4B  |.}.*.S$(K)..(S(K|
00000970: 29 AA 36 34 29 3A 82 4B  3A 89 34 32 30 00 B6 0D  |).64):.K:.420...|
00000980: 34 03 99 22 11 53 4C 4F  54 22 2C 22 57 48 45 45  |4..".SLOT","WHEE|
00000990: 4C 22 2C 22 53 45 54 54  49 4E 47 22 3A 99 22 C5  |L","SETTING":.".|
000009A0: C5 C5 C5 22 2C 22 C5 C5  C5 C5 C5 22 2C 22 C5 C5  |...",".....","..|
000009B0: C5 C5 C5 C5 C5 22 00 D4  0D 3E 03 81 4B B2 31 A4  |....."...>..K.1.|
000009C0: 33 3A 99 4B 2C 57 24 28  4B 29 2C 53 24 28 4B 29  |3:.K,W$(K),S$(K)|
000009D0: 3A 82 3A 8E 00 0D 0E 48  03 99 22 11 22 3B 50 52  |:.:....H..".";PR|
000009E0: 24 3B 22 3F 20 22 3B 3A  8D 36 30 30 30 30 3A 49  |$;"? ";:.60000:I|
000009F0: 4E 24 B2 C8 28 49 4E 24  2C 31 29 3A 8B 20 49 4E  |N$..(IN$,1):. IN|
00000A00: 24 B2 22 22 A7 20 49 4E  24 B2 44 46 24 00 24 0E  |$."". IN$.DF$.$.|
00000A10: 52 03 8B 49 4E 24 B2 22  59 22 B0 49 4E 24 B2 22  |R..IN$."Y".IN$."|
00000A20: 4E 22 A7 8E 00 4F 0E 5C  03 99 22 11 50 4C 45 41  |N"...O.\..".PLEA|
00000A30: 53 45 20 41 4E 53 57 45  52 20 27 59 45 53 27 20  |SE ANSWER 'YES' |
00000A40: 4F 52 20 27 4E 4F 27 2E  22 3A 89 20 38 34 30 00  |OR 'NO'.":. 840.|
00000A50: 6B 0E 66 03 46 B2 46 AB  53 28 4C 29 AA 31 3A 8B  |k.f.F.F.S(L).1:.|
00000A60: 46 B3 31 A7 20 46 B2 46  AA 32 36 00 7C 0E 70 03  |F.1. F.F.26.|.p.|
00000A70: 46 B2 58 25 28 57 28 4C  29 2C 46 29 00 98 0E 7A  |F.X%(W(L),F)...z|
00000A80: 03 46 B2 46 AA 53 28 4C  29 AB 31 3A 8B 46 B1 32  |.F.F.S(L).1:.F.2|
00000A90: 36 A7 46 B2 46 AB 32 36  00 9E 0E 84 03 8E 00 BF  |6.F.F.26........|
00000AA0: 0E 60 EA 49 4E 24 B2 22  20 22 3A 5A 54 B2 54 49  |.`.IN$." ":ZT.TI|
00000AB0: 3A 5A 43 B2 32 3A 5A 44  24 B2 C7 28 32 30 29 00  |:ZC.2:ZD$..(20).|
00000AC0: D5 0E 6A EA A1 5A 24 3A  8B 5A 24 B3 B1 22 22 A7  |..j..Z$:.Z$.."".|
00000AD0: 36 30 30 37 30 00 05 0F  74 EA 8B 5A 54 B3 B2 54  |60070...t..ZT..T|
00000AE0: 49 A7 99 CA 28 22 20 A6  22 2C 5A 43 2C 31 29 3B  |I...(" .",ZC,1);|
00000AF0: 22 9D 22 3B 3A 5A 43 B2  33 AB 5A 43 3A 5A 54 B2  |".";:ZC.3.ZC:ZT.|
00000B00: 54 49 AA 31 35 00 10 0F  7E EA 89 36 30 30 31 30  |TI.15...~..60010|
00000B10: 00 40 0F A6 EA 5A B2 C6  28 5A 24 29 3A 5A 4C B2  |.@...Z..(Z$):ZL.|
00000B20: C3 28 49 4E 24 29 3A 8B  28 5A AF 31 32 37 29 B3  |.(IN$):.(Z.127).|
00000B30: 33 32 A7 99 22 20 9D 22  3B 3A 89 36 30 31 31 30  |32.." .";:.60110|
00000B40: 00 70 0F B0 EA 8B 46 4C  AF 28 5A AF 31 32 37 29  |.p....FL.(Z.127)|
00000B50: B1 36 34 AF 28 5A AF 31  32 37 29 B3 39 31 A7 5A  |.64.(Z.127).91.Z|
00000B60: 24 B2 C7 28 28 5A AA 31  32 38 29 AF 32 35 35 29  |$..((Z.128).255)|
00000B70: 00 82 0F BA EA 8B 5A 4C  B1 32 35 34 A7 36 30 30  |......ZL.254.600|
00000B80: 31 30 00 9D 0F C4 EA 49  4E 24 B2 49 4E 24 AA 5A  |10.....IN$.IN$.Z|
00000B90: 24 3A 99 5A 24 3B 5A 44  24 3B 5A 24 3B 00 BC 0F  |$:.Z$;ZD$;Z$;...|
00000BA0: CE EA 8B 5A B2 31 33 A7  49 4E 24 B2 CA 28 49 4E  |...Z.13.IN$..(IN|
00000BB0: 24 2C 32 29 3A 99 43 52  24 3B 3A 8E 00 E8 0F D8  |$,2):.CR$;:.....|
00000BC0: EA 8B 5A B2 32 30 AF 5A  4C B1 31 A7 49 4E 24 B2  |..Z.20.ZL.1.IN$.|
00000BD0: C8 28 49 4E 24 2C 5A 4C  AB 31 29 3A 99 22 9D 22  |.(IN$,ZL.1):."."|
00000BE0: 3B 3A 89 36 30 30 31 30  00 1B 10 E2 EA 8B 5A B2  |;:.60010......Z.|
00000BF0: 31 34 31 A7 5A 24 B2 C7  28 AB 32 30 AC 28 5A 4C  |141.Z$..(.20.(ZL|
00000C00: B1 31 29 29 3A 81 5A B2  32 A4 5A 4C 3A 99 5A 24  |.1)):.Z.2.ZL:.Z$|
00000C10: 3B 3A 82 5A 3A 89 36 30  30 30 30 00 26 10 EC EA  |;:.Z:.60000.&...|
00000C20: 89 36 30 30 31 30 00 34  10 30 F2 97 35 39 34 36  |.60010.4.0..5946|
00000C30: 38 2C 31 32 00 60 10 35  F2 99 22 93 11 11 22 3B  |8,12.`.5.."...";|
00000C40: A3 31 35 AB C3 28 50 47  24 29 29 3B 50 47 24 3B  |.15..(PG$));PG$;|
00000C50: 22 20 20 42 59 20 41 4C  45 58 20 42 52 45 45 44  |"  BY ALEX BREED|
00000C60: 00 91 10 3A F2 99 22 11  20 20 20 20 20 43 55 52  |...:..".     CUR|
00000C70: 53 4F 52 20 23 22 3B 4E  4D 24 3B 22 20 20 43 4F  |SOR #";NM$;"  CO|
00000C80: 50 59 52 49 47 48 54 20  28 43 29 20 31 39 38 30  |PYRIGHT (C) 1980|
00000C90: 11 00 A9 10 44 F2 81 49  B2 31 A4 31 30 3A 99 22  |....D..I.1.10:."|
00000CA0: C0 C0 C0 C0 22 3B 3A 82  49 00 D1 10 4E F2 99 22  |....";:.I...N.."|
00000CB0: 11 59 4F 55 52 20 56 45  52 59 20 4F 57 4E 20 45  |.YOUR VERY OWN E|
00000CC0: 4E 43 52 59 50 54 49 4F  4E 20 4D 41 43 48 49 4E  |NCRYPTION MACHIN|
00000CD0: 45 00 F1 10 58 F2 99 22  11 11 50 52 45 53 53 20  |E...X.."..PRESS |
00000CE0: 12 52 45 54 55 52 4E 92  20 54 4F 20 42 45 47 49  |.RETURN. TO BEGI|
00000CF0: 4E 00 06 11 62 F2 A1 54  24 3A 8B 54 24 B2 22 22  |N...b..T$:.T$.""|
00000D00: A7 36 32 30 35 30 00 20  11 6C F2 99 22 93 22 3A  |.62050. .l..".":|
00000D10: 9C 3A 43 52 24 B2 C7 28  31 33 29 3A 89 31 30 30  |.:CR$..(13):.100|
00000D20: 00 00 00                                          |...             |

..$....:PG$."ENIGMA":NM$."23":.62000.5..
." ALEX BREED.Q..." 1185 BOYLSTON ST. #2
7.H..." BOSTON, MA 02215.N..."....." CUR
SOR #23, DEC 1980....." COPYRIGHT(C)1980
 THE CODE WORKS.P..." BOX 550, GOLETA, C
A. 93017.V..."....." AS OF 9DEC80...D.CT
.50:. CT$(CT),X%(5,26).P.N..4,16,15,19,8
,3,25,6,13,1,7,26,20,10,12,9,14,17,22,2,
24,23,21,5,18,11...X..1,23,9,24,25,2,7,1
8,26,4,13,15,20,17,10,8,5,3,14,22,16,12,
21,11,6,19......1,8,2,20,3,14,4,19,5,26,
6,17,7,22,9,16,10,23,11,21,12,25,13,15,1
8,24......1,3,2,5,4,18,6,16,7,26,8,19,9,
11,10,24,12,15,13,22,14,23,17,20,21,25.X
....1,6,2,22,3,12,4,11,5,20,7,16,8,24,9,
13,10,17,14,25,15,26,18,23,19,21... .X..
(.TI)............W.1.5......K.1.13:.X,Y.
..H.X%(W,X).Y:X%(W,Y).X.I.R..K:.W.....PR
$."SHOULD I SET UP THE MACHINE":DF$."N":
.840......H(IN$,1)."Y"..740:.420.'...T$.
"ABCDE".2....K.1.3.D.... ".WHICH WHEEL I
N SLOT"K"(";T$;")? ";:.60000......C(IN$)
..1..".ONE LETTER, PLEASE.":.260.Q....IN
$."A".IN$."E"..".A LETTER FROM 'A' TO 'E
', PLEASE.":. 260...".T.F(IN$).64:. J(T$
,T,1)." "....,..J(T$,T,1)." "..".WHEEL "
;IN$;" IS ALREADY TAKEN.":.260.M.6.U$.""
:.T.1.U$.U$.H(T$,T.1).E.@.T$.U$." ".J(T$
,T.1).Z.J.W$(K).IN$:W(K).T...T..K...^..K
.1.3...H..".SETTING FOR WHEEL"K"(A-Z)? "
;...R..60000:.C(IN$)..1..".ONE LETTER, P
LEASE.":. 360...|.T.F(IN$).64.2.... T.1 
. T.26 . .".A LETTER.............., PLEA
SE!":. 360.G...S(K).T:S$(K).IN$.O.... K.
Y....".HERE ARE THE WHEELS AND SETTINGS:
"......".(YOU'LL NEED 'EM TO DECODE THE 
MESSAGE)......820.P.B..K.1.3:S(K).F(S$(K
)).64:.K...L..".PLEASE ENTER YOUR MESSAG
E....V..".ENTER A BLANK LINE WHEN DONE..
&.... I.0 . CT.1...."? ";.S....60000:. I
N$."" . N.I.1:. 550.B...CT$(I).IN$.J....
 I......".THAT'S ALL I CAN HANDLE... SOR
RY......N.CT...&..N.0.710...0.K.0:G.0.X.
:..".THE ENCRYPTION FOLLOWS...."...D..I.
0.N:CT$.CT$(I)...N..J.1.C(CT$)...X.F.F(J
(CT$,J,1)).64.'.B..F.1.F.26.680.R.L..W..
2.2:L.3..(W):.870:.W:. L=1,2,3,2,1.`.V..
G(F.64);.....K.K.1:.K.4.." ";:K.0:G.G.1:
.G.5..:G.0.....S(1).S(1).1:.S(1).27.S(1)
.1.J...S(2).S(2).1:.S(2).0.S(2).26.....S
(3).S(3).1:.S(3).27.S(3).1......J:.I....
..700.!....K.0..J.1.5.K:.G(26..(1).65);:
..5.A.. G.0 . K.0 . ..N.F.PR$."ANOTHER M
ESSAGE":DF$."Y":.840:.IN$."N".."...":...
.P.PR$."SAME MACHINE SETUP":DF$."Y":.840
:.IN$."Y".450...Z.. 220.E...T$."ABCDE":.
K.1.3.....T..(.(1).C(T$)).1.....W$(K).J(
T$,T,1):W(K).F(W$(K)).64.....U$."":.T.1.
U$.H(T$,T.1).0...T$.U$.J(T$,T.1).W...S(K
)..(.(1).26).1:S$(K).G(S(K).64).`. ..K:.
.}.*.S$(K).G(S(K).64):.K:.420...4..".SLO
T","WHEEL","SETTING":."EEEE","EEEEE","EE
EEEEE".T.>..K.1.3:.K,W$(K),S$(K):.:....H
..".";PR$;"? ";:.60000:IN$.H(IN$,1):. IN
$."". IN$.DF$.$.R..IN$."Y".IN$."N"...O.\
..".PLEASE ANSWER 'YES' OR 'NO'.":. 840.
K.F.F.F.S(L).1:.F.1. F.F.26.|.P.F.X%(W(L
),F)...Z.F.F.S(L).1:.F.26.F.F.26........
.`.IN$." ":ZT.TI:ZC.2:ZD$.G(20).U.J..Z$:
.Z$.."".60070...T..ZT..TI..J(" .",ZC,1);
".";:ZC.3.ZC:ZT.TI.15...~..60010.@...Z.F
(Z$):ZL.C(IN$):.(Z.127).32.." .";:.60110
.P....FL.(Z.127).64.(Z.127).91.Z$.G((Z.1
28).255)......ZL.254.60010...D.IN$.IN$.Z
$:.Z$;ZD$;Z$;...N..Z.13.IN$.J(IN$,2):.CR
$;:....X..Z.20.ZL.1.IN$.H(IN$,ZL.1):."."
;:.60010......Z.141.Z$.G(.20.(ZL.1)):.Z.
2.ZL:.Z$;:.Z:.60000.&....60010.4.0..5946
8,12.`.5.."...";.15.C(PG$));PG$;"  BY AL
EX BREED...:..".     CURSOR #";NM$;"  CO
PYRIGHT (C) 1980....D..I.1.10:."....";:.
I.Q.N..".YOUR VERY OWN ENCRYPTION MACHIN
E...X.."..PRESS .RETURN. TO BEGIN...B..T
$:.T$."".62050. .L..".":.:CR$.G(13):.100
...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL