Radio Shack TRS-80 Operation Manual page 143

Computer Graphics Operation Manual
- - - - - - - - - - T R S · B O
® - - - - - - - - - -
~
...
CALL LINE(.0',-l)
CONTINUE
DO 16 I=1,5.0'
IX=MOD(I*17,639)
IY=MOD(I*19,223)
CALL SETXY(IX,IY)
CALL PAINT(.0',.0')
CONTINUE
CALL WAIT
CALL VIEW(.0',.0',639,239,.0',.0')
RETURN
END
----------lIadl8l11aell----------
-139-