Program Manager

Program Manager

Author

Bio_Hazard1282Bio_Hazard1282

Description

This is a program that is related to Oasis (A shell programmed in pure TI-Basic), and is programmed in pure TI-Basic.
It allows you to:
• Archive and Un-Archive programs
• Hide/Show programs
• Lock/Unlock programs
• Garbage Collect
• View Data about programs (Shows how many lines of code is in the program, tells if it is archived, hidden, locked, converts name to hexadecimal string, and shows how big that program is.)

Release date

As soon as I have received an invitation, and when I upload this to the archives.

How to use

-Make sure Celtic 3 is installed.
-Input a program name you would like to manage. Make sure it exists and is in ALL caps, or the program will quit immediately.
-Do the things you need to do.
You can however, press some "secret keys" to do certain functions, a short explanation will be explained.
• Garbage Collect
Do this by pressing [2ND] while you are at the main management screen. Keep in mind if you're using Dr. Dnar's Archive utility (or some other program or app that recovers variables that have been archived since at least once before), you will not be able to recover programs after doing a Garbage Collect.
• Delete Program
Press [ALPHA] at the main screen.
By doing this, you must be 100% positive that you want to remove this program from your calculator.
• New program
Press [MATH]. It will take you to a screen that looks like when your actually going to create a program from using the [PRGM] menu. It must be in all caps and must meet the usual requirements to be created.

These are the 3 only "secret keys" function.

Requirements

• Celtic 3 is installed, or you at least have the application.
• You have a calculator that is programmable-friendly, that is either a TI-83 family (83, 83+, 83+ SE), TI-84 Family (84+, 84+ PE, 84+ SE, 84 Plus C SE), and the latest OS installed.
(I did not do the TI-84 Plus CE, for various reasons)
• The Program Manager (prgmMANAGER).
• Or any emulator or smart view to view the calculators on the computer.

Size, Capabilities, Version

• 1783 megabytes (or basic bytes)
• The models that are mentioned above
• version 1.0.1

File contents

• Celtic 3
• The Program Manager program
• Back-up OS

Coming soon

• The program source code
• Important updates
• More det( and real functions
• And more, I don't know what else to think, so these are the things I came up with. :P

:"Program Manager= 1.0.7
Clear Entries
ClrHome
If det([[1:Then
Disp "ERROR!","Please install","Celtic 3 to use.
Return
End
Disp "Please input a","program name…
Input "prgm",Str1
ClrHome
det(5,1,Str1
If Ans=".P:NT:FN":Goto 5
ClrHome
Lbl 00
real(13,1
Output(1,1,"prgm
Output(1,5,Str1
real(13,0
1→O
2→Y
Output(2,14,"AHL
Output(2,1,"1:Archive
Output(3,1,"2:Hide
Output(4,1,"3:Lock
Output(5,1,"4:Data
Output(6,1,"5:Cancel
SetUpEditor MEM
{0,0→MEM
Output(7,1,"RAM:"
Output(8,1,"ROM:
det(0,7,Str1
Output(3,14,sub(Ans,1,3
Repeat max(K={105,92,93,94,82,83
real(13,1
sub("1:2:3:4:5:",2O-1,2)→Str2
Output(Y,1,Str2
real(13,0
det(4→⌊MEM(1
det(4,1→⌊MEM(2
Output(7,5,⌊MEM(1
Output(8,5,⌊MEM(2
Repeat max(K={25,34,105,21,31,41
getKey→K
End
Output(Y,1,Str2
If K=41:Goto NW
If K=21:GarbageCollect
If K=31:Goto DL

O+(K=34)-(K=25→O
O+(O=0)-(O=6→O
Y+(K=34)-(K=25→Y
Y+(Y=1)-(Y=7→Y
End
If Y=2:Goto 1
If Y=3:Goto 2
If Y=4:Goto 3
If Y=5:Goto 4
If Y=6:Goto 5
Lbl NW
ClrHome
Disp "PROGRAM
Input "Name=",Str1
det(0,5,Str1
ClrHome
Output(1,1,"prgm
Output(1,5,Str1
Disp "","was created.
Pause
Goto 5
Lbl 1
If not(Str1="MANAGER
det(0,Str1
Goto 00
Lbl 2
If not(Str1="MANAGER
det(0,3,Str1
Goto 00
Lbl 3
det(0,1,Str1
Goto 00
Lbl 4
det(0,7,Str1→Str3
For(I,2,8
Output(I,1,"
End
Output(2,1,"Lines=
Output(2,7,det(5,0,Str1
Output(3,1,"Archived?
Output(4,1,"Hidden?
Output(5,1,"Locked?
sub(Str3,1,1
If Ans="A":"Yes
If Ans="R":"No
Output(3,11,Ans
sub(Str3,2,1
If Ans="H":"Yes
If Ans="V":"No
Output(4,9,Ans
sub(Str3,3,1
If Ans="L":"Yes
If Ans="W":"No
Output(5,9,Ans
Output(6,1,"Bytes=
Output(6,7,sub(Str3,4,5
Output(7,1,"Hex=
Output(7,5,det(18,Str1
Pause
For(I,2,8
Output(I,1,"
End
Goto 00
Lbl DL
ClrHome
If Str1="MANAGER":Then
Disp "I am sorry,","this program","can't be deleted","unless it is not","running.
Pause
Goto 5
End
real(13,1
Output(1,1,"Are you sure?
real(13,0
Output(2,1,"prgm
Output(2,5,Str1
Output(3,1,"will be deleted.
Pause
ClrHome
Menu("Delete forever? ","No",00,"Yes",Y
Lbl Y
det(0,4,Str1
Output(1,1,"prgm
Output(1,5,Str1
Output(2,1,"is erased. The Manager will nowclose.
Pause
ClrHome
Lbl 5
ClrHome
DelVar Str1DelVar Str2DelVar Str3DelVar RDelVar ADelVar YDelVar ODelVar I
0
real(13,1
Disp "Program Manager
real(13,0
Disp "Bio_Hazard1282
"Thanks for using
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License