home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk017 / sqm4.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-06-03  |  3.1 KB  |  118 lines
  1. 10  CLS
  2. 20  SCREEN 7 
  3. 30  OPEN "SQM4.1" FOR INPUT AS 1
  4. 40  INPUT#1,Z,X,F,Y
  5. 50  FOR L=X TO Y:FOR I=Z TO F
  6. 60  INPUT#1,A:PSET(I,L),A
  7. 70  NEXT I:NEXT L
  8. 80  CLOSE 1
  9. 90  LOCATE 15,1
  10. 100  PRINT"You scrape some of the slime off of "
  11. 110  PRINT"your shoe, and make a wet mount out of "
  12. 120  PRINT"it. Then you look at it through the    "
  13. 130  PRINT"microscope, and find..."
  14. 140  FOR I=1 TO 70000:NEXT I
  15. 150  CLS
  16. 160  OPEN "SQM4.2" FOR INPUT AS 1
  17. 170  INPUT#1,Z,X,F,Y
  18. 180  FOR L=X TO Y:FOR I=Z TO F
  19. 190  INPUT#1,A:PSET(I,L),A
  20. 200  NEXT I:NEXT L
  21. 210  CLOSE 1
  22. 220  LOCATE 15,1
  23. 230  PRINT"Hm. Fascinating! These creatures are   "
  24. 240  PRINT"clearly animals, as they have no cell  "
  25. 250  PRINT"wall. But, they seem to photosynthesise"
  26. 260  PRINT"because there are chloroplasts in their"
  27. 270  PRINT"cells! What can it mean?"
  28. 280  FOR I=1 TO 80000:NEXT I
  29. 290  LOCATE 15,1
  30. 300  PRINT"The puzzle is becoming curiouser and   "
  31. 310  PRINT"curiouser. It is not uncommon to see   "
  32. 320  PRINT"photosynthetic animal organisms, but   "
  33. 330  PRINT"you have never seen one this large     "
  34. 340  PRINT"before! Where did they come from?"
  35. 350  FOR I=1 TO 70000:NEXT I
  36. 360  CLS
  37. 370  OPEN "SQM3.1" FOR INPUT AS 1
  38. 380  INPUT#1,Z,X,F,Y
  39. 390  FOR L=X TO Y:FOR I=Z TO F
  40. 400  INPUT#1,A:PSET(I,L),A
  41. 410  NEXT I:NEXT L
  42. 420  CLOSE 1
  43. 430  LOCATE 15,1
  44. 440  PRINT"You are certain that these creatures   "
  45. 450  PRINT"are somehow connected to the sudden    "
  46. 460  PRINT"dissappearence of everyone in school.  "
  47. 470  PRINT"You head on down to the Principal's    "
  48. 480  PRINT"office once again, noting with interest"
  49. 490  PRINT"the UFO parked outside."
  50. 500  FOR I=1 TO 80000:NEXT I
  51. 505  CLS
  52. 510  FOR I=1 TO 10000:NEXT I
  53. 520  OPEN "SQM3.3" FOR INPUT AS 1
  54. 530  INPUT#1,Z,X,F,Y
  55. 540  FOR L=X TO Y:FOR I=Z TO F
  56. 550  INPUT#1,A:PSET(I,L),A
  57. 560  NEXT I:NEXT L
  58. 570  CLOSE 1
  59. 580  LOCATE 15,1:PRINT"      THE U.F.O. PARKED OUTSIDE??!"
  60. 590  FOR I=1 TO 20000:NEXT I:CLS
  61. 600  OPEN "SQM4.3" FOR INPUT AS 1
  62. 610  INPUT#1,Z,X,F,Y
  63. 620  FOR L=X TO Y:FOR I=Z TO F
  64. 630  INPUT#1,A:PSET(I,L),A
  65. 640  NEXT I:NEXT L
  66. 650  CLOSE 1
  67. 660  LOCATE 15,1
  68. 670  PRINT"Indeed, an enormous Unidentified Flying"
  69. 680  PRINT"Object is hovering over the school,    "
  70. 690  PRINT"lighting up the night with the blaze   "
  71. 700  PRINT"from it's glowing engines."
  72. 710  FOR I=1 TO 60000:NEXT I
  73. 720  LOCATE 15,1
  74. 730  PRINT"You are now sure that, wherever all the"
  75. 740  PRINT"school people have gotten to, the alien"
  76. 750  PRINT"beings must have put them there. And   "
  77. 760  PRINT"they couldn't get you because you were "
  78. 770  PRINT"hidden in the closet!                  "
  79. 780  FOR I=1 TO 80000:NEXT I
  80. 790  CLS
  81. 800  OPEN "SQM3.1" FOR INPUT AS 1
  82. 810  INPUT#1,Z,X,F,Y
  83. 820  FOR L=X TO Y:FOR I=Z TO F
  84. 830  INPUT#1,A:PSET(I,L),A
  85. 840  NEXT I:NEXT L
  86. 850  CLOSE 1
  87. 860  LOCATE 15,1
  88. 870  PRINT"You once again hotfoot it down the hall"
  89. 880  PRINT"(your feet are by now probably so hot  "
  90. 890  PRINT"they could sublimate) in the direction "
  91. 900  PRINT"of the Cafeteria. There are enormous   "
  92. 910  PRINT"windows there... and if the aliens are "
  93. 920  PRINT"capable of locomotion and are also     "
  94. 930  PRINT"photosynthetic, that is where they will"
  95. 940  PRINT"be found!!!"
  96. 950  FOR I=1 TO 80000:NEXT I:CLS
  97. 1000  OPEN "SQM4.4" FOR INPUT AS 1
  98. 1010  INPUT#1,Z,X,F,Y
  99. 1020  FOR L=X TO Y:FOR I=Z TO F
  100. 1030  INPUT#1,A:PSET(I,L),A
  101. 1040  NEXT I:NEXT L
  102. 1050  CLOSE 1
  103. 1060  LOCATE 15,1
  104. 1070  PRINT"Uh, oh! Apparently these creatures     "
  105. 1080  PRINT"protect their interests. Two Alien Leaf"
  106. 1090  PRINT"Forms block the entrance to the Caf.   "
  107. 1100  PRINT"Now how are you going to get past these"
  108. 1110  PRINT"two uglies?"
  109. 1120  FOR I=1 TO 40000:NEXT I
  110. 1130  CLS
  111. 1140  PRINT:PRINT:PRINT:PRINT:PRINT
  112. 1150  PRINT"ANSWER: You aren't. You beat a quick   "
  113. 1160  PRINT"retreat and end up in the Principal's  "
  114. 1170  PRINT"office. (Hey, this is where you were   "
  115. 1180  PRINT"going in the first place!)"
  116. 1190  FOR I=1 TO 60000:NEXT I
  117. 1200  CHAIN "sq4"
  118.