Tengwar learning program for the 84+CSE (and 84+CE). Only about 1/8 done

Code:

DCS
"5555555355555555555555555555555555533333333355555535555355553555535553333355535555553553553555555555355355355555555553333355555555555533355555555555535353555555555535535535555555335553555335555555555355555555555555533355555555555353555555555555553555555555
If 80>det([[20:Then:Disp "G[|e][t] Doo[r][s] CSE [t]o [r]|u[n] [t]hi[s]:","h[t][t][p]://[|d][|c][s].[|c][|e]m[|e][t][|e][|c]h.[n][|e][t]":Return:End
FnOff
PlotsOff
ClrDraw
ZStandard
ZSquare
ZDecimal
BorderColor 4
BackgroundOn White
AxesOff
Lbl 00
Menu("T[|e]h[t][|a][r] G[r]o|u[p][s]","Normal Sig[n][s](1-24)",01,"S[p][|e][|c]i[|a]l Sig[n][s](25-36)",02,"Vo|w[|e]l/O[t]h[|e][r] Sig[n][s]",03,"Wo[r][|d] A[|b][|b][r][|e]|vi[|a][t]io[n][s]",04,"Al[t]. Q|u[|e][n]y[|a] V[|a]l|u[|e][s]",05,"Q|ui[|c]k R[|e]f[|e][r][|e][n][|c][|e] T[|a][|b]l[|e]",06,"Q|ui[t]",07
Return
Lbl 07
ClrDraw
TextColor(Black
Text(68,48,"M[|a][|d][|e] [|b]y: Pieman7373, 2015"
Pause
Stop
Return
Lbl 01
Menu("Normal Sig[n][s](1-24)","T[|e]m[|a][r] 1:1,5,9,13,17,21",T1,"T[|e]m[|a][r] 2:2,6,10,14,18,27,",T2,"T[|e]m[|a][r] 3:3,7,11,15,19,23",T3,"T[|e]m[|a][r] 4:4,8,12,16,20,24",T4,"Return",00
Return
Lbl 02
Menu("S[p][|e][|c]i[|a]l Sig[n][s] (25-36)","25-28",S1,"29-32",S2,"33-36",S3,"Return",00
Return
Lbl 03
Menu("Vo|w[|e]l[s]/O[t]h[|e][r] Sig[n][s]","Vo|w[|e]l:[|a]",V1,"Vo|w[|e]l:[|e]",V2,"Vo|w[|e]l:i",V3,"Vo|w[|e]l:o",V4,"Vo|w[|e]l:|u",V5,"O[t]h[|e][r]",V6,"Return",00
Return
Lbl 04
Menu("Wo[r][|d] A[|b][|b][r][|e]|vi[|a][t]io[n][s]","[|a][n][|d]",W1,"[t]h[|e]",W2,"of",W3,"of [t]h[|e]",W4,"Return",00
Return
Lbl 05
Menu("Al[t][|e][r][n][|a][t][|e] Q|u[|e][n]y[|a] V[|a]l|u[|e][s]","5-8",Q1,"13-16",Q2,"26,27+6,28",Q3,"Return",00
Return
Lbl 06
ClrDraw
Line(~6.6,0,6.6,0,Black,1
Line(0,~4.1,0,4.1,Black,1
Line(1.65,~4.1,1.65,4.1,Black,1
Line(~1.65,~4.1,~1.65,4.1,Black,1
Line(3.3,~4.1,3.3,4.1,Black,1
Line(~3.3,~4.1,~3.3,4.1,Black,1
Line(4.95,~4.1,4.95,4.1,Black,1
Line(~4.95,~4.1,~4.95,4.1,Black,1
Line(6.6,~4.1,6.6,4.1,Black,1
Line(~6.6,~4.1,~6.6,4.1,Black,1
Line(6.6,2.05,~6.6,2.05,Black,1
Line(6.6,~2.05,~6.6,~2.05,Black,1
Line(6.6,4.1,~6.6,4.1,Black,1
Line(6.6,~4.1,~6.6,~4.1,Black,1
TextColor(DarkGray
Text(0,14,1
Text(0,47,5
Text(0,80,9
Text(0,109,13
Text(0,142,17
Text(0,175,23
Text(0,207,28
Text(0,240,33
Text(41,14,2
Text(41,42,6
Text(41,76,10
Text(41,109,14
Text(41,142,18
Text(41,175,25
Text(41,207,29
Text(41,240,34
Text(82,14,3
Text(82,47,7
Text(82,76,11
Text(82,109,15
Text(82,142,21
Text(82,175,26
Text(82,207,30
Text(82,240,35
Text(123,14,4
Text(123,47,8
Text(123,76,12
Text(123,109,16
Text(123,142,22
Text(123,175,27
Text(123,207,"--"
Text(123,240,36
TextColor(Black
Text(26,7,"[t],[t]"
Text(26,40,"[|d],[|d]"
Text(26,76,"[t]h"
Text(26,109,"[|d]h"
Text(26,146,"[n]"
Text(26,170,"[|c]-y"
Text(26,207,"lh"
Text(26,244,"h"
Text(67,8,"[p],[p]"
Text(67,40,"[|b],[|b]"
Text(67,74,"f,f"
Text(67,107,"|v,|v"
Text(67,145,"m"
Text(67,175,"[r][r]"
Text(67,211,"[s]"
Text(67,240,"|wh"
Text(108,3,"[|c]h,k"
Text(108,40,"j,g"
Text(108,76,"[s]h"
Text(108,109,"[z]h"
Text(108,146,"[r]"
Text(108,175,"[r]h"
Text(108,211,"[z]"
Text(108,242,"y"
Text(149,10,"k"
Text(149,46,"g"
Text(149,70,"kh|w"
Text(149,107,"gh"
Text(149,146,"|w"
Text(149,179,"l"
Text(148,211,"[s]"
Text(148,243,"|w"
Line(~6.6,.6833,6.6,.6833,LtGray,1
Line(~6.6,2(.6833),6.6,2(.6833),LtGray,1
Line(~6.6,4(.6833),6.6,4(.6833),LtGray,1
Line(~6.6,5(.6833),6.6,5(.6833),LtGray,1
Line(~6.6,~.6833,6.6,~.6833,LtGray,1
Line(~6.6,~2(.6833),6.6,~2(.6833),LtGray,1
Line(~6.6,~4(.6833),6.6,~4(.6833),LtGray,1
Line(~6.6,~5(.6833),6.6,~5(.6833),LtGray,1
Pxl-On(16,13,Red
Pxl-On(17,13,Red
Pxl-On(18,13,Red
Pxl-On(19,13,Red
Pxl-On(20,13,Red
Pxl-On(21,13,Red
Pxl-On(22,13,Red
Pxl-On(23,13,Red
Pxl-On(24,13,Red
Pxl-On(25,13,Red
Pxl-On(26,13,Red
Pxl-On(18,14,Red
Pxl-On(17,15,Red
Pxl-On(17,16,Red
Pxl-On(17,17,Red
Pxl-On(17,18,Red
Pxl-On(19,19,Red
Pxl-On(18,19,Red
Pxl-On(20,19,Red
Pxl-On(21,17,Red
Pxl-On(21,18,Red
TextColor(Black
Pxl-On(57,13,Red
Pxl-On(58,13,Red
Pxl-On(59,13,Red
Pxl-On(60,13,Red
Pxl-On(61,13,Red
Pxl-On(62,13,Red
Pxl-On(63,13,Red
Pxl-On(64,13,Red
Pxl-On(65,13,Red
Pxl-On(66,13,Red
Pxl-On(67,13,Red
Pxl-On(59,14,Red
Pxl-On(58,15,Red
Pxl-On(58,16,Red
Pxl-On(58,17,Red
Pxl-On(59,18,Red
Pxl-On(60,18,Red
Pxl-On(61,18,Red
Pxl-On(62,17,Red
Pxl-On(63,14,Red
Pxl-On(63,15,Red
Pxl-On(63,16,Red
Pxl-On(63,17,Red
Pxl-On(63,18,Red
Pxl-On(63,19,Red
TextColor(Black
Pxl-On(98,15,Red
Pxl-On(99,14,Red
Pxl-On(100,14,Red
Pxl-On(101,14,Red
Pxl-On(102,14,Red
Pxl-On(103,15,Red
Pxl-On(103,16,Red
Pxl-On(103,17,Red
Pxl-On(102,18,Red
Pxl-On(98,19,Red
Pxl-On(99,19,Red
Pxl-On(100,19,Red
Pxl-On(101,19,Red
Pxl-On(102,19,Red
Pxl-On(103,19,Red
Pxl-On(104,19,Red
Pxl-On(105,19,Red
Pxl-On(106,19,Red
Pxl-On(107,19,Red
Pxl-On(108,19,Red
TextColor(Black
Pxl-On(139,14,Red
Pxl-On(139,15,Red
Pxl-On(139,16,Red
Pxl-On(139,17,Red
Pxl-On(139,18,Red
Pxl-On(139,19,Red
Pxl-On(139,20,Red
Pxl-On(140,20,Red
Pxl-On(141,20,Red
Pxl-On(142,20,Red
Pxl-On(143,20,Red
Pxl-On(144,20,Red
Pxl-On(145,20,Red
Pxl-On(146,20,Red
Pxl-On(147,20,Red
Pxl-On(148,20,Red
Pxl-On(149,20,Red
Pxl-On(141,15,Red
Pxl-On(140,16,Red
Pxl-On(142,15,Red
Pxl-On(143,15,Red
Pxl-On(144,16,Red
Pxl-On(144,17,Red
Pxl-On(144,18,Red
Pxl-On(143,19,Red
TextColor(Black
Pxl-On(139,44,Red
Pxl-On(139,44,Red
Pxl-On(139,45,Red
Pxl-On(139,46,Red
Pxl-On(139,47,Red
Pxl-On(139,48,Red
Pxl-On(139,49,Red
Pxl-On(139,50,Red
Pxl-On(139,51,Red
Pxl-On(139,52,Red
Pxl-On(139,53,Red
Pxl-On(139,54,Red
Pxl-On(140,54,Red
Pxl-On(141,54,Red
Pxl-On(142,54,Red
Pxl-On(143,54,Red
Pxl-On(144,54,Red
Pxl-On(145,54,Red
Pxl-On(146,54,Red
Pxl-On(147,54,Red
Pxl-On(148,54,Red
Pxl-On(149,54,Red
Pxl-On(140,46,Red
Pxl-On(141,45,Red
Pxl-On(142,45,Red
Pxl-On(143,45,Red
Pxl-On(144,46,Red
Pxl-On(144,47,Red
Pxl-On(144,48,Red
Pxl-On(143,49,Red
Pxl-On(142,49,Red
Pxl-On(141,49,Red
Pxl-On(140,50,Red
Pxl-On(144,50,Red
Pxl-On(144,51,Red
Pxl-On(144,52,Red
Pxl-On(143,53,Red
TextColor(Black
Pxl-On(99,54,Red
Pxl-On(100,54,Red
Pxl-On(101,54,Red
Pxl-On(102,54,Red
Pxl-On(103,54,Red
Pxl-On(104,54,Red
Pxl-On(105,54,Red
Pxl-On(106,54,Red
Pxl-On(107,54,Red
Pxl-On(108,54,Red
Pxl-On(99,46,Red
Pxl-On(100,45,Red
Pxl-On(101,45,Red
Pxl-On(102,45,Red
Pxl-On(103,46,Red
Pxl-On(103,47,Red
Pxl-On(103,48,Red
Pxl-On(102,49,Red
Pxl-On(101,49,Red
Pxl-On(100,49,Red
Pxl-On(99,50,Red
Pxl-On(103,50,Red
Pxl-On(103,51,Red
Pxl-On(103,52,Red
Pxl-On(102,53,Red
TextColor(Black
Pxl-On(57,45,Red
Pxl-On(58,45,Red
Pxl-On(59,45,Red
Pxl-On(60,45,Red
Pxl-On(61,45,Red
Pxl-On(62,45,Red
Pxl-On(63,45,Red
Pxl-On(64,45,Red
Pxl-On(65,45,Red
Pxl-On(66,45,Red
Pxl-On(67,45,Red
Pxl-On(63,46,Red
Pxl-On(63,47,Red
Pxl-On(63,48,Red
Pxl-On(63,49,Red
Pxl-On(63,50,Red
Pxl-On(63,51,Red
Pxl-On(63,52,Red
Pxl-On(63,53,Red
Pxl-On(63,54,Red
Pxl-On(63,55,Red
Pxl-On(59,46,Red
Pxl-On(58,47,Red
Pxl-On(58,48,Red
Pxl-On(58,49,Red
Pxl-On(59,50,Red
Pxl-On(60,50,Red
Pxl-On(61,50,Red
Pxl-On(62,49,Red
Pxl-On(58,51,Red
Pxl-On(58,52,Red
Pxl-On(58,53,Red
Pxl-On(59,54,Red
Pxl-On(60,54,Red
Pxl-On(61,54,Red
Pxl-On(62,53,Red
TextColor(Black
Pxl-On(16,44,Red
Pxl-On(17,44,Red
Pxl-On(18,44,Red
Pxl-On(19,44,Red
Pxl-On(20,44,Red
Pxl-On(21,44,Red
Pxl-On(22,44,Red
Pxl-On(23,44,Red
Pxl-On(24,44,Red
Pxl-On(25,44,Red
Pxl-On(26,44,Red
Pxl-On(18,45,Red
Pxl-On(17,46,Red
Pxl-On(17,47,Red
Pxl-On(17,48,Red
Pxl-On(17,49,Red
Pxl-On(18,50,Red
Pxl-On(19,50,Red
Pxl-On(20,50,Red
Pxl-On(21,49,Red
Pxl-On(17,51,Red
Pxl-On(17,52,Red
Pxl-On(17,53,Red
Pxl-On(17,54,Red
Pxl-On(18,55,Red
Pxl-On(19,55,Red
Pxl-On(20,55,Red
Pxl-On(21,54,Red
TextColor(Black
Pxl-On(17,80,Red
Pxl-On(18,80,Red
Pxl-On(19,80,Red
Pxl-On(20,80,Red
Pxl-On(21,80,Red
Pxl-On(22,80,Red
Pxl-On(23,80,Red
Pxl-On(24,80,Red
Pxl-On(25,80,Red
Pxl-On(26,80,Red
Pxl-On(23,81,Red
Pxl-On(22,82,Red
Pxl-On(22,83,Red
Pxl-On(22,84,Red
Pxl-On(23,85,Red
Pxl-On(24,85,Red
Pxl-On(25,85,Red
Pxl-On(26,84,Red
Pxl-On(26,83,Red
TextColor(Black
Pxl-On(58,80,Red
Pxl-On(59,80,Red
Pxl-On(60,80,Red
Pxl-On(61,80,Red
Pxl-On(62,80,Red
Pxl-On(63,80,Red
Pxl-On(64,80,Red
Pxl-On(65,80,Red
Pxl-On(66,80,Red
Pxl-On(67,80,Red
Pxl-On(67,81,Red
Pxl-On(67,82,Red
Pxl-On(67,83,Red
Pxl-On(67,84,Red
Pxl-On(67,85,Red
Pxl-On(64,81,Red
Pxl-On(63,82,Red
Pxl-On(63,83,Red
Pxl-On(63,84,Red
Pxl-On(64,85,Red
Pxl-On(65,85,Red
Pxl-On(66,84,Red
TextColor(Black
Pxl-On(98,85,Red
Pxl-On(99,85,Red
Pxl-On(100,85,Red
Pxl-On(101,85,Red
Pxl-On(102,85,Red
Pxl-On(103,85,Red
Pxl-On(104,85,Red
Pxl-On(105,85,Red
Pxl-On(106,85,Red
Pxl-On(107,85,Red
Pxl-On(108,85,Red
Pxl-On(107,84,Red
Pxl-On(108,83,Red
Pxl-On(108,82,Red
Pxl-On(108,81,Red
Pxl-On(108,80,Red
Pxl-On(107,79,Red
Pxl-On(106,79,Red
Pxl-On(105,79,Red
Pxl-On(104,80,Red
Pxl-On(104,81,Red
TextColor(Black
Pxl-On(139,85,Red
Pxl-On(140,85,Red
Pxl-On(141,85,Red
Pxl-On(142,85,Red
Pxl-On(143,85,Red
Pxl-On(144,85,Red
Pxl-On(145,85,Red
Pxl-On(146,85,Red
Pxl-On(147,85,Red
Pxl-On(148,85,Red
Pxl-On(149,85,Red
Pxl-On(144,79,Red
Pxl-On(144,80,Red
Pxl-On(144,81,Red
Pxl-On(144,82,Red
Pxl-On(144,83,Red
Pxl-On(144,84,Red
Pxl-On(145,81,Red
Pxl-On(146,80,Red
Pxl-On(147,80,Red
Pxl-On(148,80,Red
Pxl-On(149,81,Red
Pxl-On(149,82,Red
Pxl-On(149,83,Red
Pxl-On(148,84,Red
TextColor(Black
Pxl-On(139,120,Red
Pxl-On(140,120,Red
Pxl-On(141,120,Red
Pxl-On(142,120,Red
Pxl-On(143,120,Red
Pxl-On(144,120,Red
Pxl-On(145,120,Red
Pxl-On(146,120,Red
Pxl-On(147,120,Red
Pxl-On(148,120,Red
Pxl-On(149,120,Red
Pxl-On(144,110,Red
Pxl-On(144,111,Red
Pxl-On(144,112,Red
Pxl-On(144,113,Red
Pxl-On(144,114,Red
Pxl-On(144,115,Red
Pxl-On(144,116,Red
Pxl-On(144,117,Red
Pxl-On(144,118,Red
Pxl-On(144,119,Red
Pxl-On(145,112,Red
Pxl-On(146,111,Red
Pxl-On(147,111,Red
Pxl-On(148,111,Red
Pxl-On(149,112,Red
Pxl-On(149,113,Red
Pxl-On(149,114,Red
Pxl-On(145,116,Red
Pxl-On(146,115,Red
Pxl-On(147,115,Red
Pxl-On(148,115,Red
Pxl-On(149,116,Red
Pxl-On(149,117,Red
Pxl-On(149,118,Red
Pxl-On(148,119,Red
TextColor(Black
Pxl-On(98,120,Red
Pxl-On(99,120,Red
Pxl-On(100,120,Red
Pxl-On(101,120,Red
Pxl-On(102,120,Red
Pxl-On(103,120,Red
Pxl-On(104,120,Red
Pxl-On(105,120,Red
Pxl-On(106,120,Red
Pxl-On(107,120,Red
Pxl-On(108,120,Red
Pxl-On(107,119,Red
Pxl-On(108,118,Red
Pxl-On(108,117,Red
Pxl-On(108,116,Red
Pxl-On(105,115,Red
Pxl-On(106,115,Red
Pxl-On(107,115,Red
Pxl-On(104,116,Red
Pxl-On(108,114,Red
Pxl-On(108,113,Red
Pxl-On(108,112,Red
Pxl-On(107,111,Red
Pxl-On(106,111,Red
Pxl-On(105,111,Red
Pxl-On(104,112,Red
TextColor(Black
Pxl-On(57,111,Red
Pxl-On(58,111,Red
Pxl-On(59,111,Red
Pxl-On(60,111,Red
Pxl-On(61,111,Red
Pxl-On(62,111,Red
Pxl-On(63,111,Red
Pxl-On(64,111,Red
Pxl-On(65,111,Red
Pxl-On(66,111,Red
Pxl-On(67,111,Red
Pxl-On(67,112,Red
Pxl-On(67,113,Red
Pxl-On(67,114,Red
Pxl-On(67,115,Red
Pxl-On(67,116,Red
Pxl-On(67,117,Red
Pxl-On(67,118,Red
Pxl-On(67,119,Red
Pxl-On(67,120,Red
Pxl-On(63,112,Red
Pxl-On(62,113,Red
Pxl-On(62,114,Red
Pxl-On(62,115,Red
Pxl-On(63,116,Red
Pxl-On(64,116,Red
Pxl-On(65,116,Red
Pxl-On(66,115,Red
Pxl-On(62,117,Red
Pxl-On(62,118,Red
Pxl-On(62,119,Red
Pxl-On(63,120,Red
Pxl-On(64,120,Red
Pxl-On(65,120,Red
Pxl-On(66,119,Red
TextColor(Black
Pxl-On(16,111,Red
Pxl-On(17,111,Red
Pxl-On(18,111,Red
Pxl-On(19,111,Red
Pxl-On(20,111,Red
Pxl-On(21,111,Red
Pxl-On(22,111,Red
Pxl-On(23,111,Red
Pxl-On(24,111,Red
Pxl-On(25,111,Red
Pxl-On(26,111,Red
Pxl-On(23,112,Red
Pxl-On(22,113,Red
Pxl-On(22,114,Red
Pxl-On(22,115,Red
Pxl-On(23,116,Red
Pxl-On(24,116,Red
Pxl-On(25,116,Red
Pxl-On(26,115,Red
Pxl-On(22,117,Red
Pxl-On(22,118,Red
Pxl-On(22,119,Red
Pxl-On(23,120,Red
Pxl-On(24,120,Red
Pxl-On(25,120,Red
Pxl-On(26,119,Red
TextColor(Black
Pxl-On(18,143,Red
Pxl-On(19,143,Red
Pxl-On(20,143,Red
Pxl-On(21,143,Red
Pxl-On(22,143,Red
Pxl-On(23,143,Red
Pxl-On(24,143,Red
Pxl-On(20,144,Red
Pxl-On(19,145,Red
Pxl-On(19,146,Red
Pxl-On(19,147,Red
Pxl-On(19,148,Red
Pxl-On(20,149,Red
Pxl-On(21,149,Red
Pxl-On(22,149,Red
Pxl-On(23,149,Red
Pxl-On(24,148,Red
Pxl-On(19,150,Red
Pxl-On(19,151,Red
Pxl-On(19,152,Red
Pxl-On(19,153,Red
Pxl-On(20,154,Red
Pxl-On(21,154,Red
Pxl-On(22,154,Red
Pxl-On(23,154,Red
Pxl-On(24,153,Red
Pxl-On(24,147,Red
Pxl-On(24,152,Red
TextColor(Black
Pxl-On(59,143,Red
Pxl-On(60,143,Red
Pxl-On(61,143,Red
Pxl-On(62,143,Red
Pxl-On(63,143,Red
Pxl-On(64,143,Red
Pxl-On(65,143,Red
Pxl-On(65,144,Red
Pxl-On(65,145,Red
Pxl-On(65,146,Red
Pxl-On(65,147,Red
Pxl-On(65,148,Red
Pxl-On(65,149,Red
Pxl-On(65,150,Red
Pxl-On(65,151,Red
Pxl-On(65,152,Red
Pxl-On(65,153,Red
Pxl-On(65,154,Red
Pxl-On(65,155,Red
Pxl-On(61,144,Red
Pxl-On(60,145,Red
Pxl-On(60,146,Red
Pxl-On(60,147,Red
Pxl-On(60,148,Red
Pxl-On(61,149,Red
Pxl-On(62,149,Red
Pxl-On(63,149,Red
Pxl-On(64,148,Red
Pxl-On(60,150,Red
Pxl-On(60,151,Red
Pxl-On(60,152,Red
Pxl-On(60,153,Red
Pxl-On(61,154,Red
Pxl-On(62,154,Red
Pxl-On(63,154,Red
Pxl-On(64,153,Red
TextColor(Black
Pxl-On(99,146,Red
Pxl-On(100,146,Red
Pxl-On(101,146,Red
Pxl-On(102,146,Red
Pxl-On(103,146,Red
Pxl-On(104,146,Red
Pxl-On(105,146,Red
Pxl-On(106,146,Red
Pxl-On(101,147,Red
Pxl-On(100,148,Red
Pxl-On(100,149,Red
Pxl-On(100,150,Red
Pxl-On(100,151,Red
Pxl-On(101,152,Red
Pxl-On(102,152,Red
Pxl-On(103,152,Red
Pxl-On(104,152,Red
Pxl-On(105,151,Red
Pxl-On(106,150,Red
Pxl-On(106,149,Red
TextColor(Black
Pxl-On(140,146,Red
Pxl-On(141,146,Red
Pxl-On(142,146,Red
Pxl-On(143,146,Red
Pxl-On(144,146,Red
Pxl-On(145,146,Red
Pxl-On(146,146,Red
Pxl-On(147,146,Red
Pxl-On(147,147,Red
Pxl-On(147,148,Red
Pxl-On(147,149,Red
Pxl-On(147,150,Red
Pxl-On(147,151,Red
Pxl-On(147,152,Red
Pxl-On(147,153,Red
Pxl-On(142,147,Red
Pxl-On(141,148,Red
Pxl-On(141,149,Red
Pxl-On(141,150,Red
Pxl-On(141,151,Red
Pxl-On(142,152,Red
Pxl-On(143,152,Red
Pxl-On(144,152,Red
Pxl-On(145,152,Red
Pxl-On(146,151,Red
TextColor(Black
Pxl-On(142,176,Red
Pxl-On(141,177,Red
Pxl-On(141,178,Red
Pxl-On(141,179,Red
Pxl-On(141,180,Red
Pxl-On(141,181,Red
Pxl-On(141,182,Red
Pxl-On(141,183,Red
Pxl-On(141,184,Red
Pxl-On(140,185,Red
Pxl-On(142,179,Red
Pxl-On(142,180,Red
Pxl-On(143,178,Red
Pxl-On(144,177,Red
Pxl-On(145,177,Red
Pxl-On(146,177,Red
Pxl-On(147,178,Red
Pxl-On(148,179,Red
Pxl-On(148,180,Red
Pxl-On(148,181,Red
Pxl-On(148,182,Red
Pxl-On(147,183,Red
Pxl-On(146,183,Red
TextColor(Black
Pxl-On(98,180,Red
Pxl-On(98,181,Red
Pxl-On(99,182,Red
Pxl-On(100,182,Red
Pxl-On(101,182,Red
Pxl-On(102,182,Red
Pxl-On(102,181,Red
Pxl-On(103,180,Red
Pxl-On(104,179,Red
Pxl-On(105,178,Red
Pxl-On(106,177,Red
Pxl-On(107,177,Red
Pxl-On(108,178,Red
Pxl-On(97,185,Red
Pxl-On(98,186,Red
Pxl-On(99,186,Red
Pxl-On(100,185,Red
Pxl-On(101,184,Red
Pxl-On(102,183,Red
Pxl-On(103,182,Red
Pxl-On(104,181,Red
Pxl-On(105,180,Red
Pxl-On(106,179,Red
Pxl-On(107,179,Red
Pxl-On(108,180,Red
TextColor(Black
Pxl-On(57,180,Red
Pxl-On(57,181,Red
Pxl-On(58,182,Red
Pxl-On(59,182,Red
Pxl-On(60,182,Red
Pxl-On(61,182,Red
Pxl-On(56,185,Red
Pxl-On(57,186,Red
Pxl-On(58,186,Red
Pxl-On(59,185,Red
Pxl-On(60,184,Red
Pxl-On(61,183,Red
Pxl-On(62,182,Red
Pxl-On(63,181,Red
Pxl-On(64,180,Red
Pxl-On(65,179,Red
Pxl-On(66,179,Red
Pxl-On(67,180,Red
TextColor(Black
Pxl-On(18,185,Red
Pxl-On(19,185,Red
Pxl-On(20,185,Red
Pxl-On(21,185,Red
Pxl-On(22,185,Red
Pxl-On(23,185,Red
Pxl-On(24,185,Red
Pxl-On(23,184,Red
Pxl-On(24,183,Red
Pxl-On(24,182,Red
Pxl-On(24,181,Red
Pxl-On(24,180,Red
Pxl-On(20,179,Red
Pxl-On(21,179,Red
Pxl-On(22,179,Red
Pxl-On(23,179,Red
Pxl-On(19,180,Red
Pxl-On(18,181,Red
TextColor(Black
Pxl-On(19,209,Red
Pxl-On(18,210,Red
Pxl-On(18,211,Red
Pxl-On(18,212,Red
Pxl-On(18,213,Red
Pxl-On(18,214,Red
Pxl-On(18,215,Red
Pxl-On(18,216,Red
Pxl-On(18,217,Red
Pxl-On(18,218,Red
Pxl-On(17,219,Red
Pxl-On(19,212,Red
Pxl-On(19,213,Red
Pxl-On(20,211,Red
Pxl-On(21,211,Red
Pxl-On(22,212,Red
Pxl-On(22,213,Red
Pxl-On(22,214,Red
Pxl-On(22,215,Red
Pxl-On(22,216,Red
Pxl-On(23,217,Red
Pxl-On(24,217,Red
Pxl-On(25,213,Red
Pxl-On(25,214,Red
Pxl-On(25,215,Red
Pxl-On(25,216,Red
Pxl-On(24,212,Red
TextColor(Black
Pxl-On(58,208,Red
Pxl-On(58,207,Red
Pxl-On(59,206,Red
Pxl-On(60,205,Red
Pxl-On(61,205,Red
Pxl-On(62,204,Red
Pxl-On(63,204,Red
Pxl-On(64,204,Red
Pxl-On(65,204,Red
Pxl-On(66,205,Red
Pxl-On(66,206,Red
Pxl-On(66,207,Red
Pxl-On(66,208,Red
Pxl-On(65,209,Red
Pxl-On(64,209,Red
Pxl-On(63,209,Red
Pxl-On(62,208,Red
Pxl-On(64,213
Pxl-On(63,212
Pxl-On(62,212
Pxl-On(61,212
Pxl-On(60,213
Pxl-On(61,214
Pxl-On(62,214
Pxl-On(63,214
Pxl-On(60,216
Pxl-On(61,216
Pxl-On(62,216
Pxl-On(63,216
Pxl-On(64,216
Pxl-On(60,217
Pxl-On(62,217
Pxl-On(61,218
Pxl-On(63,218
Pxl-On(64,218
Pxl-On(62,222,Red
Pxl-On(61,221,Red
Pxl-On(60,221,Red
Pxl-On(59,221,Red
Pxl-On(58,222,Red
Pxl-On(58,223,Red
Pxl-On(58,224,Red
Pxl-On(58,225,Red
Pxl-On(59,226,Red
Pxl-On(60,226,Red
Pxl-On(61,226,Red
Pxl-On(62,226,Red
Pxl-On(63,225,Red
Pxl-On(64,225,Red
Pxl-On(65,224,Red
Pxl-On(66,222,Red
Pxl-On(66,223,Red
TextColor(Black
Pxl-On(98,207,Red
Pxl-On(98,206,Red
Pxl-On(99,205,Red
Pxl-On(100,205,Red
Pxl-On(101,204,Red
Pxl-On(102,204,Red
Pxl-On(103,204,Red
Pxl-On(104,205,Red
Pxl-On(104,206,Red
Pxl-On(104,207,Red
Pxl-On(102,208,Red
Pxl-On(103,208,Red
Pxl-On(105,204,Red
Pxl-On(106,204,Red
Pxl-On(107,205,Red
Pxl-On(107,206,Red
Pxl-On(107,207,Red
Pxl-On(106,208,Red
Pxl-On(102,212
Pxl-On(103,212
Pxl-On(104,212
Pxl-On(105,213
Pxl-On(101,213
Pxl-On(102,214
Pxl-On(103,214
Pxl-On(104,214
Pxl-On(105,216
Pxl-On(101,216
Pxl-On(102,216
Pxl-On(103,216
Pxl-On(104,216
Pxl-On(101,217
Pxl-On(102,218
Pxl-On(103,217
Pxl-On(104,218
Pxl-On(105,218
Pxl-On(99,221,Red
Pxl-On(98,222,Red
Pxl-On(98,223,Red
Pxl-On(98,224,Red
Pxl-On(99,225,Red
Pxl-On(100,225,Red
Pxl-On(101,222,Red
Pxl-On(101,223,Red
Pxl-On(101,224,Red
Pxl-On(102,221,Red
Pxl-On(102,225,Red
Pxl-On(103,225,Red
Pxl-On(104,225,Red
Pxl-On(105,224,Red
Pxl-On(106,224,Red
Pxl-On(107,222,Red
Pxl-On(107,223,Red
TextColor(Black
Pxl-On(141,206,Red
Pxl-On(141,207,Red
Pxl-On(141,208,Red
Pxl-On(141,209,Red
Pxl-On(142,205,Red
Pxl-On(143,204,Red
Pxl-On(144,204,Red
Pxl-On(145,204,Red
Pxl-On(146,205,Red
Pxl-On(147,206,Red
Pxl-On(147,207,Red
Pxl-On(147,208,Red
Pxl-On(147,209,Red
Pxl-On(143,212
Pxl-On(144,212
Pxl-On(145,212
Pxl-On(146,213
Pxl-On(142,213
Pxl-On(143,214
Pxl-On(144,214
Pxl-On(145,214
Pxl-On(142,216
Pxl-On(143,216
Pxl-On(144,216
Pxl-On(145,216
Pxl-On(146,216
Pxl-On(142,217
Pxl-On(143,218
Pxl-On(144,217
Pxl-On(145,218
Pxl-On(146,218
Pxl-On(141,221,Red
Pxl-On(141,222,Red
Pxl-On(141,223,Red
Pxl-On(141,224,Red
Pxl-On(142,225,Red
Pxl-On(143,226,Red
Pxl-On(144,226,Red
Pxl-On(145,226,Red
Pxl-On(146,225,Red
Pxl-On(147,221,Red
Pxl-On(147,222,Red
Pxl-On(147,223,Red
Pxl-On(147,224,Red
TextColor(Black
Pxl-On(141,246,Red
Pxl-On(141,247,Red
Pxl-On(141,248,Red
Pxl-On(142,245,Red
Pxl-On(142,249,Red
Pxl-On(143,244,Red
Pxl-On(144,244,Red
Pxl-On(145,244,Red
Pxl-On(143,250,Red
Pxl-On(144,250,Red
Pxl-On(145,250,Red
Pxl-On(146,245,Red
Pxl-On(146,249,Red
Pxl-On(147,246,Red
Pxl-On(147,247,Red
Pxl-On(147,248,Red
TextColor(Black
Pxl-On(99,243,Red
Pxl-On(99,244,Red
Pxl-On(99,245,Red
Pxl-On(100,246,Red
Pxl-On(101,247,Red
Pxl-On(102,247,Red
Pxl-On(103,247,Red
Pxl-On(103,248,Red
Pxl-On(104,248,Red
Pxl-On(105,249,Red
Pxl-On(106,250,Red
Pxl-On(106,251,Red
Pxl-On(103,246,Red
Pxl-On(104,245,Red
Pxl-On(104,246,Red
Pxl-On(105,244,Red
Pxl-On(106,243,Red
Pxl-On(106,242,Red
TextColor(Black
Pxl-On(57,247,Red
Pxl-On(58,247,Red
Pxl-On(59,247,Red
Pxl-On(60,247,Red
Pxl-On(61,247,Red
Pxl-On(62,247,Red
Pxl-On(63,247,Red
Pxl-On(64,247,Red
Pxl-On(65,247,Red
Pxl-On(64,246,Red
Pxl-On(63,245,Red
Pxl-On(63,244,Red
Pxl-On(64,243,Red
Pxl-On(65,243,Red
Pxl-On(66,244,Red
Pxl-On(66,245,Red
Pxl-On(66,246,Red
Pxl-On(66,247,Red
Pxl-On(66,248,Red
Pxl-On(66,249,Red
Pxl-On(66,250,Red
Pxl-On(66,251,Red
TextColor(Black
Pxl-On(17,244,Red
Pxl-On(17,245,Red
Pxl-On(18,246,Red
Pxl-On(19,246,Red
Pxl-On(20,247,Red
Pxl-On(21,247,Red
Pxl-On(22,247,Red
Pxl-On(22,248,Red
Pxl-On(23,248,Red
Pxl-On(24,249,Red
Pxl-On(25,250,Red
Pxl-On(25,251,Red
Pxl-On(23,246,Red
Pxl-On(24,245,Red
Pxl-On(25,244,Red
Pxl-On(25,243,Red
TextColor(Black
Pause
Goto 00
Return
Lbl W1
ClrDraw
TextColor(Gray
Text(0,0,"Word
Text(14,0,"Abbreviations:
TextColor(Black
Text(~1,12,120,"and
Line(~3,1,~3,~4,2,Red
Line(~2.96,1,~2.96,~4,2,Red
Line(~2.94,1,~2.94,~4,2,Red
Line(~3,~1.3,2,~1.3,2,Red
Line(~3,~1.34,2,~1.34,2,Red
Line(~2.8,1.4,2,1.4,2,Red
Line(~2.8,1.36,2,1.36,2,Red
Pt-On(~2.8,~.15,Red
Pt-On(~2.8,~.3,Red
Pt-On(~2.8,0,Red
Pt-On(~2.65,.3,Red
Pt-On(~2.65,.15,Red
Pt-On(~2.5,.45,Red
Pt-On(~2.35,.6,Red
Pt-On(~2.2,.75,Red
Pt-On(~2.05,.75,Red
Pt-On(~1.9,.75,Red
Pt-On(~1.75,.75,Red
Pt-On(~1.6,.75,Red
Pt-On(~1.45,.75,Red
Pt-On(~1.3,.75,Red
Pt-On(~1.15,.75,Red
Pt-On(~1,.6,Red
Pt-On(~.85,.45,Red
Pt-On(~.7,.3,Red
Pt-On(~.7,.15,Red
Pt-On(~.4,.15,Red
Pt-On(~.4,.3,Red
Pt-On(~.25,.45,Red
Pt-On(~.1,.6,Red
Pt-On(.05,.75,Red
Pt-On(.2,.75,Red
Pt-On(.35,.75,Red
Pt-On(.5,.75,Red
Pt-On(.65,.75,Red
Pt-On(.8,.75,Red
Pt-On(.95,.75,Red
Pt-On(1.1,.75,Red
Pt-On(1.25,.75,Red
Pt-On(1.4,.6,Red
Pt-On(1.55,.45,Red
Pt-On(1.7,.3,Red
Pt-On(1.7,.15,Red
Pt-On(~.55,0,Red
Pt-On(~1,~1.2,Red
Pt-On(~.55,~.15,Red
Pt-On(~.55,~.3,Red
Pt-On(~.55,~.45,Red
Pt-On(~.55,~.6,Red
Pt-On(~.7,~.75,Red
Pt-On(~.7,~.9,Red
Pt-On(~.85,~1.05,Red
Pt-On(~1.15,~1.2,Red
Pt-On(1.85,0,Red
Pt-On(1.85,~.15,Red
Pt-On(1.85,~.3,Red
Pt-On(1.85,~.45,Red
Pt-On(1.85,~.6,Red
Pt-On(1.7,~.75,Red
Pt-On(1.7,~.9,Red
Pt-On(1.55,~1.05,Red
Pt-On(1.4,~1.2,Red
Pt-On(1.25,~1.2,Red
Pause
ClrDraw
Goto 04
Return
Lbl W2
ClrDraw
TextColor(Gray
Text(0,0,"Word
Text(14,0,"Abbreviations
TextColor(Black
Text(~1,12,120,"the
Line(~3,2,~3,~4,2,Red
Line(~2.96,2,~2.96,~4,2,Red
Pt-On(~2.8,0,Red
Pt-On(~2.65,.15,Red
Pt-On(~2.65,.3,Red
Pt-On(~2.5,.45,Red
Pt-On(~2.35,.6,Red
Pt-On(~2.2,.75,Red
Pt-On(~2.8,~.15,Red
Pt-On(~2.05,.75,Red
Pt-On(~1.9,.75,Red
Pt-On(~1.75,.75,Red
Pt-On(~1.6,.75,Red
Pt-On(~1.45,.75,Red
Pt-On(~1.3,.75,Red
Pause
Goto 04
Return
This seems look a cool idea, do you have any screenshots you can share?
yes, can't figure out how to post them though
upload the image to the internet using something like this, and then use BB code to add it in your posts using the code

Code:
 [img] -image url here- [/img]
imgur or flickr are good choices.
I'm trying to upload the screenshots, but i am having issues.
So, i haven't worked on this in a while, but i am shifting my focus towards the CE, so i am going to be continuing this project on that calculator. This program is actually decently fast on the CE, so i am happy. I will edit this post with screenshots shortly! Very Happy




Quick reference table

Quote:
(1:19:25 PM) saxjax_: [Pieman7373] Weregoose: can you make a post in my Tengwar program thread with your suggestion, because otherwise, i will most likely forget it. ;D


Quote:
(12:07:17 PM) saxjax_: [PT_] Maybe you could use a list with L1 = x coordinates and L2 = y coordinates?
(12:07:28 PM) saxjax_: [PT_] Then use a very simple For loop to display them all


Quote:
(12:12:22 PM) saxjax_: [Nik] RLE is a way to encode pictures. Instead of 111110000011111 for 5 pixels on, 5 pixels off, 5 pixels on, you write 555 and immidiately know that information. Basically you replace similar pixels with only a number representing how many of them are there.


Quote:
(12:14:48 PM) Weregoose: A lot of these symbols are pretty similar, differing by just a repetition of a stroke or an extra line
(12:15:11 PM) Weregoose: Instead of a different routine for each glyph, maybe decompose them into a series of "stamps" with the occasional hard-coded modifiers
I think i am going to try and use PT_'s idea, but i don't entirely understand For( loops... :'(

EDIT: I feel like using For( loops to parse the data from two strings would be a lot slower than what i currently have, even if it does save space...
Pieman7373 wrote:
I think i am going to try and use PT_'s idea, but i don't entirely understand For( loops... :'(

Okay, For loops in ti-basic are very simple. Let me try to explain them nicely and correctly Smile
A For loop is a loop that increments a variable every time it goes round. There are up to 4 arguments the For() command can have which go as follows:
    For(A,B,C,D)
    A is the variable to increment. This will be a variable such as 'A' or 'B' or whatever.

    B is the initial value of the variable (the value the variable will have at the beginning or the first time the loop goes round).

    D is the increment of the variable (which is how much will be added to the variable every time it goes round).

    C is the final value after which the loop will terminate. This one is a little more finicky because if the final value is not an integer number of increments away from the initial value, then it will terminate the loop at the last increment value before it (it will not go over once).

This is easy to visualize if you try something like this:

Code:
For(A,1,1.5,0.13)
Disp A
End

Notice how if you keep adding 0.13 to 1, you will not end up at exactly 1.5.
This will display the following values
    1
    1.13
    1.26
    1.39

And then terminate. This is how you can easily see what values A will have every time the loop goes around. If you omit the final argument 'D', it is assumed to be 1.
Now how to use them in this particular case the way PT_ suggested...
I will use this chunk here to demonstrate:

Code:
Pxl-On(57,13,Red
Pxl-On(58,13,Red
Pxl-On(59,13,Red
Pxl-On(60,13,Red
Pxl-On(61,13,Red
Pxl-On(62,13,Red
Pxl-On(63,13,Red
Pxl-On(64,13,Red
Pxl-On(65,13,Red
Pxl-On(66,13,Red
Pxl-On(67,13,Red
Pxl-On(59,14,Red
Pxl-On(58,15,Red
Pxl-On(58,16,Red
Pxl-On(58,17,Red
Pxl-On(59,18,Red
Pxl-On(60,18,Red
Pxl-On(61,18,Red
Pxl-On(62,17,Red
Pxl-On(63,14,Red
Pxl-On(63,15,Red
Pxl-On(63,16,Red
Pxl-On(63,17,Red
Pxl-On(63,18,Red
Pxl-On(63,19,Red

There are a few ways you could go about this, this is how I would do it:

Code:
augment(cumSum(binomcdf(10,0)),augment({3,2,2},1+cumSum(binomcdf(5,0
56+augment(Ans,7binomcdf(4,0->L1
augment(binomcdf(10,0),1+cumSum(binomcdf(4,0
augment(Ans,{6,6,5
12+augment(Ans,1+cumSum(binomcdf(5,0
For(A,1,24
   Pxl-On(L1(A),Ans(A),Red
End

I'm sure there are better ways to make up the data, but you get the idea, we put all the X coordinates in L1 and the Y coordinates in L2, then we use a loop with the values changing. I just used a little binomcdf() trick to make the lists because I noticed some patterns such as incrementing values and repeating values, but you can just store them directly. This will indeed be slower but I think the speed might be negligible.
Let's optimize it further Very Happy

All the x-coordinates are in the range [57,67] which is a difference of 11. This is more than 10, so maybe we can use a string to do this! We calculate the x-coordinate minus 57, so the first pixel has the outcome of 0. Let's put this together in a string.


Code:
"0123456789A21112345666666"->Str1
"0000000000012345554123456"->Str2

This are the offsets from (57,13). Now, to display them all, we can use this code: (we set A to 10, so expr(A) becomes offset 10)

Code:
10->A
For(B,1,25
Pxl-On(expr(sub(Str1,B,1))+57,expr(sub(Str2,B,1))+13,Red
End


All together, I get this:


Code:
"0123456789A21112345666666"->Str1
10->A
"0000000000012345554123456
For(B,1,25
   Pxl-On(expr(sub(Str1,B,1))+57,expr(sub(Ans,B,1))+13,Red
End


A bit more explanation: Str1 holds the offsets for the x-coordinates, Str2 for the y-coordinates. expr(sub(Str1,B,1)) gets the offset, so add 57 to that offset, same happens for the y-coordinate.

Goodluck!
mr womp womp said
Quote:
I'm sure there are better ways to make up the data, but you get the idea, we put all the X coordinates in L1 and the Y coordinates in L2, then we use a loop with the values changing. I just used a little binomcdf() trick to make the lists because I noticed some patterns such as incrementing values and repeating values, but you can just store them directly. This will indeed be slower but I think the speed might be negligible.


mr womp womp, can i take out the whole first part and just have from 'For(' to the End?
I am using mr womp womp's method. I am storing the coordinates into lists and then using the For( loop to read it and draw the pixels.

I will post the modified code after i finish converting that portion to the smaller method.
After i finish optimising the chart, I am going to start adding all of the word abbreviations and less-used vowels that aren't in the quick reference chart. I am thinking of trying another way to draw these:

Other than just points and lines, maybe letters?

EDIT:
by the way, this is a chart that I made that has all of the stuff that I am going to put in the program. I made this chart so I could have it always in my wallet! ;
If you really want to go crazy, since there are patterns in between different symbols, you can also merge similar symbols together like I did here with v,v and b,b to save even more bytes:

Code:
For(B,0,1
61+augment({1,1},cumSum(binomcdf(4,0
augment(augment(56+cumSum(binomcdf(10,0)),66-4B+binomcdf(8+B,0)),-4B+augment(augment({63},Ans),Ans→L₁
{3,4,5,6,6,6,5
110-66B+augment(augment(binomcdf(9,0),cumSum(binomcdf(9+B,0))),augment({2},augment(Ans,Ans+4
For(A,1,dim(Ans
   Pxl-On(L1(A),Ans(A),Red
End
End


EDIT: Here is the code I got for t,t and th

Code:
For(B,0,1
15+cumSum(binomcdf(10,0
augment(Ans,9+5B+augment(augment({9,8,8,8},7+cumSum(binomcdf(4,0))),{12→L₁
12+67B+augment(augment(binomcdf(9,0),cumSum(binomcdf(6,0))),{7,7,5,6
For(A,1,dim(Ans
   Pxl-On(L1(A),Ans(A),Red
End
End

Of course, you can start to see that the for() loop at the end becomes redundant, so you could put it in a sub-program with a Return at the end and just call the subprogram for each character. Also, you will obviously want to reuse the same For(B,0,1) for all the pairs because there is no reason to seperate them. So the code for v,v, b,b, t,t, ch,k, sh, k, khw, g , gh and th would be like this:

Code:
For(B,0,1
61+augment({1,1},cumSum(binomcdf(4,0
augment(augment(56+cumSum(binomcdf(10,0)),66-4B+binomcdf(8+B,0)),-4B+augment(augment({63},Ans),Ans→L₁
{3,4,5,6,6,6,5
110-66B+augment(augment(binomcdf(9,0),cumSum(binomcdf(9+B,0))),augment({2},augment(Ans,Ans+4
prgmD
15+cumSum(binomcdf(10,0
augment(Ans,9+5B+augment(augment({9,8,8,8},7+cumSum(binomcdf(4,0))),{12→L₁
12+67B+augment(augment(binomcdf(9,0),cumSum(binomcdf(6,0))),{7,7,5,6
prgmD
97+cumSum(binomcdf(10,0
augment(Ans,99-6B+augment(augment({5},4+cumSum(binomcdf(4,0))),{9,9,9,8→L₁
84-66B+binomcdf(10,0
augment(Ans,78-66B+augment({2,3,1,1},cumSum(binomcdf(5,0
prgmD
cumSum(binomcdf(10,0
augment(Ans,5B+binomcdf(5,0
138+augment(Ans,1+5B+cumSum(binomcdf(4,0
augment(Ans,142+5B+{2,2,1→L₁
13+augment(7binomcdf(10,0),cumSum(binomcdf(5,0
65B+augment(Ans,14+augment({2,1,1},cumSum(binomcdf(4,0
prgmD
138+augment(cumSum(binomcdf(10,0)),5B+augment(binomcdf(8,0),augment(cumSum(binomcdf(5,0)),augment(seq(6-(X=3),X,1,6),{2,3,4,5→L₁
augment(10+binomcdf(10,0),cumSum(binomcdf(9,0
66B+43+augment(Ans,augment({3,2,2},1+augment(cumSum(binomcdf(7,0)),{6,5,5,9
prgmD
End

Where prgmD is this:

Code:
For(A,1,dim(Ans
   Pxl-On(L1(A),Ans(A),Red
End
Return
@mr womp womp
Here are the revised coordinates for 'th':

Code:

(16,80)
(17,80)
(18,80)
(19,80)
(20,80)
(21,80)
(22,80)
(23,80)
(24,80)
(25,80)
(26,80)
(23,81)
(22,82)
(22,83)
(22,84)
(22,85)
(23,86)
(24,86)
(25,86)
(26,85)
(26,84)


Edit: Slightly random, but the optimizations that i have implemented so far have reduced the program size by at least 2000B! Very Happy
mr womp womp wrote:

Code:
augment(2+cumSum(binomcdf(3,0)),{6,6,5

Hmmm

Code:
{3,4,5,6,6,6,5
Yay!! Thanks mr womp womp! You are awesome!!!!!
Pseudocode:

Code:
SUBROUTINE() {
  CODE GOES HERE
  Return
}


TI-BASIC:

Code:
Lbl SB
CODE GOES HERE
End

(placed in such a way so that it is never run by accident)

Pseudocode:

Code:
Call SUBROUTINE();


TI-BASIC:

Code:
For(Z,-1,0
If Z
Goto SB
End

(make sure Z isn't used inside of the subroutine!)
  
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
Page 1 of 2
» 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