Hey everybody, some friends in my class love to delete other people's RAM and play my games, and transfer my games to their calculators -.-

So, I thought of some protection, with the Start-Up Application, it would open an Axe file everytime I turned on the calculator.

Now, I need to make a file where I have to input a password and if it is wrong, let me try again, anytimes I want to, infinitely and no keys can turn it off.

So, do something like:

.LOGCALC
A=1
While A != 5
Lbl 1
Repeat getKey->Z
End
If Z=x and Z=y and Z=..... (all keys, but 4,down key and 1)
Goto 1
End
If Z=1 //down key
A+A->A
End
If Z=34 //1 key
A+A->A
End
If Z=35 // 4key
A+1->A //A should now be 5
End

So, to turn on the calculator i have to press down key, 1 and 4key by this order.

Any suggestions?

^ Yep, use Data(. That way you can quickly change which keys you want, and it's a lot smaller, too.

And use Repeat getKey->K instead of 0->K:Repeat K:getKey->K.

What I've used was Krolypto.  I don't know anybody that could get past it (except for myself, but you need a screwdriver).
If you don't want to do that, see if you have calcutil.  If you do, you can use its run program on startup function

Spoiler For how:

Create a program called PROGLIST
Type in

Code: [Select]

S:<program name here>Test it by turning off the calc, then turning it back on
If Calcutil's installed, it should work

You can make your program run on startup, archived or not, ASM or not.

I think he's using Startup. But yeah, most of the major shells have password support.

And nice, I didn't know CalcUtil could do that. Feature request for Kerm...

Data( just stores data. It's like a list in BASIC. Then all Builderboy's routine does is gets keys four times, each time checking to see if it matches the Nth term in the list. You should change 1, 2, 3, and 4 to the keycodes of whatever keys you want

It's a lot smaller than hardcoding the key checks yourself.

Yep, exactly. In Axe, the GDBs, Strs, and Pics are completely interchangeable.

Code: [Select]

:.LOGCALC
:ClrHome
:1→A
:!If A=5                                     An "!" does the same thing as ≠
:Lbl 1
:Repeat getKey→Z
:End
:! If Z=1+(Z=34)+(Z=35)       to add 'multiple choices' , use "+(-add choice here-)"
:Goto 1
:End
:If Z=1
:2*A→A
:End
:If Z=34
:2*A→A
:End
:If Z=35
:A+1→A
:End
:End

Just a little optimization to show you a few things...

Did somebody say optimization?

Some notes about your optimizations:

• !If A=5 is no smaller than If A≠5. However, if the if statement is only checking one not equal condition, you can use If A-5, which is smaller.
• You were smart to use additions instead of ors for Z=1+(Z=34)+(Z=35), but the negation of the if statement (the !) would reverse what you want.
• Like my first note, !If Z-1 is a smaller way of saying If Z=1. Remember this only works alone, you cannot usually combine something like Z-1 with other conditions.
• It is always better to include constants as the second argument in operations. Not only is A*2 smaller than 2*A, but also it won't require the whole multiplication routine.

And now, the super-optimized version:

:.LOGCALC
:.DiagnosticOff and ClrHome are both unnecessary, but make it look better
:DiagnosticOff
:ClrHome
:Lbl S
:!If sub(G)-1
:!If sub(G)-34
:Return!If sub(G)-35
:End
:End
:Goto S
:Lbl G
:Repeat getKey
:End


...And now, the super-optimized version:

Code: [Select]

:.LOGCALC
:.DiagnosticOff and ClrHome are both unnecessary, but make it look better
:DiagnosticOff
:ClrHome
:Lbl S
:!If sub(G)-1
:!If sub(G)-34
:Return!If sub(G)-35
:End
:End
:Goto S
:Lbl G
:Repeat getKey
:End


WOW

BTW, is it possible to un-assemble an assembled file into ASM so you can open it and edit?

thanx