Re: A86: I can lock basic progs wthout asm/glink!!!
[Prev][Next][Index][Thread]
Re: A86: I can lock basic progs wthout asm/glink!!!
In a message dated 4/20/99 7:01:59 AM Pacific Daylight Time,
ziggy2282@juno.com writes:
>
> can u cut and paste me the source to that prog...how is that done in
> BASIC anyways??
opps here is the code
:ClLCD
:NULL=?:EqåSt(NULL,NULL):sub(NULL,2,1üNULL
:Outpt(1,1,"BASIC Edit-Lock")
:Outpt(3,1,"NULL Variable created")
:Outpt(5,3,"by Jason Bailey")
:Outpt(6,4,"TI-Calc Source")
:Menu(1,"INFO",README,3,"EMAIL",EMAIL,5,"QUIT",QUIT)
:Lbl EMAIL
:ClLCD
:Disp "Jason Bailey:"
:Pause "5981206@main.ehs.emery.k12.ut.us"
:Disp " ","TI-Calc Source:"
:Pause "http://main.ehs.emery.k12.ut.us/~5981384/timframe.htm"
:Stop
:Lbl QUIT
:ClLCD
:Stop
:Lbl README
:ClLCD
:Disp "The variable created","is called NULL"," ","Read the
instructions","carefully to activate","the edit-lock"
:Menu(5,"NEXT",N1)
:Lbl N1
:ClLCD
:Disp "Procedures:"
:Disp "1. Open the program","in the program editor"," ","2. Go to the
bottom","of the program"
:Menu(1,"BACK",README,5,"NEXT",N2)
:Lbl N2
:ClLCD
:Disp "3. At the bottom of","the prgm press","[ENTER]"," ","4. Put a Stop on
the","new line and","press [ENTER]"
:Menu(1,"BACK",N1,5,"NEXT",N3)
:Lbl N3
:ClLCD
:Disp "5. Recall NULL"," ","Press [2nd] [RCL]","Type NULL (9,1,7,7)","Press
[ENTER]"
:Menu(1,"BACK",N2,5,"NEXT",N4)
:Lbl N4
:ClLCD
:Disp "6. A box-like ","character inside","quotations should","appear at the
bottom"," ","replace the 2nd","quote with a 5"
:Menu(1,"BACK",N3,5,"NEXT",N5)
:Lbl N5
:ClLCD
:Disp "7. Exit the prgm","editor"
:Disp " ","The next time the","prgm is run the lock","will take effect"
:Menu(1,"BACK",N4,5,"NEXT",N6)
:Lbl N6
:ClLCD
:Disp "Once the program is","locked the variable","NULL is no
longer","needed. Prgm transfer","will not unlock it.","Nothing will."
:Menu(1,"BACK",N5,5,"DONE",N7)
:Lbl N7
:ClLCD
:Stop
:""
basicly it creates a null variable (a variable that the ti-os cant represent
as a character) and that causes the editer to crash so the prog cant be edited