\ QVIDEO.SEQ    Fast video routine LINKAGE.             by Tom Zimmer

comment:

  Set F-PC to use a very fast direct screen write routine called VIDEO-TYPE.
This is incredibly fast, but does have at least one side effect. Types beyond
the end of the right screen edge do NOT wrap properly. If you need to have
type do a proper wrap at the right screen edge, specify SLOW below. This
will cause all typing and emitting to go through a DOS WRITE operation.

comment;

DECIMAL

: QTYPE         ( A1 N1 --- )
                PRINTING @
                IF      (TYPE)
                ELSE    VIDEO-TYPE
                THEN    ;

: FAST          ( --- )
                ['] QTYPE     IS TYPE ;

: SLOW          ( --- )
                ['] (TYPE)    IS TYPE ;

FAST            \ Select the high speed video drivers.