Detokenization
» > >
»
» View previous topic :: View next topic  
I am detokenizing a corrupted group file for my TI-84 Plus. I've gotten quite far!
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! Very Happy

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!
What exactly are you trying to do by detokenizing it?
482
Error
Someone has shot the server with a twelve gauge, please contact your administrator.
100003493 wrote:
What exactly are you trying to do by detokenizing it?

Trying to replace weird tokens such as »Ã to normal letters, or TI-BASIC commands.
Sola Fide
The tokenization framework I worked on here: https://github.com/elfprince13/TITokens/ could pretty easily be inverted.
<- Please Support on Lego Ideas
I've this so far:

Code:

""TI83F" < CAnseated by =sTIfied - www.cemetech.net :$ ID91TI84ž CI(:"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
Õ$
Ÿ ID¨:"DON'T RUN IN SHELL
:"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
:"DON'T MODIFY
Lbl 0
ClrHome

u
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 Cn2
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: ",Str1
Output(5,1,Str1
Archive Str1
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
ZSquare
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
–
Lbl 10
ClrHome

If A=23:Goto F
Lbl 11
0->A
UnArchive M
If M=1:ï ->θ
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
»W
Else
End
Archive H
224
Asm(prgmθASCII
Asm(prgmθASCII
Asm(prgmθASCII
Asm(prgmθASCII
UnArchive I
If I=1
Then
»R
Else
End
Archive I
224
Asm(prgmθASCII
Asm(prgmθASCII
Asm(prgmθASCII
Asm(prgmθASCII
UnArchive J
If J=1
Then
û
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

~
~->
~
~
~
»P
ClrHome

UnArchive M
If M=1:Goto 2D
Goto 2E
Lbl 2D
ïθ
If Ansn10: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 Str1
If Str9=Str1
Then
DelVar Str9
Archive Str1
Goto 13
Else
End
DelVar Str9
Archive Str1
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,"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 Str1
If Str9!=Str1
Then
Archive Str1
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: ",Str1
Disp Str1
Archive Str1
Goto F
Lbl 17
Menu("Splash screen ","On",1D,"Off",1E,"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
ï ->θ
Lbl 1F
ïθ
If Ansn30
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<θl39
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
ï ->θ
Lbl 20
ïθ
If Ansn3
Then
ClrHome

Asm(prgmθOFF
Asm(prgmθDONE
Goto 0
Else
Goto 20
End
Lbl 18
Menu("Clear... ","Entries>",21,"Lists>",22,"Table>",23,"Lbl 21
Menu("»W ","Yes",24,"No",25,"Lbl 24
ClrHome

Disp "SAVING
UnArchive H
1->H
Archive H
ClrHome

Goto 18
Lbl 22
Menu("»R ","Yes",26,"No",27,"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("û ","Yes",28,"No",29,"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 Str1
If Str9!=Str1
Then
Archive Str1
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 Str1
DelVar Str1
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"
ï ->θ
Lbl 34
ïθ
If Ans<5:Goto 34
»If
Goto 2E
»Repeat EOF»Repeat é² θASCII »mïGoto JïïJï->EÉ÷² θBATT! »mï!=L=( 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ïPX³ ->θRAM »mïåBï’GïVAï¿JÉi³ θTXTINV »m!õ‰:'wÉ u³ STARTUPD ZEnd ID  prgm
Sola Fide
PT_ wrote:
I've this so far:

Code:

""TI83F" < CAnseated by =sTIfied - www.cemetech.net :$ ID91TI84ž CI(:"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
Õ$
Ÿ ID¨:"DON'T RUN IN SHELL
:"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
:"DON'T MODIFY
Lbl 0
ClrHome

u
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 Cn2
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: ",Str1
Output(5,1,Str1
Archive Str1
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
ZSquare
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
–
Lbl 10
ClrHome

If A=23:Goto F
Lbl 11
0->A
UnArchive M
If M=1:ï ->θ
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
»W
Else
End
Archive H
224
Asm(prgmθASCII
Asm(prgmθASCII
Asm(prgmθASCII
Asm(prgmθASCII
UnArchive I
If I=1
Then
»R
Else
End
Archive I
224
Asm(prgmθASCII
Asm(prgmθASCII
Asm(prgmθASCII
Asm(prgmθASCII
UnArchive J
If J=1
Then
û
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

~
~->
~
~
~
»P
ClrHome

UnArchive M
If M=1:Goto 2D
Goto 2E
Lbl 2D
ïθ
If Ansn10: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 Str1
If Str9=Str1
Then
DelVar Str9
Archive Str1
Goto 13
Else
End
DelVar Str9
Archive Str1
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,"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 Str1
If Str9!=Str1
Then
Archive Str1
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: ",Str1
Disp Str1
Archive Str1
Goto F
Lbl 17
Menu("Splash screen ","On",1D,"Off",1E,"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
ï ->θ
Lbl 1F
ïθ
If Ansn30
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<θl39
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
ï ->θ
Lbl 20
ïθ
If Ansn3
Then
ClrHome

Asm(prgmθOFF
Asm(prgmθDONE
Goto 0
Else
Goto 20
End
Lbl 18
Menu("Clear... ","Entries>",21,"Lists>",22,"Table>",23,"Lbl 21
Menu("»W ","Yes",24,"No",25,"Lbl 24
ClrHome

Disp "SAVING
UnArchive H
1->H
Archive H
ClrHome

Goto 18
Lbl 22
Menu("»R ","Yes",26,"No",27,"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("û ","Yes",28,"No",29,"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 Str1
If Str9!=Str1
Then
Archive Str1
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 Str1
DelVar Str1
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"
ï ->θ
Lbl 34
ïθ
If Ans<5:Goto 34
»If
Goto 2E
»Repeat EOF»Repeat é² θASCII »mïGoto JïïJï->EÉ÷² θBATT! »mï!=L=( 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ïPX³ ->θRAM »mïåBï’GïVAï¿JÉi³ θTXTINV »m!õ‰:'wÉ u³ STARTUPD ZEnd ID  prgm


I didn't use ZSquare and I used Str0, not Str1! Very Happy
Comments2010 wrote:
I didn't use ZSquare and I used Str0, not Str1! Very Happy

This are the tokens from SC, the official ones Wink I checked it by exporting a program with Str in it, and compare that tokens to your one, and they match Very Happy
Sola Fide
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Detokenization
»
» View previous topic :: View next topic  
Page 1 of 1
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement