|
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
|