dej$$CTHTCTLPTPTLCKPKKWYCIPACAFGDRXZETNAAMKHSCLMHLKGFDPQCTETDE7/A7A # #: 2Al x7x  A $A 0<AZAfAr~A:TU%%@@'@@@'@'@H !@V"@'#@G$@%@&@V'@H(@)A*Ad*** ARISTEDnxby David A. Peterson6/17/1987Encipher/DecipherARISTOCRATPATRISTOCRAT CAESAR*** Dimension Variables&&;A,;A,9@,11;A,9@,;@5,;@5,&&;@P,9@,;A ,11;@&,;@&,9@,9@,11;@0,9@,9@,9@,&&;@&,9@&,;@&,;@,6. $$6.ABCDEFGHIJKLMNOPQRSTUVWXYZ 6;@7,6. '67@7,.667@,. 6.6. 6.*6." BUx*** View file(>:A%,(( Plaintext- (( Ciphertext- "("(Ԡ F:B2y,"@A Ap*** Keyword Menu >:A%, ((((1. Menu 6. Print*(*(2. Key PA$ 7. Key CA$,(,(!3. Shift PA$ 8. Shift CA$.(.(#4. Reverse PA$ 9. Reverse CA$-(-("5. Reset PA$ 10. Reset CA$)-@@((!(%()(Q-@@!(PK$- -(CK$- 0(?(Plain- B(Q(Cipher- *** Input command)6-!-@@!%()( 0-@@!,( 0"@ A WWAA#A(A%PA'A"A$A)A%A'P* A @4*** Input keywordH-@@!((R=-@@!9( =\$f--@@&&68,-* -$pJ-@@!9(堼J( z$*** Print key + Alphabets$3 3$3Plain Alphabet Key -"3"3Cipher Alphabet Key - 3 3 3Plain Alphabet -33Cipher Alphabet -$*** Key PA$ # A!6-@# A!P 6. -@B:, 6-@:7<,,&@d E8,"(67<,.>:%@d,66-%@E68,-@  . -@@&3 68,"(67<,.>:%@d,66-%@8  V $` *** Key CA$j # A!6-@# A!Po 6.t -@B:,y 6-@:7<,,&@d~ E8,"(67<,.>:%@d,66-%@E68,-@   -@@& 68,"(67<,.>:%@d,66-%@   $ *** Reverse CA$ 6-@' -@@& 6-&@ 67<,.7<,   $ *** Reverse PA$ 6-@' -@@& 6-&@ 67<,.7<,  # $ *** Restore alphabets  6.6.*$  6.6.*$ *** Roll PA$ 6-@ A!` G6-/@@K:<)@G@ 8"@`6-&@) 56-8 "@G A(P 5"@b6-%@)!@&56-@& <-@7@( .-@7@2(< A( " -@@&' % 6-%!@&%6-&@&1 67<,.7<,;  @ 6.O A @T *** Roll CA$Y 6-@ A!`h G6-/@@K:<)@G@r 8"@`6-&@) 56-8w "@G A)P| 5"@b6-%@)!@&56-@& <-@7@( .-@7@2(< A)  -@@& % 6-%!@&%6-&@& 67<,.7<,   6. A @*** Input Ciphertext(>:A%,(( ( 67B:,%@,.$($(  (Menu Input CT$ clear&F:B2y,"@ & A@0 F:B2y,"@A*F:B2y,"@ 6. * A@P A@e*** Input Plaintext(>:A%,((" ( ,67B:,%@,.6$($( @ (Menu Input PT$ clearE&F:B2y,"@ & AA0J F:B2y,"@AO*F:B2y,"@ 6. * AAPc AAe*** Encipher B@I 6.4'(Alphabets not keyed;-@A? I A J +@A1-@@J @ ENCIPHERING-@B:,AAH-@@&/7<,47<,#67<,.7<,/6-@& A  + Ap*** Decipheru B@zI 6.4'(Alphabets not keyed;-@A? I A J +@A1-@@J @ DECIPHERING-@B:,AAH-@@&#7<,47<,#67<,.7<, A  + AX*** Print Menu](>:A%,b( l((1. Menuq(( 2. Plaintextv(( 3. Ciphertext{"("(4. Keywords + Alphabets((5. Complete file((6. Patristocrat*** Input command3 B@6-+-@@!/(3(0-@@!,( 0"@ A77AAtAtPA"AsAu ApP!!*** Print CT$, Patristocrat\#@@P:/6-@:(@S(@ Ciphertext-\6-B:,6-@ @6-@ !@$2 @7<,$6-%@26-%@!!"@*"@Aq5"@ @+6-%@5 Aq  Aq%*** Print complete file33 Plaintext- 33 Ciphertext- A"$*** Print PT$33 Plaintext- $*** Print CT$.33 Ciphertext-8$L*** Set up Patristocrat`6-@6-@jG)@:7<,,!@d*@:7<,, @967<,.7<,G6-%@t6-%@~ !B:, Aup Au0 6. Aq Ap@*** File MenuE(>:A%,J(( T((1. Save to DiskY((2. Load from Disk^((3. Directory readerr(( 4. Main Menuw+-@@ !6-+ B@|( ''AAB A AU--@@ D1:ARIST.FIL--@B:,)*@@:7<,,- *@@B--@B:,)*@@:7<,,- *@@BE-@@&,*@@:7<,,A*@@:7<,,E @ A --@@ D1:ARIST.FIL 6-@ &)@"@B& A  )67<,.>:,6-%@) A 6-@& &)@"@B& AP+ )67<,.>:,6-%@) A0: D Q-@@&$)@1)@?67<,.>:,M67<,.>:,Q X @ A(#*** Main Menu-#(>:A%,2#))(! <#((1. Input PlaintextF#((2. Input CiphertextK#((3. Key functionsP#(( 4. EncipherU#(( 5. DecipherZ#((6. File functions_#((7. Print functionsd#(( 8. View file##: B@-@@!6( :#GGAAA@A APA`AApA# A.*** Directory.((Drive 1(. B@.2@2@@D1:*.*. B `.@( B %/ B@&/(( +/(Menu D:1 D:2(0/ F:B2y,"@A5/ F:B2y,"@B :/ F:B2y,"@B!?/ B D/*** DirectoryN/((Drive 2(S/ B@X/2@2@@D2:*.*]/ B!`b/@( B!%/" B@" B p6*** Error traps76-F:A,7 B(7(>:A%,27$@@$@x7-@@7$"A8$(TURN ON DEVICE !7$"Ap$(File not on disk7"Ag( File locked7("AD((insert disk in Drive7"@( Input error7/F:A,"@)( INPUT TEXT !,'/'7-@A J8 A<*** Title< +@A<$ @ @$ @<$$ @ ******************<$$ @ * *<$$ @ * ARISTED *<$$ @ * *<$$ @ ******************<$ @ @$ @<$ @ @$ @<$$ @ BY <$$ @ D A PETERSON <-@A < + AD1:ARISTED.BAS