FREE games! You can download them or code them urself,
TI-Basic Dude 07 Jul 2017 10:44
GUESSPRO
DelVar Y₁
Clear Entries
AxesOff
ZStandard
ZInteger
ClrHome
If R≠10
10→R
If O≠1
1→O
If Z≠0
0→Z
"\|/-→Str0
" →Str3
Text(0,0,"GUESS PRO
Horizontal 24
For(I,0,32
For(J,0,6
Pxl-Change(J,I
End
End
Goto SM
Lbl M
"\|/-→Str0
Text(8,0,"1: Play
Text(15,0,"2: Select Mode
Text(22,0,"3: About
Text(29,0,"4: Quit
Lbl θ
Repeat K
getKey→K
Text(50,0,getDtStr(getDtFmt
Text(57,0,getTmStr(getTmFmt),"
End
If K≠92 and K≠93 and K≠94 and K≠82
Goto θ
Text(1,49,0,Str3
Text(1,56,0,Str3
For(I,0,5
For(J,1,4
rand(randInt(1,5
sub(Str0,1J-0,1
Text(1,56,0,Ans
End
End
Text(1,56,0,"
For(I,8,29,7
Text(I,0,Str3
End
Text(1,56,0,Str3
If K=92
Goto PL
If K=93
Goto SM
If K=94
Goto AB
If K=82
Goto QT
Lbl QT
ClrDraw
ClrHome
Stop
Lbl AB
Text(8,0,"ABOUT GUESSPRO:
Text(15,0,"Version 1.0.1
Text(22,0,"TI-Basic Dude
Text(57,0,"tibasicdude@gmail.com
Pause
For(M,8,57,7
Text(M,0,Str3
End
Goto M
Lbl SM
Text(8,0,"Select Mode:
1→O
10→R
1→D
6→Y
Lbl 0
If O<1
1→O
If O>8
8→O
If O=1:Then
1→D
10→R
End
If O=2:Then
100→R
25→Y
End
If O=3:Then
3→D
1000→R
End
If O=4:Then
4→D
10000→R
End
If O=5:Then
5→D
100000→R
End
If O=6:Then
6→D
1000000→R
End
If O=7:Then
7→D
10000000→R
End
If O=8:Then
8→D
100000000→R
End
If O=1
"Very Easy→Str4
If O=2
"Easy→Str4
If O=3
"Standard→Str4
If O=4
"Challenging→Str4
If O=5
"Hard→Str4
If O=6
"Very Hard→Str4
If O=7
"Professional→Str4
If O=8
"Brutal→Str4
Text(15,0,"Range: 1-",R,"
Text(22,0,"Difficulty: ",Str4,Str3
Text(29,0,"Option ",O,"
Repeat K
getKey→K
End
If K=25
O+1→O
If K=34
O-1→O
If K=105:Then
For(I,1,5
For(J,1,4
rand(5
sub(Str0,1J-0,1
Ans→Str4
Text(1,56,0,Str4
End
End
Text(1,56,0,"
For(I,8,50,7
Text(I,0,Str3
End
Goto M
End
Goto 0
Lbl PL
0→K
randInt(1,R→N
Text(8,0,"GUESS A NUMBER!
Text(50,0,"The range: 1 and ",R
Horizontal 16
Line(46,4,46,4
"(→Str0
0→Z
0→V
0→I
Lbl Z0
Text(57,0,"GUESSES: ",I
Repeat K
getKey→K
V+1→V
If V>24
0→V
If V<12
Text(28,0,Str0,"
If V>11
Text(28,0,Str0,"|
End
Z+1→Z
If Z>11
Goto Z0
If K=21
Goto RE
If K=45:Then
Text(28,0,"(",Str3
Goto PL
End
If K=105
Goto 0Z
If K=72
"7→Str7
If K=73
"8→Str7
If K=74
"9→Str7
If K=82
"4→Str7
If K=83
"5→Str7
If K=84
"6→Str7
If K=92
"1→Str7
If K=93
"2→Str7
If K=94
"3→Str7
If K=102
"0→Str7
Str0+Str7→Str0
expr(Str0→G
If G<1 or G>R
Goto ER
Goto Z0
Lbl 0Z
I+1→I
expr(Str0
Ans→G
If N=G
Goto RE
If N<G
"Lower...
If N>G
"Higher...
Text(28,0,Ans
rand(25
Text(28,0,Str3
"(→Str0
Text(28,0,Str0
0→Z
Goto Z0
Lbl RE
For(J,8,57,7
Text(J,0,Str3
End
Text(8,0,"YOU "+sub("LOSE.WIN! ",1+5(N=G),5)+Str3
rand(100
Text(8,0,"RESULTS:",Str3
Horizontal 16
0→P
0→B
Text(16,0,"GUESSES: ",I
Pause
Text(8,0,Str3
Goto M
Lbl ER
"(→Str0
Text(28,0,Str3
Goto Z0
SPACE SNAKE 2.0 (Not my program)
Lbl PL
Clear Entries
AxesOff
SetUpEditor HIGH,REDO
1→dim(⌊REDO
1→dim(⌊HIGH
0→S
ClrDraw
ClrHome
" →Str0
ZStandard
ZInteger
10→Z
94→X
randInt(1,61→θ
randInt(1,61→D
Lbl 0
Repeat K=45 or pxl-Test(θ,47
X-1→X
If X<1:Then
randInt(1,61→D
94→X
End
Pxl-On(D,X
Repeat Ans
getKey→K
Text(randInt(0,57),90,"=
θ→Y
Pxl-On(Y,47
Asm(prgmRIGHT
End
Y→θ
If K=25
θ-1→θ
If K=34
θ+1→θ
If K=105:Then
Repeat getKey
Text(57,0,"P U E
Text(57,0," A S D
End
Text(57,0,Str0
Goto 0
End
If θ<1
1→θ
If θ>61
61→θ
pxl-Test(Y+1,47)→A
pxl-Test(Y-1,47)→B
If A=1 and B=1
S+1→S
End
If Y=D
Goto BN
For(I,1,10
Asm(prgmFLASH
End
Goto LO
Lbl BN
ClrDraw
10→Z
startTmr→T
Repeat randInt(10,20)=checkTmr(T
Pxl-On(θ,47
Asm(prgmRIGHT
S+1→S
Text(0,1," ",S
End
ClrDraw
Goto 0
Lbl LO
randInt(1,10→A
randInt(1,10→B
If A=B
Goto RD
StorePic 1
ClrDraw
Lbl M
Text(0,0,"GAME OVER
For(I,0,32
For(J,0,6
Pxl-Change(J,I
End
End
Text(7,0,"Your score: ",S
Text(14,0,"High score: ",⌊HIGH(1
⌊HIGH(1
If S>Ans:Then
S→⌊HIGH(1
Text(35,0,"Highscore!
End
Text(57,0,"Redos: ",⌊REDO(1
rand(200
For(I,7,28,7
Text(I,0,Str0
End
Text(57,0,Str0
Text(14,5,"Play again
Text(21,5,"Use a redo (",⌊REDO(1)," left)
Text(28,5,"Quit
14→O
Lbl Z0
If O<14
14→O
If O>28
28→O
Repeat K
getKey→K
Text(O,0,"
End
Text(O,0,"
If K=25
O-7→O
If K=34
O+7→O
If K=105:Then
If O=14
Goto PL
If O=21
Goto RE
If O=28:Then
Archive ⌊HIGH
Archive ⌊REDO
ClrDraw
ClrHome
Stop
End
End
Goto Z0
Lbl RE
Text(0,0,Str0
⌊REDO(1
If Ans=0:Then
For(I,7,28,7
Text(I,0,Str0
End
Goto M
End
For(I,7,28,7
Text(I,0,Str0
End
Text(0,0,"USE A REDO?
For(I,0,37
For(J,0,6
Pxl-Change(J,I
End
End
Text(14,5,"No
Text(21,5,"Yes
14→O
Lbl 0Z
If O<14
14→O
If O>21
21→O
Repeat K
getKey→K
Text(O,0,"
End
Text(O,0,"
If K=25
O-7→O
If K=34
O+7→O
If K=105:Then
If O=14:Then
For(I,0,21,7
Text(I,0,Str0
End
Goto M
End
If O=21:Then
ClrDraw
⌊REDO(1)-1→⌊REDO(1
RecallPic 1
Goto 0
End
End
Goto 0Z
Lbl RD
ClrDraw
Text(0,0,"YOU HAVE THE CHANCE
Text(6,0,"TO WIN SOME REDOS!
For(I,0,66
For(J,0,6
Pxl-Change(J,I
End
End
For(I,0,60
For(J,7,12
Pxl-Change(J,I
End
End
Text(13,0,"Stop the spinner!
Text(28,46,"-
Line(5,5,5,5
Line(5,5,5,5
Line(5,5,5,5
Line(5,5,5,5
Repeat getKey
randInt(0,9→N
Text(28,46,N
End
⌊REDO(1)+N→⌊REDO(1
If N=0
"Too bad! No redos!
If N=1
"Too bad! Only 1!
If N=2
"Pff. I've seen higher.
If N=3
"Not bad! Thats 3.
If N=4
"Good job!
If N=5
"Thats a good amount!
If N=6
"WOW! Thats a lot!
If N=7
"OUTSTANDING! 7?!
If N=8
"HOLY COW! THATS 8!
If N=9
"THATS A TON! Thats 9.
Ans→Str1
Text(37,0,Str1
Text(28,46,N
Pause
For(I,0,42,7
Text(I,0,Str0
End
Goto M
FREE ASCII
The squares are suppost to be bolded arrows, And the Ŝ is suppost to be the inverted = on the Y= Function.
×√∠↑↓#%&@\_|₀₁₂₃₄₅₆₇₈₉…$Ŝ