'' examples/manual/gfx/draw.bas
''
'' Example extracted from the FreeBASIC Manual
'' from topic 'DRAW'
''
'' See Also: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgDraw
'' --------

'' Mode 13 is the documented compatibility mode for this DRAW lesson.
'' FB-LINTER: DISABLE-NEXT-LINE FBL734
Screen 13

'Move to (50,50) without drawing
Draw "BM 50,50"

'Set drawing color to 2 (green)
Draw "C2"

'Draw a box
Draw "R50 D30 L50 U30"

'Move inside the box
Draw "BM +1,1"

'Flood fill with color 1 (blue) up to border color 2
Draw "P 1,2"

Sleep