#!/bin/sh
# --- Copyright University of Sussex 1991.  All rights reserved. ---------
# File:             C.unix/lib/demo/mkgram
# Purpose:          Create saved image for kitchen demo
# Author:           Aaron Sloman (see revisions)
# Documentation:
# Related Files:    LIB * GRAMDEMO, C.vms/lib/demo/mkgram.com


$popsys/pop11 %nort %noinit << \\\\

lib gramdemo;

if syssave('$poplocalbin/kitchen.psv') then

	define prmishap();
		pr('SORRY SOMETHING\'S GONE WRONG\n\nBYE\n');
		sysexit()
	enddefine;

	pr(popheader); pr(newline);
	false -> popheader;

	trycompile('$usepop/pop/lib/demo/moregram.p') ->;

	sysexit -> interrupt;
	vedscreenlength -> vedstartwindow;
	test();
	sysexit()
endif;

sysexit();

\\

rm -f $poplocalbin/kitchen.psv-
echo "kitchen.psv done."


# --- Revision History ---------------------------------------------------
# --- Robert John Duncan, May 31 1991
#		Added %nort
# --- John Williams, Dec  6 1990
#		Now uses %noinit
# --- Aaron Sloman, Oct 27 1988
#		Removed call of vedsetup
# --- Aaron Sloman, Aug 15 1986
#		Fixed environment
