qb45advr.hlp (
Topic list)
Important Notice
The pages on this site contain documentation for very old MS-DOS software,
purely for historical purposes.
If you're looking for up-to-date documentation, particularly for programming,
you should not rely on the information found here, as it will be woefully
out of date.
PRESET Statement Programming Example
◄QuickSCREEN► ◄Details► ◄Example► ◄Contents► ◄Index►
──────────────────────────────────────────────────────────────────────────────
PRESET Statement Programming Example
This example uses PSET and PRESET to draw a line 20 pixels long, then
move the line across the screen from left to right.
SCREEN 1 : COLOR 1,1 : CLS
FOR I = 0 TO 299 STEP 3
FOR J = I TO 20 + I
PSET (J, 50), 2 'Draw the line in new location.
NEXT
FOR J = I TO 20 + I
PRESET (J, 50) 'Erase the line.
NEXT
NEXT