home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk053 / chemist.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  3.5 KB  |  87 lines
  1. 1  REM   CHEMIST 8/83
  2. 2  REM       
  3. 3  REM   USING RATIO & PROPORTION
  4. 4  REM   TO SOLVE A CHEMISTRY PROBLEM
  5. 5  REM     
  6. 6  REM   IBM BASICA 64K  COLOR GRAPHICS
  7. 7  REM       
  8. 8  REM    MODIFIED BY LUCY JACKSON
  9. 9  REM       
  10. 10  REM    FROM BASIC COMPUTER GAMES
  11. 11  REM            
  12. 12  REM     ***********************
  13. 13  REM     *                     *
  14. 14  REM     *  SAN MATEO COUNTY   *
  15. 15  REM     * OFFICE OF EDUCATION *
  16. 16  REM     *                     *
  17. 17  REM     *   COMPUTER-USING    *
  18. 18  REM     *      EDUCATORS      *
  19. 19  REM     *                     *
  20. 20  REM     *      SOFTSWAP       *
  21. 21  REM     *                     *
  22. 22  REM     *   333 MAIN STREET   *
  23. 23  REM     *     REDWOOD CITY    *
  24. 24  REM     *       CA 94063      *
  25. 25  REM     *    (415)363-5472    *
  26. 26  REM     *                     *
  27. 27  REM     ***********************
  28. 28  REM     *                     *
  29. 29  REM     ***********************
  30. 30  REM     *PROGRAM MAY BE COPIED*
  31. 31  REM     *FOR EDUCATIONAL USE &*
  32. 32  REM     *MAY NOT BE SOLD.COPY-*
  33. 33  REM     *RIGHT 1983 CUE,INC   *
  34. 34  REM     ***********************
  35. 150  SCREEN 0,1: COLOR 11,0,11: WIDTH 40: KEY OFF: CLS
  36. 160  REM  IMPROVED VERSION OF CHEMIST
  37. 170  REM  USES VARIABLES IN RATIOS
  38. 180  DIM Q$(3),A$(3)
  39. 190  CLS : LOCATE 2,17: COLOR 12,0: PRINT "CHEMIST": COLOR 11,0,11
  40. 200  LOCATE 5,3: PRINT "The fictitious chemical";: COLOR 13,0: PRINT " KRYPTOCYANIC"
  41. 210  LOCATE 6,3: PRINT "ACID";: COLOR 11,0: PRINT " can be diluted only by the ratio"
  42. 220  X=RND(5)+5:Y=RND(3)+1
  43. 230  LOCATE 8,8:COLOR 1,0: PRINT X;: COLOR 11,0: PRINT "parts ";: COLOR 1,0: PRINT "WATER";: LOCATE 9,18: COLOR 11,0: PRINT " to": LOCATE 10,8: COLOR 13,0: PRINT Y;: COLOR 11,0: PRINT "parts ";: COLOR 13,0: PRINT "ACID.": COLOR 11,0
  44. 240  LOCATE 12,3: PRINT "If any other ratio is attempted, the"
  45. 250  LOCATE 13,3: PRINT "acid becomes ";: COLOR 14,0: PRINT "unstable, ";: COLOR 9,0: PRINT "lethal,": COLOR 11,0
  46. 260  LOCATE 14,8: PRINT "and soon ";: COLOR 4,0: PRINT "EXPLODES!!!" : COLOR 11,0
  47. 270  LOCATE 16,3: PRINT "Given the amount of acid, you must"
  48. 280  LOCATE 17,3: PRINT "decide how much water to add for"
  49. 290  LOCATE 18,3: PRINT "dilution."
  50. 300  LOCATE 21,13: PRINT "Press any key."
  51. 310  A$=INKEY$ : IF A$="" THEN GOTO 310
  52. 320  CLS : LOCATE 13,13: PRINT "If you miss....,";: LOCATE 16,8: COLOR 12,0: PRINT "you face the";: COLOR 31,0: PRINT " consequences!": COLOR 11,0,11
  53. 330  LOCATE 21,13: PRINT "Press any key"
  54. 340  A$=INKEY$: IF A$="" THEN GOTO 340
  55. 350  A=RND(50)+1
  56. 360  W=X*A/Y
  57. 370  CLS
  58. 380  LOCATE 5,8: COLOR 13,0: PRINT A;: COLOR 11,0: PRINT " LITERS of ";: COLOR 13,0: PRINT "ACID": COLOR 11,0
  59. 390  LOCATE 7,10: COLOR 11,0: PRINT "How many of ";: COLOR 1,0: INPUT "WATER";R$ :R=VAL(R$):IF R=0 AND R$<>"0" THEN CLS:GOTO 380 ELSE COLOR 11,0
  60. 400  D=ABS(W-R)
  61. 410  IF D>W/20 THEN 450
  62. 420  LOCATE 12,15: COLOR 4,0: PRINT "GOOD JOB!!": LOCATE 14,8: COLOR 11,0:PRINT "You may breathe now, but"
  63. 430  LOCATE 16,8: COLOR 13,0: PRINT "DON'T INHALE the FUMES!": COLOR 11,0
  64. 440  GOTO 520
  65. 450  P$="t200;o4l16b;a;g;f;e;d;c"
  66. 460  LOCATE 10,10: COLOR 31,0: PRINT "S I Z Z Z Z L E!!!!": FOR M=1 TO 5: PLAY "mb"+P$: NEXT : COLOR 11,0: LOCATE 12,10: PRINT "You have just been"
  67. 470  LOCATE 13,10: COLOR 2,0: PRINT "DESALINATED ";: COLOR 11,0: PRINT "INTO A": LOCATE 14,6: COLOR 1,0: PRINT "BLOB ";: COLOR 11,0: PRINT "OF ";: COLOR 29,0: PRINT "QUIVERING";: COLOR 13,0: PRINT " PROTOPLASM !!!": COLOR 11,0
  68. 480  T=T+1
  69. 490  IF T=9 THEN 550
  70. 500  LOCATE 16,8: PRINT "HOWEVER, you may TRY again"
  71. 510  LOCATE 17,12: PRINT "with another LIFE."
  72. 520  LOCATE 19,13: PRINT "Try again? (Y/N)"
  73. 530  A$=INKEY$: IF A$="y" OR A$="Y" THEN 320
  74. 540  IF A$="" THEN GOTO 530 ELSE IF A$<>"n" AND A$<>"N" THEN 530
  75. 550  CLS: LOCATE 8,5: PRINT "Your 9 lives may be used, but you"
  76. 560  LOCATE 9,5: PRINT "will long be remembered for your"
  77. 570  LOCATE 10,5: PRINT "contributions in the field of"
  78. 580  LOCATE 11,10: COLOR 12,0: PRINT "COMIC BOOK CHEMISTRY.": COLOR 11,0
  79. 590  LOCATE 14,15: PRINT "BYE . .";: COLOR 14,0: PRINT STRING$(3,1): COLOR 11,0
  80. 600  LOCATE 18,6:PRINT  "Is anyone waiting to try? <Y/N>"
  81. 610  A$=INKEY$: IF A$="" THEN GOTO 610
  82. 620  IF A$="Y" OR A$="y" THEN RUN
  83. 622  IF A$="n" OR A$="N" THEN GOTO 630
  84. 625  GOTO 610
  85. 630  LOCATE 21,15: PRINT "Loading menu.."
  86. 640  CHAIN "MENU",170: RUN
  87.