Utilizzare i tasti numerici (da 0 a 9)

      1060 graphic 0,1: color 5,2
      1070 color 1,2:color 0,1:color 4,1
      1080 sound 1,0,0:sound 2,0,0
      1090 sound 3,0,0: vol 0
      1100 print chr$(142)
      1110 for a=0 to 8
      1120 sprite a,0:next a
      1140 input "inserire colore bordo (1-16) e premere return ";b
      1150 if b>16 or b<1 then 1140
      1160 input "inserire colore fondo (1-16) e premere return ";p
      1170 if p>16 or p<1 then 1160
      1180 input "inserire colore penna (1-16) e premere return ";i
      1190 if i=p or i>16 or i<1 then 1180
      1200 x=50:y=50:d=1
      1210 color 1,i:color 0,p:color 4,b
      1220 graphic 1,1
      1230 get k$
      1240 if k$<>"" then k=asc(k$)-47
      1250 if k<1 or k>10 then 1270
      1260 on k gosub 1490,1350,1360,1390,1370,1410,1450,1430,1470,1330
      1270 draw d,x,y
      1280 a$="x__"+str$(x)+"    ": rem 4 spazi
      1290 b$="y__"+str$(y)+"    ": rem 4 spazi
      1300 char 1,5,24,a$
      1310 char 1,25,24,b$
      1320 k=0:goto 1230
      1330 if x=319 or y=190 then return
      1340 x=x+1:y=y+1:return
      1350 d=1:return
      1360 d=0:return
      1370 if x=0 or y=190 then return
      1380 x=x-1:y=y+1:return
      1390 if x=0 or y=0 then return
      1400 x=x-1:y=y-1:return
      1410 if x=0 then return
      1420 x=x-1:return
      1430 if y=0 then return
      1440 y=y-1:return
      1450 if y=190 then return
      1460 y=y+1:return
      1470 if x=319 then return
      1480 x=x+1:return
      1490 if x=319 or y=0 then return
      1500 x=x+1:y=y-1:return