home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / TEST-WRITER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  12.3 KB  |  545 lines
  1. 100 GOSUB9005
  2. 105 DIM TF$(40),AN$(40),FL$(40),FS$(40),MA$(40),MN$(40),ES$(20),EN$(20),B(20)
  3. 110 DIM AS$(100),R1(40),R2(40),TT(40),SS(40),SP(40),SQ(40),SR(20)
  4. 115 GOSUB8005
  5. 120 CLOSE4:GOSUB1000
  6. 125 ON Z GOTO2005,3000,3005,4000,5000,6005,8040,130
  7. 130 POKE53280,2:PRINTCHR$(147);TAB(35);"[209][213][201][212]"
  8. 135 PRINT:PRINT:PRINT
  9. 140 PRINT"   [193]RE YOU FINISHED WITH [212][197][211][212] [215][210][201][212][197][210]?[144]"
  10. 145 PRINT:PRINT
  11. 150 PRINT"[208]RESS  [211]PACEBAR[146] FOR MAIN MENU"
  12. 155 PRINT"       [209] KEY[146] TO QUIT PROGRAM"
  13. 160 GOSUB180
  14. 165 IF Z$=" " THEN120
  15. 170 IF Z$="Q" THEN END
  16. 175 GOTO160
  17. 180 GETZ$:IFZ$=""THEN180
  18. 185 RETURN
  19. 190 END
  20. 1000 POKE 53280,11:POKE53281,12:POKE646,0
  21. 1002 PRINTCHR$(14)"[147]             [212][197][211][212] [215][210][201][212][197][210]
  22. 1005 [153]:[153]
  23. 1010 [153]"                (null)VAL(null)(null)
  24. 1015 PRINT:PRINT
  25. 1020 PRINT"        1.  [215]RITE QUESTIONS
  26. 1025 [153]"        2.  (null)OAD TEST FROM DISK
  27. 1030 PRINT"        3.  [205]ERGE TEST FROM DISK
  28. 1035 [153]"        4.  (null)AVE TEST TO DISK
  29. 1040 PRINT"        5.  [208]RINT TEST
  30. 1045 [153]"        6.  VALDIT
  31. 1050 PRINT"        7.  [195]LEAN SLATE
  32. 1055 [153]"        8.  (null)UIT
  33. 1060 PRINT"
  34. 1065 [153]"  (null)OTAL NUMBER OF QUESTIONS.....";TQ
  35. 1070 [139] DQ[178]0 [167]1080
  36. 1075 [153]"  RIGHT$NCLUDING"DQ"CMD DELETED QUESTION(S)WAIT"
  37. 1080 [153]:[153]
  38. 1085 [141]1115
  39. 1090 [141]180
  40. 1095 Z[178][197](Z$)
  41. 1100 [139] Z[179]1 [176] Z[177]8 [167]1090
  42. 1105 [153] [199](14)
  43. 1110 [142]
  44. 1115 [153]"  (null)RUE-ASCALSE (null)PINION.........";Q1;
  45. 1120 [139] DT[177]0[167] T1[178]DT:[141] 1180:[137]1130
  46. 1125 [153]
  47. 1130 [153]"  ASCILL-IN....................";Q2;
  48. 1135 [139] DF[177]0[167] T1[178]DF:[141]1180:[137]1145
  49. 1140 [153]
  50. 1145 [153]"  (null)ATCHING...................";Q3;
  51. 1150 [139] DM[177]0[167] T1[178]DM:[141]1180:[137]1160
  52. 1155 [153]
  53. 1160 [153]"  VALSSAY......................";Q4;
  54. 1165 [139] DE[177]0[167] T1[178]DE:[141]1180:[137]1175
  55. 1170 [153]
  56. 1175 [142]
  57. 1180 T1$[178][196](T1):[153]"(";[202](T1$,2,[195](T1$));")":[142]
  58. 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"
  59. 2010 [153][200](CM$,2);"VALNTER  (null)WAIT-ASC   VALWAITSSAY   (null)WAITATCHING   ASCWAITILL-IN"
  60. 2015 [161] Z$
  61. 2020 [139] Z$[178]"T"[167] [141]2050:[137]2065
  62. 2025 [139] Z$[178]"F"[167] [141]2050:[137]2160
  63. 2030 [139] Z$[178]"E"[167] [141]2050:[137]2220
  64. 2035 [139] Z$[178]"M"[167] [141]2050:[137]2330
  65. 2040 [139] Z$[178]" "[167] [141]2050:[137]120
  66. 2045 [137]2015
  67. 2050 [153] [200](CM$,2);[200](V$,80):[142]
  68. 2065 X[178]120
  69. 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
  70. 2075 [141]2405:Q1[178]Q1[171]1:[137]120
  71. 2080 [139] P$[178]"" [167] Q1[178]Q1[171]1:[137]2005
  72. 2085 TF$(Q1)[178]P$
  73. 2090 [153] [200](CM$,10);"IS THE ANSWER (null)WAITRUE, ASCWAITALSE, OR (null)WAITPINION?"
  74. 2095 [161] Z$
  75. 2100 [139] Z$[178]"T" [167] [153]"TRUEWAIT":[137]2120
  76. 2105 [139] Z$[178]"F" [167] [153]"FALSEWAIT":[137]2120
  77. 2110 [139] Z$[178]"O" [167] [153]"OPINIONWAIT":[137]2120
  78. 2115 [137]2095
  79. 2120 [161] Z1$
  80. 2125 [139] Z1$[178][199](13)[167]2140
  81. 2130 [139] Z1$[178][199](20)[167] [153] [200](CM$,11);"       ON":[137]2095
  82. 2135 [137]2120
  83. 2140 AN$(Q1)[178]Z$
  84. 2145 TQ[178]TQ[170]1
  85. 2150 [153][199](147):[137]2070
  86. 2160 X[178]120
  87. 2165 Q2[178]Q2[170]1:HD[178]Q2:[139] HD[179]41[167] HD$[178]"LOADASCILL-IN":[141]2385:[137]2175
  88. 2170 [141]2405:[137]120
  89. 2175 [139] P$[178]""[167] Q2[178]Q2[171]1:[137]2005
  90. 2180 FL$(Q2)[178]P$
  91. 2185 [153][200](CM$,10);"VALNTER THE ANSWER.WAIT"
  92. 2190 X[178]39:[141]7010
  93. 2195 FS$(Q2)[178]P$
  94. 2200 [139]FS$(Q2)[178]""[167]2185
  95. 2205 TQ[178]TQ[170]1
  96. 2210 [153] [199](147):[137]2160
  97. 2220 X[178]199
  98. 2225 Q4[178]Q4[170]1:HD[178]Q4:[139] HD[179]21 [167] HD$[178]"LOADVALSSAY QUESTION":[141]2385:[137]2230
  99. 2230 [139] P$[178]""[167] Q4[178]Q4[171]1:[137]2005
  100. 2235 ES$(Q4)[178]P$
  101. 2240 [153]"VALNTER THE ANSWER"
  102. 2245 [153]"(PRESS (null)VAL(null)(null)(null)(null) FOR"[199](34)"ATNNSWERS WILL VARY"[199](34)")"
  103. 2250 X[178]199:[141]7010
  104. 2260 [139] EN$(Q4)[178]"" [167] EN$(Q4)[178]"ANSWERS WILL VARY":[153]"ATNNSWERS WILL VARY"
  105. 2265 [153][200](CM$,19);"LEFT$OW MANY BLANK LINES? (1 - 30)"
  106. 2270 [141]2285
  107. 2275 B(Q4)[178][197](Z1$):[139] B(Q4)[179]0 [176] B(Q4)[177]30[167][153][200](CM$,20)"  ON":[137]2270
  108. 2280 TQ[178]TQ[170]1:[137]2220
  109. 2285 Z1$[178]""
  110. 2290 [141]180
  111. 2295 [139] Z$[178][199](13)[167]2315
  112. 2300 [139] [198](Z$)[179]48 [176] [198](Z$)[177]57[167]2290
  113. 2305 Z1$[178]Z1$[170]Z$:[139] [195](Z1$)[177]2 [167]2320
  114. 2310 [153]Z$;:[137]2290
  115. 2315 [139] [195](Z1$)[179]1 [167]2290
  116. 2320 [142]
  117. 2330 X[178]28
  118. 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
  119. 2340 [141]2405:[137]120
  120. 2345 MA$(Q3)[178]P$
  121. 2350 [139] P$[178]"" [167] Q3[178]Q3[171]1:[137]2005
  122. 2355 [153][200](CM$,12);"ATNNSWER?"
  123. 2360 X[178]28:[141]7010
  124. 2365 MN$(Q3)[178]P$
  125. 2370 [139] MN$(Q3)[178]""[167]2355
  126. 2375 TQ[178]TQ[170]1
  127. 2380 [153][199](147):[137]2330
  128. 2385 [153]HD$;[163]25)"(null)UESTION ENTRY"
  129. 2390 [153][200](CM$,2);"(null)UESTION #";HD;[163]20);"TOTAL QUESTIONS:";TQ
  130. 2395 [153] [200](CM$,3);:[141]7010
  131. 2400 HD[178]0:[142]
  132. 2405 [153]"LOAD";[200](CM$,12);"(null)EACHED QUESTION LIMIT"
  133. 2410 [153]"(null)RESS SPACEBAR FOR MENU"
  134. 2415 [161] Z$:[139] Z$[179][177]" " [167]2415
  135. 2420 [142]
  136. 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
  137. 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
  138. 3010 D1[178]DQ:D2[178]DT:D3[178]DF:D4[178]DM:D5[178]DE
  139. 3015 [139] TQ[177]0 [167]3045
  140. 3020 [153]"(null)O TEST IN MEMORY"
  141. 3025 [153]"(null)RESS SPACEBAR FOR MENU"
  142. 3030 [141]180
  143. 3035 [139] Z$[178]" "[167]120
  144. 3040 [137]3030
  145. 3045 [153]"(null)EST NAME:"
  146. 3050 [153] [200](CM$,5);
  147. 3055 X[178]15:[141]7010
  148. 3060 [139] P$[178]"" [167]120
  149. 3065 F$[178]P$
  150. 3070 [159]15,8,15:[152]15,"I0:":[141]4215
  151. 3075 [159] 1,8,3,F$[170]",S,R":[141]4215
  152. 3080 [132]1,TQ
  153. 3085 [132]1,DQ
  154. 3090 [132]1,Q1
  155. 3095 [132]1,DT
  156. 3100 [132]1,Q2
  157. 3105 [132]1,DF
  158. 3110 [132]1,Q3
  159. 3115 [132]1,DM
  160. 3120 [132]1,Q4
  161. 3125 [132]1,DE
  162. 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
  163. 3135 [137]3160
  164. 3140 [153]"LOAD";[200](CM$,12);"VALXCEEDED QUESTION LIMITS":[160]1:[160]15
  165. 3145 [153]"(null)RESS ANY KEY FOR MENU"
  166. 3150 [141]180
  167. 3155 [137]120
  168. 3160 [129]I[178]M1[170]1[164] M1[170]Q1
  169. 3165 [141]3260:TF$(I)[178][200](A$,LL)
  170. 3170 [141]3260:AN$(I)[178][200](A$,LL)
  171. 3175 [130]
  172. 3180 [129] I[178]M2[170]1[164] M2[170]Q2
  173. 3185 [141]3260:FL$(I)[178][200](A$,LL)
  174. 3190 [141]3260:FS$(I)[178][200](A$,LL)
  175. 3195 [130]
  176. 3200 [129]I[178]M3[170]1[164] M3[170]Q3
  177. 3205 [141]3260:MA$(I)[178][200](A$,LL)
  178. 3210 [141]3260:MN$(I)[178][200](A$,LL)
  179. 3215 [130]
  180. 3220 [129]I[178]M4[170]1[164] M4[170]Q4
  181. 3225 [141]3260:ES$(I)[178][200](A$,LL)
  182. 3230 [141]3260:EN$(I)[178][200](A$,LL)
  183. 3235 [132]1,B(I)
  184. 3240 [130]
  185. 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
  186. 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
  187. 3255 [160]1:[160]15:[137]120
  188. 3260 [158]896:LL[178][194](142)
  189. 3265 [142]
  190. 4000 [153]"LOAD";[163]28)"(null)ATN(null)VAL (null)VAL(null)(null)"
  191. 4005 [139] TQ[177]0[167]4035
  192. 4010 [153]"(null)O QUESTIONS TO SAVE!
  193. 4015 PRINT"[208]RESS SPACEBAR FOR MENU"
  194. 4020 GOSUB180
  195. 4025 IF Z$= " "THEN120
  196. 4030 GOTO4020
  197. 4035 PRINT"[212]EST NAME:"
  198. 4040 PRINT LEFT$(CM$,5);
  199. 4045 X=15:GOSUB7010
  200. 4050 IF P$="" THEN120
  201. 4055 F$=P$
  202. 4060 OPEN15,8,15:PRINT#15,"I0:":GOSUB4215
  203. 4065 OPEN 1,8,3,F$+",S,W":GOSUB4215
  204. 4070 PRINT#1,TQ
  205. 4075 PRINT#1,DQ
  206. 4080 PRINT#1,Q1
  207. 4085 PRINT#1,DT
  208. 4090 PRINT#1,Q2
  209. 4095 PRINT#1,DF
  210. 4100 PRINT#1,Q3
  211. 4105 PRINT#1,DM
  212. 4110 PRINT#1,Q4
  213. 4115 PRINT#1,DE
  214. 4120 FOR I=1 TO Q1
  215. 4125 PRINT#1,TF$(I)
  216. 4130 PRINT#1,AN$(I)
  217. 4135 NEXT
  218. 4140 FOR I=1 TO Q2
  219. 4145 PRINT#1,FL$(I)
  220. 4150 PRINT#1,FS$(I)
  221. 4155 NEXT
  222. 4160 FOR I=1 TO Q3
  223. 4165 PRINT#1,MA$(I)
  224. 4170 PRINT#1,MN$(I)
  225. 4175 NEXT
  226. 4180 FOR I=1 TO Q4
  227. 4185 PRINT#1,ES$(I)
  228. 4190 PRINT#1,EN$(I)
  229. 4195 PRINT#1,B(I)
  230. 4200 NEXT
  231. 4205 PRINT#1:CLOSE1:CLOSE15
  232. 4210 GOTO120
  233. 4215 INPUT#15,EN,EM$,ET,ES:IF EN=0THEN RETURN
  234. 4220 POKE53280,2:PRINT"[196][201][211][203] [197][210][210][207][210]: ";EM$
  235. 4225 PRINT"[208]RESS ANY KEY FOR MENU"
  236. 4230 GOSUB180
  237. 4235 CLOSE1:CLOSE15:GOTO120
  238. 5000 PRINTCHR$(147);TAB(30);"[208][210][201][206][212] [212][197][211][212]"
  239. 5005 OPEN4,4,7:PP=64:L=0
  240. 5010 PRINT LEFT$(CM$,3);"[206]UMBER OF QUESTION AVAILABLE:";TQ
  241. 5015 PRINT LEFT$(CM$,5);
  242. 5020 GOSUB1115
  243. 5025 IF TQ-DQ>0 THEN5050
  244. 5030 PRINT:PRINT"[206]O QUESTIONS IN MEMORY OR ALL DELETED"
  245. 5033 PRINT"[208]RESS SPACEBAR FOR MAIN MENU"
  246. 5035 GOSUB180
  247. 5040 IF Z$=" "THEN120
  248. 5045 GOTO5035
  249. 5050 IFDQ=0 THEN5075
  250. 5055 PRINT:PRINT"[206][207][212][201][195][197]![146] ONLY";TQ-DQ;"[146]QUESTIONS WILL BE"
  251. 5060 PRINT"PRINTED. [201]F YOU NEED MORE, RETURN TO"
  252. 5065 PRINT"MENU.  [212]HEN PRESS 1[146] TO WRITE MORE"
  253. 5070 PRINT"QESTIONS OR 7[146] TO UNDELETE EXISTING ONES."
  254. 5075 PRINT:PRINT"[195]HECK PRINTER."
  255. 5080 PRINT"[208]UT PRINTHEAD JUST BELOW PERFORATIONS":PRINT
  256. 5085 PRINT"[208]RESS SPACEBAR[146] FOR MAIN MENU."
  257. 5090 PRINT"      [208] KEY[146] TO START PRINTING"
  258. 5095 GOSUB180
  259. 5100 IF Z$=" " THEN120
  260. 5105 IF Z$="P" THEN5115
  261. 5110 GOTO5095
  262. 5115 PRINTCHR$(147);LEFT$(CM$,8);"[212]ITLE OF TEST:"
  263. 5120 X=60:PRINTLEFT$(CM$,9);:GOSUB7010
  264. 5125 IF P$=""THEN5120
  265. 5130 TL$=P$
  266. 5135 PRINTCHR$(147);LEFT$(CM$,10);"[208][210][197][208][193][210][201][206][199] [212][197][211][212]"
  267. 5140 PRINT#4," ":PRINT#4," ":PRINT#4,SPC((64-LEN(TL$))/2)TL$:L=L+3
  268. 5145 PRINT#4," ":PRINT#4,"[206]AME........................"
  269. 5150 PRINT#4,"[196]ATE...................."
  270. 5155 PRINT#4,"[208]ERIOD......":PRINT#4," ":L=L+5
  271. 5160 PRINT:PRINT:PRINT"SORTING...":N=0
  272. 5165 IF Q3-DM=0 THEN5275
  273. 5170 PRINT#4,"[205][193][212][195][200][201][206][199]: [215]RITE THE LETTER OF THE BEST ANSWER.":
  274. 5175 PRINT#4," ":PRINT#4," ":L=L+3
  275. 5180 W=Q3:GOSUB5575
  276. 5185 O=1
  277. 5190 FOR Q=1 TO Q3
  278. 5195 SS(O)=TT(O)
  279. 5200 IFLEFT$(MA$(Q),1)="^"THEN5235
  280. 5205 G=N+65
  281. 5210 W$=MA$(Q)+RIGHT$(V$,(29-LEN(MA$(Q))))
  282. 5215 IF N<26 THEN W$=W$+" "+CHR$(G)+". "+MN$(SS(O)):GOTO5225
  283. 5220 G=G-26:W$=W$+CHR$(G)+CHR$(G)+". "+MN$(SS(O))
  284. 5225 O=O+1
  285. 5230 GOSUB5565:SP=7:PRINT#4,"....";N$;:GOSUB5625
  286. 5235 NEXT
  287. 5240 IF DM=0THEN5275
  288. 5245 FOR Q=1 TO Q3
  289. 5250 SS(O)=TT(O)
  290. 5255 IF LEFT$(MA$(Q),1)<>"^" THEN5270
  291. 5260 W$=RIGHT$(V$,30)+CHR$(N+65)+". "+MN$(SS(O)):O=O+1
  292. 5265 SP=7:PRINT#4,"        ";:GOSUB5625
  293. 5270 NEXT
  294. 5275 IF Q1-DT=0 THEN5330
  295. 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."
  296. 5285 PRINT#4," ":PRINT#4," ":L=L+3
  297. 5290 W=Q1:GOSUB5575
  298. 5295 O=1
  299. 5300 FOR Q=1 TO Q1
  300. 5305 SP(O)=TT(O)
  301. 5310 IFLEFT$(TF$(SP(O)),1)="^"THEN5325
  302. 5315 W$=TF$(SP(O)):GOSUB5565:SP=8:PRINT#4,"....";N$;:GOSUB5625
  303. 5320 AS$(N)=N$+"  "+AN$(SP(O))
  304. 5325 O=O+1:NEXT
  305. 5330 IF Q2-DF=0 THEN5385
  306. 5335 PRINT#4,"[198][201][204][204]-[201][206]: [215]RITE THE ANSWER IN THE SPACE PROVIDED."
  307. 5340 PRINT#4," ":PRINT#4," ":L=L+3
  308. 5345 W=Q2:GOSUB5575
  309. 5350 O=1
  310. 5355 FOR Q=1 TO Q2
  311. 5360 SQ(O)=TT(O)
  312. 5365 IFLEFT$(FL$(SQ(O)),1)="^"THEN5380
  313. 5370 W$=FL$(SQ(O)):GOSUB5565:SP=7:PRINT#4,"   "N;:GOSUB5625
  314. 5375 AS$(N)=N$+"  "+FS$(SQ(O))
  315. 5380 O=O+1:NEXT
  316. 5385 IF Q4-DE=0 THEN5445
  317. 5390 PRINT#4,"[197][211][211][193][217]: [193]NSWER EACH QUESTION COMPLETELY."
  318. 5395 PRINT#4," ":PRINT#4," ":L=L+3
  319. 5400 W=Q4:GOSUB5575
  320. 5405 O=1
  321. 5410 FOR Q=1 TO Q4
  322. 5415 SR(O)=TT(O)
  323. 5420 IFLEFT$(ES$(SR(O)),1)="^"THEN5440
  324. 5425 W$=ES$(SR(O)):GOSUB5565:SP=4:PRINT#4,N;:GOSUB5625
  325. 5430 FOR K=1 TO B(SR(O)):GOSUB5715:PRINT#4,".";SPC(62);".":PRINT#4," ":NEXT
  326. 5435 AS$(N)=N$+"  "+EN$(SR(O))
  327. 5440 O=O+1:NEXT
  328. 5445 GOSUB5740
  329. 5450 PRINTCHR$(147);LEFT$(CM$,14);"PRESS [193] KEY[146] FOR ANSWER KEY"
  330. 5455 PRINT"      SPACEBAR[146] FOR MAIN MENU"
  331. 5460 GOSUB180
  332. 5465 IF Z$=" " THEN120
  333. 5470 IF Z$="A" THEN5480
  334. 5475 GOTO5460
  335. 5480 IF Q3=0 THEN5540
  336. 5485 K=1:G=0
  337. 5490 FORI=1TOQ3:K$=STR$(K):K$=MID$(K$,2,LEN(K$))
  338. 5495 J=1
  339. 5500 IF LEFT$(MA$(I),1)="^" THEN5535
  340. 5505 IF J>Q3 THEN5535
  341. 5510 IF I<>SS(J) THEN5530
  342. 5515 G=J+64:IF J>=27 THEN5525
  343. 5520 PRINT#4,K$+".   "+CHR$(G)+"  "+MN$(I):K=K+1:PRINT#4," ":GOTO5535
  344. 5525 G=G-26:PRINT#4,K$+".   "+CHR$(G)+CHR$(G)+"  "+MN$(I):K=K+1:GOTO5535
  345. 5530 J=J+1:GOTO5505
  346. 5535 NEXTI
  347. 5540 FORI=(Q3-DM) TO N
  348. 5545 PRINT#4,AS$(I):PRINT#4," "
  349. 5550 NEXT
  350. 5555 CLOSE4
  351. 5560 GOTO120
  352. 5565 N=N+1:IFN<10THEN N$=STR$(N):N$=" "+MID$(N$,2,LEN(N$))+". ":RETURN
  353. 5570 N$=STR$(N):N$=MID$(N$,2,LEN(N$))+". ":RETURN
  354. 5575 FOR I=1TOW:R1(I)=RND(0):R2(I)=R1(I):NEXT
  355. 5580 FORI=W-1TO1 STEP-1
  356. 5585 FOR T=1 TO I
  357. 5590 IF R1(T)>R1(T+1) THEN TE=R1(T):R1(T)=R1(T+1):R1(T+1)=TE
  358. 5595 NEXT:NEXT
  359. 5600 FORI=1TOW
  360. 5605 FORJ=1TOW
  361. 5610 IFR2(I)=R1(J) THEN TT(I)=J:R1(J)=1
  362. 5615 NEXT:NEXT
  363. 5620 RETURN
  364. 5625 FL=0
  365. 5630 IF FL>0 THEN IF LEN(W$)<=PP THEN5640
  366. 5635 GOTO5645
  367. 5640 PRINT#4,LEFT$(V$,SP)+W$:PRINT#4," ":L=L+2:GOSUB5715:W$="":GOTO5710
  368. 5645 IF LEN(W$)<=PP THEN PRINT#4,W$:PRINT#4," ":L=L+2:GOSUB5715:W$="":GOTO5710
  369. 5650 FOR J=PPTO 1 STEP -1
  370. 5655 IF MID$(W$,J,1)<>" " THEN5690
  371. 5660 FL=FL+1
  372. 5665 IF FL=1THEN5680
  373. 5670 IF FL>1 THEN B$=RIGHT$(A$,SP)+LEFT$(W$,J):J=1
  374. 5675 W$=MID$(W$,LEN(B$)-(SP),LEN(W$)):GOTO5695
  375. 5680 B$=LEFT$(W$,J):J=1
  376. 5685 W$=MID$(W$,LEN(B$)+1,LEN(W$)):GOTO5695
  377. 5690 NEXT J
  378. 5695 PRINT#4,B$
  379. 5700 L=L+1
  380. 5705 IF LEN(W$)>0 THEN5630
  381. 5710 RETURN
  382. 5715 IFL<58 THEN RETURN
  383. 5720 PRINT CHR$(147);LEFT$(CM$,14);"[208]RESS SPACE BAR TO CONTINUE PRINTING[146]"
  384. 5725 GOSUB180
  385. 5730 IF Z$=" "THEN5740
  386. 5735 GOTO5725
  387. 5740 FOR I=66 TO L STEP-1:PRINT#4," ":NEXT
  388. 5745 FORI=1 TO 4:PRINT#4," ":NEXT:L=4:RETURN
  389. 6005 CLOSE4
  390. 6010 PRINTCHR$(147);"PRESS SPACEBAR FOR MENU"TAB(25)"[197][196][201][212] [209][213][197][211][212][201][207][206][211][146]"
  391. 6015 OPEN4,3:PP=38
  392. 6020 PRINTLEFT$(CM$,2);"[197]NTER  [212][146]-[198]   [197][146]SSAY   [205][146]ATCHING   [198][146]ILL-IN"
  393. 6025 GET Z$
  394. 6030 IF Z$="T"THEN GOSUB2050:GOTO6060
  395. 6035 IF Z$="F"THEN GOSUB2050:GOTO6140
  396. 6040 IF Z$="E"THEN GOSUB2050:GOTO6310
  397. 6045 IF Z$="M"THEN GOSUB2050:GOTO6220
  398. 6050 IF Z$=" "THEN GOSUB2050:GOTO120
  399. 6055 GOTO6025
  400. 6060 IF Q1=0 THEN6550
  401. 6065 FOR I=1 TO Q1
  402. 6070 HD$="[147][212]RUE/[198]ALSE-[207]PINION":GOSUB6390
  403. 6075 W$=TF$(I)
  404. 6080 GOSUB6405
  405. 6085 X=120:W$=TF$(I):GOSUB6425:DT=DT+PQ
  406. 6090 TF$(I)=W$
  407. 6095 IFZ$=CHR$(13)THEN6005
  408. 6100 IFZ$="N" THEN6125
  409. 6105 PRINTLEFT$(CM$,20);"[212]HE ANSWER IS NOW [212], [198], OR [207]?"
  410. 6110 GOSUB180
  411. 6115 IF(Z$="T")OR(Z$="F")OR(Z$="O")THEN PRINT Z$:AN$(I)=Z$:GOTO6125
  412. 6120 GOTO6110
  413. 6125 PRINT CHR$(147)
  414. 6130 NEXT
  415. 6135 GOTO6005
  416. 6140 IF Q2=0 THEN6550
  417. 6145 FOR I=1 TO Q2
  418. 6150 HD$="[147][198]ILL-IN[146]":GOSUB6390
  419. 6155 W$=FL$(I)
  420. 6160 GOSUB6405
  421. 6165 X=120:W$=FL$(I):GOSUB6425:DF=DF+PQ
  422. 6170 FL$(I)=W$
  423. 6175 IF Z$=CHR$(13) THEN6005
  424. 6180 IFZ$="N" THEN6205
  425. 6185 GOSUB6420
  426. 6190 X=39:PRINTLEFT$(CM$,18);:GOSUB7010
  427. 6195 IF P$="" THEN6190
  428. 6200 FS$(I)=P$
  429. 6205 PRINT CHR$(147)
  430. 6210 NEXT
  431. 6215 GOTO6005
  432. 6220 IF Q3=0 THEN6550
  433. 6225 FOR I=1 TO Q3
  434. 6230 F2=1
  435. 6235 HD$="[147][205]ATCHING[146]":GOSUB6390
  436. 6240 W$=MA$(I)
  437. 6245 GOSUB6405
  438. 6250 X=28:W$=MA$(I):GOSUB6425:DM=DM+PQ
  439. 6255 MA$(I)=W$
  440. 6260 IF Z$=CHR$(13) THEN6005
  441. 6265 IFZ$="N" THEN6290
  442. 6270 GOSUB6420
  443. 6275 X=28:PRINTLEFT$(CM$,18);:GOSUB7010
  444. 6280 IF P$="" THEN6275
  445. 6285 MN$(I)=P$
  446. 6290 PRINT CHR$(147)
  447. 6295 NEXT
  448. 6300 F2=0
  449. 6305 GOTO6005
  450. 6310 IF Q4=0 THEN6550
  451. 6315 FOR I=1 TO Q4
  452. 6320 HD$="[147][197]SSAY[146]":GOSUB6390
  453. 6325 W$=ES$(I)
  454. 6330 GOSUB6405
  455. 6335 X=199:W$=ES$(I):GOSUB6425:DE=DE+PQ
  456. 6340 ES$(I)=W$
  457. 6345 IF Z$=CHR$(13) THEN6005
  458. 6350 IFZ$="N" THEN6375
  459. 6355 GOSUB6420
  460. 6360 X=78:PRINTLEFT$(CM$,18);:GOSUB7010
  461. 6365 IF P$="" THEN6360
  462. 6370 EN$(I)=P$
  463. 6375 PRINT CHR$(147)
  464. 6380 NEXT
  465. 6385 GOTO6005
  466. 6390 PRINTHD$;TAB(25)"[197]DIT QUESTIONS"
  467. 6395 PRINT LEFT$(CM$,2);"[197]NTER   [210][146]EWRITE  [196][146]ELETE  [213][146]NDELETE  [206][146]EXT"
  468. 6400 RETURN
  469. 6405 IF LEFT$(W$,1)="^" THEN PRINT" ** DELETED QUESTION ** [146]":GOSUB6545
  470. 6410 PRINT LEFT$(CM$,5):L=0:GOSUB5625
  471. 6415 RETURN
  472. 6420 PRINTLEFT$(CM$,17);"[206]EW ANSWER:":RETURN
  473. 6425 PRINTLEFT$(CM$,10);"[197]NTER [210], [196], [213], OR [206]":PQ=0
  474. 6430 GOSUB180
  475. 6435 IF Z$="R" THEN6465
  476. 6440 IF Z$="D" THEN6480
  477. 6445 IF Z$="U" THEN6510
  478. 6450 IF Z$=CHR$(13)THEN RETURN
  479. 6455 IF Z$="N" THEN RETURN
  480. 6460 GOTO6430
  481. 6465 PRINTLEFT$(CM$,12);:GOSUB7010
  482. 6470 IFP$=""THENRETURN
  483. 6472 IF LEFT$(W$,1)="^" THEN PQ=PQ-1:DQ=DQ-1
  484. 6475 W$=P$:RETURN
  485. 6480 IF LEFT$(W$,1)<>"^" THEN6495
  486. 6485 PRINT LEFT$(CM$,12);"ALREADY DELETED![146]":FOR WT=1 TO 500:NEXT
  487. 6490 PRINT LEFT$(CM$,10);V$:GOTO6425
  488. 6495 W$="^"+W$:PRINTLEFT$(CM$,12);"QUESTION DELETED[146]"
  489. 6500 FORWT=1TO500:NEXT:DQ=DQ+1:PQ=PQ+1
  490. 6505 Z$="N":RETURN
  491. 6510 IF LEFT$(W$,1)="^" THEN6530
  492. 6515 PRINT"NOT A DELETED QUESTION![146]"
  493. 6520 FOR WT=1TO500:NEXT
  494. 6525 PRINT LEFT$(CM$,10);V$:GOTO6425
  495. 6530 GOSUB6545:PRINT LEFT$(CM$,12);" ** QUESTION RESTORED! ** [146]"
  496. 6535 FORWT=1 TO 500:NEXT:Z$="N":DQ=DQ-1:PQ=PQ-1
  497. 6540 RETURN
  498. 6545 W$=RIGHT$(W$,LEN(W$)-1):RETURN
  499. 6550 PRINT"[206]O QUESTIONS OF THIS TYPE[146]"
  500. 6555 PRINT:PRINT"[208]RESS SPACEBAR[146] TO CONTINUE"
  501. 6560 GOSUB180
  502. 6565 IF Z$=" " THEN6005
  503. 6570 GOTO6560
  504. 7010 POKE198,0
  505. 7015 P$=""
  506. 7020 PRINT"[164][157]";
  507. 7025 GETQ$:IFQ$=""THEN7025
  508. 7030 IFQ$="[147]"ORQ$=""ORQ$="[145]"ORQ$=""ORQ$="[157]"ORQ$=""THEN7025
  509. 7035 IFQ$=""ORQ$="[146]"ORASC(Q$)=141THEN7025
  510. 7040 IFASC(Q$)=13THEN7075
  511. 7045 IFASC(Q$)=20THEN7060
  512. 7050 IFLEN(P$)=XTHEN7025
  513. 7055 P$=P$+Q$:PRINTQ$"[164][157]";:GOTO7025
  514. 7060 IFP$=""THEN7025
  515. 7065 P$=LEFT$(P$,LEN(P$)-1):PRINT"[157][164] [157][157]";:IFP$=""THEN7020
  516. 7070 GOTO7025
  517. 7075 PRINT" ":RETURN
  518. 8005 FORJ=896 TO 933:READX:POKEJ,X:NEXT
  519. 8010 DATA160,2,177,45,153,137,0,200,192,6
  520. 8015 DATA208,246,162,1,32,198,255
  521. 8020 DATA32,228,255,201,13,240,11,164,142,145
  522. 8025 DATA140,200,132,142,196,139,208,238,76,204,255
  523. 8030 RETURN
  524. 8040 POKE53280,2:PRINTCHR$(147);TAB(28)"[195][204][197][193][206] [211][204][193][212][197]"
  525. 8045 PRINTLEFT$(CM$,12);
  526. 8050 PRINTTAB(16)"[215][193][210][206][201][206][199]![144]
  527. 8055 [153]:[153]"(null)HIS COMMAND WILL GET RID OF ALL"
  528. 8060 [153]"QUESTIONS IN MEMORY."
  529. 8065 [153]:[153]"(null)RESS  SPACEBARWAIT FOR MAIN MENU"
  530. 8070 [153]"       LEN KEYWAIT TO CLEAR ALL QUESTIONS
  531. 8075 GOSUB180
  532. 8080 IF Z$=" " THEN120
  533. 8085 IF Z$="C" THEN GOSUB9035:GOTO120
  534. 8090 GOTO8075
  535. 9005 A$="                 "
  536. 9010 A$=A$+A$+A$+A$+A$
  537. 9015 A$=A$+A$+A$
  538. 9020 V$=A$
  539. 9025 CM$=""
  540. 9035 TQ=0:Q1=0:Q2=0:Q3=0:Q4=0
  541. 9040 DQ=0:DT=0:DF=0:DM=0:DE=0
  542. 9045 MQ=0:M1=0:M2=0:M3=0:M4=0
  543. 9050 D1=0:D2=0:D3=0:D4=0:D5=0
  544. 9055 RETURN
  545.