Radio Shack CCR-81 Operation Manual

Computer Graphics Operation Manual
----------- TRS-BO ® ----------
FORMAT('PAINTT AND SETXYR TESTS')
CALL SETXY(~,~)
CALL LOCATE(~)
CALL GPRINT(23,MSG)
CALL WAIT
PAINT ON A BLACK BACKGROUND
DO 1~ I=1,16
CALL SETXY(~,4~)
CALL SETXYR(639,199)
CALL LINEB(l,-l)
CALL SETXYR(-3~~,-1~~)
ITMP=IS (I)
CALL PAINTT(A(ITMP),l,B)
CALL WAIT
CALL VIEW(~,4~,639,239,~,~)
CALL VIEW(~,~,639,239,-1,-l)
CONTINUE
PAINT ON A WHITE BACKGROUND
DO 11 I=1,16
IF(I.EQ.12) GOTO 11
CALL VIEW(~,4g,639,239,~,~)
CALL VIEW(~,~,639,239,-1,-l)
CALL SETXy(g,4g)
CALL SETXYR(639,199)
CALL LINEBF(l)
CALL SETXYR(-3gg,-1~g)
ITMP=IS(I)
CALL PAINTT(A(ITMP),~,B(3»
CALL WAIT
CONTINUE
RETURN
END
---------lIadlelllaell---------
-142-

Radio Shack CCR-81 Specifications

General

Brand	Radio Shack
Model	CCR-81
Category	Desktop
Language	English