I numeri degli inni

05 n=ti : print "soluzione quickest and uglyest"
10 for a = 1 to 3
20 for b = 0 to 9
25 if b=a goto 150
30 for c=0 to 9
32 if c=a or c=b goto 140
35 r=0:if c > 4 then f=2*c-10: r= 1:goto 38
36 f=2*c
38 if f = a or f= b or f=c  goto 140
40 if b >= 5 then e = 2*b-10 + r: r=1: goto 42
41 e = 2*b+r:r=0
42 if e = a or e= b or e=c or e= f goto 140
50 d = 2*a+r: if d > 6 or d < 3 goto 140
52 if d=a or d=b or d=c or d=f or d=e  goto 140
62 r=0:if c < 4 then i = 3*c:goto 92
72 if c < 7 then i = 3*c-10: r=1: goto 92
82 i = 3*c-20: r=2
92 if i = a or i= b or i=c or i= d or i = e or i= f goto 140
102 h=3*b+r: r=0: if h >= 20 then h=h-20:r=2: goto 107
105 if h>=10 then h=h-10:r=1
107 if h = a or h= b or h=c or h= d or h = e or h= f or h = i goto 140
117 g=a*3+r: if g = a or g= b or g=c or g= d or g = e or g= f or g=h or g=i goto 140
130 X= 100*a+10*b+c:print X;X*2;X*3
140 next c
150 next b
160 next a
170 print "run time:";(ti-n)/60