' PROGRES(2.1)  Display File Proc Progress Indicator   06/27/1994-05/29/1997
' --------------------------------------------------------------------------

  $INCLUDE "PROGRES"

  DECLARE SUB PROGRES(File%,Nam$,Title$,Record$,Mode$,Appear$)

  Pause!=0.1
  Appear$=""
' Appear$="-*"

  CLS
  PRINT "PROGRES(2.1)  Display File Processing Progress Indicator  ";DATE$;
  PRINT "  ";LEFT$(TIME$,5)
  PRINT STRING$(75,"-")
  PRINT

  OPEN "C:\PBASIC\PROGRES.BAS" FOR INPUT AS #1
  CALL PROGRES(1,"CONVERT(0.0)","File SOURCE.TXT is converted to TARGET.TXT","","S",Appear$)

  WHILE (NOT(EOF(1)))
        LINE INPUT #1,Input.Record$
        CALL PROGRES(1,"","",Input.Record$,"P","")
        DELAY Pause!
  WEND

  CALL PROGRES(1,"","","","F","")

  COLOR 7,0  ' Gray
  PRINT
  PRINT "Execution completed - hit [Enter] to continue..."