NOTE:  Once again, I can't quite remember the document format.  I think it's
				Quiz Title
				Question 1
				Correct answer
				Wrong answer
				Wrong answer
				Question 2, etc, etc.


1 REM *** Written by Mark Ray, please read welcome.msg first ***
2 ON ERROR IF ERR=17 THEN CH."AUTO" ELSE REPORT:PRINT " at ";ERL:END
5  DIMANS$(2):SC=0:QS=0
6  CLS:PRINT SPC(30);"Multiple Choice Quiz"'
10 INPUT LINE "Name of Questions Document";Q$:F=OPENIN(Q$)
15 INPUT#F,TITLE$
20 PROCadv:REPEAT:PROCshowq:SC=SC-FNaskq:PROCadv:UNTIL EOF#F
30 CLS:PRINT "Your score is ";SC;" out of ";QS;GET$:CLOSE#F:CHAIN"AUTO"
50 DEFPROCadv:REPEAT:UNTIL BGET#F=64 OR EOF#F:ENDPROC
60 DEFPROCshowq
70 INPUT#F,QU$:FOR C=0TO2:INPUT#F,ANS$(C):NEXT
80 REPEAT:X=RND(2)-1:Y=RND(2):UNTIL X<Y
90 TMP$=ANS$(X):ANS$(X)=ANS$(Y):ANS$(Y)=TMP$
100IF X=0 THEN RIGHT=Y ELSE RIGHT=0
110CLS:QS=QS+1:PRINT "Question ";QS;TAB(40);TITLE$''TAB(10);QU$'
115FORC=0TO2:PRINTTAB(20);CHR$(65+C);" - ";CHR$(11);ANS$(C):NEXT:ENDPROC
120DEFFNaskq=((GET-65)=RIGHT)