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