$MODE ECHO=ON $FREE ALL $MODE PS=256 $$*SAUPAS.E P:KERMIT $JERROR.P !QUIT $VA.E A:KERMIT !VUPAR $$*VULCANIZ.R KERMIT PR PX E='37777777 TRUNCATE 6 LIB *SAUPLI *LIBERY MODE NX ALLOCATE S+30 SPALLOCATE S+30 $ STACK SPACE ASSIGN 103=*3 6=LO BEGIN !QUIT $FREE ALL $MODE ECHO=OFF $JSTREAM