home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
pub
/
ucsdappleii
/
makedata.text
< prev
next >
Wrap
Text File
|
2020-01-01
|
677b
|
30 lines
>>>>>>>>>>>>>>>>>>>>>>>>>> MAKEDATA.TEXT >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Program make_kermit_data;
var setupname, dest_vol : string;
tf : text;
df : file of integer;
infile : array[1..28] of integer;
i : integer;
begin
writeln('name of the kermit setup text file? ');
readln( setupname );
writeln('write final kermit.data file to which volume? ');
readln( dest_vol );
reset( tf, setupname );
for i := 1 to 28 do readln( tf, infile[i] );
close( tf );
rewrite( df, concat( dest_vol, 'KERMIT.DATA' ) );
for i := 1 to 28 do
begin
df^ := infile[i];
put( df );
end;
close( df, lock );
writeln('ready');
end.