Uses Crt,Tools,ModeXLib,Gif,Font;

Var Sinus:Array[0..127] of Word;{Sinus-Tabelle f�r vertikale Schwingung}
    t:Word;                     {"Zeit", Position innerhalb des Sinus}

Begin
  Init_ModeX;                   {Mode X ein}
  LoadGif('pfont4');            {Zeichensatz laden}
  p13_2_ModeX(48000,16000);     {und auf Seite 3 kopieren}
  Sin_Gen(Sinus,128,Scrl_y div 2,Scrl_y div 2);
                                {Sinus-Tabelle f�r vert. Bewegung vorbereiten}
  t:=0;                         {Zeit startet bei 0}
  Repeat
    WaitRetrace;                {Synchronisation}
    Scrl_Move;                  {sichtbaren Teil nach rechts bewegen}
    Scrl_Append;                {rechts neue Spalte anh�ngen}
    SetStart(Sinus[t and 127]*80);  {f�r vert. Bewegung sorgen}
    Inc(t);                     {weiter in Sinus-Tabelle}
  Until KeyPressed;
  TextMode(3);
End.