 |
| .PSET Statement Programming Example. |
|
 QuickSCREEN Details Example Contents Index |
| ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ |
| PSET Statement Programming Example |
|
| This example draws a line from (0,0) to (100,100), then erases the line by |
| writing over it with the background color. |
| |
| SCREEN 2 |
| ' Draw a line from (0,0) to (100,100). |
| FOR I = 0 TO 100 |
| PSET (I, I) |
| NEXT I |
| LOCATE 16,2: INPUT "Press any key to erase the line ", Gar$ |
| ' Now erase the line. |
| PSET (I-1, I-1), 0 |
| FOR I = 0 TO 100 |
| PSET STEP (-1, -1), 0 |
| NEXT I |
| LOCATE 16,2: PRINT " " |
| |
|
|
