00100 BEGIN "X" 00200 REQUIRE "SAITRG[SYS,BGB]" SOURCE_FILE; 00300 EXTERNAL PROCEDURE LISP(INTEGER SIZ); 00400 LISP(9000); 00500 END "X";