RosettaCodeData/Task/Draw-a-pixel/OPL/draw-a-pixel.opl
2026-02-01 16:33:20 -08:00

11 lines
417 B
Text

REM Psion devices up to Series 5 have no colour, so the pixel is black. The Series 7 and later do have colour, but I don't own any of those, so I can neither test it nor am I familiar with OPL beyond Series 5.
REM The Series 3 also has a resolution of only 480x160, so the window falls off the screen.
PROC main:
LOCAL wndw%
wndw%=gCREATE(80,0,320,240,1,1)
gXBORDER 1,1
gAT 100,100
gLINEBY 0,0
GET
ENDP