a : STUDY5 -- STUDY/QUIZ PROGRAM0b: For Morrow MD-2, Lear-Siegler MDT-2 terminal. MBASICmb: Opens data files: STDATA1, 2, 3, 4 and 5 and STSUBJ.b: REMEMBERS FIVE SUBJECTS OF UP TO 100 QUESTIONS AND ANSWERS EACHb: WILL GIVE A TEST OF RANDOMLY SELECTED QUESTIONS AND ALLOWS A!c(: RETEST ON THE QUESTIONS MISSEDHc2: (c) 1983 Robert K. Waitsc7: May be distributed by non-profit Users Groups.c<:cF Q$(d)cP A$(d)cZ W(d)cd M(d)cn ():cx #);"STUDY/QUIZ"c tc:d );"SUBJECT";?);"QUESTIONS".d: N qd Q(N) N;()". THIS SPACE AVAILABLE";A);"NONE": d N;()". ";SUBJ$(N);A);Q(N)d Ndd"To select a subject enter the subject number. "d,e"To REPLACE a subject and enter a new set of questions enter subject "Le" number/R (e.g. 3/R)."Reme"To end enter END.":ye ; R$e (R$,)"E" :"BYE":e" (R$,)"/R" | : ,e,Q ((R$,))e6 Q Q J : f@: READ SELECTED SUBJECT Q//A FILE;fJ Q  ,n,,6,UfT (): T f^ "SUBJECT: ";S$; A);"QUESTIONS:";Tfh: "How many questions do you want";: Tfr T  : f|W ((R$,))f W W  : f gI"g R . : (gJg J R R: M: gg I;()". "Q$(N): R$g R$A$(N) "CORRECT!":SS : g"WRONG. TRY AGAIN.":MM:W(M)N: R$g R$A$(N) "CORRECT.":SS: h"WRONG. THE ANSWER IS: ";A$(N): hYh"End of test. Your score was";S;"(";( ST);()"% )"ihS: I: h M N : h"Do you want to review the";M;"that you missed";h& R$h0 (R$,)"Y" (R$,)"y" : : Ni:R: ()iDJM: T2T: TM: -iN T2 TT2HiX N T: M(N): NUibJ: Ril"Do you want another test on this subject";iv R$i (R$,)"Y" (R$,)"y"  : i (): i T2 TT2j N T: M(N): Nj (): Oj : ROUTINE FOR ENTERING NEW QUESTIONS/ANSWERSUjj"Enter new Subject";W; ()". ";: ; S$jSUBJ$(W)S$j:j"You can give me a list of questions and answers to remember and I"*k"will be able to give them back to you in a random sequence.":nk"Keep answers simple as they must be exactly reproduced to be"k"counted as correct."kk"CAUTION: Do not put quotation marks ";(");" in your questions "l" or answers. The computer can't understand them.":`l"Press when you have completed entering your question"l"or answer. For multilple line questions use spaces to fill out"l"the line and go to the next line.":m "Also, do not use commas in answers. Don't ask why.":Qm "How many questions (or definitions) do you have to enter";[m  T:m* Td "Sorry, I can only remember 100 questions.":: m4 T (): m>JT: Q(W)T:nH  : WRITES SUBJECT AND NUMBER TO INDEX FILEnR N T;n\"Enter question or definition:"Xnf N;()". ";: ;Q$(N)^np|nz"Enter answer or word: "n ; A$(N)nn Nn W ,D,,, : WRITES Q/A TO FILESo"You have completed your entry. Do you want a test now";o R$Ko (R$,)"Y" (R$,)"y"  : _o (): o : SUBROUTINE FOR RANDOMLY PICKING QUESTIONSo: T= Number of questionso T (): oIIo IT I:  pN(T)p M(N) +pM(N)1p$dp.: SUBROUTINE TO REVIEW MISSED QUESTIONS{p8 J B : LpBM: R: pLIIpVNW(MJ)p`JJpjpt : SUBROUTINE TO READ SUBJECT INDEX FILEq~ q "I", #, "STSUBJ"Hq G : #, SUBJ$(G), Q(G): GZq () sq 5  q((SUBJ$())(SUBJ$()))q #qq((Q$())(A$()))q: SUBROUTINE TO WRITE IN SUBJECT INDEX FILEr "O", #, "STSUBJ"@r G : #, SUBJ$(G), Q(G): GIr #Orr : SUBROUTINE TO READ FIRST DATA FILEr Pr "I",#,"STDATA1"r( #, T, S$r2 N T: #, Q$(N): Nr< N T: #, A$(N): NsF () Z sP 5  Z)sZ #/sdbsn: SUBROUTINE TO READ SECOND DATA FILEpsx s "I",#,"STDATA2"s #, T, S$s N T: #, Q$(N): Ns N T: #, A$(N): Ns () t 5   t #tHt: SUBROUTINE TO READ THIRD DATA FILEVt ot "I", #, "STDATA3"t #, T, S$t N T: #, Q$(N): Nt N T: #, A$(N): Nt () "t 5  "t" #t,2u6: SUBROUTINE TO READ FOURTH DATA FILE@u@ |YuJ "I", #, "STDATA4"iuT #, T, S$u^ N T: #, Q$(N): Nuh N T: #, A$(N): Nur () u| 5 J u #uv: SUBROUTINE TO READ FIFTH DATA FILE(v Av "I", #, "STDATA5"Qv #, T, S$qv N T: #, Q$(N): Nv N T: #, A$(N): Nv () v 5  v #vv: SUBROUTINE TO WRITE IN FIRST DATA FILEw "O", #, "STDATA1"(w #, T, S$Hw N T: #, Q$(N): Nhw& N T: #, A$(N): Nqw0 #ww:wD: SUBROUTINE TO WRITE IN SECOND DATA FILEwN "O", #, "STDATA2"wX #, T, S$wb N T: #, Q$(N): Nxl N T: #, A$(N): Nxv #$xXx: SUBROUTINE TO WRITE IN THIRD DATA FILEqx "O", #, "STDATA3"x #, T, S$x N T: #, Q$(N): Nx N T: #, A$(N): Nx #xy: SUBROUTINE TO WRITE IN FOURTH DATA FILEy "O", #, "STDATA4"/y #, T, S$Oy N T: #, Q$(N): Noy N T: #, A$(N): Nxy #~y y: SUBROUTINE TO WRITE IN FIFTH DATA FILEy  "O", #, "STDATA5"y* #, T, S$z4 N T: #, Q$(N): N#z> N T: #, A$(N): N,zH #2zRILEy  "O", #,