home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / PARADIS1 / NOVEL1.PAS < prev    next >
Pascal/Delphi Source File  |  1992-03-15  |  1KB  |  68 lines
  1. (10938) Tue 10 Mar 92 15:23
  2. By: Vince Laurent
  3. To: All
  4. Re:  Network problems solved!
  5. St:
  6. ---------------------------------------------------------------------------
  7. @EID:70fb 29bd2961
  8. I _hate_ when I solve a problem after I post! Argh! Here is what I have
  9. now....more on networking games soon!
  10.  
  11. PROGRAM NetStuff;
  12.  
  13. USES Dos, Crt;
  14.  
  15. VAR
  16.   Regs : Registers;
  17.   mname : Array[1..16] OF Char;
  18.  
  19. PROCEDURE Plug;
  20.  
  21. BEGIN
  22.   ClrScr;
  23.   Writeln('Fun and excitement learning networks! by V. Laurent');
  24.   Writeln;
  25. END;
  26.  
  27. FUNCTION CherHere : Boolean;
  28.  
  29. BEGIN
  30.   CherHere := True;
  31.   Regs.AH := $10;
  32.   Regs.AL := $00;
  33.   Regs.DX := seg(mname);
  34.   Regs.DS := Regs.DX;
  35.   Regs.DX := ofs(mname);
  36.   Intr($2F,Regs);
  37.   CASE Regs.AL OF
  38.     $00 : Writeln(' Share not installed. Please install');
  39.     $01 : Writeln(' Share not installed. Unable to install');
  40.     $FF : Writeln(' Share installed');
  41.    END;
  42.   IF Regs.AL <> $FF THEN CherHere := False;
  43. END;
  44.  
  45. BEGIN
  46.   Plug;
  47.   IF NOT CherHere THEN Halt(0);
  48.  
  49.   fillchar(mname,Sizeof(mname),#0);
  50.   Regs.AH := $5E;
  51.   Regs.AL := $0;
  52.   Intr($21,Regs);
  53.   IF Regs.CH = 0 THEN
  54.     Writeln(' Machine name not defined.')
  55.    ELSE
  56.     BEGIN
  57.       Writeln(' netBIOS name number is ',Regs.CL);
  58.       Writeln(' And machine name is ',mname);
  59.     END;
  60. END.
  61.  
  62. Hope y'all enjoying this! I am!
  63.  
  64. --- Opus-CBCS 1.73a
  65.  * Origin: Connect America #2, Austin, Tx, 512-459-3351 (1:382/10.0)
  66.  
  67. @PATH: 382/10 1 170/400 512/0 1007 
  68.