home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / NOVPAS.ZIP / NOVELL2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-11-22  |  768 b   |  30 lines
  1. program logged;
  2.  
  3. (*
  4.        This program works with most current versions of novell netware
  5.        software.  It is designed to determine your station number using
  6.        msdos interrupts.
  7.        Written by:  Kip McClanahan
  8.                    9501 Bart Hollow Dr.
  9.                    Austin Tx, 78750
  10.        Feel free to ask any questions about the program.
  11.  
  12. *)
  13.  
  14.  
  15. type result = record case integer of
  16.                 1:(ax,bx,cx,dx,bp,si,di,ds,es,flags:integer);
  17.                 2:(al,ah,bl,bh,cl,ch,dl,dh:byte);
  18.               end;
  19.  
  20. var regs:result;
  21.  
  22. begin
  23.   with regs do begin
  24.     ah:=$dc;
  25.     msdos(regs);
  26.     writeln ('Your Station Number:',al);
  27.     writeln ('Ascii Version:',ch,cl);
  28.   end;
  29. end.
  30.