From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: *
X-Spam-Status: No, score=1.2 required=5.0 tests=BAYES_00,FROM_WORDY,
	INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,f8d6e18f325edced
X-Google-Attributes: gid103376,public
From: "Nick Roberts" <Nick.Roberts@dial.pipex.com>
Subject: Re: Clear screen command?
Date: 1998/03/06
Message-ID: <6dnon9$m82$1@plug.news.pipex.net>#1/1
X-Deja-AN: 331281273
References: <6dl7sd$6r0$1@tuvoc.udayton.edu>
 <34FE7D3A.B247A1C1@uredd.sjo.statkart.no> <34FE8F35.1DD7ECFD@cl.cam.ac.uk>
X-Mimeole: Produced By Microsoft MimeOLE V4.72.2106.4
Organization: UUNet UK server (post doesn't reflect views of UUNet UK)
Newsgroups: comp.lang.ada
Date: 1998-03-06T00:00:00+00:00
List-Id: <comp.lang.ada>


Markus Kuhn wrote in message <34FE8F35.1DD7ECFD@cl.cam.ac.uk>...
[...]
|procedure Goto_XY(Row, Column: Natural) is
|begin
|  put(ESC & "[");
|  put(Row);
|  put(';');
|  put(Column);
|  put('H');
|end;

[...]

Spot the deliferate mistale! I suspect that

   procedure Goto_XY (Column, Row: in Natural)

would probably be a tad less confusing, although, frankly, I would prefer

   procedure Move_Cursor (Row, Column: in Positive)

even if it is a little less Pascalian (but I DO NOT want to start another
endless thread on naming conventions :-)

You also need

   with Ada.Text_IO, Ada.Integer_Text_IO;
   use Ada.Text_IO, Ada.Integer_Text_IO;

up front.

I seem to recall some terminals having a code to disable automatic scrolling
(making the cursor simply 'wrap-around' to the top of the screen), but I'm
not sure if this is standard. If you're interested: this facility was to
solve the problem that (in scrolling mode) it is impossible to display a
character in the extreme bottom right-hand corner. It probably seemed
important then. It's funny, in these days of near-ubiquitous WIMPiness, such
problems seem very old now.

** Nick Roberts, Croydon, UK
** Nick.Roberts@dial.pipex.com
** Voicemail & Fax +44 181-405 1124
** Proprietor, ThoughtWing Software
** Independent Software Development Consultant