Produced by: Quick Edge

Because the TI uses symbols that wordprossesors dont use,
I made a key for all those strange symbols you see..

Key:
ü=STO ->
Á=THETA (the O with a line through it)
ö=little T (under MATRX)
ù=greater than or equal to
÷=less than or equal to
ø=not equal to
ú=negative sign
á=mini "L" (under LIST)

prgmLINEWARS====================================


2üdim(áLW
If áLW(2)=0
500üáLW(2
0üáLW(1
ClrDraw
AxesOff
1üR
1üÁ
Text(20,27,"RAPöUREDAN
Text(27,39,"1997
Pause 
Lbl B
ClrHome
Menu(" LINEWARS ","SINGLE PLAYER",S,"MULTIPLAYER",M,"INFO",I,"HIGHSCORE",H,"QUIT",Q
Lbl I
ClrDraw
Text(1,2,"THE POINT OF THE GAME IS TO
Text(8,2,"TRAP THE OTHER PLAYER.
Text(20,2,"PLAYER 1 USES THE ARROWS
Text(27,2,"PLAYER 2 USES NUMBER PAD:
Text(35,2,"8 UP 4 LEFT 6 RIGHT 2 DOWN
Text(43,2," 2nd = PAUSE MODE = QUIT
Text(55,2,"TRY TO BEAT THE HIGHSCORE!
Pause 
ClrDraw
Text(1,2,"TO MAKE YOUR OWN LEVEL,
Text(8,2,"DRAW A PICTURE AND STORE
Text(15,2,"IT AS A PIC.
Text(25,2,"CHOOSE CUSTOM AS THE LEVEL
Text(32,2,"AND ENTER THE PIC NUMBER.
Pause 
ClrDraw

Text(10,6,"THIS GAME WAS CREATED BY
Text(17,25,"DANIEL SIMS
Text(24,30,"12-20-97
Text(40,12,"GAME BASED ON TRON BY 
Text(47,27,"HAAKWORKS
Pause 
Goto B
Lbl H
ClrHome
Disp "THE HIGHSCORE IS
áLW(2)üA
Output(4,7,A
Pause 
Goto B


Lbl Q
AxesOn
FnOn 
ZStandard
ClrHome
Disp "THANKS 4 PLAYING
Stop
Lbl M
2üÁ
ClrDraw
AxesOff
GridOff
FnOff 
Full
0üXmin
94üXmax
0üYmin
62üYmax
31üA
15üB
0üC
1üD
31üE
79üF
0üG
ú1üH
Disp "WHAT LEVEL?","","1) WIDE OPEN","2) WALL","3) LINEWARS","4) SMILE!","0) MORE...
Input R
If R=0:Then
ClrHome
Disp "WHAT LEVEL?","","5) ''BALLS''","6) NARROW PATH","7) CUSTOM
Input R
End
Goto LV
Lbl PP
Lbl 1
pxl-Test(A,B)üI
pxl-Test(E,F)üJ
If I=1 or J=1
Goto 2
Pxl-On(A,B
Pxl-On(E,F
A+CüA
B+DüB
E+GüE
F+HüF
getKeyüZ
If Z=0
Goto 1
If Z=26 and Døú1
Then
1üD
0üC
Goto 1
End
If Z=25 and Cø1
Then
ú1üC
0üD
Goto 1
End
If Z=24 and Dø1
Then
ú1üD
0üC
Goto 1
End
If Z=34 and Cøú1
Then
0üD
1üC
Goto 1
End
If Z=81 and Høú1
Then
1üH
0üG
Goto 1
End
If Z=73 and Gø1
Then
ú1üG
0üH
Goto 1
End
If Z=82 and Hø1
Then
ú1üH
0üG
Goto 1
End
If Z=93 and Gøú1
Then
1üG
0üH
Goto 1
End
If Z=22
Goto Q
If Z=21:Then
ClrHome
Output(4,5,"=PAUSED=
Pause 
Goto 1
End
Goto 1
Lbl 2
If I=1
Text(2,2,"CRASH
If J=1
Text(2,73,"CRASH
Pause 
ClrHome
Goto B
Lbl S
ClrDraw
AxesOff
GridOff
FnOff 
Full
0üXmin
94üXmax
0üYmin
62üYmax
31üA
15üB
0üC
1üD
31üE
79üF
0üG
ú1üH

Lbl LV
If R=2
Line(45,15,45,50
If R=3:Then
Line(25,20,65,20
Line(25,20,25,42
Line(25,42,65,42
Line(65,42,65,20
Text(27,30,"LINEWARS
End
If R=4:Then
Shade(30,40,40,45
Shade(30,40,50,55
Shade(25,30,45,50
Line(35,20,60,20
Line(35,25,35,20
Line(60,25,60,20
Line(0,30,94,30,0
Line(0,40,94,40,0
Line(0,25,94,25,0
End
If R=5:Then
Circle(30,31,5
Circle(64,31,5
Circle(47,41,5
Circle(47,21,5
Horizontal 50
Horizontal 10
End
If R=6:Then
Horizontal 35
Horizontal 25
Text(18,17,"NARROW IS THE WAY
Text(40,25,"MATTHEW 7:14
End
If R=7:Then
ClrHome
Disp "","WHICH PIC
Input R
If R=1:RecallPic 1
If R=2:RecallPic 2
If R=3:RecallPic 3
If R=4:RecallPic 4
If R=5:RecallPic 5
If R=6:RecallPic 6
If R=7:RecallPic 7
If R=8:RecallPic 8
If R=9:RecallPic 9
If R=0:RecallPic 0
End

Horizontal 62
Horizontal 0
Vertical 0
Vertical 94
300üY
Text(5,5,"PRESS ENTER WHEN READY...
Pause 
Text(5,5," "
If Á=2:Goto PP
Lbl 3
Y-1üY
If Y=0:Then
1üI
Goto 4
End
pxl-Test(A,B)üI
pxl-Test(E,F)üJ
If I=1 or J=1
Goto 4
Pxl-On(A,B
Pxl-On(E,F
A+CüA
B+DüB
E+GüE
F+HüF
E+GüK
F+HüL
getKeyüZ
pxl-Test(K,L)üM
If M=0 and Z=0
Goto 3
If M=1
Then
pxl-Test(E-1,F)üN
pxl-Test(E,F+1)üO
pxl-Test(E+1,F)üP
pxl-Test(E,F-1)üQ
If G=1 or G=ú1
Then
If Q=0
Then
ú1üH
0üG
End
If O=0
Then
0üG
1üH
End
End
If H=1 or H=ú1
Then
If N=0
Then
ú1üG
0üH
End
If P=0
Then
1üG
0üH
End
End
End
If Z=26 and Døú1
Then
1üD
0üC
Goto 3
End
If Z=25 and Cø1
Then
ú1üC
0üD
Goto 3
End
If Z=24 and Dø1
Then
ú1üD
0üC
Goto 3
End
If Z=34 and Cøú1
Then
0üD
1üC
Goto 3
End
If Z=21
Then
ClrHome
Output(1,1,"TIME LEFT:
Output(2,1,Y
Output(4,5,"=PAUSED=

Pause 
Goto 3
End
If Z=22
Goto Q
Goto 3
Lbl 4
If I=1
Text(2,2,"CALCULATOR WINS!
If Y=0
Text(9,2,"YOU RAN OUT OF TIME.
If J=1:Then
Text(2,2,"YOU WIN!
Text(20,38,Y
Y+áLW(1)üáLW(1
If áLW(1)>áLW(2):Then
Text(30,2,"YOU BEAT THE HIGHSCORE!
áLW(1)üáLW(2
End
R+1üR
If R=7:Then
Pause 
1üR
ClrDraw
Text(5,2,"GOOD JOB, YOU BEAT THE GAME!
áLW(1)üY
Text(15,2,"YOUR FINAL SCORE IS ",Y
Pause 
ClrHome
Goto B
End
Pause 
Goto S
End
Pause 
ClrHome
Goto B

1