10 ! L]GGRF.800 av B M}rtensson W & M Lund 1983.
20 ! Ger l}guppl|sningsgrafik "setdot" 24 x 80 p} ABC 800 M
30 ! Anv{ndes i MASK800.GAM.
40 EXTEND : INTEGER 
50 ! FN Dot(X,Y) ers{tts med Cell(X,Y)
60 DEF FNSetdot(X,Y)
70   DIM Cell(24,80)
80   ; CUR(X,Y) ""
90   Cell(X,Y)=-1 ! OMTALAR ATT PUNKTEN [R T[ND.
100   RETURN 0
110 FNEND 
120 DEF FNClrdot(X,Y)
130   ; CUR(X,Y) " "
140   Cell(X,Y)=0
150   RETURN 0
160 FNEND