home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
comm
/
mbbs25a4.zip
/
MACRONYT.MAC
< prev
next >
Wrap
Text File
|
1993-05-30
|
3KB
|
123 lines
MACRONYT.MAC 2.5 ALPHA
by Jeff Oberlee (C)opyright 1992,93
{:alr} {MACL MACROBBS.MAC,WF3} {:alu} {MACL MACROBBS.MAC,bbs}
{:start}
{BEEP} {BEEP} {PAUS 1} {BEEP} {BEEP}
{DISP 2,1,0F,Cleaning up for %ldate:}
{IFEX %_hom%EVENTS.BAT,,SCH3}
{DISP 3,1,07,Running RVENTS batch...}
{EXEC EVENTS.BAT}
{CLEA}
{DISP 2,1,0F,Cleaning up for %ldate:}
{:SCH3}
{CALL read_data} {SETV login_name,%l_caller} {SETV userno,%luserno}
{DISP 3,1,07,Closing log...}
{WOPE-A %datadir%LOG-1.LOG} {WRIT } {WRIT ██████████████████████████████████ END OF DAY ██████████████████████████████████} {WCLO}
{DISP 4,1,07,Updating CALLERS.ALL...}
{IFEX %datadir%CALLERS.TDY,,SCH12}
{ROPE %datadir%CALLERS.TDY,SCH11}
{WOPE-A %datadir%CALLERS.ALL}
{:SCH} {READ dline} {WRIT %dline} {GOTO SCH}
{:SCH11} {WCLO}
{EXEC-N DEL %datadir%CALLERS.TDY}
{:SCH12} {DISP 5,1,07,Updating STATS.LOG...}
{SETV ch,3} {LENG %ttu} {DECR ch,%_len} {SUBS dline,1,%ch, }
{SETV ch,3} {LENG %tdcalls} {DECR ch,%_len} {SUBS cline,1,%ch, }
{WOPE-A %datadir%STATS.LOG} {WRIT %ldate %cline%%tdcalls %dline%%ttu mins %pub %pvt} {WCLO}
{SETV ch,0} {SETV count,0}
{DISP 6,1,07,Updating CHART.LOG...}
{:SCH0} {INCR ch,20} {INCR count}
{COMP ch,%ttu} {IFCO-LE SCH0}
{SUBS dline,1,%count,│████████████████████████████████████████████████████████████████████████}
{SUBS day,1,2,%ldate} {SUBS mon,4,2,%ldate}
{WOPE-A %datadir%CHART.LOG} {WRIT %day/%mon %dline} {WCLO}
{SETV ldate,%_dat} {SETV stime,no calls} {SETV ftime,yet today}
{SETV tdcalls,0} {SETV ttu,0} {SETV pvt,0} {SETV pub,0} {SETV tf,1}
{SETV day} {SETV mon} {SETV dline}
{CALL write_data}
{DISP 7,1,07,Opening LOG for %_dat...}
{SETV count,7}
{:SCH1} {SETV ch,%count} {DECR count}
{COMP count,0} {IFCO SCH2}
{IFEX %datadir%LOG-%count.LOG,,SCH1}
{EXEC-N COPY %datadir%LOG-%count.LOG %datadir%LOG-%ch.LOG}
{GOTO SCH1}
{:SCH2} {EXEC-N DEL %datadir%LOG-1.LOG}
{WOPE-A %datadir%LOG-1.LOG} {WRIT ███████████████████████████████ LOG OF %_dat ████████████████████████████████} {WRIT } {WRIT } {WCLO}
{:SCH7} {DISP 8,1,07,Replenishing User Time Table...}
{CALL read_info}
{WOPE %datadir%TIMEUSED.LOG}
{SETV ch,0}
{:SCH8} {INCR ch}
{WRIT %tlc}
{COMP ch,%uhigh} {IFCO ,SCH8}
{WCLO}
{DISP 9,1,,%an7%%an9* COMPLETE *}
{BEEP} {BEEP} {PAUS 1} {BEEP} {BEEP}
{MACL MACROBBS.MAC,bbs}
{:read_info}
{ROPE %_hom%MACROBBS.CFG,err1}
{READ bbs}
{READ sysop}
{READ syspass}
{READ datadir}
{READ msgsdir}
{READ max}
{READ userdir}
{READ filedir}
{READ mspeed}
{READ initstr}
{READ bw}
{READ term}
{READ cb}
{READ dal}
{READ sal}
{READ ring}
{READ connect}
{READ tlc}
{RCLO}
{:err1} {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}