Radio Shack TRS-80 Operation Manual page 148

Computer Graphics Operation Manual
- - - - - - - - - - T R S · B O
® - - - - - - - - - -
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.~) GOTO 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
- - - - - - - - - l I a d l o l h a e l l - - - - - - - - -
-144-