home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk053 / months.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.6 KB  |  93 lines
  1. 1  REM   MONTHS    8/83
  2. 2  REM
  3. 3  REM   DRILL ON DAYS IN EACH MONTH
  4. 4  REM
  5. 5  REM   IBM MICROSOFT BASICA    64K
  6. 6  REM
  7. 7  REM   DONATED TO IBM CUE SOFTSWAP
  8. 8  REM
  9. 9  REM   By Lucy Jackson
  10. 10  REM
  11. 11  REM  ***********************
  12. 12  REM  *                     *
  13. 13  REM  *  SAN MATEO COUNTY   *
  14. 14  REM  * OFFICE OF EDUCATION *
  15. 15  REM  *        AND          *
  16. 16  REM  *   COMPUTER-USING    *
  17. 17  REM  *      EDUCATORS      *
  18. 18  REM  *                     *
  19. 19  REM  *      SOFTSWAP       *
  20. 20  REM  *                     *
  21. 21  REM  *   333 MAIN STREET   *
  22. 22  REM  *     REDWOOD CITY    *
  23. 23  REM  *       CA 94063      *
  24. 24  REM  *   (415) 363-5472    *
  25. 25  REM  *                     *
  26. 26  REM  *                     *
  27. 27  REM  ***********************
  28. 28  REM  *PROGRAM MAY BE COPIED*
  29. 29  REM  *FOR EDUCATIONAL USE &*
  30. 30  REM  *MAY NOT BE SOLD.COPY-*
  31. 31  REM  *RIGHT 1983 CUE,INC   *
  32. 32  REM  ***********************
  33. 100  CLEAR: SCREEN 0,1: KEY OFF: WIDTH 40: COLOR 11,0,11: CLS
  34. 110  LOCATE 3,15: PRINT CHR$(218);STRING$(9,196);CHR$(191)
  35. 120  LOCATE 4,15: PRINT CHR$(179);TAB(25);CHR$(179)
  36. 130  LOCATE 5,15: PRINT CHR$(179);"  MONTHS ";TAB(25);CHR$(179)
  37. 140  LOCATE 6,15: PRINT CHR$(179);TAB(25);CHR$(179)
  38. 150  LOCATE 7,15: PRINT CHR$(192);STRING$(9,196);CHR$(217)
  39. 160  LOCATE 10,5: PRINT "THIRTY days hath SEPTEMBER,"
  40. 170  LOCATE 11,5: PRINT "APRIL, JUNE, and NOVEMBER."
  41. 180  LOCATE 12,5: PRINT "All the rest have THIRTY-ONE,"
  42. 190  LOCATE 13,5: PRINT "But FEBRUARY has TWENTY-EIGHT,"
  43. 200  LOCATE 14,5: PRINT "Except on LEAP YEAR, TWENTY-NINE."
  44. 210  LOCATE 17,5: PRINT "When the name of a month appears"
  45. 220  LOCATE 18,5: PRINT "on the screen, enter the number"
  46. 230  LOCATE 19,5: PRINT "of days in that month."
  47. 240  GOSUB 550
  48. 250  CLS
  49. 260  DATA JANUARY,31
  50. 270  DATA FEBRUARY,28
  51. 280  DATA MARCH,31
  52. 290  DATA APRIL,30
  53. 300  DATA MAY,31
  54. 310  DATA JUNE,30
  55. 320  DATA JULY,31
  56. 330  DATA AUGUST,31
  57. 340  DATA SEPTEMBER,30
  58. 350  DATA OCTOBER,31
  59. 360  DATA NOVEMBER,30
  60. 370  DATA DECEMBER,31
  61. 380  R=INT(RND(12)*12+1)
  62. 400  FOR L=1 TO R
  63. 410  READ S$,C$
  64. 420  NEXT L
  65. 430  CLS
  66. 440  LOCATE 6,10: COLOR 13,0: PRINT "MONTH is ";: COLOR 1,0: PRINT S$
  67. 450  LOCATE 10,10: COLOR 14,0: INPUT "How many days ";D$
  68. 460  D=VAL(D$): IF D<28 OR D>31 THEN COLOR 4,0: LOCATE 13,10: PRINT "Use numbers 28 to 31.": LOCATE 14,15: PRINT "Try again.":GOSUB 550: GOTO 430
  69. 470  IF C$="28" THEN C1$="Twenty-eight"
  70. 480  IF C$="30" THEN C1$="Thirty"
  71. 490  IF C$="31" THEN C1$="Thirty-one"
  72. 500  IF D$=C$ THEN LOCATE 13,16: PRINT "CORRECT" ELSE LOCATE 13,17: PRINT "WRONG"
  73. 510  LOCATE 15,8: PRINT C1$;" days hath ";S$;"."
  74. 520  GOSUB 550
  75. 530  RESTORE
  76. 540  GOTO 380
  77. 550  LOCATE 21,13: COLOR 1,0: PRINT "Press any key": LOCATE 22,11: COLOR 4,0: PRINT "Press <ESC> to end"
  78. 560  A$=INKEY$: IF A$="" THEN GOTO 560
  79. 570  IF A$=CHR$(27) THEN GOTO 590
  80. 580  RETURN
  81. 590  CLS: LOCATE 10,3: PRINT "Do you want to stop? <Y/N>"
  82. 600  A$=INKEY$: IF A$="" THEN GOTO 600
  83. 610  IF A$="y" OR A$="Y" THEN GOTO 640
  84. 620  IF A$="n" OR A$="N" THEN RETURN
  85. 630  GOTO 600
  86. 640  LOCATE 15,3: PRINT "Is anyone waiting to play? <Y/N>"
  87. 650  A$=INKEY$: IF A$="" THEN GOTO 650
  88. 660  IF A$="y" OR A$="Y" THEN RUN
  89. 670  IF A$="n" OR A$="N" THEN GOTO 690
  90. 680  GOTO 650
  91. 690  LOCATE 21,13: PRINT "Loading menu..."
  92. 700  CHAIN "menu",170: RUN
  93.