home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / amfm / amfm16 / amfm-16 < prev    next >
AmigaDOS Script File  |  1994-06-21  |  1KB  |  44 lines
  1. .key foo
  2.  
  3. assign AMFM16: ""
  4. AMFM16:c/cd AMFM16:
  5.  
  6. AMFM16:c/type AMFM16:Text/AMFM.ansi
  7. AMFM16:c/assign libs: AMFM16:libs
  8. AMFM16:c/assign s: AMFM16:s
  9. AMFM16:c/assign c: AMFM16:c
  10. AMFM16:c/assign devs: AMFM16:devs
  11. AMFM16:c/assign ENV: RAM:
  12.  
  13. AMFM16:c/MemCheck 600000
  14. if not warn
  15.     AMFM16:c/Copy AMFM16:c/Wait RAM:
  16.     AMFM16:c/AMFMMenu AMFM16:s/Music-menu
  17. else
  18.     echo "Sorry - not enough free memory for background music..."
  19. endif
  20.  
  21. Echo "  When the picture appears, you can get rid of it by pressing"
  22. Echo "  the mouse button."
  23. ;:c/Decrunch >nil: AMFM16:Graphics/AMFMTitle.HAM.pp ram:
  24. AMFM16:c/IFF >nil: AMFM16:Graphics/AMFMTitle.HAM
  25. AMFM16:c/Filter
  26. ;:c/Delete >nil: ram:AMFMTitle.HAM
  27. AMFM16:c/Echo "Picture by Vidar Hokstad."
  28. ;:c/Echo "Sorry, no disk space for any front-picture this time..."
  29.  
  30. AMFM16:c/Zoomwindows quiet
  31. AMFM16:c/v AMFM16:Text/Bnvw-tape-ad.amfm.pp
  32.  
  33. AMFM16:c/amfmmenu AMFM16:s/menu
  34.  
  35. AMFM16:c/Zoomwindows quiet
  36. AMFM16:c/BreakAMFMPlay
  37.  
  38. assign s: sys:s
  39. assign c: sys:c
  40. assign libs: sys:libs
  41. assign devs: sys:devs
  42. cd sys:
  43. assign AMFM16: remove
  44.