OPEN "","TEMPO" TO F.TEMPO ELSE STOP
ENR_TEMPO=""
ENR_TEMPO<1,1>="1"
ENR_TEMPO<1,2>="2"
ENR_TEMPO<2,1>=""
ENR_TEMPO<2,2>=""
ENR_TEMPO=REPLACE(ENR_TEMPO,3,-1;"")
ENR_TEMPO=REPLACE(ENR_TEMPO,3,-1;"")
PRINT ENR_TEMPO
WRITE ENR_TEMPO ON F.TEMPO,"DG"
