Draw a pixel: Difference between revisions

→‎{{header|Commodore BASIC}}: Might as well use GETKEY in versions of BASIC that have it
(→‎{{header|Commodore BASIC}}: Might as well use GETKEY in versions of BASIC that have it)
Line 694:
90 POKE 53280,14:POKE 53281,6:POKE 646,14:END</lang>
 
'''Example 2:''' Commodore Plus /4 and 128
<lang gwbasic>10 COLOR 0,1:COLOR 1,3: REM SET BORDERBACKGROUND 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 GETGETKEY K$:IF K$="" THEN 30
40 GRAPHIC 0,1 : REM RETURN TO TEXT MODE</lang>
 
1,480

edits