_`P!!AAKEYMTMSCRINFILEOUTFILEBLLLHOPOPOPOPCHOICIOUMINDESSCRENDASHKEYLI3((  @1 @ @@@q@@%@@@@@a@@@dSECRET AGENTnBY JOHN T. SMITHxANTIC MAGAZINE BPGG;@,;@%,;@%,;A ,;A ,;A,11;@,;@,;@@,;@,4267@,. #67@@,.267@,.f6-@16-@***MAIN MENU***4(>:A%,"AA`4A@H,( (&( ԠԠ)(,(,) ( Πՠ#(&()(J(MAKE YOUR SELECTION(h%%( 1--TO SELECT A NEW KEYWORDr!!( 2--TO ENCODE A MESSAGE|!!( 3--TO DECODE A MESSAGE((( 4--TO DISPLAY CURRENT KEYWORD( 5--TO END PROGRAM( (  AC B* 6-P:,* @)!@AC"@#"@ B # A@P&-"@)"@# A`- A@P0#"@ AP# A@P***KEYWORD SECTION***4(>:A%,"AA4AA0267@,.-#67@%,.267@,. 6. 67@<@,. .( (%( Ġ((+(.($$(LENGTH OF KEYWORD (1 TO 25) AQ@ B* 6-P:,* @)!@%AQ@(6.7@<,F0( (0( ENTER YOUR  CHARACTER KEYWORDP((ONE CHARACTER AT A TIME"(%(((-@( CHARACTER  :  ARp B 6-@:, !)' AT67<,. (( ( ((%(YOUR KEYWORD IS: ((( ( -@AP $+( ((( ĠҠ+(6(KEYWORD CHARACTER @&&(IS NOT IN THE AUTHORIZED LIST.J$$(PLEASE CHOOSE A NEW KEYWORD.T%-@A % AQp%%***ENCODING/DECODING SECTION***(>:A%,767@,."67A ,.167@,.76. 6-B:, AaUA@H'AA09-@@U  ϠĠĠ7-@@7 ŠŠĠԠ-@AP $.4(>:A%,"A4A@L;( ( (2(! ԯԠ̠5(8(;(`(SELECT INPUT DEVICE(j( 1--KEYBOARDo( 2--DISKt( 3--CASSETTE(~ (  Abp B++@*@*@Abp!!"@)"@Ae8(>:A%,((2( ˠԠŠ5(8( 6.6.!( (!(INPUT FILE NAME:  Acp B4Ac@ 6-B:,  ( (DISK DRIVE NUMBER:  Ad  B4)4 6.1(%%01*02*03*04Ad2e67@<@,.D367@<@,.L67@<@,.:e67@<%@,.Z @@n(>:A%,(((x6-@-'( ԯԠ̠*(-(/)(!OUTPUT WILL APPEAR ON THE SCREEN.,(/(.+(# SELECT ADDITIONAL OUTPUT DEVICES:.(( DISK (Y/N):  AeP B 4Y6-$@0Y*0NAeP(  PRINTER (Y/N):  Aeu B 4Y6-$@0Y*0NAeu ( ( CASSETTE (Y/N):  Ae B 4Y6-$@0Y*0NAe55"@)"@)"@)"@A  6.6.9(>:A%,((3( ˠԠŠ6(9("(OUTPUT FILE NAME: , Ag B64Af`@ 6-B:,T ( (DISK DRIVE NUMBER: ^ AgP Bh4)4 6.1r%%01*02*03*04Ag@|e67@<@,.D367@<@,.L67@<@,.:e67@<%@,. @@@##***ENCIPHERING/DECIPHERING***T:(>:A%,"AA4AA7(:(r2"@2( ǠŠ|2"@2( ǠŠ"@A"@A'( ( (('(ENTER YOUR MESSAGE.**("PRESS ΠTO END YOUR MESSAGE.(( MESSAGE: [##@@K: 6.)@ "AUA 6-B:, "A&AP !)A !!67%@<%@,.>:,& (>:,0 A: (!@(6.7@<&@,D "@6.I (>:,N AX  (]@ Al ***DISK INPUT***v 6. %( ( (%( ˠԠ )@ "AUA !)A0 6-B:, !!67%@<%@,.>:, A0 @ A ***CASSETTE INPUT*** +( ( (%( ŠԠ((+( (PREPARE CASSETTE PLAYER.!%(%(PRESS Π WHEN READY. !##@@C:*! 6.4!)@>!"AUA`H!!)AR! 6-B:,\!!!67%@<%@,.>:,f! Ap!@!***TRANSLATION SECTION***! 6-B:,"A"( ( (( NO MESSAGE$"-@AP $`"( (AR@"6-@"-@"6-@:7<,," !)6- A""@6-%@:7<,,"%"@%6-&@:7<,,%+&," !6-&+&,# !6-&+&, # 6-%+&,#67<,.>:,(#-@@ <#"@( ǠF#"@( ǠZ#_%2@@9-@@= _2x#$-@@ $( # 6-#6-%@# #&AR&6.7@<,#"@A#!!"@)"@A`#"@A#***CASSETTE OUTPUT***$7(>:A%,((1( ŠԠ4(7($(PREPARE CASSETE PLAYER.$.(%(PRESS Π WHEN READY.((+(.(1$]B7u@5'B7h@@9B7dKB7f]B7sAU6$##@@C:@$-@J$6-@:7<,,T$*@^$ h$6-AUr$*@$@$"@A$"@A$***OUTPUT TO DISK***$3(>:A%,(((3( ˠԠ$-@$6-@:7<,,%*@% %6-AU&%*@0%@D%!!"@)"@A%***PRINTER OUTPUT***% 3 3 3%/"@/3 ENCODED MESSAGE%/"@/3 DECODED MESSAGE%'3 3 3'3 MESSAGE: []%***SCREEN OUTPUT*** &6-P:'A,%@ &-@4&167@,."67A,.167@,.>&(>:A%,((((\&1"@1( ĠŠf&:"@1( ĠŠ4(7(:(&6-$A&  6-&((6.7@%+&@,$A<,&'( MESSAGE: []!($('(&  ' B0&!!(PRESS ΠTO CONTINUE& Ap B' '1( (+( ŠĠ.(1('""(PRESS Π TO CONTINUE' B B$.##***CURRENT KEYWORD DISPLAY***.?(>:A%,!67@,.-067@%,.?67@,.. 6-B:, B!0/'A@H'AA0/--@@-(ϠĠӠ0/7-@@7(ŠŠĠԠ:/-@A $b/8AA'AA086.7@<,/3( ( (*( ԠĠ-(0(3(/$!(YOUR CURRENT KEYWORD IS: $(/( /( /*( ( (*(PRESS ΠTO CONTINUE 0 B# B$a"(>:A%,"+@%@ b/-@@/ @ SECRET AGENTb%-@@% @ b0-@@0 @ ΠԮHb?-AU;2'@@@? \bI-@@PE2+AU&,'@@@I fbG-AUC2AU&'@@@G pb7-@@d32@@7 b2%2/+2$ D1:AGENT.BAS