Blog Entries: 1

## TI-83+ Games and Programs

This game is where you try to hit a target on the ground, very simple but addicting.
Called Arcshot, I did not make this, I found it on the web and though it was fun so i put it here for others.
Key: -> is Sto
< or > is less than or more than
* is times
^ is a carrot
If you can't find some of these keys then go to 2nd then press 0... I think it will say catalog, it has every key in the calculator. I will be posting more games if I find them or some that I made.
ARCSHOT
:0->Xmin
:94->Xmax
:1->Ymin
:63->Ymax
:PlotsOff
:CoordOff
:AxesOff
:GridOff
:FnOff
:Lbl A
:0->B
:randInt(10,85)->C
:ClrDraw
:ClrHome
:Line(C,1,C+5,1
:Line(C+1,2,C+4,2
:For(A,1,500)
:End
:Lbl B
:ClrDraw
:Input "SHOT POWER=",S
:B+1->B
:(1/S)->S
:Line(C,1,C+5,1
:Line(C+1,2,C+4,2
:For(X,0,95,.25
:(-S(X^2)+63)->Y (Make this negative S)
:Y->Z
:Pt-On(X,Y)
:If Z<0 or Z=0
:Goto C
:End
:Lbl C
:1->M
:If X>(C-1) and X<(C+6)
:Then
:2->M
:X->K
:Line(K,1,K-8,3
:Line(K,1,K+8,3
:Line(K,1,K-6,8
:Line(K,1,K+6,8
:Line(K,1,K-2,6
:Line(K,1,K+2,6
:End
:For(A,1,200)
:End
:If M=2
:Then
:ClrHome
:If B=1
:Then
:For(I,1,3)
:Output(4,4,"FIRST TRY!"
:For(A,1,100)
:End
:Output(4,4,"__________" (10 spaces)
:For(A,1,100)
:End
:End
:Output(4,4,"FIRST TRY!:"
:End
:If B>1
:Then
:Output(4,4,B
:Output(4,8,"SHOTS"
:End
:Pause
:ClrHome
:Goto D
:End
:ClrHome
:Disp "SHOOT AGAIN:"
:Goto B
:Lbl D
:ClrHome
:Lbl E
:ClrHome
:Stop
 PhysOrg.com science news on PhysOrg.com >> Galaxies fed by funnels of fuel>> The better to see you with: Scientists build record-setting metamaterial flat lens>> Google eyes emerging markets networks
 Blog Entries: 1 Once I get a TI-83 to PC link cable I will be releasing a "Game Pack" so to speak of some calculator games that I have made or found on the web, This one will take up around 4000 of your RAM. It will include Arcshot and more!!!

Blog Entries: 1

## TI-83+ Games and Programs

This is a Fake Virus called Quads and a game called ESCAPE... the games name says it all.
Escape isn't by me but quads is
/someone I don't know/
Clrhome
For(A,0,50)
Output(1,1,"Executing"
End
For(A,50,100
Output(4,1,"Clearing memory" /go to MIRAGE OS click ALPHA and go to misc. lower case letters option there/
End
for(A,100,150
Output(6,1,"Corrupting files"
End
for(A,150,200
Output(8,13,"Done"
Pause
Clrhome
clrDraw
Lbl S
Input "",N
N->A
If N=A
Then
N+randint(-100,1000->A
Disp A
End /sometimes the End won't work os just don't put it there/
goto S
Its Dinner time here so i'll include Escape in my next post
 Blog Entries: 1 OK Guys, I found this game called "ITTY-BITTY SNAKE" It essentially was pretty bad but I amped it up a bit, the area is bigger and better score keeping... Also!!! LOTS of the Labels and goto's were missing so I had to like RE-create around half of it, lots of errors and bugs but not NOW! If you don't understand some of the things look at my Key in the 1st and 2nd posts. HERE WE GO!!!!!!: ClrHome AxesOff ClrDraw FnOff PlotsOff Disp "ITTY-BITTY SNAKE ZStandard Line(-3,-3,-3,3 Line(-3,3,3,3 Line(3,3,3,-3 Line(3,-3,-3,-3 3->L 4->H 34->I 1->dim(LSNAH ;LSNAH comes with a little L located in (2nd x-1 or MATRIX all te way down 100->dim(L1 ;The L1 variable can be found under [2nd][STAT] 100->dim(L2 ;[2nd][STAT] 0->L1(1 0->L1(2 0->L2(1 0->L2(2 24->X 35->Y X->L1(3 Y->L2(3 1->E Goto 22 If pxl-Test(x,y Lbl 1 Goto 3 L1(E->J L2(e->K Pxl-On(X,Y Pxl-Off(J,K X->L1(H Y->L2(H getKey If Ans Ans->I X-(I=25)+(I=34)->X Y-(I=24)+(I=26)->Y 1+H->H H-L->E If H=101 1->H If E<=0 ; <= is Less than or equal to (2nd MATH) 100+E->E If (X=F)(Y=G Goto 2 Goto 1 Lbl 2 Pxl-Off(F,G Lbl 22 randInt(24,38->F randInt(35,59->G L+1->L If pxl-Test(F,G Goto 22 Pxl-On(F,G Goto 1 Lbl 3 ClrDraw AxesOn Disp "YOUR SCORE: Disp L-3 While L-3>LSNAH(1 ;LSNAH is 2nd x-1 or in yellow MATRIX, all the way down L-3->LSNAH(1 Disp "NEW HIGH SCORE! Input "Name:",Str7 ;String variables are under the [VARS] button 0->L End Disp "HIGHSCORE: Disp Str7 Output(5,10,LSNAH(1 Disp "GAME OVER

 Tags games, programs, ti-83+, ti-84, ti-84+