5 CLS:DIMA(5,5):DIMB(5,5):FORI=1TO5:FORJ=1TO5:B(I,J)=0:NEXTJ,I
10 PRINT@24,"":FORI=1TO5:FORJ=1TO5:A(I,J)=RND(5):NEXT:NEXT
20 PRINT@81,"X":PRINT@199,"Y";:PRINT@109,"1 2 3 4 5":FORI=32TO160STEP32
30 PRINT@I+105,I/32:NEXT:PRINT@0,"CORRECT :";S:PRINT@32,"FAILS   :";F
40 FORI=1TO5:FORJ=1TO5:PRINT@J*32+I+I+106,A(I,J):NEXTJ,I
50 SOUND31,2:FORI=1TO5:FORJ=1TO5:IFB(I,J)=0,PRINT@J*32+I+I+107," ";
60 NEXTJ,I:PRINT@256," ":INPUT"X";C:INPUT"Y";D:INPUT"YOUR GUESS";V
80 IFA(C,D)=V,PRINT@D*32+C+C+106,V:B(C,D)=1:SOUND31,2:S=S+1
90 IFA(C,D)<>V,F=F+1:GOTO20ELSE20
