codice basic ottimizzato per F64

10rem f64
20zz=rnd(-ti)
30sc=0
40poke646,2:poke53280,2:poke53281,0
50 empt$="                   "
60ln$="{cm +}"+empt$+"{cm +}"
70rc=7:sp=rc:lc=0:rp=0:dimc
80dimob
90dimpf$
100print"{clear}"
110v=53248
120pokev+21,4:poke53289,4:poke2042,13
130delta=3
140forn=0to62:readq:poke832+n,q:next
150x=165:y=50
160a=peek(56320)
170ifa<>127thendelta=delta+1:goto190
180ifa=127thendelta=delta-1.5
190ifdelta<3thendelta=3
200ifdelta>10thendelta=10
210ifa=126theny=y-delta:goto290
220ifa=125theny=y+delta:goto290
230ifa=123thenx=x-delta:goto290
240ifa=119thenx=x+delta:goto290
250ifa=122theny=y-delta:x=x-delta:goto290
260ifa=118theny=y-delta:x=x+delta:goto290
270ifa=121theny=y+delta:x=x-delta:goto290
280ifa=117theny=y+delta:x=x+delta
290ifx<20thenx=20:goto310
300ifx>255thenx=255
310ify<50theny=50:goto330
320ify>237theny=237
330pokev+4,x:pokev+5,y
340c=int(rnd(1)*3)+1
350iflc=0thenifc=1thensp=sp+1:rp=rp+1:goto370
360iflc=0thenifc=2thensp=sp-1:rp=rp+1
370iflc=1thensp=sp+1:rp=rp+1:goto400
380iflc=2thensp=sp-1:rp=rp+1:goto400
390iflc=3thenrp=rp+1
400ifsp<rcthensp=rc:goto420
410ifsp>2*rcthensp=2*rc
420pf$=""
430fort=1tosp:pf$=pf$+" ":nextt
440ob=int(rnd(1)*3)+1
450ifob<3orsc<6then?pf$+ln$:goto470
460ifob=3thenifsc>5thengosub510
470ifpeek(53279)=4goto550
480ifrp>rcthenrp=0:lc=c
490sc=sc+1
500goto160
510ob=int(rnd(1)*(len(ln$)-1))+1
520l$=left$(ln$,ob):r$=right$(ln$,len(ln$)-ob-1)
530?pf$+l$+"Q"+r$
540return
550print"{clear}"
560pokev+21,0
570restore
580?"fine corsa"
590?"linee superate:"+str$(sc):?"ancora?(y o n)"
600gety$:ify$=""goto600
610ify$="y"thengoto30
620end
630rem
640data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
650data0,0,0,255,255,255,73,0,146,38,0,100,16,0,8,8,24,16
660data4,36,32,2,36,64,1,36,128,0,153,0,0,66,0,0,36,0,0,24,0