Radio Shack CCR-81 Operation Manual

Computer Graphics
Operation Manual
-----------TRS·BO ® ----------
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
---------lIadlelllaell---------
-146-

Radio Shack CCR-81 Specifications

General

Brand	Radio Shack
Model	CCR-81
Category	Desktop
Language	English