10 COLOR 0,1:COLOR 1,3: REM SET BACKGROUND TO BLACK AND PIXEL COLOR TO RED
15 GRAPHIC 1,1 : REM ENTER BITMAP GRAPHICS MODE AND CLEAR SCREEN
20 DRAW 1,100,100 : REM PLOT PIXEL AT 100,100
30 GETKEY K$: REM WAIT FOR KEYPRESS THE NEW WAY
40 GRAPHIC 0,1 : REM RETURN TO TEXT MODE