I'll store random other programs I've made here. Some useful... some not so much.
Most require Celtic III/xLib and will be labeled as such.
I'll try and include a typed out form and download as well.
(EDIT: Attachment included at bottom.)

Um... yeah... here we go.

---

[Celtic III/xLIB]PICVIEW

View pictures stored on calc. Does 1-255.

Controls
Left/Right: Navigate
Clear: Exits and keeps the current picture on the screen. (sans the number in the corner)
1→X
Repeat K=15
real(0,0
real(3,X,0,0
real(6
Text(57,83,X
real(8→K
min(255,max(1,X+sum(ΔList(Ans={2,3→X
End
real(3,X,0,1

---

[Celtic III/xLib and Basic]INVERT

Inverts the screen. Used it on several occasions while making titles.
Just run it.

Basic:
For(X,0,94
For(Y,0,62
Pxl-Change(Y,X
End
End

Celtic III/xLib
real(12,8,0,0,04,62
DispGraph
(DispGraph gets rid of the 'Done' that normally pops up. Your call.)

---

[Celitic III]Sprite-to-Hex

Made awhile ago. I haven't looked at the code in ages so it may not be optimized very well at all.
All I know is that it works. Pick the size and picture, move the inverted box over what you want converted, then hit [2ND].
It'll convert the sprite to hexadecimal code for whatever you may need it for.
(Noahbaby, IIRC, made a better one at the same time I did.)

DelVar L₁
" →Str1
4→dim(L₁
ClrDraw
ClrHome
DispGraph
Input "PIC: ",X
Repeat sum(8,16,32
ClrHome
Input "SIZE: (8,16,32) ",S
End
If S=8
11→L
If S=16
5→L
If S=32
2→L
real(3,X,0,0
1→X
1→Y
0→A
0→B
Repeat K=54
real(8→K
If not(A=X) or not(B=Y     //No symbol for "not equal" on here... but use it on-calc
Then
A→X
B→Y
real(12,8,SX,SY,SX+S-1,SY+S-1,1
real(12,8,SX,SY,SX+S-1,SY+S-1,0
End
min(L,max(0,X+sum(ΔList(K={2,3→A
min(8/(S/8)-1,max(0,Y+sum(ΔList(K={4,1→B
End
ClrHome
Disp "LOADING...
SB+S-1→M
If M>62
62→M
For(Y,SB,M
For(C,0,S/8*2-1
For(X,0,3
4C+SA+X→N
If N<95
Then
pxl-Test(Y,N→L₁(X+1
Else
0→L₁(X+1
End
End
0
For(X,1,4
Ans+2^(X-1)L₁(5-X
End
det(29,Ans
Str1+Ans→Str1
End
End
sub(Str1,2,length(Str1)-1→Str1
If length(Str1)=60
Str1+"0000→Str1
If length(Str1)=248
Str1+"00000000→Str1
If length(Str1)=14
Str1+"00→Str1
ClrDraw
ClrHome
real(0,1
Disp "","","","
identity(5,Str1,0,0,S/8,S,0,0,1

---

[Cetltic III/xLIB]CHORDS

I made this program to study piano chords. It shows the 14 basic major/minor chords on the piano.

Controls
Left/Right: Show previous/next chord
Clear: Exits program

"CDEFGAB→Str0
3→dim(L₁
Fill(1,L₁
{6,10,12,16,18,24,28,30,34,36,40,42→L₂
0→L
1→A
real(3,5,0,0
real(12,7,0,24,94,62
Repeat L
Repeat sum(K={24,26,45
getKey→K
End
real(0,0
real(3,5,0,0
real(12,7,0,24,94,62,0
If K=45
Then
1→L
Else
min(14,max(1,A+sum(ΔList(K={24,26→A
If A>0
1→L₁(1
If A>2
3→L₁(1
If A>4
5→L₁(1
If A>6
6→L₁(1
If A>8
8→L₁(1
If A>10
10→L₁(1
If A>12
12→L₁(1
sub(Str0,round(A/2,0),1
If not(fPart(A/2
Then
Ans+" MINOR→Str9
Else
Ans+" MAJOR→Str9
End
For(X,2,3
L₁(X-1
If X=2
Ans+4
If X=3
Ans+3
Ans→L₁(X
End
If not(fPart(A/2
L₁(2)-1→L₁(2
ClrHome
SortA(L₁
For(X,1,3
If 12<L₁(X
L₁(X)-12→L₁(X
End
For(X,1,3
If sum(L₁(X)={1,6
0→Y
If sum(L₁(X)={3,8,10
1→Y
If sum(L₁(X)={5,12
2→Y
If sum(L₁(X)={2,4,7,9,11
3→Y
real(1,L₂(L₁(X)),1,1,22,5,Y,24,3,0,1
real(1,L₂(L₁(X))+42,1,1,22,5,Y,24,3,0,1
Text(25,35,Str9
End
End
End
ClrDraw
ClrHome
Output(1,1,"

Here's a recording of me playing through the levels.
Died twice... but oh well.
Minimum number of blocks possible for the levels here. (well except the last... I just don't have the patience to work on it)
So... spoilers. Also a 'glitch' that I decided to keep is shown. If you watch, you'll see it.

Watch Now

Alright, I know you all thought I was dead.
Well... I was, but I finally dusted off my calculator today and got some optimizations done.

Check the first post for some slightly updated info and a demo download.
Contains 8 test levels (none of the ones from the screenshot are included, but gameplay is basically the same), is much faster than before (mainly keypress reaction time), and is a bit smaller.
Oh, and the in-game tutorial is in there.
...
Also, read the freakin' README.

So... enjoy?

Ideafactory83's (Nerd83+ and supergeek83) ban was checked into and endorsed by me as well.

He is indeed guilty of breaking the above rules.

PM me if you have a problem with the decision. ;P

Upgraded to Windows 7 RC and I've been enjoying it.
I'm using the background rotation thing they have that changes the background at certain intervals.
It's currently set to change every hour. Anyway, this theme is for drawings done by my ex-girlfriend.
(Not all of them shown above. Just the ones I remember to screenshot.)

Also, I found a series of cool icons and set-up my folders and such appropriately.
Um... I like it.

Unfortunately... a lot of stuff. The first problem was that my artist lost her internet connection.
The project was pretty doomed since then... the final problem faced was that I lost the files during one of the times I had to reinstall my OS.

So, the project is officially dead for now if not forever.
I might pick it back up again if I have the chance, but I doubt it.

Won~


(EDIT: LOL, happened again when I made this post~)