LINE Statement Programming Example This example uses LINE statements to display a series of screens with different line graphics. To run this example, your screen must be 320 pixels wide by 200 pixels high and support CGA screen mode. SCREEN 1 'Sets up the screen mode. LINE -(X2, Y2) 'Draws a line (in the 'foreground color) from 'the most recent point 'to X2,Y2. DO LOOP WHILE INKEY\$ = "" 'Press any key to continue CLS ' Clear screen LINE(0, 0)-(319, 199) 'Draws a diagonal line across 'the screen (downward). DO LOOP WHILE INKEY\$ = "" 'Press any key to continue CLS ' Clear screen LINE(0, 100)-(319, 100) 'Draws a horizontal line 'across the screen. DO LOOP WHILE INKEY\$ = "" 'Press any key to continue CLS ' Clear screen LINE(10, 10)-(20, 20), 2 'Draws a line in color 2. DO LOOP WHILE INKEY\$ = "" 'Press any key to continue CLS ' Clear screen FOR X = 0 to 319 'Draws an alternating pattern LINE(X, 0)-(X, 199), X AND 1 '(line on/line off) on mono- NEXT 'chrome display. DO LOOP WHILE INKEY\$ = "" 'Press any key to continue CLS ' Clear screen LINE (0, 0)-(100, 100),, B 'Draws a box in the fore- 'ground color (note that the 'color is not included). DO LOOP WHILE INKEY\$ = "" 'Press any key to continue CLS ' Clear screen LINE STEP(0,0)-STEP(200,200),2,BF 'Draws a filled box in color '2 (coordinates are given as 'offsets with the STEP option). DO LOOP WHILE INKEY\$ = "" 'Press any key to continue CLS ' Clear screen LINE(0,0)-(160,100),3,,&HFF00 'Draws a dashed line from 'the upper lefthand corner to 'the center of the screen in 'color 3.