home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk017 / sqm3.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-06-03  |  1.1 KB  |  50 lines
  1. 10  CLS
  2. 20  SCREEN 7
  3. 30  OPEN "SQM3.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:COLOR 15
  9. 90  PRINT"You hotfoot it down the hall to the"
  10. 100  PRINT"Principal's office. He will want to  "
  11. 110  PRINT"hear about your missing class too! But"
  12. 120  PRINT"before you make it there, you step on"
  13. 130  PRINT"something... squelch!"
  14. 140  FOR I=1 TO 60000:NEXT I
  15. 150  CLS
  16. 160  PRINT:PRINT:PRINT:PRINT:PRINT
  17. 170  PRINT"YOU LOOK DOWN TO SEE WHAT IT WAS YOU"
  18. 180  PRINT"ACCIDENTALLY STEPPED ON JUST NOW..."
  19. 190  FOR I=1 TO 40000:NEXT I
  20. 200  CLS
  21. 230  OPEN "SQM3.2" FOR INPUT AS 1
  22. 240  INPUT#1,Z,X,F,Y
  23. 250  FOR L=X TO Y:FOR I=Z TO F
  24. 260  INPUT#1,A:PSET(I,L),A
  25. 270  NEXT I:NEXT L:CLOSE 1
  26. 280  FOR I=1 TO 20000:NEXT I
  27. 290  CLS
  28. 300  CLS
  29. 330  OPEN "SQM3.3" FOR INPUT AS 1
  30. 340  INPUT#1,Z,X,F,Y
  31. 350  FOR L=X TO Y:FOR I=Z TO F
  32. 360  INPUT#1,A:PSET(I,L),A
  33. 370  NEXT I:NEXT L:CLOSE 1
  34. 380  LOCATE 15,1:PRINT " 'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARGH!' "
  35. 390  FOR I=1 TO 30000:NEXT I
  36. 400  CLS
  37. 430  OPEN "SQM3.1" FOR INPUT AS 1
  38. 440  INPUT#1,Z,X,F,Y
  39. 450  FOR L=X TO Y:FOR I=Z TO F
  40. 460  INPUT#1,A:PSET(I,L),A
  41. 470  NEXT I:NEXT L:CLOSE 1
  42. 480  LOCATE 15,1
  43. 490  PRINT"You hotfoot it down the hall a good "
  44. 500  PRINT"sixty times faster than before! The "
  45. 510  PRINT"little creature doesn't attempt to "
  46. 520  PRINT"go after you. You don't stop running"
  47. 530  PRINT"until you are in the Science room."
  48. 535  FOR I=1 TO 70000:NEXT I
  49. 540  CHAIN "sqm4"
  50.