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