cursor.txt

H++编译器: 一个仿Pascal语言的编译器

Program(Cursor,Dos.MZ);
  Var(X,Byte);
  Var(Y,Byte);
Begin
  Screen.Clear;
  Cursor.Set(10,30);
  Write('Line 1');

  Cursor.Get(Y,X);
  Y = Y + 1;
  X = X - 6;
  Cursor.Set(Y,X);
  Write('Line 2');  

  Wait;
End;