Computer
Graphics
Operation
Manual
TRS-BO®
~~l~~
SUBROUTINE
SCRTST
~~2~~
C
~~3~~
C
SCREEN
TEST
~~4~~
C
~~5~~
LOGICAL
MSG
(11)
~~6~~
CALL
CLS
~~7~~
ENCODE
(MSG,
l~~)
~~8~~
l~~
FORMAT('SCREEN
TEST')
~~9~~
CALL
SETXY(~,~)
~l~~~
CALL
LOCATE(~)
~ll~~
CALL
GPRINT(ll,MSG)
~12~~
CALL
WAIT
~13~~
CALL
SETXY(3~~,12~)
~14~~
CALL
CIRCLE(1~~,1,~.~,6.28,~.5)
~15~~
CALL
CIRCLE(1~~,1,~.~,6.28,~.25)
~16~~
CALL
CIRCLE(5~,1,~.~,6.28,~.5)
~17~~
CALL
PAINT
<1,1)
~18~~
C
~19~~
C
GRAPHICS
SCREEN
~2~~~
C
~21~~
CALL
SCREEN(~)
~22~~
CALL
WAIT
~23~~
CALL
WAIT
~24~~
CALL
WAIT
~25~~
C
/-~,
~26~~
C
TEXT
SCREEN
~27~~
C
~28~~
CALL
SCREEN(l)
~29~~
CALL
WAIT
~3~~~
CALL
WAIT
~31~~
CALL
WAIT
~32~~
C
~33~~
C
GRAPHICS
SCREEN
~34~~
C
~35~~
CALL
SCREEN(~)
~36~~
CALL
WAIT
~37~~
CALL
WAIT
~38~~
CALL
WAIT
~39~~
RETURN
~4~~~
END
---------ltadlOlhaell---------
-148-