I created this .txt file using... https://www.cemetech.net/sc/ The site adds the tabs! Seems that... ~ means negative - means minus -> means arrow for saving to variables [e] means Euler's number ^^2 means ² {Y7} means the Y7 plot function |E means E in scientific notation ^^o is the degree symbol |v is v [recursiven] is n I apologize for not closing parentheses, brackets, and quotes in my code! I also didn't put spaces between DelVars. I did all of this to save storage space! The code is broken up into sections divided by labels The following labels appear in this order... Lbl A: main menu Lbl B: KABOOM Lbl C: COIL Lbl D: SMILEY Lbl E: CURIOUS GEORGE Lbl F: WOW Lbl 1: THE MATRIX Lbl 2: DOTS Lbl 3: NAME CRUNCHER Lbl 4: ZOOM OUT Lbl 5: BLINKER Lbl 6: PICTURES Lbl 7: QUIT I've added newlines in this .txt file between these sections! ClrHome For(A,1,7 Disp " End Disp " VISUAL FX Disp " Disp " BY BRAD K. Disp " Disp " Disp " Pause Normal Func AxesOff PlotsOff FnOff DelVar D Lbl A ClrDraw 0->Xmin 0->Ymin 94->Xmax 62->Ymax ClrHome DelVar ADelVar BDelVar CDelVar Str7DelVar Str8 If D=[e]^pi:Goto 6 DelVar D Menu("CHOOSE","THE MATRIX",1,"DOTS",2,"NAME CRUNCHER",3,"ZOOM OUT",4,"BLINKER",5,"PICTURES",6,"QUIT",7 Lbl B ZStandard ZSquare "18.2/sqrt(1+tan(B^^r)^^2->Str7 "18.2/sqrt(1+tan(B^^r)^~2->Str8 Vertical 0 For(B,|E~5,pi,.05 Line(abs(B-pi/2)/(B-pi/2)expr(Str7),~expr(Str8),~abs(B-pi/2)/(B-pi/2)expr(Str7),expr(Str8 End Pause [e]^pi->D Goto A Lbl C 96->C 64->B ~2->D Repeat B=32 D+2->D Line(A,B,A,D C-2->C Line(A,D,C,D B-2->B Line(C,D,C,B A+2->A Line(C,B,A,B End Pause [e]^pi->D Goto A Lbl D GraphStyle(7,2 GraphStyle(8,2 "sqrt(81(1-X^2/36->{Y7} "~{Y7}->{Y8} ZStandard DrawF ~2-sqrt(16-X^^2 DrawF sqrt(1-X^^2 DrawF 3+sqrt(2-(X+2.5)^^2 DrawF 3+sqrt(2-(X-2.5)^^2 For(A,29,34 Pxl-On(A,19 Pxl-On(A,20 Pxl-On(A,75 Pxl-On(A,76 End Pause GraphStyle(7,1 GraphStyle(8,1 DelVar {Y7}DelVar {Y8} [e]^pi->D Goto A Lbl E Text(0,4,"BEFORE Text(0,60,"AFTER Line(4,56,26,56 Line(60,56,78,56 DrawInv 48+sin(X^^r Text(45,18,"GEORGE Circle(27,47,4 Pt-On(22,47 Pt-On(32,47 Pt-On(25,48 Pt-On(29,48 Line(26,46,28,46 For(A,29,42 Line(24,A,30,A End Pt-On(17,50,3 Pt-On(37,50,3 Pt-On(24,20,3 Pt-On(30,20,3 Line(17,42,37,42 Line(17,50,17,42 Line(37,50,37,42 Line(24,30,24,20 Line(30,30,30,20 Text(55,12,"KNIFE For(B,5,75,50 Line(B,1,B,18 Line(2+B,1,2+B,7 Pt-On(1+B,1 Line(B,7,3+B,7 Line(3+B,7,3+B,14 Line(3+B,14,B,18 End For(B,62,75 Line(B,24,B,30 End Circle(83,10,4 Pt-On(91,11 Pt-On(81,16 Pt-On(86,3 Pt-On(93,6 Line(76,5,78,5 Pt-On(60,4,3 Line(60,4,68,4 Line(68,4,68,11 Pt-On(90,42,3 Pt-On(58,50,3 Pt-On(82,30,3 Line(55,50,55,44 Line(53,42,60,42 Line(80,50,87,50 Line(75,30,81,30 Pause [e]^pi->D Goto A Lbl F Text(8,28,"TI-83 Plus Text(15,37,1.19 Line(12,22,12,16 Line(13,22,15,22 Line(16,21,16,20 Line(14,19,15,19 Line(13,19,16,16 Line(18,21,18,16 Line(19,22,21,22 Line(19,19,21,19 Line(22,21,22,16 Line(24,22,24,16 Pt-On(25,21 Line(26,20,26,19 Pt-On(27,21 Line(28,22,28,16 Line(36,19,36,17 Line(37,20,39,20 Line(37,16,39,16 Pt-On(40,17 Pt-On(43,22 Line(44,22,44,17 Line(43,16,45,16 Line(48,19,48,17 Line(49,20,51,20 Line(49,18,52,18 Line(49,16,51,16 Pt-On(52,19 Pt-On(54,17 Line(55,20,57,20 Line(55,18,57,18 Line(55,16,57,16 Line(58,19,58,16 Line(60,20,60,16 Line(61,19,62,20 Line(63,20,64,19 Line(66,19,66,17 Line(67,20,69,20 Line(67,18,70,18 Line(67,16,69,16 Pt-On(70,19 Line(72,19,72,17 Line(73,20,74,20 Line(73,16,75,16 Pt-On(75,19 Line(76,22,76,16 Pause Disp "JUST KIDDING... Pause [e]^pi->D Goto A Lbl 1 getKey If Ans=105:Goto A randInt(1,50->A If A<17:Goto I Goto 1 Lbl I If randInt(0,3:randInt(1,16->C If C=A:Goto I If C:randInt(0,12->D Lbl J For(B,1,15+D If B>7 and B<16:Output(B-7,A," If B<10 and B>1:Output(B-1,A,randInt(0,9 If B<9:Output(B,A,"* If C and B-D>7 and B-D<16:Output(B-D-7,C," If C and B-D<10 and B-D>1:Output(B-D-1,C,randInt(0,9 If C and B-D<9 and B-D>0:Output(B-D,C,"* getKey If Ans=105:Goto A End DelVar CDelVar D Goto 1 Lbl 2 Menu("CHOOSE","DRAW",S,"ERASE",T Lbl S While 1 Pxl-On(randInt(0,62),randInt(0,94 getKey If Ans=105:Goto A End Lbl T For(B,0,21 Horizontal B Horizontal B+21 Horizontal B+42 End getKey While 1 Pxl-Off(randInt(0,62),randInt(0,94 getKey If Ans=105:Goto A End Lbl P ClrHome Disp "LENGTH ERROR. Lbl 3 Disp "NAME TO BE Input "CRUSHED=",Str7 If inString(Str7,".") or inString(Str7,",") or inString(Str7,":") or inString(Str7,"!") or inString(Str7,"*") or inString(Str7,"(") or inString(Str7,")") or inString(Str7,"^^o") or inString(Str7,"'") or inString(Str7,"f") or inString(Str7,"i") or inString(Str7,"l") or inString(Str7,"m") or inString(Str7,"s") or inString(Str7,"t") or inString(Str7,"w") or inString(Str7,"z":Then ClrHome Disp "INPUT ERROR. Goto 3 End {inString(Str7," "->L4 While L4(dim(L4 augment(L4,{inString(Str7," ",1+max(L4->L4 End dim(L4)-1->A length(Str7->C If A=C:Then ClrHome Disp "SMART ASS. Goto 3 End SortD(L4 If A:A->dim(L4 ClrList L3 C->dim(L3 Fill(0,L3 For(B,1,C If min(L4)=B:Then 1->L3(B If dim(L4)=1:C->B dim(L4)-1->dim(L4 End End If L3(1:Then " ->Str8 Else "+->Str8 End For(B,2,C If L3(B:Then Str8+" ->Str8 Else Str8+"+->Str8 End End ClrList L4,L3 iPart(48-2C+1.5A->D If D<=0:Goto P Text(28,D,Str7 For(B,0,29 Horizontal B Horizontal 62-B End Text(28,D,Str8 Horizontal 34 Horizontal 28 Horizontal 33 Horizontal 29 Pause Goto A Lbl 4 10->A ZStandard For(B,20,0,~.22 Line(~10,A,~A,10 Line(10,~A,A,~10 Horizontal B/2 Horizontal ~B/2 A-.22->A getKey If Ans=105:Goto A End 10->A For(B,20,0,~.22 Line(A,10,10,A,0 Line(~10,~A,~A,~10,0 Line(~10,B/2,10,B/2,0 Line(~10,~B/2,10,~B/2,0 A-.22->A getKey If Ans=105:Goto A End Goto 4 Lbl 5 Input "SPEED (1-9)=",A If A<1 or A>9 or fPart(A:Then ClrHome Disp "INPUT ERROR Goto 5 End For(B,62,42,~1 Horizontal B Horizontal B-21 Horizontal B-42 End getKey sqrt(A->A While 1 getKey If Ans=105:Goto A ClrHome For(D,2.9,A,~.1 69! End getKey If Ans=105:Goto A DispGraph For(D,2.9,A,~.1 69! End End Lbl 6 DelVar D Menu("CHOOSE PICTURE","KABOOM",B,"COIL",C,"SMILEY",D,"CURIOUS GEORGE",E,"WOW",F,"BACK",A Lbl 7 ZStandard AxesOn FnOn ClrHome Disp " Output(1,1,"D 69! Output(1,1,"Do 69! Output(1,1,"Don 69! Output(1,1,"Done For(D,0,2 69! Output(1,5+4D,"D Output(1,1+4D," 69! Output(1,6+4D,"o Output(1,2+4D," 69! Output(1,7+4D,"n Output(1,3+4D," 69! Output(1,8+4D,"e Output(1,4+4D," End DelVar D