Learn QBASIC with Real Code Examples

REM QBasic graphics and user input example
SCREEN 12
CLS

REM Draw colorful borders
COLOR 9
LINE (0, 0)-(639, 479), , B

REM Title text
COLOR 14
LOCATE 2, 30
PRINT "QBasic Graphics Demo"

REM Draw a house
COLOR 12
LINE (200, 200)-(400, 350), , BF  'House body
COLOR 10
LINE (200, 200)-(300, 100)  'Roof left
LINE (300, 100)-(400, 200)  'Roof right
LINE (200, 200)-(400, 200)  'Roof bottom

REM Draw a door
COLOR 6
LINE (280, 260)-(320, 350), , BF

REM Draw windows
COLOR 11
LINE (220, 240)-(260, 280), , BF
LINE (340, 240)-(380, 280), , BF

REM User interaction
COLOR 15
LOCATE 20, 20
PRINT "Enter your name: ";
INPUT name$
LOCATE 22, 20
PRINT "Hello, "; name$; "! Press any key to exit."

REM Wait for keypress
WHILE INKEY$ = "": WEND
END

Shows QBasic's graphics capabilities with drawing commands and user interaction.