Radio Shack TRS-80 Operation Manual page 145

Computer Graphics Operation Manual
- - - - - - - - - - - TRS·BO
® - - - - - - - - - -
SUBROUTINE PTTTST
PAINT WITH TILES TEST
LOGICAL A(6S),B(4),IS(16),MSG(23)
DATA A(1)/S/
X
DATA
A(2),A(3),A(4),A(S)/X'41',X'22',X'14',X'~S'/
DATA A( 6 ) , A ( 7 ) , A ( S ) , A ( 9 )
/x '
14 ' , X' 22 ' , X ' 41 ' , X '
~~
, /
FINE HORIZONTAL LINES
DATA
A(1~),A(ll),A(12)/2,X'FF',X'~~'/
MEDIUM HORIZONTAL LINES
DATA A(13)/4/
DATA A<14 ) , A <1S ) , A <16 ) , A <1 7 ) /X ' FF' , X' FF' ,
x'
~~
, ,
X ' ~~ , /
DIAGONAL LINES
DATA A<1S )/4/
DATA A(19)
,A(2~)
,A(21)
,A(22)/X'~3',X'~C' ,X'3~' ,X'C~'/
LEFT TO RIGHT DIAGONALS
DATA A(23)/4/
DATA
A(24),A(2S),A(26),A(27)/X'C~',X'3~',X'~C',X'~3'/
FINE VERTICAL LINES
DATA A(2S),A(29)/1,X'AA'/
MEDIUM VERTICAL LINES
DATA
A(3~),A(31)/1,X'CC'/
COARSE VERTICAL LINES
DATA A(32),A(33)/1,X'F~'/
ONE PIXEL DOTS
DATA
A(34),A(3S),A(36)/2,X'22',X'~~'/
TWO PIXEL DOTS
DATA A(37),A(3S),A(39)/2,X'99',X'66'/
PLUSES
DATA A( 4
~
) , A ( 41 ) , A ( 42 ) , A ( 43 ) /3 , X ' 3C ' , X ' 3C ' , X ' FF ' /
SOLID
DATA A(44),A(4S)/1,X'FF'/
BROAD CROSS HATCH
DATA A(46),A(47),A(4S),A(49)/3,X'92',X'92',X'FF'/
THICK CROSS HATCH
DATA
A(S~)/4/
DATA A(S1),A(S2),A(S3),A(S4)/X'FF',X'FF' ,X'DB',X'DB'/
FINE CROSS HATCH
DATA A(S4),A(SS),A(S6)/2,X'92' ,X'FF'/
ALTERNATING PIXELS
DATA A(S7),A(SS),A(S9)/2,X'SS',X'AA'/
DATA
B(1),B(2),B(3),B(4)/1,~,1,X'FF'/
DATA
IS(1),IS(2),IS(3),IS(4),IS(S),IS(6)/1,1~,13,1S,23,2S/
DATA
IS(7),IS(S),IS(9),IS(l~),IS(11)/3~,32,34,37,4~/
DATA IS(12),IS(13),IS(14),IS(1S),IS(16)/44,46,S~,S4,S7/
CALL CLS
ENCODE(MSG,1~~)
---------ltadl8l11aell---------
-141-