Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.sys.apple2.programmer > #5346

Re: Text windows in Apple Pascal?

Show all headers | View raw

Paul MacMillan <paul.s.macmillan@gmail.com> writes:

> Hi, is there an easy way to get text window functionality in Apple
> Pascal, similar to POKE 32 (etc.) in Applesoft?  I tried POKEing but
> the builtin WRITE/WRITELN seems to not care what I have poked. I am
> not adverse to a little assembly language (especially with the very
> capable Apple Pascal Assembler) but don't want to re-invent the wheel
> if its already available.
>
> Thanks,
> Paul

The Apple Pascal Language Reference Manual describes a gotoxy(x, y)
function that positions the text cursor at the chosen column (x) and row
(y) position.

There are no facilities that I know of to control the text-window within
Pascal.  The output functions do support a bunch of control characters,
as described in the Apple IIe Technical Reference Manual, page 68-69:



ctrl   hex   use
----   ---   ----
E      05    turn on cursor display
F      06    turn off cursor display
G      07    sound bell (beep)
H      08    move cursor left one column, wraps around to end of
             previous line
J      0a    move cursor down one row, scrolls if required
K      0b    clear from cursor position to end of screen
L      0c    clear screen and put cursor at top left
M      0d    move cursor to leftmost position
N      0e    set normal video
O      0f    set inverse video
V      16    scroll display down one line, cursor stays where it is
W      17    scroll display up one line, cursor stays where it is
Y      19    move cursor to upper-left of screen without clearing
Z      1a    clear line the cursor is on
\      1c    move cursor one space to right, wraps around to next line below
]      1d    clear from cursor to end of line
^      1e    GOTOxy; initiates GOTOxy sequence; next two characters
             printed are x+32 and y+32, respectively
_      1f    move cursor up one line if not at top of screen


-- 
--
Jerry    awanderin at gmail dot com

Back to comp.sys.apple2.programmer | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

Text windows in Apple Pascal? Paul MacMillan <paul.s.macmillan@gmail.com> - 2019-12-27 15:05 -0800
  Re: Text windows in Apple Pascal? Fred Smith <fred@thejanitor.corp> - 2019-12-28 01:08 +0000
    Re: Text windows in Apple Pascal? Paul MacMillan <paul.s.macmillan@gmail.com> - 2019-12-27 18:51 -0800
  Re: Text windows in Apple Pascal? David Schmenk <dschmenk@gmail.com> - 2019-12-27 20:02 -0800
  Text windows in Apple Pascal? gids.rs@sasktel.net - 2019-12-27 20:33 -0800
  Re: Text windows in Apple Pascal? awanderin <awanderin@gmail.com> - 2019-12-27 23:17 -0700
  Re: Text windows in Apple Pascal? Marco Verpelli <mverpelli@libero.it> - 2019-12-31 05:52 -0800

csiph-web