#!/bin/sh
# --- Copyright University of Sussex 1991.  All rights reserved. ---------
# File:             C.unix/lib/demo/mkstrips
# Purpose:          Create saved image for strips demo
# Author:           Steve Hardy (see revisions)
# Documentation:    TEACH * SOLVER
# Related Files:    LIB * SOLVER, C.vms/lib/demo/mkstrips.com


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

lib solver;

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

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

	pr(popheader); pr(newline);
	false -> popheader;
	sysexit -> interrupt;
	popval([teach solver]);
	sysexit()
endif;
sysexit();

\\

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


# --- Revision History ---------------------------------------------------
# --- Robert John Duncan, May 31 1991
#		Added %nort
# --- John Williams, Dec  6 1990
#		Now uses %noinit
# --- John Williams, Jun 13 1988
#		Changed 'teach strips' to 'teach solver'
# --- Aaron Sloman, Aug 15 1986
#		Fixed environment
