home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 18 / CD_ASCQ_18_111294_W.iso / dos / prg / pas / pasgraph / copper2.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-20  |  1KB  |  49 lines
  1. {$A+,B-,D-,E-,F-,G+,I-,L-,N-,O-,R-,S-,V-,X-}       { For TP 6.0 }
  2. Program RedBar;
  3. Uses Crt;
  4.  
  5. Var
  6.  C: Byte;
  7.  C2,C3,C4: Word;
  8.  SinTab: array[0..127] of Word;
  9.  HeadPtr: Word absolute $40:$1A;
  10.  TailPtr: Word Absolute $40:$1C;
  11.  Zaehler: Word;
  12.  
  13. Begin
  14.  For C:=0 to 127 do SinTab[C]:=Trunc((Sin((2*Pi/128)*C)+1)*135);
  15.  C3:=0;
  16.  Repeat
  17.   Inline($FA);   {CLI}
  18.   Repeat Until (Port[$3DA] and 8)>0;
  19.   Repeat Until (Port[$3DA] and 8)=0;
  20.   For C4:=0 to SinTab[C3 and 127] do Begin
  21.    Repeat Until (Port[$3DA] and 1)=0;
  22.    Repeat Until (Port[$3DA] and 1)>0;
  23.   End;
  24.   For C:=0 to 63 do Begin
  25.    Repeat Until (Port[$3DA] and 1)>0;
  26.    Port[$3C8]:=0;
  27.    Port[$3C9]:=C;
  28.    Port[$3C9]:=0;
  29.    Port[$3C9]:=0;
  30.    Repeat Until (Port[$3DA] and 1)=0;
  31.   End;
  32.   For C:=63 downTo 0 do Begin
  33.    Repeat Until (Port[$3DA] and 1)>0;
  34.    Port[$3C8]:=0;
  35.    Port[$3C9]:=C;
  36.    Port[$3C9]:=0;
  37.    Port[$3C9]:=0;
  38.    Repeat Until (Port[$3DA] and 1)=0;
  39.   End;
  40.   Inc(C3);
  41.   Inline($FB); {STI}
  42.  Until HeadPtr<>TailPtr;
  43.  HeadPtr:=TailPtr;
  44.   Port[$3C8]:=0;
  45.   Port[$3C9]:=0;
  46.   Port[$3C9]:=0;
  47.   Port[$3C9]:=0;
  48. End.
  49.