Heya [insert random retro nerd on this forum here that sees this thread], I recently grew an obsession with purchasing vintage 90's TI graphing calculators. I think it has become kinda a problem, as I have three and as of RN, one's coming in the mail
The ones I have purchased now :
TI-81 (1991) [the one with the TI Texas logo on the far right and orange model text]
TI-82 (1995) [not parcus]
TI-80
TI-82 Parcus (coming in the mail on Monday) [I'm hyped]
<!--insert HTML joke here-->
No, seriously, I really think it's an addiction, lol.
Anyways, I have been programming on these calculators for awhile now. Oh boy, are they limited...
Heres my programmes :
Guess the Number TI-81 :
Code:
Guess the Number TI-82 :
Code:
Guess the Number TI-80 :
Code:
Just for funsies
The ones I have purchased now :
TI-81 (1991) [the one with the TI Texas logo on the far right and orange model text]
TI-82 (1995) [not parcus]
TI-80
TI-82 Parcus (coming in the mail on Monday) [I'm hyped]
<!--insert HTML joke here-->
No, seriously, I really think it's an addiction, lol.
Anyways, I have been programming on these calculators for awhile now. Oh boy, are they limited...
![Neutral](images/smiles/icon_neutral.gif)
Heres my programmes :
Guess the Number TI-81 :
Code:
ClrHome
DispHome
Int (Rand(100))->N
Disp "NUMBER GUESS"
Disp "1-100"
Pause
ClrHome
0->I
Lbl L
Input G
If G=N
Goto W
If G≠N
If G>N
Disp "TOO HIGH"
If G<N
Disp "TOO LOW"
I+1->I
Disp ""
10-I
Disp Ans
Disp "TRIES LEFT"
Disp "PRESS ENTER"
Disp "TO CONTINUE"
Pause
ClrHome
If I=10
Disp "YOU SUCK"
If I=10
Stop
Goto L
Lbl W
Disp "GOOD GUESS"
Disp "YOU WON"
Stop
Guess the Number TI-82 :
Code:
ClrHome
int rand(100)->N
Disp "NUMBER GUESS"
Disp "1-100"
Pause
ClrHome
0->I
Lbl L
Input "GUESS?",G
Disp ""
If G=N
Goto W
If G≠N
Then
If G>N
Disp "TOO HIGH"
If G<N
Disp "TOO LOW"
End
I+1->I
Output(8,1,10-I)
Output(8,3,"TRIES LEFT")
Disp "PRESS ENTER"
Disp "TO CONTINUE"
Pause
ClrHome
If I=10
Then
Disp "YOU SUCK!"
Pause
End
Goto L
Lbl W
Disp "GOOD GUESS"
Disp "YOU WON!"
Stop
Guess the Number TI-80 :
Code:
CLRHOME
RANDINT(1,100)->N
DISP "NUMBER GUESS"
DISP "1-100"
PAUSE
CLRHOME
0->I
LBL L
INPUT "GUESS?",G
IF G=N
GOTO W
IF G≠N
THEN
IF G>N
DISP "TOO HIGH"
IF G<N
DISP "TOO LOW"
END
I+1->I
DISP 10-I," TRIES"," LEFT"
DISP "PRESS ENTER"
DISP "TO CONTINUE"
PAUSE
CLRHOME
IF I=10
THEN
DISP "YOU SUCK!"
PAUSE
END
GOTO L
LBL W
DISP "GOOD GUESS"
DISP "YOU WON!"
RETURN
Just for funsies