0 rem Programma superenalotto C64
5 clr:dim n(6)
10 print"(clr/home)"
20 print"   **** estrazione superenalotto ****"
30 print"(giu)           by gruppo facebook”
35 print "        retrocomputer club roma"
40 print"(giù)":input"quante colonne da 6 numeri ";c
50 for p=1 to c
55 print"(giu)colonna ";p
60 for a=1 to 6
70 x=int(rnd(1)*90+0.5)-1
80 for b=1 to 6
90 if n(b)=x then 70
100 next b
110 n(a)=x
120 print n(a);
130 next a
135 print "(giu)"
140 next p
150 print"(giu)altra estrazione (s/n)?"
160 get a$:if a$=""then 160
170 if a$="s" then 5
180 end