Radio Shack TRS-80 Operation Manual page 85

Computer Graphics Operation Manual
TRS-BO$
Sample Program
JJJJlJJJJ
C
PSET EXAMPLE
JJJJ2JJJJ
LOGICAL COLOR
JJJJ3JJJJ
LOGICAL POINT
JJJJ4JJJJ
COLOR=l
JJJJ 5JJJJ
CALL GRPINI(~)
~~6~~
CALL CLS
~~7JJJJ
C SET PIXEL TO ON
~JJ8JJ~
CALL SETXY(3~~,l2JJ)
JJJJ9JJ~ CALL PSET(COLOR)
~lJJ~~
C
TEST PIXEL WHETHER ON OR OFF
~llJJ~
K=POINT(M)
~l2~~ WRITE (3,35)K
JJI3~~
35
FORMAT ('2','PIXEL VALUE IS' ,14)
~14JJ~
END
PUT
Puts Stored Array onto Screen
PUT takes a rectangular pixel area that has been stored by
GET and puts it on the screen at current x and y coordinates
set by calling SETXY.
Example
CALL PUT (V,l)
Sample Program (see GET)
- - - - - - - - - l t a d I 8 I h a e l l - - - - - - - - -
-1~7-