Degree
ClrHome:ClrDraw:ClrTable
Disp "BONJOUR",STR4
Pause
Label Z:ClrHome
DelVar STR0
Input "TEXTCODE?",STR0
If STR0=STR9:Then
Goto 0
Else
Goto Q
ClrHome:Goto 0
Label 30:ClrHome:ClrDraw
Disp "F1:VERROUILLER
Disp "F3:AIDE
Disp "F5:QUITTER
Pause :ClrHome
Disp "MODE:PARAMETRES
Disp "APPS:AUTRES
Disp "SUPPR:EFFVARS
Disp "MATH:MATHS
Disp "PRGM:MENU
Pause :Goto 0
Label S:ClrHome
RandInt(1,13->A
RandInt(1,13->B
RandInt(1,13->C
RandInt(1,13->D
RandInt(1,13->E
RandInt(16,24->F
A,10->A
B,10->B
C,10->C
D,10->D
E,10->E
If A=1andB=10
Then
Output(5,3,"BLACKJACK
Pause :Goto S
Else
If B=1andA=10:Then
Output(5,3,"BLACKJACK
Pause :Goto S
End:End
If A=1:Then
B->T
Disp "TOTAL DE
Disp T
Input "1 or 11?",A
If A=1:Then
1->A
Else
11->A
End:End
If B=1:Then
A->T
Disp "TOTAL DE
Disp T
Input "1 or 11?",G
If G=1:Then
1->B
Else
11->B
End:End
ClrHome
A+B->T
Output(1,5,"MAIN
Output(3,1,A
Output(3,4,B
Output(5,3,"TOTAL DE
Output(5,13,T
Output(7,3,"STAY=1 HIT=2
Disp "","","","","","",
If T>21:Goto B
Input G
If G=1:Then
Goto E
Label E:ClrHome
If F>21:Then
Output(3,4,"HOUSE BUST
Output(5,5,"YOU WIN
Pause :Goto 11
End
Output(1,3,"TOTAL DE
Output(2,9,T
Output(4,2,"HOUSE TOTAL DE
Output(5,9,F
If T>F:Then
Output(7,6,"YOU WIN
Pause :Goto 11
End
If F>T:Then
Output(7,5,"YOU LOSE
Pause :Goto 11
End
If F=T:Then
Output(7,4,"EGALITE
Pause :Goto 11
End
Else
If C=1:Then:ClrHome
Disp "TOTAL DE
Disp T
Input "1 or 11?",C
If C=1:Then
1->C
Else
11->C
End:End
A+B+C->T
Disp "","","","","","",
Output(1,5,"MAIN
Output(3,1,A
Output(3,4,B
Output(3,7,C
Output(5,3,"TOTAL DE
Output(5,13,T
Output(7,3,"STAY=1 HIT=2
If T>21:Goto B
Input G
If G=1:Then
Goto E
Else
If D=1:Then:ClrHome
Disp "TOTAL DE
Disp T
Input "1 or 11?",D
If D=1:Then
1->D
Else
11->D
End:End
A+B+C+D->T
Disp "","","","","","",
Output(1,5,"MAIN
Output(3,1,A
Output(3,4,B
Output(3,7,C
Output(3,10,D
Output(5,3,"TOTAL DE
Output(5,13,"STAY=1 HIT=2
If T>21:Goto B
Input G
If G=1:Then
Goto E
Else
If E=1:Then
Disp "TOTAL DE
Disp T
Input "1 or 11?",E
If E=1:Then
1->E
Else
11->E
End:End
A+B+C+D+E->T
Disp "","","","","","",
Output(1,5,"MAIN
Output(3,1,A
Output(3,4,B
Output(3,7,C
Output(3,10,D
Output(3,13,E
Output(5,3,"TOTAL DE
Output(5,13,T
If T>21:Then
Goto B
Else
Pause :Goto E
Label B:ClrHome
Output(1,7,"BUST
Output(3,5,"YOU LOSE
Output(5,3,"TOTAL DE
Output(5,12,T
Pause :Goto 11
Label K:ClrHome:ClrDraw
Disp "ERR:LABEL
Disp "1:QUITTER
DelVar S
Repeat S!=0
getKey->S
If S=105:Goto 99
If S=92:Goto Q
End
If S!=105andS!=92:Goto K
Label 99
Disp " ECONOMIE
Disp "
Disp "1:TAUX VARIATION
Disp "
Disp "2:VAR RELAT
Disp "
Disp "3:ELASTICITE
Repeat K!=0
getKey->K
If K=92:Goto T
If K=93:Goto U
If K=94:Goto V
If K=11:Goto Z
If K=15:Goto Q
If K=13:Goto 30
If K=23:Goto 24
If K=42:Goto O
If K=41:Goto M
If K=43:Goto 0
If K=22:Goto 20
If K=44:Goto K
End
Label T:ClrHome:ClrDraw
Input "VAL DEPART=?",D
Input "VAL ARRIVEE=?",A
100->100D/A->X
Text(1,1,"TAUX VARIATION=",X,".
Pause :DelVar X:DelVar A:DelVar D:Goto K
Label U:ClrHome:ClrDraw
Prompt A,D
A-D->X
Text(R,1,"VAR RELAT=",X,".
Pause :DelVar A:DelVar X:DelVar D:Goto K
Label V:ClrHome:ClrDraw
Input "DEMANDE or CONSO=",D
Input "PRIX or REVENU",P
D/P->X
Text(1,1,"ELASTICITE=",X,".
If X<1
Text(11,1,"DEMANDE ELASTIQUE
Pause :DelVar D:DelVar P:DelVar X:Goto K
Label A:ClrHome:ClrDraw
Prompt A,B
gcd(A,B->X
Text(1,1,"PGCD=",X,".
If X=1
Text(6,1,"CES NOMBRES SONT PREMIERS ENTRE EUX
Pause :DelVar A:DelVar B:DelVar X:Goto J
Label C:ClrHome:ClrDraw
Prompt A,B
lcm(A,B->X
Text(1,1,"PPCM=",X,".
Pause :DelVar A:DelVar B:DelVar X:Goto J
Label L:ClrHome
Input X
Disp X
Pause :DelVar X:Goto K
Label H:ClrHome:ClrDraw
Disp "(A+B)^2=
Disp "A^2+2AB+B^2
Pause
Disp "(A-B)^2=
Disp "A^2-2AB+B^2
Pause
Disp "(A+B)(A-B)=
Disp "A^2-B^2
Pause :Goto J
Label J:ClrHome:ClrDraw
Disp "1:REMIDENT
Disp "
Disp "2:CALCUL
Disp "
Disp "3:PRECALCUL
Disp "
Disp "4:STATISTIQUES"
Repeat K!=0
getKey->K
If K=23:Goto 24
If K=42:Goto O
If K=41:Goto M
If K=13:Goto 30
If K=43:Goto 0
If K=11:Goto Z
If K=22:Goto 20
If K=15:Goto Q
If K=92:Goto H
If K=93:Goto L
If K=94:Goto 14
If K=44:Goto K
If K=82:Goto A1
End
Label A1:ClrDraw
FnOff
ê
AxesOn
GridOff
CoordOn
ExprOn
ClrHome
Disp "NB DE DONNEES
Input "PAR AXE:",N
N->dim(L1
N->dim(L2
ClrHome
Disp "ABSCISSES
Input "DEPART:",D
Input "INTERVALLE:",I
D->L1(1)
For(Z,2,N
D+I(Z-1->L1(Z)
End
For(Z,1,N
ClrHome
Disp "ORDONNEES:","VALEUR N[degrees]
Output(2,10,Z
Input P
P->L2(Z
End
Menu(" TYPE GRAPHIQUE ","NUAGE DE POINTS",A2,"COURBE",A3,"HISTOGRAMME",A4,"VALEURS",B2,"QUITTER",Q
Label A2
Menu(" MARQUE ","€",A5,"[box]",A6,"[dot]",A7
Label A5
Plot1(Scatter,L1,L2,€
ZoomStat
Trace
Pause :Goto J
Label A6
Plot1(Scatter,L1,L2,[box]
ZoomStat
Trace
Pause :Goto J
Label A7
Plot1(Scatter,L1,L2,[dot]
ZoomStat
Trace
Pause :Goto J
Label A3
Menu(" MARQUE ","€",A8,"[box]",A9,"[dot]",B1
Label A8
Plot1(xyLine,L1,L2,€
ZoomStat
Trace
Pause :Goto J
Label A9
Plot1(xyLine,L1,L2,[box]
ZoomStat
Trace
Pause :Goto J
Label B1
Plot1(xyLine,L1,L2,[dot]
ZoomStat
Trace
Pause :Goto J
Label A4
Plot1(Histogram,L1,L2
L1)->Xmin
max(L1)+I->Xmax
I->Xscl
max(L2)->Ymax
0->Ymin
iPart(Ymax/10)->Yscl
1->c6
DispGraph
Trace
Pause :Goto J
Label B2:ClrHome
1-Var Stats
Pause :Goto J
Label 14:ClrHome
Disp " PRECALCULS
Disp "
Disp "1:PGCD
Disp "
Disp "2:PPCM
Disp "
Disp "3:RACINE CARREE
Repeat K!=0
getKey->K
If K=11:Goto Z
If K=13:Goto 30
If K=15:Goto Q
If K=23:Goto 24
If K=42:Goto O
If K=41:Goto M
If K=43:Goto 0
If K=22:Goto 20
If K=92:Goto A
If K=93:Goto C
If K=94:Goto 16
If K=44:Goto K
End
Label 16:ClrHome:ClrDraw
Prompt N
[root]^2N->X
Text(1,1,"RACINE CARREE DE",N,"=",X,".
Pause :Goto 14
Label 15:ClrHome:ClrDraw
Disp "1:THEOREME
Disp "
Disp "2:RECIPROQUE
Repeat K!=0
getKey->K
If K=11:Goto Z
If K=15:Goto Q
If K=13:Goto 30
If K=23:Goto 24
If K=42:Goto O
If K=41:Goto M
If K=43:Goto 0
If K=22:Goto 20
If K=92:Goto 13
If K=93:Goto 12
If K=44:Goto K
End
Label 13:ClrHome
Input "HYPOTENUSE=?",H
Input "COTE 2=?",A
Input "COTE 3=?",B
If 0=H:Then
A^2+B^2->H:[root]^2H->H
ClrHome:Output(1,1,"HYPOTENUSE=",H,".
If 0=A:Then
H^2-B^2->A:[root]^2A->A
ClrHome:Output(1,1,"COTE 2=",A,".
If 0=B:Then
H^2-A^2->B:[root]^2B->B
ClrHome:Output(1,1,"COTE 3=",B,".
End
Pause :DelVar H:DelVar A:DelVar B:Goto 14
Label 12:ClrHome
Input "GRANDE LONGUEUR=",L
Prompt D,E
L^2->L
D^2+E^2->X
If L=X:Then
ClrHome:Output(1,1,"LE TRIANGLE EST RECTANGLE
Else
ClrHome:Output(1,1,"LE TRIANGLE N'EST PAS RECTANGLE
Pause :DelVar L:DelVar E:DelVar D:DelVar X:Goto 14
Label D:ClrHome:ClrDraw
Prompt R
R[pi]^2->A
2[pi]R->P
Text(1,1,"AIRE=",A,".
Text(7,1,"PERIMETRE=",P,".
Pause :DelVar R:DelVar A:DelVar P:Goto I
Label F:ClrHome:ClrDraw
Disp "H=HAUTEUR/BASE
Disp "F=HYP/3[degrees] COTE
Prompt H,F
(H*F)/2->X
Text(1,1,"AIRE=",X,".
Pause :DelVar H:DelVar F:DelVar X:Goto I
Label G:ClrHome:ClrDraw
Prompt A
6A^2->A:A^3->U
Text(1,1,"AIRE=",A,".
Text(7,1,"VOLUME=",V
Pause :DelVar A:DelVar V:Goto I
Label I:ClrHome:ClrDraw
Disp "1:CERCLE
Disp "
Disp "2:TRECTANGLE
Disp "
Disp "3:CUBE
Disp "
Disp "4:PYTHAGORE
Repeat K!=0
getKey->K
If K=11:Goto Z
If K=15:Goto Q
If K=13:Goto 30
If K=23:Goto 24
If K=42:Goto O
If K=41:Goto M
If K=43:Goto 0
If K=22:Goto 20
If K=92:Goto D
If K=93:Goto F
If K=94:Goto G
If K=82:Goto 15
If K=44:Goto K
End
Label P:ClrHome:ClrDraw
"->STR1
"->STR2
GetCalc(STR3
[e](A=[pi])+[pi](A!=[pi]->A
Label P:ClrHome
Menu(" TI-MSN ","RECEVOIR",R,"ENVOYER",W,"MENU PRINCIPAL",0
Label W
Input "MESSAGE: ",STR3
If A=[pi]:STR3->STR1
If A=[e]:STR3->STR2
Goto M:Label R
If A=[e]:Then
GetCalc(STR1
STR1
Else
GetCalc(STR2
STR2
End
Output(1,1,Ans
Pause :Goto M
Label 11:ClrHome:ClrDraw
Disp " JEUX
Disp "
Disp "1:BLACKJACK
Disp "
Disp "2:MORPION
Disp "
Disp "3:SNAKE
Repeat K!=0
getKey->K
If K=11:Goto Z
If K=15:Goto Q
If K=13:Goto 30
If K=23:Goto 24
If K=42:Goto O
If K=41:Goto M
If K=43:Goto 0
If K=22:Goto 20
If K=92:Goto S
If K=93:Goto N
If K=94:Goto 10
If K=44:Goto K
End
Label O:ClrHome:ClrDraw
Disp " AUTRES
Disp "
Disp "1:TI-MSN
Disp "
Disp "2:JEUX
Repeat K!=0
getKey->K
If K=44:Goto K
If K=11:Goto Z
If K=15:Goto Q
If K=13:Goto 30
If K=23:Goto 24
If K=42:Goto O
If K=41:Goto M
If K=43:Goto 0
If K=22:Goto 20
If K=92:Goto P
If K=93:Goto 11
End
Label N:ClrHome:ClrDraw
Output(1,7,"!
Output(1,9,"!
Output(2,6,"-+-+-
Output(3,7,"!
Output(3,9,"!
Output(4,6,"-+-+-
Output(5,7,"!
Output(5,9,"!
Output(1,6,"7
Output(1,8,"8
Output(1,10,"9
Output(3,6,"4
Output(3,8,"5
Output(3,10,"6
Output(5,6,"1
Output(5,8,"2
Output(5,10,"3
0->Y
0->Z
0->W
0->T
0->U
0->V
0->O
0->P
0->Q
0->A
0->X
While 1
A->X
getKey->K
If K=92andY=0:Then
If X=1:Then
Output(5,6,"O
A-1->A
1->Y
Else
If X=0:Then
Output(5,6,"X
A+1->A
10->Y
End:End:End
If K=93andZ=0:Then
If X=1:Then
Output(5,8,"O
A-1->A
1->Z
Else
If X=0:Then
Output(5,8,"X
A+1->A
10->Z
End:End:End
If K=94andW=0:Then
If X=1:Then
Output(5,10,"O
A-1->A
1->W
Else
If X=0:Then
Output(5,10,"X
A+1->A
10->W
End:End:End
If K=82andT=0:Then
If X=1:Then
Output(3,6,"O
A-1->A
1->T
Else
If X=0:Then
Output(3,6,"X
A+1->A
10->T
End:End:End
If K=83andU=0:Then
If X=1:Then
Output(3,8,"O
A-1->A
1->U
Else
If X=0:Then
Output(3,8,"X
A+1->A
10->U
End:End:End
If K=84andV=0:Then
If X=1:Then
Output(3,10,"O
A-1->A
1->V
Else
If X=0:Then
Output(3,10,X
A+1->A
10->V
End:End:End
If K=72andO=0:Then
If X=1:Then
Output(1,6,"O
A-1->A
1->O
Else
If X=0:Then
Output(1,6,"X
A+1->A
10->O
End:End:End
If K=73andP=0:Then
If X=1:Then
Output(1,8,"O
A-1->A
1->P
Else
If X=0:Then
Output(1,8,"X
A+1->A
10->P
End:End:End
If K=74andQ=0:Then
If X=1:Then
Output(1,10,"O
A-1->A
1->Q
Else
If X=0:Then
Output(1,10,"X
A+1->A
10->Q
End:End:End
If K=45:Then:ClrHome
Stop:End
If Y+Z+W=3 or T+U+V=3 or O+P+Q=3 or O+U+W=3 or Y+U+Q=3 or O+T+Y=3 or P+U+Z=3 or Q+V+W=3
Then
Output(7,6,"O A GAGNE
Stop:End
If Y+Z+W=30 or T+U+V=30 or O+P+Q=30 or O+U+W=30 or Y+U+Q=30 or O+T+Y=30 or P+U+Z=30 or Q+V+W=30:Then
Output(7,6,"X A GAGNE
Stop:End
If O+P+Q+T+U+V+Y+Z+W=54:Then
Output(7,4,"MATCH NUL
Stop:End
If K=0:Then:End:End
Pause :Goto O
Label M:ClrHome:ClrDraw
Disp " MATHS
Disp "
Disp "1:ALGEBRE
Disp "
Disp "2:GEOMETRIE
Repeat K!=0
getKey->K
If K=44:Goto K
If K=11:Goto Z
If K=15:Goto Q
If K=13:Goto 30
If K=23:Goto 24
If K=42:Goto O
If K=41:Goto M
If K=43:Goto 0
If K=22:Goto 20
If K=92:Goto J
If K=93:Goto I
End
Label 0:ClrHome:ClrDraw
Disp "TI-83+.FR ALT OS
Disp "
Disp "1:MATHS
Disp "
Disp "2:AUTRES
Repeat K!=0
getKey->K
If K=44:Goto K
If K=11:Goto Z
If K=15:Goto Q
If K=13:Goto 30
If K=23:Goto 24
If K=42:Goto O
If K=41:Goto M
If K=43:Goto 0
If K=22:Goto 20
If K=92:Goto M
If K=93:Goto O
End
Label 20
ClrHome:ClrDraw
Disp " PARAMETRES
Disp "
Disp "1:NOM
Disp " "
Disp "2:EFF VARIABLES
Repeat K!=0
getKey->K
If K=11:Goto Z
If K=15:Goto Q
If K=13:Goto 30
If K=23:Goto 24
If K=44:Goto K
If K=42:Goto O
If K=41:Goto M
If K=43:Goto 0
If K=22:Goto 20
If K=92:Goto 21
If K=93:Goto 24
End
Label 25:ClrHome:ClrDraw
Text(1,1,M
Pause :Goto 0
Label 21:ClrHome:ClrDraw
Disp " NOM
Disp "
Disp "1:AFFICHER NOM
Repeat K!=0
getKey->K
If K=11:Goto Z
If K=15:Goto Q
If K=13:Goto 30
If K=44:Goto K
If K=23:Goto 24
If K=42:Goto O
If K=41:Goto M
If K=43:Goto 0
If K=22:Goto 20
If K=92:Goto 22
If K=93:Goto 23
End
Label 22:ClrHome:ClrDraw
Disp "TU T'APPELLES",STR4
Pause :Goto 0
Label 23:ClrHome:ClrDraw
Input "TON NOM?",STR4
Text(1,1,"MODIFICATION EFFECTUEE
Pause :Goto 0
Label 24:ClrHome:ClrDraw
DelVar A:DelVar B:DelVar C:DelVar D:DelVar E:DelVar F:DelVar G:DelVar H:DelVar I:DelVar J:DelVar K:DelVar L:DelVar M:DelVar N:DelVar O:DelVar P:DelVar Q:DelVar R:DelVar S:DelVar T:DelVar U:DelVar V:DelVar W:DelVar X:DelVar Y:DelVar Z:DelVar STR1:DelVar STR2:DelVar STR3:ClrAllLists
Output(1,1,"VARIABLES EFFACEES
Pause :Goto 0
Label 10:ClrHome:ClrDraw
26-2int(2rand->K
{4->L1:Ans->L2:1->I
ClrHome
For(J,1,[e]2
L1(1->L1(J
L2(1->L2(J
Repeat max(S!=L1andAns!=L2
RandInt(1,8->S
RandInt(1,16->T
End
Output(S,Ans,"*
Repeat T=AnsandS=L1(I
getKey
If Ans=45:Goto Q
If Ans=34 or 2>abs(Ans-25:Ans->K
I+1-J(I=J->I
Output(L1(Ans),L2(Ans),"
(K=34)-(K=25)+L1(Ans-(Ans>1
Ans+8(not(Ans)-(Ans=9->L1(I
(K=26)-(K=24)+L2(I-(I>1
Ans+16(not(Ans)-(Ans=17->L2(I
Output(L1(I),Ans,"O
End:End
ClrHome
Label A0:ClrHome
Output(1,1,"ERREUR: FAUSSE CMD
Pause :ClrHome
Output(1,1,"LISEZ L'AIDE F3 SUR LES TOUCHES
Pause :Goto 0
Label Q:ClrHome:ClrDraw:AxesOn
DelVar A:DelVar B:DelVar C:DelVar D:DelVar E:DelVar F:DelVar G:DelVar H:DelVar I:DelVar J:DelVar K:DelVar L:DelVar M:DelVar N:DelVar O:DelVar P:DelVar Q:DelVar R:DelVar S:DelVar T:DelVar U:DelVar V:DelVar W:DelVar X:DelVar Y:DelVar Z:DelVar STR1:DelVar STR2:DelVar STR3:ClrAllLists
Output(1,1,"
as I told several times, it has to be defines by the user, and it's in another program, that I can't backup because somebody stole my calculator....
Where are the errors?? And as I said, I'm a beginner, I learnt TI-Basic just 2 months ago!
Input "USERNAME", Str4
Input "PASSWORD", Str0
Input "TEXTCODE", Str9
If Str0=Str9
//Program Code
End
an update will come, this one was the backup (stolen calculator --' ) I have the correct version on my calc which can be very far at the moment :P
yeah I've seen, but my "parental control??" block wabbit ;D
okok ;D
Ah ok.
Hmm, elasticité would simply be elasticity and variation relative would just be relative rate. The rest seemed fine, but I could be wrong. I don't know about Taux de variation, though. It seems to give weird results when translating. I tried Variation rate, but in Google I got weird results for that...
Yeah I am talking about the improvements on Google Translate over the past years.
Ticalc.org was not translated, but in 2000 or 2001, they posted an april fools (poisson d'avril) version of their original newsletter, but as a joke, they translated parts in french with translators and other parts in other languages. The french translation was horrible. I don't think it was Google but I know Google used to translate Ticalc.org newsletter to Le bulletin du ticalc.org.
http://www.ticalc.org/archives/news/attachments/2000-04-01-apr2000.txt
Yeah I am talking about the improvements on Google Translate over the past years.
Ticalc.org was not translated, but in 2000 or 2001, they posted an april fools (poisson d'avril) version of their original newsletter, but as a joke, they translated parts in french with translators and other parts in other languages. The french translation was horrible. I don't think it was Google but I know Google used to translate Ticalc.org newsletter to Le bulletin du ticalc.org.
http://www.ticalc.org/archives/news/attachments/2000-04-01-apr2000.txt
OMG that's horrible!! :o :o
why can't we do the same for Omnimaga?? ;D ;D :D
Oh ok, ouch :/, sorry to hear. I hope they can find it soon. :/
I'll maybe have an idea, to setup the parental control to let me only download .8xp files, and to run wabbit... that's how I could cope with the problem, but just short-term effect :/
Parent parent control or School parent control?What's a school parent? s:
Parent parent control or School parent control?What's a school parent? s:
Oh... Then it's not really a "parent" control.
This video contains content from Sony Music Entertainment. It is not available in your country.
I got a rickroll prank on Youtube that says it's still available in countries not listed above the copyright notice, but the problem is that there are 250+ countries listed, which is pretty much the entire world. ???
Yeah, what sucks though is that every single country in the world can be blocked, thus, unless your proxy is hosted in Antartica or something...
I still do not have my calc --' I think I should go to the police (in our country, the police can go into a school and look for anything with the agreement of the school, since it's really expensive (130USD), I think the director should be OK, since I have the proof it's somebody from my class))))
yeah, but wabbit is still blocked :p
/me takes his USB key and check if he put the screenshots in it
no, sorry, I don't have any :/ what are the troubles you had so far??
The project is continued :) I'll continue testing it and improving it!! ^^
The PARAMS program will be improved, with the same choice-making process as the one in the current version of SimpleCS. As I'm not allowed to download any file, it will only be available in sources. Anyone who could download the file and join it to a message on this thread would be very nice ;D
yes, you can (oh geez, I forgot: it's an Open Source project ;) so feel free to edit it, or even to translate it to your local language ( I'm thinking about ScoutDavid, who's in Portugal)) ;)
oh... yes please, I can't download any thing, so that would be great ;) but please wait for me to add the game, it'll take me 10 minutes maximum, just a coupe of getkeys to add, and copy paste the code I have (it's taken from a game I saw on INternet, but I optimized it and deleted the Menu command to add getkeys.) I love getkeys ;D
: Goto 1
ok, I'm editing the code ;)
I'd like to do one, but :/ oh!! maybe I could also ask my stepfather to really buy a new calc :p a little TI-83+SE for 40€, for i.e !!!!
I know where are the errors: it's all SourceCoder's fault: the program allows to create plots more easily, so it asks which pointer you want to use (I mean the cross, the point, or the box, in Plot1, Plot2, Plot3) but SourceCoder replace them as {cross}, {box} and {dot} so this could explain the ERR:SYNTAX. This is why it was working on my calc (the statistics thing was included in the SimpleCS in my calc, and it was working)..
no, I can't download anything... I could see PDF documents because I know how to download them without really downloading them, but that's all I could do :/
The main problems of SourceCoder is that it doesn't recognize : ² , the {dot},{box} and {cross} and L1 to L3 things :/
These, if they are modified (I can't do it in here, thanks to my f***ing parental filter), SimpleCS would run correctly.
I'm glad to announce that SimpleCS will be ported on Nspires (but requiring Ndless :D) by22/12/2012the end of Spring. I've made a certain progress in learning C, and I'm now able to create half of the shell in C. For the moment, it works on PCs, but I'll try to compile it for Nspire when I'll know how to. :D I'm already thinking of a port of TI-MTB (which you don't know because it has never been published =P )...
On the PC it works quite good, but not all SimpleCS has been ported :/ I'm progressing in learning C, but for the 2 next weeks I might not be able to code in C (i'm currently using a computer in a library, with a powerful shell called StrongHold, and I can't plug my USB key in with the sources and Code::Blocks), so I'll see this later. PLease don't ask for the sources, they are quite strangely organized (indented, and all that kind of stuff) :P
@DJ_O : yes, a calc version will be made, I still need to find out how to code in C for Nspires. The micro-SimpleCS version works well, except the games, which I think I'll delete.
I'm gonna create one of those tiny little userbars to tell you how far I've been getting to. Do anyone knows how to compile for Nspires? Is a special code required??
:Degree
:ClrHome:ClrDraw
:If 0=θ:Then
:Input "Username?",Str4
:Input "Password?",Str9
:1→θ
:Else
:Disp "Hello :)",Str4
:Lbl Z
:DelVar Str0
:Input "Textcode?",Str0
:If Str0=Str9:Then
:Goto 0
:Else
:Goto Q
:End:End
:Lbl 0:ClrHome:ClrDraw
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,5,"SimpleCS
:Output(3,6,"Maths
:Output(5,6,"Others
:Repeat K≠0
:getKey→K
:If K=44:Goto K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto M
:If K=93:Goto O
:End
:Lbl M:ClrHome:ClrDraw
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,6,"Maths
:Output(3,5,"Algebra
:Output(5,5,"Geometry
:Repeat K≠0
:getKey→K
:If K=44:Goto K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto J
:If K=93:Goto I
:End
:Lbl J:ClrHome:ClrDraw
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,5,"Algebra
:Output(3,5,"RemIdent
:Output(4,6,"Calcul
:Output(5,5,"Precalcul
:Output(6,5,"Statistic
:Repeat K≠0
:getKey→K
:If K=42:Goto O
:If K=41:Goto M
:If K=13:Goto 30
:If K=43:Goto 0
:If K=11:Goto Z
:If K=22:Goto 20
:If K=15:Goto Q
:If K=92:Goto H
:If K=93:Goto L
:If K=94:Goto 14
:If K=44:Goto K
:If K=82:Goto A1
:End
:Lbl 14:ClrHome
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,5,"Precalcul
:Output(3,7,"GCD
:Output(4,7,"LCM
:Output(5,5,"SquaRoot
:Output(6,5,"Trigo
:Repeat K≠0
:getKey→K
:If K=11:Goto Z
:If K=13:Goto 30
:If K=15:Goto Q
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto A
:If K=93:Goto C
:If K=94:Goto 16
:If K=95:Goto 50
:If K=44:Goto K
:End
:Lbl I:ClrHome:ClrDraw
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,5,"Geometry
:Output(3,5,"Circle
:Output(4,4,"TRectangle
:Output(5,6,"Cube
:Output(6,4,"Pythagore
:Repeat K≠0
:getKey→K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto D
:If K=93:Goto F
:If K=94:Goto G
:If K=82:Goto 15
:If K=44:Goto K
:End
:Lbl 15:ClrHome:ClrDraw
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,4,"Pythagore
:Output(3,6,"Theory
:Output(5,5,"Reversed
:Repeat K≠0
:getKey→K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto 13
:If K=93:Goto 12
:If K=44:Goto K
:End
:Lbl K:ClrHome:ClrDraw
:Output(1,1,"ERR:LABEL
:Output(2,1,"1: EXIT
:DelVar S
:Repeat S≠0
:getKey→S
:If S=105:Goto 99
:If S=92:Goto Q
:End
:If S≠105 and S≠92:Goto K
:Lbl 99:ClrHome
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,4,"Economics
:Output(3,4,"Variation
:Output(4,4,"Relat Var
:Output(5,4,"Elasticity
:Repeat K≠0
:getKey→K
:If K=92:Goto T
:If K=93:Goto U
:If K=94:Goto V
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=44:Goto K
:End
:Lbl O:ClrHome:ClrDraw
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,6,"Others
:Output(3,6,"TI-MSN
:Output(5,6,"Games
:Repeat K≠0
:getKey→K
:If K=44:Goto K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto P
:If K=93:Goto 11
:End
:Lbl 11:ClrHome:ClrDraw
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,6,"Games
:Output(3,4,"BlackJack
:Output(4,4,"TicTacToe
:Output(5,6,"Snake
:Output(6,5,"Matches
:Repeat K≠0
:getKey→K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto S
:If K=93:Goto N
:If K=94:Goto 10
:If K=82:Goto 02
:If K=44:Goto K
:End
:Lbl 30:ClrHome:ClrDraw
:Output(1,1,"F1: Lock
:Output(2,1,"F3: Help
:Output(3,1,"F5: Exit
:Output(4,1,"APPS: Others
:Output(5,1,"MATH: Maths
:Output(6,1,"PRGM: Menu
:Pause :Goto 0
:Lbl S:ClrHome
:randInt(1,13→A
:randInt(1,13→B
:randInt(1,13→C
:randInt(1,13→D
:randInt(1,13→E
:randInt(16,24→F
:min(A,10→A
:min(B,10→B
:min(C,10→C
:min(D,10→D
:min(E,10→E
:If A=1 and B=10
:Then
:Output(5,3,"BLACKJACK
:Pause :Goto S
:Else
:If B=1 and A=10:Then
:Output(5,3,"BLACKJACK
:Pause :Goto S
:End:End
:If A=1:Then
:B→T
:Disp "TOTAL OF
:Disp T
:Input "1 or 11?",A
:If A=1:Then
:1→A
:Else
:11→A
:End:End
:If B=1:Then
:A→T
:Disp "TOTAL OF
:Disp T
:Input "1 or 11?",G
:If G=1:Then
:1→B
:Else
:11→B
:End:End
:ClrHome
:A+B→T
:Output(1,5,"MAIN
:Output(3,1,A
:Output(3,4,B
:Output(5,3,"TOTAL OF
:Output(5,13,T
:Output(7,3,"STAY=1 HIT=2
:Disp "","","","","","",
:If T>21:Goto B
:Input G
:If G=1:Then
:Goto E
:Lbl E:ClrHome
:If F>21:Then
:Output(3,4,"HOUSE BUST
:Output(5,5,"YOU WIN
:Pause :Goto 11
:End
:Output(1,3,"TOTAL OF
:Output(2,9,T
:Output(4,2,"HOUSE TOTAL OF
:Output(5,9,F
:If T>F:Then
:Output(7,6,"YOU WIN
:Pause :Goto 11
:End
:If F>T:Then
:Output(7,5,"YOU LOSE
:Pause :Goto 11
:End
:If F=T:Then
:Output(7,4,"DRAW
:Pause :Goto 11
:End
:Else
:If C=1:Then:ClrHome
:Disp "TOTAL OF
:Disp T
:Input "1 or 11?",C
:If C=1:Then
:1→C
:Else
:11→C
:End:End
:A+B+C→T
:Disp "","","","","","",
:Output(1,5,"MAIN
:Output(3,1,A
:Output(3,4,B
:Output(3,7,C
:Output(5,3,"TOTAL OF
:Output(5,13,T
:Output(7,3,"STAY=1 HIT=2
:If T>21:Goto B
:Input G
:If G=1:Then
:Goto E
:Else
:If D=1:Then:ClrHome
:Disp "TOTAL OF
:Disp T
:Input "1 or 11?",D
:If D=1:Then
:1→D
:Else
:11→D
:End:End
:A+B+C+D→T
:Disp "","","","","","",
:Output(1,5,"MAIN
:Output(3,1,A
:Output(3,4,B
:Output(3,7,C
:Output(3,10,D
:Output(5,3,"TOTAL OF
:Output(5,13,"STAY=1 HIT=2
:If T>21:Goto B
:Input G
:If G=1:Then
:Goto E
:Else
:If E=1:Then
:Disp "TOTAL OF
:Disp T
:Input "1 or 11?",E
:If E=1:Then
:1→E
:Else
:11→E
:End:End
:A+B+C+D+E→T
:Disp "","","","","","",
:Output(1,5,"MAIN
:Output(3,1,A
:Output(3,4,B
:Output(3,7,C
:Output(3,10,D
:Output(3,13,E
:Output(5,3,"TOTAL OF
:Output(5,13,T
:If T>21:Then
:Goto B
:Else
:Pause :Goto E
:Lbl B:ClrHome
:Output(1,7,"BUST
:Output(3,5,"YOU LOSE
:Output(5,3,"TOTAL OF
:Output(5,12,T
:Pause :Goto 11
:Lbl T:ClrHome
:Input "Val depart=?",D
:Input "Val arrivee=?",A
:100→100D/A→X
:Text(1,1,"Variation /100=",X
:Pause :DelVar X:DelVar A:DelVar D:Goto K
:Lbl U:ClrHome
:Prompt A,D
:A-D→X
:Disp "Relative rate=",X,".
:Pause :DelVar A:DelVar X:DelVar D:Goto K
:Lbl V:ClrHome
:Input "DEMANDE or CONSU=",D
:Input "PRICE or WAGE",P
:D/P→X
:Text(1,1,"Elasticity=",X,".
:Pause :DelVar D:DelVar P:DelVar X:Goto K
:Lbl A:ClrHome:ClrDraw
:Prompt A,B
:gcd(A,B→X
:Text(1,1,"GCD=",X,".
:If X=1
:Lbl C:ClrHome:ClrDraw
:Prompt A,B
:lcm(A,B→X
:Text(1,1,"LCM=",X,".
:Pause :DelVar A:DelVar B:DelVar X:Goto J
:Lbl L:ClrHome
:Input X
:Disp X
:Pause :DelVar X:Goto K
:Lbl H:ClrHome
:Disp "(A+B)^2=
:Disp "A^2+2AB+B^2
:Pause
:Disp "(A-B)^2=
:Disp "A^2-2AB+B^2
:Pause
:Disp "(A+B)(A-B)="
:Disp "A^2-B^2
:Pause :Goto J
:Lbl A1
:FnOff
:PlotsOff
:AxesOn
:GridOff
:CoordOn
:ExprOn
:ClrHome
:Disp "Nb de donnees
:Input "par axe:",N
:N→dim(L1
:N→dim(L2
:ClrHome
:Disp "Abscisses
:Input "Depart:",D
:Input "Intervalle:",I
:D→L1(1)
:For(Z,2,N
:D+I(Z-1→L1(Z)
:End
:For(Z,1,N
:ClrHome
:Disp "Ordonnees:","Valeur nº
:Output(2,10,Z
:Input P
:P→L2(Z
:End
:ClrHome
:Output(1,3,"!
:Output(1,14,"!
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,5,"Plot Type
:Output(3,6,"Scatter
:Output(4,6,"xyLine
:Output(5,6,"Histogram
:Output(6,5,"Stats-Vars
:Repeat K≠0
:getKey→K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto A2
:If K=93:Goto A3
:If K=94:Goto A4
:If K=82:Goto B2
:If K=44:Goto K
:End
:Lbl A2:ClrHome
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,6,"Mark
:Output(3,8,"{cross}
:Output(4,8,"{box}
:Output(5,8,"{dot}
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto A5
:If K=93:Goto A6
:If K=94:Goto A7
:If K=44:Goto K
:End
:Lbl A5
:Plot1Scatter ,L1,L2,{cross}
:ZoomStat
:Trace
:Pause :Goto J
:Lbl A6
:Plot1Scatter ,L1,L2,{box}
:ZoomStat
:Trace
:Pause :Goto J
:Lbl A7
:Plot1Scatter ,L1,L2,{dot}
:ZoomStat
:Trace
:Pause :Goto J
:Lbl A3:ClrHome
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,6,"Mark
:Output(3,8,"{cross}
:Output(4,8,"{box}
:Output(5,8,"3: {dot}
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto A8
:If K=93:Goto A9
:If K=94:Goto B1
:If K=44:Goto K
:End
:Lbl A8
:Plot1xyLine ,L1,L2,{cross}
:ZoomStat
:Trace
:Pause :Goto J
:Lbl A9
:Plot1xyLine ,L1,L2,{box}
:ZoomStat
:Trace
:Pause :Goto J
:Lbl B1
:Plot1xyLine ,L1,L2,{dot}
:ZoomStat
:Trace
:Pause :Goto J
:Lbl A4
:Plot1Hist ,L1,L2
:min(L1)→Xmin
:max(L1)+I→Xmax
:I→XScl
:max(L2)→Ymax
:0→Ymin
:iPart(Ymax/10)→YScl
:1→Xres
:DispGraph
:Trace
:Pause :Goto J
:Lbl B2:ClrHome
:OneVar
:Pause :Goto J
:Lbl 16:ClrHome:ClrDraw
:Prompt N
:sqrt(N→X
:Text(1,1,"Square root=",N,"=",X,".
:Pause :Goto 14
:Lbl 13:ClrHome
:Input "Hypothenuse=?",H
:Input "COTE 2=?",A
:Input "COTE 3=?",B
:If 0=H:Then
:A^2+B^2→H:sqrt(H→H
:ClrHome:Output(1,1,"Hypothenuse=",H,".
:If 0=A:Then
:H^2-B^2→A:sqrt(A→A
:ClrHome:Output(1,1,"COTE 2=",A,".
:If 0=B:Then
:H^2-A^2→B:sqrt(B→B
:ClrHome:Output(1,1,"COTE 3=",B,".
:End
:Pause :DelVar H:DelVar A:DelVar B:Goto 14
:Lbl 12:ClrHome
:Input "Grande longueur=",L
:Prompt D,E
:L^2→L
:D^2+E^2→X
:If L=X:Then
:ClrHome:Output(1,1,"Le triangle est rectangle
:Else
:ClrHome:Output(1,1,"Le triangle n'est pas rectangle
:Pause :Goto 14
:Lbl 50:ClrHome
:Prompt N
:cos(n→x
:sin(n→y
:tan(n→z
:Disp "Cos(n)=",x
:Disp "Sin(n)=",y
:disp "Tan(n)=",z
:DelVar X:DelVar Y:DelVar Z
:Pause :Goto 14
:Lbl D:ClrHome:ClrDraw
:Prompt R
:Rπ^2→A
:2πR→P
:Text(1,1,"Area=",A,".
:Text(7,1,"Perimetre=",P,".
:Pause :DelVar R:DelVar A:DelVar P:Goto I
:Lbl F:ClrHome:ClrDraw
:Disp "H=HAUTEUR/BASE
:Disp "F=HYP/3º COTE
:Prompt H,F
:(H*F)/2→X
:Text(1,1,"AIRE=",X,".
:Pause :DelVar H:DelVar F:DelVar X:Goto I
:Lbl G:ClrHome:ClrDraw
:Prompt A
:6A^2→A:A^3→U
:Text(1,1,"Area=",A,".
:Text(7,1,"Volume=",V
:Pause :DelVar A:DelVar V:Goto I
:Lbl P:ClrHome
:"→Str1
:"→Str2
:GetCalc(Str3
:{e}(A=π)+π(A≠π→A
:Lbl P:ClrHome
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,6,"TI-MSN
:Output(3,5,"Receive
:Output(5,6,"Send
:Repeat K≠0
:getKey→K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto R
:If K=93:Goto W
:If K=44:Goto K
:End
:Lbl W
:Input "Message: ",Str3
:If A=π:Str3→Str1
:If A={e}:Str3→Str2
:Goto M:Lbl R
:If A={e}:Then
:GetCalc(Str1
:Str1
:Else
:GetCalc(Str2
:Str2
:End
:Output(1,1,Ans
:Pause :Goto M
:Lbl N:ClrHome
:Output(1,7,"!
:Output(1,9,"!
:Output(2,6,"-+-+-
:Output(3,7,"!
:Output(3,9,"!
:Output(4,6,"-+-+-
:Output(5,7,"!
:Output(5,9,"!
:Output(1,6,"7
:Output(1,8,"8
:Output(1,10,"9
:Output(3,6,"4
:Output(3,8,"5
:Output(3,10,"6
:Output(5,6,"1
:Output(5,8,"2
:Output(5,10,"3
:0→Y:0→Z:0→W:0→T
:0→U:0→V:0→O:0→P
:0→Q:0→A:0→X
:While 1
:A→X
:getKey→K
:If K=92 and Y=0:Then
:If X=1:Then
:Output(5,6,"O
:A-1→A
:1→Y
:Else
:If X=0:Then
:Output(5,6,"X
:A+1→A
:10→Y
:End:End:End
:If K=93 and Z=0:Then
:If X=1:Then
:Output(5,8,"O
:A-1→A
:1→Z
:Else
:If X=0:Then
:Output(5,8,"X
:A+1→A
:10→Z
:End:End:End
:If K=94 and W=0:Then
:If X=1:Then
:Output(5,10,"O
:A-1→A
:1→W
:Else
:If X=0:Then
:Output(5,10,"X
:A+1→A
:10→W
:End:End:End
:If K=82 and T=0:Then
:If X=1:Then
:Output(3,6,"O
:A-1→A
:1→T
:Else
:If X=0:Then
:Output(3,6,"X
:A+1→A
:10→T
:End:End:End
:If K=83 and U=0:Then
:If X=1:Then
:Output(3,8,"O
:A-1→A
:1→U
:Else
:If X=0:Then
:Output(3,8,"X
:A+1→A
:10→U
:End:End:End
:If K=84 and V=0:Then
:If X=1:Then
:Output(3,10,"O
:A-1→A
:1→V
:Else
:If X=0:Then
:Output(3,10,X
:A+1→A
:10→V
:End:End:End
:If K=72 and O=0:Then
:If X=1:Then
:Output(1,6,"O
:A-1→A
:1→O
:Else
:If X=0:Then
:Output(1,6,"X
:A+1→A
:10→O
:End:End:End
:If K=73 and P=0:Then
:If X=1:Then
:Output(1,8,"O
:A-1→A
:1→P
:Else
:If X=0:Then
:Output(1,8,"X
:A+1→A
:10→P
:End:End:End
:If K=74 and Q=0:Then
:If X=1:Then
:Output(1,10,"O
:A-1→A
:1→Q
:Else
:If X=0:Then
:Output(1,10,"X
:A+1→A
:10→Q
:End:End:End
:If K=45:Then:ClrHome
:Stop:End
:If Y+Z+W=3 or T+U+V=3 or O+P+Q=3 or O+U+W=3 or Y+U+Q=3 or O+T+Y=3 or P+U+Z=3 or Q+V+W=3
:Then
:Output(7,6,"O wins
:Stop:End
:If Y+Z+W=30 or T+U+V=30 or O+P+Q=30 or O+U+W=30 or Y+U+Q=30 or O+T+Y=30 or P+U+Z=30 or Q+V+W=30:Then
:Output(7,6,"X wins
:Stop:End
:If O+P+Q+T+U+V+Y+Z+W=54:Then
:Output(7,4,"Draw
:Stop:End
:If K=0:Then:End:End
:Pause :Goto O
:Lbl 02:ClrHome
:AxesOff
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,4,"Main menu
:Output(3,6,"Play
:Output(5,5,"Rules
:Repeat K≠0
:getKey→K
:If K=92:Goto 04
:If K=93:Goto 03
:If K=15:Goto 09
:End
:Lbl 03:ClrDraw
:Text(0,0,"Rules of the game:
:Text(6,0,"take off 1 to 6
:Text(12,0,"matches without taking
:Text(18,0,"the last one
:Pause :Goto 02
:Lbl 04
:Output(1,3,"Nbr players
:Output(3,1,"1: 1P
:Output(5,1,"2: 2P
:Repeat K≠0
:getKey→K
:If K=92:Goto 41
:If K=93:Goto 42
:End
:Lbl 41
:1->J
:Goto 05
:Lbl 42
:2->J
:Lbl 05
:randInt(0,1)->T
:36->A
:{12,12,12}->L1
:Repeat A<1
:For(I,1,3)
:For(K,1,L1(I))
:Output(2I+2,K+2,"I")
:End
:End
:If J=1 and T=1
:Then
:RandInt(1,6)->E
:Output(1,1,"Computer
:Output(2,1,"takes :
:Output(2,10,E)
:Pause
:Else
:Repeat E<7 and E>0
:Output(2,1,"Player
:Output(2,8,T+1)
:Input "Number to take",E
:End
:End
:ClrHome
:Not(T)->T
:L1(1)-E->L1(1)
:If L1(1)<0
:Then
:L1(2)+L1(1)->L1(2)
:0->L1(1)
:If L1(2)<0
:Then
:L1(3)+L1(2)->L1(3)
: 0->L1(2)
:End
:End
:L1(1)+L1(2)+L1(3)->A
:End
:Output(3,4,"Winner:
:If J=1 and T=1
:Then
:Output(4,4,"COMPUTER
:Else
:Output(4,5,"PLAYER
:Output(4,12,T+1
:End
:Pause
:ClrHome
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,5,"Start again?
:Output(3,6,"Yes
:Output(4,7,"No
:Output(5,5,"Exit
:Repeat K≠0
:getKey→K
:If K=92:Goto 05
:If K=93:Goto 02
:If K=94:Then: Lbl 09: ClrHome: ClrDraw: Stop
:End:End
:Lbl 20:prgmPARAMS
:Lbl 10:ClrHome:ClrDraw
:26-2int(2rand→K
:{4→{L1}:Ans→{L2}:1→I
:ClrHome
:For(J,1,{e}2
:{L1}(1→{L1}(J
:{L2}(1→{L2}(J
:Repeat max(S≠{L1} and Ans≠{L2}
:randInt(1,8→S
:randInt(1,16→T
:End
:Output(S,Ans,"*
:Repeat T=Ans and S={L1}(I
:getKey
:If Ans=45:Goto Q
:If Ans=34 or 2>abs(Ans-25:Ans→K
:I+1-J(I=J→I
:Output({L1}(Ans),{L2}(Ans),"
:(K=34)-(K=25)+{L1}(Ans-(Ans>1
:Ans+8(not(Ans)-(Ans=9→{L1}(I
:(K=26)-(K=24)+{L2}(I-(I>1
:Ans+16(not(Ans)-(Ans=17→{L2}(I
:Output({L1}(I),Ans,"O
:End:End
:ClrHome
:Lbl Q:ClrHome:ClrDraw
:AxesOn
:CoordOn
:Output(1,1,"
/me stares at the code and goes w00t.I'm not sure if TI does that anymore anywhere actually. Maybe if we register our calc? (But then I bet they charge for shipping, right?)
If you find any bug or any improvement to make, just tell me. Btw Scout, shouldn't you be sleeping at that time? ;D
I've been looking for the free keypad in France... I just needed to register (me in a first time) and then my calc, to see a page where I can order the free TI-84 keypad... The main problem is that I need an American address (or Canadian). In which we can conclude that TI takes their customers for granted, as well as treating them as stupid people.Are you browsing the US/Canada site? There are localized sites available on... Wait lol, I can't get the url. Their website is down.
Well, I'm browsing the FRENCH website, then I click on "Solliciter un accessoire". The link goes on EPSSTORE (the US one). :/Well, that's silly... I thought TI wouldn't do something like that, but still, it doesn't really surprise me.
Nothing surprise us from TI :P
Well, I'll answer to TI-Cares, as they told me something totally stupid...
SimpleCS v4.0G's new features will be:
-more maths formula;
-more economics formula;
-physics formula as well;
-new games (or improved versions of the ones in 3.5);
-maybe a beautiful GUI (not sure though)
Nice to see you around too Scout (and Fast Crash, who I "saw")! ;)
I don't understand what GUI you're talking about, considering my UI as a TextUI...
I've always known the snake game to be buggy, but I didn't realise it could be so important ;D Don't worry, i'll try to fix it ;)
I'll try to improve it ;) I already optimized the code. It's now 1006 lines big, less than 1062 lines just 5 minutes ago :D
@scout: really?! glad to here! I'll try to optimize it even more ;)
SimpleCS 4.0 feature wishlist is opened :D
If there's any feature which you'd like on SimpleCS 4.0, post a message ;)
OK for maths formulas, they are already planned ;)
but what do you mean by a way to go back in menus?? Like the IE "Previous" button??
Hum...... That should be possible, but not applyable to every menus: some are just after the main menu, so pressing CLEAR=pressing PRGM (or the button to go to the main menu, if it's not PRGM, then I don't remember which one it is...)
If I'm in the main menu, or in any other menu, pressing F3 (or GRAPH on TI-82) will close it...
If I'm in the menu after the main menu, or in any other menu, pressing PRGM will go to the main menu (or another button, but I don't remember which one xD)
I've only done those ones, not the third thing you're telling me about... i'll try to include it in SimpleCS 4.0 ;) Any other idea?
I'll try to add the PREVIOUS feature and more formulas ;)