' PROGRTM(1.1) Displ File Proc Progr Ind with Times 06/27/1994-11/17/1998 ' -------------------------------------------------------------------------- $INCLUDE "PROGRTM" DECLARE SUB PROGRTM(File%,Nam$,Title$,Record$,Mode$,Appear$) Pause!=0.1 CLS PRINT "PROGRTM(1.0) Display File Proc Progress Ind with Times ";DATE$; PRINT " ";LEFT$(TIME$,5) PRINT STRING$(74,"-") PRINT OPEN "C:\PBASIC\PROGRTM.BAS" FOR INPUT AS #1 CALL PROGRTM(1,"CONVERT(0.0)","File SOURCE.TXT is converted to TARGET.TXT","","S",Appear$) WHILE (NOT(EOF(1))) LINE INPUT #1,Input.Record$ CALL PROGRTM(1,"","",Input.Record$,"P","") DELAY Pause! WEND CALL PROGRTM(1,"","","","F","") COLOR 7,0 ' Grey on Black PRINT PRINT "Execution completed - hit [Enter] to continue..."