home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / disk_eingelegt?.amos / disk_eingelegt?.amosSourceCode
AMOS Source Code  |  1991-09-28  |  545b  |  15 lines
  1. '     Procedure for recognizing an inserted disk.
  2. '      DAUG #002 
  3. '     Rubric    Tips&Tricks
  4. '     Article   Disc inserted ?  
  5. '
  6. '     An example : 
  7. Do 
  8.  Locate 0,0
  9.  F=Exist("df0:")
  10.  If F=-1 Then Print "Disc has been inserted in df0:      " Else Print "No disk present in df0:"
  11.  F=Exist("SYS:")
  12.  If F=-1 Then Print "The starting disc has been inserted.        " Else Print "Starting disc hasn't been inserted"
  13.  F=Exist("SYS:AMOS")
  14.  If F=-1 Then Print "The starting disc is an AMOS disc.   " Else Print "The starting disc is no AMOS Disc"
  15. Loop