Radio Shack TRS-80 - Page 85

Computer Graphics
Operation Manual
TRS-BO$
Sample Program
JJJJlJJJJ
C
PSET
EXAMPLE
JJJJ2JJJJ
LOGICAL COLOR
JJJJ3JJJJ
LOGICAL POINT
JJJJ4JJJJ
COLOR=l
JJJJ 5 JJJJ
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)
---------ltadI8Ihaell---------
-1~7-