home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / dfmbnr.inc < prev    next >
Encoding:
Text File  |  1987-06-10  |  4.6 KB  |  128 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                             DFMBNR.INC                                  *)
  3. (*              Mailbox-Telephonregister des DFUE-Programm                 *)
  4.  
  5. OVERLAY FUNCTION SenkrechtMenue: INTEGER;
  6.  
  7. CONST NrMailBoxen = 23;
  8.  
  9. VAR i, SenkWahl, AltWahl : INTEGER;
  10.     SenkZeichen : CHAR;
  11.  
  12. BEGIN
  13.   ClrScr;                                        (* Bildschirm loeschen *)
  14.   FOR i := 1 TO NrMailBoxen DO WriteLn(MBNr[i]); (* Zeilen ausgeben     *)
  15.   GotoXY(1,25);
  16.   Write('Mit CURSORTASTEN aussuchen, RETURN waehlt an');
  17.   (* Initialisierung der Wahl-Variablen *)
  18.   SenkWahl:=1;
  19.   AltWahl:=2;
  20.   REPEAT
  21.     (* Bildschirm aktualisieren *)
  22.     FOR i := 1 TO NrMailBoxen DO BEGIN
  23.       (* Aktuelle Zeile invers *)
  24.       IF i = SenkWahl THEN BEGIN
  25.         GotoXY(1,i);
  26.         WriteLn(INV_EIN,MBNr[i],INV_AUS)
  27.       END;
  28.       (* Vorherige aktuelle Zeile wieder normal *)
  29.       IF i = AltWahl THEN BEGIN
  30.         GotoXY(1,i);
  31.         WriteLn(MBNr[i])
  32.       END
  33.     END;
  34.     (* Tastatur abfragen *)
  35.     REPEAT
  36.       SenkZeichen := GetKey
  37.     UNTIL SenkZeichen IN [CURSOR_HOCH,CURSOR_RUNTER,RETURN];
  38.     (* Zeichen auswerten *)
  39.     CASE SenkZeichen OF
  40.       CURSOR_HOCH : BEGIN
  41.                       AltWahl := SenkWahl;
  42.                       SenkWahl := SenkWahl - 1
  43.                     END;
  44.       CURSOR_RUNTER : BEGIN
  45.                         AltWahl := SenkWahl;
  46.                         SenkWahl := SenkWahl + 1
  47.                       END;
  48.       RETURN : ;
  49.     END;
  50.     (* "Wrap-around" der Selektion *)
  51.     IF SenkWahl = 0 THEN
  52.       SenkWahl := NrMailBoxen;
  53.     IF SenkWahl = NrMailBoxen + 1 THEN
  54.       SenkWahl := 1
  55.   UNTIL SenkZeichen = RETURN;
  56.   SenkrechtMenue := SenkWahl
  57. END;
  58.  
  59.  
  60.  
  61. OVERLAY PROCEDURE Mailboxnummern;
  62.  
  63. VAR MailBox : INTEGER;
  64.     Hilf : CHAR;
  65.  
  66. BEGIN
  67.   ClrScr;           (* Bildschirm loeschen *)
  68.   (* Feld mit Menuezeilen belegen *)
  69.   MBNr[1] := 'WDR-COMPUTERCLUB   * 0221/371076    ** 81N * 00-24H';
  70.   MBNr[2] := 'DATA-BECKER        * 0211/340071    ** 71E * 00-24H';
  71.   MBNr[3] := 'R-CP/M             * 0211/324517    ** 81N * 00-24H';
  72.   MBNr[4] := 'MCS                * 040/2512371    ** 81N * 00-24H';
  73.   MBNr[5] := 'RBBS               * 0431/336038    ** 81N * 00-24H';
  74.   MBNr[6] := 'TEDAS1             * 089/596422     ** 81N * 00-24H';
  75.   MBNr[7] := 'TEDAS2             * 089/598423     ** 81N * 00-24H';
  76.   MBNr[8] := 'GES/GRAF           * 0831/69330     ** 81N * 00-24H';
  77.   MBNr[9] := 'COMPUCAMP          * 05931/18948    ** 81N * 00-24H';
  78.   MBNr[10] := 'NCS KIEL           * 04348/7513     ** 81N * 00-24H';
  79.   MBNr[11] := 'EPSON              * 0211/5047865   ** 81N * 00-24H';
  80.   MBNr[12] := 'MAGIC MOUNTAIN     * 02236/63371    ** 72N * 00-24H';
  81.   MBNr[13] := 'CCC-BOX            * 06434/6291     ** 81N * 00-24H';
  82.   MBNr[14] := 'COMMODORE          * 069/6638191    ** 81N * 00-24H';
  83.   MBNr[15] := 'INFOBOX  PASSAU    * 08531/69330    ** 81N * 00-24H';
  84.   MBNr[16] := 'THOWO BOX          * 030/667085     ** 81N * 00-24H';
  85.   MBNr[17] := 'DARC               * 0561/498669    ** 81N * 00-24H';
  86.   MBNr[18] := 'FSS-INFOBOX        * 089/596465     ** 81N * 00-24H';
  87.   MBNr[19] := 'VOLLRATH           * 0209/271666    ** 81N * 00-24H';
  88.   MBNr[20] := 'C.L.I.N.C.H        * 040/6323517    ** 71N * 00-24H';
  89.   MBNr[21] := 'MBS                * 040/2993461    ** 81N * 00-24H';
  90.   MBNr[22] := 'TORNADO            * 040/5277016    ** 81N * 00-24H';
  91.   MBNr[23] := 'R-A-M              * 040/8802383    ** 81N * 00-24H';
  92.   MailBox := SenkrechtMenue;
  93.   ClrScr;
  94.   WriteLn(MBNr[MailBox]);
  95.   WriteLn;
  96.   Param[1] := 1;    (* Immer 300 Baud ! *)
  97.   (* Anzahl Datenbits aus Zeile "herauspicken" *)
  98.   Hilf := Copy(MBNr[MailBox],(Pos('** ',MBNr[mailbox])+3),1);
  99.   CASE Hilf OF
  100.     '8'  : Param[2] := 1;
  101.     '7'  : Param[2] := 2
  102.   END;
  103.   (* Anzahl Stopbits aus Zeile "herauspicken" *)
  104.   Hilf := Copy(MBNr[MailBox],(Pos('** ',MBNr[mailbox])+4),1);
  105.   CASE Hilf OF
  106.     '1'  : Param[3] := 1;
  107.     '2'  : Param[3] := 2
  108.   END;
  109.   (* Paritaet aus Zeile "herauspicken" *)
  110.   Hilf := Copy(MBNr[mailbox],(Pos('** ',MBNr[mailbox])+5),1);
  111.   CASE Hilf OF
  112.     'N'  : Param[4] := 1;
  113.     'E'  : Param[4] := 2;
  114.     'O'  : Param[4] := 3
  115.   END;
  116.   (* Vollduplex, kein Linefeed, Delay 0 *)
  117.   Param[5] := 1;
  118.   Param[6] := 1;
  119.   Param[7] := 1;
  120.   Setze_Parameter;
  121.   WriteLn('Parameter sind gesetzt');
  122.   WriteLn('Waehlen Sie jetzt bitte die Telefonnummer, dann Taste druecken !');
  123.   REPEAT UNTIL KeyPressed;
  124.   Online
  125. END;
  126.  
  127. (*-------------------------------------------------------------------------*)
  128. (*                           Ende DFMBNR.INC                               *)