0 Members and 2 Guests are viewing this topic.
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 ) by 22/12/2012 the 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. 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) @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,"
Author
Topic: [PROJECT] SimpleCS (Read 23026 times)
