[Coco] Nitros9 Questions - new Nitros9 user

[Stephen H. Fischer]

Hi,

Charlie wrote:

> Can someone explain to me how to create windows.
> Charlie

Here is the script I wrote a long time ago. As I got it via a funny way,
(Screen capture of Magellan window) tell me and I will fix any problems. I
have used it for many years with no problems. You may have problems with the
Tandy stock window descriptors.

It does not do the 32 column windows. The window descriptors were also
cleaned up and the first n windows (80) have different border colors.
Then a few for several windows on the screen at once (80 on top of 80, 80 on
top of two 40 column windows with different text and background colors and
so on) for Colorful_SLED which will behave in a window smaller than ~40 x
~12. Then two 32 column windows. Window descriptors source available.

Most of the time I just type "shell i=/1 & ) >/w & ex" Thats all! The window
then goes away when closed.

I remember that "/W" was broken by the window descriptors supplied by Tandy
thus the cleaning up of the stock windows. The window descriptors supplied
for more than one window on the screen were usefull only for demonstrating
that more than one window could be on the screen at once.

-------------------------------------------------
*windows.s
if %0=
t
* *** window.s *** 89/12/06
*
* Pick one of the following:
*
* Convert current window.
* 1 - text 40x24 (16 colors)
* 2 - text 80x24 (16 colors)
* 5 - graphics 640x192 ( 2 colors)
* 6 - graphics 320x192 ( 4 colors)
* 7 - graphics 640x192 ( 4 colors)
* 8 - graphics 320x192 (16 colors)
*
* Start new window.
* 11 - text 40x24 (16 colors)
* 12 - text 80x24 (16 colors)
* 15 - graphics 640x192 ( 2 colors)
* 16 - graphics 320x192 ( 4 colors)
* 17 - graphics 640x192 ( 4 colors)
* 18 - graphics 320x192 (16 colors)
-t
ECHO Selection:\c
var.0
endif
inc.0
dec.0
if +%0<19
goto %0
endif
*-------------------------------*
*00000
echo invalid selection
var.0=
goto windows.s
*-------------------------------*
*00008
display 1b 24 1b 20 8 0 0 28 18 0 6 1
merge /dd/sys/stdfonts
merge /dd/sys/stdptrs
merge /dd/sys/stdpats_16
display 1b 3a c8 01 1b 21
goto +end.w
*-------------------------------*
*00007
display 1b 24 1b 20 7 0 0 50 18 2 3 6
merge /dd/sys/stdfonts
merge /dd/sys/stdptrs
merge /dd/sys/stdpats_4
display 1b 3a c8 01 1b 21
goto +end.w
*-------------------------------*
*00006
display 1b 24 1b 20 6 0 0 28 18 3 1 2
merge /dd/sys/stdfonts
merge /dd/sys/stdptrs
merge /dd/sys/stdpats_4
display 1b 3a c8 01 1b 21
goto +end.w
*-------------------------------*
*00005
display 1b 24 1b 20 5 0 0 50 18 1 0 4
merge /dd/sys/stdfonts
merge /dd/sys/stdptrs
merge /dd/sys/stdpats_2
display 1b 3a c8 01 1b 21
goto +end.w
*-------------------------------*
*00002
display 1b 24 1b 20 2 0 0 50 18 0 1 6 1b 21
goto +end.w
*-------------------------------*
*00001
display 1b 24 1b 20 1 0 0 28 18 0 2 7 1b 21
goto +end.w
*-------------------------------*
*00018
(display 1b 20 8 0 0 28 18 0 6 1 ; merge /dd/sys/stdfonts /dd/sys/stdptrs
/dd/sys/stdpats_16 ; display 1b 3a c8 01 1b 21 ; shell i=/1 & ) >/w & ex
*-------------------------------*
*00017
(display 1b 20 7 0 0 50 18 0 6 5 ; merge /dd/sys/stdfonts /dd/sys/stdptrs
/dd/sys/stdpats_4 ; display 1b 3a c8 01 1b 21 ; shell i=/1 & ) >/w & ex
*-------------------------------*
*00016
(display 1b 20 6 0 0 28 18 0 2 3 ; merge /dd/sys/stdfonts /dd/sys/stdptrs
/dd/sys/stdpats_4 ; display 1b 3a c8 01 1b 21 ; shell i=/1 & ) >/w & ex
*-------------------------------*
*00015
(display 1b 20 5 0 0 50 18 0 1 3 ; merge /dd/sys/stdfonts /dd/sys/stdptrs
/dd/sys/stdpats_2 ; display 1b 3a c8 01 1b 21 ; shell i=/1 & ) >/w & ex
*-------------------------------*
*00012
(display 1b 20 2 0 0 50 18 0 1 3 ; shell i=/1 & ) >/w & ex
*-------------------------------*
*00011
(display 1b 20 1 0 0 28 18 0 2 7 ; shell i=/1 & ) >/w & ex
*-------------------------------*
*end.w

-- 
Stephen H. Fischer <sfischer1 at mindspring.com>