home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 08 / menuchan.ucs < prev    next >
Encoding:
Text File  |  1987-07-10  |  426 b   |  19 lines
  1. (* Ein Beispiel, wie das UCSD-Menue in anderen, *)
  2. (* eigenen Programmen benutzt werden kann.      *)
  3.  
  4. PROGRAM IhrProgramm (Input, Output);
  5.  
  6. USES chainstuff;  (* Bibliothek einbinden *)
  7.  
  8. {Hier weiterer Programm-Kopf}
  9. {Hier Ihre Prozeduren}
  10.  
  11. BEGIN (* IhrProgramm *)
  12.  
  13.    {Hier Anweisungen des Hauptprogramms}
  14.  
  15.    setchain('*SYSTEM.STARTUP.')
  16.    (* setchain('*MENU.CODE') alternativ *)
  17. END.  (* IhrProgramm *)
  18.  
  19.