:* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F:* Chapter 5, Exercise 34 10-14-90 *:* *(:* Ray Kelly EDP 027 *'2:* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *D< "R", , "CQUIZ.DAT",F #,  AS CAT$, E AS QUEST$,  AS CHOICE$(),  AS CHOICE$(), AS CHOICE$(),  AS CHOICE$(),  AS CORRECT$PMAX.QS ZNUM.QS d Q.ARR(NUM.QS)n x  I   ! I,"") I2 P; E ,KjCR$ ()()()xRIGHT WRONG  ,: "C O M P U T E R Q U I Z P R O G R A M"  ,: "M & R ******** Oct. 1990"3 ,: "Enter 'C' to continue, anything else to quit "DSTARTUP$ ^ STARTUP$ ""  STARTUP$ "C" STARTUP$ "c" " , I  NUM.QS6 CURR.Q Q.ARR(I)@ >J ANS$ CORRECT$  : FT IP^ ,Vhr RIGHT  WORD$ "question " : WORD$ "questions "| ,: " You answered";RIGHT;WORD$;"correctly out of";NUM.QS;"asked "PCT ((RIGHTNUM.QS) d).  ,: " Your score is ### % ";PCT:  , PCT F " Good score, play again! " : " Keep trying, your score will improve! " ,: " Enter ";CR$;" to exit COMPUTER QUIZ " ,0: "",NULL$ 6:print game menuB ,,H ,: "Correct = ";RIGHT;" Incorrect = ";WRONG;" Current question = ";I;" of ";NUM.QS #,CURR.Q ,: "Category: ";CAT$ ,: "Question -- "  ,: QUEST$;"?"&START.ROW -0SKIP.ROW >: II  ZDSKIP.ROW SKIP.ROW N START.ROWSKIP.ROW,: (@II);") ";CHOICE$(II)X IIb ,: ,: "Enter response "lANS$ v ANS$ "" b (ANS$) Z ANS$ ((ANS$) )= (ANS$) D (ANS$) A bCY:correct answerm "MNL8CCCL2F" ,: ,: " CORRECT ANSWER! ENTER ";CR$;" "; RIGHT RIGHT :wrong answer %, T , : ,: " WRONG ANSWER, CORRECT ANSWER WAS '";CHOICE$((CORRECT$) @);"' ENTER ";CR$;" ";^ tWRONG WRONG z :assemble random list of questions with no duplicates  ,*4  ,: " Now Loading data "> , : " Please Wait "HI $R NUM.QS I5\ TAKEN [f Q.ARR(I) (MAX.QS ) rp J  I z Q.ARR(I) Q.ARR(J) TAKEN  J TAKEN  I I :null input NUL$ : NUL$ ""  NULL$  1 :exit the program9  C  ,I w  ,: "Exiting Computer Quiz Program "~