Files
gw-basic-2026/tests/programs/graphics_stubs.bas
T

10 lines
199 B
QBasic
Raw Normal View History

10 REM Graphics stubs test
20 SCREEN 2
30 PSET(10,20),3
40 PRESET(50,50)
50 LINE (0,0)-(100,100),1
60 CIRCLE(160,100),50,2
70 DRAW "U10 R10 D10 L10"
80 PAINT (50,50),1,2
90 PRINT "Graphics stubs OK"