I'm having a test, and I've got a couple of programs I think are strictly forbidden to use. So I have created a program that displays the calculator as having no programs (woot).
Yeah, well here's how it works:
:ClrHome :Lbl 1 :getKey➞K :If K=43 (43 is the prgm key) :Then :Output(1,1,"EXEC EDIT NEW :getKey➞K :If K=45 (45 is the delete key) :Then :ClrHome :Stop :End :Else :Output 1,16," " (to prevent the loading dots from appearing in the top right corner) :Goto 1
So my teacher'll be like - Hey lemme check your calc lil quick!
I reply sure thing and hand it to him while this program is active.
It has some flaws:
• The selected bar isn't highlighted like it's supposed to be.
• There isn't a flashing cursor ( █ ) before it detects you pressing prgm.
• When the program has stopped by someone pressing delete, it displays DONE.
I have a solution to the last flaw, if there's one for the first. Instead of ending the program, why not continue simulating the "flashing cursor" after you have pressed delete.
:getKey➞K :If K=45 :Then :Lbl 2 :ClrHome :Output (1,1,"█" :Output (1,16," " (again, to prevent the loading dots from appearing in the top right corner) :0,25➞A } :prgmDELAY } This is a program I've copied that puts a time delay for variable A. :Goto 2 :End
And I'll exit from the program myself. When he hands it back. Still, there is no "█" symbol (correct me if I'm wrong). In the worst case scenario I'll take something that resembles the black box. If he checks my calculator now the success rate is very slim. So can you help me out?
I've looked into making the menu in the graph screen itself, since I can invert the pixels with pxlchange, but the large text function Text(-1,row,column,"text") only works for 83+…