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