perm filename Y.SAI[LSP,BGB] blob
sn#010893 filedate 1972-11-12 generic text, type T, neo UTF8
00100 BEGIN "Y"
00200 REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
00300 REQUIRE "SALISP" LOAD_MODULE;
00400 EXTERNAL PROCEDURE LISP(INTEGER SIZ);
00500 REAL XXX,YYY,ZZZ;
00600
00700 ITG SUBR I1(INTEGER I,J); ⊂
00800 OUTSTR(13&10&9&CVS(I)&9&CVS(J)&9&CVS(I*J)&13&10);
00900 RETURN(I*J);⊃;
01000
01100 REAL SUBR R2(REAL X,Y);
01200 ⊂ OUTSTR(9&CVG(X*Y)&13&10);RETURN(X*Y);⊃;
01300
01350 XXX←1; YYY←2; ZZZ←π;
01400
01500 LISP(9000);
01510 BEGIN "SUBLK"
01520 INTEGER Q1,Q2,Q3;
01530 Q1 ← Q2 ← Q3;
01540 END;
01545 BEGIN "SUBLK2"
01547 ITG R1,R2,R3;R1←R2←R3; END;
01550
01600 END "Y";