home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 6 / Amoszine 6 (Disk 2 of 2).adf / extra_source.lha / OTHER_SOURCE / MAKE_RAM.Amos / MAKE_RAM.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  991 b   |  36 lines
  1. '********************************************************* 
  2. '
  3. 'MAKE_RAM
  4. '
  5. '
  6. 'Very simple this - make ram attempts to access the ram disk.  
  7. '
  8. 'If it can, it returns True. If it can't it returns false. 
  9. '
  10. 'Uses: To detect if the ram disk exists
  11. '
  12. '      Creates a ram disk, if possible   
  13. '
  14. '      Ensures RAM: & RAM DISK appear in all future
  15. '      file selectors and dev first$("") / dev next$ 
  16. '      calls.
  17. '
  18. '      On KickStart 1.3, the RAM DISK requires Ram-Handler from
  19. '      the L: directory. Putting MAKE RAM at the start of your 
  20. '      program forces this to be loaded, before the user can remove
  21. '      the boot disk preventing a "Please insert volume..." requester  
  22. '      later on. 
  23. '
  24. Procedure MAKE_RAM
  25.    'Procedure By Paul Hickman (ph@doc.ic.ac.uk) 
  26.    On Error Goto MAKE_RAM_ERROR
  27.    Resume Label _MAKE_RAM_EXIT
  28.    D$=Dir$ : Dir$="RAM:" : Dir$=D$
  29.    _RAM_MADE=True
  30.    Goto _MAKE_RAM_EXIT
  31.    '
  32.    MAKE_RAM_ERROR:
  33.    Resume Label 
  34.    '
  35.    _MAKE_RAM_EXIT:
  36. End Proc[_RAM_MADE]