home *** CD-ROM | disk | FTP | other *** search
/ WDR Computer Club Digital 1996 June / CLUB_0696.BIN / ir / irvisual.pas < prev    next >
Pascal/Delphi Source File  |  1996-05-07  |  408b  |  17 lines
  1. USES CRT;
  2. VAR
  3. feld:ARRAY[1..1999] OF BYTE;
  4. i,j:WORD;
  5. BEGIN
  6. TEXTBACKGROUND(BLUE);
  7. TEXTCOLOR(GREEN);
  8. CLRSCR;
  9. REPEAT
  10. UNTIL PORT[$378+1] SHR 6 MOD 2 =0;
  11. FOR i:=1 TO 1999 DO BEGIN
  12.                      feld[i]:=PORT[$378+1] SHR 6 MOD 2;
  13.                      FOR j:=1 to 150 DO;{Warteschleife}
  14.                     END;
  15. WRITELN;
  16. FOR i:=1 to 1999 DO IF feld[i]=0 THEN WRITE('█') ELSE WRITE(' ');
  17. END.