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


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

lib hangman;

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

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

	pr(popheader); pr(newline);
	false -> popheader;
	sysexit -> interrupt;
	false -> ranseed;
	play();
	sysexit()
endif;
sysexit();

\\

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


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