$:PG$"ENIGMA":NM$"23":620005" ALEX BREEDQ" 1185 BOYLSTON ST. #27h" BOSTON, MA 02215n"" CURSOR #23, DEC 1980" COPYRIGHT(C)1980 THE CODE WORKS" BOX 550, GOLETA, CA. 93017" " AS OF 9DEC80dCT50: CT$(CT),X%(5,26)Pn4,16,15,19,8,3,25,6,13,1,7,26,20,10,12,9,14,17,22,2,24,23,21,5,18,11x1,23,9,24,25,2,7,18,26,4,13,15,20,17,10,8,5,3,14,22,16,12,21,11,6,191,8,2,20,3,14,4,19,5,26,6,17,7,22,9,16,10,23,11,21,12,25,13,15,18,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,25x1,6,2,22,3,12,4,11,5,20,7,16,8,24,9,13,10,17,14,25,15,26,18,23,19,21X(TI)W15K113:X,YX%(W,X)Y:X%(W,Y)XK:WPR$"SHOULD I SET UP THE MACHINE":DF$"N":840(IN$,1)"Y"740:420'T$"ABCDE"2K13d "WHICH WHEEL IN SLOT"K"(";T$;")? ";:60000(IN$)1"ONE LETTER, PLEASE.":260IN$"A"IN$"E""A LETTER FROM 'A' TO 'E', PLEASE.": 260"T(IN$)64: (T$,T,1)" ".,(T$,T,1)" ""WHEEL ";IN$;" IS ALREADY TAKEN.":260M6U$"":T1U$U$(T$,T1)e@T$U$" "(T$,T1)zJW$(K)IN$:W(K)TTK^K13h"SETTING FOR WHEEL"K"(A-Z)? ";r60000:(IN$)1"ONE LETTER, PLEASE.": 360|T(IN$)642  T1 T26 "A LETTER, PLEASE!": 360G S(K)T:S$(K)IN$O  Ky "HEREARE THE WHEELS AND SETTINGS:" "(YOU'LL NEED 'EM TO DECODE THE MESSAGE) 820 K13:S(K)(S$(K))64:K "PLEASE ENTER YOUR MESSAGE. "ENTER A BLANK LINE WHEN DONE.&  I0 CT1 "? ";S 60000: IN$"" NI1: 550b CT$(I)IN$j  I "THAT'S ALL I CAN HANDLE... SORRY. NCT &N0710 0K0:G0 :"THE ENCRYPTION FOLLOWS..." DI0N:CT$CT$(I) NJ1(CT$) XF((CT$,J,1))64' bF1F26680R lW22:L3(W):870:W: L=1,2,3,2,1` v(F64); KK1:K4" ";:K0:GG1:G5:G0 S(1)S(1)1:S(1)27S(1)1 S(2)S(2)1:S(2)0S(2)26 S(3)S(3)1:S(3)27S(3)1 J:I 700! K0J15K:(26(1)65);:5  G0 K0 n PR$"ANOTHER MESSAGE":DF$"Y":840:IN$"N""": PR$"SAME MACHINE SETUP":DF$"Y":840:IN$"Y"450  220 T$"ABCDE":K13 T((1)(T$))1 W$(K)(T$,T,1):W(K)(W$(K))64 U$"":T1U$(T$,T1)0 T$U$(T$,T1)W S(K)((1)26)1:S$(K)(S(K)64)` K:} *S$(K)(S(K)64):K:420 4"SLOT","WHEEL","SETTING":"","","" >K13:K,W$(K),S$(K):: H"";PR$;"? ";:60000:IN$(IN$,1): IN$"" IN$DF$$RIN$"Y"IN$"N"O\"PLEASE ANSWER 'YES' OR 'NO'.": 840kfFFS(L)1:F1 FF26|pFX%(W(L),F)zFFS(L)1:F26FF26`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010@Z(Z$):ZL(IN$):(Z127)32" ";:60110pFL(Z127)64(Z127)91Z$((Z128)255)ZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000&600104059468,12`5"";15(PG$));PG$;" BY ALEX BREED:" CURSOR #";NM$;" COPYRIGHT (C) 1980DI110:"";:IN"YOUR VERY OWN ENCRYPTION MACHINEX"PRESS RETURN TO BEGINbT$:T$""62050 l""::CR$(13):100