: TEACHING FLASHCARD PROGRAM V. 6/20/87 - DICK SPINDLER [76537,1623]V AZ: Q$(): A$():LN$ "================================================================================":  :RT:WR:QN:: )"TEACHING MACHINE PROGRAM": : LN$;::" 1) WRITE A NEW FLASHCARD SET":" 2) LOAD A QUESTION SET FROM RAM":" 3) DRILL THE SET NOW LOADED" (" 4) CHANGE A QUESTION OR ANSWER":" 5) ADD QUESTIONS TO THIS SET":" 6) STOP THE PROGRAM/RETURN TO MENU":" 7) PRINT OUT QUESTION/ANSWER SET" 2:" YOUR CHOICE? ";: 0: (IN$) F,,,J,,,: (IN$) (IN$)  <  F:NEW CARD WRITING~ P N :::"25 CARDS IN THIS SET - THE MAXIMUM."::"RETURNING TO MENU...": :  Z:"NEW CARD WRITING - NEW CARD IS #";N::"ENTER QUESTION FOR SIDE ONE": Q$(N):LN(Q$(N)): LN : Z : : Q$(N): LN$;X d"IS THE ABOVE QUESTION CORRECT";YN$: YN$"Y" YN$"y" Z n:"ENTER ANSWER FOR SIDE TWO": A$(N):LN(A$(N)): LNP : n : : A$(N): LN$; x"IS THE ABOVE ANSWER CORRECT";YN$: YN$"Y" YN$"y" P : NN::YN$"" "ANOTHER QUESTION";YN$: YN$"Y" YN$"y" P : CH :"NUMBER OF THIS QUESTION SET";SN$:  : :  D: :  : LOAD QUESTION SET ::"NUMBER OF QUESTION FILE TO LOAD";SN$: : D::"LOADING ";FL$a FL$ AS #:#,N:#,T$: X N: #,Q$(X): #,A$(X):::LD: w : QUESTION DRILLADN: N  : :: )"[[ QUESTION DRILL ]]"::"ANSWER A QUESTION WITH ";(");"*STOP";(");" TO RETURN TO MENU."::"ANSWER WITH ";(");"*SCORE";(")" FOR YOUR SCORE AT ANY TIME.":"ANSWER WITH ";(");"*RESET";(");" TO RESET SCORE AND RESUME DRILLING."::"DRILL IN ORDER OR AT RANDOM (O/R)";NR$: NR$"R"  NR$"O" NR$"R" 5DNDN: NR$"O" QNQN: QNN QN:  : XQN(()d): QNN : "QUESTION #";QN;"OF SET ";(FL$,);: );: "DRILL #";: "###";DN: LN$;: Q$(QN);"?": AN$: AN$"*STOP" :  : AN$"*SCORE" QNQN: : i AN$"*RESET" RT:WR:DN:QNQN:  : AN$"" : A$(QN): LN$;: @"LA(AN$): AN$(A$(QN),LA) : )"RIGHT!":RTRT: T ,:: ),:WRWR: )"WRONG. THE ANSWER IS:":: (A$(QN))( )A$(QN) : (((A$(QN)))))A$(QN)46 LN$;D@ &: eJ: CHANGE QUESTION OR ANSWER T:  )"[[ CHANGE A CARD ]]"::"CARD NUMBER FOR CHANGE (0 FOR MENU)";CN: CNN  : CN  : :"QUESTION #";CN;"IS:": Q$(CN)::"ANSWER:": A$(CN)^:"CHANGE QUESTION OR ANSWER (Q/A)";QA$: QA$"Q" NA$A$(CN):"NEW QUESTION?": NQ$: r : QA$"A" ThNQ$Q$(CN):"NEW ANSWER?": NA$r::"QUESTION#";CN;"IS:":: NQ$::"ANSWER#";CN;"IS:"X|: NA$:: LN$;::"IS THE NEW Q AND A CORRECT (Y/N)";YN$: YN$"Y" Q$(CN)NQ$:A$(CN)NA$: :  : T{: ADD QUESTIONS TO SET IN RAMCH: F:FLAG FOR ADDING TO CURRENT QUESTION SET::"RETURNING TO MAIN SYSTEM MENU...":M::"PRINTING OUT QUESTION LIST...": FL$:" ": X N:"#";X:"Q: ";Q$(X)"?":"A: ";A$(X):: S FL$"" : FL$ OUTPUT AS #:#,N:#,(FL$,): X  N:#,Q$(X):#,A$(X):::(((,))): LD )N;"QUESTIONS LOADED-";(FL$,): :  5 :: "FILE ";FL$;" NOT FOUND.":"FILE MUST BE LOADED TO RAM FOR ACCESS.":: "RETURNING TO MENU.": T ::  : "ERROR #";;" IN LINE ";: (SN$) SN$"0"SN$:"TOO LONG -";LN;" CHARACTERS - LIMIT IS 80.":FORTTO600::6:"Wait...Recording File.": :z:"THERE ARE ONLY ";N; "QUESTIONS IN SET.": T X:: : (RTWR) : ::: "DO YOU WISH YOUR SCORE FOR THIS SESSION (Y/N)";YN$: YN$"N" ; (RTWR) :"NO SCORE." : ::"YOUR SCORE WAS: ";: "###.#";(RT(RTWR)d);:"%"`&:: )"< SPACE > TO CONTINUE"{0IN$ : IN$"" 0:DFL$"FLCARD"SN$".DAT":