Program Adwandler;

{/*浜様様様様様様様様様様様様様様様様様様様様様様融*/
 /*� Adwandler (f�r Multi I/O- Karte)             �*/
 /*麺様様様様様様様様様様様僕様様様様様様様様様様郵*/
 /*� Coded am: 05.09.1994  � Released am: 02.02.96�*/
 /*麺様様様様様様様様様様様陵様様様様様様様様様様郵*/
 /*� Beispiel Programm 4   � Unit PCmess          �*/
 /*藩様様様様様様様様様様様瞥様様様様様様様様様様夕*/}

uses crt,dos,pcmpro;

var adwert : integer;
      
 

Procedure adw_wahl (kanal : Integer);
Begin
  Port [770] := kanal; {8 = Kanal 0 - 15 = Kanal 8}
end;


Procedure adw_abfragen (VAR ADwert : Integer);

VAR s : Byte;

Begin
 repeat
  s:= Port [771];
  until (s and 128) = 0;
  adwert := port [770];
end;


Begin
 setvidmode (13);
 bildladen;              { erchaffe Grafische Oberfl�che f�r Darstellung}
 check;
 repeat
  adw_wahl (8);
  adw_abfragen (ADwert);
  graph_zeichnen (ADwert);
 until keypressed;
end.