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.
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 " "