home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 05 / texte / bild6.abb < prev    next >
Encoding:
Text File  |  1989-01-02  |  655 b   |  20 lines
  1. 6a) 
  2.      POP_Ptr           = ^POP_Typ;
  3.      POPDef_Ptr        = ^POPDef_Typ;
  4.      POPDef_Typ        = record
  5.                            Name         : Text110;
  6.                            Gezeigt      : boolean;
  7.                            Waage        : POP_Ptr;
  8.                            Gleich, Next : POPDef_Ptr;
  9.                          end;
  10.      POP_Typ           = record
  11.                            Gleich : POP_Ptr;
  12.                            Adr    : POPDef_Ptr;
  13.                          end;
  14.  
  15. 6b)
  16.        until k in ['D', 'S', 'L', 'P', 'C', 'G', 'Q'];
  17.  
  18. 6c)
  19.   gotoxy (28,13);   write ('<G>eneriere Prorammorganisationsplan');
  20.