Radio Shack TRS-80 - Page 142

Computer Graphics
Operation Manual
-----------TRS-BO ® ----------
SUBROUTINE LTEST
C
C THIS ROUTINE EXERCISES LINE
C
LOGICAL MSG (19)
CALL CLS(~)
ENCODE(MSG,l~~)
1~~ FORMAT('LINE AND PAINT TEST')
CALL SETXY(~,~)
CALL LOCATE(~)
CALL GPRINT(19,MSG)
CALL WAIT
J=l~~
DO 1~ 1=1,639,2
CALL SETXY(I,lS)
CALL SETXY(I,239)
CALL LINE(l,J)
J=J-l
1~ CONTINUE
CALL WAIT
CALL VIEW(~,lS,639,239,~,~)
CALL CLS
C
C DRAW WHITE LINES AND FILL IN RANDOMLY
C
IX=MOD(I*19,639)
IY=MOD <I*17 , 223)
CALL SETXY(IX,IY)
DO 11 I=l,l~~
IX=MOD(I*23,639)
IY=MOD(I*29,223)
CALL SETXY(IX,IY)
CALL LINE <1, -1)
11 CONTINUE
DO 12 I=l,S~
IX=MOD(I*31,639)
IY=MOD(I*37,223)
CALL SETXY(IX,IY)
CALL PAINT(l,l)
12 CONTINUE
CALL WAIT
C
C WHITE OUT SCREEN, DRAW BLACK LINES, PAINT BLACK RANDOMLY
C
CALL VIEW(~,lS,639,239,1,1)
DO IS I=l,l~~
IX=MOD(I*11,639)
IY=MOD(I*13,223)
CALL SETXY(IX,IY)
----------lIadI8Ihaell---------
-138-