d9005Wi TF$(40),AN$(40),FL$(40),FS$(40),MA$(40),MN$(40),ES$(20),EN$(20),B(20)n AS$(100),R1(40),R2(40),TT(40),SS(40),SP(40),SQ(40),SR(20)s8005x4:1000} Z 2005,3000,3005,4000,5000,6005,8040,130 53280,2:(147);35);"" ::: " RE YOU FINISHED WITH ?"B :i "RESS PACEBAR FOR MAIN MENU" "  KEY TO QUIT PROGRAM" 180 Z$" " 120 Z$"Q" 160 Z$:Z$""180   53280,11:53281,12:646,0) (14)" 1 :L " T :v " 1. RITE QUESTIONS " 2. OAD TEST FROM DISK " 3. ERGE TEST FROM DISK " 4. AVE TEST TO DISK " 5. RINT TEST " 6. DIT9 " 7. LEAN SLATEP " 8. UITW $" )" OTAL NUMBER OF QUESTIONS.....";TQ . DQ0 1080 3" NCLUDING"DQ" DELETED QUESTION(S)" 8: =1115 B180 GZ(Z$) L Z1 Z8 1090 Q (14) V9 [" RUE-ALSE PINION.........";Q1;X ` DT0 T1DT: 1180:1130^ e j" ILL-IN....................";Q2; o DF0 T1DF:1180:1145 t y" ATCHING...................";Q3; ~ DM0 T1DM:1180:1160 ! " SSAY......................";Q4;?  DE0 T1DE:1180:1175E K t T1$(T1):"(";(T1$,2,(T1$));")": (147);"RESS SPACEBAR FOR MENU"25)" ْ" (CM$,2);"NTER Ԓ- ŒSSAY ͒ATCHING ƒILL-IN"  Z$ Z$"T" 2050:2065. Z$"F" 2050:2160H Z$"E" 2050:2220b Z$"M" 2050:2330{ Z$" " 2050:1202015 (CM$,2);(V$,80):X120Q1Q11:HDQ1:HD41HD$"RUE/ALSE-PINION":2385:20802405:Q1Q11:120  P$"" Q1Q11:2005+%TF$(Q1)P$j* (CM$,10);"IS THE ANSWER ԒRUE, ƒALSE, OR ϒPINION?"s/ Z$4 Z$"T" "TRUE":21209 Z$"F" "FALSE":2120> Z$"O" "OPINION":2120C2095H Z1$M Z1$(13)2140+R Z1$(20) (CM$,11);" ":20955W2120D\AN$(Q1)Z$PaTQTQ1bf(147):2070lpX120uQ2Q21:HDQ2: HD41 HD$"ILL-IN":2385:2175z2405:120 P$"" Q2Q21:2005FL$(Q2)P$(CM$,10);"NTER THE ANSWER."X39:7010FS$(Q2)P$4FS$(Q2)""2185@TQTQ1S (147):2160]X199Q4Q41:HDQ4: HD21 HD$"SSAY QUESTION":2385:2230 P$"" Q4Q41:2005ES$(Q4)P$"NTER THE ANSWER""(PRESS FOR"(34)"NSWERS WILL VARY"(34)")"(X199:7010l EN$(Q4)"" EN$(Q4)"ANSWERS WILL VARY":"NSWERS WILL VARY"(CM$,19);"OW MANY BLANK LINES? (1 - 30)"2285B(Q4)(Z1$): B(Q4)0 B(Q4)30(CM$,20)" ":2270TQTQ1:2220Z1$"" 180 Z$(13)2315< (Z$)48 (Z$)572290\ Z1$Z1$Z$: (Z1$)2 2320k Z$;:2290 (Z1$)1 2290  X28 Q3Q31:HDQ3:HD41HD$"ATCHING UESTIONS":2385:2345$ 2405:120) MA$(Q3)P$ . P$"" Q3Q31:2005"3 (CM$,12);"NSWER?"18 X28:7010@= MN$(Q3)P$VB MN$(Q3)""2355bG TQTQ1tL (147):2330Q HD$;25)"UESTION ENTRY"V (CM$,2);"UESTION #";HD;20);"TOTAL QUESTIONS:";TQ[ (CM$,3);:7010` HD0:e "";(CM$,12);"EACHED QUESTION LIMIT"7j "RESS SPACEBAR FOR MENU"Po Z$: Z$" " 2415Vt  "";28)" ":MQ0:M10:M20:M30:M40:3045 "";27)" ":MQTQ:M1Q1:M2Q2:M3Q3:M4Q4 D1DQ:D2DT:D3DF:D4DM:D5DE TQ0 3045 "O TEST IN MEMORY"4 "RESS SPACEBAR FOR MENU"= 180N Z$" "120X 3030l "EST NAME:"| (CM$,5); X15:7010 P$"" 120 F$P$ 15,8,15:15,"I0:":4215 1,8,3,F$",S,R":4215 1,TQ 1,DQ 1,Q1 1,DT 1,Q2! 1,DF%& 1,Q3/+ 1,DM90 1,Q4C5 1,DEy: (M1Q140)(M2Q240)(M3Q340)(M4Q420)3140? 3160D "";(CM$,12);"XCEEDED QUESTION LIMITS":1:15I "RESS ANY KEY FOR MENU"N 180S 120X IM11 M1Q1] 3260:TF$(I)(A$,LL)/b 3260:AN$(I)(A$,LL)5g Il IM21 M2Q2cq 3260:FL$(I)(A$,LL)}v 3260:FS$(I)(A$,LL){  IM31 M3Q3 3260:MA$(I)(A$,LL) 3260:MN$(I)(A$,LL)  IM41 M4Q4 3260:ES$(I)(A$,LL) 3260:EN$(I)(A$,LL)# 1,B(I)) Z TQTQMQ:Q1Q1M1:Q2Q2M2:Q3Q3M3:Q4Q4M4 DQD1DQ:DTD2DT:DFD3DF:DMD4DM:DED5DE 1:15:120 896:LL(142) "";28)" " TQ04035"O QUESTIONS TO SAVE!"RESS SPACEBAR FOR MENU""1804 Z$ " "120>4020R"EST NAME:"b (CM$,5);qX15:7010 P$"" 120F$P$15,8,15:15,"I0:":4215 1,8,3,F$",S,W":42151,TQ1,DQ1,Q11,DT1,Q21,DF 1,Q3 1,DM1,Q4)1,DE8 I1 Q1F1,TF$(I)T"1,AN$(I)Z'i, I1 Q2w11,FL$(I)61,FS$(I);@ I1 Q3E1,MA$(I)J1,MN$(I)OT I1 Q4Y1,ES$(I)^1,EN$(I)c1,B(I)hm1:1:15r120/w15,EN,EM$,ET,ES: EN0 Q|53280,2:" : ";EM$o"RESS ANY KEY FOR MENU"x1801:15:120(147);30);" "4,4,7:PP64:L0 (CM$,3);"UMBER OF QUESTION AVAILABLE:";TQ (CM$,5);1115 TQDQ0 5050K:"O QUESTIONS IN MEMORY OR ALL DELETED"o"RESS SPACEBAR FOR MAIN MENU"x180 Z$" "1205035DQ0 5075:"! ONLY";TQDQ;"QUESTIONS WILL BE""PRINTED. F YOU NEED MORE, RETURN TO"."MENU. HEN PRESS 1 TO WRITE MORE"`"QESTIONS OR 7 TO UNDELETE EXISTING ONES."x:"HECK PRINTER.""UT PRINTHEAD JUST BELOW PERFORATIONS":"RESS SPACEBAR FOR MAIN MENU.""  KEY TO START PRINTING"180 Z$" " 120# Z$"P" 5115-5095S(147);(CM$,8);"ITLE OF TEST:"mX60:(CM$,9);:7010~ P$""5120 TL$P$(147);(CM$,10);" "4," ":4," ":4,(64(TL$))2)TL$:LL3 4," ":4,"AME........................"- 4,"ATE...................."P #4,"ERIOD......":4," ":LL5j (::"SORTING...":N0~ - Q3DM0 5275 24,": RITE THE LETTER OF THE BEST ANSWER.": 74," ":4," ":LL3 <WQ3:5575 AO1 F Q1 Q3!KSS(O)TT(O)!P(MA$(Q),1)"^"5235*!UGN65M!ZW$MA$(Q)(V$,(29(MA$(Q))))!_ N26 W$W$" "(G)". "MN$(SS(O)):5225!dGG26:W$W$(G)(G)". "MN$(SS(O))!iOO1!n5565:SP7:4,"....";N$;:5625!s!x DM05275!} Q1 Q3 "SS(O)TT(O))" (MA$(Q),1)"^" 5270W"W$(V$,30)(N65)". "MN$(SS(O)):OO1u"SP7:4," ";:5625{"" Q1DT0 5330"4," AND : RITE ,, OR FOR EACH QUESTION.""4," ":4," ":LL3"WQ1:5575#O1# Q1 Q1!#SP(O)TT(O)?#(TF$(SP(O)),1)"^"5325p#W$TF$(SP(O)):5565:SP8:4,"....";N$;:5625#AS$(N)N$" "AN$(SP(O))#OO1:# Q2DF0 5385#4,"-: RITE THE ANSWER IN THE SPACE PROVIDED."$4," ":4," ":LL3$WQ2:5575$O1&$ Q1 Q26$SQ(O)TT(O)T$(FL$(SQ(O)),1)"^"5380$W$FL$(SQ(O)):5565:SP7:4," "N;:5625$AS$(N)N$" "FS$(SQ(O))$OO1:$  Q4DE0 5445$4,": NSWER EACH QUESTION COMPLETELY." %4," ":4," ":LL3%WQ4:5575 %O1/%" Q1 Q4?%'SR(O)TT(O)]%,(ES$(SR(O)),1)"^"5440%1W$ES$(SR(O)):5565:SP4:4,N;:5625%6 K1 B(SR(O)):5715:4,".";62);".":4," ":%;AS$(N)N$" "EN$(SR(O))%@OO1:%E5740#&J(147);(CM$,14);"PRESS  KEY FOR ANSWER KEY"I&O" SPACEBAR FOR MAIN MENU"R&T180d&Y Z$" " 120w&^ Z$"A" 5480&c5460&h Q30 5540&mK1:G0&rI1Q3:K$(K):K$(K$,2,(K$))&wJ1&| (MA$(I),1)"^" 5535& JQ3 5535 ' ISS(J) 5530&'GJ64: J27 5525['4,K$". "(G)" "MN$(I):KK1:4," ":5535'GG26:4,K$". "(G)(G)" "MN$(I):KK1:5535'JJ1:5505'I'I(Q3DM) N'4,AS$(I):4," "''4'120(NN1:N10 N$(N):N$" "(N$,2,(N$))". ":C(N$(N):N$(N$,2,(N$))". ":h( I1W:R1(I)(0):R2(I)R1(I):y(IW11 1( T1 I( R1(T)R1(T1) TER1(T):R1(T)R1(T1):R1(T1)TE(:(I1W(J1W)R2(I)R1(J) TT(I)J:R1(J)1):))FL06) FL0 (W$)PP 5640@)5645r)4,(V$,SP)W$:4," ":LL2:5715:W$"":5710)  (W$)PP 4,W$:4," ":LL2:5715:W$"":5710) JPP 1 1) (W$,J,1)" " 5690)FLFL1)! FL15680*& FL1 B$(A$,SP)(W$,J):J1<*+W$(W$,(B$)(SP),(W$)):5695O*0B$(W$,J):J1p*5W$(W$,(B$)1,(W$)):5695x*: J*?4,B$*DLL1*I (W$)0 5630*N*SL58 *X (147);(CM$,14);"RESS SPACE BAR TO CONTINUE PRINTING"*]180+b Z$" "5740+g57255+l I66 L 1:4," ":Q+qI1 4:4," "::L4:X+u4+z(147);"PRESS SPACEBAR FOR MENU"25)" Ӓ"+4,3:PP38+(CM$,2);"NTER Ԓ- ŒSSAY ͒ATCHING ƒILL-IN"+ Z$, Z$"T" 2050:6060!, Z$"F" 2050:6140;, Z$"E" 2050:6310U, Z$"M" 2050:6220n, Z$" " 2050:120x,6025, Q10 6550, I1 Q1,HD$"RUE/ALSE-PINION":6390,W$TF$(I),6405,X120:W$TF$(I):6425:DTDTPQ-TF$(I)W$-Z$(13)6005+-Z$"N" 6125Z-(CM$,20);"HE ANSWER IS NOW , , OR ?"c-180-(Z$"T")(Z$"F")(Z$"O") Z$:AN$(I)Z$:6125-6110- (147)--6005- Q20 6550- I1 Q2-HD$"ILL-IN":6390 . W$FL$(I).64056.X120:W$FL$(I):6425:DFDFPQD.FL$(I)W$Y. Z$(13) 6005k.$Z$"N" 6205u.)6420..X39:(CM$,18);:7010.3 P$"" 6190.8FS$(I)P$.= (147).B.G6005.L Q30 6550.Q I1 Q3.VF21/[HD$"ATCHING":6390 /`W$MA$(I)*/e6405L/jX28:W$MA$(I):6425:DMDMPQZ/oMA$(I)W$o/t Z$(13) 6005/yZ$"N" 6290/~6420/X28:(CM$,18);:7010/ P$"" 6275/MN$(I)P$/ (147)//F20/6005/ Q40 6550 0 I1 Q4%0HD$"SSAY":639030W$ES$(I)=06405`0X199:W$ES$(I):6425:DEDEPQn0ES$(I)W$0 Z$(13) 60050Z$"N" 6375064200X78:(CM$,18);:70100 P$"" 63600EN$(I)P$0 (147)0060051HD$;25)"DIT QUESTIONS"W1 (CM$,2);"NTER ҒEWRITE ĒELETE ՒNDELETE ΒEXT"]11 (W$,1)"^" " ** DELETED QUESTION ** ":65451  (CM$,5):L0:562511(CM$,17);"EW ANSWER:":1(CM$,10);"NTER , , , OR ":PQ021802# Z$"R" 6465,2( Z$"D" 6480?2- Z$"U" 6510Q22 Z$(13) b27 Z$"N" l2<64302A(CM$,12);:70102FP$""2H (W$,1)"^" PQPQ1:DQDQ12KW$P$:2P (W$,1)"^" 6495 3U (CM$,12);"ALREADY DELETED!": WT1 500:%3Z (CM$,10);V$:6425S3_W$"^"W$:(CM$,12);"QUESTION DELETED"s3dWT1500::DQDQ1:PQPQ13iZ$"N":3n (W$,1)"^" 65303s"NOT A DELETED QUESTION!"3x WT1500:3} (CM$,10);V$:642546545: (CM$,12);" ** QUESTION RESTORED! ** "A4WT1 500::Z$"N":DQDQ1:PQPQ1G4^4W$(W$,(W$)1):4"O QUESTIONS OF THIS TYPE"4:"RESS SPACEBAR TO CONTINUE"41804 Z$" " 6005465604b198,04gP$""4l"";5qQ$:Q$""702555vQ$""Q$""Q$""Q$""Q$""Q$""7025W5{Q$""Q$""(Q$)1417025j5(Q$)137075}5(Q$)2070605(P$)X70255P$P$Q$:Q$"";:70255P$""70255P$(P$,(P$)1):" ";:P$""7020570255" ":6EJ896 933:X:J,X:<6J160,2,177,45,153,137,0,200,192,6Z6O208,246,162,1,32,198,2556T32,228,255,201,13,240,11,164,142,1456Y140,200,132,142,196,139,208,238,76,204,2556^6h53280,2:(147);28)" "6m(CM$,12);7r16)"!27w:"HIS COMMAND WILL GET RID OF ALL"N7|"QUESTIONS IN MEMORY."w7:"RESS SPACEBAR FOR MAIN MENU"7"  KEY TO CLEAR ALL QUESTIONS71807 Z$" " 1207 Z$"C" 9035:120780757-#A$" "82#A$A$A$A$A$A$#87#A$A$A$A$-8<#V$A$Q8A#CM$""n8K#TQ0:Q10:Q20:Q30:Q408P#DQ0:DT0:DF0:DM0:DE08U#MQ0:M10:M20:M30:M408Z#D10:D20:D30:D40:D508_#