home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
sonderh1
/
dfparam.inc
< prev
next >
Wrap
Text File
|
1987-06-10
|
2KB
|
43 lines
(*---------------------------------------------------------------------------*)
(* DFPARAM.INC (Parametereinstellung) *)
OVERLAY PROCEDURE Parameter;
VAR i, Sp, Zl : INTEGER;
Option : ARRAY[1..20] OF STRING[40];
MenueT : ARRAY[1..20] OF STRING[255];
BEGIN;
Option[1]:='Baudrate : ';
Option[2]:='ASCII- Code : ';
Option[3]:='Stoppbits : ';
Option[4]:='Paritaet : ';
Option[5]:='Duplex : ';
Option[6]:='Line Feed : ';
Option[7]:='Zeit nach LF(ms):';
MenueT[1]:=' 300 150 600 1200 ';
MenueT[2]:=' 8_bit_pro_Zeichen 7_bit_pro_Zeichen ';
MenueT[3]:=' eins zwei ';
MenueT[4]:=' keine gerade ungerade ';
MenueT[5]:=' Voll-Duplex Halb-Duplex ';
MenueT[6]:=' nein ja ';
MenueT[7]:=' 0 10 100 ';
ClrScr;
WriteLn(Inv_Ein,' P A R A M E T E R ',
'E I N S T E L L E N ',Inv_Aus);
WriteLn(Inv_Aus,' mit Cursortasten bewegen, mit ENTER ',
'anwaehlen ',Inv_Aus);
WriteLn;
FOR i := 1 TO 7 DO BEGIN
Sp := 20;
Zl := 3+i*2;
GotoXY(1,Zl);
Write(Option[i]);
Param[i] := Menue(MenueT[i],Sp,Zl);
Setze_Parameter
END
END;
(* Ende DFPARAM.INC *)
(*---------------------------------------------------------------------------*)