home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / utilsa / batt / LOAD.OPL < prev    next >
Text File  |  1993-01-01  |  397b  |  28 lines
  1. PROC LoadProc:
  2. local f$(128),t$(128),x%
  3. dinit"File to copy"
  4. dfile f$,"From:",0
  5. dfile t$,"To:",1
  6. if dialog
  7. do
  8. busy "Copy"
  9. gat 1,40
  10. gprintb"Process started!",235,3
  11. gat 1,60
  12. gprintb"Go to Battery Checker",235,3
  13. trap copy f$,t$
  14. if err
  15.  do
  16.   beep 5,50
  17.   x%=x%+1
  18.  until x%=20
  19. dinit"Error while copying!"
  20. dtext"Error:",err$(err)
  21. dialog
  22. stop
  23. endif
  24. busy off
  25. until key
  26. endif
  27. ENDP
  28.