FnOff :PlotsOff :AxesOff:GridOff:
5üD
Lbl 1
ClrDraw:Text(55,35,"LEVEL"):Text(55,60,D-4)
Text(0,0,"MISFIT")
Text(0,50,"By John Chen")
{D,D}üdim([D])
For(R,1,D)
For(C,1,D)
randInt(0,1)ü[D](R,C)
End:End
randInt(1,D)üA
randInt(1,D)üB
randInt(1,4)üI
For(X,1,4)
For(R,1,D)
For(C,1,D)
If X=I and A=R and B=C:Then:If [D](R,C)=0:Pxl-On(R+29,23X-23+C)
Else:If [D](R,C)=1:Pxl-On(29+R,23X-23+C):End
End:End:End
For(X,1,4)
Text(20,23X-23,X)
End

0üT:0üK
Repeat K=92 or K=93 or K=94 or K=82:T+1üT
getKeyüK:End
If K=82:4üK
If Kù92:K-91üK
If K=I:Then:Text(10,10,"CORRECT"):Text(10,45,"Time:"):Text(10,65,T)
D+1üD:End
If KĝI:Text(10,30,"INCORRECT")

0üK:0üT
While 0=K
getKeyüK
T+1üT
If fPart(T/2)=0:Text(20,23I-23,I)
If fPart(T/2)>0:Text(20,23I-23,"     ")
Pxl-Change(29+A,23I-23+B)
If T=10:Then:0üT:0üK:Repeat T=100 or K>0:
getKeyüK:T+1üT:End:0üT:End
End
Goto 1