home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk118 / setup.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-06-12  |  12.0 KB  |  470 lines
  1. 10  CLS
  2. 20  LOCATE 12,1,1:PRINT"Change a saved program? (y/n) ";
  3. 30  E$=INPUT$(1)
  4. 40  IF E$=CHR$(27) GOTO 4600
  5. 50  IF E$="n" OR E$="N" GOTO 160
  6. 60  IF E$<>"y" AND E$<>"Y" GOTO 30
  7. 70  CLS
  8. 80  LOCATE ,,0
  9. 90  GOSUB 4190
  10. 100  CLS
  11. 110  LOCATE 13,11,0:PRINT"One moment, please!"
  12. 120  OPEN "I",#1,S$
  13. 130  INPUT#1,GRD,FORM$,TYP$,TLIMIT$,BNDA,BNDB,BNDC,BNDD,BNDE,TEST,BASE,SEL
  14. 140  CLOSE#1
  15. 150  GOTO 240
  16. 160  CLS
  17. 170  LOCATE 10,1:PRINT"Presently, Math Tutor is set to test thestudent at the passing level for each   grade(1-6).  However, this can be easilyaltered to an intermediate level or to  specific areas where tutoring is needed."
  18. 180  LOCATE 17,1,1:PRINT "What grade do you want to alter? ";
  19. 190  E$=INPUT$(1)
  20. 200  IF E$=CHR$(27) GOTO 4600
  21. 210  IF E$<"1" OR E$>"6" GOTO 190
  22. 220  GRD=VAL(E$)
  23. 230  ON GRD GOSUB 4360,4390,4420,4450,4480,4510
  24. 240  ON GRD GOSUB 3740,3770,3800,3830,3860,3890
  25. 250  C(1)=6:C(2)=8:C(3)=10:C(4)=12:C(5)=14
  26. 260  D(1)=2:D(2)=4:D(3)=9:D(4)=11:D(5)=13:D(6)=15:D(7)=17:D(8)=34
  27. 270  CLS
  28. 280  LOCATE 13,11,0:PRINT"One moment, please!"
  29. 290  GOTO 420
  30. 300  FOR I=1 TO 5
  31. 310  FOR H=1 TO 7
  32. 320  INPUT A$(I,H)
  33. 330  NEXT H
  34. 340  NEXT I
  35. 350  OPEN "O",#1,"GRD5"
  36. 360  FOR I=1 TO 5
  37. 370  FOR H=1 TO 7
  38. 380  WRITE#1,A$(I,H)
  39. 390  NEXT H
  40. 400  NEXT I
  41. 410  CLOSE#1
  42. 420  Q$=STR$(GRD)
  43. 430  E$=RIGHT$(Q$,1)
  44. 440  S$="GRD"+E$
  45. 450  OPEN "I",#1,S$
  46. 460  FOR I=1 TO 5
  47. 470  FOR H=1 TO 7
  48. 480  INPUT#1,A$(I,H)
  49. 490  NEXT H
  50. 500  NEXT I
  51. 510  CLOSE#1
  52. 520  A$(1,8)=STR$(BNDA)
  53. 530  A$(2,8)=STR$(BNDB)
  54. 540  A$(3,8)=STR$(BNDC)
  55. 550  A$(4,8)=STR$(BNDD)
  56. 560  A$(5,8)=STR$(BNDE)
  57. 570  CLS
  58. 580  PRINT"       VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDCOLOR"
  59. 590  PRINT" GRD"GRD"CALL TYPE  CALL    PROBLEM     CALLUPPERCALL"
  60. 600  PRINT"VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBEEPSOUNDBSAVESOUNDBSAVESOUNDBSAVESOUND<0xB4!>                CALL     CALL"
  61. 610  PRINT"CALLFORMATCALL1CALL2CALL3CALL4CALL  DESCRIPTION   CALLLIMITCALL"
  62. 620  PRINT"PSETTHENFNTHENTHENTHENTHENINSTRTHENINSTRTHENINSTRTHENINSTRTHENINSTRTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENINSTRTHENTHENTHENTHENTHEN<0xB5!>"
  63. 630  PRINT"CALL CALL    CALL CALL CALL CALL CALL                CALL     CALL"
  64. 640  FOR I=1 TO 4
  65. 650  PRINT"BLOADSOUNDBEEPSOUNDSOUNDSOUNDSOUNDBEEPSOUNDBEEPSOUNDBEEPSOUNDBEEPSOUNDBEEPSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBEEPSOUNDSOUNDSOUNDSOUNDSOUND<0xB4!>"
  66. 660  PRINT"CALL CALL    CALL CALL CALL CALL CALL                CALL     CALL"
  67. 670  NEXT I
  68. 680  PRINT"CLSSOUNDMOTORSOUNDSOUNDSOUNDSOUNDMOTORSOUNDMOTORSOUNDMOTORSOUNDMOTORSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUND'"
  69. 690  FOR I=1 TO 5
  70. 700  FOR H=1 TO 8
  71. 710  LOCATE C(I),D(H):PRINT A$(I,H)
  72. 720  NEXT H
  73. 730  NEXT I
  74. 740  IF GRD<>1 GOTO 760
  75. 750  LOCATE 16,2:PRINT"* no carries"
  76. 760  LOCATE 20,1
  77. 770  LOCATE 18,1:PRINT"Listed above are the TYPE of problems   that are available for each FORMAT. A   blank indicates a combination that is   not authorized for this grade."
  78. 780  LOCATE 23,1,1:PRINT"Press ";CHR$(17);CHR$(196);CHR$(217);" to continue. ";
  79. 790  E$=INPUT$(1)
  80. 800  IF E$=CHR$(27) GOTO 4600
  81. 810  IF E$<>CHR$(13) GOTO 790
  82. 820  GOSUB 4540
  83. 830  LOCATE 17,1:PRINT"  a      z      a      b     c   e   z"
  84. 840  LOCATE 18,1:PRINT"+ b    - a    x b    VARPTRSOUNDSOUNDSOUND    SOUND ? SOUND = SOUND"
  85. 850  LOCATE 19,1:PRINT" SOUNDSOUND     SOUNDSOUND     SOUNDSOUND   aCALL z     d   f   g"
  86. 860  LOCATE 20,1:PRINT"  z      b      z             (LCDMODa)"
  87. 870  LOCATE 22,1:PRINT"The UPPER LIMIT controls a and b of eachproblem.  Others depend on a and b."
  88. 880  LOCATE 24,1,1:PRINT"Press ";CHR$(17);CHR$(196);CHR$(217);" to continue. ";
  89. 890  E$=INPUT$(1)
  90. 900  IF E$=CHR$(27) GOTO 4600
  91. 910  IF E$<>CHR$(13) GOTO 890
  92. 920  GOSUB 4540
  93. 930  LOCATE 17,1:PRINT"The program uses a recurring sequence often problem presentations.  The first   number of each sequence is for problems 1,11,21,etc. The second, for 2,12,etc. "
  94. 940  LOCATE 21,1:PRINT"FORMAT sequence " FORM$
  95. 950  PRINT"TYPE sequence   " TYP$
  96. 960  LOCATE 24,1,1:PRINT"Do you want to make a change? (y/n) ";
  97. 970  E$=INPUT$(1)
  98. 980  IF E$=CHR$(27) GOTO 4600
  99. 990  IF E$="n" OR E$="N" GOTO 1430
  100. 1000  IF E$<>"y" AND E$<>"Y" GOTO 970
  101. 1010  GOSUB 4540
  102. 1020  LOCATE 18,2:PRINT "Enter new FORMAT  "FORM$
  103. 1030  PRINT
  104. 1040  LOCATE 20,2:PRINT "Enter new TYPE    "TYP$
  105. 1050  LOCATE 23,5:PRINT"(To correct an entry, press c)
  106. 1060  YAXIS=18:XAXIS=20
  107. 1070  FOR I=1 TO 10
  108. 1080  LOCATE YAXIS,XAXIS,1
  109. 1090  J$(I)=INPUT$(1)
  110. 1100  IF J$(I)<>"c" GOTO 1150
  111. 1110  IF I=1 GOTO 1090
  112. 1120  I=I-1
  113. 1130  XAXIS=XAXIS-1
  114. 1140  GOTO 1080
  115. 1150  IF J$(I)<"1" OR J$(I)>"5" GOTO 1090
  116. 1160  PRINT J$(I)
  117. 1170  YAXIS=YAXIS+2
  118. 1180  LOCATE YAXIS,XAXIS
  119. 1190  K$(I)=INPUT$(1)
  120. 1200  IF K$(I)<>"c" GOTO 1230
  121. 1210  YAXIS=YAXIS-2
  122. 1220  GOTO 1080
  123. 1230  IF K$(I)<"1" OR K$(I)>"4" GOTO 1190
  124. 1240  AJ=VAL(J$(I))
  125. 1250  AK=VAL(K$(I))
  126. 1260  IF A$(AJ,AK+2)<"+" GOTO 1190
  127. 1270  PRINT K$(I)
  128. 1280  YAXIS=YAXIS-2
  129. 1290  XAXIS=XAXIS+1
  130. 1300  NEXT I
  131. 1310  FORM$=""
  132. 1320  TYP$=""
  133. 1330  FOR I=1 TO 10
  134. 1340  FORM$=FORM$+J$(I)
  135. 1350  TYP$=TYP$+K$(I)
  136. 1360  NEXT I
  137. 1370  LOCATE 23,1:PRINT STRING$(38,CHR$(32));
  138. 1380  LOCATE 23,1,1:PRINT"OK (y/n) ";
  139. 1390  E$=INPUT$(1)
  140. 1400  IF E$=CHR$(27) GOTO 4600
  141. 1410  IF E$="n" OR E$="N" GOTO 1060
  142. 1420  IF E$<>"y" AND E$<>"Y" GOTO 1390
  143. 1430  GOSUB 4540
  144. 1440  LOCATE 18,1:PRINT"Randomly generated problem integers     fall between zero and the UPPER LIMIT.  Although the upper limit is extendable, it is only advised for the well advancedstudent."
  145. 1450  LOCATE 24,1,1:PRINT"Do you want to make a change? (y/n) ";
  146. 1460  E$=INPUT$(1)
  147. 1470  IF E$=CHR$(27) GOTO 4600
  148. 1480  IF E$="n" OR E$="N" GOTO 1950
  149. 1490  IF E$<>"y" AND E$<>"Y" GOTO 1460
  150. 1500  GOSUB 4540
  151. 1510  LOCATE 18,1:PRINT "FORMAT sequence is "FORM$
  152. 1520  LOCATE 19,1:PRINT "TYPE sequence is   "TYP$
  153. 1530  LOCATE 23,1:PRINT "Enter FORMAT     Enter LIMIT      "
  154. 1540  LOCATE 23,14,1
  155. 1550  E$=INPUT$(1)
  156. 1560  IF E$<"1" OR E$>"5" GOTO 1550
  157. 1570  PRINT E$
  158. 1580  CHG=VAL(E$)
  159. 1590  ON CHG GOSUB 3920,3950,3980,4010,4040
  160. 1600  LOCATE 21,23:PRINT "BOUNDS"LBND"-"MBND"  ";
  161. 1610  YAX=23:XAX=30
  162. 1620  FOR I=1 TO 5
  163. 1630  LOCATE YAX,XAX
  164. 1640  J$(I)=INPUT$(1)
  165. 1650  IF J$(I)=CHR$(13) GOTO 1760
  166. 1660  IF J$(I)<>"c" GOTO 1710
  167. 1670  IF I=1 GOTO 1640
  168. 1680  I=I-1
  169. 1690  XAX=XAX-1
  170. 1700  GOTO 1630
  171. 1710  IF J$(I)<"0" OR J$(I)>"9" GOTO 1640
  172. 1720  PRINT J$(I)
  173. 1730  XAX=XAX+1
  174. 1740  NEXT I
  175. 1750  IF J$(I)<>CHR$(13) GOTO 1820
  176. 1760  Y$=" "
  177. 1770  FOR H=1 TO I-1
  178. 1780  Y$=Y$+J$(H)
  179. 1790  NEXT H
  180. 1800  BND=VAL(Y$)
  181. 1810  IF BND<MBND+1 AND BND>LBND-1 GOTO 1840
  182. 1820  LOCATE 23,30:PRINT STRING$(10,CHR$(32))
  183. 1830  GOTO 1610
  184. 1840  ON CHG GOSUB 3640,3660,3680,3700,3720
  185. 1850  A$=STR$(BND)
  186. 1860  LOCATE C(CHG),34:PRINT"     "
  187. 1870  LOCATE C(CHG),34:PRINT A$;
  188. 1880  LOCATE 21,1:PRINT STRING$(39,CHR$(32));
  189. 1890  LOCATE 23,1:PRINT STRING$(39,CHR$(32));
  190. 1900  LOCATE 23,1,1:PRINT "Another? (y/n) ";
  191. 1910  E$=INPUT$(1)
  192. 1920  IF E$=CHR$(27) GOTO 4600
  193. 1930  IF E$="y" OR E$="Y" GOTO 1530
  194. 1940  IF E$<>"n" AND E$<>"N" GOTO 1910
  195. 1950  GOSUB 4540
  196. 1960  LOCATE 18,1:PRINT"Presently, the program allows "TLIMIT$"response for each problem before it is  counted wrong.  Pauses between problems are not timed."
  197. 1970  LOCATE 23,1,1:PRINT"Do you want to make a change? (y/n) ";
  198. 1980  E$=INPUT$(1)
  199. 1990  IF E$=CHR$(27) GOTO 4600
  200. 2000  IF E$="n" OR E$="N" GOTO 2320
  201. 2010  IF E$<>"y" AND E$<>"Y" GOTO 1980
  202. 2020  GOSUB 4540
  203. 2030  LOCATE 18,1:PRINT"Entries for MINUTES or SECONDS are two  digit entries and are limited to a max- imum of 59."
  204. 2040  LOCATE 22,1:PRINT "Enter MINUTES    Enter SECONDS    "
  205. 2050  LOCATE 22,15,1
  206. 2060  C$=""
  207. 2070  FOR I=1 TO 2
  208. 2080  E$(I)=INPUT$(1)
  209. 2090  IF E$(I)<"0" OR E$(I)>"9" GOTO 2080
  210. 2100  PRINT E$(I)
  211. 2110  LOCATE 22,16,1
  212. 2120  C$=C$+E$(I)
  213. 2130  NEXT I
  214. 2140  IF C$>"59" OR C$<"00" GOTO 2050
  215. 2150  LOCATE 22,32,1
  216. 2160  D$=""
  217. 2170  FOR I=1 TO 2
  218. 2180  E$(I)=INPUT$(1)
  219. 2190  IF E$(I)<"0" OR E$(I)>"9" GOTO 2180
  220. 2200  PRINT E$(I)
  221. 2210  LOCATE 22,33,1
  222. 2220  D$=D$+E$(I)
  223. 2230  NEXT I
  224. 2240  IF D$>"59" OR D$<"00" GOTO 2150
  225. 2250  LOCATE 24,1,1:PRINT "OK! (y/n) ";
  226. 2260  E$=INPUT$(1)
  227. 2270  IF E$=CHR$(27) GOTO 4600
  228. 2280  IF E$="n" OR E$="N" GOTO 2040
  229. 2290  IF E$<>"y" AND E$<>"Y" GOTO 2260
  230. 2300  MID$(TLIMIT$,4,2)=C$
  231. 2310  MID$(TLIMIT$,7,2)=D$
  232. 2320  GOSUB 4540
  233. 2330  LOCATE 18,1:PRINT "Presently, the program is set to grade  every"TEST"problems."
  234. 2340  LOCATE 21,1,1:PRINT"Do you want to make a change? (y/n) ";
  235. 2350  E$=INPUT$(1)
  236. 2360  IF E$=CHR$(27) GOTO 4600
  237. 2370  IF E$="n" OR E$="N" GOTO 2630
  238. 2380  IF E$<>"y" AND E$<>"Y" GOTO 2350
  239. 2390  LOCATE 23,1:PRINT"ENTER new limit. (1-1000) "
  240. 2400  YAX=23:XAX=27
  241. 2410  FOR I=1 TO 5
  242. 2420  LOCATE YAX,XAX
  243. 2430  J$(I)=INPUT$(1)
  244. 2440  IF J$(I)=CHR$(13) GOTO 2550
  245. 2450  IF J$(I)<>"c" GOTO 2500
  246. 2460  IF I=1 GOTO 2430
  247. 2470  I=I-1
  248. 2480  XAX=XAX-1
  249. 2490  GOTO 2420
  250. 2500  IF J$(I)<"0" OR J$(I)>"9" GOTO 2430
  251. 2510  PRINT J$(I)
  252. 2520  XAX=XAX+1
  253. 2530  NEXT I
  254. 2540  IF J$(I)<>CHR$(13) GOTO 2610
  255. 2550  Y$=" "
  256. 2560  FOR H=1 TO I-1
  257. 2570  Y$=Y$+J$(H)
  258. 2580  NEXT H
  259. 2590  TEST=VAL(Y$)
  260. 2600  IF TEST>0 AND TEST<1001 GOTO 2630
  261. 2610  LOCATE 23,27:PRINT STRING$(5,CHR$(32));
  262. 2620  GOTO 2400
  263. 2630  CLS
  264. 2640  LOCATE 4,1:PRINT"At the completion of the problems, the  student is graded and notified of the   problems he missed."
  265. 2650  LOCATE 8,1:PRINT"After an EXERCISE, the student is given a chance to re-do the missed problems.  If he corrects the missed problems, he  is given a chance to try a new exercise."
  266. 2660  LOCATE 13,1:PRINT"After a TEST, the program pauses until  you enter the test code.  You may then  look at the missed problems and analyze the student's progress."
  267. 2670  LOCATE 18,1:PRINT"What do you want to do?"
  268. 2680  LOCATE 20,1:PRINT "1. an exercise"
  269. 2690  LOCATE 22,1,0:PRINT "2. a test"
  270. 2700  E$=INPUT$(1)
  271. 2710  IF E$=CHR$(27) GOTO 4600
  272. 2720  IF E$<"1" OR E$>"2" GOTO 2700
  273. 2730  SEL=VAL(E$)
  274. 2740  SEL=SEL+1
  275. 2750  CLS
  276. 2760  LOCATE 1,1:PRINT"For a set of FORMAT, TYPE, UPPER LIMIT, and GRADE parameters, the program will  produce the same set of problems each   time it is run."
  277. 2770  LOCATE 6,1:PRINT"This program characteristic assures thateach student receives the same test and allows for later analysis by you."
  278. 2780  LOCATE 10,1:PRINT "Random numbers used for the problems aregenerated from a SEED. Changing the SEEDproduces a new set of problem variables to further challenge the student."
  279. 2790  LOCATE 15,1:PRINT"After the student corrects an EXERCISE, the SEED is incremented by one. However,no incrementing occurs for TESTS."
  280. 2800  LOCATE 19,1:PRINT"The present SEED is "BASE
  281. 2810  LOCATE 21,1,1:PRINT "Do you want to change the SEED? (y/n) ";
  282. 2820  E$=INPUT$(1)
  283. 2830  IF E$=CHR$(27) GOTO 4600
  284. 2840  IF E$="n" OR E$="N" GOTO 3110
  285. 2850  IF E$<>"y" AND E$<>"Y" GOTO 2820
  286. 2860  LOCATE 23,1:PRINT"Enter SEED (-32767 to 32767). ";
  287. 2870  YAX=23:XAX=31
  288. 2880  FOR I=1 TO 7
  289. 2890  LOCATE YAX,XAX,1
  290. 2900  J$(I)=INPUT$(1)
  291. 2910  IF J$(I)=CHR$(13) GOTO 3030
  292. 2920  IF J$(I)<>"c" GOTO 2970
  293. 2930  IF I=1 GOTO 2900
  294. 2940  I=I-1
  295. 2950  XAX=XAX-1
  296. 2960  GOTO 2890
  297. 2970  IF J$(I)="-" OR J$(I)="." GOTO 2990
  298. 2980  IF J$(I)<"0" OR J$(I)>"9" GOTO 2900
  299. 2990  PRINT J$(I)
  300. 3000  XAX=XAX+1
  301. 3010  NEXT I
  302. 3020  IF J$(I)<>CHR$(13) GOTO 3090
  303. 3030  Y$=""
  304. 3040  FOR H=1 TO I-1
  305. 3050  Y$=Y$+J$(H)
  306. 3060  NEXT H
  307. 3070  BASE=VAL(Y$)
  308. 3080  IF ABS(BASE)<32768 GOTO 3110
  309. 3090  LOCATE 23,30,0:PRINT STRING$(8,CHR$(32))
  310. 3100  GOTO 2870
  311. 3110  CLS
  312. 3120  LOCATE 2,1:PRINT "The changes you made will be saved on   the disk for later recall."
  313. 3130  GOSUB 4190
  314. 3140  LOCATE 23,8:INPUT"Name for file? ",SS$
  315. 3150  CLS
  316. 3160  LOCATE 13,11,0:PRINT"One moment, please!"
  317. 3170  ON VAL(E$) GOSUB 4070,4090,4110,4130,4150,4170
  318. 3180  OPEN "O",#1,"tdata"
  319. 3190  WRITE#1,SV1$,SV2$,SV3$,SV4$,SV5$,SV6$
  320. 3200  CLOSE#1
  321. 3210  OPEN "O",#1,S$
  322. 3220  WRITE#1,GRD,FORM$,TYP$,TLIMIT$,BNDA,BNDB,BNDC,BNDD,BNDE,TEST,BASE,SEL
  323. 3230  CLOSE#1
  324. 3240  CLS
  325. 3250  LOCATE 12,1,1:PRINT"Hard copy of the parameters? (y/n) ";
  326. 3260  E$=INPUT$(1)
  327. 3270  IF E$=CHR$(27) GOTO 4600
  328. 3280  IF E$="n" OR E$="N" GOTO 3520
  329. 3290  IF E$<>"y" AND E$<>"Y" GOTO 3260
  330. 3300  LOCATE 14,1:PRINT"Turn printer on, press ";CHR$(17);CHR$(196);CHR$(217);" ";
  331. 3310  E$=INPUT$(1)
  332. 3320  IF E$=CHR$(27) GOTO 4600
  333. 3330  IF E$<>CHR$(13) GOTO 3310
  334. 3340  LPRINT"Title - "SS$
  335. 3350  LPRINT
  336. 3360  LPRINT"Sequence of FORMAT "FORM$
  337. 3370  LPRINT"Sequence of TYPE   "TYP$
  338. 3380  LPRINT
  339. 3390  LPRINT"Format 1 upper limit ="BNDA
  340. 3400  LPRINT"Format 2 upper limit ="BNDB
  341. 3410  LPRINT"Format 3 upper limit ="BNDC
  342. 3420  LPRINT"Format 4 upper limit ="BNDD
  343. 3430  LPRINT"Format 5 upper limit ="BNDE
  344. 3440  LPRINT
  345. 3450  LPRINT"Time limit = "TLIMIT$
  346. 3460  LPRINT
  347. 3470  LPRINT"Problems ="TEST
  348. 3480  LPRINT
  349. 3490  IF SEL=2 THEN LPRINT"This is an exercise." ELSE LPRINT"This is a test."
  350. 3500  LPRINT
  351. 3510  LPRINT"The SEED ="BASE
  352. 3520  CLS
  353. 3530  LOCATE 12,1:PRINT "Do you want to see the problems? (y/n)";
  354. 3540  E$=INPUT$(1)
  355. 3550  IF E$=CHR$(27) GOTO 4600
  356. 3560  IF E$="n" OR E$="N" GOTO 4600
  357. 3570  IF E$<>"y" AND E$<>"Y" GOTO 3540
  358. 3580  CLS
  359. 3590  LOCATE 13,11,0:PRINT"One moment please!"
  360. 3600  RE=1
  361. 3610  SEL=5
  362. 3620  COMMON GRD,FORM$,TYP$,TLIMIT$,BNDA,BNDB,BNDC,BNDD,BNDE,TEST,BASE,SEL,RE,MPROB
  363. 3630  CHAIN "a:math",330
  364. 3640  BNDA=BND
  365. 3650  RETURN
  366. 3660  BNDB=BND
  367. 3670  RETURN
  368. 3680  BNDC=BND
  369. 3690  RETURN
  370. 3700  BNDD=BND
  371. 3710  RETURN
  372. 3720  BNDE=BND
  373. 3730  RETURN
  374. 3740  MBNDA=99:MBNDB=24:MBNDC=20:MBNDD=9:MBNDE=999
  375. 3750  LBNDA=3:LBNDB=3:LBNDC=4:LBNDD=9:LBNDE=9
  376. 3760  RETURN
  377. 3770  MBNDA=99:MBNDB=50:MBNDC=50:MBNDD=12:MBNDE=999
  378. 3780  LBNDA=3:LBNDB=3:LBNDC=4:LBNDD=3:LBNDE=9
  379. 3790  RETURN
  380. 3800  MBNDA=999:MBNDB=12:MBNDC=12:MBNDD=999:MBNDE=999
  381. 3810  LBNDA=3:LBNDB=3:LBNDC=4:LBNDD=3:LBNDE=9
  382. 3820  RETURN
  383. 3830  MBNDA=9999:MBNDB=999:MBNDC=9999:MBNDD=18:MBNDE=18
  384. 3840  LBNDA=9:LBNDB=9:LBNDC=9:LBNDD=8:LBNDE=8
  385. 3850  RETURN
  386. 3860  MBNDA=9999:MBNDB=999:MBNDC=24:MBNDD=24:MBNDE=24
  387. 3870  LBNDA=9:LBNDB=9:LBNDC=8:LBNDD=8:LBNDE=8
  388. 3880  RETURN
  389. 3890  MBNDA=9999:MBNDB=999:MBNDC=50:MBNDD=50:MBNDE=50
  390. 3900  LBNDA=4:LBNDB=4:LBNDC=8:LBNDD=8:LBNDE=8
  391. 3910  RETURN
  392. 3920  MBND=MBNDA
  393. 3930  LBND=LBNDA
  394. 3940  RETURN
  395. 3950  MBND=MBNDB
  396. 3960  LBND=LBNDB
  397. 3970  RETURN
  398. 3980  MBND=MBNDC
  399. 3990  LBND=LBNDC
  400. 4000  RETURN
  401. 4010  MBND=MBNDD
  402. 4020  LBND=LBNDD
  403. 4030  RETURN
  404. 4040  MBND=MBNDE
  405. 4050  LBND=LBNDE
  406. 4060  RETURN
  407. 4070  SV1$=SS$
  408. 4080  RETURN
  409. 4090  SV2$=SS$
  410. 4100  RETURN
  411. 4110  SV3$=SS$
  412. 4120  RETURN
  413. 4130  SV4$=SS$
  414. 4140  RETURN
  415. 4150  SV5$=SS$
  416. 4160  RETURN
  417. 4170  SV6$=SS$
  418. 4180  RETURN
  419. 4190  OPEN "I",#1,"tdata"
  420. 4200  INPUT#1,SV1$,SV2$,SV3$,SV4$,SV5$,SV6$
  421. 4210  CLOSE#1
  422. 4220  LOCATE 5,8:PRINT"File of saved programs:"
  423. 4230  LOCATE 8,8:PRINT"1. "SV1$
  424. 4240  LOCATE 10,8:PRINT"2. "SV2$
  425. 4250  LOCATE 12,8:PRINT"3. "SV3$
  426. 4260  LOCATE 14,8:PRINT"4. "SV4$
  427. 4270  LOCATE 16,8:PRINT"5. "SV5$
  428. 4280  LOCATE 18,8:PRINT"6. "SV6$
  429. 4290  LOCATE 21,8,1:PRINT"Which file do you want? ";
  430. 4300  E$=INPUT$(1)
  431. 4310  IF E$=CHR$(27) GOTO 4600
  432. 4320  IF E$<"1" OR E$>"6" GOTO 4300
  433. 4330  PRINT E$
  434. 4340  S$="SAV"+E$
  435. 4350  RETURN
  436. 4360  TYP$="1121211112" 'grade 1
  437. 4370  BNDA=9:BNDB=9:BNDC=10:BNDD=9:BNDE=99
  438. 4380  RETURN
  439. 4390  TYP$="1221113112" 'grade 2
  440. 4400  BNDA=99:BNDB=12:BNDC=18:BNDD=5:BNDE=999
  441. 4410  RETURN
  442. 4420  TYP$="1324311432" 'grade 3
  443. 4430  BNDA=999:BNDB=9:BNDC=5:BNDD=99:BNDE=999
  444. 4440  RETURN
  445. 4450  TYP$="1321421232" 'grade 4
  446. 4460  BNDA=9999:BNDB=99:BNDC=999:BNDD=12:BNDE=12
  447. 4470  RETURN
  448. 4480  TYP$="1421413243" 'grade 5
  449. 4490  BNDA=999:BNDB=99:BNDC=18:BNDD=18:BNDE=18
  450. 4500  RETURN
  451. 4510  TYP$="1321414242" 'grade 6
  452. 4520  BNDA=9999:BNDB=999:BNDC=24:BNDD=24:BNDE=24
  453. 4530  RETURN
  454. 4540  LOCATE 17,1,0
  455. 4550  FOR I=1 TO 7
  456. 4560  PRINT STRING$(40,CHR$(32));
  457. 4570  NEXT I
  458. 4580  PRINT STRING$(39,CHR$(32));
  459. 4590  RETURN
  460. 4600  CLS
  461. 4610  LOCATE 10,8:PRINT"What do you want to do?"
  462. 4620  LOCATE 13,8:PRINT"1. Correct your changes"
  463. 4630  LOCATE 15,8,0:PRINT"2. Return to the menu"
  464. 4640  E$=INPUT$(1)
  465. 4650  IF E$<"1" OR E$>"2" GOTO 4640
  466. 4660  IF E$="1" GOTO 250
  467. 4670  CLS
  468. 4680  LOCATE 13,11,0:PRINT"One moment, please!"
  469. 4690  CHAIN "A:tutor"
  470.