home *** CD-ROM | disk | FTP | other *** search
- Program ANSIThing;
-
- {
- This program demonstrates a few of the features of the console
- made possible by ANSI codes.
- }
-
- Procedure Delay(f : Integer);
- External;
- Function strlen(s : String) : Integer;
- External;
-
- procedure GotoXY(x, y : Short);
- begin
- Write('\c', y, ';', x, 'H');
- end;
-
- Procedure ClrEOL;
- begin
- Write('\cK');
- end;
-
- Procedure ClrScr;
- begin
- {
- GotoXY(1, 1);
- Write('\cJ');
- }
- Write(Chr(12));
- end;
-
- Procedure Insert(s : String);
- begin
- Write('\c', StrLen(s), Chr($40));
- Write(s);
- end;
-
- var
- I : integer;
- begin
- GotoXY(50, 12);
- Delay(20);
- GotoXY(60, 14);
- Delay(20);
- GotoXY(4, 4);
- Delay(20);
- GotoXY(1,1);
- for I := 1 to 20 do
- Writeln('This is thejlasdflskajdflsadjflsakjdfsldjf');
- for I := 1 to 20 do begin
- GotoXY(5, I);
- Delay(20);
- ClrEOL;
- Delay(20);
- end;
- ClrScr;
- Delay(20);
- for I := 1 to 20 do
- Writeln('ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890');
- Delay(20);
- for I := 1 to 8 do begin
- GotoXY(4,4);
- Delay(20);
- Insert("Froombaba");
- end;
- Delay(20);
- GotoXY(1,21);
- end.
-