home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug037.ark / CHAIN.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  2.6 KB  |  80 lines
  1. %INCLUDE HEADER
  2. %CHAIN 50, 3350, 200, 275
  3. IF EXTRA1=-1 THEN GOTO 10
  4. DIM I(50)
  5. EXTRA1=-1
  6. INPUT "WHAT IS YOUR NAME? ";N$
  7.     GRADE.NAME$=N$
  8. IF END #1 THEN 1.1
  9.       OPEN GRADE.NAME$ AS 1:\
  10.     CLOSE 1:\
  11.     GOTO 1.2
  12. 1.1   CREATE GRADE.NAME$ AS 1:\
  13.     CLOSE 1
  14. 1.2   IF LEN(N$) > 3 THEN 10
  15. 10        PRINT CHR$(12)
  16.          PRINT "1   ADDITION OF FRACTIONS"
  17.          PRINT "2   SUBTRACTION OF FRACTIONS"
  18.          PRINT "3   MULTIPLICATION OF FRACTIONS"
  19.          PRINT "4   DIVISION OF FRACTIONS"
  20.          PRINT "5   ROUNDING OF DECIMALS"
  21.          PRINT "6   CHANGE MIXED FRACTIONS TO DECIMALS"
  22.          PRINT "7   SUBTRACTION OF DECIMAL NUMBERS"
  23.          PRINT "8   ADDITION OF DECIMAL NUMBERS"
  24.          PRINT "9   MULTIPLICATION OF DECIMAL NUMBERS"
  25.          PRINT "10  DIVISION OF DECIMAL NUMBERS"
  26.          PRINT "11  CONVERSION OF AREA TO METRIC EQUIVALENTS"
  27.          PRINT "12  COMPUTATION OF SIMPLE AREAS BY FORMULA"
  28.          PRINT "13  SIMPLE EQUATIONS WITH DECIMAL NUMBERS"
  29.          PRINT "14  SIMPLE EQUATIONS WITH WHOLE NUMBERS"
  30.          PRINT "15  CONVERSION OF VOLUME TO METRIC EQUIVALENTS"
  31.          PRINT "16  CONVERSION OF DISTANCE TO METRIC EQUIVALENTS"
  32.          PRINT "17  SIMPLE EQUATIONS WITH FRACTIONS"
  33.          PRINT "18  CONVERSION OF WEIGHT TO METRIC EQUIVALENTS"
  34.          PRINT "19  PERCENTAGES"
  35.          PRINT "20  ******************QUIT*********************"
  36. PRINT
  37. PRINT N$;", SOME OF THESE PROGRAMS WILL GIVE YOU HELP WHEN YOU ANSWER WITH -1"
  38. PRINT "You can quit any program by answering with a 'QUIT'."
  39. INPUT "PUT IN THE NUMBER OF THE PROGRAM THAT YOU WISH:";NUMBER%
  40. PRINT NUMBER%
  41. ON NUMBER% GOTO 20,30,40,50,60,70,80,90,100, \
  42.     110,120,130,140,150,160,170,180,190,200,500
  43.  
  44. 20       CHAIN "FRAC1"
  45. 30       CHAIN "FRAC2"
  46. 40       CHAIN "FRAC3"
  47. 50       CHAIN "FRAC4"
  48. 60       CHAIN "DEC1"
  49. 70       CHAIN "DEC2"
  50. 80       CHAIN "DEC3"
  51. 90       CHAIN "DEC4"
  52. 100      CHAIN "DEC5"
  53. 110      CHAIN "DEC6"
  54. 120      CHAIN "AREA"
  55. 130      CHAIN "FORMULA"
  56. 140      CHAIN "DECIMAL"
  57. 150      CHAIN "WHOLE"
  58. 160      CHAIN "VOLUME"
  59. 170      CHAIN "DISTANCE"
  60. 180      CHAIN "FRACTION"
  61. 190      CHAIN "WEIGHT"
  62. 200      CHAIN "PERCENT"
  63. 500:
  64.     OPEN GRADE.NAME$ AS 1 BUFF 8 RECS 128
  65.     TRUE%=-1
  66.     PRINT CHR$(12)                                      
  67.     PRINT "If you want your scores printed on the printer "
  68.     INPUT "please put in a 'Y' else hit return...";LINE Y$
  69.         IF Y$="Y" THEN LPRINTER
  70.        PRINT "DRILL TYPE";TAB(30);"% CORRECT","NUMBER OF PROBLEMS"
  71.        IF END #1 THEN 545
  72.     WHILE TRUE%
  73.        READ # 1; DRILL$,GRADE,NO.OF.PROBLEMS
  74.        PRINT DRILL$;TAB(30);GRADE,NO.OF.PROBLEMS
  75.  
  76. 530    WEND
  77. 545    CLOSE 1
  78.  
  79. 1000     END
  80.