#: 11885 S10/OS9/6809 (CoCo)
    22-Aug-91  12:51:17
Sb: #11869-#basic09
Fm: Kevin Darling 76703,4227
To: Paul Hanke 73467,403 (X)

Paul - use the syscall command to do an I$GetStt (get status) command with
SS.ScTyp as the desired subcall:

 procedure GetSType
 type stack:CC,A,B,DP:byte;X,Y,U:integer
 dim reg:stack
 dim SS_ScTyp:byte \ SS_ScTyp=$93
 dim I_GetStt:byte \ I_GetStt=$8D

 reg.A = 1 \ (* path = stdout
 reg.B = SS_ScTyp
 run syscall(I_GetStt,reg)

 print "Screen Type = ";reg.A
 end

There is 1 Reply.