home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / qpdemo / beispiel / proz_var.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-24  |  776 b   |  39 lines
  1.  
  2. PROGRAM Prozedur_Variablen;
  3. USES Crt,Printer;
  4. {$F+}
  5. VAR Ausgabe : PROCEDURE (x:STRING);
  6.     s: STRING;
  7.     ch:Char;
  8.  
  9. PROCEDURE Drucker (s:STRING);
  10. BEGIN
  11.  Writeln(Lst,s)
  12. END;
  13.  
  14. PROCEDURE Bildschirm (s:STRING);
  15. BEGIN
  16.  Writeln(s)
  17. END;
  18.  
  19. PROCEDURE Schnittstelle (s:STRING);{Die in dieser Prozedur     }
  20. VAR f:TEXT;                        {angewendeten Befehle werden}
  21. BEGIN                              {ausführlich in Kapitel 8   }
  22.  Assign(f,'COM1');                 {vorgestellt                }
  23.  Rewrite(f);
  24.  Writeln(f,s);
  25.  Close(f)
  26. END;
  27. BEGIN
  28.  REPEAT
  29.   Write('Text: '); Readln(s);
  30.   ch:=ReadKey;
  31.   CASE ch OF
  32.    'd','D':Ausgabe:=Drucker;
  33.    's','S':Ausgabe:=Schnittstelle
  34.    ELSE Ausgabe:=Bildschirm END;
  35.   Ausgabe(s);
  36.  UNTIL ch='/'
  37. END.
  38.  
  39.