00100 BEGIN "X" 00200 REQUIRE "LISP" LOAD_MODULE; 00300 EXTERNAL PROCEDURE LISP(INTEGER SIZ); 00500 00600 INTERNAL SIMPLE PROCEDURE QQ (INTEGER I,J); 00700 OUTSTR(13&10&9&CVS(I)&9&CVS(J)&CVS(I*J)&13&10); 00800 LISP(9000); 00900 END "X";