200:
B=Y:Goto SE :randInt(0,1)==>C :If C=0 :Then :Pxl-On(A-5,B):Pxl-On(A-4,B):Pxl-On(A-3,B):Pxl-On(A-2,B):Pxl-On(A-1,B):Pxl-On(A,B) :Pxl-On(A+1,B):Pxl-On(A+2,B):Pxl-On(A+3,B):Pxl-On(A+4,B):Pxl-On(A+5,B) :End :If C=1 :Then :Pxl-On(A,B-5):Pxl-On(A,B-4):Pxl-On(A,B-3):Pxl-On(A,B-2):Pxl-On(A,B-1):Pxl-On(A,B) :Pxl-On(A,B+1):Pxl-On(A,B+2):Pxl-On(A,B+3):Pxl-On(A,B+4):Pxl-On(A,B+5) :End :If S=100 :Then :0==>s :Goto ST :End :Goto SE :0==>T :Lbl ST :Pxl-On(X,Y) :S+1==>S :Repeat K :T+1==>T :If T<35:Pxl-On(X,Y) :If T>34:Pxl-Off(X,Y) :If T=40:0==>T :getKey==>K :End :K==>L:Pxl-Off(X,Y) :If L=24:Y-1==>Y :If L=25:X-1==>X :If L=26:Y+1==>Y :If L=34:X+1==>X :Text(55,2,S) :If X=(0 or 61) or Y=(0 or 93):Goto EE :If pxl-Test(X,Y)=1:Goto ED :Goto ST :Lbl ED :Disp "GAME OVER",S :Pause :prgmALLPREFD :Lbl EE :Disp "YOU WON!",S :Pause :prgmALLPREFD
57::Menu("CHOOSE SOMETHING","TO METRIC",1,"TO AMERICAN",2,"QUIT",3) :Lbl 1 :Input A :Goto 4 :Lbl 2 :Goto 5 :Lbl 3 :prgmALLPREFD :Lbl 4 :Menu("AMERICAN>METRIC","INCHES>CM",A,"MILES>KM",B,"FEET>METERS",C,"°F>°C",D,"OUNCES>GRAMS", E,"POUNDS>KG",F,"VOLUME",G) :Lbl A :Disp A*2.54 :Stop :Lbl B :Disp A*254*6336/(10 :Stop :Lbl C : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : :
173:
pxl-Test(A,B)=1:Goto SE :Pxl-On(A,B) :Lbl ST :Pxl-On(X,Y) :S+1==>S :0==>K :getKey==>K :If K##0:K==>L :If L=24:Y-1==>Y :If L=25:X-1==>X :If L=26:Y+1==>Y :If L=34:X+1==>X :Text(55,2,S) :If X=A and Y=B :Then :S+int(100*(S^(1/3)))==>S :Goto SE :End :If pxl-Test(X,Y)=1:Goto ED :Goto ST :Lbl ED :Disp "GAME OVER",S :Pause :prgmALLPREFD
199:
PROGRAM:MAZE :Full :RectGC :CoordOff :GridOff :AxesOff :LabelOff :ExprOff :ZDecimal :ClrDraw :Line(-4.7,3.1,4.7,3.1) :Line(4.7,3.1,4.7,-3.1) :Line(4.7,-3.1,-4.7,-3.1) :Line(-4.7,-3.1,-4.7,3.1) :0==>S :31==>x :47==>Y :Lbl SE :S+1==>S :randInt(11,53)==>A :randInt(11,85)==>B :If A=X or
96:
PROGRAM:FACTOR :ClrHome :Input A :If A>10^11:Disp "ERR: NUMBER TOO":Disp "LARGE.RTRNS WILL":Disp "BE ERRONEOUS.":Stop :Disp A :DelVar B :Lbl C :B+1==>B :If B>SQRT(A) :Then :0==>B :Disp "THAT'S ALL":Stop :End :If (A/B)=int(A/B) :Then :Disp "":Disp B,(A/B):Pause:Goto C :Else :Goto C :End
172:
PROGRAM:SNAKE :Full :RectGC :CoordOff :GridOff :AxesOff :LabelOff :ExprOff :ZDecimal :ClrDraw :Line(-4.7,3.1,4.7,3.1) :Line(4.7,3.1,4.7,-3.1) :Line(4.7,-3.1,-4.7,-3.1) :Line(-4.7,-3.1,-4.7,3.1) :26==>L :0==>S :5==>X :5==>Y :Lbl SE :randInt(5,55)==>A :randInt(5,90)==>B :If
76:
PROGRAM:CUBEFORM :ClrHome :Disp "AX^3+BX^2+CX+D=0" :Prompt A :Prompt B :Prompt C :Prompt D :D/A==>D :C/A==>C :B/A==>B :1==>A :(BC/6-B^3/27-D/2)==>E :(CURT(E+SQRT(E^2+(C/3-B^2/9)^3))+CURT(E-SQRT(E^2+(C/3-B^2/81)^3))-B/3)==>F :ClrHome :Disp "ONE SOLUTION IS:",F
34:
Notes: I use a ## for the "not equal to" symbol. I use CURT(X) for the cube root of X. I use SQRT(X) for the square root of X. Some of these programs refer to a "prgmALLPREFD". This is just a program that sets the calculator to my prefered settings. Don't worry about it.
146::PROGRAM:QUADFORM : :ClrHome :Disp "AX+BX+C=0 :Prompt A :Prompt B :Prompt C :C/A→C :B/A→B :1→A :-B+SQRT(B-4AC)/(2A)→D :-B-SQRT(B-4AC)/(2A)→E :If D=E :Then :Disp "DOUBLE ROOT AT",D :Else :Disp "ROOTS:",D,E :End
196:
You are the blinking dot that starts out in the middle of the screen. Control with the arrow keys. Avoid the walls. Avoid the score. Get to the top or the left walls.
182:
155:
132:
169:
You are the head of the snake. Eat the dot that appears somewhere onscreen. Avoid yourself, the score, and the walls.
23:
I ACCEPT NO LIABILITY FOR ANY ADVERSE OCCURRENCES THAT COME FROM THIS PAGE, DIRECTLY OR INDIRECTLY, WHATSOEVER!
19:
This is my lonely little user page. I think I'll fill it up with programs for the TI 83+ SE...
8:
115::Input A :2→B :1→C :While A>1 :Output(2,1,B) :If A/B=int(A/B) :Then :B→L
190:
163:
140:
106:
90:
70:
51:
119:(C) :C+1→C :A/B→A :Else :B+1→B :End :If B-1>SQRT(A) :Then :A→L
186:
159:
136:
86:
66:
47:
100:
149:
41:
101:PRIMEFAC, the prime factorization program
126:
60:
42:CONVERT, the unit conversion program
13:
14:
209:
176:
1:
150:A version of the game "Snake"
7:
10:
214:
105:Author: ? of ?,
80:
85:Author: Lucas Brown of
65:Author: Lucas Brown of
46:Author: Lucas Brown of
127:The Quadratic formula
123:(C) :Stop :End :End
111::ClrHome :DelVar L
61:The Cubic Formula
205:
213:
212:
208:
207:
206:
204:
203:
202:
201:
179:
174:
152:
147:
129:
124:
122:
118:
114:
103:
98:
83:
78:
63:
58:
44:
38:
33:
30:
27:
12:
11:
5:
211:
198:
178:
175:
171:
151:
148:
145:
128:
125:
120:
116:
112:
110:
102:
99:
95:
82:
79:
75:
62:
59:
56:
43:
40:
16:Hello, all...
9:
6:
4:
3:
2:
210:
197:
194:
192:
188:
184:
170:
167:
165:
161:
157:
144:
142:
138:
134:
109:
108:
94:
92:
88:
74:
72:
68:
55:
53:
49:
39:
36:
31:
28:
25:
24:
20:
17:
195:
180:
168:
153:
130:
104:
84:
64:
45:
37:
32:
29:
26:
22:
21:
18:
15:
183:Lucas Brown
177:A maze game
156:Lucas Brown
133:Lucas Brown
191:California
164:California
141:California
107:California
91:California
71:California
52:California
181:Author:
154:Author:
131:Author:
81:FACTOR
187:Poway
160:Poway
137:Poway
87:Poway
67:Poway
48:Poway
185:of
158:of
135:of
193:.
189:,
166:.
162:,
143:.
139:,
93:.
89:,
73:.
69:,
54:.
50:,
121:1
117:1
113:1
Text is available under the Creative Commons Attribution-ShareAlike License. Additional terms may apply.