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 / SQ4.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-06-04  |  4.9 KB  |  140 lines
  1. 10  CLS
  2. 20  SCREEN 7
  3. 30  KEY OFF
  4. 40  OPEN "P4" 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  DIM MOV(9000)
  10. 100  OPEN "RM4" FOR INPUT AS 1
  11. 110  FOR L=10 TO 170 STEP 10
  12. 120  FOR I=0 TO 310 STEP 10
  13. 130  INPUT#1,A
  14. 140  B=A*10:D=180
  15. 150  IF B>309 THEN D=190:B=B-320
  16. 160  GET (B,D)-(B+9,D+9),MOV:A=0
  17. 170  PUT (I,L),MOV,PSET
  18. 180  NEXT I:NEXT L:CLOSE 1
  19. 190  LOCATE 15,1
  20. 200  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  21. 210  PRINT"OPEN Well, well, well. It would appear   OPEN"
  22. 220  PRINT"OPEN that you have run into the school   OPEN"
  23. 230  PRINT"OPEN swimming pool. The scent of fresh   OPEN"
  24. 240  PRINT"OPEN chlorine gas fills the air as you   OPEN"
  25. 250  PRINT"OPEN enter the chamber. Nobody here.     OPEN"
  26. 260  PRINT"OPEN                                     OPEN"
  27. 270  PRINT"OPEN                                     OPEN"
  28. 280  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  29. 290  A$=INKEY$:IF A$="" THEN GOTO 290
  30. 295  LOCATE 15,1
  31. 300  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  32. 310  PRINT"OPEN You breifly consider checking to    OPEN"
  33. 320  PRINT"OPEN see if there's anyone in the womens OPEN"
  34. 330  PRINT"OPEN changeroom, but decide against it.  OPEN"
  35. 340  PRINT"OPEN You have a far more important task- OPEN"
  36. 350  PRINT"OPEN how to defeat the Leaf Forms.       OPEN"
  37. 360  PRINT"OPEN                                     OPEN"
  38. 370  PRINT"OPEN                                     OPEN"
  39. 380  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  40. 390  LOCATE 22,3:INPUT A$
  41. 400  IF LEFT$(A$,4)="LOOK" THEN GOSUB 1000
  42. 410  IF LEFT$(A$,4)="TAKE" THEN GOSUB 2000
  43. 420  IF LEFT$(A$,3)="USE" THEN GOSUB 3000
  44. 430  GOTO 390
  45. 1000  IF RIGHT$(A$,4)="POOL" THEN GOSUB 1100
  46. 1010  IF RIGHT$(A$,5)="WATER" OR RIGHT$(A$,8)="CHLORINE" THEN GOSUB 1100
  47. 1050  RETURN
  48. 1100  LOCATE 15,1
  49. 1105  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  50. 1110  PRINT"OPEN Hey! This pool has just been        OPEN"
  51. 1120  PRINT"OPEN chlorinated. This must be about     OPEN"
  52. 1130  PRINT"OPEN 27% water just now! And that gives  OPEN
  53. 1140  PRINT"OPEN you a brilliant idea for some alien OPEN"
  54. 1150  PRINT"OPEN disposal. Only one thing left to    OPEN"
  55. 1160  PRINT"OPEN worry about - how to lure them here OPEN"
  56. 1170  PRINT"OPEN without arousing their suspicions.  OPEN"
  57. 1180  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  58. 1190  A$=INKEY$:IF A$="" THEN GOTO 1190
  59. 1195  CHAIN "sq5"
  60. 1200  LOCATE 15,1
  61. 1205  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  62. 1210  PRINT"OPEN The shelves contain lots of stuff   OPEN"
  63. 1220  PRINT"OPEN used for teaching SNC1AE. Searching OPEN"
  64. 1230  PRINT"OPEN without much interest, something    OPEN
  65. 1240  PRINT"OPEN catches your eye - a jar of sodium. OPEN"
  66. 1250  PRINT"OPEN Hmmm - maybe that'd be useful...    OPEN"
  67. 1260  PRINT"OPEN                                     OPEN"
  68. 1270  PRINT"OPEN                                     OPEN"
  69. 1280  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  70. 1290  RETURN
  71. 1300  LOCATE 15,1
  72. 1305  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  73. 1310  PRINT"OPEN Looking through the keyhole you can OPEN"
  74. 1320  PRINT"OPEN see your class enjoying themselves- OPEN"
  75. 1330  PRINT"OPEN when suddenly, a bright flash of    OPEN
  76. 1340  PRINT"OPEN light fills the room. When you look OPEN"
  77. 1350  PRINT"OPEN back, the class is GONE!            OPEN"
  78. 1360  PRINT"OPEN                                     OPEN"
  79. 1370  PRINT"OPEN                                     OPEN"
  80. 1380  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  81. 1390  RETURN
  82. 1400  LOCATE 15,1
  83. 1405  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  84. 1410  PRINT"OPEN Ah, sodium! One of your favourites. OPEN"
  85. 1420  PRINT"OPEN This wonderful stuff is great for   OPEN"
  86. 1430  PRINT"OPEN labs. There is a warning label on   OPEN
  87. 1440  PRINT"OPEN it which reads - '*@#! If you value OPEN"
  88. 1450  PRINT"OPEN your life do not get wet.'          OPEN"
  89. 1460  PRINT"OPEN                                     OPEN"
  90. 1470  PRINT"OPEN                                     OPEN"
  91. 1480  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  92. 1490  RETURN
  93. 2000  RETURN
  94. 2100  LOCATE 15,1
  95. 2105  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  96. 2110  PRINT"OPEN OK. If you must...                  OPEN"
  97. 2120  PRINT"OPEN                                     OPEN"
  98. 2130  PRINT"OPEN                                     OPEN"
  99. 2140  PRINT"OPEN                                     OPEN"
  100. 2150  PRINT"OPEN                                     OPEN"
  101. 2160  PRINT"OPEN                                     OPEN"
  102. 2170  PRINT"OPEN                                     OPEN"
  103. 2180  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  104. 2190  RETURN
  105. 2200  LOCATE 15,1
  106. 2205  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  107. 2210  PRINT"OPEN YOU CAN'T GET THAT, SORRY.          OPEN"
  108. 2220  PRINT"OPEN                                     OPEN"
  109. 2230  PRINT"OPEN                                     OPEN"
  110. 2240  PRINT"OPEN                                     OPEN"
  111. 2250  PRINT"OPEN                                     OPEN"
  112. 2260  PRINT"OPEN                                     OPEN"
  113. 2270  PRINT"OPEN                                     OPEN"
  114. 2280  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  115. 2290  RETURN
  116. 3000  RETURN
  117. 3100  LOCATE 15,1
  118. 3105  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  119. 3110  PRINT"OPEN Cleverly, you pour the sodium into  OPEN"
  120. 3120  PRINT"OPEN the lock. Then, you look around for OPEN"
  121. 3130  PRINT"OPEN some water... hey wait a sec - you  OPEN"
  122. 3140  PRINT"OPEN don't HAVE any water! Oh well...    OPEN"
  123. 3150  PRINT"OPEN you spit on the lock.               OPEN"
  124. 3160  PRINT"OPEN                                     OPEN"
  125. 3170  PRINT"OPEN                                     OPEN"
  126. 3180  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  127. 3190  A$=INKEY$:IF A$="" THEN GOTO 3190
  128. 3195  CHAIN "sqm2"
  129. 3200  LOCATE 15,1
  130. 3205  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  131. 3210  PRINT"OPEN YOU CAN'T USE THAT, SORRY.          OPEN"
  132. 3220  PRINT"OPEN                                     OPEN"
  133. 3230  PRINT"OPEN                                     OPEN"
  134. 3240  PRINT"OPEN                                     OPEN"
  135. 3250  PRINT"OPEN                                     OPEN"
  136. 3260  PRINT"OPEN                                     OPEN"
  137. 3270  PRINT"OPEN                                     OPEN"
  138. 3280  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  139. 3290  RETURN
  140.