Radio Shack TRS-80 Operation Manual page 150
Hide thumbs
Also See for TRS-80:
- Reference manual (274 pages) ,
- User manual (236 pages) ,
- Service manual (199 pages)
Table of Contents
Advertisement
Computer Graphics
Operation Manual
- - - - - - - - - - - T R S · B O
® - - - - - - - - - -
SUBROUTINE PRETST
PRESET AND POINT TEST
LOGICAL POINT,MSG(23)
CALL CLS
ENCODECMSG,l~~)
FORMATC 'PRESET AND POINT TEST')
CALL
SETXYC~,~)
CALL
LOCATEC~)
CALL GPRINTC23,MSG)
CALL WAIT
CALL CLS
SET AND CHECK ALL PIXELS
DO
1~ I=~,639
DO 11 J=/IJ,239
CALL SETXYCI,J)
CALL PRESET(1)
K=POINTCL)
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
PRESETC~)
K=POINTCL)
IF (K.EQ.1) GOTO 999
CONTINUE
CONTINUE
CALL CLS
ENCODECMSG,l~l)
FORMAT('PRESET AND POINT PASSED')
CALL
SETXYC~,~)
CALL
LOCATEC~)
CALL GPRINTC23,MSG)
GOTO
1~~~
CALL CLS
ENCODE C MSG,
1~2)
FORMATC'PRESET AND POINT FAILED')
CALL
SETXY(~,~)
CALL
LOCATE(~)
CALL GPRINTC23,MSG)
CALL WAIT
- - - - - - - - - l I a d l e l l l a e l l - - - - - - - - -
-146-
Advertisement
Table of Contents
