:"Apple π
:DCS6
"000000001F863FFE7FFE66FC0630063006300E300E341C3C1C3C181800000000
CLASSIC
ClrHome
real(X→X
"14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664709384460"→Str1
If X=π
Then
Output(1,1,"3.
Output(1,3,Str1
Pause
ClrHome
End
Repeat 0
0→S
Output(1,1,"3._
Repeat S=126
Repeat K=45 or K=102 or (abs(iPart(.1K)-8)≤1) and abs(fPart(.1K)-.3)≤.1
getKey→K
End
If K=45:Then
ClrHome
Stop
End
If 3(10-iPart(.1K))+10fPart(.1K)-4+2(K=102)≠expr(sub(Str1,S+1,1:Then
sub("₀₁₂₃₄₅₆₇₈₉",1+expr(sub(Str1,S+1,1)),1
If X≠π²
Ans+sub("₀₁₂₃₄₅₆₇₈₉",1+expr(sub(Str1,S+2,1)),1)+sub("₀₁₂₃₄₅₆₇₈₉",1+expr(sub(Str1,S+3,1)),1
Output(iPart((S+18)/16),remainder(S+2,16)+1,Ans
Pause
S-6→S
S(S≥0)(X≠π→S
If X=π:Then
ClrHome
Output(1,1,"3.
End
Output(iPart((S+18)/16),remainder(S+2,16)+1,"_ "
Else
Output(iPart((S+18)/16),remainder(S+2,16)+1,sub(Str1,S+1,1
S+1→S
If S≠126
Output(iPart((S+18)/16),remainder(S+2,16)+1,"_
End
End
Pause
If S=126:Then
For(Y,1,8
For(X,1,16
Output(Y,X," "
End
End
Repeat K=105
Output(randInt(1,8),randInt(1,16),sub("•••⁺⁺▫*π ",randInt(1,14),1
getKey→K
End
End
ClrHome
End