home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
bbs
/
popmax1.zip
/
INSTALL.POP
< prev
next >
Wrap
Text File
|
1993-06-17
|
6KB
|
238 lines
POPMAX! Installation Macro.
--------------------------------------
{:ali}
{:begin}
{call setup}
{call findf}
{exec %drive} -
{exec cd %zpath} -
{call append} -
{call edit} -
{call compile}-
{call option} -
{call silto}
{}
{:findf} find files
{call homdir}
{call commo}
{call inform}
{return}
{:setup}
{setv zct,0}
{curs n}
{loca n}
{setv linct,0}
{setv count,0}
{setv badcount,0}
{clear}
{return}
{:homdir}
{clear}
{disp 3,7,0b, You now will be asked the name of your Maximus home directory.}
{disp 4,7,0b, Please enter the full pathname in the prompt box below. }
{disp 6,7,0b, For example: }
{disp 6,20,0a, C:\Max\ or D:\bbs\max\ }
{disp 18,7,0b, This is where your Maximus executables (Max.exe, Max.ovl) are }
{disp 19,7,0b, located. Include the trailing backslash with the pathname. }
{input homedir,Maximus Home Directory (Include trailing backslash)}
{subst drive,1,2,%homedir}
{leng %homedir}
{setv zpat,%_len}
{decr zpat}
{subst zpath,1,%zpat,%homedir}
{ifex %homedir%max.exe,rit,dirnot}
{:commo}
{clear}
{setv file,commo.com}
{call check}
{setv file,commo.set}
{call check}
{setv file,commo.mac}
{call check}
{setv file,commo.fon}
{call check}
{setv file,commo.hlp}
{call check}
{setv file,install.bat}
{call check}
{setv file,install.pop}
{call check}
{setv file,readme.1st}
{call check}
{setv file,popmax.pop}
{call check}
{setv file,popmax.mec}
{call check}
{setv file,popmenu.mec}
{call check}
{setv file,compile.pop}
{call check}
{setv file,document.pop}
{call check}
{setv file,outline.pop}
{call check}
{setv file,popdata.pop}
{call check}
{setv file,tagmenu.pop}
{call check}
{setv file,gui_hlp.pop}
{call check}
{setv file,mecca.exe}
{call check}
{setv file,silt.exe}
{call check}
{setv file,max.ctl}
{call check}
{return}
{:check}
{setv path,%homedir%%file}
{incr count}
{ifex %path,,nothere}
{disp %count,1,0B,%file%}
{disp %count,14,07,found}
{return}
{:nothere} - filenot found
{incr badcount}
{disp %count,1,4e,%file% not found}
{disp %count,25,0e,<---------- %badcount%. %file}
{return}
{:dirnot}
{clear}
{setexc-p0 exit}
{disp 20,08,4e, The Directory %homedir% does not contain your Max.Exe file }
{disp 21,10,0c, Press <enter> to input again, or <escape> to quit}
{gets-h xxx,1,ali}
{:inform}
{setv newcount,%count}
{incr newcount,3}
{comp badcount,0}
{ifco allhere}
{disp %newcount,1,0e, %badcount% files were not found. Please import them to the }
{incr newcount}
{disp %newcount,1,0e, maximus home directory and type `install' again. }
{return}
{:allhere}
{disp %newcount,1,0f, All files were found! Please press any key to continue. }
{gets-h xxx,1,rit}
{return}
{:append}
{loca y}
{spoc n}
{spdc y}
{setesc-p0 exit}
{clear}
{disp 3,1,02,This text will be appended to your copy of menus.ctl:}
{disp 7,1,02,}
{ropen tagmenu.pop,rit}
{setv zct,5}
{call xread}
{rclos}
{disp 15,1,02,When compiled, it will make a menu so the POPMAX! menus will be displayed. }
{disp 19,1,0d,Press <enter> to append your copy of Menus.Ctl. <Escape> quits }
{gets-h xxx,1,}
{wopen-a menus.ctl}
{ropen tagmenu.pop,rit}
{call again}
{disp 20,1,0f, -------------> Done! }
{disp 20,30,0c, press <enter>.. }
{gets-h xxx,1,}
{rclos}
{wclos}
{clear}
{return}
{:xread}
{incr zct}
{read %line}
{disp %zct%,1,07,%line}
{goto xread}
{:again}
{read %line}
{writ %line}
{goto again}
{:edit}
{clear}
{setv xxx}
{disp 3,1,03, You must now edit 6 fields in the main POPMAX! macro, POPMAX.POP.}
{disp 4,1,03, These are simple questions about your serial ports, and online sysop}
{disp 5,1,03, preferences. The questions are at the top of the macro, and can be }
{disp 6,1,03, revised at any time.}
{disp 9,1,0d,Press <enter> to Edit POPMAX! file. <Escape> quits }
{gets-h xxx,1,edin}
{:edin}
{setv xyz,n}
{edit popmax.pop}
{input xyz,Edit again? [y/N]}
{comp xyz,y}
{ifco edin}
{return}
{:compile}
{clear}
{display 3,1,0e, Now this program will compile two system mecca files with Mecca.Exe}
{display 4,1,0e, POPMAX.MEC, and POPMENU.MEC}
{disp 9,1,0d,Press <enter> to compile . <Escape> quits }
{gets-h xxx,1,}
{exec mecca popmax}
{exec mecca popmenu}
{return}
{:option}
{clear}
{display 3,1,0d,Now you must edit the Menus.Ctl file, and install the}
{display 4,1,0d,following line in the MAIN MENU section:}
{display 6,1,0c,Display_Menu POPMAX disgrace "! POPMAX"}
{display 7,1,0e,-------------------- ------------------- }
{display 8,1,0e, / / }
{display 9,1,0e, / +-----------+ This can be written}
{display 10,1,0e,This must be typed-in to conform to your system's}
{display 11,1,0e,excactly as shown. particular needs}
{display 15,1,0f,Press <e> to edit file, <enter> to continue to next step ,<esc> to quit}
{display 16,1,0a,You may edit several times if you wish}
{:askct}
{gets-h yn,1,}
{comp yn}
{ifco rit}
{comp yn,e}
{ifco edct}
{goto exit}
{:edct}
{edit menus.ctl}
{goto option}
{:rit}
{return}
{:exit}
{exit}
{:silto}
{clear}
{display 3,1,0d,All done. Remember to compile Max.Ctl with Silt.Exe!}
{display 4,1,0d,When you login, you can access the documents online}
{display 5,1,0d,via the sysop screen. Good Luck!}
{display 7,1,0e,Alt-x will exit to your Max directory.}
{}