prgmW5LIST

prgmW5LIST
WRITTEN BY: Toothless the Night Fury
LANGUAGE: TI-BASIC
TOTAL BYTES: 253
VARS USED: A,B,C,D,E
SCREEN: Graph Screen

DelVar A
DelVar B
DelVar C
DelVar D
DelVar E
AxesOff
PlotsOff
FnOff
GridOff
0→Xmin
Ans→Xmax
94→Xmax
62→Ymax
Repeat K=105
ClrDraw
Horizontal 54
Vertical 32
Vertical 61
Text(0,1,"L1
Text(0,34,"L2
Text(0,63,"L3
0→E
For(A,0,2
(A=0)L1+(A=1)L2+(A=2)L3
For(B,1,8
IS>(E,E:
Text(10+6(B-1),30A+5(A≠0),Ans(E+C)
End
0→E
End
Repeat max(Ans={105,25,34
getKey→K
End
min(dim(L1)-8,max(0,C+sum(DeltaList(Ans={25,34→C
End
"