|
Source codes for the Ti-83 Plus (BASIC):
PRGM name is MOVE
ClrHome
4~>A
8~>B
Output(A,B,"X")
Repeat C=105
Repeat C=24 and B>1 or C=25 and A>1 or C=26 and B<16 or C=34 and A<8
getKey~>C
If C=21
Goto 0
End
Output(A,B," ")
B-(C=24) (C=26)~>B
A-(C=25) (C=34)~>A
Output(A,B,"X")
End
Lbl 0
PRGM name is TEMP
ClrHome
ClrDraw
Lbl Z
Menu(" TEMPERATURE ","`oC-`oF",A,"`oF-`oC",B,"FORMULA",E,"QUIT",C)
Lbl A
ClrHome
ClrDraw
Input "`oC=",K
K*9/5+32~>T
Disp T
Output(4,1,"FAHRENHEIT TEMP"
Pause
Goto Z
Lbl B
ClrHome
ClrDraw
Input "`oF=",K
(K-32)*5/9~>Y
Disp Y
Output(4,1," CELSIUS TEMP "
Pause
Goto Z
Lbl C
ClrHome
ClrDraw
Stop
End
D
Pause
Goto Z
Lbl E
ClrHome
ClrDraw
Lbl Y
Menu(" FORMULAS ","`oC-`oF",F,"`oF-`oC",G,"BACK",H)
Lbl F
ClrDraw
ClrHome
ClrDraw
Output(5,3,"`oC*9/5+32=`oF"
Pause
Goto Y
Lbl G
ClrDraw
ClrHome
ClrDraw
Output(5,2,"(`oF-32)*5/9=`oC")
Pause
Goto Y
Lbl H
Goto Z
Prgm name is Paper Rock Scissors
ClrHome
Disp "HOW TO PLAY"," ","1=ROCKS","2=PAPER","3=SCISSORS"
Pause
ClrHome
Disp "ROCKS, PAPER,","SCISSORS SHOOT!"
Input A
Disp randInt(1,3,1)
Pause
Disp "TO PLAY AGAIN","PRESS ENTER"
( ~> is the STO button )
( `o is the ALPHA 3 button )
|
|
