				Mage War: Mage of Ice

		This is just another in the Mage War trilogy. This game is an 
	RPG. Of course the name should give away some of the aspects of the
	game...your a mage...you cast spells...kill things...read...:) The main
	difference in the three games is that they have different spells, the
	main area looks different, and a few other small changes.


		For those of you not in the know, CLRHOME is not typed out using ALPHA.
	You have to go into PRGM and choose it (PRGM, I/O, 4). This includes all the other
	commands except the stuff in " " .

		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: February 6,2001
	Size: 5646
	Genre: RPG
	Creator: [DSM]*Wolf*
	Players: 1	
	Graphics: (part text)/2-D graphical
	Other: 2/3 of the trilogy
		
	E-mail: stk_5m@hotmail.com




		Known bugs: If you use both of the save files, then you have a really slim
	chance of getting a DOMAIN error. However this should not be too much of a problem
	because it should rarely happen.
		Please report any bugs you find (I doubt there will be any) and anything 
	that might be wrong with the code below that would cause the game not to work 
	properly.   








Program:  AREA
Size:  970  

:0->M
:PRGM_AREAD
:PRGM_MOVE
:LBL 0
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:0->M
:PRGM_MOVE
:CLRHOME
:DISP "(2 spaces)8:^","(5 spaces)6:>","(7 spaces)9:STATS"
:INPUT C
:IF C=8
:GOTO 3
:IF C=6
:GOTO 1
:IF C=9
:PRGM_STATS
:GOTO 0
:LBL 1
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:1->M
:PRGM_MOVE
:CLRHOME
:DISP "(2 spaces)8:^","4:<(2 spaces)6:>","(7 spaces)9:STATS"
:INPUT C
:IF C=8
:GOTO 4
:IF C=4
:GOTO 0
:IF C=6
:GOTO 2
:IF C=9
:PRGM_STATS
:GOTO 1
:LBL 2
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:2->M
:PRGM_MOVE
:CLRHOME
:DISP "(2 spaces)8:^","4:<","(7 spaces)9:STATS"
:INPUT C
:IF C=8
:GOTO 5
:IF C=4
:GOTO 1
:IF C=9
:PRGM_STATS
:GOTO 2
:LBL 3
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:3->M
:PRGM_MOVE
:CLRHOME
:DISP "(2 spaces)8:^","(5 spaces)6:>","(2 spaces)5:V(2 spaces)9:STATS"
:INPUT C
:IF C=8
:GOTO 6
:IF C=5
:GOTO 0
:IF C=6
:GOTO 4
:IF C=9
:PRGM_STATS
:GOTO 3
:LBL 4
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:4->M
:PRGM_MOVE
:CLRHOME
:DISP "(2 spaces)8:^","4:<(2 spaces)6:>","(2 spaces)5:V(2 spaces)9:STATS"
:INPUT C
:IF C=8
:GOTO 7
:IF C=5
:GOTO 1
:IF C=4
:GOTO 3
:IF C=6
:GOTO 5
:IF C=9
:PRGM_STATS
:GOTO 4
:LBL 5
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:5->M
:PRGM_MOVE
:CLRHOME
:DISP "(2 spaces)8:^","4:<","(2 spaces)5:V(2 spaces)9:STATS"
:INPUT C
:IF C=8
:GOTO 8
:IF C=5
:GOTO 2
:IF C=4
:GOTO 4
:IF C=9
:PRGM_STATS
:GOTO 5
:LBL 6
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:6->M
:PRGM_MOVE
:CLRHOME
:DISP "","(5 spaces)6:>","(2 spaces)5:V(2 spaces)9:STATS"
:INPUT C
:IF C=5
:GOTO 3
:IF C=6
:GOTO 7
:IF C=9
:PRGM_STATS
:GOTO 6
:LBL 7
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:7->M
:PRGM_MOVE
:CLRHOME
:DISP "","4:<(2 spaces)6:>","(2 spaces)5:V(2 spaces)9:STATS"
:INPUT C
:IF C=5
:GOTO 4
:IF C=4
:GOTO 6
:IF C=6
:GOTO 8
:IF C=9
:PRGM_STATS
:GOTO 7
:LBL 8
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:8->M
:PRGM_MOVE
:CLRHOME
:DISP "(7 spaces)7:CAVE","4:<","(2 spaces)5:V(2 spaces)9:STATS"
:INPUT C
:IF C=5
:GOTO 5
:IF C=4
:GOTO 7
:IF C=7
:PRGM_BENEM
:IF C=9
:PRGM_STATS
:GOTO 8





Program:  AREAD
Size:  174

:CLRDRAW
:LINE(49,43,51,45
:LINE(52,44,53,45
:LINE(53,46,54,47
:LINE(60,47,62,45
:LINE(62,44,63,43
:LINE(55,43,58,43
:LINE(58,44,55,44
:LINE(55,45,58,45
:LINE(57,46,56,46
:0->H
:LBL 0
:RANDINT(1,63->X
:RANDINT(1,47->Y
:PT-ON(X,Y
:IF H=10
:RETURN
:H+1->H
:GOTO 0





Program:  BENEM
Size:  349

:0->@       (@  is    ALPHA,3)
:CLRHOME
:DISP "","","","(6 spaces)!!!"
:PAUSE
:1700->B
:LBL 0
:PRGM_FD
:CLRHOME
:DISP "HP:",A
:DISP "CAVE KING:",B
:DISP "1:FIGHT 2:SPELL"
:INPUT C
:IF C=1
:GOTO 1
:IF C=2
:GOTO 6
:GOTO 0
:LBL 1
:RANDINT(D*2,S->H
:B-H->B
:IF @>0:THEN
:@-1->@
:CLRHOME
:DISP "HE IS FROZEN"
:PAUSE
:GOTO 3
:END
:LBL 2
:RANDINT(D*2,S+50->H
:H-(D/2)->H
:A-H->A
:LBL 3
:IF B<=0
:GOTO 4
:IF A<=0
:GOTO 5
:IF A>0
:GOTO 0
:IF B>0
:GOTO 0
:LBL 4
:CLRHOME
:DISP "YOU WON!"
:PAUSE
:PRGM_CREDS
:LBL 5
:CLRHOME
:DISP "YOU ARE DEAD!"
:PAUSE
:PRGM_MWMOI
:LBL 6
:PRGM_SMEN
:IF P=2
:PRGM_S2
:IF P=3
:PRGM_S3
:IF P=4
:PRGM_S4
:IF P=5
:PRGM_S5
:GOTO 2





Program:  CREDS
Size:  235

:CLRHOME
:DISP "YOU BEAT THE","GAME!","","THANKS FOR","PLAYING!"
:PAUSE
:CLRHOME
:DISP "PROGRAMMER:","(DSM)*Wolf*",""," (OTHER STUFF","TOO)" (use dots in ANGLE menu for *)
:PAUSE
:CLRHOME
:DISP "","","","TO BE CONTINUED?"
:PAUSE
:IF Q=1
:GOTO 0
:Z->A
:W->R
:PRGM_SAV
:PRGM_MWMOI
:LBL 0
:CLRHOME
:DISP "NEW SPELL!"
:PAUSE
:1->O
:0->Q
:Z->A
:W->R
:PRGM_SAV
:PRGM_MWMOI





Program:  ENEM
Size:  748

:0->@
:CLRHOME
:DISP "","","","(6 spaces)!!!"
:PAUSE
:S*4->B
:LBL 0
:PRGM_FD
:CLRHOME
:DISP "HP:",A
:DISP "STRIDER:",B
:DISP "1:FIGHT 2:SPELL"
:INPUT "3:RUN",C
:IF C=1
:GOTO 1
:IF C=2
:GOTO 7
:IF C=3
:GOTO 8
:GOTO 0
:LBL 1
:RANDINT(D*2,S->H
:B-H->B
:IF @>0:THEN
:@-1->@
:CLRHOME
:DISP "HE IS FROZEN"
:PAUSE
:GOTO 3
:END
:LBL 2
:RANDINT(D,D*2->H
:H-(D/2)->H
:A-H->A
:LBL 3
:IF B<=0
:GOTO 4
:IF A<=0
:GOTO 5
:IF A>0
:GOTO 0
:IF B>0
:GOTO 0
:LBL 4
:CLRHOME
:DISP "YOU WON!"
:PAUSE
:L*5->H
:U+H->U
:CLRHOME
:DISP "EXP:",H
:PAUSE
:T-H->T
:IF T<=0
:GOTO 6
:PRGM_AREAD
:RETURN
:LBL 5
:CLRHOME
:DISP "YOU ARE DEAD!"
:PAUSE
:PRGM_MWMOI
:LBL 6
:CLRHOME
:DISP "YOU LEVELED UP!"
:PAUSE
:RANDINT(55,120->H
:RANDINT(40,75->C
:RANDINT(17,28->X
:RANDINT(8,15->Y
:CLRHOME
:DISP "HP +",H
:DISP "MP +",C
:PAUSE
:CLRHOME
:DISP "STR +",X
:DISP "DEF +",Y
:PAUSE
:L+1->L
:Z+H->Z
:W+C->W
:S+X->S
:D+Y->D
:V/5->H
:H+V->T
:T->V
:IF L=5:THEN
:DISP "NEW SPELL!"
:1->K
:END
:IF L=8:THEN
:DISP "NEW SPELL!"
:1->N
:END
:IF L=10F:THEN
:Z->A
:W->R
:F+1->F
:END
:PAUSE
:PRGM_AREAD
:RETURN
:LBL 7
:PRGM_SMEN
:IF P=2
:PRGM_S2
:IF P=3
:PRGM_S3
:IF P=4
:PRGM_S4
:IF P=5
:PRGM_S5
:GOTO 2
:LBL 8
:RANDINT(0,2->H
:IF H/=1  (not equal to sign   2nd,math,2)
:GOTO A
:GOTO 9
:LBL 9
:CLRHOME
:DISP "YOU OUTRAN THE","ENEMY!"
:PAUSE
:PRGM_AREAD
:RETURN
:LBL A
:CLRHOME
:DISP "YOU CANT ESCAPE!"
:PAUSE
:GOTO 2





Program:  FD
Size:  129

:CLRDRAW
:HORIZONTAL 6
:LINE(12,10,12,8
:PT-ON(11,7
:PT-ON(13,7
:PT-ON(11,9
:PT-ON(13,9
:PT-ON(11,11
:PT-ON(12,12
:PT-ON(13,11
:LINE(54,10,54,8
:PT-ON(53,7
:PT-ON(55,7
:PT-ON(53,9
:PT-ON(55,9
:PT-ON(53,11
:PT-ON(54,12
:PT-ON(55,11





Program:  MOVE
Size:  562

:IF M=0
:GOTO 0
:IF M=1
:GOTO 1
:IF M=2
:GOTO 2
:IF M=3
:GOTO 3
:IF M=4
:GOTO 4
:IF M=5
:GOTO 5
:IF M=6
:GOTO 6
:IF M=7
:GOTO 7
:IF M=8
:GOTO 8
:LBL 0
:PT-CHANGE(13,12
:PT-CHANGE(13,11
:PT-CHANGE(13,10
:PT-CHANGE(12,9
:PT-CHANGE(14,9
:PT-CHANGE(12,11
:PT-CHANGE(14,11
:RETURN
:LBL 1
:PT-CHANGE(33,12
:PT-CHANGE(33,11
:PT-CHANGE(33,10
:PT-CHANGE(32,9
:PT_CHANGE(34,9
:PT-CHANGE(32,11
:PT-CHANGE(34,11
:RETURN
:LBL 2
:PT-CHANGE(50,12
:PT-CHANGE(50,11
:PT-CHANGE(50,10
:PT-CHANGE(49,9
:PT-CHANGE(51,9
:PT-CHANGE(49,11
:PT-CHANGE(51,11
:RETURN
:LBL 3
:PT-CHANGE(12,26
:PT-CHANGE(12,25
:PT-CHANGE(12,24
:PT-CHANGE(11,23
:PT-CHANGE(13,23
:PT-CHANGE(11,25
:PT-CHANGE(13,25
:RETURN
:LBL 4
:PT-CHANGE(32,22
:PT-CHANGE(32,21
:PT-CHANGE(32,20
:PT-CHANGE(31,19
:PT-CHANGE(33,19
:PT-CHANGE(31,21
:PT-CHANGE(33,21
:RETURN
:LBL 5
:PT-CHANGE(54,26
:PT-CHANGE(54,25
:PT-CHANGE(54,24
:PT-CHANGE(53,23
:PT-CHANGE(55,23
:PT-CHANGE(53,25
:PT-CHANGE(55,25
:RETURN
:LBL 6
:PT-CHANGE(11,41
:PT-CHANGE(11,40
:PT-CHANGE(11,39
:PT-CHANGE(10,38
:PT-CHANGE(12,38
:PT-CHANGE(10,40
:PT-CHANGE(12,40
:RETURN
:LBL 7
:PT-CHANGE(32,38
:PT-CHANGE(32,37
:PT-CHANGE(32,36
:PT-CHANGE(31,35
:PT-CHANGE(33,35
:PT-CHANGE(31,37
:PT-CHANGE(33,37
:RETURN
:LBL 8
:PT-CHANGE(55,38
:PT-CHANGE(55,37
:PT-CHANGE(55,36
:PT-CHANGE(54,35
:PT-CHANGE(56,35
:PT-CHANGE(54,37
:PT-CHANGE(56,37
:RETURN





Program:  MR
Size:  52

:S/3->H
:R+H->R
:IF R>W
:W->R
:S/2->H
:A+H->A
:IF A>Z
:Z->A





Program:  MWMOI
Size:  621

:FIX 0   (goto the MODE menu, then pick float 0)
:CLRHOME
:DISP "","","(3 spaces)MAGE WAR:","(2 spaces)MAGE OF ICE","",""," VERSION 1.00.0"
:PAUSE
:1->XMIN
:63->XMAX
:0->XSCL
:1->YMIN
:47->YMAX
:0->YSCL
:LBL 0
:CLRHOME
:DISP "1:NEW GAME","2:LOAD GAME","3:QUIT"
:INPUT C
:IF C=1
:GOTO 1
:IF C=2
:GOTO 2
:IF C=3
:STOP
:GOTO 0
:LBL 1
:1->L
:1000->A
:A->Z
:450->R
:R->W
:80->S
:30->D
:24->T
:T->V
:0->U
:1->I
:1->J
:0->K
:0->N
:0->O
:1->Q
:1->F
:PRGM_AREA
:LBL 2
:CLRHOME
:DISP "1:FILE 1","2:FILE 2"
:INPUT C
:IF C=1
:GOTO 3
:IF C=2
:GOTO 4
:GOTO 2
:LBL 3
:CLRHOME
:DISP "LOADING..."
:L5(1)->L
:L5(2)->A
:L5(3)->Z
:L5(4)->R
:L5(5)->W
:L5(6)->S
:L5(7)->D
:L5(8)->T
:L5(9)->U
:L5(10)->V
:L5(11)->I
:L5(12)->J
:L5(13)->K
:L5(14)->N
:L5(15)->O
:L5(16)->F
:L5(17)->Q
:PRGM_AREA
:LBL 4
:CLRHOME
:DISP "LOADING..."
:L6(1)->L
:L6(2)->A
:L6(3)->Z
:L6(4)->R
:L6(5)->W
:L6(6)->S
:L6(7)->D
:L6(8)->T
:L6(9)->U
:L6(10)->V
:L6(11)->I
:L6(12)->J
:L6(13)->K
:L6(14)->N
:L6(15)->O
:L6(16)->F
:L6(17)->Q
:PRGM_AREA





Program:  RN
Size:  30

:RANDINT(0,2->H
:IF H/=1
:RETURN
:PRGM_ENEM





Program:  S2
Size:  227

:0->H
:LBL 0
:PT-ON(20+H,11
:PT-ON(20+H,9
:PT-ON(18+H,12
:PT-ON(18+H,8
:PT-ON(18+H,10
:PT-ON(16+H,11
:PT-ON(16+H,9
:PT-OFF(20+H,11
:PT-OFF(20+H,9
:PT-OFF(18+H,12
:PT-OFF(18+H,8
:PT-OFF(18+H,10
:PT-OFF(16+H,11
:PT-OFF(16+H,9
:IF H>=30
:GOTO 1
:H+4->H
:GOTO 0
:LBL 1
:RANDINT(D*2,S+120->H
:B-H->B
:RANDINT(0,4->H
:IF H/=2
:RETURN
:RANDINT(1,2->H
:@+H->@
:CLRHOME
:DISP "YOU FROZE HIM"
:PAUSE
:RETURN





Program:  S3
Size:  167

:0->H
:LBL 0
:PT-ON(52,40-H
:PT-ON(51,41-H
:PT-ON(53,41-H
:PT-ON(56,45-H
:PT-ON(55,46-H
:PT-ON(57,46-H
:PT-OFF(52,40-H
:PT-OFF(51,41-H
:PT-OFF(53,41-H
:PT-OFF(56,45-H
:PT-OFF(55,46-H
:PT-OFF(57,46-H
:IF H>=33
:GOTO 1
:H+4->H
:GOTO 0
:LBL 1
:RANDINT(D*2,S+275->H
:B-H->B
:RETURN





Program:  S4
Size:  249

:LINE(16,7,18,9
:LINE(18,9,20,7
:LINE(18,7,25,10
:LINE(25,10,27,7
:LINE(24,7,31,10
:LINE(31,10,37,7
:LINE(32,7,42,13
:LINE(42,13,46,7
:LINE(42,7,51,15
:LINE(51,15,57,7
:LINE(50,7,60,16
:LINE(60,16,61,7
:LINE(52,16,56,23
:LINE(56,23,59,17
:RANDINT(D*2,S+500->H
:B-H->B
:PAUSE
:RANDINT(0,2->H
:IF H/=1
:RETURN
:RANDINT(1,3->H
:@+H->@
:CLRHOME
:DISP "YOU FROZE HIM"
:PAUSE
:RETURN





Program:  S5
Size:  202

:0->H
:LINE(15,8,17,7
:LBL 0
:PT-ON(18+H,7
:IF H=34
:GOTO 1
:H+1->H
:GOTO 0
:LBL 1
:LINE(49,7,51,14
:LINE(51,14,56,14
:LINE(56,14,58,17
:LINE(58,17,61,17
:LINE(61,17,63,7
:LINE(57,7,58,12
:LINE(58,12,60,12
:RANDINT(D*3,S+1200
:B-H->B
:RANDINT(5,12->H
:@+H->@
:CLRHOME
:DISP "YOU FROZE HIM"
:PAUSE
:RETURN





Program:  SAV
Size:  352

:LBL 0
:CLRHOME
:DISP "1:FILE 1","2:FILE 2"
:INPUT C
:IF C=1
:GOTO 1
:IF C=2
:GOTO 2
:GOTO 0
:LBL 1
:CLRHOME
:DISP "SAVING..."
:L->L5(1)
:A->L5(2)
:Z->L5(3)
:R->L5(4)
:W->L5(5)
:S->L5(6)
:D->L5(7)
:T->L5(8)
:U->L5(9)
:V->L5(10)
:I->L5(11)
:J->L5(12)
:K->L5(13)
:N->L5(14)
:O->L5(15)
:F->L5(16)
:Q->L5(17)
:RETURN
:LBL 2
:CLRHOME
:DISP "SAVING..."
:L->L6(1)
:A->L6(2)
:Z->L6(3)
:R->L6(4)
:W->L6(5)
:S->L6(6)
:D->L6(7)
:T->L6(8)
:U->L6(9)
:V->L6(10)
:I->L6(11)
:J->L6(12)
:K->L6(13)
:N->L6(14)
:O->L6(15)
:F->L6(16)
:Q->L6(17)





Program:  SMEN
Size:  436

:0->P
:LBL 0
:CLRHOME
:DISP "1:HEAL(8 spaces)30","2:FROST BLAST 50"
:IF K=1
:DISP "3:SPIKES(6 spaces)75"
:IF N=1
:DISP "4:S.I. CLASH 110"
:IF O=1
:DISP "5:LIQUID N.(2 spaces)550"
:DISP R
:INPUT "0:EXIT ",C
:IF C=1
:GOTO 1
:IF C=2
:GOTO 2
:IF C=3
:GOTO 3
:IF C=4
:GOTO 4
:IF C=5
:GOTO 5
:IF C=0
:RETURN
:GOTO 0
:LBL 1
:IF R<30
:GOTO @
:R-30->R
:RANDINT(D*2,S*2->H
:A+H->A
:IF A>Z
:Z->A
:RETURN
:LBL 2
:IF R<50
:GOTO @
:R-50->R
:2->P
:RETURN
:LBL 3
:IF K/=1
:GOTO Z
:IF R<75
:GOTO @
:R-75->R
:3->P
:RETURN
:LBL 4
:IF N/=1
:GOTO Z
:IF R<110
:GOTO @
:R-110->R
:4->P
:RETURN
:LBL 5
:IF O/=1
:GOTO Z
:IF R<550
:GOTO @
:R-550->R
:5->P
:RETURN
:LBL Z
:CLRHOME
:DISP "YOU DONT HAVE","THAT SPELL!"
:PAUSE
:GOTO 0
:LBL @
:CLRHOME
:DISP "NOT ENOUGH MP!"
:PAUSE
:GOTO 0





Program:  STATS
Size:  143

:CLRHOME
:DISP "LV:",L
:DISP "HP:",A,Z
:PAUSE
:CLRHOME
:DISP "MP:",R,W
:PAUSE
:CLRHOME
:DISP "STR:",S
:DISP "DEF:",D
:PAUSE
:CLRHOME
:DISP "TNL:",T
:DISP "TOTAL EXP:",U
:PAUSE
:CLRHOME
:DISP "SAVE?"
:INPUT "1:YES 2:NO",C
:IF C=1
:PRGM_SAV
:RETURN

