home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / amfm / amfm14 / amfm-14 < prev    next >
AmigaDOS Script File  |  1994-06-21  |  973b  |  49 lines
  1. .key foo
  2.  
  3. assign AMFM14: ""
  4. AMFM14:c/cd AMFM14:
  5.  
  6. AMFM14:c/assign libs: AMFM14:libs
  7. AMFM14:c/assign s: AMFM14:s
  8. AMFM14:c/assign c: AMFM14:c
  9. AMFM14:c/assign devs: AMFM14:devs
  10. AMFM14:c/assign ENV: RAM:
  11.  
  12. assign >nil: exists NPlay:
  13. if not warn
  14.   assign OldNPlay: Nplay:
  15. endif
  16.  
  17. Assign NPlay: AMFM14:NPlay
  18.  
  19. AMFM14:c/MemCheck 600000
  20. if not warn
  21.     AMFM14:c/Copy AMFM14:c/Wait RAM:
  22.     AMFM14:c/AMFMMenu AMFM14:s/Music-menu
  23. else
  24.     echo "Sorry - not enough free memory for background music..."
  25. endif
  26.  
  27. Echo "  When the picture appears, you can get rid of it by pressing"
  28. Echo "  the RIGHT mouse button."
  29. AMFM14:c/PPShow AMFM14:Graphics/Coverpic.iff.pp
  30. ;Echo "Sorry, no disk space for any front-picture this time..."
  31.  
  32. AMFM14:c/Zoomwindows quiet
  33.  
  34. AMFM14:c/amfmmenu AMFM14:s/menu
  35.  
  36. AMFM14:c/Zoomwindows quiet
  37.  
  38. assign >nil: exists OldNPlay:
  39. if not warn
  40.   assign NPlay: OldNplay:
  41. endif
  42.  
  43. assign s: sys:s
  44. assign c: sys:c
  45. assign libs: sys:libs
  46. assign devs: sys:devs
  47. cd sys:
  48. assign AMFM14: remove
  49.