home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk118 / tutor.bas (.txt) < prev   
Encoding:
GW-BASIC  |  1983-03-19  |  896 b   |  48 lines
  1. 10  KEY OFF
  2. 20  KEY 1,""
  3. 30  KEY 2,""
  4. 40  KEY 3,""
  5. 50  KEY 4,""
  6. 60  KEY 5,""
  7. 70  KEY 6,""
  8. 80  KEY 7,""
  9. 90  KEY 8,""
  10. 100  KEY 9,""
  11. 110  KEY 10,""
  12. 120  SCREEN 0,0,0
  13. 130  WIDTH 40
  14. 140  GRD=0
  15. 150  FORM$="1213254321"
  16. 160  TLIMIT$="00:01:00"
  17. 170  TEST=25
  18. 180  MPROB=0
  19. 190  BASE=0
  20. 200  CLS
  21. 210  LOCATE 1,10,0:PRINT"Welcome to MATH TUTOR"
  22. 220  LOCATE 3,19:PRINT"by"
  23. 230  LOCATE 5,12:PRINT"Joseph C. Barteck"
  24. 240  LOCATE 8,10:PRINT"What would you like?"
  25. 250  LOCATE 11,10:PRINT"1. Instructions"
  26. 260  LOCATE 13,10:PRINT"2. Math Exercise"
  27. 270  LOCATE 15,10:PRINT"3. Math Test"
  28. 280  LOCATE 17,10:PRINT"4. Saved Program"
  29. 290  LOCATE 19,10:PRINT"5. Program Set-Up"
  30. 300  LOCATE 21,10:PRINT"6. Quit"
  31. 310  LOCATE 24,10,0:PRINT"To return, press ESC";
  32. 320  E$=INPUT$(1)
  33. 330  IF E$<"1" OR E$>"6" GOTO 320
  34. 340  SEL=VAL(E$)
  35. 350  COMMON GRD,SEL,FORM$,TLIMIT$,TEST,MPROB,BASE
  36. 360  CLS
  37. 370  LOCATE 13,11,0:PRINT"One moment, please!"
  38. 380  ON SEL GOTO 420,390,390,400,410,430
  39. 390  CHAIN "a:math",230
  40. 400  CHAIN "a:math"
  41. 410  CHAIN "a:setup"
  42. 420  CHAIN "a:instr"
  43. 430  CLS
  44. 440  LOCATE 13,13,0:PRINT"Have a nice day!"
  45. 450  LOCATE 23,1
  46. 460  END
  47. 470  430
  48.