There's not much selection at the moment, as some idiot keeps wiping my calculator. More should appear soon as I get time to write them.
 

Fraction Converter (1.0) Sum Up To a number (1.0)
Prime Number Tester (2.0) Number as a product of primes (1.0)
Fizz \ Fuzz - screen displays (1.0) Countdown Letters Game (1.0)
Boggle (0.5)



Command translation:
->      Single arrow
=>     Double arrow (press: shift prgm f1 f1)
_       Display (press: shift prgm f4)
<=     Less or equal
>       Greater or equal
<>     Not equal
^       Raised to the power of
/        Division
2rt()   Root ( 2rt(9) is the square root of 9=3)
3rt()   3:rd root
pi       Pi (3.14....) (press: shift exp)
E       Exponent (press:EXP)


Fraction Converter
?->A
For 1->B To 1000
If Int (AB)=AB
Then Goto 1
IfEnd
Next
"NO FRACTION"
Stop
AB_
B_
""
Stop


Sum Up To a Number
Lbl 1
?->A
If Int (A) <>A
Then "NEED AN INTEGER"
Goto 1
IfEnd
A*((((ABS A)²)+ABS A)/2)/ A)_
""


Prime Number Tester
Lbl 1
?->A
If Int (A)<>A
Then "NEED AN INTEGER"
Goto 1
IfEnd
For 2->B To (Int (2rt(A)))+1
If Int (A/B)=A/B
Then Goto 2
IfEnd
Next
"PRIME"
Stop
Lbl 2
"NOT A PRIME"
Stop


Product Of Primes
?->A
2->B
Lbl 1
If Int (A/B)=A/B
Then B_
A/B->A
If A=1
Then Goto 2
IfEnd
Goto 1
IfEnd
B+1->B
Goto 1
Lbl 2
"ALL DONE"


Fizz and Fuzz
Lbl 1
0->E
ViewWindow 0,100,1,0,100,1
AxesOff
Lbl 2
Green F-Line Ran#x100,Ran#x100,Ran#x100,Ran#x100
E+1->E
If E=50
Then Goto 1
IfEnd
Goto 2



Lbl 1
0->E
ViewWindow 0,100,1,0,100,1
AxesOff
Ran#x100->A
Ran#x100->B
Lbl 2
Ran#x100->C
Ran#x100->D
F-Line A,B,C,D
C->A
D->B
E+1->E
If E=100
Then Goto 1
IfEnd
Goto 2


Countdown- needs second program "30-second" for timer
For those of you who haven't seen Countdown, a contestant choose vowels or consonants, and they are picked randomly from a pile. When 9 letters have been picked, then the two contestants have 30 seconds to find the longest word.
Main program:
ClrText
"1:VOWEL"
"2:CONSONANT"
" "
" "
" "
For 1->Z To 9
Lbl 1
0->A
While A=0
Getkey->A
WhileEnd
If A<>72 And A<>62
Then Goto 1
IfEnd
If A=72
Then Int (Ran#x5)+1->L
If L=1
Then Locate Z,4,"A"
IfEnd
If L=2
Then Locate Z,4,"E"
IfEnd
If L=3
Then Locate Z,4,"I"
IfEnd
If L=4
Then Locate Z,4,"O"
IfEnd
If L=5
Then Locate Z,4,"U"
IfEnd
IfEnd
If A=62
Then Int (Ran#x21)+1)->L
If L=1
Then Locate Z,4,"B"
IfEnd
If L=2
Then Locate Z,4,"C"
IfEnd
If L=3
Then Locate Z,4,"D"
IfEnd
If L=4
Then Locate Z,4,"F"
IfEnd
If L=5
Then Locate Z,4,"G"
IfEnd
If L=6
Then Locate Z,4,"H"
IfEnd
If L=7
Then Locate Z,4,"J"
IfEnd
If L=8
Then Locate Z,4,"K"
IfEnd
If L=9
Then Locate Z,4,"L"
IfEnd
If L=10
Then Locate Z,4,"M"
IfEnd
If L=11
Then Locate Z,4,"N"
IfEnd
If L=12
Then Locate Z,4,"P"
IfEnd
If L=13
Then Locate Z,4,"Q"
IfEnd
If L=14
Then Locate Z,4,"R"
IfEnd
If L=15
Then Locate Z,4,"S"
IfEnd
If L=16
Then Locate Z,4,"T"
IfEnd
If L=17
Then Locate Z,4,"V"
IfEnd
If L=18
Then Locate Z,4,"W"
IfEnd
If L=19
Then Locate Z,4,"X"
IfEnd
If L=20
Then Locate Z,4,"Y"
IfEnd
If L=21
Then Locate Z,4,"Z"
IfEnd
IfEnd
Next
Locate 1,5,"GO!"
Prog "30-SEC"
Locate 1,5,"STOP!"



30-second timer:
For 1->T to 7495
Next

(Program was written on a CFX-9850G, may need recalibating for different machines)


Boggle- 3-minute timer not created yet
ClrText
For 1->A To 4
For 1->B To 4
Int (Ran#x26)+1->C
If C=1
Then Locate A,B,"A"
IfEnd
If C=2
Then Locate A,B,"B"
IfEnd
If C=3
Then Locate A,B,"C"
IfEnd
If C=4
Then Locate A,B,"D"
IfEnd
If C=5
Then Locate A,B,"E"
IfEnd
If C=6
Then Locate A,B,"F"
IfEnd
If C=7
Then Locate A,B,"G"
IfEnd
If C=8
Then Locate A,B,"H"
IfEnd
If C=9
Then Locate A,B,"I"
IfEnd
If C=10
Then Locate A,B,"J"
IfEnd
If C=11
Then Locate A,B,"K"
IfEnd
If C=12
Then Locate A,B,"L"
IfEnd
If C=13
Then Locate A,B,"M"
IfEnd
If C=14
Then Locate A,B,"N"
IfEnd
If C=15
Then Locate A,B,"O"
IfEnd
If C=16
Then Locate A,B,"P"
IfEnd
If C=17
Then Locate A,B,"Q"
IfEnd
If C=18
Then Locate A,B,"R"
IfEnd
If C=19
Then Locate A,B,"S"
IfEnd
If C=20
Then Locate A,B,"T"
IfEnd
If C=21
Then Locate A,B,"U"
IfEnd
If C=22
Then Locate A,B,"V"
IfEnd
If C=23
Then Locate A,B,"W"
IfEnd
If C=24
Then Locate A,B,"X"
IfEnd
If C=25
Then Locate A,B,"Y"
IfEnd
If C=26
Then Locate A,B,"Z"
IfEnd
Next
Next



If you want to include these programs on your site, please ask me first!
These programs are FREE! No profit is to be made from them. If you've modified the program to make it better, send me the updated version and I'll update the site.