home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk017 / sq6.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-06-03  |  1.9 KB  |  57 lines
  1. 10  CLS
  2. 20  SCREEN 7
  3. 30  OPEN "RM6.1" 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"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  10. 100  PRINT"OPEN HOLY SH-SHAVING CREAM! That's the   OPEN"
  11. 110  PRINT"OPEN biggest... one o' those you've ever OPEN"
  12. 120  PRINT"OPEN seen in your life! (Which, by the   OPEN"
  13. 130  PRINT"OPEN way, will be over shortly)! What    OPEN"
  14. 140  PRINT"OPEN are you going to do now?            OPEN"
  15. 150  PRINT"OPEN                                     OPEN"
  16. 160  PRINT"OPEN                                     OPEN"
  17. 170  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  18. 180  A$=INKEY$:IF A$="" THEN GOTO 180
  19. 185  LOCATE 15,1
  20. 190  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  21. 200  PRINT"OPEN That enormous photosynthetic alien  OPEN"
  22. 210  PRINT"OPEN beast blocks up most of the Caf...  OPEN"
  23. 220  PRINT"OPEN and it looks dangerous. Those big,  OPEN"
  24. 230  PRINT"OPEN flailing tentacles could do you in  OPEN"
  25. 240  PRINT"OPEN in a minute!                        OPEN"
  26. 250  PRINT"OPEN                                     OPEN"
  27. 260  PRINT"OPEN                                     OPEN"
  28. 270  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  29. 280  A$=INKEY$:IF A$="" THEN GOTO 280
  30. 285  LOCATE 15,1
  31. 290  PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  32. 300  PRINT"OPEN Okay, Plasma. This is it, this is   OPEN"
  33. 310  PRINT"OPEN zero hour! You and him, one on one! OPEN"
  34. 320  PRINT"OPEN You are carrying: Ryan's note, the  OPEN"
  35. 330  PRINT"OPEN empty bottle, the slime and the can OPEN"
  36. 340  PRINT"OPEN of spraypaint. What do you do now?! OPEN"
  37. 350  PRINT"OPEN                                     OPEN"
  38. 360  PRINT"OPEN                                     OPEN"
  39. 370  PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  40. 380  LOCATE 22,3:INPUT A$
  41. 390  FOR I=1 TO LEN(A$):IF MID$(A$,I,5)="PAINT" THEN GOTO 500
  42. 391  NEXT I
  43. 395  FOR I=1 TO 50000:NEXT I
  44. 400  CLS
  45. 410  PRINT "TO HARRY PLASMA"
  46. 420  PRINT
  47. 430  PRINT "CONDOLENCES ON YOUR RECENT DEATH. WE "
  48. 440  PRINT "SHOULD HAVE KNOWN YOU'D SCREW IT UP."
  49. 450  PRINT "REMEMBER, NEXT TIME, THAT EVIL WILL "
  50. 460  PRINT "TRIUMPH AS LONG AS THE LIGHT IS GOOD,"
  51. 470  PRINT "BUT DARKNESS WILL FAIL IN THE DARK."
  52. 480  PRINT
  53. 490  FOR I=1 TO 100000:NEXT I
  54. 495  SCREEN 0:PRINT "THANKS FOR PLAYING. BETTER LUCK NEXT TIME!"
  55. 496  SYSTEM
  56. 500  CHAIN "SQEND"
  57.