Click above to get retro games delivered to your door ever month!

  Name:     disk() - restrict access to floppy disks
  Usage:    [<logical>] = disk([<status>])
  Params:   logical <status> - .T. allows access, .F. restricts access
  Returns:  logical <status>, when .T., floppy disks can be accessed.
            When .F., floppy disk can not be accessed.

 ---------------------------------- Example ---------------------------------

                 * prevent anyone from copying files to the floppy
                 disk(.F.)
                 ? "current disk status:"
                 ?? disk()

                 * allow floppy access
                 disk(.T.)

  Note:     If you turn floppy disk access off and then exit your
            application, no one will be able to access any files
            on the floppy disks.