Radio Shack TRS-80 Operation Manual page 142

Computer Graphics
Operation Manual
- - - - - - - - - - - T R S - B O
® - - - - - - - - - -
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)
- - - - - - - - - - l I a d I 8 I h a e l l - - - - - - - - -
-138-