Radio Shack TRS-80 - 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-