$compile exe "BEGIN.EXE"
$OPTIMIZE SPEED
color 15,1:cls
s$ = command$
IF s$ = "aLPHa.oMeGa" THEN TeachrMde
INPUT "Filename"; f$
OPEN f$ FOR INPUT AS #1
13 DO
LINE INPUT #1, d$
s$ = DES$(d$)
IF s$ = "-*-*-*-*-" THEN GOTO 134
PRINT s$
134 LOOP UNTIL s$ = "-*-*-*-*-"
line INPUT ">"; ff$
LINE INPUT #1, ans$
answ$ = DES$(ans$)
IF MID$(answ$, 1, 1) = "!" THEN  ELSE ff$ = UCASE$(ff$): answ$ = UCASE$(answ$)
IF RTRIM$(LTRIM$(ff$)) = RTRIM$(LTRIM$(answ$)) THEN cc = cc + 1
tat = tat + 1
IF EOF(1) THEN CLOSE #1: GOTO 213
GOTO 13
213 CLS : PRINT "You got"; cc; "correct out of"; tat; "questions"
PRINT "Your score is"; (cc / tat) * 100
END

FUNCTION DES$ (ln$)
q = ASC(RIGHT$(ln$, 1))
ln$ = LEFT$(ln$, LEN(ln$) - 1)
FOR m = 1 TO LEN(ln$)
tt$ = tt$ + CHR$(ASC(MID$(ln$, m, 1)) - q)
NEXT m
DES$ = tt$
END FUNCTION

FUNCTION SCRMBL$ (ln$)
FOR o = 1 TO LEN(ln$)
c = ASC(MID$(ln$, o, 1))
IF c = 255 THEN c = 32: MID$(ln$, o, 1) = " "
IF c > mx THEN mx = c
'PRINT c; b; mx
b = c
NEXT o
RANDOMIZE TIMER
q = INT(RND * (254 - mx)) + 1
FOR m = 1 TO LEN(ln$)
tt$ = tt$ + CHR$(ASC(MID$(ln$, m, 1)) + q)
NEXT m
SCRMBL$ = tt$ + CHR$(q)
END FUNCTION

SUB TeachrMde
INPUT "Enter filename"; f$
OPEN f$ FOR OUTPUT AS #1
10 PRINT "Type your question and press enter on a blank line when finished with your "
print "question or type 'DONE' on a blank line when your finished"
DO
LINE INPUT a$
IF RTRIM$(LTRIM$(UCASE$(a$))) = "DONE" THEN CLOSE 1: END
IF RTRIM$(LTRIM$(UCASE$(a$))) = "" THEN GOTO 32
PRINT #1, SCRMBL$(a$)
32 LOOP UNTIL a$ = ""
PRINT "Type the answer"
LINE INPUT f$
PRINT #1, SCRMBL$("-*-*-*-*-")
PRINT "Does case matter (y/n)?";
2 d$ = INPUT$(1)
IF UCASE$(d$) = UCASE$("y") THEN PRINT "Y": f$ = "$" + f$
IF UCASE$(d$) = "N" OR UCASE$(d$) = "Y" THEN  ELSE GOTO 2
PRINT #1, SCRMBL$(f$)
GOTO 10
END SUB