$! --- Copyright University of Sussex 1994. All rights reserved. ----------
$! File:            C.vms/lib/demo/mkhang.com
$! Purpose:         create saved image for hangman demo
$! Author:          Unknown, ??? (see revisions)
$! Documentation:
$! Related Files:   Unix version in $usepop/master/C.unix/lib/demo/mkhang
$!
$!
$ as nl: sys$print
$ set default usepop:[pop]
$ ass/user usepop:[pop] poplib:
$ pop11 \%nort
false -> popheader;
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);
	sysexit -> interrupt;
	(poppid + systime()) && 8:11111111 -> ranseed;
	shuffle(words) -> words;
	play();
	sysexit()
endif;
sysexit();
$ purge poplocalbin:hangman.psv
$!
$! --- Revision History ---------------------------------------------------
$! --- Robert John Duncan, Oct 11 1994 - changed to use \%nort
$! --- Mark Rubinstein, Mar 27 1986 - made to use pop11 rather than newpop11
