Data update

Task/Draw-a-pixel/Applesoft-BASIC/draw-a-pixel.basic

@@ -0,0 +1,29 @@
+ 100 WIDTH = 320
+ 110 HEIGHT = 240
+ 120 C = 1: REM RED
+ 130 X = 100
+ 140 Y = 100
+ 150  DEF  FN X(X) =  INT ((X - 1) / 14)
+ 160  DEF  FN Y(Y) =  INT ((Y - 1) / 8)
+ 170 W =  FN X(WIDTH)
+ 180 H =  FN Y(HEIGHT)
+ 190 WX =  INT ( RND (1) * (40 - W))
+ 200 WY =  INT ( RND (1) * (48 - H))
+ 210 C$ = "0123456789:;<=>?"
+ 220 C$ =  MID$ (C$,C,I) +  MID$ (C$,C + 2, LEN (C$) - C - 1)
+ 230 I =  INT ( RND (1) *  LEN (C$))
+ 240  COLOR=  ASC ( MID$ (C$,I + 1)) - 48
+ 250 C$ =  MID$ (C$,1,I) +  MID$ (C$,I + 2, LEN (C$) - I - 1)
+ 260 A =  PEEK (49234) +  PEEK (49240) +  PEEK (49232)
+ 270  FOR I = 0 TO 39
+ 280      VLIN 0,47 AT I
+ 290  NEXT
+ 300  COLOR=  ASC ( MID$ (C$, INT ( RND (1) *  LEN (C$)) + 1)) - 48
+ 310  FOR I = WX TO WX + W
+ 320      VLIN WY,WY + H AT I
+ 330  NEXT
+ 340  COLOR= C
+ 350  PLOT WX +  FN X(X),WY +  FN Y(Y)
+ 360  WAIT 49152,128
+ 370  TEXT
+ 380  HOME

Task/Draw-a-pixel/Uxntal/draw-a-pixel.uxnatl

@@ -1,16 +1,22 @@
+( $ uxnasm draw-pixel.tal draw-pixel.rom && uxnemu draw-pixel.rom )
+
 |00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
 
 |0100
+    ( set theme )
     #0f00 .System/r DEO2
     #0000 .System/g DEO2
     #0000 .System/b DEO2
 
+    ( set screen size )
     #0140 .Screen/width DEO2
     #00f0 .Screen/height DEO2
 
+    ( set position )
     #0064 .Screen/x DEO2
     #0064 .Screen/y DEO2
 
+    ( draw pixel )
     #01 .Screen/pixel DEO
 BRK