10CLS :CLEAR
20RANDOMIZE
30F=0,A$= STR$ ( RND 886+101)
40C$=A$:GOSUB *A
50IF F=1 GOTO 30
60*MAIN
70X=0,Y=0,F=0
80LOCATE 4,0
90PRINT "    "
100LOCATE 0,0
110INPUT "3นภ ";N
120B$= STR$ N
130IF N<102 OR N>987 LET F=1
140C$=B$:GOSUB *A
150IF F=1 PRINT "ERR":GOTO *MAIN
160PRINT B$
170FOR J=1 TO 3
180FOR I=1 TO 3
190IF MID$ (A$,J,1)= MID$ (B$,I,1) IF J=I LET X=X+1 ELSE Y=Y+1
200NEXT :NEXT
210Z=Z+1
220IF X=3 GOTO *FIN
230PRINT "BINGO:"; STR$ X
240PRINT "HIT  :"; STR$ Y
250PRINT "TURN :"; STR$ Z
260GOTO *MAIN
270*FIN
280PRINT "BINGO!!!"
290PRINT "       "
300END
310*A
320FOR J=1 TO 3
330FOR I=1 TO 3
340IF J<>I AND MID$ (C$,I,1)= MID$ (C$,J,1) LET F=1
350NEXT :NEXT :RETURN