10 REM *********** 20 REM Quiz Master 30 REM By Mark Ray 40 REM *********** 50 REM NC100/200 Version 60 REM Downloaded from Tim's Amstrad NC Users' Site 70 REM http://www.ncus.org.uk 80 REM Originally from the Amstrad Notepad Users' Web 90 ON ERROR CLOSE#0:REPORT:PRINT " at ";ERL:END 100 DIMANS$(2):SC=0:QS=0 110 CLS:PRINT SPC(30);"Multiple Choice Quiz"' 120 INPUT LINE "Name of Questions Document";Q$:F=OPENIN(Q$) 130 INPUT#F,TITLE$ 140 PROCadv:REPEAT:PROCshowq:SC=SC-FNaskq:PROCadv:UNTIL EOF#F 150 CLS:PRINT "Your score is ";SC;" out of ";QS;GET$:CLOSE#F:CHAIN"AUTO" 160 DEFPROCadv:REPEAT:UNTIL BGET#F=64 OR EOF#F:ENDPROC 170 DEFPROCshowq 180 INPUT#F,QU$:FOR C=0TO2:INPUT#F,ANS$(C):NEXT 190 REPEAT:X=RND(2)-1:Y=RND(2):UNTIL X