Axe Q&A

Appvars.. again Cheesy

I don't know why, but when i compile the following code, and I run the program:
-first time, the appvar doesn't exist => code 1
-second time, the appvar exists => code 2
It's okay, that's what I want it to do.
But after the second time, it doesn't do anything Huh?

it just skips this part of the code...

Code: Select All | Copy To Clipboard

!If GetCalc("appvTLKC",Y0
 GetCalc("appvTLKC",6)->K             // Code 1
 sub(MOD                             //
Else
 Repeat M=6               //
  0->M            //  Code 2  
  sub(SA         //
  sub(CM        //
 End
End

Spoiler for the whole code:

Code: Select All | Copy To Clipboard

.TILOCK
DiagnosticOff
ClrHomeClrDraw^^r
Fix 5

sub(Z

!If GetCalc("appvTLKC",Y0
 GetCalc("appvTLKC",6)->K
 sub(MOD
Else
 Repeat M=6
  0->M
  sub(SA
  sub(CM
 End
End

.MENU

[0000070F0C0C0C1F->Pic1
[0000C0E0606060F0
[3F3F3F3F3F1F0000
[B8389838F8F00000

ClrDraw^^r

Rect(11,14,74,35
RectI(13,16,70,31
Rect(14,17,68,29
RectI(15,18,66,27
Text(17,19,"Turn off
Text(17,28,"Change my code
Text(17,37,"Quit to homescreen
19->B
16->H
4->K
fnInt(FD,6

RectI(16,B,64,7
Repeat getKey(54)
 If getKey(1)+getKey(4)
  RectI(16,B,64,7
  B<37*getKey(1)-(B>19*getKey(4))*9+B->B
  RectI(16,B,64,7
  While getKey(0)
   Pause 5
  End
 End
 If getKey(54)
  If B=19
   Text(0,,"1
  End
  If B=28
   Text(0,,"2
  End
  If B=37
   Text(0,,"3
  End
 End
End
FnOff 

Archive "appvTLKC"
LnReg 
Fix 4
Return


.SAISIE DU CODE
Lbl SA
Data(0,0,0,0,0,0)->GDB0
For(theta,0,20
 ClrDraw
 Rect(29,45-theta,37,20
 RectI(31,47-theta,33,16
 Rect(48-theta,9,38,11
 Rect(49-theta,10,38,11
 RectI(49-theta,10,36,9
 If Z
  Text(21-theta,1,"Choose your new code :"
 Else
  Text(21-theta,1,"Please enter your code:"
 End
 DispGraph
End


For(theta,0,9
 Text(theta>4*~5+theta*7+32->L,theta>4*9+27,theta>Dec
 Line(L+4,27,L+4,44
 Line(L+5,27,L+5,44
End

Line(31,34,64,34
Line(31,35,64,35
0->C+26->B+4->A
RectI(A,B,7,9

Repeat getKey(15)
 If getKey
  RectI(A,B,7,9
  A<58*getKey(3)-(A>30*getKey(2))*7+A->A
  B=26*getKey(1)-(B=35*getKey(4))*9+B->B
  RectI(A,B,7,9
  If getKey(56)
   0->C
   DrawInv 
   Rect(33,11,28,6
   DrawInv 
  End
  If getKey(54)
   Text(C*5+33,11,B=35*5+(A-30/7)->D>Dec
   D->{GDB0+C
   C+1->C
  End
 End
 DispGraph
 ReturnIf C=6
End
Return



.MODIFICATION
Lbl MOD
1->Z
sub(SA
Copy(GDB0,K,6
sub(Z
sub(H
ClrDraw
Return



.VERIFICATION DU CODE
Lbl CM
For(theta,0,5
 (({GDB0+theta})=({Y0+theta}))+M->M
End
sub(H

Data(44,40)->Pic1FP
[00003A00000001E1900000079764000000719A00
[002DFEB500002E688980002207B2800069DE6D80
[00A803C2C00097DC9C40066233F7E006DF07F960
[0F661C96A00D99E32D501E271CDEA02963F36760
[34260C9D503B45F36AA03CB70C95602969FB6D60
[46A90D2A502AD5F2EA40151776AAE014AAD52A40
[0AA12B6BC0A955EAB90084543545405457CF5140
[122852AB00255DB54E000AAE856D00154A440800
[AAB1EBB500152CAA9800202612B600149A4DF000
[0812B540000865382000082A0A80000212A80000
[02A4040000010850000000128000000000000000
Bitmap(28,5,Pic1FP

Text(0,57,"Scanning...
For(theta,4,45
 RectI(25,theta,43,5
 Text(75,57,theta-3*100/42>Dec,37>Char
 DispGraph
 RectI(25,theta,43,5
 Pause rand^250+50
End

!If M=6
 Fix 3
 Rect(0,17,96,15
 Text(33,18,"WARNING !
 Text(23,24,"Access denied
 DispGraph
 Fix 2
 Repeat getKey
 End
End
ClrHomeClrDraw
Return


.INITIALISATION DE Z
Lbl Z
0->Z
Return



Lbl H
For(theta,0,95
 Horizontal -
 DispGraph
End
Return



.FOND MENU
Lbl FD
DS>(K,4)
 DS>(H,16)
 End
End

For(C,0,4
 For(A,0,5
  Pt-Off(A*16,C*16-H,Pic1)^^r
  Pt-Off(A*16+8,C*16-H,Pic1+8)^^r
  Pt-Off(A*16,C*16+8-H,Pic1+16)^^r
  Pt-Off(A*16+8,C*16+8-H,Pic1+24)^^r
 End
End
DrawInv ^^r
Rect(11,14,74,35)^^r
DrawInv ^^r
DispGraph^^r
Return