stack 8000
;     SCRIPT FILENAME: Writer.def
;     DATE: 12-28-94 
;     DESCRIPTION: AUTHORING TOOL FOR MUINT

SET location `CD`
list >ram:LocalDir $location   lformat "%F%N" all


;================   WRITE THE BUTTON FILE TO RAM: ====================

echo  >ram:WRIbuttons "      EDIT        ;execute WRIeditLV.scp []"
echo >>ram:WRIbuttons " EDIT NEW FILE    ;execute WRIeditnew.scp"
echo >>ram:WRIbuttons " EXECUTE SCRIPT   ;execute []"
echo >>ram:WRIbuttons " READ WITH AGUIDE ;RUN >NIL: AMIGAGUIDE []"
echo >>ram:WRIbuttons " READ WITH MULTIV ;RUN >NIL: SYS:UTILITIES/MULTIVIEW []"
echo >>ram:WRIbuttons "  READ WITH MORE  ;RUN >NIL: SYS:UTILITIES/MORE []"
echo >>ram:WRIbuttons " READ WITH ADVICE ; Advice *" TEST *" [] POS CENTERSCR"
echo >>ram:WRIbuttons "READ WITH TEXTWIN ;TextWin *" TEST *" []"
echo >>ram:WRIbuttons "SET PROTECT BIT ON;execute WRIprotectLV.scp []"
echo >>ram:WRIbuttons "DELETE FILE;execute WRIdelLV.scp []"
echo >>ram:WRIbuttons "HELP;advice *"WRITER DOCS*" writer.doc" POS CENTERSCR
echo >>ram:WRIbuttons "QUIT"

;================   WRITE THE DEFINITION FILE TO RAM: ====================

echo   >ram:WRI.cl "BEGIN"
echo  >>ram:WRI.cl "TITLE *"WRITER - The MUInt Authoring Tool -  by BOTH Software (12-20)*"" 
echo  >>ram:WRI.cl "LV ram:LocalDir SORT"
echo  >>ram:WRI.cl "BUTTONS ram:WRIbuttons"
echo  >>ram:WRI.cl "END"


RUN >NIL: MUInt ram:WRI.cl 

DELETE ram:WRI#? QUIET

QUIT