Radio Shack TRS-80 - Page 148

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-