mirror of
https://github.com/retro-software/B5500-software.git
synced 2026-02-28 00:55:39 +00:00
2c72f7fd1d
1. Commit library tape images, directories, and extracted text files. 2. Commit additional utilities under Unisys-Emode-Tools.
19 lines
312 B
Plaintext
19 lines
312 B
Plaintext
?COMPILE COPY/CAST ALGOL GO
|
|
?DATA CARD
|
|
$CARD LIST SINGLE
|
|
BEGIN
|
|
ARRAY REC[0:55];
|
|
FILE IN CASTC (2, 56);
|
|
FILE OUT CASTA DISK SERIAL [20:960] "CASTA" "LIBRARY"
|
|
(2, 56, SAVE 30);
|
|
LABEL EOF;
|
|
WHILE TRUE DO
|
|
BEGIN
|
|
READ(CASTC, 56, REC[*]) [EOF];
|
|
WRITE(CASTA, 56, REC[*]);
|
|
END;
|
|
EOF:
|
|
LOCK(CASTA);
|
|
END.
|
|
?END
|