#: 11906 S10/OS9/6809 (CoCo)
    23-Aug-91  16:48:30
Sb: #BASIC09
Fm: Brother Jeremy, CSJW 76477,142
To: PAUL HANKE 73467,403 (X)

There was a mistake in the code that Kevin uploaded. Instead of type stack: in
the first line, it should be as follows:

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

I can't believe that I actually could look at code and notice that there was a
mistake in it.

Not bad for a guy who until recently said "I should have bought the hat with
the light instead of the computer."

Br. Jeremy CSJW



There is 1 Reply.