home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / MIDICOM.LZH / MCTALK_3.9 / SOURCEN / LIBRARY / RING_TYP.I < prev    next >
Text File  |  1986-02-06  |  816b  |  28 lines
  1. str9=string[9]; { = 10 Byte }
  2.  
  3. verw  = record my_name :str9;    { Appl. Name  }
  4.                status  :integer; { Status-Bits }
  5.                disk_st :integer;
  6.         end;
  7.  
  8.       { zu Status:  bit 2 : ready to work          }
  9.       {     Bits 0,1 und 2 muessen gesetzt sein,   }
  10.       {     bevor eine Appl. sich anmelden kann.   }
  11.       {             bit 7 : habe einen Drucker     }
  12.       {             bit 8 : habe Appl.             }
  13.  
  14. Karte=array[0..6] of verw;
  15.  
  16. talk_adress=record num,what: integer;
  17.                    rufer   : string;
  18.             end;
  19. user_def=record case what:integer of
  20.                 talk:(quest:talk_adress);
  21.          end;
  22.  
  23. anytyp=record case byte of
  24.               0:(dir:directory);
  25.               1:(ver:karte);
  26.               2:(use:user_def);
  27.        end;
  28.