^B,KERMIT;
^L,*** Macro to compile, load and dump KERMIT ***
^F,1,Username to put BRF-code on (Default: Own user);
^D,1;
^F,2,List output file for Main code (MUST already exist);
^D,2,0;
^F,3,User to install HELP-files on (SYSTEM or HELP if to be publicly avail.);
^D,3,HELP;
^F,4,Command to activate H-version of ND-Pascal;
^D,4,H-Pascal;
^;
@cc (It is OK if some of these command say "FILE ALREADY EXISTS")
@cc Start assembling of Monitor-routines for Pascal:
@create-file (\1)kermit-monitors:brf,,
@mac
)9ASSM KERMIT-MONITORS:MAC,,(\1)KERMIT-MONITORS
)9EXIT
@cc Start making HELP-library available.
@\4
compile h-main,,100
ex
@create-file helpgen:prog,,
@nrl
aut .
s-l-a 164400
load 100
load (\1)kermit-monitors
load pas-lib
dump helpgen
exit
@cc Now make help-library, and copy it.
@create-file kermit:hlib,,
@create-file (\3)Kermit:help,,
@copy-file (\3)Kermit:help Kermit:help
@cc Make pointers into HELP-text:
@cc Remember to run this program each time the HELP-file is edited/changed.
@hold 5 2
@helpgen
@copy-file (\3)Kermit:hlib Kermit:hlib
@cc Compile HELP-utility as a separate procedure:
@create-file (\1)h-auxil:brf,,
@\4
compile h-auxil,,(\1)h-auxil
exit
@cc And NOW compile Kermit main code:
@create-file (\1)Kermit:brf,,
@\4
compile Kermit,\2,(\1)Kermit
exit
@cre-file Kermit:prog,,
@nrl
size 1000
aut .
s-l-a 124000
load (\1)Kermit
load (\1)h-auxil
load (\1)Kermit-monitors
load pas-lib
dump Kermit
exit
@cc Now remember to copy Kermit:Prog to SYSTEM
@cc if it is to be publicly available.
^E;
^B,BAKER;
^L,*** Macro to take a backup of Kermit ***
^F,1,Dir.Name of Floppy;
^D,1,Floppy;
^F,2,UserName on Floppy;
^D,2,Supported-kermit;
^F,3,DirectoryName to copy from;
^D,3,Pack-54;
^F,4,UserName to copy from;
^D,4,Supported-Kermit;
^;
@perf kermit GIVKER,\1,\2,\3,\4,,
@ba-sy
cop
d \1 \2
d \3 \4 kermit:symb l
cop
d \1 \2
d \3 \4 Kermit:Mcro l
cop 
d \1 \2
d \3 \4 kermit-mon:mac l
cop 
d \1 \2
d \3 \4 H:symb l
cop
d \1 \2
d \3 \4 plans:text l
cop
d \1 \2
d \3 \4 read:me l
exit
^E;
^B,GIVKER;
^L,*** Macro to copy out Kermit:Prog, :Help and :HLib ***
^F,1,Dir.Name of Floppy;
^D,1,Floppy;
^F,2,UserName on Floppy;
^D,2,Supported-Kermit;
^F,3,Directory to copy from;
^D,3,Pack-54;
^F,4,User to copy from;
^D,4,Supported-Kermit;
^;
@ba-sy
cop
d \1 \2
d \3 \4 Kermit:prog l
cop
d \1 \2
d \3 \4 kermit:h l
exit
^E;