misc/INFMGR.PAS

{
 infusion bulletin board software - (c) skaboy101 (grant passmore) 1997-98

 infusion offline sysop system manager, written by grant passmore on
 march 13th, right before i left to go snowbaording!
}
Program Infusion_Manager;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
uses
 crt,dos,skaShit,genSubs,subs1,subs2,genTypes,configRt,control,textUnit,windows,
 video, little;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
type
 mBarDataType = record
                last  : byte;
                value : byte;
                end;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
const
 mTotalOptions = 4;
 mPullBar  : array[1..mTotalOptions] of string = (
 '    |09F|00ile    ','    |09U|00serbase    ','    |09N|00etwork    ',
 '    |09M|00iscellaneous    ');
 mHelpShit : array[1..mTotalOptions] of string = (
 '|B1|00Extended filebase configuration, as well as FILES.BBS importing...',
 '|B1|00User editing, converting, purging, etc...',
 '|B1|00Message and File network site information...',
 '|B1|00Miscellaneuos system functions...');
 mPullPos  : array[1..4] of byte = (3,20,41,57);
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
var
 mBarData    : array[0..mTotalOptions] of mBarDataType;
 mCurrentBar : 0..mTotalOptions;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure mFillBack(color : byte);
var dCount : word;
begin
 for dCount := 1 to 24*80 do
  skawrite('|B'+strr(color)+'|00▓');
end;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure mDrawLine(pos,back : byte);
var dColor : byte;
 begin
 gotoxy(1,pos);
 dColor := textAttr;
 textbackground(back);
 clrEol;
 gotoxy(1,pos);
 textAttr := dColor;
 end;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure mDrawShit(scrn : byte);
var dCount : 1..80;
 begin
  if (scrn=1) then
    begin
    clrscr;
    mFillBack(1);
    mDrawLine(1,1);
    for dCount := 1 to mTotalOptions do
      begin
      gotoxy(mPullPos[dCount],1);
      skaWrite('|B1'+mPullBar[dCount]);
      end;
     cursor_(false);
     video.Box(15,7,65,15,0,1);
     window(16,8,66,14);
     skawrite('       |08 |07Infusion Bulletin Board Software        |CR');
     skawrite('                                                 ');
     skawrite('|CR  |07 Sysop System Maintenance / Managing Utility   |CR');
     skawrite('               |07version 1.01a14                   |CR');
     skawrite('                                                 |CR');
     skawrite('      |07(c)Copyright Grant Passmore / idt 1998     |CR');
     skawrite('                                                 ');
     window(1,1,80,25);
    end;
 end;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure mUpdateBars;
 begin
  if (mCurrentBar=0) then
   begin
   gotoxy(mPullPos[mBarData[0].last],1);
   skawrite('|B1'+mPullBar[mBarData[0].last]);
   gotoxy(mPullPos[mBarData[0].value],1);
   skawrite('|B7'+mPullBar[mBarData[0].value]);
   mDrawLine(25,1);
   center_write(mHelpShit[mBarData[0].value],25);
   end;
 end;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure mSelectOptions;
 begin

 end;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure mSelectPullDown;
var k  : char;
 mDone : boolean;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
 begin
  repeat
  k := bioskey;
  case k of
  #13  : mSelectOptions;
  #27  : mDone := true;
  #205 : begin
         mBarData[0].last := mBarData[0].value;
         if (mBarData[0].value<>mTotalOptions) then inc(mBarData[0].value) else
             mBarData[0].value := 1;
         mUpdateBars;
         end;
  #203 : begin
         mBarData[0].last := mBarData[0].value;
         if (mBarData[0].value<>1) then dec(mBarData[0].value) else
             mBarData[0].value := mTotalOptions;
         mUpdateBars;
         end;
   #161 : begin
          mBarData[0].last  := mBarData[0].value;
          mBarData[0].value := 1;
          mUpdateBars;
          end;
   #150 : begin
          mBarData[0].last  := mBarData[0].value;
          mBarData[0].value := 2;
          mUpdateBars;
          end;
   #177 : begin
          mBarData[0].last  := mBarData[0].value;
          mBarData[0].value := 3;
          mUpdateBars;
          end;
   #178 : begin
          mBarData[0].last  := mBarData[0].value;
          mBarData[0].value := 4;
          mUpdateBars;
          end;
   end;
  until (mDone=true);
 end;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure mInitProc;
 var dCount : 0..mTotalOptions;
 begin
  for dCount := 0 to mTotalOptions do begin
   mBarData[dCount].last  := 1;
   mBarData[dCount].value := 1;
  end;
 mUpdateBars;
 end;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
begin
mDrawShit(1);
mInitProc;
mSelectPullDown;
end.