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