"Beginning installation of cmd-mereg/regme...
@prog cmd-mereg
1 99999 d
1 i
( cmd-mereg: $Date: 2000/01/28 14:53:53 $ $Revision: 1.1 $ )
( Author: Andy )
( --------------------------------------------------------------------------- )

$include $lib/glowstandard

: mereg ( s -- )
  "me" match me !
  me @ .wizard? not if "Permission denied." .tell exit then
  prog owner
  "@tune reg_wiz=*" me @ name strcat
  force
  "You are now set to process @hopper registrations." .tell
;
.
c
q
@register cmd-mereg=cmd/mereg
@register #me cmd-mereg=tmp/prog1
@set $tmp/prog1=W3
@set $tmp/prog1=/_/de:A scroll containing a spell called cmd-mereg
@action @mereg;@regme;mereg;regme=here=tmp/exit1
@link $tmp/exit1=$tmp/prog1
@set $tmp/exit1=D
@set $tmp/exit1=M3
@set $tmp/prog1=_version:FM$Revision: 1.1 $
"Installation of cmd-mereg complete.