home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk017 / sq1.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-06-04  |  5.0 KB  |  143 lines
  1. 10  CLS
  2. 20  SCREEN 7
  3. 30  KEY OFF
  4. 40  OPEN "P1" 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 "RM1" 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 'NICK!' You scream after your best  OPEN"
  22. 220  PRINT"OPEN student. 'You let me out NOW, and   OPEN"
  23. 230  PRINT"OPEN maybe I'll spare your life! Are you OPEN"
  24. 240  PRINT"OPEN listening to me? Nick?' Unluckily   OPEN"
  25. 250  PRINT"OPEN for you, Nick is no longer there.   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 Now what are you going to do? You   OPEN"
  33. 320  PRINT"OPEN are locked in the closet in the     OPEN"
  34. 330  PRINT"OPEN Science room in the middle of first OPEN"
  35. 340  PRINT"OPEN period, and nobody seems to have    OPEN"
  36. 350  PRINT"OPEN any plans to help you out of it...  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)="DOOR" THEN GOSUB 1100
  46. 1010  IF RIGHT$(A$,5)="SHELF" OR RIGHT$(A$,7)="SHELVES" THEN GOSUB 1200
  47. 1030  IF RIGHT$(A$,7)="KEYHOLE" THEN GOSUB 1300
  48. 1040  IF RIGHT$(A$,6)="SODIUM" THEN GOSUB 1400
  49. 1050  RETURN
  50. 1100  LOCATE 15,1
  51. 1105  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  52. 1110  PRINT"OPEN The door is bolted shut. You have   OPEN"
  53. 1120  PRINT"OPEN got absolutely nothing that will    OPEN"
  54. 1130  PRINT"OPEN destroy it, and there are strange   OPEN
  55. 1140  PRINT"OPEN noises coming from behind it. Not   OPEN"
  56. 1150  PRINT"OPEN much else here besides the keyhole. OPEN"
  57. 1160  PRINT"OPEN                                     OPEN"
  58. 1170  PRINT"OPEN                                     OPEN"
  59. 1180  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  60. 1190  RETURN
  61. 1200  LOCATE 15,1
  62. 1205  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  63. 1210  PRINT"OPEN The shelves contain lots of stuff   OPEN"
  64. 1220  PRINT"OPEN used for teaching SNC1AE. Searching OPEN"
  65. 1230  PRINT"OPEN without much interest, something    OPEN
  66. 1240  PRINT"OPEN catches your eye - a jar of sodium. OPEN"
  67. 1250  PRINT"OPEN Hmmm - maybe that'd be useful...    OPEN"
  68. 1260  PRINT"OPEN                                     OPEN"
  69. 1270  PRINT"OPEN                                     OPEN"
  70. 1280  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  71. 1290  RETURN
  72. 1300  LOCATE 15,1
  73. 1305  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  74. 1310  PRINT"OPEN Looking through the keyhole you can OPEN"
  75. 1320  PRINT"OPEN see your class enjoying themselves- OPEN"
  76. 1330  PRINT"OPEN when suddenly, a bright flash of    OPEN
  77. 1340  PRINT"OPEN light fills the room. When you look OPEN"
  78. 1350  PRINT"OPEN back, the class is GONE!            OPEN"
  79. 1360  PRINT"OPEN                                     OPEN"
  80. 1370  PRINT"OPEN                                     OPEN"
  81. 1380  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  82. 1390  RETURN
  83. 1400  LOCATE 15,1
  84. 1405  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  85. 1410  PRINT"OPEN Ah, sodium! One of your favourites. OPEN"
  86. 1420  PRINT"OPEN This wonderful stuff is great for   OPEN"
  87. 1430  PRINT"OPEN labs. There is a warning label on   OPEN
  88. 1440  PRINT"OPEN it which reads - '*@#! If you value OPEN"
  89. 1450  PRINT"OPEN your life do not get wet.'          OPEN"
  90. 1460  PRINT"OPEN                                     OPEN"
  91. 1470  PRINT"OPEN                                     OPEN"
  92. 1480  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  93. 1490  RETURN
  94. 2000  IF RIGHT$(A$,6)="SODIUM" THEN GOSUB 2100:ELSE GOSUB 2200
  95. 2005  RETURN
  96. 2100  LOCATE 15,1
  97. 2105  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  98. 2110  PRINT"OPEN OK. If you must...                  OPEN"
  99. 2120  PRINT"OPEN                                     OPEN"
  100. 2130  PRINT"OPEN                                     OPEN"
  101. 2140  PRINT"OPEN                                     OPEN"
  102. 2150  PRINT"OPEN                                     OPEN"
  103. 2160  PRINT"OPEN                                     OPEN"
  104. 2170  PRINT"OPEN                                     OPEN"
  105. 2180  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  106. 2190  RETURN
  107. 2200  LOCATE 15,1
  108. 2205  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  109. 2210  PRINT"OPEN YOU CAN'T GET 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$,6)="SODIUM" THEN GOSUB 3100:ELSE GOSUB 3200
  119. 3005  RETURN
  120. 3100  LOCATE 15,1
  121. 3105  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  122. 3110  PRINT"OPEN Cleverly, you pour the sodium into  OPEN"
  123. 3120  PRINT"OPEN the lock. Then, you look around for OPEN"
  124. 3130  PRINT"OPEN some water... hey wait a sec - you  OPEN"
  125. 3140  PRINT"OPEN don't HAVE any water! Oh well...    OPEN"
  126. 3150  PRINT"OPEN you spit on the lock.               OPEN"
  127. 3160  PRINT"OPEN                                     OPEN"
  128. 3170  PRINT"OPEN                                     OPEN"
  129. 3180  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  130. 3190  A$=INKEY$:IF A$="" THEN GOTO 3190
  131. 3195  CHAIN "sqm2"
  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.