DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »tnewnumber«

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »tnewnumber« 

TextFile

job jaba 9 600 time 3 0 
message file  tnewnumber mini
message generate line numbers on file platonerror
message used when the error numbers has changed
message because of a new pascal80 grammar 

( pipcode = set 0
pipcode = pascal list.no
newerror = set 5
scope login newerror
pipcode
finis )

program error_numbering ( input = 'platonerror', output= 'newerror' );

var
error_number, new_number : integer;
ch : char;

procedure copych;
begin
write(input^); get(input);
end;

begin
new_number := 0;

while input ^ <> '0' do
copych;

read(error_number);

while error_number < 100 do
begin
write( new_number : 3 );
new_number := new_number + 1;

(* copy line *)
while not eoln( input ) do
copych;

writeln(output); readln(input);


read( error_number );

end; (* while  < 100 *)

write( error_number : 3 );

(* copy the rest of the file unchanged *)
while not eof(input) do
copych;

close(input); close ( output );

end.


▶EOF◀