home *** CD-ROM | disk | FTP | other *** search
Wrap
100 GOSUB9005 105 DIM TF$(40),AN$(40),FL$(40),FS$(40),MA$(40),MN$(40),ES$(20),EN$(20),B(20) 110 DIM AS$(100),R1(40),R2(40),TT(40),SS(40),SP(40),SQ(40),SR(20) 115 GOSUB8005 120 CLOSE4:GOSUB1000 125 ON Z GOTO2005,3000,3005,4000,5000,6005,8040,130 130 POKE53280,2:PRINTCHR$(147);TAB(35);"[209][213][201][212]" 135 PRINT:PRINT:PRINT 140 PRINT" [193]RE YOU FINISHED WITH [212][197][211][212] [215][210][201][212][197][210]?[144]" 145 PRINT:PRINT 150 PRINT"[208]RESS [211]PACEBAR[146] FOR MAIN MENU" 155 PRINT" [209] KEY[146] TO QUIT PROGRAM" 160 GOSUB180 165 IF Z$=" " THEN120 170 IF Z$="Q" THEN END 175 GOTO160 180 GETZ$:IFZ$=""THEN180 185 RETURN 190 END 1000 POKE 53280,11:POKE53281,12:POKE646,0 1002 PRINTCHR$(14)"[147] [212][197][211][212] [215][210][201][212][197][210] 1005 [153]:[153] 1010 [153]" (null)VAL(null)(null) 1015 PRINT:PRINT 1020 PRINT" 1. [215]RITE QUESTIONS 1025 [153]" 2. (null)OAD TEST FROM DISK 1030 PRINT" 3. [205]ERGE TEST FROM DISK 1035 [153]" 4. (null)AVE TEST TO DISK 1040 PRINT" 5. [208]RINT TEST 1045 [153]" 6. VALDIT 1050 PRINT" 7. [195]LEAN SLATE 1055 [153]" 8. (null)UIT 1060 PRINT" 1065 [153]" (null)OTAL NUMBER OF QUESTIONS.....";TQ 1070 [139] DQ[178]0 [167]1080 1075 [153]" RIGHT$NCLUDING"DQ"CMD DELETED QUESTION(S)WAIT" 1080 [153]:[153] 1085 [141]1115 1090 [141]180 1095 Z[178][197](Z$) 1100 [139] Z[179]1 [176] Z[177]8 [167]1090 1105 [153] [199](14) 1110 [142] 1115 [153]" (null)RUE-ASCALSE (null)PINION.........";Q1; 1120 [139] DT[177]0[167] T1[178]DT:[141] 1180:[137]1130 1125 [153] 1130 [153]" ASCILL-IN....................";Q2; 1135 [139] DF[177]0[167] T1[178]DF:[141]1180:[137]1145 1140 [153] 1145 [153]" (null)ATCHING...................";Q3; 1150 [139] DM[177]0[167] T1[178]DM:[141]1180:[137]1160 1155 [153] 1160 [153]" VALSSAY......................";Q4; 1165 [139] DE[177]0[167] T1[178]DE:[141]1180:[137]1175 1170 [153] 1175 [142] 1180 T1$[178][196](T1):[153]"(";[202](T1$,2,[195](T1$));")":[142] 2005 [153][199](147);"(null)RESS SPACEBAR FOR MENU"[163]25)"(null)(null)VAL(null)(null)RIGHT$(null)(null) VAL(null)(null)(null)(null)WAIT" 2010 [153][200](CM$,2);"VALNTER (null)WAIT-ASC VALWAITSSAY (null)WAITATCHING ASCWAITILL-IN" 2015 [161] Z$ 2020 [139] Z$[178]"T"[167] [141]2050:[137]2065 2025 [139] Z$[178]"F"[167] [141]2050:[137]2160 2030 [139] Z$[178]"E"[167] [141]2050:[137]2220 2035 [139] Z$[178]"M"[167] [141]2050:[137]2330 2040 [139] Z$[178]" "[167] [141]2050:[137]120 2045 [137]2015 2050 [153] [200](CM$,2);[200](V$,80):[142] 2065 X[178]120 2070 Q1[178]Q1[170]1:HD[178]Q1:[139]HD[179]41[167]HD$[178]"LOAD(null)RUE/ASCALSE-(null)PINION":[141]2385:[137]2080 2075 [141]2405:Q1[178]Q1[171]1:[137]120 2080 [139] P$[178]"" [167] Q1[178]Q1[171]1:[137]2005 2085 TF$(Q1)[178]P$ 2090 [153] [200](CM$,10);"IS THE ANSWER (null)WAITRUE, ASCWAITALSE, OR (null)WAITPINION?" 2095 [161] Z$ 2100 [139] Z$[178]"T" [167] [153]"TRUEWAIT":[137]2120 2105 [139] Z$[178]"F" [167] [153]"FALSEWAIT":[137]2120 2110 [139] Z$[178]"O" [167] [153]"OPINIONWAIT":[137]2120 2115 [137]2095 2120 [161] Z1$ 2125 [139] Z1$[178][199](13)[167]2140 2130 [139] Z1$[178][199](20)[167] [153] [200](CM$,11);" ON":[137]2095 2135 [137]2120 2140 AN$(Q1)[178]Z$ 2145 TQ[178]TQ[170]1 2150 [153][199](147):[137]2070 2160 X[178]120 2165 Q2[178]Q2[170]1:HD[178]Q2:[139] HD[179]41[167] HD$[178]"LOADASCILL-IN":[141]2385:[137]2175 2170 [141]2405:[137]120 2175 [139] P$[178]""[167] Q2[178]Q2[171]1:[137]2005 2180 FL$(Q2)[178]P$ 2185 [153][200](CM$,10);"VALNTER THE ANSWER.WAIT" 2190 X[178]39:[141]7010 2195 FS$(Q2)[178]P$ 2200 [139]FS$(Q2)[178]""[167]2185 2205 TQ[178]TQ[170]1 2210 [153] [199](147):[137]2160 2220 X[178]199 2225 Q4[178]Q4[170]1:HD[178]Q4:[139] HD[179]21 [167] HD$[178]"LOADVALSSAY QUESTION":[141]2385:[137]2230 2230 [139] P$[178]""[167] Q4[178]Q4[171]1:[137]2005 2235 ES$(Q4)[178]P$ 2240 [153]"VALNTER THE ANSWER" 2245 [153]"(PRESS (null)VAL(null)(null)(null)(null) FOR"[199](34)"ATNNSWERS WILL VARY"[199](34)")" 2250 X[178]199:[141]7010 2260 [139] EN$(Q4)[178]"" [167] EN$(Q4)[178]"ANSWERS WILL VARY":[153]"ATNNSWERS WILL VARY" 2265 [153][200](CM$,19);"LEFT$OW MANY BLANK LINES? (1 - 30)" 2270 [141]2285 2275 B(Q4)[178][197](Z1$):[139] B(Q4)[179]0 [176] B(Q4)[177]30[167][153][200](CM$,20)" ON":[137]2270 2280 TQ[178]TQ[170]1:[137]2220 2285 Z1$[178]"" 2290 [141]180 2295 [139] Z$[178][199](13)[167]2315 2300 [139] [198](Z$)[179]48 [176] [198](Z$)[177]57[167]2290 2305 Z1$[178]Z1$[170]Z$:[139] [195](Z1$)[177]2 [167]2320 2310 [153]Z$;:[137]2290 2315 [139] [195](Z1$)[179]1 [167]2290 2320 [142] 2330 X[178]28 2335 Q3[178]Q3[170]1:HD[178]Q3:[139]HD[179]41[167]HD$[178]"LOAD(null)ATCHING (null)UESTIONS":[141]2385:[137]2345 2340 [141]2405:[137]120 2345 MA$(Q3)[178]P$ 2350 [139] P$[178]"" [167] Q3[178]Q3[171]1:[137]2005 2355 [153][200](CM$,12);"ATNNSWER?" 2360 X[178]28:[141]7010 2365 MN$(Q3)[178]P$ 2370 [139] MN$(Q3)[178]""[167]2355 2375 TQ[178]TQ[170]1 2380 [153][199](147):[137]2330 2385 [153]HD$;[163]25)"(null)UESTION ENTRY" 2390 [153][200](CM$,2);"(null)UESTION #";HD;[163]20);"TOTAL QUESTIONS:";TQ 2395 [153] [200](CM$,3);:[141]7010 2400 HD[178]0:[142] 2405 [153]"LOAD";[200](CM$,12);"(null)EACHED QUESTION LIMIT" 2410 [153]"(null)RESS SPACEBAR FOR MENU" 2415 [161] Z$:[139] Z$[179][177]" " [167]2415 2420 [142] 3000 [153] "LOAD";[163]28)"(null)(null)ATNSTR$ (null)VAL(null)(null)":MQ[178]0:M1[178]0:M2[178]0:M3[178]0:M4[178]0:[137]3045 3005 [153]"LOAD";[163]27)"(null)VAL(null)CHR$VAL (null)VAL(null)(null)":MQ[178]TQ:M1[178]Q1:M2[178]Q2:M3[178]Q3:M4[178]Q4 3010 D1[178]DQ:D2[178]DT:D3[178]DF:D4[178]DM:D5[178]DE 3015 [139] TQ[177]0 [167]3045 3020 [153]"(null)O TEST IN MEMORY" 3025 [153]"(null)RESS SPACEBAR FOR MENU" 3030 [141]180 3035 [139] Z$[178]" "[167]120 3040 [137]3030 3045 [153]"(null)EST NAME:" 3050 [153] [200](CM$,5); 3055 X[178]15:[141]7010 3060 [139] P$[178]"" [167]120 3065 F$[178]P$ 3070 [159]15,8,15:[152]15,"I0:":[141]4215 3075 [159] 1,8,3,F$[170]",S,R":[141]4215 3080 [132]1,TQ 3085 [132]1,DQ 3090 [132]1,Q1 3095 [132]1,DT 3100 [132]1,Q2 3105 [132]1,DF 3110 [132]1,Q3 3115 [132]1,DM 3120 [132]1,Q4 3125 [132]1,DE 3130 [139](M1[170]Q1[177]40)[176](M2[170]Q2[177]40)[176](M3[170]Q3[177]40)[176](M4[170]Q4[177]20)[167]3140 3135 [137]3160 3140 [153]"LOAD";[200](CM$,12);"VALXCEEDED QUESTION LIMITS":[160]1:[160]15 3145 [153]"(null)RESS ANY KEY FOR MENU" 3150 [141]180 3155 [137]120 3160 [129]I[178]M1[170]1[164] M1[170]Q1 3165 [141]3260:TF$(I)[178][200](A$,LL) 3170 [141]3260:AN$(I)[178][200](A$,LL) 3175 [130] 3180 [129] I[178]M2[170]1[164] M2[170]Q2 3185 [141]3260:FL$(I)[178][200](A$,LL) 3190 [141]3260:FS$(I)[178][200](A$,LL) 3195 [130] 3200 [129]I[178]M3[170]1[164] M3[170]Q3 3205 [141]3260:MA$(I)[178][200](A$,LL) 3210 [141]3260:MN$(I)[178][200](A$,LL) 3215 [130] 3220 [129]I[178]M4[170]1[164] M4[170]Q4 3225 [141]3260:ES$(I)[178][200](A$,LL) 3230 [141]3260:EN$(I)[178][200](A$,LL) 3235 [132]1,B(I) 3240 [130] 3245 TQ[178]TQ[170]MQ:Q1[178]Q1[170]M1:Q2[178]Q2[170]M2:Q3[178]Q3[170]M3:Q4[178]Q4[170]M4 3250 DQ[178]D1[170]DQ:DT[178]D2[170]DT:DF[178]D3[170]DF:DM[178]D4[170]DM:DE[178]D5[170]DE 3255 [160]1:[160]15:[137]120 3260 [158]896:LL[178][194](142) 3265 [142] 4000 [153]"LOAD";[163]28)"(null)ATN(null)VAL (null)VAL(null)(null)" 4005 [139] TQ[177]0[167]4035 4010 [153]"(null)O QUESTIONS TO SAVE! 4015 PRINT"[208]RESS SPACEBAR FOR MENU" 4020 GOSUB180 4025 IF Z$= " "THEN120 4030 GOTO4020 4035 PRINT"[212]EST NAME:" 4040 PRINT LEFT$(CM$,5); 4045 X=15:GOSUB7010 4050 IF P$="" THEN120 4055 F$=P$ 4060 OPEN15,8,15:PRINT#15,"I0:":GOSUB4215 4065 OPEN 1,8,3,F$+",S,W":GOSUB4215 4070 PRINT#1,TQ 4075 PRINT#1,DQ 4080 PRINT#1,Q1 4085 PRINT#1,DT 4090 PRINT#1,Q2 4095 PRINT#1,DF 4100 PRINT#1,Q3 4105 PRINT#1,DM 4110 PRINT#1,Q4 4115 PRINT#1,DE 4120 FOR I=1 TO Q1 4125 PRINT#1,TF$(I) 4130 PRINT#1,AN$(I) 4135 NEXT 4140 FOR I=1 TO Q2 4145 PRINT#1,FL$(I) 4150 PRINT#1,FS$(I) 4155 NEXT 4160 FOR I=1 TO Q3 4165 PRINT#1,MA$(I) 4170 PRINT#1,MN$(I) 4175 NEXT 4180 FOR I=1 TO Q4 4185 PRINT#1,ES$(I) 4190 PRINT#1,EN$(I) 4195 PRINT#1,B(I) 4200 NEXT 4205 PRINT#1:CLOSE1:CLOSE15 4210 GOTO120 4215 INPUT#15,EN,EM$,ET,ES:IF EN=0THEN RETURN 4220 POKE53280,2:PRINT"[196][201][211][203] [197][210][210][207][210]: ";EM$ 4225 PRINT"[208]RESS ANY KEY FOR MENU" 4230 GOSUB180 4235 CLOSE1:CLOSE15:GOTO120 5000 PRINTCHR$(147);TAB(30);"[208][210][201][206][212] [212][197][211][212]" 5005 OPEN4,4,7:PP=64:L=0 5010 PRINT LEFT$(CM$,3);"[206]UMBER OF QUESTION AVAILABLE:";TQ 5015 PRINT LEFT$(CM$,5); 5020 GOSUB1115 5025 IF TQ-DQ>0 THEN5050 5030 PRINT:PRINT"[206]O QUESTIONS IN MEMORY OR ALL DELETED" 5033 PRINT"[208]RESS SPACEBAR FOR MAIN MENU" 5035 GOSUB180 5040 IF Z$=" "THEN120 5045 GOTO5035 5050 IFDQ=0 THEN5075 5055 PRINT:PRINT"[206][207][212][201][195][197]![146] ONLY";TQ-DQ;"[146]QUESTIONS WILL BE" 5060 PRINT"PRINTED. [201]F YOU NEED MORE, RETURN TO" 5065 PRINT"MENU. [212]HEN PRESS 1[146] TO WRITE MORE" 5070 PRINT"QESTIONS OR 7[146] TO UNDELETE EXISTING ONES." 5075 PRINT:PRINT"[195]HECK PRINTER." 5080 PRINT"[208]UT PRINTHEAD JUST BELOW PERFORATIONS":PRINT 5085 PRINT"[208]RESS SPACEBAR[146] FOR MAIN MENU." 5090 PRINT" [208] KEY[146] TO START PRINTING" 5095 GOSUB180 5100 IF Z$=" " THEN120 5105 IF Z$="P" THEN5115 5110 GOTO5095 5115 PRINTCHR$(147);LEFT$(CM$,8);"[212]ITLE OF TEST:" 5120 X=60:PRINTLEFT$(CM$,9);:GOSUB7010 5125 IF P$=""THEN5120 5130 TL$=P$ 5135 PRINTCHR$(147);LEFT$(CM$,10);"[208][210][197][208][193][210][201][206][199] [212][197][211][212]" 5140 PRINT#4," ":PRINT#4," ":PRINT#4,SPC((64-LEN(TL$))/2)TL$:L=L+3 5145 PRINT#4," ":PRINT#4,"[206]AME........................" 5150 PRINT#4,"[196]ATE...................." 5155 PRINT#4,"[208]ERIOD......":PRINT#4," ":L=L+5 5160 PRINT:PRINT:PRINT"SORTING...":N=0 5165 IF Q3-DM=0 THEN5275 5170 PRINT#4,"[205][193][212][195][200][201][206][199]: [215]RITE THE LETTER OF THE BEST ANSWER.": 5175 PRINT#4," ":PRINT#4," ":L=L+3 5180 W=Q3:GOSUB5575 5185 O=1 5190 FOR Q=1 TO Q3 5195 SS(O)=TT(O) 5200 IFLEFT$(MA$(Q),1)="^"THEN5235 5205 G=N+65 5210 W$=MA$(Q)+RIGHT$(V$,(29-LEN(MA$(Q)))) 5215 IF N<26 THEN W$=W$+" "+CHR$(G)+". "+MN$(SS(O)):GOTO5225 5220 G=G-26:W$=W$+CHR$(G)+CHR$(G)+". "+MN$(SS(O)) 5225 O=O+1 5230 GOSUB5565:SP=7:PRINT#4,"....";N$;:GOSUB5625 5235 NEXT 5240 IF DM=0THEN5275 5245 FOR Q=1 TO Q3 5250 SS(O)=TT(O) 5255 IF LEFT$(MA$(Q),1)<>"^" THEN5270 5260 W$=RIGHT$(V$,30)+CHR$(N+65)+". "+MN$(SS(O)):O=O+1 5265 SP=7:PRINT#4," ";:GOSUB5625 5270 NEXT 5275 IF Q1-DT=0 THEN5330 5280 PRINT#4,"[212][210][213][197] [198][193][204][211][197] AND [207][208][201][206][201][207][206]: [215]RITE [212],[198], OR [207] FOR EACH QUESTION." 5285 PRINT#4," ":PRINT#4," ":L=L+3 5290 W=Q1:GOSUB5575 5295 O=1 5300 FOR Q=1 TO Q1 5305 SP(O)=TT(O) 5310 IFLEFT$(TF$(SP(O)),1)="^"THEN5325 5315 W$=TF$(SP(O)):GOSUB5565:SP=8:PRINT#4,"....";N$;:GOSUB5625 5320 AS$(N)=N$+" "+AN$(SP(O)) 5325 O=O+1:NEXT 5330 IF Q2-DF=0 THEN5385 5335 PRINT#4,"[198][201][204][204]-[201][206]: [215]RITE THE ANSWER IN THE SPACE PROVIDED." 5340 PRINT#4," ":PRINT#4," ":L=L+3 5345 W=Q2:GOSUB5575 5350 O=1 5355 FOR Q=1 TO Q2 5360 SQ(O)=TT(O) 5365 IFLEFT$(FL$(SQ(O)),1)="^"THEN5380 5370 W$=FL$(SQ(O)):GOSUB5565:SP=7:PRINT#4," "N;:GOSUB5625 5375 AS$(N)=N$+" "+FS$(SQ(O)) 5380 O=O+1:NEXT 5385 IF Q4-DE=0 THEN5445 5390 PRINT#4,"[197][211][211][193][217]: [193]NSWER EACH QUESTION COMPLETELY." 5395 PRINT#4," ":PRINT#4," ":L=L+3 5400 W=Q4:GOSUB5575 5405 O=1 5410 FOR Q=1 TO Q4 5415 SR(O)=TT(O) 5420 IFLEFT$(ES$(SR(O)),1)="^"THEN5440 5425 W$=ES$(SR(O)):GOSUB5565:SP=4:PRINT#4,N;:GOSUB5625 5430 FOR K=1 TO B(SR(O)):GOSUB5715:PRINT#4,".";SPC(62);".":PRINT#4," ":NEXT 5435 AS$(N)=N$+" "+EN$(SR(O)) 5440 O=O+1:NEXT 5445 GOSUB5740 5450 PRINTCHR$(147);LEFT$(CM$,14);"PRESS [193] KEY[146] FOR ANSWER KEY" 5455 PRINT" SPACEBAR[146] FOR MAIN MENU" 5460 GOSUB180 5465 IF Z$=" " THEN120 5470 IF Z$="A" THEN5480 5475 GOTO5460 5480 IF Q3=0 THEN5540 5485 K=1:G=0 5490 FORI=1TOQ3:K$=STR$(K):K$=MID$(K$,2,LEN(K$)) 5495 J=1 5500 IF LEFT$(MA$(I),1)="^" THEN5535 5505 IF J>Q3 THEN5535 5510 IF I<>SS(J) THEN5530 5515 G=J+64:IF J>=27 THEN5525 5520 PRINT#4,K$+". "+CHR$(G)+" "+MN$(I):K=K+1:PRINT#4," ":GOTO5535 5525 G=G-26:PRINT#4,K$+". "+CHR$(G)+CHR$(G)+" "+MN$(I):K=K+1:GOTO5535 5530 J=J+1:GOTO5505 5535 NEXTI 5540 FORI=(Q3-DM) TO N 5545 PRINT#4,AS$(I):PRINT#4," " 5550 NEXT 5555 CLOSE4 5560 GOTO120 5565 N=N+1:IFN<10THEN N$=STR$(N):N$=" "+MID$(N$,2,LEN(N$))+". ":RETURN 5570 N$=STR$(N):N$=MID$(N$,2,LEN(N$))+". ":RETURN 5575 FOR I=1TOW:R1(I)=RND(0):R2(I)=R1(I):NEXT 5580 FORI=W-1TO1 STEP-1 5585 FOR T=1 TO I 5590 IF R1(T)>R1(T+1) THEN TE=R1(T):R1(T)=R1(T+1):R1(T+1)=TE 5595 NEXT:NEXT 5600 FORI=1TOW 5605 FORJ=1TOW 5610 IFR2(I)=R1(J) THEN TT(I)=J:R1(J)=1 5615 NEXT:NEXT 5620 RETURN 5625 FL=0 5630 IF FL>0 THEN IF LEN(W$)<=PP THEN5640 5635 GOTO5645 5640 PRINT#4,LEFT$(V$,SP)+W$:PRINT#4," ":L=L+2:GOSUB5715:W$="":GOTO5710 5645 IF LEN(W$)<=PP THEN PRINT#4,W$:PRINT#4," ":L=L+2:GOSUB5715:W$="":GOTO5710 5650 FOR J=PPTO 1 STEP -1 5655 IF MID$(W$,J,1)<>" " THEN5690 5660 FL=FL+1 5665 IF FL=1THEN5680 5670 IF FL>1 THEN B$=RIGHT$(A$,SP)+LEFT$(W$,J):J=1 5675 W$=MID$(W$,LEN(B$)-(SP),LEN(W$)):GOTO5695 5680 B$=LEFT$(W$,J):J=1 5685 W$=MID$(W$,LEN(B$)+1,LEN(W$)):GOTO5695 5690 NEXT J 5695 PRINT#4,B$ 5700 L=L+1 5705 IF LEN(W$)>0 THEN5630 5710 RETURN 5715 IFL<58 THEN RETURN 5720 PRINT CHR$(147);LEFT$(CM$,14);"[208]RESS SPACE BAR TO CONTINUE PRINTING[146]" 5725 GOSUB180 5730 IF Z$=" "THEN5740 5735 GOTO5725 5740 FOR I=66 TO L STEP-1:PRINT#4," ":NEXT 5745 FORI=1 TO 4:PRINT#4," ":NEXT:L=4:RETURN 6005 CLOSE4 6010 PRINTCHR$(147);"PRESS SPACEBAR FOR MENU"TAB(25)"[197][196][201][212] [209][213][197][211][212][201][207][206][211][146]" 6015 OPEN4,3:PP=38 6020 PRINTLEFT$(CM$,2);"[197]NTER [212][146]-[198] [197][146]SSAY [205][146]ATCHING [198][146]ILL-IN" 6025 GET Z$ 6030 IF Z$="T"THEN GOSUB2050:GOTO6060 6035 IF Z$="F"THEN GOSUB2050:GOTO6140 6040 IF Z$="E"THEN GOSUB2050:GOTO6310 6045 IF Z$="M"THEN GOSUB2050:GOTO6220 6050 IF Z$=" "THEN GOSUB2050:GOTO120 6055 GOTO6025 6060 IF Q1=0 THEN6550 6065 FOR I=1 TO Q1 6070 HD$="[147][212]RUE/[198]ALSE-[207]PINION":GOSUB6390 6075 W$=TF$(I) 6080 GOSUB6405 6085 X=120:W$=TF$(I):GOSUB6425:DT=DT+PQ 6090 TF$(I)=W$ 6095 IFZ$=CHR$(13)THEN6005 6100 IFZ$="N" THEN6125 6105 PRINTLEFT$(CM$,20);"[212]HE ANSWER IS NOW [212], [198], OR [207]?" 6110 GOSUB180 6115 IF(Z$="T")OR(Z$="F")OR(Z$="O")THEN PRINT Z$:AN$(I)=Z$:GOTO6125 6120 GOTO6110 6125 PRINT CHR$(147) 6130 NEXT 6135 GOTO6005 6140 IF Q2=0 THEN6550 6145 FOR I=1 TO Q2 6150 HD$="[147][198]ILL-IN[146]":GOSUB6390 6155 W$=FL$(I) 6160 GOSUB6405 6165 X=120:W$=FL$(I):GOSUB6425:DF=DF+PQ 6170 FL$(I)=W$ 6175 IF Z$=CHR$(13) THEN6005 6180 IFZ$="N" THEN6205 6185 GOSUB6420 6190 X=39:PRINTLEFT$(CM$,18);:GOSUB7010 6195 IF P$="" THEN6190 6200 FS$(I)=P$ 6205 PRINT CHR$(147) 6210 NEXT 6215 GOTO6005 6220 IF Q3=0 THEN6550 6225 FOR I=1 TO Q3 6230 F2=1 6235 HD$="[147][205]ATCHING[146]":GOSUB6390 6240 W$=MA$(I) 6245 GOSUB6405 6250 X=28:W$=MA$(I):GOSUB6425:DM=DM+PQ 6255 MA$(I)=W$ 6260 IF Z$=CHR$(13) THEN6005 6265 IFZ$="N" THEN6290 6270 GOSUB6420 6275 X=28:PRINTLEFT$(CM$,18);:GOSUB7010 6280 IF P$="" THEN6275 6285 MN$(I)=P$ 6290 PRINT CHR$(147) 6295 NEXT 6300 F2=0 6305 GOTO6005 6310 IF Q4=0 THEN6550 6315 FOR I=1 TO Q4 6320 HD$="[147][197]SSAY[146]":GOSUB6390 6325 W$=ES$(I) 6330 GOSUB6405 6335 X=199:W$=ES$(I):GOSUB6425:DE=DE+PQ 6340 ES$(I)=W$ 6345 IF Z$=CHR$(13) THEN6005 6350 IFZ$="N" THEN6375 6355 GOSUB6420 6360 X=78:PRINTLEFT$(CM$,18);:GOSUB7010 6365 IF P$="" THEN6360 6370 EN$(I)=P$ 6375 PRINT CHR$(147) 6380 NEXT 6385 GOTO6005 6390 PRINTHD$;TAB(25)"[197]DIT QUESTIONS" 6395 PRINT LEFT$(CM$,2);"[197]NTER [210][146]EWRITE [196][146]ELETE [213][146]NDELETE [206][146]EXT" 6400 RETURN 6405 IF LEFT$(W$,1)="^" THEN PRINT" ** DELETED QUESTION ** [146]":GOSUB6545 6410 PRINT LEFT$(CM$,5):L=0:GOSUB5625 6415 RETURN 6420 PRINTLEFT$(CM$,17);"[206]EW ANSWER:":RETURN 6425 PRINTLEFT$(CM$,10);"[197]NTER [210], [196], [213], OR [206]":PQ=0 6430 GOSUB180 6435 IF Z$="R" THEN6465 6440 IF Z$="D" THEN6480 6445 IF Z$="U" THEN6510 6450 IF Z$=CHR$(13)THEN RETURN 6455 IF Z$="N" THEN RETURN 6460 GOTO6430 6465 PRINTLEFT$(CM$,12);:GOSUB7010 6470 IFP$=""THENRETURN 6472 IF LEFT$(W$,1)="^" THEN PQ=PQ-1:DQ=DQ-1 6475 W$=P$:RETURN 6480 IF LEFT$(W$,1)<>"^" THEN6495 6485 PRINT LEFT$(CM$,12);"ALREADY DELETED![146]":FOR WT=1 TO 500:NEXT 6490 PRINT LEFT$(CM$,10);V$:GOTO6425 6495 W$="^"+W$:PRINTLEFT$(CM$,12);"QUESTION DELETED[146]" 6500 FORWT=1TO500:NEXT:DQ=DQ+1:PQ=PQ+1 6505 Z$="N":RETURN 6510 IF LEFT$(W$,1)="^" THEN6530 6515 PRINT"NOT A DELETED QUESTION![146]" 6520 FOR WT=1TO500:NEXT 6525 PRINT LEFT$(CM$,10);V$:GOTO6425 6530 GOSUB6545:PRINT LEFT$(CM$,12);" ** QUESTION RESTORED! ** [146]" 6535 FORWT=1 TO 500:NEXT:Z$="N":DQ=DQ-1:PQ=PQ-1 6540 RETURN 6545 W$=RIGHT$(W$,LEN(W$)-1):RETURN 6550 PRINT"[206]O QUESTIONS OF THIS TYPE[146]" 6555 PRINT:PRINT"[208]RESS SPACEBAR[146] TO CONTINUE" 6560 GOSUB180 6565 IF Z$=" " THEN6005 6570 GOTO6560 7010 POKE198,0 7015 P$="" 7020 PRINT"[164][157]"; 7025 GETQ$:IFQ$=""THEN7025 7030 IFQ$="[147]"ORQ$=""ORQ$="[145]"ORQ$=""ORQ$="[157]"ORQ$=""THEN7025 7035 IFQ$=""ORQ$="[146]"ORASC(Q$)=141THEN7025 7040 IFASC(Q$)=13THEN7075 7045 IFASC(Q$)=20THEN7060 7050 IFLEN(P$)=XTHEN7025 7055 P$=P$+Q$:PRINTQ$"[164][157]";:GOTO7025 7060 IFP$=""THEN7025 7065 P$=LEFT$(P$,LEN(P$)-1):PRINT"[157][164] [157][157]";:IFP$=""THEN7020 7070 GOTO7025 7075 PRINT" ":RETURN 8005 FORJ=896 TO 933:READX:POKEJ,X:NEXT 8010 DATA160,2,177,45,153,137,0,200,192,6 8015 DATA208,246,162,1,32,198,255 8020 DATA32,228,255,201,13,240,11,164,142,145 8025 DATA140,200,132,142,196,139,208,238,76,204,255 8030 RETURN 8040 POKE53280,2:PRINTCHR$(147);TAB(28)"[195][204][197][193][206] [211][204][193][212][197]" 8045 PRINTLEFT$(CM$,12); 8050 PRINTTAB(16)"[215][193][210][206][201][206][199]![144] 8055 [153]:[153]"(null)HIS COMMAND WILL GET RID OF ALL" 8060 [153]"QUESTIONS IN MEMORY." 8065 [153]:[153]"(null)RESS SPACEBARWAIT FOR MAIN MENU" 8070 [153]" LEN KEYWAIT TO CLEAR ALL QUESTIONS 8075 GOSUB180 8080 IF Z$=" " THEN120 8085 IF Z$="C" THEN GOSUB9035:GOTO120 8090 GOTO8075 9005 A$=" " 9010 A$=A$+A$+A$+A$+A$ 9015 A$=A$+A$+A$ 9020 V$=A$ 9025 CM$="" 9035 TQ=0:Q1=0:Q2=0:Q3=0:Q4=0 9040 DQ=0:DT=0:DF=0:DM=0:DE=0 9045 MQ=0:M1=0:M2=0:M3=0:M4=0 9050 D1=0:D2=0:D3=0:D4=0:D5=0 9055 RETURN