10n=5
20 dim ma$(n,n)
60 forx=1ton
70 fory=1ton
80 if y>x then ma$(x,y)=str$(int(rnd(1)*2)):goto90:rem sopra la diagonale
82 if Y=x then ma$(x,y)=str$(int(rnd(1)*9)):goto90:rem diagonale.sono i tipi di stanza 1-9
85 ma$(x,y)=ma$(y,x):rem sotto la diagonale
90 nexty
100 nextx
105 ?” “;
106 fort=1ton:?” “+str$(t);:next
107 ?
110 forx=1ton
120 ?”x=”+str$(x);
130 fory=1ton
140 ?” “+ma$(x,y);
150 nexty
160 ?
170 nextx

thank you