Radio Shack TRS-80 Operation Manual page 83

Computer Graphics Operation Manual
- - - - - - - - - - T R S - B O
® - - - - - - - - - -
Sample Program
~~l~~
C
~~15~
~~2~~
~~3~~
~~35~
C
~~4g~
~~5~~
~~6g~
~~65g
C
~~7~~
~~8~~
~~9~~
~l~~~
~ll~~
~12~~
~13~~
~14~~
EXAMPLE FOR PAINT WITH TILE
LOGICAL A,B,BORDER
DIMENSION A(9)
DIMENSION B(2)
DEFINE TILE ARRAY HERE
DATA ACl), A(2), A(3) / 8, X'81', X'42'/
DATA Ae4 ) , A e5 ) , A e6 ) /X ' 24 ' , X' 18 ' , X' 18 ' /
DATA Ae 7 ) , A e8 ) , A e9 ) /X ' 2 4 ' , X' 42 ' , X ' 81 ' /
DEFINE BACKGROUND ARRAY HERE
DATA
Bel),Be2)/1,~/
CALL
GRPINIe~)
CALL CLS
CALL
SETXYe3~~,1~~)
CALL
CIRCLEe15~,1,~.~,~.~,~.~)
BORDER=l
CALL PAINTTeA,BORDER,B)
END
PRESET
Sets Pixel ON/OFF
PRESET sets the pixel defined by the current ex,y)
coordinates either ON or OFF.
Example
CALL PRESETe~)
- - - - - - - - - l I a d l O l h a e l l - - - - - - - - -
-1~5-