$:PG$"MWHIZ!":NM$"23":620007" C.T.NADOVICHK" 24 SECOND AVEa" TROY, NY 12180g"" CURSOR #23, DEC 1980" COPYRIGHT(C)1980 THE CODE WORKS" BOX 550, GOLETA, CA. 93017" " AS OF 9 DEC 80dMT10:MP100nP(X)(25(X2).5)1+xR(X)(X10.5)10DCR$(13):KY$"D6A4"cLN$""Q$"":CP$Q$Q$Q$Q$ RP(4):RP0 I1 4: T:RPRPT:RP(I)T: I 1,1,1,1: +,-,*,/N2 I1N3"WHO'S SITTING TO THE ";("RIGHTLEFT",115I,5);"? ";P60000:IN$(IN$,(LN$))t(IN$,1)" "IN$(IN$,2):250 (IN$,1)" "IN$(IN$,(IN$)1):260IN$""230N$(I)IN$"R$(KY$,I,1):W$(KY$,I2,1),:IN$;", REMEMBER: YOU PRESS/6"";R$;" IF THE ANSWER IS RIGHT, ORY@"";W$;" IF THE ANSWER IS WRONG.J"(HINT: ";R$;" IS TO THE RIGHT.)T I^"PRESS ANY KEY TO CONTINUE...hT$:T$""360r*****BEGIN GAME LOOP*****|P(1)0:P(2)0 1320$1150:Q$"Q"1060*41750KQ$: Q$"" 430V""k20(E$)2);E$T1TI:Z2MT60T1Q$: WAIT MT SEC FOR RESPONSETIZ2940Q$""470T2TII1(KY$): (KY$,I,1)Q$FI:570 I Q$"Q""":1050Y &"KEEP YOUR HANDS OFF THE KEYS OTHER THAN YOUR OWN!"b 0400 :I$"C":F2I$"I":FF2 DA$I$760 N"CORRECT, ";N$(F);"!!!!" X A$"I" "THE ANSWER SHOULD BE";NC$ b1230 lET(T2T1)60 vPTP(ET):P(F)P(F)PT ETR(ET)C P$"POINTS!":PT1P$"POINT!"f S$"SECONDS":ET1S$"SECOND" Q$"IT TOOK YOU"(ET)" "S$ Q$Q$" TO RESPOND AND YOU " Q$Q$"EARNED"(PT)" "P$   ****LOOP EXIT**** P(F)MP1020 890! "WRONG, ";N$(F);","K  A$"I""THE ANSWER IS REALLY";NC$s  A$"C""THE ANSWER IS CORRECT." ET(T2T1)60 PTP(ET):P(F)P(F)PT *ETR(ET) 4S$"SECONDS":ET1S$"SECOND" >P$"POINTS!":PT1P$"POINT!" HQ$"IT TOOK YOU"(ET)" "S$= RQ$Q$" TO RESPOND AND YOU LOST "T \Q$Q$(PT)" "P$d z1460:""t I15000:~  390 "";15);"TIME'S UP! "";12(A$"I"));"IT WAS "; A$"I" "IN"; "CORRECT! 7);"PRESS ANY KEY TO CONTINUE Q$:Q$""990$  390D *****END OF GAME LOOP*****\  PRAISE THE WINNERf 1230} 1460:LI12000: 1320 $1230 .F1: P(1)P(2) F2 8P(1)P(2)Q$N$(1)" AND "N$(2)", THE GAME IS A TIE!": 1100+BQ$N$(F)", YOU ARE THE WINNER, WITH"(P(F))" POINTS."7L:1460pV"WANT TO PLAY AGAIN? ";:60000:(IN$,1)"N"380{`""jt PRINT 'GET READY'~I1 1050(1)15)"GET READY"T((5))15)" "T((5)) Q$:Q$"Q", SOME NEAT NOISES:59467,16H59466,51ULJ160l59464,((1)256)r 59467,0 PRINT SCORES("";15);(CP$,10)2 15);"SCOREBOARD<L$"":R$"":T16(LN$)2F LI1 NPT);L$;LN$;R$.ZP$((" "(P(LI))),5)UdT);""N$(LI)T(LN$)1)""P$""mnL$"":R$""vx LIT);"";LN$;""Q$(MP):T19(Q$)20T2);(CP$,T)20T2);"GAME OVER AT";Q$;" POINTS" PRINT LONG Q$ OF TEXT# (Q$)40 1540-LI40H (Q$,LI,1)" " 1510ZLILI1:1490n (Q$,LI1)""Q$(Q$,(Q$)LI)1470Q$ THE FOLLOWING CODE GENERATES" THE PROBLEMS PRESENTED IN THE, GAME. THE USER CAN REPLACE#6 THIS ROUTINE WITH ONE TOC@ GENERATE PROBLEMS BETTERaJ FITTING THE CURRICULUM.gT^ THERE ARE ONLY TWO PARA-h METERS RETURNED BY THISr SUBROUTINE:| E$...RETURNS THE TEXT OF THE PROBLEM. A$...RETURNS A "C" IF= THE PROBLEM IS[ CORRECT, "I" FORs INCORRECT.yT((1)RP) O1 3 TRP(O) 1800TTRP(O) O:O4N1((1)20)1N2((1)20)1  O 1910,1930,1950,1970+& ((N3(N3)))4 1800X0NCN3: (1).5 N3((1)7)3:N3NCN3u:A$"C": N3NC A$"I"DEL$(N1)" "("+-",O,1)(N2)NER$(N3): N30 ER$" "ER$XE$EL$" ="ER$bNC$(NC): NC0 NC$" "NC$l v DO ADDITIONN3N1N2:1 DO SUBTRACTION@N3N1N2:X DO MULTIPLICATIONgN3N1N2:y DO DIVISIONN3N1N2:`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010*Z(Z$):ZL(IN$):(Z127)32" ";:60110ZFL(Z127)64(Z127)91Z$((Z128)255)lZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000060010059468,12L5"";15(PG$));PG$;" BY C.T.NADOVICH}:" CURSOR #";NM$;" COPYRIGHT (C) 1980DI110:"";:IN"QUICK! WHAT'S TWO PLUS TWO?X"PRESS RETURN TO BEGINbT$:T$""62050l""::CR$(13):100