I taught myself some TI-BASIC programming concepts overnight, and programmed this:
What do you think? I could probably use some optimizations, so I'm posting it here.
It currently carries out the same functions as Nitro_Hawk's Graph Fix program, toggles Plots(on/off), toggles Diagnostics, and "Enters Workmode."
Work mode is just my custom preferred graph settings. I left this unlocked so users can customize their own WorkMode, but I don't know how
to comment in TI-BASIC, if it's possible. I also named the program GraphSet CE just in case I decide to make a monochrome version, because my program
uses functions (like GridLine) that monochromes lack.
Maybe someone could also test it on the CSE? I don't know if the CSE can have a Line grid.
EDITThe current program is attached. When it's been evaluated and considered complete, I'll upload it elsewhere.
ClrHome
Lbl 1
Menu(" GRAPHSET CE ","Wo[r]kmo[|d][|e]",A1,"R[|e][s][|e][t] G[r][|a][p]h",A2,"Di[|a]g[n]o[s][t]i[|c][s]",A3,"Plo[t][s](O[n]/Off)",A4,"EXIT",A5
Lbl A5
Pause "C[r][|e][|a][t][|e][|d] By: Joh[n] Kol[|a][|d][|e]",0.8
ClrHome
Stop
Lbl A2
Output(1,1,"S[|e][t][t]i[n]g G[r][|a][p]h D[|e]f[|a]|ul[t][s]..."
Output(2,1,"D[|e]f[|a]|ul[t][s] [s][|e][t]."
Pause
ClrHome
RectGC
CoordOn
GridOff
AxesOn
LabelOff
BorderColor 1
BackgroundOff
DetectAsymOn
DelVar {Y1}DelVar {Y2}DelVar {Y3}DelVar {Y4}DelVar {Y5}DelVar {Y6}DelVar {Y7}DelVar {Y8}DelVar {Y9}DelVar {Y0}
~10->Xmin:10->Xmax
~10->Ymin:10->Ymax
1->Xscl:1->Yscl
DiagnosticOff
PlotsOff
ClrHome
Goto 1
Lbl A1
Output(1,1,"E[n][t][|e][r]i[n]g Wo[r]kmo[|d][|e]...
Output(2,1,"Do[n][|e]! G[|e][t] [t]o i[t]!
Pause
ClrHome
BackgroundOff
GridLine MedGray
LabelOn
CoordOn
RectGC
AxesOn
BorderColor 1
DetectAsymOn
Goto 1
Lbl A3
Menu("Di[|a]g[n]o[s][t]i[|c][s]","O[n]",B1,"Off",B2,"Return",1
Lbl B1
Output(1,1,"Di[|a]g[n]o[s][t]i[|c][s] ENABLED.
Pause
DiagnosticOn
ClrHome
Goto A3
Lbl B2
Output(1,1,"Di[|a]g[n]o[s][t]i[|c][s] DISABLED."
Pause
DiagnosticOff
ClrHome
Goto A3
Lbl A4
Menu("Plo[t][s](O[n]/Off)","O[n]",C1,"Off",C2,"Return",1
Lbl C1
Output(1,1,"Plo[t][s] ON."
Pause
PlotsOn
ClrHome
Goto A4
Lbl C2
Output(1,1,"Plo[t][s] OFF."
Pause
PlotsOff
ClrHome
Goto A4