EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE STOP
EXECUTE "SELECT ORGPRISECHARGE"
10 READNEXT CLE ELSE STOP
READ ENREG FROM F.ORGPRISECHARGE,CLE ELSE GOTO 10
ENREG=REPLACE(ENREG,40;"")
ENREG=REPLACE(ENREG,40,1;"1")
ENREG=REPLACE(ENREG,40,2;"14")
ENREG=REPLACE(ENREG,40,3;"21")
ENREG=REPLACE(ENREG,40,4;"16")
ENREG=REPLACE(ENREG,40,5;"7")
ENREG=REPLACE(ENREG,40,6;"19")
ENREG=REPLACE(ENREG,40,7;"9")
ENREG=REPLACE(ENREG,49;"3")
WRITE ENREG ON F.ORGPRISECHARGE,CLE
GOTO 10
