30 PRINT " >>> Hit and Blow. inkey 4'num. End then'0' by24/0721 hanayuu."
100 B=RND(9999);a=b
112 rem INPUT "test ANS =" B
120 C=B-(B/10)*10;D=B/10-(b/100)*10;F=B/1000;E=B/100-F*10
155 rem PRINT "line155 ",B," ",F," ",E," ",D," ",C
160 IF C=D GOTO 100
162 IF C=E GOTO 100
164 IF C=F GOTO 100
170 IF D=E GOTO 100
174 IF D=F GOTO 100
180 IF E=F GOTO 100
210 G=1
400 REM --- input answer
412 print G,"'loop", ; INPUT " ans = "M
420 if M>9999 goto 412
430 IF m<1 print "End ans=",a ; STOP
440 I=M-(M/10)*10 ;J=M/10-(M/100)*10;L=M/1000;K=M/100-L*10
480 rem PRINT m," ",i," ",j," ",k," ",l
500 H=0;B=0;G=G+1 
600 rem ---ans chk
640 if i=c  H=h+1;goto 700
650 if i=d B=b+1
660 if i=e B=b+1
670 if i=f B=b+1
700 if j=d  H=h+1;goto 760
720 if j=c B=b+1
730 if j=e B=b+1
740 if j=f B=b+1
760if k=e H=h+1;goto 800
770if k=c B=b+1
780if k=d B=b+1
790if k=f B=b+1
800 if l=f  H=h+1;goto 860
820 ifl=c B=b+1
830 ifl=d B=b+1
840 ifl=e B=b+1
860 if H=4 print " >>> Hit=",H," Blow=",B," GOOD!!";print" NEXT";goto 100
900 print "Hit=",H," Blow=",B ; goto 400