0 Members and 2 Guests are viewing this topic.
:.CALCLOCK:ClrHome:GetCalc("appvTEMP")→T:If T:GetCalc("appvTEMP",100)→T:End:GetCalc("appvPASS",100)→P:Disp "CALCLOCK3 By M.A":Output(7,1,"{-}{-}"):Output(6,2,"! !"):Output(6,3,"{-}{-}{-}{-}"):Output(6,4,"!{box} !"):Output(6,5,"{-}{-}{-}{-}"):Output(6,6,"Pass"):For(B,1,4):Repeat K:getKey→K:End:K→{B+T}:Output(5+B,7,"*"):0→K:End:For(B,1,4):If {B+T}≠{B+P}:Asm(FDCB1696):Return:End:End:DelVar B:DelVar K
:.PASSUTIL:ClrHome:GetCalc("appvPASS",100)→P:Disp "PASSUTIL3 By M.A":Disp "PASS?:":For(B,1,4):Repeat K:getKey→K:End:K→{B+P}:Output(6+B,1,"*"):0→K:End:Disp "PASS CHANGED!"
:GetCalc("appvTEMP")→T:If T:GetCalc("appvTEMP",100)→T:End
You seem to have the parameters for Output( backwards (like in TI-BASIC). In Axe it's X, then Y. You'll probably end up writing outside the screen, which corrupts RAM.
- the appv is deleted at the beginning of the program so you don't need to check if it already exists: you deleted it.
Quote from: Hayleia on August 30, 2012, 02:38:04 pm - the appv is deleted at the beginning of the program so you don't need to check if it already exists: you deleted it.You don't need to delete it anyway because GetCalc( will automatically delete the appvar if it exists.
:While 1:EndIf getKey:→K
:.PASSUTIL:ClrHome:GetCalc("appvPASS",100)→P:Disp "PASSUTIL3 By M.A":Disp "PASS?:":For(B,1,4):0:Repeat :getKey:End:→K:K→{B+P}:Output(6+B,1,"*"):End:ClrHome
:GetCalc("appvPASS",100)→P:Disp P>Dec