{$I Vars.incs}
{$I Writelin.inc}
{$I Writexy.inc}
{NOTE:  The above files assume a color monitor.  The absolute screen
 address must be changed from $B800 to $B000 for monochrome.  The
 place to make this change has been marked.
                                         -- Neil J. Rubenking}

var in_string,st: string[80];
    xx       : integer;
    ch       : char;
    ok       : boolean;

Begin {Video_demo}
      line_pos:=0;
      textcolor(15);
      writeln('Writelin and Writexy Demo Program');

      write('Enter your Name: ');
      readln(in_string);
      clrscr;
      Write('Here is a little demo with the standard Pascal Procedures, hit a key...');
      repeat until keypressed;
      read(kbd,ch);
      gotoxy(19,24);
      textcolor(white+blink);
      write('Hit Any key to Advance, may take more than once..');
      ok:=false;
      repeat
            if keypressed then ok:=true;
            gotoxy(random(80),random(22));
            if keypressed then ok:=true;
            textcolor(random(15));
            if keypressed then ok:=true;
            write(in_string);
      until ok or keypressed;
      clrscr;
      textcolor(15);
      writeln('Now here is the same demo with the new WRITEXY Procedure, hit a key...');
      repeat until keypressed;
      read(kbd,ch);
      writexy('Hit Any key to Advance',27,24,(15+128));
      repeat
                  writexy(in_string,random(80),random(22),random(15));
      until keypressed;
      read(kbd, ch);
      clrscr;
      textcolor(15);
      writeln('Now I will Print your name 300 times using the Writeln Procedures..');
      repeat until keypressed;
      read(kbd,ch);
      for xx:=1 to 300 do writeln(xx:3,': ',in_string);
      writeln;writeln('Now using the new WRITELIN Procedure...');
      repeat until keypressed;
      read(kbd,ch);
      for xx:=1 to 300 do
                  begin
                      str(xx,st);
                      writelin(st+': '+in_string,11);
                      end;
      writeln;writeln('Hit anu key to end..');
      repeat until keypressed
end.