home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk017 / sq5.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-06-03  |  5.0 KB  |  143 lines
  1. 10  CLS
  2. 20  SCREEN 7
  3. 30  KEY OFF
  4. 40  OPEN "P5" 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 "RM5" 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 You enter the Principal's office.   OPEN"
  22. 220  PRINT"OPEN This is the only place in the whole OPEN"
  23. 230  PRINT"OPEN school you haven't been in yet, and OPEN"
  24. 240  PRINT"OPEN there surely must be something that OPEN"
  25. 250  PRINT"OPEN will lure the leaf forms to their   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 timely demise here. You look around OPEN"
  33. 320  PRINT"OPEN the room. There's a drinks cabinet  OPEN"
  34. 330  PRINT"OPEN in one corner, and a lot of nice    OPEN"
  35. 340  PRINT"OPEN interior decorating work. The new   OPEN"
  36. 350  PRINT"OPEN Principal must be a weirdo.         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)="OPEN" THEN GOSUB 2000
  43. 420  IF LEFT$(A$,3)="USE" THEN GOSUB 3000
  44. 430  GOTO 390
  45. 1000  IF RIGHT$(A$,4)="DOOR" THEN GOSUB 1100
  46. 1010  IF RIGHT$(A$,7)="PERRIER" OR RIGHT$(A$,5)="WATER" THEN GOSUB 1200
  47. 1030  IF RIGHT$(A$,7)="CABINET" THEN GOSUB 1300
  48. 1050  RETURN
  49. 1100  LOCATE 15,1
  50. 1105  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  51. 1110  PRINT"OPEN The door leads out into the hall.   OPEN"
  52. 1120  PRINT"OPEN You don't really want to go outside OPEN"
  53. 1130  PRINT"OPEN just now with those two Alien Leaf  OPEN
  54. 1140  PRINT"OPEN Forms out looking for you! You have OPEN"
  55. 1150  PRINT"OPEN to dispose of them somehow...       OPEN"
  56. 1160  PRINT"OPEN                                     OPEN"
  57. 1170  PRINT"OPEN                                     OPEN"
  58. 1180  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  59. 1190  RETURN
  60. 1200  LOCATE 15,1
  61. 1205  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  62. 1210  PRINT"OPEN Mmm! Sparkling fresh Perrier water, OPEN"
  63. 1220  PRINT"OPEN fresh from the spring and frozen    OPEN"
  64. 1230  PRINT"OPEN for a couple of weeks. This is good OPEN
  65. 1240  PRINT"OPEN stuff... in fact it would make a    OPEN"
  66. 1250  PRINT"OPEN great lure for a plant...           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 Listen, it's a drinks cabinet! OK?  OPEN"
  74. 1320  PRINT"OPEN If you want to see what's INSIDE    OPEN"
  75. 1330  PRINT"OPEN the drinks cabinet I recommend you  OPEN
  76. 1340  PRINT"OPEN try OPENING it. (If this doesn't    OPEN"
  77. 1350  PRINT"OPEN work, you are in trouble).          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  IF RIGHT$(A$,7)="CABINET" THEN GOSUB 2100:ELSE GOSUB 2200
  94. 2005  RETURN
  95. 2100  LOCATE 15,1
  96. 2105  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  97. 2110  PRINT"OPEN Alright. You open the cabinet door  OPEN"
  98. 2120  PRINT"OPEN and peek inside. All of the alcahol OPEN"
  99. 2130  PRINT"OPEN has been consumed, but there IS a   OPEN"
  100. 2140  PRINT"OPEN bottle of Perrier. You take it. You OPEN"
  101. 2150  PRINT"OPEN now have a way to kill the Aliens!  OPEN"
  102. 2160  PRINT"OPEN                                     OPEN"
  103. 2170  PRINT"OPEN                                     OPEN"
  104. 2180  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  105. 2190  A$=INKEY$:IF A$="" THEN GOTO 2190
  106. 2195  CHAIN "sqm6"
  107. 2200  LOCATE 15,1
  108. 2205  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  109. 2210  PRINT"OPEN YOU CAN'T OPEN THAT, SORRY.         OPEN"
  110. 2220  PRINT"OPEN                                     OPEN"
  111. 2230  PRINT"OPEN                                     OPEN"
  112. 2240  PRINT"OPEN                                     OPEN"
  113. 2250  PRINT"OPEN                                     OPEN"
  114. 2260  PRINT"OPEN                                     OPEN"
  115. 2270  PRINT"OPEN                                     OPEN"
  116. 2280  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  117. 2290  RETURN
  118. 3000  IF RIGHT$(A$,7)="PERRIER" THEN GOSUB 3100:ELSE GOSUB 3200
  119. 3100  LOCATE 15,1
  120. 3105  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  121. 3110  PRINT"OPEN That might be a good idea, save for OPEN"
  122. 3120  PRINT"OPEN the fact that, although you could   OPEN"
  123. 3130  PRINT"OPEN certainly USE a drink (ha,ha) you   OPEN"
  124. 3140  PRINT"OPEN haven't actually found or taken the OPEN"
  125. 3150  PRINT"OPEN Perrier water yet! Sucker!          OPEN"
  126. 3160  PRINT"OPEN                                     OPEN"
  127. 3170  PRINT"OPEN                                     OPEN"
  128. 3180  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  129. 3190  A$=INKEY$:IF A$="" THEN GOTO 3190
  130. 3195  'CHAIN "sqm2"
  131. 3196  RETURN
  132. 3200  LOCATE 15,1
  133. 3205  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  134. 3210  PRINT"OPEN YOU CAN'T USE THAT, SORRY.          OPEN"
  135. 3220  PRINT"OPEN                                     OPEN"
  136. 3230  PRINT"OPEN                                     OPEN"
  137. 3240  PRINT"OPEN                                     OPEN"
  138. 3250  PRINT"OPEN                                     OPEN"
  139. 3260  PRINT"OPEN                                     OPEN"
  140. 3270  PRINT"OPEN                                     OPEN"
  141. 3280  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  142. 3290  RETURN
  143.