'**** HEADER ************************************************************
'EXDOS02.PF3 (release .02)
'Copyright (c) 1990-1991 Applied Resource Technologies, Inc.
'P.O. Box 64381, Dallas, Texas 75206 U.S.A. (214) 855-0449
'Description: Demonstrates filesize() and diskleft()
'**** FUNCTION DECLARATIONS *********************************************
'library
external filesize() diskleft()
'core
'**** VARIABLE DECLARATIONS *********************************************
'library
public ptval
'core
'**** CODE **************************************************************

local fname free_bytes drive fsize msg

fname = "\smartii\poptools\lib\doslib.psl"
drive = "a"

load fname in-memory

message "Insert a formatted floppy diskette in drive A:, then press any key"

if filesize(fname) < 0
     msg = "Not able to find/open file for copy"
     jump err_exit
end if

     fsize = ptval

     if diskleft(drive) < 0
          msg = upper(drive)|": not ready, or invalid drive"
          jump err_exit
     end if

     free_bytes = ptval

     if free_bytes < 0
          msg = "error reading drive" & upper(drive)|":"
          jump err_exit
     end if

     if free_bytes < fsize
          msg = "Not enough room on drive"&upper(drive)|":"&"to copy!"
          jump err_exit
     end if

     error off
     clearerror
     tools file copy fname to drive|":"
     error on
     if lerror = 0
          msg = "copy successful"
          jump done
     end if
     msg = "error copying file"

label err_exit
beep

label done
message msg

unload "doslib.psl"