Radio Shack TRS-80 - ON-GOTO Statement

Computer Graphics Operation Manual
-----------TRS-BO ® ----------
Sample Program (see CIRCLE)
LINE
Draws Line
LINE draws a line between the previous and current
coordinates. These coordinates are set by the SETXY or
SETXYR subroutines.
Example
CALL LINE (l, -1)
Sample Program
This example draws a diagonal line connected to a box, which
is connected to a filled box.
SAMPLE FOR LINE LINEB LINEBF
LOGICAL COLOR
COLOR=1
CALL GRPINI(~)
CALL CLS
CALL SETXY(l,l)
CALL SETXY(21~,8~)
CALL LINE(COLOR,-l)
CALL SETXY(42~,16~)
COORDINATES ARE NOW (21~,8~) (42~,16~)
CALL LINEB(COLOR,-l)
CALL SETXY(639,239)
COORDINATES ARE NOW (42~,16~) (639,239)
CALL LINEBF(COLOR)
END
----------lIadlelhaell----------
-l~~-