'LINE-Demo mit B- und BF-Option

SCREEN 12                            'VGA-Grafikmodus 640x480 gew„hlt

COLOR 13                             'Pink
LINE (10, 200)-(600, 400), , B       'Nicht ausgef�lltes Rechteck

COLOR 15                             'Leuchtend-Weiá
LOCATE 24, 1                         'Meldung ausgeben
PRINT "Nicht ausgef�lltes Rechteck"
PRINT "Beliebige Taste dr�cken..."
a$ = INPUT$(1)

CLS                                  'Bildschirm l”schen
COLOR 13                             'Pink
LINE (10, 200)-(600, 400), , BF      'Ausgef�lltes Rechteck

COLOR 15                             'Leuchtend-Weiá
LOCATE 24, 1                         'Meldung ausgeben
PRINT "Ausgef�lltes Rechteck"
PRINT "Beliebige Taste dr�cken..."
a$ = INPUT$(1)