[Coco] *windows.s - Convert or create OS-9 Windows

[Stephen H. Fischer]

Hi,

Here is my script from twenty years ago.

I used it a lot.

Note the use of "(" and ")", they are required.

- - - - - - - Cut Here - - - - - - - - - -
*windows.s
if %0=
echo *** window.s ***   89/01/21
echo
echo Pick one of the following:
echo
echo  Convert current window.
echo  1 - graphics 320x192 (16 colors)
echo  2 - graphics 640x192 ( 4 colors)
echo  3 - graphics 320x192 ( 4 colors)
echo  4 - graphics 640x192 ( 2 colors)
echo  5 - text      80x24  (16 colors)
echo  6 - text      40x24  (16 colors)
echo
echo  Start new window.
echo 11 - graphics 320x192 (16 colors)
echo 12 - graphics 640x192 ( 4 colors)
echo 13 - graphics 320x192 ( 4 colors)
echo 14 - graphics 640x192 ( 2 colors)
echo 15 - text      80x24  (16 colors)
echo 16 - text      40x24  (16 colors)
echo
prompt Selection:
var.0
endif
inc.0
dec.0
if +%0<17
goto %0
endif
*-------------------------------*
*00000
echo invalid selection
var.0=
goto windows.s
*-------------------------------*
*00001
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
*-------------------------------*
*00002
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
*-------------------------------*
*00003
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
*-------------------------------*
*00004
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
*-------------------------------*
*00005
display 1b 24 1b 20 2 0 0 50 18 0 1 6  1b 21
goto +end.w
*-------------------------------*
*00006
display 1b 24 1b 20 1 0 0 28 18 0 2 7  1b 21
goto +end.w
*-------------------------------*
*00011
(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
*-------------------------------*
*00012
(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
*-------------------------------*
*00013
(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
*-------------------------------*
*00014
(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
*-------------------------------*
*00015
(display 1b 20 2 0 0 50 18 0 1 3 ; shell i=/1 & ) >/w & ex
*-------------------------------*
*00016
(display 1b 20 1 0 0 28 18 0 2 7 ; shell i=/1 & ) >/w & ex
*-------------------------------*
*end.w
- - - - - - - Cut Here - - - - - - - - - -

SHF