I have no idea how to fix this error: Variable received is an incompatible version. Where did my code go wrong?
Func
FnOff
PlotsOff
AxesOff
LabelOff
GridOff
Radian
""→Str1
"f9dKHR/kguyS3vzFWbLW0IO6Il"→Str2
1→S
0→K
BackgroundOn 12
ClrDraw
ClrHome
16→Xmin
16→Xmax
10→Ymin
10→Ymax
DispGraph
Pt-On(0,0,1,16)
For(N,0,2π,π/8)
Pt-On(0.75sin(N),0.75cos(N),2,16)
Pt-On(0.75sin(N+π/16),0.75cos(N+π/16),2,16)
End
Pt-On(.25,0.1,1,11)
Pt-On(.25,0.1,2,11)
StorePic 1
TextColor(20)
Text(0,10," SAFE MODE... WAITING")
prgmDECRYPT
0→K
Text(0,155," PASSWORD?")
Repeat K=52
getKey→K
Pt-Change(5sin(N-π/8),5cos(N-π/8),12)
Pt-On(5sin(N),5cos(N),1,20)
N+π/8→N
End
0→K
TextColor(19)
Text(0,155," PASSWORD?")
Repeat K=91
getKey→K
Pt-Change(5sin(N-π/8),5cos(N-π/8),12)
Pt-On(5sin(N),5cos(N),1,20)
N+π/8→N
End
0→K
TextColor(18)
Text(0,155," PASSWORD?")
Repeat K=61
getKey→K
Pt-Change(5sin(N-π/8),5cos(N-π/8),12)
Pt-On(5sin(N),5cos(N),1,20)
N+π/8→N
End
0→K
TextColor(11)
Text(0,155," PASSWORD?")
Repeat K=82
getKey→K
Pt-Change(5sin(N-π/8),5cos(N-π/8),12)
Pt-On(5sin(N),5cos(N),1,20)
N+π/8→N
End
TextColor(20)
Text(0,155," ")
N→E
While N≤E+4π
Pt-Change(5sin(N-π/8),5cos(N-π/8),12)
Pt-On(5sin(N),5cos(N),1,20)
N+π/8→N
End
ClrHome
Disp "Warning: approaching "
Disp "scheduled burn. Helium "
Disp "check valve malfunction"
Disp "CANNOT POST LINK ON THIS WEBSITE"
Disp ""
Disp "Abort burn? (Y/N)
0→K
Repeat K=92 or K=71
getKey→K
End
If K=92
Then
BackgroundOn 12
ClrDraw
ClrHome
ZSquare
DispGraph
RecallPic 1
For(N,0,2π,π/8)
Pt-Change(5sin(N-π/8),5cos(N-π/8),12)
Pt-On(5sin(N),5cos(N),1,20)
End
ClrHome
ClrDraw
BackgroundOn 0
TextColor(22)
Text(0,15,Str2)
Pause
Goto 99
End
If K=71
Then
BackgroundOn 12
ClrDraw
ClrHome
ZSquare
DispGraph
RecallPic 1
For(N,0,4π,π/8)
Pt-Change(5sin(N-π/8),5cos(N-π/8),12)
Pt-On(5sin(N),5cos(N),1,20)
End
Pt-Off(5sin(31π/32),5cos(31π/32),1)
TextColor(19)
Text(2,2,"System failure...")
Wait 1
ClrHome
Disp "Try again"
Wait 1
Goto 99
End
Lbl 99
ClrDraw
""→Str1
Func
AxesOn
BackgroundOff
ClrHome
Stop
This is the decrypt code
"Decryption"
DelVar L₆
DelVar L₅
DelVar L₄
"First Str2 to L4
For(A,1,length(Str2
inString("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 θ/.:?abcdefghijklmnopqrstuvwxyz",sub(Str2,A,1→L₄(A
End
"Decrypting the message
""→Str0
Input ("LAUNCH DMY?: ",Str2)
expr(Str2)→rand
0→N
For(A,1,dim(L₄))
:L₄(A)→I
:randIntNoRep(1,68,68)→L₅
:L₅(I)→L₆(A)
:26-A→B
:Text(145,230,toString(B))
:Pt-Change(5sin(N-π/13),5cos(N-π/13),12)
:Pt-On(5sin(N),5cos(N),1,20)
:N+π/13→N
End
"?
:For(A,1,dim(L₆
:Ans+sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 θ/.:?abcdefghijklmnopqrstuvwxyz",L₆(A),1)
:
End
sub(Ans,2,length(Ans)-1→Str2
Pt-Change(5sin(N-π/13),5cos(N-π/13),12)
"Clean Up Clues
0→S
0→rand
DelVar L₆
DelVar L₅
DelVar L₄