Radio Shack TRS-80 Operation Manual page 141

Computer Graphics Operation Manual
- - - - - - - - - - TRS·BO
@ - - - - - - - - - -
SUBROUTINE CTEST
THIS SUBROUTINE TESTS CIRCLE, SETXY, AND PAINT
LOGICAL MSG(29)
CALL CLS
ENCODE C MSG, HJJ;J)
FORMATC'TEST CIRCLE, SETXY, AND PAINT')
CALL
SETXYC~,~)
CALL
LOCATEC~)
CALL GPRINTC29,MSG)
CALL WAIT
CALL
VIEWC~,3~,639,239,~,~)
DO
1~ I=l,l~~
IX=MODCI*17,64~)
IY=MODCI*13,21~)
IR=I*1.5
START=MODCI,13)-6.~
END=MODCI*3,13)-6.~
IF CSTART.LT.END) GOTO 1
T=START
START=END
END=T
CONTINUE
RATIO=MODCI*3,1~~)
IF
CRATIO.GT.~) RATIO=RATIO/4~.
CALL SETXYCIX,IY)
CALL CIRCLECIR,l,START,END,RATIO)
CONTINUE
RANDOMLY FILL IN THE AREAS
DO 11 I=1,5~
IX=MODCI*23,64~)
IY=MODCI*11,21~)
CALL SETXYCIX,IY)
CALL PAINTCl,l)
CONTINUE
CALL WAIT
CALL
VIEWC~,~,639,239,-1,-l)
RETURN
END
---------ltadlOlllaell---------
-137-