$!   VMS.COM.  Skeleton of command file to compile versions of
$!   Crudetype on VMS.  Needs TANGLE  and PASCAL compiler.
$!   Adapted to Crudetype v2, will probably need to be modified
$!   at other sites. Extra stuff also needed for any other version.
$!
$!
$! 
$!
$!
$!
$!
$ask:
$ if p1 .nes "" then goto try
$ inquire p1 "What version do you want?"
$goto ask
$!
$!
$try:
$ on warning then goto bad
$ goto 'p1'
$!
$! 
$bad: write sys$output "UNKNOWN version, ", 'p1'
$exit
$!
$!
$crudetype:
$ on warning then exit
$ set verify
$tangle xxx
crudetype.web
vms.ch
crudetype.pas
crudetype.pool

$pascal/check crudetype
$link crudetype
$exit
$!
$!
$hpgf:
$!
$!
$!HPGF. Typical example for a printer changefile. It must be 
$! appended after the system changefile.
$!
$!
$ on warning then exit
$ set verify
$copy vms.ch hpgf.vch
$append hpgf.ch hpgf.vch
$tangle xxx
crudetype.web
hpgf.vch
hpgf.pas
hpgf.pool

$pascal/check hpgf
$link hpgf
$exit
$!
$!
$noscheme:
$! 
$! this is a weirdo. Use it if your TFM files dont have coding schemes
$!
$!
$ on warning then exit
$ set verify
$copy crudetype.web noscheme.web
$append noscheme.add noscheme.web
$tangle xxx
noscheme.web
vms.ch
crudetype.pas
crudetype.pool

$pascal/check crudetype
$link crudetype
$exit
$ set noverify
$!
$!