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 / FIN.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-06-04  |  1.6 KB  |  63 lines
  1. 10  CLS
  2. 20  SCREEN 7
  3. 30  OPEN "INTRO.004" 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"'Sir, I'm sorry for what I did, locking"
  10. 100  PRINT"you in the closet and all. Can you"
  11. 110  PRINT"ever forgive me?'"
  12. 120  FOR I=1 TO 55555:NEXT I
  13. 130  CLS
  14. 140  OPEN "INTRO.001" FOR INPUT AS 1
  15. 150  INPUT#1,Z,X,F,Y
  16. 160  FOR L=X TO Y:FOR I=Z TO F
  17. 170  INPUT#1,A:PSET(I,L),A
  18. 180  NEXT I:NEXT L:CLOSE 1
  19. 190  LOCATE 15,1
  20. 200  PRINT"'Of course, Nick! If it wasn't for your"
  21. 210  PRINT" little joke, I'D have been captured by"
  22. 220  PRINT" the creatures too, and there would've "
  23. 230  PRINT" been no hope.'"
  24. 240  FOR I=1 TO 70000:NEXT I
  25. 250  LOCATE 15,1
  26. 260  PRINT"'As a matter of fact, you deserve a    "
  27. 270  PRINT" reward. I have completely altered your"
  28. 280  PRINT" Science mark. If you'd just go and get"
  29. 290  PRINT" me my clipboard... it's in the closet'"
  30. 300  FOR I=1 TO 70000:NEXT I
  31. 305  CLS
  32. 310  FOR I=1 TO 50000:NEXT I
  33. 320  LOCATE 12,17:PRINT "SMASH!"
  34. 330  FOR I=1 TO 10000:NEXT I
  35. 340  CLS
  36. 345  OPEN "fin" FOR INPUT AS 2
  37. 350  INPUT#2,Z,X,F,Y
  38. 360  FOR L=X TO Y:FOR I=Z TO F
  39. 370  INPUT#2,A:PSET(I,L),A
  40. 380  NEXT I:NEXT L:CLOSE 2
  41. 390  LOCATE 15,1
  42. 400  PRINT"'Hey, what do you think you are doing?!"
  43. 410  PRINT" you can't do this to me! Aw, teacher! "
  44. 420  PRINT" I said I was sorry! Mr. Plasma? Hello?"
  45. 430  PRINT" is anybody listening?"
  46. 440  FOR I=1 TO 70000:NEXT I
  47. 450  FOR L=0 TO 15:PALETTE L,0:FOR I=1 TO 1000:NEXT I:NEXT L
  48. 460  CLS
  49. 470  LOCATE 12,16:PRINT"THE  END"
  50. 480  FOR L=0 TO 15:PALETTE L,L:FOR I=1 TO 1000:NEXT I:NEXT L
  51. 490  FOR I=1 TO 80000:NEXT I
  52. 500  SCREEN 9:SCREEN 0
  53. 510  PRINT"Thanks for playing SCIENCE QUEST!"
  54. 520  PRINT:PRINT"Graphics, story, puzzles, script, neat "
  55. 530  PRINT"stuff, development system & the program  "
  56. 540  PRINT"the graphics were drawn on by:"
  57. 550  PRINT"                               MARK SPRAGUE"
  58. 560  PRINT:PRINT"Special thanks & apologies to:"
  59. 570  PRINT"NICHOLAS MICHON"
  60. 580  PRINT"Lt. Col RYAN MORRIS"
  61. 590  PRINT"MR. HENRY PASMA"
  62. 600  SYSTEM
  63.