DECLARE SUB Decode ()
DECLARE SUB Encode ()
DIM SHARED FILE$, FILE2$
SCREEN 12
PRINT "QB Encode-Decode"
PRINT
PRINT
PRINT "Please enter the file name of the message:(Blank to cancel)"
INPUT "", FILE$
IF FILE$ = "" THEN SYSTEM
PRINT "Please enter the resulting file name:"
INPUT "", FILE2$
PRINT
PRINT
PRINT "Mode of coding?"
PRINT "1. Encode message"
PRINT "2. Decode message"
F = VAL(INPUT$(1))
SELECT CASE F
CASE 1: Encode
CASE 2: Decode
CASE ELSE: PRINT "Real funny. Try using a menu option.": SYSTEM
END SELECT

SUB Decode
PRINT "Enter a number to decode with:"
INPUT "(1-360) ", NUM
PRINT "Choose the decoding type:"
INPUT "1. Codexx1 or 2. Codeyy2 (1 or 2) ", Coding
PRINT "Press Spacebar to increase speed."
OPEN FILE$ FOR INPUT AS #1
OPEN FILE2$ FOR OUTPUT AS #2
WHILE EOF(1) = 0
IF I$ = "" THEN I$ = INKEY$
IF I$ <> " " THEN FOR B = 1 TO 1000: NEXT B
INPUT #1, Code
IF Code = .156 THEN GOTO Enter
SELECT CASE Coding
CASE 1
A$ = A$ + CHR$(Code / (SIN(NUM) * 100))
Msg$ = CHR$(Code / (SIN(NUM) * 100))
CASE 2
A$ = A$ + CHR$(Code / (COS(NUM) * 100))
Msg$ = CHR$(Code / (COS(NUM) * 100))
END SELECT
LOCATE 21, 1
PRINT Code; "- "; Msg$
Enter:
IF Code = .156 THEN PRINT #2, A$: A$ = ""
WEND
CLOSE
END SUB

SUB Encode
PRINT "Note: There is infomation you must keep record of."
PRINT
PRINT
PRINT "Enter a number to use as encoding:(WRITE IT DOWN!)"
INPUT "(1-360) ", NUM
PRINT "Choose the encoding type:(WRITE IT DOWN!)"
INPUT "1. Codexx1 or 2. Codeyy2 (1 or 2) ", Coding
PRINT "Press Spacebar to increase speed."
OPEN FILE$ FOR INPUT AS #1
OPEN FILE2$ FOR OUTPUT AS #2
WHILE EOF(1) = 0
LINE INPUT #1, TXT$
FOR A = 1 TO LEN(TXT$)
IF I$ = "" THEN I$ = INKEY$
IF I$ <> " " THEN FOR B = 1 TO 1000: NEXT B
SELECT CASE Coding
CASE 1
A$ = A$ + STR$(ASC(MID$(TXT$, A, 1)) * (SIN(NUM) * 100)) + ","
CDE = ASC(MID$(TXT$, A, 1)) * (SIN(NUM) * 100)
CASE 2
A$ = A$ + STR$(ASC(MID$(TXT$, A, 1)) * (COS(NUM) * 100)) + ","
CDE = ASC(MID$(TXT$, A, 1)) * (COS(NUM) * 100)
END SELECT
LOCATE 21, 1
PRINT MID$(TXT$, A, 1); " -"; CDE
NEXT A
PRINT #2, A$
PRINT #2, "0.156"
A$ = ""
WEND
CLOSE
END SUB