Written Code
Myles_Zadok 21 Apr 2018 16:31
Monochrome:
26→K
1.1→B
{4Ans→A
ClrHome
For(A,1,E2 // The 'E' here is the egineering E, not the variable E
randInt(1,16)+.1randInt(1,8→C
Repeat C=Ans(1
A→dim(⌊A
⌊A(1
Output(10fPart(Ans),int(Ans),"O
Output(10fPart(B),int(B),"
Output(10fPart(C),int(C),"*
getKey
If Ans=45
Goto 0
If Ans=34 or 2>abs(Ans-25
Ans→K
⌊A(A→B
⌊A(1)+(K=26)-(K=24)+.1((K=34)-(K=25
If max(⌊A=Ans
Goto 0
Ans+16(not(int(Ans))-(17=int(Ans)))+.8(not(fPart(Ans))-(.9=fPart(Ans
augment({Ans},⌊A→A
End
augment(Ans,{Ans(A→A
End
Lbl 0
ClrHome
A
Color (I have not tested this, but I believe that it should work):
26→K
1.1→B
{4Ans→A
ClrHome
For(A,1,E2 // The 'E' here is the engineering E, not the variable E
randInt(1,26)+.1randInt(1,10→C
Repeat C=Ans(1
A→dim(⌊A
⌊A(1
Output(10fPart(Ans),int(Ans),"O
Output(10fPart(B),int(B),"
Output(10fPart(C),int(C),"*
getKey
If Ans=45
Goto 0
If Ans=34 or 2>abs(Ans-25
Ans→K
⌊A(A→B
⌊A(1)+(K=26)-(K=24)+.1((K=34)-(K=25
If max(⌊A=Ans
Goto 0
Ans+26(not(int(Ans))-(27=int(Ans)))+.9(not(fPart(Ans))-(1=fPart(Ans
augment({Ans},⌊A→A
End
augment(Ans,{Ans(A→A
End
Lbl 0
ClrHome
A