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 / SQEND.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-06-04  |  1.0 KB  |  46 lines
  1. 10  CLS
  2. 20  SCREEN 7
  3. 30  OPEN "RM6.3" 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:CLOSE 1
  8. 80  LOCATE 15,1
  9. 90  PRINT"'Alien scum! Try a little of my Science"
  10. 100  PRINT"department antiphotosynthetic darkener'"
  11. 110  PRINT"you cry, and unleash the spray paint on"
  12. 120  PRINT"the windows of the cafeteria!"
  13. 130  FOR I=1 TO 80000:NEXT I
  14. 140  CLS
  15. 150  OPEN "RM6.1" FOR INPUT AS 1
  16. 160  INPUT#1,Z,X,F,Y
  17. 170  FOR L=X TO Y:FOR I=Z TO F
  18. 180  INPUT#1,A:PSET(I,L),A
  19. 190  NEXT I:NEXT L:CLOSE 1
  20. 200  OPEN "RM6.2" FOR INPUT AS 1
  21. 210  INPUT#1,Z,X,F,Y
  22. 220  FOR L=X TO Y:FOR I=Z TO F
  23. 230  INPUT#1,A:PSET(I,L),A
  24. 240  NEXT I:NEXT L:CLOSE 1
  25. 250  FOR I=1 TO 55555:NEXT I
  26. 260  CLS
  27. 265  PRINT:PRINT:PRINT:PRINT
  28. 270  PRINT"WITHOUT THE LIGHT FLOODING IN THROUGH  "
  29. 280  FOR I=1 TO 9999:NEXT I
  30. 290  PRINT"THE CAFETERIA'S ENORMOUS WINDOWS, THE  "
  31. 300  FOR I=1 TO 9999:NEXT I
  32. 310  PRINT"ALIEN BEING COULD NOT SURVIVE. HARRY   "
  33. 320  FOR I=1 TO 9999:NEXT I
  34. 330  PRINT"PLASMA HAS SAVED THE HUMAN RACE FROM   "
  35. 340  FOR I=1 TO 9999:NEXT I
  36. 350  PRINT"CERTAIN DOOM!                          "
  37. 360  FOR I=1 TO 9999:NEXT I
  38. 370  FOR I=1 TO 9999:NEXT I
  39. 380  FOR I=1 TO 9999:NEXT I
  40. 390  FOR I=1 TO 9999:NEXT I
  41. 400  FOR I=1 TO 1000:NEXT I
  42. 410  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  43. 420  PRINT"A LITTLE WHILE LATER..."
  44. 430  FOR I=1 TO 30000:NEXT I
  45. 440  CHAIN "FIN"
  46.