home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol7n11.zip
/
LN711.ZIP
/
PAINT.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-05-02
|
395b
|
11 lines
SCREEN 1,0
LINE (30,30)-(170,170), 3 'draw white diagonal line
LINE (50,50)-(150,150), 3, B 'draw white box
PAINT (90,100), 2, 3 'attempt to paint box magenta
SCREEN 1,0
LINE (30,30)-(170,170), 1 'draw cyan diagonal line
LINE (50,50)-(150,150), 3, B 'draw white box
PAINT (90,100), 2, 3 'paint entire box magenta