home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 601-625 / apd610 / intro.amos / intro.amosSourceCode
AMOS Source Code  |  1992-02-21  |  855b  |  46 lines
  1. ' title program for Knightwoode
  2. ' poor i know, but it does the job.
  3. '
  4. Screen Open 0,320,256,32,Lowres
  5. Paper 0
  6. Load Iff "adventure:titlegraphics/tscreen6"
  7. Hide 
  8. Flash Off 
  9. Wait 200
  10. Fade 7
  11. Wait 60
  12. Cls 
  13. Load Iff "adventure:titlegraphics/tscreen7"
  14. Clear Key 
  15. Gosub HOLD
  16. Cls 
  17. Curs Off 
  18. '
  19. MAIN:
  20. Load Iff "adventure:titlegraphics/tscreen1"
  21.  Gosub HOLD
  22. Load Iff "adventure:titlegraphics/tscreen2"
  23.  Gosub HOLD
  24. Load Iff "adventure:titlegraphics/tscreen3"
  25.  Gosub HOLD
  26. Load Iff "adventure:locationgraphics/46 gates"
  27.  Gosub HOLD
  28. Load Iff "adventure:titlegraphics/tscreen4"
  29.  Gosub HOLD
  30. Load Iff "adventure:titlegraphics/tscreen5"
  31.  Gosub HOLD
  32. Load Iff "adventure:locationgraphics/register"
  33.  Gosub HOLD
  34. '
  35. ACTION:
  36. Run "adventure:Knightwoode.AMOS"
  37. '
  38. HOLD:
  39. Do 
  40. If Key State(69)=True Then Goto ACTION
  41. If Inkey$<>"" Then Exit 
  42. M=Mouse Click
  43. If M=1 Then Exit 
  44. Loop 
  45. Cls 
  46. Return