10 REM  ***TOMBOLA*** 
20 CALL CLEAR
30 CALL CHAR(120,"000000FF")
40 CALL CHAR(121,"1010101010101010")
50 CALL COLOR(13,7,7)
60 CALL COLOR(12,2,15)
70 CALL COLOR(1,2,15)
80 CALL HCHAR(24,1,132,64)
90 CALL VCHAR(1,32,132,48)
100 CALL HCHAR(20,2,120,30)
110 CALL HCHAR(8,2,120,30)
120 CALL HCHAR(14,2,120,30)
130 CALL VCHAR(2,17,121,19)
140 CALL HCHAR(22,1,132,32)
150 OPTION BASE 1
160 DIM X(90)
170 FOR I=1 TO 90
180 X(I)=I
190 NEXT I
200 CALL KEY(0,KEY,STATUS)
210 IF STATUS=0 THEN 200
220 RANDOMIZE
230 N=INT(RND*90)+1
240 IF X(N)<>N THEN 220
250 X(N)=0
260 CALL SOUND(N*10,N*10+100,1)
270 DECINE=INT(N/10)
280 UNITA=N-DECINE*10
290 RIGA=3+DECINE*2
300 COLONNA=UNITA*3
310 IF UNITA<>0 THEN 340
320 RIGA=RIGA-2
330 COLONNA=30
340 CALL HCHAR(RIGA,COLONNA,DECINE+48)
350 CALL HCHAR(RIGA,COLONNA+1,UNITA+48)
360 CALL HCHAR(23,16,DECINE+48)
370 CALL HCHAR(23,17,UNITA+48)
380 GOTO 200
