263:3.""(27);"N";:6,7:5,2:*,,"":T115:,," "::,,"":,," ":"",,,"":,,," 1.0 ",,,"":,,," ":,,,"":,,," . ENIFER ":,,," ' ' ":,,,"":,,," ":,,"",," DAPTED FOR 128 BY ":,," ":,,"  ": 4:%.TE((0))::248:T$(40),TA$(40),F$(40),FA$(40),M$(40),MA$(40),E$(20),EA$(20),AN$(290),TT(150),SS(40),Q$(150,6):257:OX8U4:14:Z28,73,74,87,98,172,244,8263:23)"RE YOU FINISHED WITH ?":27)"RESS PACEBAR FOR MAIN MENU":34)" KEY TO QUIT PROGRAM" 12:Z$" "7 Z$"Q""": 9 Z$:Z$""12 !Z0:263:25)"":25)" ENU ":25)" 1. RITE QUESTIONS ":25)" 2. OAD TEST FROM DISK ":25)" 3. ERGE TEST FROM DISK ":25)" 4. AVE TEST TO DISK ""25)" 5. RINT TEST ":25)" 6. DIT ":25)" 7. LEAN SLATE ":25)" 8. UIT ":25)"":22)"OTAL NUMBER OF QUESTIONS.....";TQ"DQ018C"22)"NCLUDING"DQ" DELETED QUESTION(S)"K"21g"12:Z(Z$):Z1Z819t"(14):"" RUE-ALSE PINION.........";Q1;:DT0T1DT:27"40)" ILL-IN....................";Q2;:DF0T1DF:27&#:" ATCHING...................";Q3;:DM0T1DM:27c#40)" SSAY......................";Q4;:DE0T1DE:27#:25)"ULTIPLE HOICE............";Q5;:DZ0T1DZ:27#:#T1$(T1):"(";(T1$,2,(T1$));")";:l$2:"";"RESS SPACEBAR FOR MENU"55)" ْ":(CM$,2);" NTER 1-/ 2-SSAY 3-ATCHING 4-ILL-IN 5-ULTIPLE HOICE"$Z$:("12345 ",Z$)31,51,64,45,55,7$29$X240$ Q1Q11:HDQ1:HD41HD$"RUE/ALSE-PINION":69:34$!70:Q1Q11:7%"P$""Q1Q11:28V%#T$(Q1)P$:(CM$,10);"S THE ANSWER ԒRUE, ƒALSE, OR ϒPINION?"t%$Z$:Z$"T""TRUE":40%%Z$"F""FALSE":40%&Z$"O""OPINION":40%'36%("OU SURE? (/)"%)Z1$:Z1$"Y"44&*Z1$"N"(CM$,11);" ":36&+41/&,TA$(Q1)Z$:TQTQ1:"":32t&-X240:Q2Q21:HDQ2:HD41HD$"SE = @ FOR FILL-IN":69:47&.70:7&/P$""Q2Q21:28&0F$(Q2)P$&1(CM$,10);"NTER THE ANSWER.":X28:234:FA$(Q2)P$:FA$(Q2)""49'2TQTQ1:"":45A'3X240:Q4Q41:HDQ4:HD21HD$"SSAY QUESTION":69:52X'4P$""Q4Q41:28(5E$(Q4)P$:(CM$,10);"NTER THE ANSWER.":"(PRESS FOR"(34)"NSWERS WILL VARY"(34)")":X240:234:EA$(Q4)P$:EA$(Q4)""EA$(Q4)"ANSWERS WILL VARY":"NSWERS WILL VARY": 1#(6TQTQ1:51c(7X240:Q5Q51:HDQ5:HD151HD$"ULTIPLE HOICE":69:57v(870:Q5Q51:7(9P$""Q5Q51:28(:Q$(Q5,0)P$:I15(;"NTER ANSWER "(64I)":":234:P$""59(<Q$(Q5,I)P$:,)="NTER ETTER OF ORRECT NSWER:":234:P$""61F)>(P$)65(P$)6961g)?Q$(Q5,6)P$:TQTQ1:"":55)@X28:Q3Q31:HDQ3:HD41HD$"ATCHING UESTIONS":69:66)A70:7)BM$(Q3)P$:P$""Q3Q31:28*C(CM$,12);"NSWER?":X28:234:MA$(Q3)P$:MA$(Q3)""67&*DTQTQ1:"":64*EHD$;55)"UESTION ENTRY":(CM$,2);"UESTION #";HD;55);"TOTAL QUESTIONS:";TQ:(CM$,3):234:HD0:*F"";(CM$,12);"EACHED QUESTION LIMIT":"RESS SPACEBAR FOR MENU"*GZ$:Z$" "71*H+I263:MQ0:M10:M20:M30:M40:M50:78u+J263:MQTQ:M1Q1:M2Q2:M3Q3:M4Q4:M5Q5:D1DQ:D2DT:D3DF:D4DM:D5DZ:D6DE:TQ078+K"O TEST IN MEMORY":"RESS SPACEBAR FOR MENU"+L12:Z$" "7+M762,NF$"":"INPUT A "(34)"*"(34)" FOR LIST OF FILES":"O NOT INCLUDE THE TW] PREFIX AS PART OF FILE NAME"g,O"EST NAME AND DRIVE:";F$,OX:F$"*"256:79t,PF$""7-QF$"TW] "F$:15,OX,15:15,"I0:":96:1,OX,3,F$",S,R":96:1,TQ,DQ,Q1,DT,Q2,DF,Q3,DM,Q4,DE,Q5,DZ:(M1Q140)(M2Q240)(M3Q340)(M4Q420)(M5Q5150)83-R84u-S"";(CM$,12);"XCEEDED QUESTION LIMITS":U(OX):"RESS ANY KEY FOR MENU":12:7h.TIM11M1Q1:86:T$(I)CC$:86:TA$(I)CC$::IM21M2Q2:86:F$(I)CC$:86:FA$(I)CC$::IM31M3Q3:86:M$(I)CC$:86:MA$(I)CC$::IM41M4Q4:86:E$(I)CC$:86:EA$(I)CC$::IM51M5Q5:J06:86:Q$(I,J)CC$:::TQTQMQ:Q1Q1M1.UQ2Q2M2:Q3Q3M3:Q4Q4M4:Q5Q5M5:DQD1DQ:DTD2DT:DFD3DF:DMD4DM:DED6DE:DZD5DZ:U(OX):7.V2816:LL(253):CC$(A$,LL):/W263:TQ091>/X"O QUESTIONS TO SAVE!":"RESS SPACEBAR FOR MENU"P/Y12:Z$" "7X/Z89/[F$"":"O NOT INCLUDE THE TW] PREFIX AS PART OF FILE NAME"/\"EST NAME AND DRIVE:";F$,OX:F$""7/](F$)12"AME CAN NOT EXCEED 12 CHARACTERS":920^F$"TW] "F$:15,OX,15:15,"I0:":96:(F$),U(OX): #1,(F$),U(OX),W:96:1,TQ:1,DQ:1,Q1:1,DT:1,Q2:1,DF:1,Q3:1,DM:1,Q4:1,DE:1,Q5:1,DZ:I1Q1:1,T$(I):1,TA$(I)::I1Q2:1,F$(I):1,FA$(I)::I1Q3:1,M$(I):1,MA$(I)::I1Q4:1,E$(I)51_1,EA$(I)::I1Q5:J06:1,Q$(I,J):::1:U(OX):7A1`DS01a" : ";DS:"RESS ANY KEY FOR MENU":12:U(OX):71b263:2491c4,4,7:PP80:SC4:L0:(CM$,7);22)"UMBER OF QUESTION AVAILABLE:";TQ:(CM$,9);:21:TQDQ0103Q2d:23)"O QUESTIONS IN MEMORY OR ALL DELETED":23)"RESS SPACEBAR FOR MAIN MENU"c2e12:Z$" "7l2f101z2gDQ0105$3h:"! ONLY";TQDQ;"QUESTIONS WILL BE PRINTED. F YOU NEED MORE, RETURN TO":"MENU. HEN PRESS 1 TO WRITE MORE QUESTIONS OR 6 TO UNDELETE EXISTING ONES."3i"HECK PRINTER.":"UT PRINTHEAD JUST BELOW PERFORATIONS":25)"RESS SPACEBAR FOR MAIN MENU.":31)" KEY TO START PRINTING"3j12:Z$" "73kZ$"P"1093l1063m"";(CM$,8);"ITLE OF TEST:"$4nX60:PC0:(CM$,9);:234:P$""1104oTL$P$:"";(CM$,10);" ":4,(80(TL$))2)TL$:LL1:4:4,"AME":4,"ATE":4,"ERIOD":4:LL5:::"SORTING...":N0:Q3DM0119C5p4,": RITE THE LETTER OF THE BEST ANSWER.":4:LL2:WQ3:159:O1:Q1Q3g5qSS(Q)TT(O):(M$(Q),1)"^"1185rGN65:W$M$(Q)(V$,(29(M$(Q)))):(M$(SS(Q)),1)"^"OO1:1135sN26W$W$" "(G)". "MA$(SS(Q)):1176tGG26:W$W$(G)(G)". "MA$(SS(Q)).6uOO1:157:SP9:4,"";N$;:16046vE6wQ1DT01236x4," AND : RITE ,, OR FOR EACH QUESTION.":4:LL2:WQ1:159:O1:Q1Q1:(T$(TT(O)),1)"^"1227yW$T$(TT(O)):157:SP9:W$""N$W$:160:AN$(N)N$TA$(TT(O))7zOO1:"7{Q2DF01277|4,"-: RITE THE ANSWER IN THE SPACE PROVIDED.":4:LL2:WQ2:159:O1:Q1Q2:(F$(TT(O)),1)"^"1267}W$F$(TT(O)):157:SP9:W$" "N$W$:160:AN$(N)N$FA$(TT(O))7~OO1:7Q5DZ0134u84," : RITE THE ANSWER IN THE SPACE PROVIDED.":4:LL2:WQ5:159:O1:Q1Q5:PC0:(Q$(TT(O),0),1)"^"133 9157:SP9:W$""N$Q$(TT(O),0):160:SP3:(Q$(TT(O),1))35(Q$(TT(O),2))35(Q$(TT(O),3))35(Q$(TT(O),4))35Q$(TT(O),5)"*"251:132@9I15:W$(64I)". "Q$(TT(O),I):I5PC0:PC1K9160:e9AN$(N)N$Q$(TT(O),6)q9OO1:9EBN:Q4DE01389PC1:4,": NSWER EACH QUESTION COMPLETELY.":4:LL2:WQ4:159:O1:Q1Q4:(E$(TT(O)),1)"^"137K:W$E$(TT(O)):157:SP5:W$N$W$:160:K15:W$"":160::170:AN$(N)N$EA$(TT(O))\:OO1::PC0u:L2I65L1:4::L0:"";(CM$,14);"PRESS  KEY FOR ANSWER KEY":" SPACEBAR FOR MAIN MENU":12:Z$" "7:Z$"A"143:140;Q301547;K1:G0:I1Q3:K10K$(K):K$" "K$:146C;K$(K)_;J1:(M$(I),1)"^"153m;JQ3153;ISS(J)152;GJ64:J27151;AN$(K)K$". "(G)" "MA$(I):KK1:153;GG26:AN$(K)K$". "(G)(G)" "MA$(I):KK1:153<JJ1:147<I`<4,35)"NSWER EY":4:LL2:EC((EB2).5):I1EC:IEB4,AN$(I);<(IEC)EB4,40(AN$(I)));AN$(IEC);<4:LL1:170::4:4:LL2:170:I(EB1)N:W$AN$(I):160::4:SC3:7=NN1:N10N$(N):N$" "N$". ":=N$(N):N$N$". ":u=I1W:TT(I)I::J13:IW11:TTT(I):TE((1)W1):TT(I)TT(TE):TT(TE)T:::=(W$,4,1)"*"168=L1W$""=170:SC3258=(W$)PP4,W$:LL1:168>BPP:(W$,B,1)" ":BB1::4,(W$,B):LL1:W$(W$,((W$)B))?>(W$,1)" "W$(W$,((W$)1)):165`>W$(V$,SP)W$:(W$)PP163n>170:162>PC0L04:LL1>170:W$"":>L61>AL65:4::L0:a?2:4:"";"PRESS SPACEBAR FOR MENU"55)" Ӓ":4,3:PP80:(CM$,2);" NTER 1-/ 2-SSAY 3-ATCHING 4-ILL-IN 5-ULTIPLE HOICE"?Z$:("12345 ",Z$)175,194,188,182,200,7?173?Q10231@I1Q1:HD$"RUE/ALSE-PINION":210:W$T$(I):211:X240:W$T$(I):214:DTDTPQ:T$(I)W$:Z$(13)IQ1:181+@Z$"N"181Z@(CM$,18);"HE ANSWER IS NOW , , OR ?"@12:(Z$"T")(Z$"F")(Z$"O")Z$:TA$(I)Z$:181@179@:172@Q20231AI1Q2:HD$"ILL-IN":210:W$F$(I):211:X240:W$F$(I):214:DFDFPQ:F$(I)W$:Z$(13)IQ2:187-AZ$"N"187WA213:X39:(CM$,18);:234:P$""187eAFA$(I)P$pA:172~AQ30231AI1Q3:HD$"ATCHING":210:W$M$(I):211:X28:W$M$(I):214:DMDMPQ:M$(I)W$:Z$(13)IQ3:193AZ$"N"193"B213:X28:(CM$,18);:234:P$""1930BMA$(I)P$;B:172IBQ40231BI1Q4:HD$"SSAY":210:W$E$(I):211:X240:W$E$(I):214:DEDEPQ:E$(I)W$:Z$(13)IQ4:199BZ$"N"199B213:X240:(CM$,18);:234:P$""199BEA$(I)P$C:172CQ50231CI1Q5:HD$"ULTIPLE HOICE":210:W$Q$(I,0):211:X240:W$Q$(I,0):214:DZDZPQ:Q$(I,0)W$:Z$(13)IQ5:209CZ$"N"209DJ15:"":W$Q$(I,J):160:L5:"IT Β FOR NO CHANGE.":"NTER NEW ANSWER "(64J)":":234:P$""205'DQ$(I,J)P$fD:"":W$Q$(I,6):160:L5:"IT Β FOR NO CHANGE."D"NTER NEW CORRECT ANSWER:":234:P$""209D(P$)65(P$)69206DQ$(I,6)P$D:172KEHD$;32)"ETURN TO BORT"55)"DIT QUESTIONS":(CM$,2)12)"NTER ҒEWRITE ĒELETE ՒNDELETE ΒEXT":E(W$,1)"^"28)" ** DELETED QUESTION ** ":230E(CM$,5):L5:258:160:E(CM$,16);"IT Β FOR NO CHANGE:":"EW ANSWER:": F(CM$,10)30)"NTER , , , OR ":PQ0 F12:Z$"R"2210FZ$"D"224@FZ$"U"227PFZ$(13)^FZ$"N"gF215F(CM$,12);:234:P$""F(W$,1)"^"PQPQ1:DQDQ1FW$P$:F(W$,1)"^"226G(CM$,12)32)"ALREADY DELETED!": 2:(CM$,10);V$:214TGW$"^"W$:(CM$,12)32)"QUESTION DELETED": 2:DQDQ1:PQPQ1:Z$"N":iG(W$,1)"^"229G28)"NOT A DELETED QUESTION!": 2:(CM$,10);V$:214G230:(CM$,12)27)" ** QUESTION RESTORED! ** ": 2:Z$"N":DQDQ1:PQPQ1:HW$(W$,(W$)1):XH27)"O QUESTIONS OF THIS TYPE"::"RESS SPACEBAR TO CONTINUE"lH12:Z$" "172uH232HP$"":"";(V$,X)"":(DM$,((X80).9));::Q$:Q$""Q$""Q$""Q$""Q$""Q$""Q$""Q$""Q$""243H(Q$)20241%I(Q$)13(V$,240(P$));: 1:DIZZ$Q$:Q$(34)ZZ$"^"\IQ$(27)ZZ$"_"xI(P$)XP$P$Q$:ZZ$;I243IP$""243IP$(P$,(P$)1):" ";IkJ263:(CM$,12);:36)" ! ":13)"HIS COMMAND WILL GET RID OF ALL QUESTIONS IN MEMORY.":25)"RESS SPACEBAR FOR MAIN MENU":32)" KEY TO CLEAR ALL QUESTIONS"}J12:Z$" "7JZ$"C"6J245 KA$" ":A$A$A$A$A$A$:A$A$A$A$:V$A$:CM$"":DM$"":&K15,4,15:15:ST099^K"RINTER IS OFF..AIT FOR MENU..": 5:7KPC1:Q$(TT(O),3)"*"W$"A. "Q$(TT(O),1):253KWW$Q$(TT(O),1):260:W$"A. "Q$(TT(O),1)(V$,(39SL))"C. "Q$(TT(O),3)L160:Q$(TT(O),4)"*"W$"B. "Q$(TT(O),2):255bLWW$Q$(TT(O),2):260:W$"B. "Q$(TT(O),2)(V$,(39SL))"D. "Q$(TT(O),4)rLPC0:160:L"TW]*=S",U(OX):nM160,2,169,47,162,1,32,116,255,153,248,0,200,192,6,208,241,162,1,32,198,255,32,228,255,201,13,240,23,164,253,162,251,142,185,2,162,1,32,119,255:200,132,253,196,250,240,4,165,144,240,226,76,204,255:V28162870:X%:V,X%:V:MIN(W$,(27)):IN0MW$(W$,IN1)"_"(W$,(W$)IN):258MSL(WW$)MIN(WW$,(27)):IN0NSLSL2:WW$(WW$,IN1)"_"(WW$,(WW$)IN):261N271:6,4:5,15:""(27);"R";"";:29)"":Z029)" EST RITER/128 "NZ229)" "N Z329)" "O Z429)" ")O Z529)" "RO Z729)" "{O Z829)" "O29)"":32)" ":O7