[Coco] NitrOS-9 Differences.
Stephen H. Fischer
SFischer1 at Mindspring.com
Wed Jun 1 14:36:42 EDT 2011
Hi,
I have noted some differences between OS-9 that I was running and NitrOS-9 for the VCC emulator.
I cannot find what the current parameters for "tmode" are.
In any case, the following shell script does not pass "t' and "tmode" settings to the forked script like I remembered from twenty years ago.
I checked and "PATH=" has these words. "The specified paths are retained when
subshells are forked, either by directly calling the shell (shell i=/w&) or by
running a shellscript/memscript."
Sorry about the wrapped lines and vertical spacing.
SHF
_________________________________________
*w.s - create new 80 Column Window 2011/05/28
t
tmode .1 pau=1
windows.s var.0=12
_________________________________________
*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
_________________________________________
More information about the Coco
mailing list