[Back to NETWORK SWAG index] [Back to Main SWAG index] [Original]

     {
     Program Name : Ntxavail.Pas
     Written By   : Anonymous
     E-Mail       : nothing
     Web Page     : nothing
     Program
     Compilation  : Turbo Pascal 5.0 or later

     Program Description :

     Usefulness for BBS'S and general communications.
     For a detailed description of this code source, please,
     read the file TENTOOLS.DOC. Thank you
     }

    Program CheckNextLetter;
    Uses CRT,Tentools;
    VAR
       NEXT : Char;
    Function NextLetter : Char;
    VAR
       SDArray : DriveArray;
       KChar,RetChar : Char;
       Ret : Word;
       K : Integer;
    Begin
       RetChar:='C';
       K:=20;
       If ((Mountlist(SDArray,K)=0)and (K>0))
       then
        begin
           KChar:='D';
           While not ((SDArray[KChar].ServerID='            ')or(KChar=Char(K+64))) do
           KChar:=Succ(KChar);
           If KChar<>Char(K+64) then RetChar:=KChar else RetChar:=#0;
        end;
       NextLetter:=RetChar;
    End;
    Begin
       NEXT:=NextLetter;
       If (Next<>#0)
       then
        begin
           Writeln('Next Mountable Drive: ',Next);
           Halt(Ord(Next)-64);
        end
       else
        begin
           Writeln(^G,'No free drives available for mounting...');
           Halt(255);
        end;
    End.

[Back to NETWORK SWAG index] [Back to Main SWAG index] [Original]