home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 501-525 / apd511 / presentation.amos / presentation.amosSourceCode
AMOS Source Code  |  1978-02-21  |  2KB  |  63 lines
  1. Rem                    #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~#  
  2. Rem                    #     The Kid's Intro To The Universe  #
  3. Rem                    #       (c) 1992 Wizard Soft           #
  4. Rem                    #                                      #
  5. Rem                    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  6. Cls 16
  7. Close Workbench 
  8. Close Editor 
  9. Curs Off 
  10. Hide 
  11. Cls 16
  12. Load Iff "Introducing The Kid:pics/me",1 : Wait 75
  13. Load Iff "Introducing The Kid:pics/R&P",1 : Wait 60
  14. Load Iff "Introducing The Kid:pics/presents",1 : Wait 20
  15. Load Iff "Introducing The Kid:pics/Screen",1 : Wait 45
  16. Repeat : M=Mouse Click : Until M=1
  17. Load Iff "Introducing The Kid:pics/Mercury",1
  18. Repeat : M=Mouse Click : Until M=1
  19. Load Iff "Introducing The Kid:pics/Mercury2",1
  20. Repeat : M=Mouse Click : Until M=1
  21. Load Iff "Introducing The Kid:pics/venus",1
  22. Repeat : M=Mouse Click : Until M=1
  23. Load Iff "Introducing The Kid:pics/venus2",1
  24. Repeat : M=Mouse Click : Until M=1
  25. Load Iff "Introducing The Kid:pics/earth",1
  26. Repeat : M=Mouse Click : Until M=1
  27. Load Iff "Introducing The Kid:pics/earth2",1
  28. Repeat : M=Mouse Click : Until M=1
  29. Load Iff "Introducing The Kid:pics/mars",1
  30. Repeat : M=Mouse Click : Until M=1
  31. Load Iff "Introducing The Kid:pics/mars2",1
  32. Repeat : M=Mouse Click : Until M=1
  33. Load Iff "Introducing The Kid:pics/jupitor",1
  34. Repeat : M=Mouse Click : Until M=1
  35. Load Iff "Introducing The Kid:pics/jupitor2",1
  36. Repeat : M=Mouse Click : Until M=1
  37. Load Iff "Introducing The Kid:pics/j-half",1
  38. Repeat : M=Mouse Click : Until M=1
  39. Load Iff "Introducing The Kid:pics/saturn",1
  40. Repeat : M=Mouse Click : Until M=1
  41. Load Iff "Introducing The Kid:pics/saturn2",1
  42. Repeat : M=Mouse Click : Until M=1
  43. Load Iff "Introducing The Kid:pics/uranus",1
  44. Repeat : M=Mouse Click : Until M=1
  45. Load Iff "Introducing The Kid:pics/uranus2",1
  46. Repeat : M=Mouse Click : Until M=1
  47. Load Iff "Introducing The Kid:pics/pluto",1
  48. Repeat : M=Mouse Click : Until M=1
  49. Load Iff "Introducing The Kid:pics/pluto2",1
  50. Repeat : M=Mouse Click : Until M=1
  51. Load Iff "Introducing The Kid:pics/cocpit",1
  52. Repeat : M=Mouse Click : Until M=1
  53. Load Iff "Introducing The Kid:pics/cocpit2",1
  54. Repeat : M=Mouse Click : Until M=1
  55. Load Iff "Introducing The Kid:pics/ship",1
  56. Repeat : M=Mouse Click : Until M=1
  57. Load Iff "Introducing The KId:pics/screen2",1
  58. Repeat : M=Mouse Click : Until M=1
  59. Load Iff "Introducing THE Kid:pics/End",1
  60. Repeat : M=Mouse Click : Until M=1
  61. Load Iff "Introducing The Kid:pics/The Kid",1
  62. Repeat : M=Mouse Click : Until M=1
  63. End