home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3034.dms / 3034.adf / play_intro.AMOS / play_intro.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  735 b   |  22 lines
  1. 'when compiled this program will load and display  a pic and play a mod
  2. 'the pic ust be called INTRO.IFF and the mod MOD.INTRO 
  3. 'this program can be used as a little intro to your game or whatever 
  4. Screen Open 0,320,256,32,Lowres
  5. Curs Off : Flash Off : Hide On : Paper 0 : Cls 0
  6. Dir$="df0:"
  7. F$="mod.intro"
  8. If Exist(F$)
  9. Track Load "df0:mod.intro",10
  10. Else Print : Print : Print "  MODULE NOT FOUND OR INCORRECTLY NAMED" : Centre "NAME IT MOD.intro" : Wait 500 : Stop 
  11. End If 
  12. F$="intro.iff"
  13. If Exist(F$)
  14. Load Iff F$,0
  15. Else Print : Print : Print "  IFF NOT FOUND OR INCORRECTLY NAMED" : Centre "(intro.IFF)" : Wait 500 : Stop 
  16. End If 
  17. '
  18. Track Loop On : Track Play 10
  19. While Mouse Key=0 : Wend 
  20. Track Stop : Fade 10 : Wait 125
  21. Erase 10
  22. Stop