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