home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 341.img / TCS161S.ZIP / SCROLLS.PAS < prev    next >
Pascal/Delphi Source File  |  1989-09-17  |  858b  |  56 lines
  1. Unit Scrolls;
  2. {$O+}
  3. Interface
  4.  
  5. Uses Dos,Crt;
  6.  
  7. Procedure Scroll;
  8.  
  9. Implementation
  10.  
  11. Procedure Scroll;
  12. Type Arr1=Array[1..100] of String[20];
  13.  
  14.  Var
  15.    A,B,C,D,E:Integer;
  16.    Infile: Text;
  17.    equals:Arr1;
  18.    Reader:String[40];
  19.  
  20.  Begin
  21.    A:=0;
  22.    Assign(Infile,'Scrolls.TCS');
  23.    Reset (Infile);
  24.    While Not Eof (Infile) do
  25.     Begin
  26.      a:=a+1;
  27.      Readln(Infile,Reader);
  28.      Equals[a]:=Reader;
  29.     End;
  30.     close (Infile);
  31.     Repeat
  32.      b:=Random(a);
  33.     until b<>0;
  34.     c:=0;
  35.     Repeat
  36.      e:=Random(16);
  37.     Until (e<>0) and (e<>16);
  38.     TextColor(e);
  39.     GotoXy(30,4);
  40.     Write(Equals[b]);
  41.     c:=Length(Equals[b]);
  42.     Delay(100);
  43.     For d:=1 to c do
  44.      Begin
  45.       Delay(50);
  46.       GotoXy(29+d,4);
  47.       Write(' ');
  48.       GotoXy(30+c-d,4);Write(' ');
  49.      End;
  50.    End;
  51.  
  52.    Begin
  53.    end.
  54.  
  55.  
  56.