home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCMATH / MTUTOR / MTUTOR.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  1.1 KB  |  59 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 "math",230
  40. 400  CHAIN "math"
  41. 410  CHAIN "setup"
  42. 420  CHAIN "instr"
  43. 430  CLS
  44. 431  LOCATE 13,13,0:PRINT"Have a nice day!"
  45. 433  LOCATE 23,1
  46. 435  WIDTH 80:SCREEN 0,0,0
  47. 436  KEY 1,"LIST"
  48. 437  KEY 2,"RUN"+CHR$(13)
  49. 438  KEY 3,"LOAD"+CHR$(34)
  50. 439  KEY 4,"SAVE"+CHR$(34)
  51. 440  KEY 5,"CONT"+CHR$(13)
  52. 441  KEY 6,",LPT1:"
  53. 442  KEY 7,"TRON"+CHR$(13)
  54. 443  KEY 8,"TROFF"+CHR$(13)
  55. 444  KEY 9,"KEY"
  56. 450  KEY 10,"SCREEN 0,0,0"
  57. 460  KEY ON:END
  58. 470  GOT0 430
  59.