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 / SQ2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-06-04  |  5.0 KB  |  144 lines
  1. 10  CLS
  2. 20  SCREEN 7
  3. 30  KEY OFF
  4. 40  OPEN "P2" 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 "RM2" 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 The classroom is a mess. Your desk, OPEN"
  22. 220  PRINT"OPEN up at the front, is the only nice   OPEN"
  23. 230  PRINT"OPEN and tidy thing here. This is normal OPEN"
  24. 240  PRINT"OPEN however, so it doesn't bother you   OPEN"
  25. 250  PRINT"OPEN all that much. What does bother you 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 is the fact that your class has     OPEN"
  33. 320  PRINT"OPEN vanished in a flash and you have    OPEN"
  34. 330  PRINT"OPEN absolutely no idea where they are!  OPEN"
  35. 340  PRINT"OPEN Your microscope perches atop your   OPEN"
  36. 350  PRINT"OPEN desk. Miraculously, it still works. 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$,4)="DESK" OR RIGHT$(A$,5)="DESKS" THEN GOSUB 1200
  47. 1030  IF RIGHT$(A$,10)="MICROSCOPE" 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 The funny thing is, it doesn't look OPEN"
  53. 1130  PRINT"OPEN like anyone's been through it for   OPEN
  54. 1140  PRINT"OPEN quite a while, and yet, the class   OPEN"
  55. 1150  PRINT"OPEN MUST have gone through... right?    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 The desks are somewhat untidily     OPEN"
  63. 1220  PRINT"OPEN strewn over the floor. Even your    OPEN"
  64. 1230  PRINT"OPEN class isn't usually THIS bad... but OPEN
  65. 1240  PRINT"OPEN wait. What's this on Ryan's desk?   OPEN"
  66. 1250  PRINT"OPEN Why, it's a note... saying HELP!    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 Your microscope is the pride and    OPEN"
  74. 1320  PRINT"OPEN joy of the Science department. You  OPEN"
  75. 1330  PRINT"OPEN are the only school in Canada to    OPEN
  76. 1340  PRINT"OPEN have a fully functioning scanning   OPEN"
  77. 1350  PRINT"OPEN electron microscope!                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$,4)="DOOR" 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 door and peer OPEN"
  98. 2120  PRINT"OPEN out into the hallway. Looks like    OPEN"
  99. 2130  PRINT"OPEN the coast is clear. You step out &  OPEN"
  100. 2140  PRINT"OPEN wander off in the general direction OPEN"
  101. 2150  PRINT"OPEN of the principal's office.          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 "sqm3"
  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$,10)="MICROSCOPE" THEN GOSUB 3100:ELSE GOSUB 3200
  119. 3005  RETURN
  120. 3100  LOCATE 15,1
  121. 3105  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  122. 3110  PRINT"OPEN Okay. First you turn it on, then    OPEN"
  123. 3120  PRINT"OPEN use the coarse adjustment knob 'til OPEN"
  124. 3130  PRINT"OPEN you are in focus, then use the fine OPEN"
  125. 3140  PRINT"OPEN adjustment kno - hey waitaminnit!   OPEN"
  126. 3150  PRINT"OPEN You don't have anything to look at! 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. 3196  RETURN
  133. 3200  LOCATE 15,1
  134. 3205  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  135. 3210  PRINT"OPEN YOU CAN'T USE THAT, SORRY.          OPEN"
  136. 3220  PRINT"OPEN                                     OPEN"
  137. 3230  PRINT"OPEN                                     OPEN"
  138. 3240  PRINT"OPEN                                     OPEN"
  139. 3250  PRINT"OPEN                                     OPEN"
  140. 3260  PRINT"OPEN                                     OPEN"
  141. 3270  PRINT"OPEN                                     OPEN"
  142. 3280  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  143. 3290  RETURN
  144.