home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / comm / mbbs25a4.zip / MACRONYT.MAC < prev    next >
Text File  |  1993-05-30  |  3KB  |  123 lines
  1.  
  2.                              MACRONYT.MAC 2.5 ALPHA
  3.                       by Jeff Oberlee   (C)opyright 1992,93
  4.  
  5. {:alr} {MACL MACROBBS.MAC,WF3}   {:alu} {MACL MACROBBS.MAC,bbs}
  6.  
  7. {:start}
  8.   {BEEP} {BEEP} {PAUS 1} {BEEP} {BEEP}
  9.   {DISP 2,1,0F,Cleaning up for %ldate:}
  10.   {IFEX %_hom%EVENTS.BAT,,SCH3}
  11.   {DISP 3,1,07,Running RVENTS batch...}
  12.   {EXEC EVENTS.BAT}
  13.   {CLEA}
  14.   {DISP 2,1,0F,Cleaning up for %ldate:}
  15. {:SCH3}
  16.   {CALL read_data} {SETV login_name,%l_caller} {SETV userno,%luserno}
  17.   {DISP 3,1,07,Closing log...}
  18.   {WOPE-A %datadir%LOG-1.LOG} {WRIT  } {WRIT ██████████████████████████████████ END OF DAY ██████████████████████████████████} {WCLO}
  19.   {DISP 4,1,07,Updating CALLERS.ALL...}
  20.   {IFEX %datadir%CALLERS.TDY,,SCH12}
  21.   {ROPE %datadir%CALLERS.TDY,SCH11}
  22.   {WOPE-A %datadir%CALLERS.ALL}
  23. {:SCH} {READ dline} {WRIT %dline} {GOTO SCH}
  24. {:SCH11} {WCLO}
  25.   {EXEC-N DEL %datadir%CALLERS.TDY}
  26. {:SCH12} {DISP 5,1,07,Updating STATS.LOG...}
  27.   {SETV ch,3} {LENG %ttu} {DECR ch,%_len} {SUBS dline,1,%ch,  }
  28.   {SETV ch,3} {LENG %tdcalls} {DECR ch,%_len} {SUBS cline,1,%ch,  }
  29.   {WOPE-A %datadir%STATS.LOG} {WRIT %ldate     %cline%%tdcalls    %dline%%ttu mins     %pub        %pvt} {WCLO}
  30.   {SETV ch,0} {SETV count,0}
  31.   {DISP 6,1,07,Updating CHART.LOG...}
  32. {:SCH0} {INCR ch,20} {INCR count}
  33.   {COMP ch,%ttu} {IFCO-LE SCH0}
  34.   {SUBS dline,1,%count,│████████████████████████████████████████████████████████████████████████}
  35.   {SUBS day,1,2,%ldate} {SUBS mon,4,2,%ldate}
  36.   {WOPE-A %datadir%CHART.LOG} {WRIT %day/%mon %dline} {WCLO}
  37.   {SETV ldate,%_dat} {SETV stime,no calls} {SETV ftime,yet today}
  38.   {SETV tdcalls,0} {SETV ttu,0} {SETV pvt,0} {SETV pub,0} {SETV tf,1}
  39.   {SETV day} {SETV mon} {SETV dline}
  40.   {CALL write_data}
  41.   {DISP 7,1,07,Opening LOG for %_dat...}
  42.   {SETV count,7}
  43. {:SCH1} {SETV ch,%count} {DECR count}
  44.   {COMP count,0} {IFCO SCH2}
  45.   {IFEX %datadir%LOG-%count.LOG,,SCH1}
  46.   {EXEC-N COPY %datadir%LOG-%count.LOG %datadir%LOG-%ch.LOG}
  47.   {GOTO SCH1}
  48. {:SCH2} {EXEC-N DEL %datadir%LOG-1.LOG}
  49.   {WOPE-A %datadir%LOG-1.LOG} {WRIT ███████████████████████████████ LOG OF %_dat ████████████████████████████████} {WRIT  } {WRIT  } {WCLO}
  50. {:SCH7} {DISP 8,1,07,Replenishing User Time Table...}
  51.   {CALL read_info}
  52.   {WOPE %datadir%TIMEUSED.LOG}
  53.   {SETV ch,0}
  54. {:SCH8} {INCR ch}
  55.   {WRIT %tlc}
  56.   {COMP ch,%uhigh} {IFCO ,SCH8}
  57.   {WCLO}
  58.  
  59.   {DISP 9,1,,%an7%%an9* COMPLETE *}
  60.   {BEEP} {BEEP} {PAUS 1} {BEEP} {BEEP}
  61.   {MACL MACROBBS.MAC,bbs}
  62.  
  63. {:read_info}
  64.   {ROPE %_hom%MACROBBS.CFG,err1}
  65.   {READ bbs}
  66.   {READ sysop}
  67.   {READ syspass}
  68.   {READ datadir}
  69.   {READ msgsdir}
  70.   {READ max}
  71.   {READ userdir}
  72.   {READ filedir}
  73.   {READ mspeed}
  74.   {READ initstr}
  75.   {READ bw}
  76.   {READ term}
  77.   {READ cb}
  78.   {READ dal}
  79.   {READ sal}
  80.   {READ ring}
  81.   {READ connect}
  82.   {READ tlc}
  83.   {RCLO}
  84. {:err1} {RETURN}
  85.  
  86. {:read_data}
  87.   {ROPE %datadir%CALLER.DAT,RD1}
  88.   {READ %callno}
  89.   {READ %tdcalls}
  90.   {READ pub}
  91.   {READ pvt}
  92.   {READ ttu}
  93.   {READ tf}
  94.   {READ ldate}
  95.   {READ stime}
  96.   {READ ftime}
  97.   {READ l_caller}
  98.   {READ luserno}
  99.   {READ uhigh}
  100.   {READ mhigh}
  101.   {READ fhigh}
  102.   {RCLO}
  103. {:RD1} {RETURN}
  104.  
  105. {:write_data}
  106.   {WOPE %datadir%CALLER.DAT}
  107.   {WRIT %callno}
  108.   {WRIT %tdcalls}
  109.   {WRIT %pub}
  110.   {WRIT %pvt}
  111.   {WRIT %ttu}
  112.   {WRIT %tf}
  113.   {WRIT %ldate}
  114.   {WRIT %stime}
  115.   {WRIT %ftime}
  116.   {WRIT %login_name}
  117.   {WRIT %userno}
  118.   {WRIT %uhigh}
  119.   {WRIT %mhigh}
  120.   {WRIT %fhigh}
  121.   {WCLO}
  122.   {RETURN}
  123.