00100 BEGIN "X" 00200 REQUIRE "SAITRG[SYS,BGB]" SOURCE_FILE; 00210 REQUIRE "SALISP[SYS,BGB]" LOAD_MODULE; 00220 INTEGER PROCEDURE HI;BEGIN OUTSTR(" HI LOSERS !!");RETURN(0);END; 00300 EXTERNAL PROCEDURE LISP(INTEGER SIZ); 00400 LISP(9000); 00500 END "X";