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
C00004 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}

REQUIRE SOURCE_FILE "AIDEFS.SAI[AID,HE]";

SCALAR I;VECTOR J;TRANS K; {for returning values for the time being}
SCALAR ARRAY S[1:NO_OF_SCALARS];
VECTOR ARRAY V[1:NO_OF_VECTORS];
TRANS ARRAY T[1:NO_OF_TRANSES];

{FOLLOWING ASSIGNMENT STATEMENTS ARE ONLY TEMPORARY}
S[1]← 1.75 ;
PRINT(S[1]);

{variables' initializations}
FOR I←1 STEP 1 UNTIL NO_OF_SCALARS DO S[I]← 0;
FOR I←1 STEP 1 UNTIL NO_OF_VECTORS DO V[I]← NILVECT;
FOR I←1 STEP 1 UNTIL NO_OF_TRANSES DO T[I]← NILTRANS;

I←0;
J←NILVECT;
K←NILTRANS;


EVENT E;
WAIT E; {To be signalled when all done}

END