perm filename AID.AL[AID,HE]1 blob
sn#378665 filedate 1978-09-06 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BEGIN {This program does nothing. It is used only for its AL data structures and
C00003 ENDMK
C⊗;
BEGIN {This program does nothing. It is used only for its AL data structures and
as the code for the main interpreter in the AL (or ALPNTY) run time system}
SCALAR S;
VECTOR V;
ROT R;
TRANS T;
{FOLLOWING ASSIGNMENT STATEMENTS ARE ONLY TEMPORARY}
S← 1.75 ;
PRINT(S);
V← NILVECT;
R← NILROTN;
T← NILTRANS;
EVENT E;
WAIT E; {To be signalled when all done}
END