home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / dfparam.inc < prev    next >
Encoding:
Text File  |  1987-06-10  |  1.6 KB  |  43 lines
  1. (*---------------------------------------------------------------------------*)
  2. (*                    DFPARAM.INC (Parametereinstellung)                     *)
  3.  
  4. OVERLAY PROCEDURE Parameter;
  5.  
  6. VAR i, Sp, Zl   : INTEGER;
  7.     Option        : ARRAY[1..20] OF STRING[40];
  8.     MenueT      : ARRAY[1..20] OF STRING[255];
  9.  
  10. BEGIN;
  11.   Option[1]:='Baudrate     :   ';
  12.   Option[2]:='ASCII- Code  :   ';
  13.   Option[3]:='Stoppbits    :   ';
  14.   Option[4]:='Paritaet     :   ';
  15.   Option[5]:='Duplex       :   ';
  16.   Option[6]:='Line Feed    :   ';
  17.   Option[7]:='Zeit nach LF(ms):';
  18.   MenueT[1]:='    300        150                600    1200      ';
  19.   MenueT[2]:='    8_bit_pro_Zeichen             7_bit_pro_Zeichen ';
  20.   MenueT[3]:='    eins                          zwei             ';
  21.   MenueT[4]:='    keine          gerade         ungerade         ';
  22.   MenueT[5]:='    Voll-Duplex                   Halb-Duplex      ';
  23.   MenueT[6]:='    nein                          ja               ';
  24.   MenueT[7]:='    0               10            100              ';
  25.   ClrScr;
  26.   WriteLn(Inv_Ein,'          P A R A M E T E R    ',
  27.           'E I N S T E L L E N                              ',Inv_Aus);
  28.   WriteLn(Inv_Aus,'          mit Cursortasten bewegen, mit ENTER ',
  29.           'anwaehlen                        ',Inv_Aus);
  30.   WriteLn;
  31.   FOR i := 1 TO 7 DO BEGIN
  32.     Sp := 20;
  33.     Zl := 3+i*2;
  34.     GotoXY(1,Zl);
  35.     Write(Option[i]);
  36.     Param[i] := Menue(MenueT[i],Sp,Zl);
  37.     Setze_Parameter
  38.   END
  39. END;
  40.  
  41.  
  42. (*                         Ende DFPARAM.INC                                  *)
  43. (*---------------------------------------------------------------------------*)