gotoxy.pas

来自「This is programing tutorial for people w」· PAS 代码 · 共 20 行

uses crt;

Begin
  TextMode(CO40);
  GotoXY(8,12);
  Writeln('At 8,12');
  Readln;
  GotoXY(35,8);
  Writeln('At 35,8');
  Readln;
  GotoXY(40,20);
  Writeln('At 40,20');
  Readln;
  GotoXY(30,30);
  Writeln('Guess');
  Readln;
  TextMode(CO80);
  Writeln('Back to normal');
End.