いちおう重箱のスミを突付いときますね。>>88

10 X=RND(99) ' 0-99
20 IF X<10 THEN PRINT "kin" : GOTO 50
30 IF X<40 THEN PRINT "gin" : GOTO 50
40 IF X<100 THEN PRINT "tetu" : GOTO 50
50 PRINT "x";X
60 INPUT A$
70 GOTO 10