#!/bin/sh
# --- Copyright University of Sussex 1991.  All rights reserved. ---------
# File:             C.unix/lib/demo/mkblocks
# Purpose:          Make saved image with LIB BLOCKS loaded
# Author:           Roger Evans, ??? (see revisions)
# Documentation: 	C.all/lib/lib/blocks/driver.p
# Related Files:	C.vms/lib/demo/mkblocks.com


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

compile('$usepop/pop/lib/lib/blocks/driver.p');

if syssave('$poplocalbin/blocks.psv') then
	pr(popheader); pr(newline);
	false -> popheader;
	start();
	sysexit()
endif;
sysexit();

\\

rm -f $poplocalbin/blocks.psv-
echo "blocks.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
# --- Aaron Sloman, Aug 15 1986
#		Re-inserted \\\\
