EasyManuals Logo

Radio Shack 16B Operation Manual

Radio Shack 16B
169 pages
To Next Page IconTo Next Page
To Next Page IconTo Next Page
To Previous Page IconTo Previous Page
To Previous Page IconTo Previous Page
Page #148 background imageLoading...
Page #148 background image
Computer
Graphics
Operation
Manual
----------TRS·BO
®
----------
SUBROUTINE
PPTST
PSET
AND
POINT
TEST
LOGICAL
POINT,MSG(21)
CALL
CLS
ENCODE(MSG,l.0'.0')
FORMAT('PSET
AND
POINT
TEST')
CALL
SETXY(.0',~)
CALL
LOCATE(.0')
CALL
GPRINT(19,MSG)
CALL
WAIT
CALL
CLS
SET
AND
CHECK
ALL
PIXELS
DO
1.0'
1=.0',639
DO
11
J=~,239
CALL
SETXY(I,J)
CALL
PSET(l)
K=POINT(L)
IF(K.EQ.~)
GO
TO
999
CONTINUE
CONTINUE
RESET
AND
CHECK
ALL
PIXELS
DO
12
I=~,639
DO
13
J=~,239
CALL
SETXY(I,J)
CALL
PSET(.0')
K=POINT(L)
IF
(K.EQ.1)
GOTO
999
CONTINUE
CONTINUE
CALL
CLS
ENCODE(MSG,l.0'l)
FORMAT('PSET
AND
POINT PASSED')
CALL
SETXY(.0',~)
CALL
LOCATE(.0')
CALL
GPRINT(21,MSG)
GOTO
1.0'.0'.0'
CALL
CLS
ENCODE
(MSG,
1.0'
2 )
FORMAT('PSET
AND
POINT
FAILED')
CALL
SETXY(~,~)
CALL
LOCATE(.0')
CALL
GPRINT(21,MSG)
CALL
WAIT
---------lIadlolhaell---------
-144-

Other manuals for Radio Shack 16B

Questions and Answers:

Question and Answer IconNeed help?

Do you have a question about the Radio Shack 16B and is the answer not in the manual?

Radio Shack 16B Specifications

General IconGeneral
BrandRadio Shack
Model16B
CategoryDesktop
LanguageEnglish

Related product manuals