- Detokenization
- 21 Jan 2016 07:38:44 am
- Last edited by Comments2010 on 22 Jan 2016 01:50:51 pm; edited 3 times in total
I am detokenizing a corrupted group file for my TI-84 Plus. I've gotten quite far!
Before:
Code:
After:
Code:
UPDATE!
Code:
If anyone can help me, that would be much appreciated!
UPDATE 2!
Code:
I can't believe I did this all in Notepad!
Before:
Code:
**TI83F*
< Created by jsTIfied - www.cemetech.net >$
ID91TI84$€ž CI(>*DON®T)RUN)IN)SHELL?>*FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF?á?Þ*CONTACT)INFO)IS)DISPLAYED)ON)THESE)LINES)AFTER)>D»¸»Ã»À)*:)REMOVE)ALL)TEXT)AFTER)THE)QUOTATION)MARKS:)A)COLON)MARKS)THE)NEXT)LINE:?Þ*LINE)2+)16)CHARACTERS)MAX)PER)LINE?Þ*LINE)3?Þ*LINE)4?Þ*LINE)5?Õ$?Ÿ ID¨>*DON®T)RUN)IN)SHELL?>*FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF?>*DON®T)MODIFY?Ö0?á?u?»j_[INDIC?22>»j_[CONTRST?Ö1?á?»j_[TXTINV?à1+1+*DEL)»µ»¿»Â)»Ã»´»Ä»Å»À)*?à8+1+*ID))))))))))»Æ9:1*?à2+1+*INITIALIZING:::)*?»j_[TXTINV?Òr?A?ÎAj23?Ï?à7+2+*ENTERING)SETUP*?Ð?Ô?»j_[RAM?Îrk1028?Ï?à3+1+*LOW)RAM>*?à3+11+r?à4+1+*M»¸»¾»¸»½»Å»½)1028)RAM*?Ø?»j_[DONE?Ù?Ð?à3+1+*RAM)OK*?Ô?ÎAo23?Ï?×2?Ð?×3?Ô?Ö2?Òr?A?ÎAj23?Ï?à7+2+*ENTERING)SETUP*?Ð?Ô?Ö3?»iB?ÎBo1?Ï?1B?»hB?×4?Ð?Ô?»iC?ÎAo23>×5?×6?Ö5?Òr?A?ÎAj23?Ï?à7+2+*ENTERING)SETUP*?Ð?Ô?Ö6?»j_[BATT?rC?ÎCn2?Ï?à4+1+*BATTERY)OK*?»hC?×7?Ð?Ô?ÎCm1>×8?×7?Ö8?à4+1+*BATTERY)LOW*?à5+1+*CHANGE)SOON*?Ø?»hC?Ö7?»iD?ÎDo4?Ï?0D?»hD?×9?Ð?»hD?×A?Ö9?»iD?ÎDj2?Ï?×B?Ð?Ô?ÎDj3?Ï?×C?Ð?Ô?ÎDj4?Ï?×D?Ð?Ô?Ö4?»iD?Dp1?rD?á?à1+1+*,)R»´»¼»´»°»Ã»´)»¾»¿»Ä»´»Ã*?à8+1+*P»Â»´»Ã»Ã)ENTER*?×9?ÖB?Þ**?Þ*CHANGES>?Þ*‚A»Å»Ä»¿qB»¿»¿»Ã»Ä*?Ø?»iD?3D?×4?ÖC?Þ**?Þ*T»¿)»°»²»²»´»Ã»Ã)»Ã»´»Ä»Ä»¸»¾?Þ*»¶»Ã+)»·»¿»¼»³)DEL)»Ç?Þ*»·»¸»¼»´)»±»¿»¿»Ä»¸»¾»¶)»Å»À:?Ø?ÖD?á?»iD?4D?á?Ü*SET)PASSWORD>))))*+ª ?à5+1+ª ?»hª ?Ø?»iD?4D?»hD?×E?Ð?Ô?×D?ÖE?á?Þ**?Þ*D»Å»´)»Ä»¿)»Ä»·»´)»³»´»Ã»¸»¶?Þ*»¾)»¿»µ)»Ä»·»´)OS+)»É»¿»Å?Þ*»½»°»É)»±»´)»À»Â»¿»½»À»Ä»´»³?Þ*»Ä»¿)G»°»Â»±»°»¶»´C»¿»¼»¼»´»²?Þ*»Ä:)S»´»¼»´»²»Ä)Y»´»Ã:?»iE?22E?Ø?»hD?ÖA?ÎAj23?Ï?×F?Ð?Ô?Òr?A?ÎAj23?Ï?à7+2+*ENTERING)SETUP?Ð?Ô?»iF?ÎFj0>×10?—?…?~ ?¡1+1?¡1+2?¡1+3?¡2+0?¡2+2?¡2+3?¡2+4?¡3+0?¡3+1?¡3+4?¡4+0?¡4+2?¡4+3?¡4+4?¡4+0?¡5+1?¡5+2?¡5+3?“0+7+*2015*?“57+1+*»Æ9:1?ÓG+1+20?“G+25+*C»¿»½»½»´»¾»Ä»Ã2010*?Ô?ÓG+1+19?“28+Gp15+*)S»¿»µ»Ä?“28+68qG+*»Ç»°»Â»´?Ô?ÓG+50+35+°1?“G+40+*))T»´»°»½?“Gp6+40+*))))))))))))))))?Ô?…?–?Ö10?á?ÎAj23>×F?Ö11?0A?»iM?ÎMj1>ï[?»hM?á?»j_[TXTINV?Þ*B»°»Ä»Ä»´»Â»É)»¼»´»Æ»´»¼>))?»iC?ÎCj4?Ï?193?»j_[ASCII?224?»j_[ASCII?»j_[ASCII?125?»j_[ASCII?214?»j_[ASCII?Ð?Ô?ÎCj3?Ï?193?»j_[ASCII?224?»j_[ASCII?235?»j_[ASCII?125?»j_[ASCII?214?»j_[ASCII?Ð?Ô?ÎCj2?Ï?193?»j_[ASCII?235?»j_[ASCII?32?»j_[ASCII?125?»j_[ASCII?214?»j_[ASCII?Ð?Ô?ÎCm1?Ï?193?»j_[ASCII?32?»j_[ASCII?»j_[ASCII?125?»j_[ASCII?214?»j_[ASCII?Ð?Ô?Þ*I»¾»¸»Ä»¸»°»¼»¸»Ê»¸»¾»¶:::1?Þ*)))2)))5)))7)))0?Þ*0))5)))0)))5)))0?Þ*»Ú))»Ú)))»Ú)))»Ú)))»Ú?Þ*»Ø)))))»Ø))))))»Ø?»j_[TXTINV?224?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?»hC?»iH?ÎHj1?Ï?»W?Ð?Ô?»hH?224?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?»iI?ÎIj1?Ï?»R?Ð?Ô?»hI?224?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?»iJ?ÎJj1?Ï?û?Ð?Ô?»hJ?224?»j_[ASCII?»j_[ASCII?»iE?E>»j_[CONTRST?»hE?224?»j_[ASCII?»j_[ASCII?á?~?~?~?~?~
?»P?á?»iM?ÎMj1>×2D?×2E?Ö2D?ï[?Îrn10>×2F?Ö2E?»hM?»iK?ÎKj1>×12?×13?Ö12?á?Þ*C»¿»¾»Ä»°»²»Ä)»¸»¾»µ»¿)»Ç»°»Ã?Þ*»°»²»²»´»Ã»Ã»´»³:?Þ*I»¾»²»¿»Â»Â»´»²»Ä?Þ*»À»°»Ã»Ã»Ç»¿»Â»³)»Ç»¸»¼»¼?Þ*»³»¸»Ã»À»¼»°»É)»²»¿»¾»Ä»°»²»Ä?Þ*»¸»¾»µ»¿:?Ü*P»°»Ã»Ã»Ç»¿»Â»³>)*+ª?»iª ?Ϊjª ?Ï?»Tª?»hª ?×13?Ð?Ô?»Tª?»hª ?×14?Ö13?»iK?0K?»hK?æ*)))TIq84)P»¼»Å»Ã)))*+*)))))P»¿»Ç»´»Â)»¿»µ»µ*+15+*)))H»¿»½»´)»Ã»²»Â»´»´»¾*+16+*))C»¿»¾»Ä»°»²»Ä)»¸»¾»µ»¿*+14?ÖF?æ*S»´»Ä»Ä»¸»¾»¶»Ã))))))))*+*S»À»¼»°»Ã»·)»Ã»²»Â»´»´»¾»ì*+17+*C»¼»´»°»Â)»°»Ä)»Ã»Ä»°»Â»Ä»ì*+18+*P»°»Ã»Ã»Ç»¿»Â»³»ì*+19+*C»¿»¾»Ä»Â»°»Ã»Ä)»¼»´»Æ»´»¼»ì*+1A+*A»Å»Ä»¿qB»¿»¿»Ã»Ä»ì*+31+*R»´»Ã»´»Ä)»°»¼»¼*+1B+*»ë)E»È»¸»Ä*+11?Ö31?æ*A»Å»Ä»¿qB»¿»¿»Ã»Ä))))))*+*O»¾*+32+*O»µ»µ*+33+*»ëC»°»¾»²»´»¼*+F?Ö32?á?Þ*SAVING?»iM?1M?»hM?á?×F?Ö33?á?Þ*SAVING?»iM?0M?»hM?á?×F?Ö19?á?Ü*C»Å»Â»Â»´»¾»Ä>)*+ª?»iª ?Ϊoª ?Ï?»hª ?Þ*I»¾»²»¿»Â»Â»´»²»Ä?Ø?×19?Ð?Ô?Ö1C?à4+1+*NOTICE>)C»°»¾»¾»¿»Ä)»²»¿»¾»Ä»°»¸»¾)»Á»Å»¿»Ä»´»Ã)»¿»Â»Ã»Ä»¿)»°»¾»³)»½»Å»Ã»Ä)»±»´»¶»¸»¾)»Ç»¸»Ä»·)»°)»¼»´»Ä»Ä»´»Â*?Ü*N»´»Ç>)*+ª ?Þª ?»hª ?×F?Ö17?æ*S»À»¼»°»Ã»·)»Ã»²»Â»´»´»¾))))))*+*O»¾*+1D+*O»µ»µ*+1E+*»ëC»°»¾»²»´»¼*+F?Ö1D?á?Þ*SAVING?»iF?1F?»hF?á?×F?Ö1E?á?Þ*SAVING?»iF?0F?»hF?á?×F?Ö14?»iK?1K?»hK?á?»j_[TXTINV?_CI?ï[?Ö1F?ï[?Îrn30?Ï?»j_[TXTINV?×15?Ð?Ô?×1F?Ö1A?á?Þ*S»´»Ä)»°)»²»¿»¾»Ä»Â»°»Ã»Ä?Þ*»¼»´»Æ»´»¼:)0q39?»iE?à3+1+*C»Å»Â»Â»´»¾»Ä)»¼»´»Æ»´»¼>*?à3+15+E?Þ**?Ü*N»´»Ç)»¼»´»Æ»´»¼>)*+[?Î[k0<[l39?Ï?á?Þ*I»¾»Æ»°»¼»¸»³?Ø?á?×1A?Ð?Ô?[E?»hE?×F?Ö16?á?ï?Îrj1?Ï?à1+9+ï0?à1+1+ï0?Ð?Ô?»j_[RAM?Îrk1028?Ï?à2+5+*L»¿»Ç)RAM-*?Þ**?Ð?Ô?Þ**?»j_[DONE?Ù?Ö15?á?à4+2+*ENTERING)SLEEP*?à5+7+*MODE*?à1+1+ï0?à1+9+ï0?»j_[INVSCR?ï[?Ö20?ï[?Îrn3?Ï?á?»j_[OFF?»j_[DONE?×0?Ð?×20?Ô?Ö18?æ*C»¼»´»°»Â:::))))))))))*+*E»¾»Ä»Â»¸»´»Ã»ì*+21+*L»¸»Ã»Ä»Ã»ì*+22+*T»°»±»¼»´»ì*+23+*»ëB»°»²»º*+F?Ö21?æ*»W)))))))))*+*Y»´»Ã*+24+*N»¿*+25+*»ëC»°»¾»²»´»¼*+18?Ö24?á?Þ*SAVING?»iH?1H?»hH?á?×18?Ö22?æ*»R)))))*+*Y»´»Ã*+26+*N»¿*+27+*»ëC»°»¾»²»´»¼*+18?Ö26?á?Þ*SAVING?»iI?1I?»hI?×18?Ö27?á?Þ*SAVING?»iI?0I?»hI?×18?Ö25?á?Þ*SAVING?»iH?0H?»hH?×18?Ö23?æ*û))))))))))*+*Y»´»Ã*+28+*N»¿*+29+*»ëC»°»¾»²»´»¼*+18?Ö28?á?Þ*SAVING?»iJ?1J?»hJ?×18?Ö29?á?Þ*SAVING?»iJ?0J?»hJ?×18?Ö1B?á?Ü*P»°»Ã»Ã»Ç»¿»Â»³>)*+ª?»iª ?Ϊoª ?Ï?»hª ?Þ*INCORRECT?Ø?×1B?Ð?Ô?æ*A»Â»´)»É»¿»Å)»Ã»Å»Â»´¯)))*+*N»¿*+F+*Y»´»Ã*+2A?Ö2A?á?Þ*PLEASE)WAIT:::?»iH?»iI?»iE?22E?22?»j_[CONTRST?»iJ?»iD?»iC?»iF?»iB?»iM?0D?4C?0E?0H?0I?0B?1F?1M?»iª ?»Tª ?á?Þ*P»Â»´»Ã»Ã)»°»¾»É)»º»´»É)»Ä»¿?Þ*»À»¿»Ç»´»Â)»¿»µ»µ?Þ**?Þ**?Þ**?Þ**?241?Ö2B?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?»j_[ASCII?0?Ö2C?Òr?A?ÎAo0?Ï?»j_[OFF?×0?Ð?Ô?×2C?Ö2F?á?Þ*P»Â»´»Ã»Ã)2)»µ»¿»Â)A»Å»Ä»¿*+*qB»¿»¿»Ã»Ä*?ï[?Ö34?ï[?Îrk5>×34?»Î?×2E?»ÒEOF»Òé² [ASCII »mï×JïïJïEÉ÷² [BATT! »mïoL=(
xþ8ï!Rï³P> ¯ïŒGï¿Jɳ [CONTRST »mï×JïïJÆØØÓ{2G„É.³ [DONE »mýË ®É7³ [INDIC
»m!Š>®wÉC³ [INVSCR »m! _?ï_MÉQ³ [OFF »mïPX³ [RAM »mïåBï’GïVAï¿JÉi³ [TXTINV
»m!õ‰>®wÉ u³ STARTUPD ZÔ ID _
After:
Code:
""TI83F"
< Created by jsTIfied - www.cemetech.net :$
ID91TI84$€)ž prgmCI(:"DON'T RUN IN
SHELL?:"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF?ClrHomeDisp "CONTACT INFO IS DISPLAYED ON THESE LINES AFTER
:Disp ". REMOVE ALL TEXT AFTER THE QUOTATION MARKS. A COLON MARKS THE NEXT LINE.Disp "LINE 2, 16 CHARACTERS MAX PER LINE)Disp "LINE
3)Disp "LINE 4)Disp "LINE 5)?Õ[$?Ÿ prgmID¨:"DON'T RUN IN
SHELL?:"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF?:"DON'T MODIFYLbl 0?ClrHomeFull?Asm(prgmΘINDIC?22:Asm
(prgmΘCONTRSTLbl 1?ClrHome?Asm(prgmΘTXTINVOutput(1,1,"[DEL] for setup "Output(8,1,"ID v9.1"Output(2,1,"INITIALIZING... "?Asm
(prgmΘTXTINV?Repeat Ans?getKey→A?If A=23?ThenOutput(7,2,"ENTERING SETUP"?Else?End?Asm(prgmΘRAM?If Ans‹1028?ThenOutput(3,1,"LOW
RAM:"Output(3,11,AnsOutput(4,1,"Minimum 1028 RAM"?Pause ?Asm(prgmΘDONE?Stop?Else?Output(3,1,"RAM OK"?End?If A≠23?Then?Goto 2?Else?Goto
3?EndLbl 2?Repeat Ans?getKey→A?If A=23?ThenOutput(7,2,"ENTERING SETUP"?Else?EndLbl 3?UnArchive B?If B≠1?Then?1→B?Archive B?Goto 4?
Else?End?UnArchive C?If A≠23:Goto 5?Goto 6Lbl 5?Repeat Ans?getKey→A?If A=23?ThenOutput(7,2,"ENTERING SETUP"?Else?EndLbl 6?Asm
(prgmΘBATT?Ans→C?If C≥2?ThenOutput(4,1,"BATTERY OK"?Archive C?Goto 7?Else?End?If Cm1:Goto 8?Goto 7Lbl 8Output(4,1,"BATTERY LOW"Output
(5,1,"CHANGE SOON"?Pause ?Archive CLbl 7?UnArchive D?If D≠4?Then?0→D?Archive D?Goto 9?Else?Archive D?Goto A?Ö9?UnArchive D?If D=2?
Then?Goto B?Else?End?If D=3?Then?Goto C?Else?End?If D=4?Then?Goto D?Else?EndLbl 4?UnArchive D?D+1?Ans→D?ClrHomeOutput(1,1,"ί Release
notes"?Output(8,1,"Press [ENTER]"?Goto 9Lbl BDisp ""Disp "CHANGES:Disp "*Auto-Boost"?Pause ?UnArchive D?3→D?Goto 4Lbl CDisp ""Disp "To
access settinDisp "gs, hold [DEL] wDisp "hile booting up.?Pause Lbl D?ClrHome?UnArchive D?4→D?ClrHome?Input "SET PASSWORD:
",Str0Output(5,1,Str0?Archive Str0?Pause ?UnArchive D?4→D?Archive D?Goto E?Else?End?Goto DLbl E?ClrHomeDisp ""Disp "Due to the
desigDisp "n of the OS, youDisp "may be promptedDisp "to GarbageCollecDisp "t. Select Yes.?UnArchive E?22→E?Pause ?Archive DLbl A?If
A=23?Then?Goto F?Else?End?Repeat Ans?getKey→A?If A=23?ThenOutput(7,2,"ENTERING SETUP?Else?End?UnArchive F?If F=0:Goto 10?FnOff ?
ClrDraw?AxesOff0Pxl-On(1,1Pxl-On(1,2Pxl-On(1,3Pxl-On(2,0Pxl-On(2,2Pxl-On(2,3Pxl-On(2,4Pxl-On(3,0Pxl-On(3,1Pxl-On(3,4Pxl-On(4,0Pxl-On
(4,2Pxl-On(4,3Pxl-On(4,4Pxl-On(4,0Pxl-On(5,1Pxl-On(5,2?¡5,3Text(0,7,"2015"Text(57,1,"v9.1?For(G,1,20)Text(G,25,"Comments2010"?End?For
(G,1,19)Text(28,G+15," SoftText(28,68-G,"ware?End?For(G,50,35,−1)Text(G,40," TeamText(G+6,40," ?End?ClrDraw?FnOn Lbl
10?ClrHome?If A=23:Goto FLbl 11?0→A?UnArchive M?If M=1:startTmr→Θ?Archive M?ClrHome?Asm(prgmΘTXTINVDisp "Battery level: ?UnArchive C?
If C=4?Then?193?Asm(prgmΘASCII?224?Asm(prgmΘASCII?Asm(prgmΘASCII?125?Asm(prgmΘASCII?214?Asm(prgmΘASCII?Else?End?If C=3?Then?193?Asm
(prgmΘASCII?224?Asm(prgmΘASCII?235?Asm(prgmΘASCII?125?Asm(prgmΘASCII?214?Asm(prgmΘASCII?Else?End?If C=2?Then?193?Asm(prgmΘASCII?235?
Asm(prgmΘASCII?32?Asm(prgmΘASCII?125?Asm(prgmΘASCII?214?Asm(prgmΘASCII?Else?End?If Cm1?Then?193?Asm(prgmΘASCII?32?Asm(prgmΘASCII?Asm
(prgmΘASCII?125?Asm(prgmΘASCII?214?Asm(prgmΘASCII?Else?EndDisp "Initializing...1Disp " 2 5 7 0Disp "0 5 0 5 0Disp "% %
% % %Disp "| | |?Asm(prgmΘTXTINV?224?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?Archive C?UnArchive H?If
H=1?Then?Clear Entries?Else?End?Archive H?224?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?UnArchive I?If I=1?Then?
SetUpEditor ?Else?End?Archive I?224?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?UnArchive J?If J=1?Then?ClrTable?Else?
End?Archive J?224?Asm(prgmΘASCII?Asm(prgmΘASCII?UnArchive E?E:Asm(prgmΘCONTRST?Archive E?224?Asm(prgmΘASCII?Asm(prgmΘASCII?ClrHome?
RectGC?CoordOn?GridOff?AxesOn?LabelOff
?ExprOn?ClrHome?UnArchive M?If M=1:Goto 2D?Goto 2ELbl 2D?checkTmr(Θ)?If Ans≥10:Goto 2FLbl 2E?
Archive M?UnArchive K?If K=1:Goto 12?Goto 13Lbl 12?ClrHomeDisp "Contact info wasDisp "accessed.Disp "IncorrectDisp "password willDisp
"display contactDisp "info.?Input "Password: ",Str9?UnArchive Str0?If Str9=Str0?Then?DelVar Str9?Archive Str0?Goto 13?Else?End?DelVar
Str9?Archive Str0?Goto 14Lbl 13?UnArchive K?0→K?Archive KMenu(" TI-84 Plus "," Power off",15," Home screen",16," Contact
info",14)Lbl FMenu("Settings ","Splash screen›",17,"Clear at start›",18,"Password›",19,"Contrast level›",1A,"Auto-
Boost›",31,"Reset all",1B,"‹ Exit",11)Lbl 31Menu("Auto-Boost ","On",32,"Off",33,"‹Cancel",F)Lbl 32?ClrHomeDisp "SAVING?UnArchive
M?1→M?Archive M?ClrHome?Goto FLbl 33?ClrHomeDisp "SAVING?UnArchive M?0→M?Archive M?ClrHome?Goto FLbl 19?ClrHome?Input "Current:
",Str9?UnArchive Str0?If Str9≠Str0?Then?Archive Str0Disp "Incorrect?Pause ?Goto 19?Else?EndLbl 1COutput(4,1,"NOTICE: Cannot contain
quotes orsto and must begin with a letter"?Input "New: ",Str0Disp Str0?Archive Str0?Goto FLbl 17Menu("Splash screen
","On",1D,"Off",1E,"‹Cancel",F)Lbl 1D?ClrHomeDisp "SAVING?UnArchive F?1→F?Archive F?ClrHome?Goto FLbl 1E?ClrHomeDisp "SAVING?UnArchive
F?0→F?Archive F?ClrHome?Goto FLbl 14?UnArchive K?1→K?Archive K?ClrHome?Asm(prgmΘTXTINV?prgmCI?startTmr→ΘLbl 1F?checkTmr(Θ)?If Ans≥30?
Then?Asm(prgmΘTXTINV?Goto 15?Else?End?Goto 1FLbl 1A?ClrHomeDisp "Set a contrastDisp "level. 0-39?UnArchive EOutput(3,1,"Current
level:"Output(3,15,EDisp ""?Input "New level: ",Θ?If Θ‹0 or Θ›39?Then?ClrHomeDisp "Invalid?Pause ?ClrHome?Goto 1A?Else?End?Θ→E?Archive
E?Goto FLbl 16?ClrHome?ï?If Ans=1?ThenOutput(1,9,ï]0Output(1,1,ï0?Else?End?Asm(prgmΘRAM?If Ans‹1028?ThenOutput(2,5,"Low RAM:"Disp ""?
Else?EndDisp ""?Asm(prgmΘDONE?StopLbl 15?ClrHomeOutput(4,2,"ENTERING SLEEP"Output(5,7,"MODE"?Output(1,1,ï0Output(1,9,ï]0?Asm
(prgmΘINVSCR?startTmr→ΘLbl 20?checkTmr(Θ)?If Ans≥3?Then?ClrHome?Asm(prgmΘOFF?Asm(prgmΘDONE?Goto 0?Else?Goto 20?EndLbl 18Menu("Clear...
","Entries›",21,"Lists›",22,"Table›",23,"‹Back",F)Lbl 21Menu("Clear Entries ","Yes",24,"No",25,"‹Cancel",18)Lbl 24?
ClrHomeDisp "SAVING?UnArchive H?1→H?Archive H?ClrHome?Goto 18Lbl 22Menu("SetUpEditor ","Yes",26,"No",27,"‹Cancel",18)Lbl 26?
ClrHomeDisp "SAVING?UnArchive I?1→I?Archive I?Goto 18Lbl 27?ClrHomeDisp "SAVING?UnArchive I?0→I?Archive I?Goto 18Lbl 25?ClrHomeDisp
"SAVING?UnArchive H?0→H?Archive H?Goto 18Lbl 23Menu("ClrTable ","Yes",28,"No",29,"‹Cancel",18)Lbl 28?ClrHome?Þ"SAVING?
UnArchive J?1→J?Archive J?Goto 18Lbl 29?ClrHomeDisp "SAVING?UnArchive J?0→J?Archive J?Goto 18Lbl 1B?ClrHome?Input "Password: ",Str9?
UnArchive Str0?If Str9≠Str0?Then?Archive Str0Disp "INCORRECT?Pause ?Goto 1B?Else?EndMenu("Are you sure¯ ","No",F,"Yes",2A)Lbl 2A?
ClrHomeDisp "PLEASE WAIT...?UnArchive H?UnArchive I?UnArchive E?22→E?22?Asm(prgmΘCONTRST?UnArchive J?UnArchive D?UnArchive C?UnArchive
F?UnArchive B?UnArchive M?0→D?4→C?0→E?0→H?0→I?0→B?1→F?1→M?UnArchive Str0?DelVar Str0?ClrHomeDisp "Press any key toDisp "power offDisp
""Disp ""Disp ""Disp ""?241Lbl 2B?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm
(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?Asm(prgmΘASCII?
Asm(prgmΘASCII?0Lbl 2C?Repeat Ans?getKey→A?If A≠0?Then?Asm(prgmΘOFF?Goto 0?Else?End?Goto 2CLbl 2F?ClrHomeDisp "Press 2 for Auto","-
Boost"?startTmr→ΘLbl 34?checkTmr(Θ)?If Ans‹5:Goto 34?»If ?Goto 2E?SetUpEditor Repeat EOFSetUpEditor Repeat [é² [ΘASCII »mïGoto
JïïJï→EÉ[÷² ΘBATT! »mïoL=(
xþ8ï!Rï³P:→ ¯ïŒGï¿JÉ[³ ΘCONTRST »mïGoto JïïJÆPause Pause For({2G„É[.³ ΘDONE] »mýË 'É[7³
[ΘINDIC
»m!Š:'wÉ[C³ ]ΘINVSCR »m! )prgm?ïprgmMÉ[Q³ →ΘOFF »mïP[X³ →ΘRAM »mïåBï’GïVAï¿JÉ[i³ ]ΘTXTINV
»m!õ‰:'wÉ u³
STARTUPD ZEnd ID prgm
UPDATE!
Code:
**TI83F*
< Created by jsTIfied - www.cemetech.net >
:$
ID91TI84$€)ž
prgmCI(
:"DON'T RUN IN SHELL
::"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
:ClrHome
:Disp "(CONTACT INFO IS DISPLAYED ON THESE LINES AFTER :Disp ". REMOVE ALL TEXT AFTER THE QUOTATION MARKS. A COLON MARKS THE NEXT LINE.
:Disp "(LINE 2, 16 CHARACTERS MAX PER LINE)
:Disp "(LINE 3)
:Disp "(LINE 4)
:Disp "(LINE 5)
:Return
[$:Ÿ
prgmID¨
:"DON'T RUN IN SHELL
::"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
::"DON'T MODIFY
:Lbl 0
:ClrHome
:Full
:Asm(prgmΘINDIC
:22:Asm(prgmΘCONTRST
:Lbl 1
:ClrHome
:Asm(prgmΘTXTINV
:Output(1,1,"[DEL] for setup "
:Output(8,1,"ID v9.1"
:Output(2,1,"INITIALIZING... "
:Asm(prgmΘTXTINV
:Repeat Ans
:getKey→A
:If A=23
:Then
:Output(7,2,"ENTERING SETUP"
:Else
:End
:Asm(prgmΘRAM
:If Ans‹1028
:Then
:Output(3,1,"LOW RAM:"
:Output(3,11,Ans
:Output(4,1,"Minimum 1028 RAM"
:Pause
:Asm(prgmΘDONE
:Stop
:Else
:Output(3,1,"RAM OK"
:End
:If A≠23
:Then
:Goto 2
:Else
:Goto 3
:End
:Lbl 2
:Repeat Ans
:getKey→A
:If A=23
:Then
:Output(7,2,"ENTERING SETUP"
:Else
:End
:Lbl 3
:UnArchive B
:If B≠1
:Then
:1→B
:Archive B
:Goto 4
:Else
:End
:UnArchive C
:If A≠23:Goto 5
:Goto 6
:Lbl 5
:Repeat Ans
:getKey→A
:If A=23
:Then
:Output(7,2,"ENTERING SETUP"
:Else
:End
:Lbl 6
:Asm(prgmΘBATT
:Ans→C
:If C≥2
:Then
:Output(4,1,"BATTERY OK"
:Archive C
:Goto 7
:Else
:End
:If Cm1:Goto 8
:Goto 7
:Lbl 8
:Output(4,1,"BATTERY LOW"
:Output(5,1,"CHANGE SOON"
:Pause
:Archive C
:Lbl 7
:UnArchive D
:If D≠4
:Then
:0→D
:Archive D
:Goto 9
:Else
:Archive D
:Goto A
:Lbl 9
:UnArchive D
:If D=2
:Then
:Goto B
:Else
:End
:If D=3
:Then
:Goto C
:Else
:End
:If D=4
:Then
:Goto D
:Else
:End
:Lbl 4
:UnArchive D
:D+1
:Ans→D
:ClrHome
:Output(1,1,"ί Release notes"
:Output(8,1,"Press [ENTER]"
:Goto 9
:Lbl B
:Disp ""
:Disp "CHANGES
:Disp "*Auto-Boost"
:Pause
:UnArchive D
:3→D
:Goto 4
:Lbl C
:Disp ""
:Disp "To access settin
:Disp "gs, hold [DEL] w
:Disp "hile booting up.
:Pause
:Lbl D
:ClrHome
:UnArchive D
:4→D
:ClrHome
:Input "SET PASSWORD: ",Str0
:Output(5,1,Str0
:Archive Str0
:Pause :UnArchive D
:4→D
:Archive D
:Goto E
:Else
:End
:Goto D
:Lbl E
:ClrHome
:Disp ""
:Disp "Due to the desig
:Disp "n of the OS, you
:Disp "may be prompted
:Disp "to GarbageCollec
:Disp "t. Select Yes.
:UnArchive E
:22→E
:Pause
:Archive D
:Lbl A
:If A=23
:Then
:Goto F
:Else
:End
:Repeat Ans
:getKey→A
:If A=23
:Then
:Output(7,2,"ENTERING SETUP
:Else
:End
:UnArchive F
:If F=0:Goto 10
:FnOff
:ClrDraw
:AxesOff
0
:Pxl-On(1,1
:Pxl-On(1,2
:Pxl-On(1,3
:Pxl-On(2,0
:Pxl-On(2,2
:Pxl-On(2,3
:Pxl-On(2,4
:Pxl-On(3,0
:Pxl-On(3,1
:Pxl-On(3,4
:Pxl-On(4,0
:Pxl-On(4,2
:Pxl-On(4,3
:Pxl-On(4,4
:Pxl-On(4,0
:Pxl-On(5,1
:Pxl-On(5,2
:Pxl-On(5,3
:Text(0,7,"2015"
:Text(57,1,"v9.1
:For(G,1,20)
:Text(G,25,"Comments2010"
:End
:For(G,1,19)
:Text(28,G+15," Soft
:Text(28,68-G,"ware
:End
:For(G,50,35,−1)
:Text(G,40," Team
:Text(G+6,40,"
:End
:ClrDraw
:FnOn
:Lbl 10
:ClrHome
:If A=23:Goto F
:Lbl 11
:0→A
:UnArchive M
:If M=1
:startTmr→Θ
:Archive M
:ClrHome
:Asm(prgmΘTXTINV
:Disp "Battery level:
:UnArchive C
:If C=4
:Then
:193:Asm(prgmΘASCII
:224
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:125:Asm(prgmΘASCII
:214:Asm(prgmΘASCII
:Else
:End
:If C=3
:Then
:193:Asm(prgmΘASCII
:224:Asm(prgmΘASCII
:235:Asm(prgmΘASCII
:125:Asm(prgmΘASCII
:214:Asm(prgmΘASCII
:Else
:End
:If C=2
:Then
:193:Asm(prgmΘASCII
:235:Asm(prgmΘASCII
:32:Asm(prgmΘASCII
:125:Asm(prgmΘASCII
:214:Asm(prgmΘASCII
:Else
:End
:If Cm1
:Then
:193:Asm(prgmΘASCII
:32
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:125:Asm(prgmΘASCII
:214:Asm(prgmΘASCII
:Else
:End
:Disp "Initializing...1
:Disp " 2 5 7 0
:Disp "0 5 0 5 0
:Disp "% % % % %
:Disp "| | |
:Asm(prgmΘTXTINV
:224
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Archive C
:UnArchive H
:If H=1
:Then
:Clear Entries
:Else
:End
:Archive H
:224
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:UnArchive I
:If I=1
:Then
:SetUpEditor
:Else
:End
:Archive I
:224
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:UnArchive J
:If J=1
:Then
:ClrTable
:Else
:End
:Archive J
:224
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:UnArchive E
:E:Asm(prgmΘCONTRST
:Archive E
:224
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:ClrHome
:RectGC
:CoordOn
:GridOff
:AxesOn
:LabelOff
:ExprOn
:ClrHome
:UnArchive M
:If M=1:Goto 2D
:Goto 2E
:Lbl 2D
:checkTmr(Θ)
:If Ans≥10:Goto 2F
:Lbl 2E
:Archive M
:UnArchive K
:If K=1:Goto 12
:Goto 13
:Lbl 12
:ClrHome
:Disp "Contact info was
:Disp "accessed.
:Disp "Incorrect
:Disp "password will
:Disp "display contact
:Disp "info.
:Input "Password: ",Str9
:UnArchive Str0
:If Str9=Str0
:Then
:DelVar Str9
:Archive Str0
:Goto 13
:Else
:End
:DelVar Str9
:Archive Str0
:Goto 14
:Lbl 13
:UnArchive K
:0→K
:Archive K
:Menu(" TI-84 Plus "," Power off",15," Home screen",16," Contact info",14)
:Lbl F
:Menu("Settings ","Splash screen›",17,"Clear at start›",18,"Password›",19,"Contrast level›",1A,"Auto-Boost›",31,"Reset all",1B,"‹ Exit",11)
:Lbl 31
:Menu("Auto-Boost ","On",32,"Off",33,"‹Cancel",F)
:Lbl 32
:ClrHome
:Disp "SAVING
:UnArchive M
:1→M:Archive M
:ClrHome
:Goto F
:Lbl 33
:ClrHome
:Disp "SAVING
:UnArchive M
:0→M
:Archive M
:ClrHome
:Goto F
:Lbl 19
:ClrHome
:Input "Current: ",Str9
:UnArchive Str0
:If Str9≠Str0
:Then
:Archive Str0
:Disp "Incorrect
:Pause
:Goto 19
:Else
:End
:Lbl 1C
:Output(4,1,"NOTICE: Cannot contain quotes orsto and must begin with a letter"
:Input "New: ",Str0
:Disp Str0
:Archive Str0
:Goto F
:Lbl 17
:Menu("Splash screen ","On",1D,"Off",1E,"‹Cancel",F)
:Lbl 1D
:ClrHome
:Disp "SAVING
:UnArchive F
:1→F
:Archive F
:ClrHome
:Goto F
:Lbl 1E
:ClrHome
:Disp "SAVING
:UnArchive F
:0→F
:Archive F
:ClrHome
:Goto F
:Lbl 14
:UnArchive K
:1→K
:Archive K
:ClrHome
:Asm(prgmΘTXTINV
:prgmCI
:startTmr→Θ
:Lbl 1F
:checkTmr(Θ)
:If Ans≥30
:Then
:Asm(prgmΘTXTINV
:Goto 15
:Else
:End
:Goto 1F
:Lbl 1A
:ClrHome
:Disp "Set a contrast
:Disp "level. 0-39
:UnArchive E
:Output(3,1,"Current level:"
:Output(3,15,E
:Disp ""
:Input "New level: ",Θ
:If Θ‹0 or Θ›39
:Then
:ClrHome
:Disp "Invalid
:Pause
:ClrHome
:Goto 1A
:Else
:End
:Θ→E
:Archive E
:Goto F
:Lbl 16
:ClrHome
:ï
:If Ans=1
:Then
:Output(1,9,ï]0
:Output(1,1,ï0
:Else
:End
:Asm(prgmΘRAM
:If Ans‹1028
:Then
:Output(2,5,"Low RAM:"
:Disp ""
:Else
:End
:Disp ""
:Asm(prgmΘDONE
:Stop
:Lbl 15
:ClrHome
:Output(4,2,"ENTERING SLEEP"
:Output(5,7,"MODE"
:Output(1,1,ï0
:Output(1,9,ï]0
:Asm(prgmΘINVSCR
:startTmr→Θ
:Lbl 20
:checkTmr(Θ)
:If Ans≥3
:Then
:ClrHome
:Asm(prgmΘOFF
:Asm(prgmΘDONE
:Goto 0
:Else
:Goto 20
:End
:Lbl 18
:Menu("Clear... ","Entries›",21,"Lists›",22,"Table›",23,"‹Back",F)
:Lbl 21
:Menu("Clear Entries ","Yes",24,"No",25,"‹Cancel",18)
:Lbl 24
:ClrHome
:Disp "SAVING
:UnArchive H
:1→H
:Archive H
:ClrHome
:Goto 18
:Lbl 22
:Menu("SetUpEditor ","Yes",26,"No",27,"‹Cancel",18)
:Lbl 26
:ClrHome
:Disp "SAVING
:UnArchive I
:1→I
:Archive I
:Goto 18
:Lbl 27
:ClrHome:Disp "SAVING
:UnArchive I
:0→I
:Archive I
:Goto 18
:Lbl 25
:ClrHome
:Disp "SAVING
:UnArchive H
:0→H
:Archive H
:Goto 18
:Lbl 23
:Menu("ClrTable ","Yes",28,"No",29,"‹Cancel",18)
:Lbl 28
:ClrHome
:Disp "SAVING
:UnArchive J
:1→J
:Archive J
:Goto 18
:Lbl 29
:ClrHome
:Disp "SAVING
:UnArchive J
:0→J
:Archive J
:Goto 18
:Lbl 1B
:ClrHome
:Input "Password: ",Str9
:UnArchive Str0
:If Str9≠Str0
:Then
:Archive Str0
:Disp "INCORRECT
:Pause
:Goto 1B
:Else
:End
:Menu("Are you sure? ","No",F,"Yes",2A)
:Lbl 2A
:ClrHome
:Disp "PLEASE WAIT...
:UnArchive H
:UnArchive I
:UnArchive E
:22→E
:22:Asm(prgmΘCONTRST
:UnArchive J
:UnArchive D
:UnArchive C
:UnArchive F
:UnArchive B
:UnArchive M
:0→D
:4→C
:0→E
:0→H
:0→I
:0→B
:1→F
:1→M
:UnArchive Str0
:DelVar Str0
:ClrHome
:Disp "Press any key to
:Disp "power off
:Disp ""
:Disp ""
:Disp ""
:Disp ""
:241
:Lbl 2B
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:0
:Lbl 2C
:Repeat Ans
:getKey→A
:If A≠0
:Then
:Asm(prgmΘOFF
:Goto 0
:Else
:End
:Goto 2C
:Lbl 2F
:ClrHome
:Disp "Press 2 for Auto","-Boost"
:startTmr→Θ
:Lbl 34
:checkTmr(Θ)
:If Ans‹5:Goto 34
:»If
:Goto 2E
:SetUpEditor Repeat EOFSetUpEditor Repeat
[é² [ΘASCII »mïGoto JïïJï→EÉ
[÷² ΘBATT! »mïoL=(
xþ8ï!Rï³P:→ ¯ïŒGï¿JÉ
[³ ΘCONTRST »mïGoto JïïJÆPause Pause For(({2G„É
[.³ ΘDONE] »mýË 'É
[7³ [ΘINDIC
»m!Š:'wÉ
[C³ ]ΘINVSCR »m! )prgm:ïprgmMÉ
[Q³ →ΘOFF »mïP
[X³ →ΘRAM »mïåBï’GïVAï¿JÉ
[i³ ]ΘTXTINV
»m!õ‰:'wÉ
u³ STARTUPD ZEnd ID prgm
If anyone can help me, that would be much appreciated!
UPDATE 2!
Code:
**TI83F*
< Created by jsTIfied - www.cemetech.net >
:$
ID91TI84$€)ž
prgmCI(
:"DON'T RUN IN SHELL
::"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
:ClrHome
:Disp "(CONTACT INFO IS DISPLAYED ON THESE LINES AFTER :Disp ". REMOVE ALL TEXT AFTER THE QUOTATION MARKS. A COLON MARKS THE NEXT LINE.
:Disp "(LINE 2, 16 CHARACTERS MAX PER LINE)
:Disp "(LINE 3)
:Disp "(LINE 4)
:Disp "(LINE 5)
:Return
[$:Ÿ
prgmID¨
:"DON'T RUN IN SHELL
::"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
::"DON'T MODIFY
:Lbl 0
:ClrHome
:Full
:Asm(prgmΘINDIC
:22:Asm(prgmΘCONTRST
:Lbl 1
:ClrHome
:Asm(prgmΘTXTINV
:Output(1,1,"[DEL] for setup "
:Output(8,1,"ID v9.1"
:Output(2,1,"INITIALIZING... "
:Asm(prgmΘTXTINV
:Repeat Ans
:getKey→A
:If A=23
:Then
:Output(7,2,"ENTERING SETUP"
:Else
:End
:Asm(prgmΘRAM
:If Ans‹1028
:Then
:Output(3,1,"LOW RAM:"
:Output(3,11,Ans
:Output(4,1,"Minimum 1028 RAM"
:Pause
:Asm(prgmΘDONE
:Stop
:Else
:Output(3,1,"RAM OK"
:End
:If A≠23
:Then
:Goto 2
:Else
:Goto 3
:End
:Lbl 2
:Repeat Ans
:getKey→A
:If A=23
:Then
:Output(7,2,"ENTERING SETUP"
:Else
:End
:Lbl 3
:UnArchive B
:If B≠1
:Then
:1→B
:Archive B
:Goto 4
:Else
:End
:UnArchive C
:If A≠23:Goto 5
:Goto 6
:Lbl 5
:Repeat Ans
:getKey→A
:If A=23
:Then
:Output(7,2,"ENTERING SETUP"
:Else
:End
:Lbl 6
:Asm(prgmΘBATT
:Ans→C
:If C≥2
:Then
:Output(4,1,"BATTERY OK"
:Archive C
:Goto 7
:Else
:End
:If Cm1:Goto 8 ###"m" is an unknown logic token
:Goto 7
:Lbl 8
:Output(4,1,"BATTERY LOW"
:Output(5,1,"CHANGE SOON"
:Pause
:Archive C
:Lbl 7
:UnArchive D
:If D≠4
:Then
:0→D
:Archive D
:Goto 9
:Else
:Archive D
:Goto A
:Lbl 9
:UnArchive D
:If D=2
:Then
:Goto B
:Else
:End
:If D=3
:Then
:Goto C
:Else
:End
:If D=4
:Then
:Goto D
:Else
:End
:Lbl 4
:UnArchive D
:D+1
:Ans→D
:ClrHome
:Output(1,1,"ί Release notes"
:Output(8,1,"Press [ENTER]"
:Goto 9
:Lbl B
:Disp ""
:Disp "CHANGES
:Disp "*Auto-Boost"
:Pause
:UnArchive D
:3→D
:Goto 4
:Lbl C
:Disp ""
:Disp "To access settin
:Disp "gs, hold [DEL] w
:Disp "hile booting up.
:Pause
:Lbl D
:ClrHome
:UnArchive D
:4→D
:ClrHome
:Input "SET PASSWORD: ",Str0
:Output(5,1,Str0
:Archive Str0
:Pause :UnArchive D
:4→D
:Archive D
:Goto E
:Else
:End
:Goto D
:Lbl E
:ClrHome
:Disp ""
:Disp "Due to the desig
:Disp "n of the OS, you
:Disp "may be prompted
:Disp "to GarbageCollec
:Disp "t. Select Yes.
:UnArchive E
:22→E
:Pause
:Archive D
:Lbl A
:If A=23
:Then
:Goto F
:Else
:End
:Repeat Ans
:getKey→A
:If A=23
:Then
:Output(7,2,"ENTERING SETUP
:Else
:End
:UnArchive F
:If F=0:Goto 10
:FnOff
:ClrDraw
:AxesOff
0 ###"0" is an unknown token
:Pxl-On(1,1
:Pxl-On(1,2
:Pxl-On(1,3
:Pxl-On(2,0
:Pxl-On(2,2
:Pxl-On(2,3
:Pxl-On(2,4
:Pxl-On(3,0
:Pxl-On(3,1
:Pxl-On(3,4
:Pxl-On(4,0
:Pxl-On(4,2
:Pxl-On(4,3
:Pxl-On(4,4
:Pxl-On(4,0
:Pxl-On(5,1
:Pxl-On(5,2
:Pxl-On(5,3
:Text(0,7,"2015"
:Text(57,1,"v9.1
:For(G,1,20)
:Text(G,25,"Comments2010"
:End
:For(G,1,19)
:Text(28,G+15," Soft
:Text(28,68-G,"ware
:End
:For(G,50,35,−1)
:Text(G,40," Team
:Text(G+6,40,"
:End
:ClrDraw
:FnOn
:Lbl 10
:ClrHome
:If A=23:Goto F
:Lbl 11
:0→A
:UnArchive M
:If M=1
:startTmr→Θ
:Archive M
:ClrHome
:Asm(prgmΘTXTINV
:Disp "Battery level:
:UnArchive C
:If C=4
:Then
:193:Asm(prgmΘASCII
:224
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:125:Asm(prgmΘASCII
:214:Asm(prgmΘASCII
:Else
:End
:If C=3
:Then
:193:Asm(prgmΘASCII
:224:Asm(prgmΘASCII
:235:Asm(prgmΘASCII
:125:Asm(prgmΘASCII
:214:Asm(prgmΘASCII
:Else
:End
:If C=2
:Then
:193:Asm(prgmΘASCII
:235:Asm(prgmΘASCII
:32:Asm(prgmΘASCII
:125:Asm(prgmΘASCII
:214:Asm(prgmΘASCII
:Else
:End
:If Cm1 ###"m" is an unknown logic token
:Then
:193:Asm(prgmΘASCII
:32
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:125:Asm(prgmΘASCII
:214:Asm(prgmΘASCII
:Else
:End
:Disp "Initializing...1
:Disp " 2 5 7 0
:Disp "0 5 0 5 0
:Disp "% % % % %
:Disp "| | |
:Asm(prgmΘTXTINV
:224
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Archive C
:UnArchive H
:If H=1
:Then
:Clear Entries
:Else
:End
:Archive H
:224
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:UnArchive I
:If I=1
:Then
:SetUpEditor
:Else
:End
:Archive I
:224
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:UnArchive J
:If J=1
:Then
:ClrTable
:Else
:End
:Archive J
:224
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:UnArchive E
:E:Asm(prgmΘCONTRST
:Archive E
:224
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:ClrHome
:RectGC
:CoordOn
:GridOff
:AxesOn
:LabelOff
:ExprOn
:ClrHome
:UnArchive M
:If M=1:Goto 2D
:Goto 2E
:Lbl 2D
:checkTmr(Θ)
:If Ans≥10:Goto 2F
:Lbl 2E
:Archive M
:UnArchive K
:If K=1:Goto 12
:Goto 13
:Lbl 12
:ClrHome
:Disp "Contact info was
:Disp "accessed.
:Disp "Incorrect
:Disp "password will
:Disp "display contact
:Disp "info.
:Input "Password: ",Str9
:UnArchive Str0
:If Str9=Str0
:Then
:DelVar Str9
:Archive Str0
:Goto 13
:Else
:End
:DelVar Str9
:Archive Str0
:Goto 14
:Lbl 13
:UnArchive K
:0→K
:Archive K
:Menu(" TI-84 Plus "," Power off",15," Home screen",16," Contact info",14)
:Lbl F
:Menu("Settings ","Splash screen›",17,"Clear at start›",18,"Password›",19,"Contrast level›",1A,"Auto-Boost›",31,"Reset all",1B,"‹ Exit",11)
:Lbl 31
:Menu("Auto-Boost ","On",32,"Off",33,"‹Cancel",F)
:Lbl 32
:ClrHome
:Disp "SAVING
:UnArchive M
:1→M:Archive M
:ClrHome
:Goto F
:Lbl 33
:ClrHome
:Disp "SAVING
:UnArchive M
:0→M
:Archive M
:ClrHome
:Goto F
:Lbl 19
:ClrHome
:Input "Current: ",Str9
:UnArchive Str0
:If Str9≠Str0
:Then
:Archive Str0
:Disp "Incorrect
:Pause
:Goto 19
:Else
:End
:Lbl 1C
:Output(4,1,"NOTICE: Cannot contain quotes orsto and must begin with a letter"
:Input "New: ",Str0
:Disp Str0
:Archive Str0
:Goto F
:Lbl 17
:Menu("Splash screen ","On",1D,"Off",1E,"‹Cancel",F)
:Lbl 1D
:ClrHome
:Disp "SAVING
:UnArchive F
:1→F
:Archive F
:ClrHome
:Goto F
:Lbl 1E
:ClrHome
:Disp "SAVING
:UnArchive F
:0→F
:Archive F
:ClrHome
:Goto F
:Lbl 14
:UnArchive K
:1→K
:Archive K
:ClrHome
:Asm(prgmΘTXTINV
:prgmCI
:startTmr→Θ
:Lbl 1F
:checkTmr(Θ)
:If Ans≥30
:Then
:Asm(prgmΘTXTINV
:Goto 15
:Else
:End
:Goto 1F
:Lbl 1A
:ClrHome
:Disp "Set a contrast
:Disp "level. 0-39
:UnArchive E
:Output(3,1,"Current level:"
:Output(3,15,E
:Disp ""
:Input "New level: ",Θ
:If Θ‹0 or Θ›39
:Then
:ClrHome
:Disp "Invalid
:Pause
:ClrHome
:Goto 1A
:Else
:End
:Θ→E
:Archive E
:Goto F
:Lbl 16
:ClrHome
:ï ###"ï" is an unknown variable token
:If Ans=1
:Then
:Output(1,9,getDtStr(0
:Output(1,1,getTmStr(0
:Else
:End
:Asm(prgmΘRAM
:If Ans‹1028
:Then
:Output(2,5,"Low RAM:"
:Disp ""
:Else
:End
:Disp ""
:Asm(prgmΘDONE
:Stop
:Lbl 15
:ClrHome
:Output(4,2,"ENTERING SLEEP"
:Output(5,7,"MODE"
:Output(1,1,getTmStr(0
:Output(1,9,getDtStr(0
:Asm(prgmΘINVSCR
:startTmr→Θ
:Lbl 20
:checkTmr(Θ)
:If Ans≥3
:Then
:ClrHome
:Asm(prgmΘOFF
:Asm(prgmΘDONE
:Goto 0
:Else
:Goto 20
:End
:Lbl 18
:Menu("Clear... ","Entries›",21,"Lists›",22,"Table›",23,"‹Back",F)
:Lbl 21
:Menu("Clear Entries ","Yes",24,"No",25,"‹Cancel",18)
:Lbl 24
:ClrHome
:Disp "SAVING
:UnArchive H
:1→H
:Archive H
:ClrHome
:Goto 18
:Lbl 22
:Menu("SetUpEditor ","Yes",26,"No",27,"‹Cancel",18)
:Lbl 26
:ClrHome
:Disp "SAVING
:UnArchive I
:1→I
:Archive I
:Goto 18
:Lbl 27
:ClrHome:Disp "SAVING
:UnArchive I
:0→I
:Archive I
:Goto 18
:Lbl 25
:ClrHome
:Disp "SAVING
:UnArchive H
:0→H
:Archive H
:Goto 18
:Lbl 23
:Menu("ClrTable ","Yes",28,"No",29,"‹Cancel",18)
:Lbl 28
:ClrHome
:Disp "SAVING
:UnArchive J
:1→J
:Archive J
:Goto 18
:Lbl 29
:ClrHome
:Disp "SAVING
:UnArchive J
:0→J
:Archive J
:Goto 18
:Lbl 1B
:ClrHome
:Input "Password: ",Str9
:UnArchive Str0
:If Str9≠Str0
:Then
:Archive Str0
:Disp "INCORRECT
:Pause
:Goto 1B
:Else
:End
:Menu("Are you sure? ","No",F,"Yes",2A)
:Lbl 2A
:ClrHome
:Disp "PLEASE WAIT...
:UnArchive H
:UnArchive I
:UnArchive E
:22→E
:22:Asm(prgmΘCONTRST
:UnArchive J
:UnArchive D
:UnArchive C
:UnArchive F
:UnArchive B
:UnArchive M
:0→D
:4→C
:0→E
:0→H
:0→I
:0→B
:1→F
:1→M
:UnArchive Str0
:DelVar Str0
:ClrHome
:Disp "Press any key to
:Disp "power off
:Disp ""
:Disp ""
:Disp ""
:Disp ""
:241
:Lbl 2B
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:Asm(prgmΘASCII
:0
:Lbl 2C
:Repeat Ans
:getKey→A
:If A≠0
:Then
:Asm(prgmΘOFF
:Goto 0
:Else
:End
:Goto 2C
:Lbl 2F
:ClrHome
:Disp "Press 2 for Auto","-Boost"
:startTmr→Θ
:Lbl 34
:checkTmr(Θ)
:If Ans‹5:Goto 34
:»If ###"»" is an unknown token
:Goto 2E
:SetUpEditor Repeat EOFSetUpEditor Repeat ###I believe this is an "End of File" marker
[é² [ΘASCII AsmPrgmGoto JïïJï→EC9
[÷² ΘBATT! AsmPrgmoL=(
xþ8ï!Rï³P:→ ¯ïŒGï¿JC9
[³ ΘCONTRST AsmPrgmGoto JïïJÆPause Pause For(({2G„C9
[.³ ΘDONE] AsmPrgmýË 'C9
[7³ [ΘINDIC
AsmPrgm!Š:'wC9
[C³ ]ΘINVSCR AsmPrgm! )prgm:ïprgmMC9
[Q³ →ΘOFF AsmPrgmP
[X³ →ΘRAM AsmPrgmåBï’GïVAï¿JC9
[i³ ]ΘTXTINV
AsmPrgm!õ‰:'wC9
u³ STARTUPD ZEnd ID prgm
I can't believe I did this all in Notepad!