home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / amos / ldos_demo / examples / ldos / disk_inserted.amos / disk_inserted.amosSourceCode
Encoding:
AMOS Source Code  |  1992-08-05  |  1.2 KB  |  53 lines
  1. Screen Open 1,640,200,4,Hires
  2. Proc _DISK_RW[0]
  3. If Param=True
  4.    Print "Please write protect your disk and insert disk again"
  5.    Repeat 
  6.       Multi Wait 
  7.       Proc _DISK_RW[0]
  8.       Multi Wait 
  9.    Until Param<>True
  10. Else 
  11.    Print "Please disable write protect and insert disk again"
  12.    Repeat 
  13.       Multi Wait 
  14.       Proc _DISK_RW[0]
  15.       Multi Wait 
  16.    Until Param=True
  17. End If 
  18. Proc _DISK_STATE[0]
  19. If Param=True
  20.    Print "Disk is inserted in df0:"
  21.    Print "Please remove disk to end program"
  22.    Repeat 
  23.       Multi Wait 
  24.       Proc _DISK_STATE[0]
  25.       Multi Wait 
  26.    Until Param<>True
  27. Else 
  28.    Print "No disk in df0:"
  29.    Print "Please insert disk to end program"
  30.    Repeat 
  31.       Multi Wait 
  32.       Proc _DISK_STATE[0]
  33.       Multi Wait 
  34.    Until Param=True
  35. End If 
  36. Procedure _DISK_STATE[DEV]
  37.    Rem Returns  EXACTLY True if a disk is inserted
  38.    QUERY=14
  39.    A= Not( Extension_10_01AE("trackdisk.device",DEV,0))
  40.    If A
  41.       RET= Not( Extension_10_01DA(QUERY,0,0,0))
  42.        Extension_10_01C6 
  43.    End If 
  44. End Proc[RET]
  45. Procedure _DISK_RW[DEV]
  46.    Rem Returns  EXACTLY True if a disk is write enabled 
  47.    QUERY=15
  48.    A= Not( Extension_10_01AE("trackdisk.device",DEV,0))
  49.    If A
  50.       RET= Not( Extension_10_01DA(QUERY,0,0,0))
  51.        Extension_10_01C6 
  52.    End If 
  53. End Proc[RET]