@prog qmuf-template.muf
1 100 d
i
: qmuf2 ( -- )
  qmuf ;
: qmuf2 ( -- )
  qmuf ;
PUBLIC qmuf2
.
c
q

@prog qmuf.muf
1 1000 d
i
$def theprog #4379
: qmuf1 (s -- )
 me @ mlevel 6 < if "^RED^Permission denied." me @ swap ansi_notify pid kill exit then
 (---)
 dup strlen not if "^GREEN^Usage: ^CYAN^" command @ strcat " ^GREEN^<command>" strcat me @ swap ansi_notify exit then
 #0 "/_defs/qmuf" 3 rotate 0 addprop
 (---)
 theprog 1 compile (pop)
 (---)
 dup not if me @ "^GREEN^@QMuf ^NORMAL^>> ^RED^Compile Failed!" ansi_notify exit then
 me @ swap "^GREEN^@QMuf ^NORMAL^>> ^CYAN^Compiled: ^GREEN^" swap intostr
 strcat " ^CYAN^bytes." strcat ansi_notify
 (---)
 theprog "qmuf2" call
 me @ "^GREEN^@QMuf ^NORMAL^>> ^CYAN^For good or ill, it is done." ansi_notify
;
.
c
q
@act @qmuf=#0,qmuf.muf
@set qmuf-template=D