Task

Create a window and draw a pixel in it, subject to the following:

  the window is 320 x 240
  the color of the pixel must be red (255,0,0)
  the position of the pixel is x = 100, y = 100
PROC Main()
  BYTE
    CH=$02FC, ;Internal hardware value for last key pressed
    PALNTSC=$D014 ;To check if PAL or NTSC system is used
 
  Graphics(8+16) ;Graphics 320x192 with 2 luminances
  IF PALNTSC=15 THEN
    SetColor(1,4,6) ;Red color for NTSC
    SetColor(2,4,15)
  ELSE
    SetColor(1,2,6) ;Red color for PAL
    SetColor(2,2,15)
  FI
  Color=1
  Plot(100,100)
 
  DO UNTIL CH#$FF OD
  CH=$FF
RETURN