home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk053 / shortdiv.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.9 KB  |  101 lines
  1. 1  REM   SHORTDIV  7/83
  2. 2  REM
  3. 3  REM   DRILL ON SHORT DIVISION
  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  SCREEN 0,1 : WIDTH 40: KEY OFF: COLOR 14,0,14 : CLS
  34. 110  R=0 : W=0
  35. 120  DIM K$(20), C$(20), A$(20)
  36. 130  READ N
  37. 140  LOCATE 4,10: PRINT CHR$(218);STRING$(19,196);CHR$(191)
  38. 150  LOCATE 5,10: PRINT CHR$(179);"  SHORT DIVISION ";TAB(30);CHR$(179)
  39. 160  LOCATE 6,10: PRINT CHR$(179);"  WITH REMAINDERS  "TAB(30);CHR$(179)
  40. 170  LOCATE 7,10: PRINT CHR$(192);STRING$(19,196);CHR$(217)
  41. 180  LOCATE 9,5: LINE INPUT "Please enter your name: ",N$
  42. 190  LOCATE 12,3: PRINT N$;","
  43. 200  LOCATE 14,3: PRINT "Type the answer to the problem by"
  44. 210  LOCATE 15,3: PRINT "entering the whole number, leave a"
  45. 220  LOCATE 16,3: PRINT "space, type r, leave a space, and"
  46. 230  LOCATE 17,3: PRINT "enter the remainder. Press <ENTER>."
  47. 240  LOCATE 19,8: PRINT "EXAMPLE: 45 r 6  <ENTER>"
  48. 250  LOCATE 21,13: COLOR 1,0: PRINT "Press any key"
  49. 260  LOCATE 22,11: COLOR 4,0: PRINT "Press <ESC> to end"
  50. 270  A$=INKEY$
  51. 280  IF A$="" THEN GOTO 270
  52. 290  IF A$=CHR$(27) THEN GOTO 580
  53. 300  FOR I=1 TO N
  54. 310      READ K$(I),C$(I)
  55. 320  NEXT I
  56. 330  FOR I=1 TO N : CLS : LOCATE 4,5: COLOR 11,0: PRINT N$;", enter the answer:"
  57. 340  LOCATE 8,8: PRINT K$(I);" = "
  58. 350  LOCATE 8,18: LINE INPUT A$(I):Z$=A$(I):GOSUB 10000:A$(I)=Z$
  59. 360      IF A$(I)=CHR$(27) THEN GOTO 580
  60. 370      IF A$(I)=C$(I) THEN LOCATE 12,5: PRINT "RIGHT, ";N$;" !": R=R+1: GOTO 450
  61. 380      LOCATE 12,5
  62. 390      PRINT "WRONG, ";N$;" !"
  63. 400      LOCATE 14,5
  64. 410      PRINT K$(I);" = ";C$(I)
  65. 420      W=W+1
  66. 430      IF A$(I)=CHR$(27) THEN GOTO 580
  67. 440      FOR M=1 TO 1000: NEXT M
  68. 450      LOCATE 21,13: COLOR 1,0: PRINT "Press any key": LOCATE 22,11: COLOR 4,0: PRINT "Press <ESC> to end"
  69. 460  A$=INKEY$: IF A$="" THEN GOTO 460
  70. 470  IF A$=CHR$(27) THEN GOTO 580
  71. 480   NEXT I
  72. 490   CLS
  73. 500  T=R+W
  74. 510  G=INT(R/T*100)
  75. 520  LOCATE 10,10
  76. 530  PRINT N$;"'s SCORE: ";G;" %"
  77. 540  LOCATE 21,13: PRINT "Press any key"
  78. 550  A$=INKEY$: IF A$="" THEN GOTO 550
  79. 560  DATA 8
  80. 570  DATA 254 / 3,84 r 2,366 / 8,45 r 6,38 / 7,5 r 3,672 / 8,84,782 / 6,130 r 2,333 / 6,55 r 3,298 / 4,74 r 2,1234 / 5,246 r 4
  81. 580  CLS: LOCATE 10,3: PRINT "Do you want to stop? <Y/N>"
  82. 590  A$=INKEY$: IF A$="" THEN GOTO 590
  83. 600  IF A$="Y" OR A$="y" THEN GOTO 630
  84. 610  IF A$="N" OR A$="n" THEN RUN
  85. 620  GOTO 590
  86. 630  LOCATE 15,3: PRINT "Is anyone else waiting to play? <Y/N>"
  87. 640  A$=INKEY$: IF A$="" THEN GOTO 640
  88. 650  IF A$="Y" OR A$="y" THEN RUN
  89. 660  IF A$="N" OR A$="n" THEN GOTO 680
  90. 670  GOTO 640
  91. 680  LOCATE 21,13: PRINT "Loading menu..."
  92. 690  CHAIN "menu",170: RUN
  93. 10000  REM
  94. 10010  Z2$="":FOR VI=1 TO LEN(Z$)
  95. 10020  Z1$=MID$(Z$,VI,1)
  96. 10030  IF Z1$="R"THEN Z2$=Z2$+"r":GOTO 10050
  97. 10040  Z2$=Z2$+Z1$
  98. 10050  NEXT VI
  99. 10060  Z$=Z2$
  100. 10070  RETURN
  101.