Radio Shack TRS-80 - Page 83

Computer Graphics Operation Manual
----------TRS-BO ® ----------
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 ) , Ae5 ) , Ae6 ) /X ' 24 ' , X' 18 ' , X' 18 ' /
DATA Ae7 ) , Ae8 ) , Ae9 ) /X ' 24 ' , 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~)
---------lIadlOlhaell---------
-1~5-