home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
norge.freeshell.org (192.94.73.8)
/
192.94.73.8.tar
/
192.94.73.8
/
pub
/
computers
/
cpm
/
alphatronic
/
ALGOL-M.ZIP
/
BLKTEST.ALG
< prev
next >
Wrap
Text File
|
1999-03-13
|
1KB
|
32 lines
BEGIN
INTEGER I,A;
BEGIN
FILE X[40] ; %BLOCKED FILE 40 CHAR'S PER BLOCK%
WRITE("THIS PROGRAM CREATES AND OPENS A CP/M FILE ");
WRITE("WITH A NAME OF BLK.INP. THIS IS A BLOCKED ");
WRITE("RANDOM ACCESS FILE. IT THEN WRITES THE NUMBERS 1");
WRITE("TO 5 OUT TO THIS FILE, ONE NUMBER PER BLOCK.");
X:="BLK.INP"; %THIS ASSIGNS BLK.INP TO X AND OPENS THE FILE%
A:=0;
WRITE("THE NUMBERS WRITTEN TO THE FILE ARE");
FOR I:=1 STEP 1 UNTIL 5 DO
BEGIN
WRITE X,I((A:=A+1));%X IS THE FILE NAME AND I IS THE RECORD NBR%
WRITE (A); % THIS WRITES TO THE CONSOLE %
END;
END; % THIS IS THE END OF THE BLOCK IN WHICH %
% FILE X IS DECLARED SO AT THIS POINT IT %
% IS CLOSED %
BEGIN
FILE XI[40]; %THIS IS A NEW BLOCKED FILE %
XI:="BLK.INP"; % FILE XI IS ALSO ASSIGNED TO BLK.INP AND%
% BLK.INP IS RE-OPENED HERE %
WRITE ("THE NUMBERS IN THE FILE ARE");
FOR I:=1 STEP 1 UNTIL 5 DO
BEGIN
READ XI,I(A); % THIS READS FROM FILE XI RECORD I %
WRITE(A);
END;
END;
END