Monster Media 1993 #2/Image.iso/comm/mbbs25a4.zip/MACROSYS.MAC

Text File | 1993-05-30 | 22KB | 766 lines

                             MACROSYS.MAC 2.5 ALPHA
                      by Jeff Oberlee   (C)opyright 1992,93


{:alr} {MACL MACROBBS.MAC,WF3}  {:alu} {MACL MACROBBS.MAC,bbs}

{:esc_menu}
  {IFCA ,ESM} {SEND ^J^M%an7%%an9%Time comes to a grinding halt!  %an0}
{:ESM} {SETE-P0 ESM2} {SETV ch}
  {PARM ,,,,0}
  {INPU ch, PRESS:  [ENTER] to CHAT, [U]seredit, [D]OS, [H]angup}
  {COMP ch,h} {IFCO ESM4}
  {COMP ch,d} {IFCO ESM5}
  {COMP on,} {IFCO ESM}
  {COMP ch,u} {IFCO ESM8}
  {COMP ch,} {IFCO ,ESM}
{:ESM1} {COMP cf,} {IFCO CT8,ESM}
{:ESM2} {SETE-P0 esc_menu}
  {IFCA ,ESM6} {SEND %an3%Then suddenly...} {PAUS 1}
{:ESM6} {RETURN}
{:ESM5} {SHEL} {GOTO ESM}
{:ESM8} {COMP login_name,} {IFCO ESM}
  {SETV lname,%login_name} {INPU lname,EDIT: Handle  (3-30 characters)}
  {COMP lname,1} {IFCO-GE ESM8}
  {LENG %lname} {COMP _len,3} {IFCO-L ESM8}
  {LENG %lname} {COMP _len,30} {IFCO-G ESM8}
{:ESM10} {SETV ch,%al} {INPU ch,EDIT: Access Level  (0-999)}
  {COMP ch,999} {IFCO-G ESM10}
{:ESM9} {SETV temp,%pcpd} {INPU temp,EDIT: Time limit per Day/Call (D/C)}
  {COMP temp,c} {IFCO ESM11}
  {COMP temp,d} {IFCO ,ESM9}
{:ESM11}
  {SETV al,%ch}
  {SETV pcpd,%temp}
  {SETV row,%_row} {SETV col,%_col} {DISP 2,2,0F,%an9 * Saving * }
  {COMP lname,%login_name} {IFCO ESM7}
  {SETV login_name,%lname}
  {SETE time_out}
  {CALL update_clist}
{:ESM7} {CALL write_user}
  {DISP 2,2,07,            }
  {DISP %row,%col,,}
  {SETV row} {SETV col} {SETV lname}
  {GOTO ESM}
{:ESM4} {SETV s,2} {GOTO time_out}

{:chat}
  {SETV temp,0} {SETV ccount,0}
  {WOPE-A %datadir%LOG-1.LOG} {WRIT %_tim : Chat request} {WCLO}
  {SEND ^J^M^J%an4%Paging %sysop ...^J^M}
  {SPOC n} {SEND %an3%Press %an0[ESC]%an3 then %an0[ENTER]%an3 to chat with%an7 %login_name %an3...^J^M} {SPOC y}
{:CT7} {INCR ccount} {SETV-S ch,an%ccount}
  {SEND %ch█}
  {SEND ^G} {SEND ^G} {SEND ^G} {PAUS 2}
  {COMP ccount,5} {IFCO-G ,CT7}
{:CT6} {SETV chat,CHAT}
  {SEND ^M%an0%Sorry, %sysop isn't around right now.^J^M}
  {SEND %an0%However, the chat flag has been set.^J^M^J}
  {GOTO CT9}
{:CT8} {SETV tl,%_ela}
  {WOPE-A %datadir%LOG-1.LOG} {WRIT %_tim : Started chat} {WCLO}
  {COMP cb,y} {IFCO ,CT14}
  {CAPT y,%datadir%CHAT.LOG}
{:CT14} {SEND ^J^M^J%an3%You've just entered . . . %an7%The Twilight Zone.  %an3%Reality vanishes.^J^M}
  {SEND %an2(Type "%an0%bye!%an2" on a blank line to exit when desired.)^J^M}
  {SETV cf,1} {SETV co1,%an0} {SETV co2,%an3}
  {SETE-P0 esc_menu}
  {PUSH}
0{:CT2} {COMP cf,1} {IFCO CT3}
  {SEND %co2} {SETV cf,1} {GOTO CT4}
{:CT3} {SEND %co1} {SETV cf,2}
{:CT4} {SETV cline}
{:CT5} {SEND ^J}
{:CT13} {SEND ^M%cline}
  {GETS-AH cline,78,CT2}

  {COMP cline,/c} ......... {IFCO switch_c}
  {COMP cline,bye!} ....... {IFCO CT1}
  {COMP cline,bye!!} ...... {IFCO time_out}
  {COMP cline,/scroll} .... {IFCO view_scroll}
  {COMP cline,NO CARRIER} . {IFCO time_out}

  {LENG %cline}
  {COMP %_len,78} {IFCO-L CT4}
  {SETV ccount,79}
{:CT11} {DECR ccount}
  {COMP ccount,60} {IFCO-LE CT4}
  {SUBS ch,%ccount,1,%cline}
  {COMP ch, } {IFCO ,CT11}
  {COMP ccount,78} {IFCO CT4}
  {INCR ccount}
  {SUBS cline,%ccount,100,%cline}
{:CT12} {COMP ccount,%_len} {IFCO-G CT5}
  {SEND ^H ^H}
  {INCR ccount}
  {GOTO CT12}
{:CT1} {CAPT n}
  {SETV ch,%_ela} {DECR ch,%tl} {INCR tlc,%ch} {SETV tl}
  {SEND ^J^M^J%an3%You've just left . . . %an7%The Twilight Zone.  %an3%Reality restored.^J^M^J}
  {WOPE-A %datadir%LOG-1.LOG} {WRIT %_tim : Ended chat} {WCLO}
  {SETV cf} {SETV co1} {SETV co2} {SETV chat} {SETV cline}
  {POPS}
{:CT9} {SETV ccount}
  {SETE-P0 esc_menu}
  {CALL press_any_key}
  {RETURN}

{:switch_c}
{:SW1} {SEND ^M%an0(0 %an1%1 %an2%2 %an3%3 %an4%4 %an5%5 %an6%6 %an7%7%an0)  ^H}
  {GETS-H ch,1,SW1}
  {COMP ch,0} {IFCO-L SW1}
  {COMP ch,7} {IFCO-G SW1}
  {SEND ^M                    ^M}
  {COMP cf,1} {IFCO ,SW3}
  {SETV-S co2,an%ch} {SEND %co2} {GOTO SW4}
{:SW3} {SETV-S co1,an%ch} {SEND %co1}
{:SW4} {SETV cline}
  {GOTO CT13}

{:press_any_key}
  {COMP mnu,a} {IFCO PAK1}
  {SEND %an3%%an9^[[24;1h^[[24;1f[Press Any Key]%an0}
  {GOTO PAK2}
{:PAK1} {SEND ^J^M^J[Press Any Key]}
{:PAK2} {SETG 300,time_out}
  {GETS-H temp,1,PAK}
{:PAK} {SEND ^M               ^M}
  {SETV temp}
  {RETURN}

{:view_scroll}
  {SCROLL}
  {GOTO CT4}

{:update_clist}
  {ROPE %datadir%CALLERS.LST,UC1}
  {WOPE %datadir%TEMP.000}
{:UC2} {READ ch} {READ cline} {READ dline}
  {COMP ch,%userno} {IFCO UC3}
  {WRIT %ch} {WRIT %cline} {WRIT %dline} {GOTO UC2}
{:UC3} {COMP s,1} {IFCO UC5}
{:UC4} {WRIT %ch}
  {WRIT %login_name}
  {WRIT %password}
{:UC5} {READ dline} {WRIT %dline} {GOTO UC5}
{:UC1} {WCLO}
  {EXEC-N COPY %datadir%TEMP.000 %datadir%CALLERS.LST}
  {EXEC-N DEL %datadir%TEMP.000}
  {RETURN}

{:write_user}
  {WOPE %userdir%%userno.USR}
  {WRIT %login_name}
  {WRIT %password}
  {WRIT %al}
  {WRIT %protocol}
  {WRIT %expert}
  {WRIT %a}
  {WRIT %fa}
  {WRIT %_dwt %_dat}
  {WRIT %rname}
  {WRIT %from}
  {WRIT %pcpd}
  {WRIT %clr2}
  {WRIT %arcer}
  {WRIT %arc}
  {WCLO}
  {RETURN}

{:time_out}
  {SETV userno,%temp2}
  {CALL read_user}
  {SETV temp1} {SETV temp2}
  {MACL MACROBBS.MAC,time_out}

{:cls}
  {CLEA}
  {COMP on,} {IFCO CLS3}
  {COMP mnu,A} {IFCO CLS1}
  {SEND ^[[2J}
  {GOTO CLS2}
{:CLS1} {SEND ^L}
{:CLS2} {DISP 1,1,4F,│                                                                              }
  {DISP 1,3,4E,%login_name #%userno}
  {DISP 1,40,47,AL=%al}
  {DISP 1,49,47,%mspeed}
  {DISP 1,57,47,%_ela mins}
  {DISP 1,70,4F,%an9%%chat}
  {DISP 2,1,4F,│                                                                              }
  {DISP 2,3,47,%rname  -  %from}
  {DISP 3,1,4F,└──────────────────────────────────────────────────────────────────────────────}
  {DISP 4,1,07,}
{:CLS3} {RETURN}

{:read_user}
  {ROPE %userdir%%userno.USR,RU1}
  {READ login_name}
  {READ password}
  {READ al}
  {READ protocol}
  {READ expert}
  {READ a}
  {READ fa}
  {READ l_call}
  {READ rname}
  {READ from}
  {READ pcpd}
  {READ clr2}
  {READ arcer}
  {READ arc}
  {RCLO}
{:RU1} {RETURN}

{:read_data}
  {ROPE %datadir%CALLER.DAT,RD1}
  {READ %callno}
  {READ %tdcalls}
  {READ pub}
  {READ pvt}
  {READ ttu}
  {READ tf}
  {READ ldate}
  {READ stime}
  {READ ftime}
  {READ l_caller}
  {READ luserno}
  {READ uhigh}
  {READ mhigh}
  {READ fhigh}
  {RCLO}
{:RD1} {RETURN}

{:write_data}
  {WOPE %datadir%CALLER.DAT}
  {WRIT %callno}
  {WRIT %tdcalls}
  {WRIT %pub}
  {WRIT %pvt}
  {WRIT %ttu}
  {WRIT %tf}
  {WRIT %ldate}
  {WRIT %stime}
  {WRIT %ftime}
  {WRIT %login_name}
  {WRIT %userno}
  {WRIT %uhigh}
  {WRIT %mhigh}
  {WRIT %fhigh}
  {WCLO}
  {RETURN}

{:read_baseinfo}
  {SETV fido}
  {ROPE %msgsdir%A%a.BAS,RB1}
  {READ bname}
  {READ %bal}
  {READ maxmsg}
  {READ lomsgno}
  {READ himsgno}
  {READ fido}
  {RCLO}
{:RB1} {RETURN}

{:update_baseinfo}
  {WOPE %msgsdir%A%a.BAS}
  {WRIT %bname}
  {WRIT %bal}
  {WRIT %maxmsg}
  {WRIT %lomsgno}
  {WRIT %himsgno}
  {WRIT %fido}
  {WCLO}
  {RETURN}

{:match_name_userno}
  {IFEX %datadir%CALLERS.LST,,MNU2}
  {ROPE %datadir%CALLERS.LST,MNU2}
{:MNU1} {READ ch} {READ lname} {READ dline}
  {COMP to,%ch} {IFCO MNU5}
  {COMP to,%lname} {IFCO ,MNU1}
{:MNU5} {SETV to,%lname}
  {SETV tono,%ch}
  {RCLO}
  {SETV t,1}
  {GOTO MNU4}
{:MNU2} {SEND %an1%ID not found.} {PAUS 1}
{:MNU4} {RETURN}

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

{:menu}
  {SETV temp1,%login_name} {SETV temp2,%userno}
  {PUSH}
  {SETE-P0 esc_menu}
  {SETG 600,time_out}
{:CLR1}
  {CALL cls}
  {SEND ^J^M^J%an7  Master SysMenu^J^M}
  {SEND ^J^M%an7 1.%an4 File Areas}
  {SEND ^J^M%an7 3.%an4 Message Areas}
  {SEND ^J^M%an7 4.%an4 Caller Records^J^M^J}
{:ME2}
  {SEND ^M%an0  1-4, ENTER=quit:  ^H}
  {GETS-H ch,1,ME1}
  {COMP ch,1} {IFCO EFA}
  {COMP ch,3} {IFCO EMA}
  {COMP ch,4} {IFCO ECA,ME2}
{:ME1} {POPS}
  {SETV total} {SETV high} {SETV temp} {SETV na}
  {SETV temp1} {SETV temp2}
  {MACL MACROBBS.MAC,main_menu}

{:EMA}
  {SEND %an0}
  {SEND ^J^M^J%an7%%an9 Scanning...}
  {SETV dline,Message Area(s)}
  {CALL get_minfo}
{:EM2} {SEND ^M%an0               ^M}
  {SETV dline,Message Area(s)}
  {CALL AE1}
  {COMP ch,e} {IFCO EM6}
  {COMP ch,r} {IFCO EM21}
  {COMP ch,d} {IFCO EM3,EM4}

{:get_minfo}
  {SETV high,0} {SETV total,0} {SETV na,0} {SETV temp,0}
{:EM} {INCR temp} {COMP temp,%mhigh} {IFCO-G EM0}
  {IFEX %msgsdir%A%temp.BAS,,EM}
  {SETV high,%temp}
  {INCR total} {GOTO EM}
{:EM0} {INCR na} {IFEX %msgsdir%A%na.BAS,EM0}
  {RETURN}

{:EM21} {CALL cls}
  {SEND ^J^M%an3 Review Message Area(s)^J^M^J}
{:EM22} {SEND ^M%an7 Begin at which area? %an0(1-%mhigh) :   ^H^H}
  {GETS a,2,EM2}
  {IFEX %msgsdir%A%a.BAS,,EM22}
{:EM23}
  {CALL read_baseinfo}
  {CALL msgdspl}
  {SEND ^J^M%an0 LOmsg #: %an7%%lomsgno}
  {SEND ^J^M%an0 HImsg #: %an7%%himsgno}
  {CALL spacebar}
  {COMP ch, } {IFCO ,EM2}
{:EM24} {INCR a}
  {COMP a,%mhigh} {IFCO-G EM2}
  {IFEX %msgsdir%A%a.BAS,EM23,EM24}

{:EM4} {CALL cls}
  {SEND ^J^M%an3 Add a Message Area^J^M^J}
  {SEND %an0 Name: %an7%%an12                              }
  {SEND ^M%an0 Name: %an7%%an12}
  {GETS bname,30,EM2} {SEND %an0^J^M}
{:EM25} {SEND ^M%an0 FidoNet msg format? (y,n):  ^H}
  {GETS-H fido,1,EM25}
  {COMP fido,y} {IFCO EM20}
  {COMP fido,n} {IFCO ,EM25}
{:EM20} {SEND ^J^M}
{:EM26} {SEND ^M%an0 Access Level:    ^H^H^H}
  {GETS bal,3,EM26}
  {SEND ^J^M}
{:EM1} {SEND ^M%an0 MAX msg #:    ^H^H^H}
  {GETS maxmsg,3,EM1}
  {SEND ^J^M^J}
{:EM10} {SEND ^M%an1 Ok to save? (%an0%Y%an1,n) :%an0  ^H}
  {GETS-H ch,1,EM5}
  {COMP ch,n} {IFCO EM4}
  {COMP ch,y} {IFCO ,EM10}
{:EM5} {SETV lomsgno,1} {SETV himsgno,0}
  {SETV a,%na}
  {SEND ^J^M%an1 Saving area #%a...}
  {COMP a,%mhigh} {IFCO-LE EM19}
  {CALL read_data} {SETV mhigh,%a} {CALL write_data}
  {SETV count,0}
{:EM13} {INCR count}
  {COMP count,%uhigh} {IFCO-G EM19}
  {IFEX %msgsdir%INDEX\%count.IDX,,EM13}
  {WOPE-A %msgsdir%INDEX\%count.IDX} {WRIT 1} {WCLO}
  {GOTO EM13}
{:EM19} {CALL update_baseinfo}
  {EXEC-N MD %msgsdir%A%a}
{WOPE %msgsdir%INDEX\%userno.IDX}
{SETV mic,0}
{:WU1} {INCR mic}
{COMP mic,%mhigh} {IFCO-G WU2}
{SETV-S ch,a%mic} {COMP ch,} {IFCO WU3}
{WRIT %ch} {GOTO WU1}
{:WU3} {WRIT 1} {SETV a%mic,1} {GOTO WU1}
{:WU2}
{WCLO}
{SETV mic}
  {GOTO EMA}

{:EM6} {CALL cls}
  {SEND ^J^M%an3 Edit a Message Area}
  {SEND ^J^M^J%an7 Edit which? %an0(1-%mhigh) : }
  {GETS a,2,EM2}
  {COMP a,1} {IFCO-L EM6}
  {COMP a,%mhigh} {IFCO-G EM6}
  {IFEX %msgsdir%A%a.BAS,,EM6}
  {CALL read_baseinfo}
  {CALL msgdspl}
  {SEND ^J^M^J%an3 Press ENTER to keep the same.^J^M^J}
{:EM8}
  {SEND %an0 Name: %an7%%an12                              }
  {SEND ^M%an0 Name: %an7%%an12}
  {GETS ch,30,EM15}
  {SETV bname,%ch}
{:EM15} {SEND %an0}
  {SEND ^J^M%an0 Access Level: }
  {GETS ch,3,EM9}
  {SETV bal,%ch}
{:EM9} {SEND %an0}
  {SEND ^J^M%an0 MAX msg #: }
  {GETS ch,3,EM12}
  {SETV maxmsg,%ch}
{:EM12} {SEND ^J^M%an1 Saving...}
  {CALL update_baseinfo}
  {GOTO EM6}
{:EM11} {SEND %an0}
  {GOTO ME1}

{:EM3} {CALL cls}
  {SEND ^J^M%an7%%an9 DELETE%an3 a Message Area^J^M^J}
  {SEND %an7 Delete which? %an0(1-%mhigh) : }
  {GETS a,2,EM2}
  {COMP a,1} {IFCO-L EM3}
  {COMP a,%mhigh} {IFCO-G EM3}
  {IFEX %msgsdir%A%a.BAS,,EM3}
  {CALL read_baseinfo}
  {CALL msgdspl}
  {SEND ^J^M^J}
{:EM14} {SEND ^M%an7 DELETE%an0 this area? %an0(y,%an7%N%an0) ;  ^H}
  {GETS ch,1,EM2}
  {COMP ch,n} {IFCO EM2}
  {COMP ch,y} {IFCO ,EM14}
  {SEND ^J^M^J%an7%%an9 DELETING}
  {EXEC-N DEL %msgsdir%A%a.*}
  {EXEC-N DEL %msgsdir%A%a\*.msg}
  {EXEC-N RD %msgsdir%A%a}
  {CALL get_minfo}
  {COMP a,%high} {IFCO-L EM2}
  {CALL read_data} {SETV mhigh,%high} {CALL write_data}
  {GOTO EM2}

{:msgdspl}
  {CALL cls}
  {SETV temp,0}
  {COMP himsgno,0} {IFCO MD1}
  {SETV temp,%himsgno} {DECR temp,%lomsgno} {INCR temp}
{:MD1} {SEND ^J^M%an7 Message Area #%a    %an3%%temp}
  {COMP fido,y} {IFCO ,MD2}
  {SEND %an3 Fido msg(s)^J^M} {GOTO MD3}
{:MD2} {SEND %an3 MBBS msg(s)^J^M}
{:MD3}
  {SEND ^J^M%an0 Name ..: %an7%%bname}
  {SEND ^J^M%an0 AL ....: %an7%%bal}
  {SEND ^J^M%an0 MAXmsgs: %an7%%maxmsg}
  {RETURN}

{:spacebar}
  {SEND ^J^M^J}
{:SB2} {SEND ^M%an0 SPACEBAR=next, ENTER=quit  ^H}
  {GETS-H ch,1,SB1}
  {COMP ch, } {IFCO ,SB2}
{:SB1} {RETURN}

{:ECA}
  {SETE time_out}
  {SEND %an0}
  {SEND ^J^M^J%an7%%an9 Scanning...}
  {CALL get_cinfo)
 {:EC1}
  {SETV dline,Caller Records}
  {CALL AE1}
  {COMP ch,e} {IFCO EC5}
  {COMP ch,r} {IFCO EC20}
  {COMP ch,d} {IFCO EC13,EC2}

{:get_cinfo}
  {SETV high,0} {SETV total,0} {SETV na,0} {SETV temp,0}
{:EC} {INCR temp} {COMP temp,%uhigh} {IFCO-G EC0}
  {IFEX %userdir%%temp.USR,,EC}
  {SETV high,%temp}
  {INCR total} {GOTO EC}
{:EC0} {INCR na} {IFEX %userdir%%na.USR,EC0}
  {RETURN}

{:EC20} {CALL cls}
   {SEND ^J^M%an3 Review Caller Records^J^M^J}
{:EC18} {SEND ^M%an7 Begin at which record? %an0(1-%uhigh) :   ^H^H}
  {GETS userno,2,EC1}
  {IFEX %userdir%%userno.USR,,EC18}
{:EC19}
  {SETV rname} {SETV from} {SETV l_call}
  {CALL read_user}
  {SEND ^J^M^J%an7 Record #%userno^J^M}
  {SEND ^J^M%an0 Handle..: %an7%%login_name}
  {SEND ^J^M%an0 ID # ...: %an7%%userno}
  {SEND ^J^M%an0 AL .....: %an7%%al}    {SETV al}
  {SEND ^J^M%an0 Password: %an7%%password} {SETV password}
  {SEND ^J^M%an0 Name ...: %an7%%rname} {SETV rname}
  {SEND ^J^M%an0 From ...: %an7%%from}  {SETV from}
  {SEND ^J^M%an0 LastCall: %an7%%l_call} {SETV l_call}
  {CALL spacebar}
 {COMP ch, } {IFCO ,ECX}
{:EC21} {INCR userno}
  {COMP userno,%uhigh} {IFCO-G ECX}
  {IFEX %userdir%%userno.USR,EC19,EC21}
{:ECX} {SETV userno,%temp2} {CALL read_user}
  {GOTO EC1}

{:EC2} {CALL cls}
  {SETV tline}
  {SEND ^J^M%an3 Add a Caller Record^J^M^J}
  {SEND %an0 Name: %an7%%an12                              }
  {SEND ^M%an0 Name: %an7%%an12}
  {GETS tline,30,EC1}
  {SEND ^J^M%an3 Checking...}
  {LENG %tline} {COMP %_len,3} {IFCO-L EC2}
  {COMP tline,new} {IFCO EC2}
  {COMP tline,1} {IFCO-GE EC2}
  {SETV to,%tline}
  {CALL match_name_userno}
  {COMP t,1} {SETV t} {IFCO EC2}
  {SEND ^M%an0 Password:                }
  {SEND ^M%an0 Password: }
{:EC11} {GETS pass,15,EC11}
  {SEND ^J^M%an0 Access Level: }
{:EC16} {GETS temp,3,EC16}
  {SEND ^J^M^J}
{:EC3} {SEND ^M%an1 Ok to save? (%an0%Y%an1,n) :%an0  ^H}
  {GETS-H ch,1,EC4}
  {COMP ch,y} {IFCO EC4}
  {COMP ch,n} {IFCO EC2,EC3}
{:EC4} {SEND ^J^M%an1 Saving #%na...}
  {SETV login_name,%tline} {SETV userno,%na} {SETV protocol,z} {SETV password,%pass} {SETV al,%temp}
  {COMP userno,%uhigh} {IFCO-LE EC17}
  {CALL read_data}
  {SETV login_name,%temp1} {SETV userno,%temp2}
  {SETV rname} {SETV from} {SETV l_call,%_dwt %_dat}
  {SETV uhigh,%na}
  {CALL write_data}
  {SETV login_name,%tline} {SETV userno,%na}
  {WOPE-A %datadir%TIMEUSED.LOG} {WRIT %tlc} {WCLO}
{:EC17} {SETV tline}
  {CALL write_user}
  {WOPE-A %datadir%CALLERS.LST}
  {WRIT %userno}
  {WRIT %login_name}
  {WRIT %password}
  {WCLO}
  {SETV userno,%temp2}
  {CALL read_user}
  {GOTO ECA}

{:EC5} {CALL cls}
  {SEND ^J^M%an3 Edit a Caller Record^J^M}
  {SEND ^J^M%an7 Enter a Handle or ID#.}
  {SEND ^J^M ->%an3 }
  {GETS temp,30,EC1}
  {SETV to,%temp}
  {CALL match_name_userno}
  {COMP t,1} {SETV t} {IFCO ,EC5}
  {SEND ^J^M^J%an0 Edit%an4 %to%%an0?}
{:EC6} {SEND ^J^M%an1 (%an0%Y%an1,n) :  ^H}
  {GETS-H ch,1,EC7}
  {COMP ch,y} {IFCO EC7}
  {COMP ch,n} {IFCO EC5,EC6}
{:EC7} {CALL cls}
  {SETV userno,%tono}
  {CALL read_user}
  {SEND ^J^M%an7 Account #%userno^J^M}
  {SEND ^J^M%an0 Handle: %an7%%login_name}
  {SEND ^J^M%an0 Pword : %an7%%password}
  {SEND ^J^M%an0 AL    : %an7%%al^J^M}
  {SEND ^J^M%an3 Press ENTER to keep the same.^J^M^J}
  {SEND %an0 Handle: %an7%%an12                              }
  {SEND ^M%an0 Handle: %an7%%an12}
  {GETS temp,30,EC8}
  {SEND ^J^M%an3 Checking...}
  {LENG %temp} {COMP %_len,3} {IFCO-L EC5}
  {COMP temp,new} {IFCO EC5}
  {COMP temp,1} {IFCO-GE EC5}
  {SETV to,%temp}
  {CALL match_name_userno}
  {COMP t,1} {SETV t} {IFCO EC5}
  {SETV login_name,%temp} {SEND %an1 Wait...}
  {CALL update_clist}
{:EC8} {SEND %an0^J^M}
  {SEND ^M%an0 Password:                 }
  {SEND ^M%an0 Password: }
  {GETS ch,15,EC9}
  {SETV password,%ch} {SEND %an1 Wait...}
  {CALL update_clist}
{:EC9} {SEND ^J^M%an0 Access Level: }
  {GETS ch,3,EC10}
  {SETV al,%ch}
{:EC10} {SEND ^J^M^J%an1 Saving...}
  {CALL write_user}
  {SETV userno,%temp2}
  {CALL read_user}
  {GOTO EC5}

{:EC13} {CALL cls}
  {SEND ^J^M%an7%%an9 DELETE%an3 a Caller Record^J^M}
  {SEND ^J^M%an7 Enter a Handle or ID#.}
  {SEND ^J^M ->%an1 }
  {GETS ch,30,EC1}
  {SETV to,%ch}
  {CALL match_name_userno}
  {COMP t,1} {SETV t} {IFCO ,EC13}
  {COMP tono,%temp2} {IFCO EC13}
  {SEND ^J^M^J%an7 DELETE%an1 %to%%an7?}
{:EC14} {SEND ^J^M%an1  (y/%an7%N%an1) :  ^H}
  {GETS ch,1,EC13}
  {COMP ch,n} {IFCO EC13}
  {COMP ch,y} {IFCO ,EC14}
  {SEND ^J^M^J%an7%%an9 DELETING}
  {SETV userno,%tono}
  {EXEC-N DEL %userdir%%userno.USR}
  {EXEC-N DEL %userdir%INDEX\%userno.DAT}
  {EXEC-N DEL %userdir%DATA\%userno.DAT}
  {EXEC-N DEL %msgsdir%E%userno-*.*}
  {EXEC-N DEL %userdir%REGS\%userno.REG}
  {EXEC-N DEL %msgsdir%INDEX\%userno.IDX}
  {EXEC-N DEL %msgsdir%TAGS\%userno.TAG}
  {EXEC-N DEL %readdir%TAGS\%userno.OLR}
  {SETV s,1} {CALL update_clist} {SETV s}
  {CALL get_cinfo}
  {COMP userno,%high} {IFCO-L EC111}
  {CALL read_data} {SETV uhigh,%high} {SETV userno,%temp2} {CALL write_data)
{:EC111} {SETV userno,%temp2}
  {CALL read_user}
  {GOTO EC1}

{:EFA}
  {SEND %an0}
  {SEND ^J^M^J%an7%%an9 Scanning...}
  {CALL get_finfo}
{:EF1} {SEND %an0}
  {SETV dline,File Area(s)}
  {CALL AE1}
  {COMP ch,e} {IFCO EF5}
  {COMP ch,r} {IFCO EF15}
  {COMP ch,d} {IFCO EF13,EF2}

{:get_finfo}
  {SETV high,0} {SETV total,0} {SETV na,0} {SETV temp,0}
{:EF} {INCR temp} {COMP temp,%fhigh} {IFCO-G EF0}
  {IFEX %filedir%F%temp.BAS,,EF}
  {SETV high,%temp}
  {INCR total} {GOTO EF}
{:EF0} {INCR na} {IFEX %filedir%F%na.BAS,EF0}
  {RETURN}

{:EF15} {CALL cls}
  {SEND ^J^M%an3 Review File Area(s)^J^M^J}
{:EF17} {SEND ^M%an7 Begin at which area? %an0(1-%fhigh) :   ^H^H}
  {GETS a,2,EF1}
  {IFEX %filedir%F%a.BAS,,EF17}
{:EF18} {ROPE %filedir%F%a.BAS,EF5} {READ bname} {READ bal} {RCLO}
  {CALL cls}
  {SEND ^J^M%an3 File Area %a^J^M}
  {SEND ^J^M%an0 Name: %an7%%bname}
  {SEND ^J^M%an0 AL  : %an7%%bal}
  {CALL spacebar}
  {COMP ch, } {IFCO ,EF1}
{:EF19} {INCR a}
  {COMP a,%fhigh} {IFCO-G EF1}
  {IFEX %filedir%F%a.BAS,EF18,EF19}

{:EF2} {CALL cls}
  {SEND ^J^M%an3 Add a File Area^J^M^J}
  {SEND %an0 Name: %an7%%an12                              }
  {SEND ^M%an0 Name: %an7%%an12}
  {GETS bname,30,EF1}
  {SEND %an0} {SEND ^J^M%an0 Access Level? }
{:EF11} {GETS bal,3,EF11}
  {SEND ^J^M^J}
{:EF3} {SEND ^M%an1 Ok to save? (%an0%Y%an1,n) :%an0  ^H}
  {GETS-H ch,1,EF12}
  {COMP ch,y} {IFCO EF12}
  {COMP ch,n} {IFCO EF2,EF3}
{:EF12} {SETV fa,%na}
  {SEND ^J^M%an1 Saving area #%fa...}
  {COMP fa,%fhigh} {IFCO-LE EF16}
  {CALL read_data} {SETV fhigh,%fa} {CALL write_data}
{:EF16} {WOPE %filedir%F%fa.BAS} {WRIT %bname} {WRIT %bal} {WCLO}
  {WOPE %filedir%F%fa.LST}
  {WRIT -  unvalidated}
  {WRIT   Filename         Size   Description}
  {WRIT ------------------------------------------------------------------------------}
  {WCLO}
  {EXEC-N MD %filedir%F%fa}
  {GOTO EFA}

{:EF5} {CALL cls}
  {SEND ^J^M%an3 Edit a File Area}
  {SEND ^J^M^J%an7 Edit which? %an0(1-%fhigh) : }
  {GETS fa,2,EF1}
  {COMP fa,1} {IFCO-L EF5}
  {COMP fa,%fhigh} {IFCO-G EF5}
  {IFEX %filedir%F%fa.BAS,,EF5}
  {ROPE %filedir%F%fa.BAS,EF5} {READ bname} {READ bal} {RCLO}
{:EF7} {CALL cls}
  {SEND ^J^M%an7 File Area #%fa^J^M}
  {SEND ^J^M%an0 Name: %an7%%bname}
  {SEND ^J^M%an0 AL  : %an7%%bal}
  {SEND ^J^M^J%an3 Press ENTER to keep the same.^J^M^J}
  {SEND %an0 Name: %an7%%an12                              }
  {SEND ^M%an0 Name: %an7%%an12}
  {GETS ch,30,EF9}
  {SETV bname,%ch}
{:EF9} {SEND ^J^M%an0 AL  : }
  {GETS ch,3,EF10}
  {SETV bal,%ch}
{:EF10} {SEND ^J^M^J%an1 Saving...}
  {WOPE %filedir%F%fa.BAS} {WRIT %bname} {WRIT %bal} {WCLO}
  {GOTO EF5}

{:EF13} {CALL cls}
  {SEND ^J^M%an7%%an9 DELETE%an3 a File Area}
  {SEND ^J^M^J%an7 DELETE which? %an0(1-%fhigh) : }
  {GETS fa,2,EF1}
  {COMP fa,1} {IFCO-L EF13}
  {COMP fa,%fhigh} {IFCO-G EF13}
  {IFEX %filedir%F%fa.BAS,,EF13}
  {ROPE %filedir%F%fa.BAS,EF13} {READ bname} {READ bal} {RCLO}
  {CALL cls}
  {SEND ^J^M%an7 File Area #%fa^J^M}
  {SEND ^J^M%an0 Name: %an7%%bname}
  {SEND ^J^M%an0 AL  : %an7%%bal^J^M^J}
{:EF14} {SEND ^M%an7 DELETE?  %an0(y,%an7%N%an0) :  ^H}
  {GETS ch,1,EF13}
  {COMP ch,n} {IFCO EF13}
  {COMP ch,y} {IFCO ,EF14}
  {EXEC-N DEL %filedir%F%fa\*.*}
  {SEND ^J^M^J%an7%%an9 DELETING}
  {EXEC-N DEL %filedir%F%fa.*}
  {EXEC-N RD %filedir%F%fa}
  {CALL get_finfo}
  {COMP fa,%high} {IFCO-L EF1}
  {CALL read_data} {SETV fhigh,%high} {CALL write_data)
  {GOTO EF1}

{:AE1}
  {CALL cls}
  {SEND ^J^M^J%an3 %dline:^J^M}
  {SEND ^J^M%an0 High # . . . . . . .%an7 %high}
  {SEND ^J^M%an0 In use . . . . . . .%an7 %total}
  {SEND ^J^M%an0 Next available . . .%an7 %na^J^M^J}
  {SEND %an0 Press ENTER for Master SysMenu^J^M^J}
{:AE2} {SEND ^M%an0 (%an7%A%an0)dd, (%an7%D%an0)elete, (%an7%E%an0)dit or (%an7%R%an0)eview?  ^H}
  {GETS-H ch,1,menu}
  {SETV dline,ader}
  {INST dline,%ch} {IFCO ,AE2}
  {RETURN}