ManagerOS

Bio_Hazard1282 19 Jan 2018 15:09

I can't figure out what optimizations to make.

```
:"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
```

Any of you have any ideas? I'd really appreciate your time.

☣️ Bio_Hazard1282 ☣️