
		Kokemon is a graphical (with some text) rpg game for the TI-80 calculator.
	You can fight monsters, attack, cast spells, level up, etc. There are only 3 monsters
	in the game because of memory "limitations". 

		For those of you not in the know, CLRHOME is not typed out using ALPHA.
	To get the command CLRHOME you would goto PRGM, I\O, 4.
		

		In the DISP if you see (X spaces), don't type that out. This is just to 
	tell you how many spaces to have inbetween. X is the amount of spaces. ex:(2 spaces)

	

	
	Model: TI-80
	Date: May 23,2001
	Size: 5623
	Genre: RPG
	Creator: [DSM]*Wolf*
	Players: 1
	Graphics: (some text)/2-D graphical
	Other: You might consider it eye candy for a TI-80.

	E-mail: stk_5m@hotmail.com   (Useless to put)
	



	Known Bugs: None that I know of unless I typed it wrong in this .txt file.
		    If you find any bugs, then please E-mail me about them.





Program:  A1
Size:  104

:0->H  ( -> is the sto key)
:LBL 0
:RANDINT(4,23->X
:RANDINT(18,33->Y
:PT-ON(X-1,Y
:PT-ON(X,Y+1
:PT-ON(X+1,Y
:PT-ON(X,Y-1
:H+1->H
:IF H/=4   ( /=  "not equal to" sign    2nd, MATH, 2)
:GOTO 0
:RANDINT(S,S*2->H
:A+H->A
:IF A>D
:D->A
:PRGM_FD


Program:  A2
Size:  115

:LINE(31,22,33,42
:LINE(33,42,35,22
:LINE(40,22,42,42
:LINE(42,42,44,22
:LINE(35,47,37,23
:LINE(37,23,39,47
:RANDINT(15+L*3,20+L*4->H
:B-H->B
:PRGM_FD


Program:  A3
Size:  152

:LINE(38,39,42,44
:LINE(42,44,40,47
:LINE(52,29,58,32
:LINE(58,32,61,25
:LINE(40,16,47,11
:LINE(47,11,41,9
:LINE(25,29,16,34
:LINE(16,34,13,27
:LINE(13,27,9,39
:RANDINT(23+L*2,35+L*3->H
:B-H->B
:PRGM_FD


Program:  A4
Size:  165

:LINE(1,40,14,36
:LINE(1,28,11,23
:LINE(14,36,19,44
:LINE(11,23,25,26
:LINE(19,44,31,40
:LINE(25,26,41,23
:LINE(31,40,45,40
:LINE(41,23,53,28
:LINE(45,40,63,47
:LINE(53,28,63,24
:RANDINT(40+L*2,62+L*2->H
:B-H->B
:PRGM_FD


Program:  AREA
Size:  260

:PRGM_AREAD
:30->P
:30->Q
:LBL 0
:PRGM_LMR
:1->O
:PT-ON(P,Q
:INPUT
:PT-OFF(P,Q
:IF X>P:P+5->P
:IF X<P:P-5->P
:IF Y>Q:Q+5->Q
:IF Y<Q:Q-5->Q
:IF X>=0:THEN
:IF X<=4:THEN
:IF Y>=41:THEN
:IF Y<=47:THEN
:PRGM_STATS
:END
:END
:END
:END
:IF P>=35:THEN
:IF P<=63:THEN
:IF Q>=30:THEN
:IF Q<=47:THEN
:2->O
:END
:END
:END
:END
:IF P>=50:THEN
:IF P<=63:THEN
:IF Q>=1:THEN
:IF Q<=14:THEN
:3->O
:END
:END
:END
:END
:IF O=1
:PRGM_RE1
:IF O=2
:PRGM_RE2
:IF O=3
:PRGM_RE3
:GOTO 0


Program:  AREAD
Size:  236

:CLRDRAW
:LINE(1,40,5,40
:LINE(5,41,5,47
:LINE(3,46,2,46
:LINE(1,45,3,43
:LINE(2,42,1,42
:LINE(63,14,59,14
:LINE(58,13,57,12
:LINE(56,11,52,11
:PT-ON(51,10
:LINE(50,9,50,3
:LINE(51,2,51,1
:PT-ON(54,7
:LINE(55,8,56,8
:LINE(57,7,58,7
:PT-ON(59,8
:PT-ON(60,4
:LINE(61,5,62,5
:PT-ON(63,4
:0->H
:LBL 0
:RANDINT(35,63->X
:RANDINT(30,47->Y
:PT-ON(X,Y
:H+1->H
:IF H/=9
:GOTO 0


Program:  AT
Size:  119

:0->H
:LBL 0
:PT-ON(40-H,33-H
:H+1->H
:IF H/=7
:GOTO 0
:0->H
:LBL 1
:PT-OFF(40-H,33-H
:H+1->H
:IF H/=7
:GOTO 1
:RANDINT(L*2,S->H
:B-H->B
:IF F=1
:PRGM_E1D
:IF F=2
:PRGM_E2D
:IF F=3
:PRGM_E3D


Program:  E1
Size:  105

:0->H
:LBL 0
:RANDINT(25,50->X
:RANDINT(23,39->Y
:PT-ON(X+1,Y
:PT-ON(X,Y+1
:PT-ON(X-1,Y
:PT-ON(X,Y-1
:H+1-H
:IF H/=4
:GOTO 0
:RANDINT(L*2,S->H
:B+H->B
:IF B>E
:E->B
:PRGM_FD


Program:  E1A
Size:  44

:RANDINT(0,2->N
:IF N=0
:PRGM_E1
:IF N=1
:PRGM_E2
:IF N=2
:PRGM_E2 (no not a typo)


Program:  E1D
Size:  436

:LINE(36,35,40,35
:PT-ON(35,34
:PT-ON(41,34
:LINE(35,35,32,38
:LINE(41,35,44,38
:LINE(45,38,45,35
:LINE(31,38,31,35
:LINE(32,34,33,33
:LINE(32,32,31,31
:LINE(44,34,43,33
:LINE(44,32,45,31
:LINE(46,30,47,30
:LINE(48,29,48,28
:LINE(47,27,46,27
:LINE(45,28,45,29
:LINE(29,30,30,30
:LINE(31,29,31,28
:LINE(30,27,29,27
:LINE(28,28,28,29
:PT-ON(32,27
:PT-ON(44,27
:LINE(33,26,33,25
:LINE(43,25,43,26
:LINE(42,24,39,24
:LINE(34,24,37,24
:PT-ON(38,25
:LINE(35,32,37,30
:PT-ON(37,29
:LINE(34,31,34,29
:LINE(35,28,36,28
:LINE(36,30,36,29
:LINE(41,32,39,30
:PT-ON(39,29
:LINE(42,29,42,31
:LINE(41,28,40,28
:LINE(40,29,40,30


Program:  E2
Size:  235

:LINE(10,23,6,28
:LINE(6,28,6,21
:LINE(6,21,1,18
:LINE(1,18,6,17
:LINE(6,17,11,15
:LINE(11,15,14,19
:LINE(14,19,18,22
:LINE(18,22,10,23
:LINE(18,35,20,33
:LINE(20,33,22,31
:LINE(22,31,20,29
:LINE(20,29,17,26
:LINE(17,26,16,29
:LINE(16,29,12,31
:LINE(12,31,16,33
:LINE(16,33,18,35
:RANDINT(10+L,16+L*2->H
:A-H->A
:PRGM_FD


Program:  E2A
Size:  35

:RANDINT(0,1->N
:IF N=0
:PRGM_E3
:IF N=1
:PRGM_E4


Program:  E2D
Size:  307

:LINE(33,36,37,36
:LINE(32,35,31,34
:LINE(38,35,39,34
:LINE(37,32,33,32
:PT-ON(32,33
:PT-ON(38,33
:LINE(35,31,35,30
:PT-ON(36,29
:LINE(37,28,37,27
:LINE(38,26,39,25
:LINE(40,24,44,24
:LINE(39,32,39,31
:LINE(40,30,42,28
:LINE(42,27,43,27
:PT-ON(44,28
:LINE(45,29,48,29
:LINE(49,28,50,27
:LINE(51,26,52,26
:PT-ON(53,25
:LINE(52,24,49,24
:PT-ON(45,25
:PT-ON(48,25
:LINE(48,26,46,26
:LINE(33,33,34,33
:LINE(37,33,36,33
:PT-ON(36,34
:PT-ON(34,34


Program:  E3
Size:138

:0->H
:LBL 0
:PT-ON(21-H,28-H
:PT-ON(18-H,28-H
:PT-ON(15-H,28-H
:H+1->H
:IF H/=6
:GOTO 0
:0->H
:LBL 1
:PT-OFF(21-H,28-H
:PT-OFF(18-H,28-H
:PT-OFF(15-H,28-H
:H+1->H
:IF H/=6
:GOTO 1
:RANDINT(5+L,12+L*2->H
:A-H->A


Program:  E3A
Size:  44

:RANDINT(0,2->N
:IF N=0
:PRGM_E2
:IF N=1
:PRGM_E3
:IF N=2
:PRGM_E5


Program:  E3D
Size:  345

:LINE(37,28,39,28
:LINE(40,29,40,31
:LINE(39,32,37,32
:LINE(36,31,36,29
:LINE(35,30,33,32
:LINE(32,31,31,30
:LINE(41,30,43,30
:LINE(45,32,47,32
:PT-ON(44,31
:PT-ON(38,30
:PT-ON(30,31
:LINE(29,32,29,30
:LINE(28,29,26,29
:LINE(25,30,25,32
:LINE(26,33,28,33
:PT-ON(24,31
:LINE(23,30,23,29
:LINE(25,28,23,26
:LINE(28,28,28,27
:PT-ON(27,26
:PT-ON(48,29
:PT-ON(52,29
:LINE(53,28,52,27
:LINE(50,29,50,27
:LINE(47,28,48,27
:LINE(48,33,48,31
:LINE(49,30,51,30
:LINE(52,31,52,33
:LINE(51,34,49,34


Program:  E4
Size:  203

:0->H
:LBL 0
:PT-ON(27-H,27-H
:PT-ON(28-H,26-H
:PT-ON(28-H,28-H
:PT-ON(29-H,27-H
:PT-ON(30-H,29-H
:PT-ON(31-H,30-H
:H+3->H
:IF H/=12
:GOTO 0
:0->H
:LBL 1
:PT-OFF(27-H,27-H
:PT-OFF(28-H,26-H
:PT-OFF(28-H,28-H
:PT-OFF(29-H,27-H
:PT-OFF(30-H,29-H
:PT-OFF(31-H,30-H
:H-3->H
:IF H/=12
:GOTO 1
:RANDINT(L*2,L*S->H
:A-H->A


Program:  E5
Size:  244

:0->H
:LBL 0
:PT-ON(21-H,28-H
:PT-ON(18-H,28-H
:PT-ON(15-H,28-H
:H+1->H
:IF H/=6
:GOTO 0
:0->H
:LBL 1
:PT-ON(11+H,28-H
:PT-ON(8+H,28-H
:PT-ON(5+H,28-H
:H+1->H
:IF H/=6
:GOTO 1
:0->H
:LBL 2
:PT-OFF(21-H,28-H
:PT-OFF(18-H,28-H
:PT-OFF(15-H,28-H
:H+1->H
:IF H/=6
:GOTO 2
:0->H
:LBL 3
:PT-OFF(11+H,28-H
:PT-OFF(8+H,28-H
:PT-OFF(5+H,28-H
:H+1->H
:IF H/=6
:GOTO 3
:RANDINT(9+L*2,23+L*2->H
:A-H->A


Program:  ES
Size:  87

:IF F=1:THEN
:20+L*5->B
:B->E
:END
:IF F=2:THEN
:75+L*5->B
:B->E
:END
:IF F=3:THEN
:55+L*5->B
:B->E
:END
:PRGM_FD
:PRGM_FIGHT


Program:  FD
Size:  158

:CLRDRAW
:IF F=1
:PRGM_E1D
:IF F=2
:PRGM_E2D
:IF F=3
:PRGM_E3D
:PRGM_MEND
:LINE(36,21,42,21
:LINE(42,19,36,19
:PT-ON(35,20
:PT-ON(43,20
:LINE(30,10,36,10
:LINE(36,8,30,8
:PT-ON(29,9
:PT-ON(37,9
:LINE(36,20,42,20
:LINE(30,9,36,9
:PRGM_LB1
:PRGM_LB2


Program:  FIGHT
Size:  446

:LBL 0
:PRGM_MENT
:IF F=1
:PRGM_E1A
:IF F=2
:PRGM_E2A
:IF F=3
:PRGM_E3A
:PRGM_LB1
:PTGM_LB2
:IF B<=0
:GOTO 1
:IF A<=0
:GOTO 3
:GOTO 0
:LBL 1
:CLRHOME
:DISP "YOU DEFEATED THE","ENEMY KOKEMON!"
:PAUSE
:RANDINT(40+L*7,60+L*12->C
:CLRHOME
:DISP "EXP +",C
:PAUSE
:T-C->T
:V+C->V
:IF T<=0
:GOTO 2
:PRGM_AREAD
:RETURN
:LBL 2
:CLRHOME
:DISP "YOU LEVELED UP!"
:PAUSE
:RANDINT(20+L*2,30+L*4->C
:RANDINT(19+L*2,29+L*5->H
:RANDINT(5+L,7+L*2->X
:CLRHOME
:DISP "HP +",C,"MP +",H,"STR +",X
:PAUSE
:L+1->L
:D+C->D
:R+H->R
:S+X->S
:U*1.5->U
:U->T
:IF L=3:THEN
:CLRHOME
:DISP "YOU LEARNED","SHOCK!"
:PAUSE
:1->I
:END
:IF L=7:THEN
:CLRHOME
:DISP "YOU LEARNED BFB!"
:PAUSE
:1->J
:END
:PRGM_AREAD
:RETURN
:LBL 3
:CLRHOME
:DISP "YOU WERE","DEFEATED."
:PAUSE
:STOP

	
Program: KOKEMON
Size:  213

:FIX 0  (FIX is  MODE, 4)
:CLRHOME
:DISP "","","","(4 spaces)KOKEMON","",""," VERSION 1.00.0"
:PAUSE
:1->XMIN
:63->XMAX
:0->XSCL
:1->YMIN
:47->YMAX
:0->YSCL
:LBL 0
:CLRHOME
:DISP "MENU:","1:NEW GAME","2:QUIT"
:INPUT C
:IF C=1
:GOTO 1
:IF C=2
:STOP
:GOTO 0
:LBL 1
:1->L
:200->A
:A->D
:100->M
:M->R
:20->S
:85->T
:T->U
:0->V
:0->I
:0->J
:PRGM_AREA


Program:  LB1
Size:  212

:IF B=E
:RETURN
:IF B>(E/1.1):IF B<E
:0->H
:IF B>(E/1.3):IF B<(E/1.1)
:1->H
:IF B>(E/1.6):IF B<(E/1.3)
:2->H
:IF B>(E/2):IF B<(E/1.6)
:3->H
:IF B>(E/2.5):IF B<(E/2)
:4->H
:IF B>(E/3.5):IF B<(E/2.5)
:5->H
:IF B>0: IF B<(E/9)
:6->H
:0->C
:LBL 0
:PT-OFF(42-C,20
:IF C=H
:RETURN
:C+1->C
:GOTO 0


Program:  LB2
Size:  212

:IF A=D
:RETURN
:IF A>(D/1.1):IF A<D
:0->H
:IF A>(D/1.3):IF A<(D/1.1)
:1->H
:IF A>(D/1.6):IF A<(D/1.3)
:2->H
:IF A>(D/2):IF A<(D/1.6)
:3->H
:IF A>(D/2.5):IF A<(D/2)
:4->H
:IF A>(D/3.5):IF A<(D/2.5)
:5->H
:IF A>0:IF A<(D/9)
:6->H
:0->C
:LBL 0
:PT-OFF(36-C,9
:IF C=H
:RETURN
:C+1->C
:GOTO 0


Program:  LMR
Size:  58

:RANDINT(15,20->C
:RANDINT(15,26->H
:A+C->A
:IF A>D
:D->A
:M+H->M
:IF M>R
:R->M


Program:  MEND
Size:  265

:LINE(2,13,9,13
:LINE(9,13,9,6
:LINE(9,6,2,6
:LINE(2,6,2,13
:LINE(11,13,18,13
:LINE(18,13,18,6
:LINE(18,6,11,6
:LINE(11,6,11,13
:LINE(20,13,27,13
:LINE(27,13,27,6
:LINE(27,6,20,6
:LINE(20,6,20,13
:LINE(4,11,7,8
:LINE(7,10,5,8
:PT-ON(13,11
:PT-ON(16,11
:PT-ON(15,9
:PT-ON(13,8
:PT-ON(17,7
:LINE(21,7,21,9
:LINE(22,10,21,11
:PT-ON(22,8
:LINE(24,8,25,8
:LINE(25,10,24,10
:LINE(24,12,25,12


Program:  MENT
Size:  218

:INPUT
:IF X>=3:THEN
:IF X<=8:THEN
:IF Y>=7:THEN
:IF Y<=12:THEN
:PRGM_AT
:END
:END
:END
:END
:IF X>=12:THEN
:IF X<=17:THEN
:IF Y>=7:THEN
:IF Y<=12:THEN
:PRGM_SPEC
:END
:END
:END
:END
:IF X>=21:THEN
:IF X<=26:THEN
:IF Y>=7:THEN
:IF Y<=12:THEN
:GOTO 0
:END
:END
:END
:END
:RETURN
:LBL 0
:RANDINT(0,2->H
:IF H/=1
:GOTO 1
:CLRHOME
:DISP "YOU ESCAPED!"
:PAUSE
:PRGM_AREA
:LBL 1
:CLRHOME
:DISP "YOU COULDNT","ESCAPE!"
:PAUSE


Program:  RE1
Size:  34

:RANDINT(0,2->H
:IF H=1:THEN
:1->F
:PRGM_ES
:END


Program:  RE2
Size:  51

:RANDINT(0,5->H
:IF H=2:THEN
:1->F
:PRGM_ES
:END
:IF H=5:THEN
:3->F
:PRGM_ES
:END


Program:  RE3
Size:  34

:RANDINT(0,4->H
:IF H=2:THEN
:2->F
:PRGM_ES
:END


Program:  SPEC
Size:  306

:LBL 0
:CLRHOME
:DISP "1:RECOVER(5 space)20","2:G-CLASH(5 spaces)31"
:IF I=1
:DISP "3:SHOCK(7 spaces)62"
:IF J=1
:DISP "4:BFB(9 spaces)81"
:DISP M
:INPUT "0:EXIT ",C
:IF C=1
:GOTO 1
:IF C=C
:GOTO 2
:IF C=3
:GOTO 3
:IF C=4
:GOTO 4
:IF C=0
:RETURN
:GOTO 0
:LBL 1
:IF M<20
:GOTO @   (@  is ALPHA, 3)
:M-20->M
:PRGM_A1
:RETURN
:LBL 2
:IF M<31
:GOTO @
:M-31->M
:PRGM_A2
:RETURN
:LBL 3
:IF I/=1
:GOTO 0
:IF M<62
:GOTO @
:M-62->M
:PRGM_A3
:RETURN
:LBL 4
:IF J/=1
:GOTO 0
:IF M<81
:GOTO @
:M-81->M
:PRGM_A4
:RETURN
:LBL @
:CLRHOME
:DISP "NOT ENOUGH MP."
:PAUSE
:GOTO 0


Program:  STATS
Size:  82

:CLRHOME
:DISP "LV:",L,"HP:",A,D
:PAUSE
:DISP "MP:",M,R,"STR:",S,"TNL:",T
:PAUSE
:DISP "TOTAL EXP:",V
:PAUSE