(Für ein "Gefällt mir" fehlt mir die Berechtigung .. bin zu neu hier)
Papperlapapp. 
Mit der Pixelroutine wollte ich meinem Sohn etwas zum coden in die Hand geben.
Damit kannst Du ihn locken? Cool!
Aufgabenstellung wie ... mach mal eine Line-Funktion damit.
Bresenham und so...
Mich hats grad in den Fingern gejuckt, daher ist hier mal meine Version. Sie ist sogar etwas schneller als Deine. Allerdings muss ich 2 Felder vorinitialisieren, und ich kann nur Punkte setzen, nicht löschen oder abfragen. Die Variablen habe ich teilweise so wie Du genannt.
Das geht sicher noch schneller, hier sind einige Basiccracks dabei. Bin mal gespannt, ob jemand schneller wird.
1 dimmu%(15)
2 data32,126,124,226,123,97,255,236,108,127,225,251,98,252,254,160
3 fori=0to15:readmu%(i):next
4 dimpo%(3):po%(0)=1:po%(1)=2:po%(2)=4:po%(3)=8
100 printchr$(147)
110 forpy=0to49:forpx=0to79:gosub12010:next:next
999 end
12000 if px<0 or px>79thenreturn
12010 if py<0 or py>49thenreturn
12020 xc=int(px/2):yc=int(py/2)
12030 kc=((yc*40)+xc)+1024
12040 xs=1+((px/2)=xc):ys=1+((py/2)=yc)
12050 cm=peek(kc):gosub12500
12060 cs=po%(ys*2+xs)
12070 cn=cn or cs:pokekc,mu%(cn):return
12500 ifcm= 32thencn=0:return
12501 ifcm=126thencn=1:return
12502 ifcm=124thencn=2:return
12503 ifcm=226thencn=3:return
12504 ifcm=123thencn=4:return
12505 ifcm= 97thencn=5:return
12506 ifcm=255thencn=6:return
12507 ifcm=236thencn=7:return
12508 ifcm=108thencn=8:return
12509 ifcm=127thencn=9:return
12510 ifcm=225thencn=10:return
12511 ifcm=251thencn=11:return
12512 ifcm= 98thencn=12:return
12513 ifcm=252thencn=13:return
12514 ifcm=254thencn=14:return
12515 ifcm=160thencn=15:return
12516 cn= 0:return
12999 return
Alles anzeigen
Edit: Mist, in Zeile 100 soll eigentlich das Steuerzeichen für Bildschirm löschen rein. Habs eben mal per Hand im Code geändert.