Radio Shack TRS-80 Operation Manual page 76

Computer Graphics Operation Manual
- - - - - - - - - - T R S - B O
® - - - - - - - - - -
Example
CALL GET(A,4.0.0.0)
Sample Program
This example draws a circle, saves the circle into an
array, then restores the array to the graphics video.
SAMPLE FOR GET AND PUT
LOGICAL V(128),ACTION
ACTION=l
CALL GRPINI (.0)
CALL CLS
DRAW A CIRCLE
CALL SETXY(3.0,3.0)
CALL CIRCLE(l.0,l,.0 •.0,.0 •.0,.0 •.0)
SET COORDINATES FOR GET ARRAY
CALL SETXY(l.0,l.0)
CALL SETXY(4.0,4.0)
STORE GRAPHICS INTO ARRAY WITH GET
CALL GET(V,128)
DO 1.0 1=1,5.0.0.0
CONTINUE
CLEAR SCREEN AND RESTORE GRPH FROM ARRAY
CALL CLS
CALL SETXY(ll.0,ll.0)
CALL PUT(V,ACTION)
DO 2.0 1=1,5.0.0.0
CONTINUE
END
GPRINT
write Text Characters to the Graphics Screen
- - - - - - - - - I t a d l e l l l a e l l - - - - - - - - -
-98-