Data commit

Task/Draw-a-pixel/Action-/draw-a-pixel.action

@@ -0,0 +1,19 @@
+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