Imprime Entra

function imprime_entra:string;
 begin
DATA:=DATE;
  AssignFile(F,'LPT1');
Rewrite(F);
Writeln(F,'A S S I S T E L  L A N   H O U S E');
Writeln(F,'Rua Lagoa Mangueira 19');
Writeln(F,'Fone: 3435-4487');
Writeln(F,'');
Writeln(F,DATETOSTR(DATA));
Writeln(F,'');
Writeln(F,'P C = 0'+INTTOSTR(PC));
Writeln(F,'');
Writeln(F,'');
Writeln(F,'ENTRA    SAI    TEMPO');
Writeln(F,FORMATDATETIME('HH:MM',ENTRA)+'   '+FORMATDATETIME('HH:MM',SAI)+'   '+FORMATDATETIME('HH:MM',TEMPO));
Writeln(F,'');
Writeln(F,'CLIENTE: '+NOME);
Writeln(F,'');
Writeln(F,'');
Writeln(F,'');
Writeln(F,'');
Writeln(F,'');
Writeln(F,'');
Writeln(F,'');
CloseFile(F);
end;

Imprime Haver

FUNCTION IMPRIME_HAVER:STRING;
BEGIN
DATA:=DATE;
  AssignFile(F,'LPT1');
Rewrite(F);
Writeln(F,'A S S I S T E L  L A N   H O U S E');
Writeln(F,'Rua Lagoa Mangueira 19');
Writeln(F,'Fone: 3435-4487');
Writeln(F,'');
Writeln(F,DATETOSTR(DATA));
Writeln(F,'');
Writeln(F,'P C = 0'+INTTOSTR(PC));
Writeln(F,'');
Writeln(F,'');
Writeln(F,'H A V E R');
Writeln(F,FORMATDATETIME('HH:MM',TEMPO));
Writeln(F,'');
Writeln(F,'CLIENTE: '+NOME);
Writeln(F,'');
Writeln(F,'');
Writeln(F,'');
Writeln(F,'');
Writeln(F,'');
Writeln(F,'');
Writeln(F,'');
CloseFile(F);
END;