perm filename BAITST.SAI[X,AIL] blob
sn#151885 filedate 1976-11-04 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BEGIN "TEST"
C00005 ENDMK
C⊗;
BEGIN "TEST"
EXTERNAL PROCEDURE BAIL;
REQUIRE 500 SYSTEM!PDL, 10 PNAMES;
INTEGER I,J,K;
STRING A,B,C;
REAL X,Y,Z;
LIST L; SET S,S1,S2,S3,S4,S5;
INTEGER ARRAY FOO[0:15];
INTEGER ITEM SUNDAY; ITEM MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY;
INTEGER ITEMVAR DAY; ITEMVAR QQ;
ITEMVAR ARRAY P[1:10];
INTEGER PROCEDURE ADD(INTEGER I,J); BEGIN "ADD"
LABEL Z100;
Z100:
OUTSTR("
HI. GLAD YOU STOPPED BY."); RETURN(I+J); IF I+J NEQ I+J THEN GOTO Z100; END "ADD";
RECURSIVE INTEGER PROCEDURE FACT(INTEGER N); BEGIN "FACT"
RETURN(IF N LEQ 0 THEN 1 ELSE N*FACT(N-1)) END "FACT";
RECORD!CLASS CELL (RECORD!POINTER(CELL) CAR,CDR);
RECORD!POINTER(CELL) CX,CY;
PROCEDURE PRARRAY(INTEGER ARRAY IARR); BEGIN "PRARRAY"
INTEGER I; FOR I←ARRINFO(IARR,1) STEP 1 UNTIL ARRINFO(IARR,2) DO
OUTSTR(" "&CVS(IARR[I])); END "PRARRAY";
SIMPLE PROCEDURE SIMPROC(REFERENCE INTEGER M); BEGIN "SBEG"
ADD(M,M←32) END "SBEG";
CX←NEW!RECORD(CELL);
CY←NEW!RECORD(CELL);
CELL:CAR[CX]←NULL!RECORD; CELL:CDR[CX]←NULL!RECORD;
CELL:CAR[CY]←CX; CELL:CDR[CY]←NULL!RECORD;
FOR I←0 STEP 1 UNTIL 15 DO FOO[I]←I*I;
P[1]←SUNDAY; P[2]←MONDAY;
L←{{SUNDAY}}; DATUM(SUNDAY)←0; DAY←SUNDAY; QQ←MONDAY; S←{QQ};
S1←{SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY};
S2←{MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY};
S3←{MONDAY,WEDNESDAY,FRIDAY}; S4←{SATURDAY,SUNDAY};
S5←{SUNDAY,FRIDAY};
I←4; J←6; K←112;
A←"BIG DEAL"; B←"QED"; C←"THE LAST PICASSO";
X←3.14159265; Y←0; Z←23.;
BAIL;
ADD(7,45);
SIMPROC(J);
USERERR(0,1,"THIS IS A TEST");
END "TEST";