| .LINE Statement Programming Example. |
|
 QuickSCREEN Details Example Contents Index |
| ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ |
| 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. |
