:Disp "cranwell@yahoo.com"
:Disp "","","",""
:12üX:0üL
:Lbl A:Disp ""
:iPart X rand+1üA
:iPart X rand+1üB
:Lbl C:0üQ
:Outpt(7,12,A)
:Outpt(7,14,"*")
:Outpt(7,15,B)
:Outpt(7,17,"=")
:InpST "ANSWER=?",Z
:If lngth Z>int log (A*B)+1
:Then
:Disp "     YADA   CHEATER","",""
:Goto C:End
:Outpt(6,18,A*B)
:StåEq(Z,C)
:If (A*B)==C:L+1üL
:If (A*B)==C:X+1üX
:If (A*B)==C
:Disp "            CORRECT"
:If X>25:25üX
:If (A*B)øC:0üL
:If (A*B)øC:X-1üX
:If (A*B)øC
:Disp "            IDIOT"
:Outpt(7,1,L)
:If X<1:1üX
:Disp ""
:Goto A

    Source: geocities.com/xulfrepus/ti85

               ( geocities.com/xulfrepus)