diff options
author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-04-27 00:40:24 +0000 |
---|---|---|
committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-04-27 00:40:24 +0000 |
commit | 2ef1d806193c5ce939fe47ea8e9ece948b125ad4 (patch) | |
tree | 7ac9d79b891ab0dc9ea941185547f22d8f35a153 | |
parent | 8ffc32cf18ad2dd6de2e19a85b119fe225f59efd (diff) | |
download | fpc-2ef1d806193c5ce939fe47ea8e9ece948b125ad4.tar.gz |
* fixed GotoXY (parameters were swapped)
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/z80@45137 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | rtl/zxspectrum/system.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rtl/zxspectrum/system.pp b/rtl/zxspectrum/system.pp index 06964f5d15..faf56f119c 100644 --- a/rtl/zxspectrum/system.pp +++ b/rtl/zxspectrum/system.pp @@ -241,8 +241,8 @@ end; procedure GotoXY(X, Y: Byte); begin PrintChar(#22); - PrintChar(Char(X-1)); PrintChar(Char(Y-1)); + PrintChar(Char(X-1)); end; procedure PrintShortString(const s: ShortString); |