TI-86/86 Source Code

Source Codes

READ BELOW BEFORE STARTING
(or you may get confused)

-> this symbol is that button above the off key that looks like STO->
/= this stands for not equal to. On the TI, it is the equal sign with a line through it
>= this stands for greater than or equal to
<= naturally this one's less than or equal to
___ is used as a place holder for the empty white space, this is ment to make it easier to find spaces in the code below. Each underscore represents one space.

The other commands should be found in the TI-86 manual Text inside parentheses "***" are not commands and should be entered as is with numbers, symbols, letters, and note the number of spaces on the screen as blanks( under zero key). The catalog is a good place to look for finding functions Most of the functions are under the PRGM key during EDIT mode. If you know what you are doing(or think you've got it) you can alter the program at your own will as long as you don't take credit for my work. Try to keep track of where Zeros can be mistaken for the letter or vice versa. It's in BASIC, though some calculators have different spellings for thier functions, it really isn't too difficult to transpose between each other. I'm guessing you know how to start a new program.(PRGM key) The TI-85/86 does have some problems you'll need to work around. Such as the "If" command problem, the TI-85/86 require that you use 2 = signs(e.i. If X==3). The single equal sign is used for true/false commands(I haven't used it properly yet). All in all the newer ones are better, but I disagree with the "If" command. I've found the TI manual very helpful in finding where and how functions are used if your using the below as examples of how things work in a program. As far as typing them in, I recomend copying them to notepad or the like. Email me of bugs or problems you have!
The text in yellow are comments, and should not be typed in.

BLOCKARD GUNNER SENET YATZEE

BLOCKARD
An alteration to that old Snake Game. After level 4, the levels are random and becomes progressively more difficult.
J. MacEachern Adapted this game for use on the TI-83 Plus. TI-83 Plus Version(.83P format only)
Game instructions: Navagate the snake to the right end of the screen without crashing into the walls(or dots) using the arrow keys.

:1->xMin
:127->xMax
:1->yMin
:64->yMax
:GridOff
:AxesOff
:FnOff
:0->R9
:1->L
:3->M
:ClLCD
:Input "Level:",L
:Lbl A
:ClLCD
:Outpt(4,8,"Level:"
:Outpt(4,15,L
:Outpt(5,8,"Lives:"
:Outpt(5,15,M
:Pause
:ClDrw
:2->X
:2->Y
:Line(125,1,125,63
:Line(127,1,127,63
:Line(1,1,127,1
:Line(1,1,1,63
:Line(1,63,127,63
:Goto F
:Lbl G
:Line(X,Y,X+1,Y
:Line(X,Y+1,X+1,Y+1
:getKy->Z
:While Z==0
:getKy->Z
:End
:If Z==25
:Then
:1->W
:Goto B
:End
:If Z==26
:Then
:2->W
:Goto B
:End
:If Z==34
:Then
:3->W
:Goto B
:End
:If Z==24
:Then
:4->W
:Goto B
:End
:Goto G
:Lbl B
:Line(X,Y,X+1,Y
:Line(X,Y+1,X+1,Y+1
:If W==1
:Goto BA
:If W==2
:Goto BB
:If W==3
:Goto BC
:If W==4
:Goto BD
:Lbl BA
:Y+2->Y
:Goto C
:Lbl BB
:X+2->X
:Goto C
:Lbl BC
:Y-2->Y
:Goto C
:Lbl BD
:X-2->X
:Goto C
:Lbl C
:If X<2
:Goto D
:If X>120
:Goto E
:If Y<2
:Goto D
:If Y>62
:Goto D
:PxTest(63-Y,X-1)->Z
:If Z==1
:Goto D
:PxTest(62-Y,X)->Z
:If Z==1
:Goto D
:PxTest(63-Y,X)->Z
:If Z==1
:Goto D
:PxTest(62-Y,X-1)->Z
:If Z==1
:Goto D
:getKy->Z
:If Z==0
:getKy->Z
:If Z==25
:1->W
:If Z==26
:2->W
:If Z==34
:3->W
:If Z==24
:4->W
:Goto B
:Lbl D
:Line(X-2,Y-2,X+3,Y+3
:Line(X+3,Y-2,X-2,Y+3
:PtOff(X,Y
:PtOff(X,Y+1
:PtOff(X+1,Y
:PtOff(X+1,Y+1
:Pause
:ClLCD
:Outpt(4,7,"You crashed"
:M-1->M
:Pause
:If M==0
:Goto H
:1->R9
:Goto A
:Lbl E
:L+1->L
:0->R9
:Goto A
:Lbl F
:If L==1
:Goto F1
:If L==2
:Goto F2
:If L==3
:Goto F3
:If L==4
:Goto F4
:Goto F5
:Lbl F1
:20->X
:30->Y
:Line(50,63,50,30
:Line(50,1,50,20
:Line(60,63,60,50
:Line(60,1,60,40
:Goto G
:Lbl F2
:Line(100,63,100,20
:Line(90,1,90,50
:Line(90,50,30,50
:Line(25,50,1,50
:Line(1,10,20,10
:Goto G
:Lbl F3
:Line(5,1,5,10
:Line(1,16,30,16
:Line(30,16,30,10
:Line(40,1,40,25
:Line(40,25,20,25
:Line(1,32,40,32
:Line(40,32,40,30
:Line(40,25,40,27
:Line(41,32,47,32
:Line(48,32,48,6
:Line(41,20,43,20
:Line(46,20,48,20
:Line(48,6,118,6
:Line(118,6,118,63
:Goto G
:Lbl F4
:32->Y
:20->X
:Line(22,32,22,33
:Line(22,34,10,34
:Line(22,31,18,31
:Line(10,34,10,25
:Line(10,25,28,25
:Line(28,25,28,35
:Line(31,42,1,42
:Line(1,20,23,20
:Line(23,20,23,16
:Line(28,25,28,10
:Line(28,10,15,10
:Line(15,10,15,14
:Line(20,10,20,5
:Line(15,14,5,14
:Line(1,9,10,9
:Line(15,1,15,5
:Line(35,1,35,35
:PtOn(29,25
:PtOn(34,35
:Line(32,25,35,25
:Line(29,35,31,35
:Line(34,36,34,47
:Line(31,36,31,42
:Line(33,47,20,47
:Goto G
:Lbl F5
:32->Y
:If R9==1
:Then
:RcPic BLCKRD
:Goto G
:End
:L-4->D
:1/D->D
:D*3->D
:For(C,8,120,D
:PtOn(C,(randInt(1,63))
:End
:StPic BLCKRD
:Goto G
:Lbl H
:DelVar(BLCKRD
:ClLCD
:Outpt(4,8,"game over"

BLOCKARD GUNNER SENET YATZEE

GUNNER
It's a game that uses the physics of projectile motion.
Game Intsructions: Set your angle and your initial velocity to try and hit the target.

:FnOff
:AxesOff
:0->xMin
:126->xMax
:0->yMin
:62->yMax
:StPic TEMP
:Degree
:ClLCD
:Outpt(4,8,"GUNNER"
:Pause
:ClLCD
:Lbl A
:ClDrw
:DelVar(TEMP
:randInt(8,50)->C
:randInt(40,110)->M
:Circl(M,C+3,3
:Line(1,1,2,1
:Line(1,2,2,2
:StPic TEMP
:Pause
:Lbl B
:ClLCD
:Input "ANGLE=",A
:Intput "M/S=",V
:If A>89 or A<1
:Goto E
:126->S
:M/(V*cos (A))->T
:(V*sin (A))T-4.9(T^2)->Y
:If Y>C and Y :M->S
:ClDrw
:RcPic TEMP
:For(T,.1,100,.1
:(V*sin (A))T-4.9(T^2)->Y
:(V*cos (A))T->X
:PtOn(X,Y
:If Y<0 or X>S
:Goto C
:End
:Lbl C
:If S==M
:Then
:For(J,1,15
:randInt(C+10,C-4)->Y
:randInt(M-10,M+10)->X
:Line(M,C+3,X,Y
:End
:Pause
:Goto D
:Else
:Goto E
:End
:Lbl D
:ClLCD
:Disp "TARGET DESTROYED","","PLAY AGAIN?"
:Menu(1,"YES",A,2,"NO",Z
:Lbl Z
:ClLCD
:ClDrw
:DelVar(TEMP
:Stop
:Lbl E
:ClLCD
:(V*cos (A))->T
:(V*sin (A))T-4.9(T^2)->Y
:If Y>C+6
:Disp "TOO HIGH,"
:If Y :Disp "TOO LOW,"
:Disp "YOU MISSED","","TRY AGAIN?"
:Menu(1,"YES",B,2,"NO",Z

BLOCKARD GUNNER SENET YATZEE

SENET
This one is a board game. If you've every played through Tomb Raider 4, then you already know this one.
Game Intsructions: Push the FLIP to see how many spaces to move, then try to move all of your tiles to the far left box choosing X, Y, or Z. Every "1" adds to your move count. If you get all zeros, you will get 6 moves and a free turn. Try to land your tiles on the darker boxes for a free turn. If you land on one of your own tiles you'll be bumped ahead one space. If you land on an enemy tile (A, B, or C), you will send the enemy's tile back to the start.

:ClLCD
:Outpt(4,9,"SENET"
:Pause
:ClLCD
:Disp "SELECT DIFFICULTY:"
:Disp "","0 = EASY","1 = NORMAL","2 = HARD","3 = VERY HARD"
:Menu(1,"0",H1,2,"1",H2,3,"2",H3,4,"3",H4,5,"QUIT",QT
:Lbl H1
:0->H
:Goto H5
:Lbl H2
:1->H
:Goto H5
:Lbl H3
:2->H
:Goto H5
:Lbl H4
:3->H
:Lbl H5
:CLDrw
:0->xMin
:126->xMax
:0->yMin
:62->yMax
:AxesOff
:GridOff
:FnOff
:Line(90,10,120,10
:Line(80,20,120,20
:Line(0,30,120,30
:Line(0,40,120,40
:Line(80,50,120,50
:Line(90,60,120,60
:Line(120,60,120,10
:Line(110,60,110,10
:Line(100,60,100,10
:Line(90,60,90,10
:Line(80,50,80,20
:For(A,70,0,-10
:Line(A,40,A,30
:End
:For(A,1,81,40
:Line(A,31,A+8,31
:Line(A+8,31,A+8,31
:Line(A+8,38,A,31
:Line(A,39,A,31
:End
:For(A,21,41,20
:Line(111,A,119,A
:Line(119,A,119,A+8
:Line(119,A+8,111,A+8
:Line(111,A+8,111,A
:End
:StPic TEMP
:Lbl A
:0->A1
:0->A2
:0->A3
:0->B1
:0->B2
:0->B3
:0->U
:0->T
:Lbl B
:ClDrw
:RcPic TEMP
:If B1==0
:Text(4,93,"A"
:If B1==1
:Text(14,93,"A"
:If B1==2
:Text(24,93,"A"
:If B1==3
:Text(24,83,"A"
:If B1==4
:Text(24,73,"A"
:If B1==5
:Text(24,63,"A"
:If B1==6
:Text(24,53,"A"
:If B1==7
:Text(24,43,"A"
:If B1==8
:Text(24,33,"A"
:If B1==9
:Text(24,23,"A"
:If B1==10
:Text(24,13,"A"
:If B2==0
:Text(4,103,"B"
:If B2==1
:Text(14,103,"B"
:If B2==2
:Text(24,103,"B"
:If B2==3
:Text(24,93,"B"
:If B2==4
:Text(24,83,"B"
:If B2==5
:Text(24,73,"B"
:If B2==6
:Text(24,63,"B"
:If B2==7
:Text(24,53,"B"
:If B2==8
:Text(24,43,"B"
:If B2==9
:Text(24,33,"B"
:If B2==10
:Text(24,23,"B"
:If B2==11
:Text(24,13,"B"
:If B3==0
:Text(4,113,"C"
:If B3==1
:Text(14,113,"C"
:If B3==2
:Text(24,113,"C"
:If B3==3
:Text(24,103,"C"
:If B3==4
:Text(24,93,"C"
:If B3==5
:Text(24,83,"C"
:If B3==6
:Text(24,73,"C"
:If B3==7
:Text(24,63,"C"
:If B3==8
:Text(24,53,"C"
:If B3==9
:Text(24,43,"C"
:If B3==10
:Text(24,33,"C"
:If B3==11
:Text(24,23,"C"
:If B3==12
:Text(24,13,"C"
:If A1==0
:Text(44,93,"X"
:If A1==1
:Text(34,93,"X"
:If A1==2
:Text(24,93,"X"
:If A1==3
:Text(24,83,"X"
:If A1==4
:Text(24,73,"X"
:If A1==5
:Text(24,63,"X"
:If A1==6
:Text(24,53,"X"
:If A1==7
:Text(24,43,"X"
:If A1==8
:Text(24,33,"X"
:If A1==9
:Text(24,23,"X"
:If A1==10
:Text(24,13,"X"
:If A2==0
:Text(44,103,"Y"
:If A2==1
:Text(34,103,"Y"
:If A2==2
:Text(24,103,"Y"
:If A2==3
:Text(24,93,"Y"
:If A2==4
:Text(24,83,"Y"
:If A2==5
:Text(24,73,"Y"
:If A2==6
:Text(24,63,"Y"
:If A2==7
:Text(24,53,"Y"
:If A2==8
:Text(24,43,"Y"
:If A2==9
:Text(24,33,"Y"
:If A2==10
:Text(24,23,"Y"
:If A2==11
:Text(24,13,"Y"
:If A3==0
:Text(44,113,"Z"
:If A3==1
:Text(34,113,"Z"
:If A3==2
:Text(24,113,"Z"
:If A3==3
:Text(24,103,"Z"
:If A3==4
:Text(24,93,"Z"
:If A3==5
:Text(24,83,"Z"
:If A3==6
:Text(24,73,"Z"
:If A3==7
:Text(24,63,"Z"
:If A3==8
:Text(24,53,"Z"
:If A3==9
:Text(24,43,"Z"
:If A3==10
:Text(24,33,"Z"
:If A3==11
:Text(24,23,"Z"
:If A3==12
:Text(24,13,"Z"
:If T==0
:Then
:Menu(5,"QUIT",QT,1,"FLIP",FL
:End
:Lbl FL
:randInt(0,1)->ZED
:Text(43,1,ZED
:randInt(0,1)->C2
:Text(43,5,C2
:randInt(0,1)->C3
:Text(43,9,C3
:randInt(0,1)->C4
:Text(43,13,C4
:ZED+C2+C3+C4->C1
:If C1==0
:Then
:1->U
:6->C1
:End
:If T==1
:Goto B5
:Lbl B4
:If (A1+C1)>11 and (A2+C1)>12 and (A3+C1)>13
:Goto D
:Text(1,1,"CHOOSE THE TILE TO MOVE"
:Text(8,1,C1
:If C1=1
:Then
:Text(8,10,"SPACE"
:Else
:Text(8,10,"SPACES"
:End
:Menu(1,"X",B1,2,"Y",B2,3,"Z",B3,5,"QUIT",QT
:Lbl B1
:If (A1+C1)>11
:Goto B4
:If (A1+C1+1)==A2 or (A1+C1+2)==A3
:Then
:C1+1->C1
:Goto B1
:End
:If (A1+C1)==B1
:0->B1
:If (A1+C1+1)==B2
:0->B2
:If (A1+C1+1)==B3
:0->B3
:End
:A1+C1->A1
:If A1>=11
:15->A1
:If A1==3 or A1==7
:1->U
:Goto D
:Lbl B2
:If (A2+C1)>12
:Goto B4
:If (A2+C1)>1
:Then
:If (A2+C1-1)==A1 or (A2+C1+1)==A3
:Then
:C1+1->C1
:Goto B2
:End
:If (A2+C1-1)==B1
:0->B1
:If (A2+C1)==B2
:0->B2
:If (A2+C1+1)==b3
:0->B3
:End
:A2+C1->A2
:If A2>=12
:15->A2
:If A2==4 or A2==8
:1->U
:Goto D
:Lbl B3
:If (A3+C1)>13
:Goto B4
:If (A3+C1)==B3
:0->B3
:If (A3+C1)>2
:Then
:If (A3+C1-2)==A1 or (A3+C1-1)==A2
:C1+1->C1
:Goto B3
:End
:If (A3+C1-2)==B1
:0->B1
:If (A3+C1-1)==B2
:0->B2
:If (A3+C1)==B3
:0->B3
:End
:A3+C1->A3
:If A3>=13
:15->A3
:If A3==1 or A3==5 or A3==9
:1->U
:Goto D
:Lbl B5
:If (B1+C1)>11 and (B2+C1)>12 and (B3+C1)>13
:Goto D
:randInt(1,3)->E
:If H>0
:Then
:If (B1+C1)>1 and ((B1+C1+1)==B2 or (B1+C1+2)==B3)
:1->E
:If (B2+C1)>1 and ((B2+C1-1)==B1 or (B2+C1+1)==B3)
:2->E
:If (B3+C1)>2 and ((B2+C1-2)==B1 or (B3+C1-1)==B2)
:3->E
:End
:If H>1
:Then
:If (B1+C1)==3 or (B1+C1)==7
:1->E
:If (B2+C1)==4 or (B2+C1)==8
:2->E
:If (B3+C1)==1 or (B3+C1)==4 or (B3+C1)==9
:3->E
:End
:If H==3
:Then
:If (B1+C1)>1 and ((B1+C1)==A1 or (B1+C1+1)==A2 or (B1+C1+2)==A3)
:1->E
:If (B2+C1)>1 and ((B2+C1-1)==A1 or (B1+C1)==A2 or (B1+C1+1)==A3)
:2->E
:If (B3+C1)>2 and ((B3+C1-2)==A1 or (B3+C1-1)==A2 or (B3+C1)==A3)
:3->E
:End
:If E==1
:Goto E1
:If E==2
:Goto E2
:If E==3
:Goto E3
:Lbl E1
:If (B1+C1)>11
:Goto B5
:If (B1+C1)>1
:Then
:If (B1+C1+1)==B2 or (B1+C1+2)==B3
:C1+1->C1
:Goto E1
:End
:If (B1+C1)==A1
:0->A1
:If (B1+C1+1)==A2
:0->A2
:If (B1+C1+2)==A3
:0->A3
:End
:B1+C1->B1
:If B1>=11
:15->B1
:If B1==3 or B1==7
:1->U
:Goto D
:Lbl E2
:If (B2+C1)>12
:Goto B5
:If (B2+C1)>1
:Then
:If (B2+C1-1)==B1 or (B2+C1+1)==B3
:C1+1->C1
:Goto E1
:End
:If (B2+C1-1)==A1
:0->A1
:If (B2+C1)==A2
:0->A2
:If (B2+C1+1)==A3
:0->A3
:End
:B2+C1->B2
:If B2>=12
:15->B2
:If B2==4 or B1==8
:1->U
:Goto D
:Lbl E3
:If (B3+C1)>13
:Goto B5
:If (B3+C1)==A3
:0->A3
:If (B3+C1)>2
:Then
:If (B3+C1-2)==B1 or (B3+C1-1)==B2
:C1+1->C1
:Goto E1
:End
:If (B3+C1-2)==A1
:0->A1
:If (B3+C1-1)==A2
:0->A2
:If (B3+C1)==A3
:0->A3
:End
:B3+C1->B3
:If B3>=13
:15->B3
:If B3==1 or B3==5 or B1==9
:1->U
:Lbl D
:If A1==15 and A2==15 and A3==15
:Goto F1
:If B1==15 and B2==15 and B3==15
:Goto F2
:If U==1 and T==0
:Then
:0->U
:Goto B
:End
:If T==0
:Then
:1->T
:Goto B
:End
:If U==1 and T==1
:Then
:0->U
:Goto B
:End
:0->T
:GOto B
:Lbl F1
:ClLCD
:ClDrw
:Text(25,50,"YOU WIN"
:0->x
:For(y,31,0,-2
:Line(0,y,x,0)
:x+4->X
:End
:63->x
:For(y,0,31,2
:Line(x,0,126,y
:x+4->x
:End
:126->x
:For(y,31,62,2
:Line(126,y,x,62
:x-4->x
:End
:63->x
:For(y,62,31,-2
:Line(x,62,0,y
:x-4->x
:End
:For(x,0,300
:End
:Goto R
:Lbl F2
:ClLCD
:Outpt(4,4,"YOU LOSE"
:Pause
:Lbl R
:OUtpt(7,1,"PLAY AGAIN?"
:Menu(1,"YES",A,2,"NO",QT
:Lbl QT
:ClLCD
:DelVar(TEMP

BLOCKARD GUNNER SENET YATZEE

YATZEE
Everyone should know this game. It's Yaztee.
Game Intsructions: Push the F keys to hold the corresponding dye. The same rules apply for pointage. 2nd key quits and use the right arrow to select your option.

:ClLCD
:Outpt(4,8,"YATZEE!"
:Pause
:ClLCD
:Disp "3K_=_3_of_a_kind"
:Disp "4K_=_4_of_a_kind"
:Disp "FH_=_Full_House"
:Disp "ST_=_Straight"
:Disp "YZ_=_Yatzee"
:Pause
:ClLCD
:Float
:0->H
:0->J1
:0->J2
:0->J3
:0->J4
:0->J5
:0->J6
:0->JE
:0->JR
:0->JF
:0->JS
:0->JY
:0->JC
:0->S
:Lbl A
:If J1==1 and J2==1 and J3==1 and J4==1 and J5==1 and J6==1 and JE==1 and JR==1 and JF==1 and JS==1 and JY==1 and JC==1
:Goto E9
:0->R
:0->A1
:0->B1
:0->C1
:0->D1
:0->E1
:0->H
:ClLCD
:Outpt(1,1,"Score:"
:Outpt(1,8,S
:Outpt(2,1,"1__2__3__4__5__6__CH" (Be Sure to use two spaces here)
:If J1==1
:Outpt(2,2,"*"
:If J2==1
:Outpt(2,5,"*"
:If J3==1
:Outpt(2,8,"*"
:If J4==1
:Outpt(2,11,"*"
:If J5==1
:Outpt(2,14,"*"
:If J6==1
:Outpt(2,17,"*"
:If JC==1
:Outpt(2,21,"*"
:Outpt(4,1,"3K__4K__FH__ST__YZ"(Be Sure to use two spaces here)
:If JE==1
:Outpt(4,3,"*"
:If JR==1
:Outpt(4,7,"*"
:If JF==1
:Outpt(4,11,"*"
:If JS==1
:Outpt(4,15,"*"
:If JY==1
:Outpt(4,19,"*"
:Lbl E
:For(G,1,5
:If A1==0
:randInt(1,6)->A
:Outpt(6,1,A
:If B1==0
:randInt(1,6)->B
:Outpt(6,6,B
:If C1==0
:randInt(1,6)->C
:Outpt(6,11,C
:If D1==0
:randInt(1,6)->D
:Outpt(6,16,D
:If E1==0
:randInt(1,6)->E
:Outpt(6,21,E
:End
:H+1->H
:If H==3
:Goto C
:Lbl B
:If A1==1 and B1==1 and C1==1 and D1==1 and E1==1
:Goto C
:getKy->I
:While I==0
:getKy->I
:End
:If I==21
:Goto E9
:If I==11
:Goto F1
:If I==12
:Goto F2
:If I==13
:Goto F3
:If I==14
:Goto F4
:If I==15
:Goto F5
:If I==105
:Goto E
:Goto B
:Lbl F1
:If A1==0
:Then
:1->A1
:Outpt(8,1,"H"
:Goto B
:End
:If A1==1
:Then
:0->A1
:Outpt(8,1,"_"
:Goto B
:End
:Lbl F2
:If B1==0
:Then
:1->B1
:Outpt(8,6,"H"
:Goto B
:End
:If B1==1
:Then
:0->B1
:Outpt(8,6,"_"
:Goto B
:End
:Lbl F3
:If C1==0
:Then
:1->C1
:Outpt(8,11,"H"
:Goto B
:End
:If C1==1
:Then
:0->C1
:Outpt(8,11,"_"
:Goto B
:End
:Lbl F4
:If D1==0
:Then
:1->D1
:Outpt(8,16,"H"
:Goto B
:End
:If D1==1
:Then
:0->D1
:Outpt(8,16,"_"
:Goto B
:End
:Lbl F5
:If E1==0
:Then
:1->E1
:Outpt(8,21,"H"
:Goto B
:End
:If E1==1
:Then
:0->E1
:Outpt(8,21,"_"
:Goto B
:End
:Lbl C
:3->K1
:1->K2
:Outpt(1,14,"Select"
:Lbl D
:Outpt(3,1,"_____________________" (21 spaces)
:Outpt(5,1,"_____________________" (21 spaces)
:Outpt(K1,K2,"^"
:getKy->Z
:While Z==0
:getKy->Z
:End
:If Z==24 and K1==3
:Then
:K2-3->K2
:If K2<1
:Then
:5->K1
:17->K2
:End
:Goto D
:End
:If Z==26 and K1==3
:Then
:K2+3->K2
:If K2==22
:Then
:5->K1
:1->K2
:End
:Goto D
:End
:If Z==24 and K1==5
:Then
:K2-4->K2
:If K2<1
:Then
:3->K1
:19->K2
:End
:Goto D
:End
:If Z==26 and K1==5
:Then
:K2+4->K2
:If K2==21
:Then
:3->K1
:1->K2
:End
:Goto D
:End
:If Z==105
:Goto F
:If Z==21
:Goto E9
:Goto D
:Lbl F
:0->S1
:If K1==3 and K2==1 and J1==0
:Goto X1
:If K1==3 and K2==4 and J2==0
:Goto X2
:If K1==3 and K2==7 and J3==0
:Goto X3
:If K1==3 and K2==10 and J4==0
:Goto X4
:If K1==3 and K2==13 and J5==0
:Goto X5
:If K1==3 and K2==16 and J6==0
:Goto X6
:If K1==3 and K2==19 and JC==0
:Goto XC
:If K1==5 and K2==1 and JE==0
:Goto X7
:If K1==5 and K2==5 and JR==0
:Goto X8
:If K1==5 and K2==9 and JF==0
:Goto X9
:If K1==5 and K2==13 and JS==0
:Goto XA
:If K1==5 and K2==17 and JY==0
:Goto XB
:Goto D
:Lbl XC
:1->JC
:A+B+C+D+E->S1
:S1+S->S
:Goto A
:Lbl X1
:1-J1
:If A==1
:S1+1->S1
:If B==1
:S1+1->S1
:If C==1
:S1+1->S1
:If D==1
:S1+1->S1
:If E==1
:S1+1->S1
:S1+S->S
:Goto A
:Lbl X2
:1-J2
:If A==2
:S1+2->S1
:If B==2
:S1+2->S1
:If C==2
:S1+2->S1
:If D==2
:S1+2->S1
:If E==2
:S1+2->S1
:S1+S->S
:Goto A
:Lbl X3
:1-J3
:If A==3
:S1+3->S1
:If B==3
:S1+3->S1
:If C==3
:S1+3->S1
:If D==3
:S1+3->S1
:If E==3
:S1+3->S1
:S1+S->S
:Goto A
:Lbl X4
:1-J4
:If A==4
:S1+4->S1
:If B==4
:S1+4->S1
:If C==4
:S1+4->S1
:If D==4
:S1+4->S1
:If E==4
:S1+4->S1
:S1+S->S
:Goto A
:Lbl X5
:1-J5
:If A==5
:S1+5->S1
:If B==5
:S1+5->S1
:If C==5
:S1+5->S1
:If D==5
:S1+5->S1
:If E==5
:S1+5->S1
:S1+S->S
:Goto A
:Lbl X6
:1-J6
:If A==6
:S1+6->S1
:If B==6
:S1+6->S1
:If C==6
:S1+6->S1
:If D==6
:S1+6->S1
:If E==6
:S1+6->S1
:S1+S->S
:Goto A
:Lbl XB
:1->JY
:If A==1 and B==1 and C==1 and D==1 and E==1
:S1+50->S1
:If A==2 and B==2 and C==2 and D==2 and E==2
:S1+50->S1
:If A==3 and B==3 and C==3 and D==3 and E==3
:S1+50->S1
:If A==4 and B==4 and C==4 and D==4 and E==4
:S1+50->S1
:If A==5 and B==5 and C==5 and D==5 and E==5
:S1+50->S1
:If A==6 and B==6 and C==6 and D==6 and E==6
:S1+50->S1
:S1+S->S
:Goto A
:Lbl X7
:1->JE
:1->R
:Goto R
:Lbl X8
:1->JR
:2->R
:Goto R
:Lbl X9
:1->JF
:3->R
:Goto R
:Lbl XA
:1->JS
:0->N1
:0->N2
:0->N3
:If A==1 or B==1 or C==1 or D==1 or E==1
:Then
:1+N1->N1
:1->N2
:End
:If A==2 or B==2 or C==2 or D==2 or E==2
:1+N1->N1
:If A==3 or B==3 or C==3 or D==3 or E==3
:1+N1->N1
:If A==4 or B==4 or C==4 or D==4 or E==4
:1+N1->N1
:If A==5 or B==5 or C==5 or D==5 or E==5
:1+N1->N1
:If A==6 or B==6 or C==6 or D==6 or E==6
:Then
:1+N1->N1
:1->N3
:End
:If N2==1 and N3==1
:Goto A
:If N1/=5
:Goto A
:S+40->S
:Goto A
:Lbl R
:0->R1
:0->R2
:0->R3
:0->R4
:0->R5
:0->R6
:If A==1
:R1+1->R1
:If B==1
:R1+1->R1
:If C==1
:R1+1->R1
:If D==1
:R1+1->R1
:If E==1
:R1+1->R1
:If A==2
:R2+1->R2
:If B==2
:R2+1->R2
:If C==2
:R2+1->R2
:If D==2
:R2+1->R2
:If E==2
:R2+1->R2
:If A==3
:R3+1->R3
:If B==3
:R3+1->R3
:If C==3
:R3+1->R3
:If D==3
:R3+1->R3
:If E==3
:R3+1->R3
:If A==4
:R4+1->R4
:If B==4
:R4+1->R4
:If C==4
:R4+1->R4
:If D==4
:R4+1->R4
:If E==4
:R1+1->R4
:If A==5
:R5+1->R5
:If B==5
:R5+1->R5
:If C==5
:R5+1->R5
:If D==5
:R5+1->R5
:If E==5
:R5+1->R5
:If A==6
:R6+1->R6
:If B==6
:R6+1->R6
:If C==6
:R6+1->R6
:If D==6
:R6+1->R6
:If E==6
:R6+1->R6
:If R==3
:Goto RA
:If R==1
:3->R7
:If R==2
:4->R7
:If R1>=R7 or R2>=R7 or R3>=R7 or R4>=R7 or R5>=R7 or R6>=R7
:A+B+C+D+E+S->S
:Goto A
:Lbl RA
:If R1==3 or R2==3 or R3==3 or R4==3 or R5==3 or R6==3
:Then
:If R1==2 or R2==2 or R3==2 or R4==2 or R5==2 or R6==2
:S+25->S
:End
:Goto A
:Lbl E9
:For(L,1,3
:Outpt(L,1,"_____________________" (21 spaces)
:End
:Outpt(4,1,"______Game_Over______" (6,1,6 spacing)
:For(L,5,8
:Outpt(L,1,"_____________________" (21 spaces)
:End
:For(L,1,200
:End
:Outpt(8,1,"Final_Score:"
:Outpt(8,13,S
:Pause
:ClLCD
BLOCKARD GUNNER SENET YATZEE

Home Page