Sample 2 Plot lines

Start() END FUNCTION Start() SYSTEM(FontSize=18, BackGround=997) DO $XV(10) = 0 $YV(10) = 0 $XV($)=RAN(40,50) $YV($)=RAN(40,50) Singles() Multis() DLG(L=0,W=1/3,Edit='#What is shown',W=3, LBL='ESCape to see code', B='Show again', B='Quit')
#What is shown 2 vectors XV and YV are set to random numbers and are used in all 4 examples. The function "Singles" . MOVES the pointer to the current . (x-5,y-10) target . DRAWS to (x+5,y+10). The point properties . can be set individually, e.g: . color rgb (red green blue) . TextA The function "Multis" . plots the same data 3 times: 1. lines + symbols (Draw=9 . =blue) 2. symbols only (Draw=-90 . =magenta symbols) . If Symbol=$: . draw index number 3. lines only (Draw=900 . =red) . to dash set Broken = . DashLength.GapLength
IF($TxtRC == 'Show again') Start() IF($txtRC == 'Quit') SYSTEM(QUIT=1) ENDDO END FUNCTION Singles() DLG(TI='Singles allow line segments', R=2, C=3, AX=2) DO J = 1, 10 x = $XV(J) y = $YV(J) color = 9 IF (y <= 50) color = 900 txtA = ' ' & J txtZ = ' x,y=' & FMT(x,2) & ',' & FMT(y,2) LINE(AX=2,W=2, X=x-5, Y=y-10, TextA=txtA, Draw=-1, X=x+5, Y=y+10, Wid=5, Symb='▢', TextZ=txtZ, Draw=color) ENDDO END FUNCTION Multis() DLG(TI='Multi data allow num idx', Rows=2, Columns=3, AXis=3)
LINE(AXis=3, x=$XV($), y=$YV($), Symbol=$, Draw=9) DLG(TI='Same multi data without line', R=2, C=3, AX=5) LINE(AX=5, x=$XV($), y=$YV($), S=$, Draw=-909 ) DLG(TI='Same multi data without idx', R=2, C=3, AX=6) LINE(AX=6, x=$XV($), y=$YV($), Width=3, Broken=2.1, Draw=900) END