home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / POPMAX1.ZIP / INSTALL.POP < prev    next >
Encoding:
Text File  |  1993-06-17  |  5.7 KB  |  238 lines
  1.  
  2.      POPMAX! Installation Macro.
  3. --------------------------------------
  4.  {:ali}
  5.  {:begin}
  6.  {call setup}
  7.  {call findf}
  8.  {exec %drive}  -
  9.  {exec cd %zpath}  -
  10.  {call append} -
  11.  {call edit}   -
  12.  {call compile}-
  13.  {call option} -
  14.  {call silto}
  15.  {}
  16.  
  17.  {:findf}  find files
  18.  {call homdir}
  19.  {call commo}
  20.  {call inform}
  21.  {return}
  22.  
  23.  {:setup}
  24.  {setv zct,0}
  25.  {curs n}
  26.  {loca n}
  27.  {setv linct,0}
  28.  {setv count,0}
  29.  {setv badcount,0}
  30.  {clear}
  31.  {return}
  32.  
  33.  {:homdir}
  34.  {clear}
  35.  {disp 3,7,0b, You now will be asked the name of your Maximus home directory.}
  36.  {disp 4,7,0b, Please enter the full pathname in the prompt box below.       }
  37.  {disp 6,7,0b, For example:                                                  }
  38.  {disp 6,20,0a, C:\Max\         or         D:\bbs\max\                 }
  39.  {disp 18,7,0b, This is where your Maximus executables (Max.exe, Max.ovl) are }
  40.  {disp 19,7,0b, located. Include the trailing backslash with the pathname.    }
  41.  {input homedir,Maximus Home Directory (Include trailing backslash)}
  42.  {subst drive,1,2,%homedir}
  43.  {leng %homedir}
  44.  {setv zpat,%_len}
  45.  {decr zpat}
  46.  {subst zpath,1,%zpat,%homedir}
  47.  {ifex %homedir%max.exe,rit,dirnot}
  48.  
  49.  
  50.  {:commo}
  51.  {clear}
  52.  {setv file,commo.com}
  53.  {call check}
  54.  {setv file,commo.set}
  55.  {call check}
  56.  {setv file,commo.mac}
  57.  {call check}
  58.  {setv file,commo.fon}
  59.  {call check}
  60.  {setv file,commo.hlp}
  61.  {call check}
  62.  {setv file,install.bat}
  63.  {call check}
  64.  {setv file,install.pop}
  65.  {call check}
  66.  {setv file,readme.1st}
  67.  {call check}
  68.  {setv file,popmax.pop}
  69.  {call check}
  70.  {setv file,popmax.mec}
  71.  {call check}
  72.  {setv file,popmenu.mec}
  73.  {call check}
  74.  {setv file,compile.pop}
  75.  {call check}
  76.  {setv file,document.pop}
  77.  {call check}
  78.  {setv file,outline.pop}
  79.  {call check}
  80.  {setv file,popdata.pop}
  81.  {call check}
  82.  {setv file,tagmenu.pop}
  83.  {call check}
  84.  {setv file,gui_hlp.pop}
  85.  {call check}
  86.  {setv file,mecca.exe}
  87.  {call check}
  88.  {setv file,silt.exe}
  89.  {call check}
  90.  {setv file,max.ctl}
  91.  {call check}
  92.  {return}
  93.  
  94.  {:check}
  95.  {setv path,%homedir%%file}
  96.  {incr count}
  97.  {ifex %path,,nothere}
  98.  {disp %count,1,0B,%file%}
  99.  {disp %count,14,07,found}
  100.  {return}
  101.  
  102.   {:nothere} - filenot found
  103.   {incr badcount}
  104.   {disp %count,1,4e,%file% not found}
  105.   {disp %count,25,0e,<---------- %badcount%. %file}
  106.   {return}
  107.  
  108.  {:dirnot}
  109.  {clear}
  110.  {setexc-p0 exit}
  111.  {disp 20,08,4e, The Directory %homedir% does not contain your Max.Exe file }
  112.  {disp 21,10,0c, Press <enter> to input again, or <escape> to quit}
  113.  {gets-h xxx,1,ali}
  114.  
  115.  
  116.  
  117.  {:inform}
  118.  {setv newcount,%count}
  119.  {incr newcount,3}
  120.  {comp badcount,0}
  121.  {ifco allhere}
  122.  {disp %newcount,1,0e,      %badcount% files were not found. Please import them to the                }
  123.  {incr newcount}
  124.  {disp %newcount,1,0e,      maximus home directory and type `install' again.               }
  125.  {return}
  126.  
  127.  {:allhere}
  128.  {disp %newcount,1,0f,            All files were found! Please press any key to continue.                    }
  129.  {gets-h xxx,1,rit}
  130.  {return}
  131.  
  132. {:append}
  133. {loca y}
  134. {spoc n}
  135. {spdc y}
  136. {setesc-p0 exit}
  137. {clear}
  138. {disp 3,1,02,This text will be appended to your copy of menus.ctl:}
  139. {disp 7,1,02,}
  140. {ropen tagmenu.pop,rit}
  141. {setv zct,5}
  142. {call xread}
  143. {rclos}
  144. {disp 15,1,02,When compiled, it will make a menu so the POPMAX! menus will be displayed.                  }
  145. {disp 19,1,0d,Press <enter> to append your copy of Menus.Ctl. <Escape> quits }
  146. {gets-h xxx,1,}
  147. {wopen-a menus.ctl}
  148. {ropen tagmenu.pop,rit}
  149. {call again}
  150. {disp 20,1,0f, ------------->    Done! }
  151. {disp 20,30,0c, press <enter>.. }
  152. {gets-h xxx,1,}
  153. {rclos}
  154. {wclos}
  155. {clear}
  156. {return}
  157.  
  158. {:xread}
  159. {incr zct}
  160. {read %line}
  161. {disp %zct%,1,07,%line}
  162. {goto xread}
  163.  
  164.  
  165. {:again}
  166. {read %line}
  167. {writ %line}
  168. {goto again}
  169.  
  170.  
  171. {:edit}
  172. {clear}
  173. {setv xxx}
  174. {disp 3,1,03, You must now edit 6 fields in the main POPMAX! macro, POPMAX.POP.}
  175. {disp 4,1,03, These are simple questions about your serial ports, and online sysop}
  176. {disp 5,1,03, preferences. The questions are at the top of the macro, and can be }
  177. {disp 6,1,03, revised at any time.}
  178. {disp 9,1,0d,Press <enter> to Edit POPMAX! file. <Escape> quits }
  179. {gets-h xxx,1,edin}
  180.  
  181.  
  182. {:edin}
  183. {setv xyz,n}
  184. {edit popmax.pop}
  185. {input xyz,Edit again? [y/N]}
  186. {comp xyz,y}
  187. {ifco edin}
  188. {return}
  189.  
  190. {:compile}
  191. {clear}
  192. {display 3,1,0e, Now this program will compile two system mecca files with Mecca.Exe}
  193. {display 4,1,0e, POPMAX.MEC, and POPMENU.MEC}
  194. {disp 9,1,0d,Press <enter> to compile . <Escape> quits }
  195. {gets-h xxx,1,}
  196. {exec mecca popmax}
  197. {exec mecca popmenu}
  198. {return}
  199.  
  200. {:option}
  201. {clear}
  202. {display 3,1,0d,Now you must edit the Menus.Ctl file, and install the}
  203. {display 4,1,0d,following line in the MAIN MENU section:}
  204. {display 6,1,0c,Display_Menu POPMAX       disgrace "! POPMAX"}
  205. {display 7,1,0e,--------------------      ------------------- }
  206. {display 8,1,0e,       /                          /           }
  207. {display 9,1,0e,      /                          +-----------+ This can be written}
  208. {display 10,1,0e,This must be typed-in                         to conform to your system's}
  209. {display 11,1,0e,excactly as shown.                            particular needs}
  210. {display 15,1,0f,Press <e> to edit file, <enter> to continue to next step ,<esc> to quit}
  211. {display 16,1,0a,You may edit several times if you wish}
  212. {:askct}
  213. {gets-h yn,1,}
  214. {comp yn}
  215. {ifco rit}
  216. {comp yn,e}
  217. {ifco edct}
  218. {goto exit}
  219.  
  220. {:edct}
  221. {edit menus.ctl}
  222. {goto option}
  223.  
  224.  
  225.    {:rit}
  226.    {return}
  227.  
  228.    {:exit}
  229.    {exit}
  230.  
  231.    {:silto}
  232.    {clear}
  233.    {display 3,1,0d,All done. Remember to compile Max.Ctl with Silt.Exe!}
  234.    {display 4,1,0d,When you login, you can access the documents online}
  235.    {display 5,1,0d,via the sysop screen. Good Luck!}
  236.    {display 7,1,0e,Alt-x will exit to your Max directory.}
  237.    {}
  238.