Radio Shack TRS-80 Operation Manual page 154

Computer Graphics
Operation Manual
- - - - - - - - - - - TRS-BO
® - - - - - - - - - -
~4S~~
~46~~
~47~~
~48~~
~49~~ l~
~s~~~
~Sl~~
~S2~~
~S3~~
~S4~~
~SS~~
~S6~~
~S7~~
~S8~~
11
~S9~~
~6~~~
~6l~~
SUBROUTINE DCIRCL(ICLR)
CALL
SETXY(l~~,l~~)
DO
l~ I=S,3~~,S
CALL
CIRCLE(I,ICLR,~.~,6.28,~.S)
CONTINUE
CALL WAIT
RETURN
END
SUBROUTINE DLINE(ICLR)
DO 11
I=2,2~g,4
CALL SETXY(-lg,-lg)
CALL SETXY(I+2gg,I)
CALL LINE(ICLR,-l)
CONTINUE
CALL WAIT
RETURN
END
- - - - - - - - - l I a d l e l h a e l l - - - - - - - - -
-lSg-