home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk017 / edu017.exe / SQM6.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1991-06-04  |  1.3 KB  |  50 lines
  1. 10  CLS
  2. 20  SCREEN 7
  3. 30  COLOR 15
  4. 40  OPEN "SQM6.1" FOR INPUT AS 1
  5. 50  INPUT#1,Z,X,F,Y
  6. 60  FOR L=X TO Y:FOR I=Z TO F
  7. 70  INPUT#1,A:PSET(I,L),A
  8. 80  NEXT I:NEXT L:CLOSE 1
  9. 90  LOCATE 15,1
  10. 100  PRINT"Knowing that good old H2O is needed for"
  11. 110  PRINT"photosynthesis, you spill some of the  "
  12. 120  PRINT"Perrier on the ground. The Alien Leaf  "
  13. 130  PRINT"Forms grow right toward it, and you    "
  14. 140  PRINT"lead them right into..."
  15. 150  FOR I=1 TO 70000:NEXT I
  16. 160  CLS
  17. 170  OPEN "SQM6.2" FOR INPUT AS 1
  18. 180  INPUT#1,Z,X,F,Y
  19. 190  FOR L=X TO Y:FOR I=Z TO F
  20. 200  INPUT#1,A:PSET(I,L),A
  21. 210  NEXT I:NEXT L:CLOSE 1
  22. 220  LOCATE 15,1
  23. 230  PRINT"            THE POOL!!!"
  24. 240  FOR I=1 TO 40000:NEXT I
  25. 250  CLS
  26. 260  OPEN "SQM6.3" FOR INPUT AS 1
  27. 270  INPUT#1,Z,X,F,Y
  28. 280  FOR L=X TO Y:FOR I=Z TO F
  29. 290  INPUT#1,A:PSET(I,L),A
  30. 300  NEXT I:NEXT L:CLOSE 1
  31. 310  LOCATE 15,1
  32. 320  PRINT"The freshly chloreinated liquid is only"
  33. 330  PRINT"26 percent water! Water goes from the  "
  34. 340  PRINT"high concentration in the aliens' cells"
  35. 350  PRINT"to the lower concentration in the water"
  36. 360  PRINT"by osmosis, and the Aliens go URP!"
  37. 370  FOR I=1 TO 100000:NEXT I
  38. 380  CLS
  39. 390  PRINT:PRINT:PRINT:PRINT
  40. 400  PRINT"WITH THE ALIEN LEAF FORMS OUT OF THE   "
  41. 410  PRINT"PICTURE, HARRY PLASMA ADVANCES ON THE  "
  42. 420  PRINT"CAFETERIA, DETERMINED TO DESTROY THIS  "
  43. 430  PRINT"ALIEN MENACE ONCE AND FOR ALL. STOPPING"
  44. 440  PRINT"OFF TO PICK UP SOME WEAPONRY, ALL HE   "
  45. 450  PRINT"CAN FIND IS A CAN OF SPRAY PAINT. CAN  "
  46. 460  PRINT"HE DO IT? PROBABLY NOT, BUT LET'S ALL  "
  47. 470  PRINT"WATCH HIM TRY..."
  48. 480  FOR I=1 TO 100000:NEXT I
  49. 490  CHAIN "SQ6"
  50.