cursor.txt

来自「一个编译器源代码。用法看里面的“使用说明”」· 文本 代码 · 共 16 行

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;