Athor: 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)


prgmAGENT007 starts here=========================

1üXmin
95üXmax
63üYmax
1üYmin
18üA
30üB
25üF
5üE
10üM
20üN
0üÁ
5üG
5üI
15üH
1üJ
0üS
60üT
AxesOff
ClrDraw
Text(21,28,"RAPöUREDAN"
Text(28,40,"1997
Pause 
ClrHome
Disp "MY NAME IS BOND...
Pause 
Disp "","","...JAMES BOND
Pause 
ClrDraw
Circle(20,35,10
Circle(42,35,10
Line(30,50,30,47
Line(30,50,65,50
Line(30,47,60,47
Line(60,47,45,10
Line(65,50,50,10
Line(45,10,50,10
Pause 
Text(30,73,"006
Text(37,65,"STRIKES
Text(44,69,"AGAIN
Line(A,B,A,B+10
Line(A,B+5,A+3,B+5
Line(A+4,B,A+4,B+10
Line(A+3,B+10,A-1,B+10
Line(A-1,B+7,A-1,B+10
Line(A+5,B+7,A+5,B+10
Pt-On(A+1,B+11
Line(A+1,B+12,A+3,B+12
Pt-On(A+3,B+11
Line(A,B,A+4,B

Line(A+2,B,A+2,B+3

Pause 
Lbl M
ClrHome
Menu(" AGENT 007 ","PLAY",P,"YOUR MISSION",I,"OTHER INFO",O,"CHEAT",Á,"EXIT",X
Lbl I
ClrHome
Disp "YOU ARE JAMES","BOND, THE FAMOUS","AGENT 007.","YOU HAVE JUST","RECIEVED INFO","THAT FORMER
Pause 
ClrHome
Disp "AGENT 006 HAS","ESCAPED FROM","PRISON. SO YOU","GET IN YOUR BMW","AND HEAD","TOWARD HIS LAST","KNOWN WHERABOUTS
Pause 
ClrHome
Disp "YOUR MISSION IS","TO CAPTURE 006.","","","YOU ARE LICENSED","TO KILL.
Pause 
ClrHome
Disp "","MISSION 1:","PASS 5 CARS","","MISSION 2:","GET PAST WOODS
Pause 
ClrHome
Disp "","MISSION 3:","SHOOT MEN AND","SAVE HOSTAGES","","MISSION 4:","GET 006
Pause 
Goto M
Lbl O
ClrHome
Disp "THIS GAME WAS","CREATED BY","AGENT 770","DANIEL SIMS","1-10-97
Pause 
ClrHome
Disp "VISIT MY WEBPAGE","","HTTP://","MEMBERS.AOL.COM/","RAPTUREDAN/","RAPTUREDAN.HTML
Pause 
Goto M
Lbl X
ClrHome
Disp "THANKS FOR","PLAYING
Stop
Lbl P
ClrHome
Disp "YOU'R CRUSIN IN","YOUR BMW LOOIKING","FOR 006 AND HIS","MEN.
Pause 
ClrHome
Disp "SUDDENLY","YOU CATCH UP","WITH THE 006","GANG.","THEY WILL DO","ANYTHING TO","PROTECT HIM
Pause 
ClrHome
Disp "TRY TO CATCH UP","WITH 006.","WATCH OUT FOR","CARS AND STAY","ON THE ROAD.
Pause 
ClrHome
Disp "","H= YOU","W= ENEMY","M= INNOCENT
Pause 
55üA
25üB
ClrDraw
Line(1,1,50,1
Line(50,1,50,63
Line(50,63,1,63
Line(1,63,1,1
Text(10,10,"AGENT 007
Pause 
Text(10,10,"MISSION 1
Pause 
Text(10,10," "
Vertical 14
Vertical 36
Text(10,55,"SCORE:
Text(30,55,"Speed:
Lbl 1
Text(10,80,S
If T=180:Goto 9
T+2üT
Lbl 9
Text(30,80,T
If J=1:Then
Text(M,N," "
M+10üM
If M=50 and B=N
Goto CS
If M=60:Then
10üM
randInt(3,6)*5üN
End
Text(M,N,"M
End
Text(A,B,"H
getKeyüC
If C=24:Goto CL
If C=26:Goto CR
If J=1:Goto 2
If J=2:Goto 3
Lbl CL
Text(A,B," "
B-5üB
If B=0:5}B
If J=1 and B=10
Goto CS
Text(A,B,"H
If A=E and B=F
Goto CS
If J=1:Goto 2
If J=2:Goto 3
Lbl CR
Text(A,B," "
B+5üB
If B=50:45üB
If J=1 and B=35
Goto CS
Text(A,B,"H
If A=E and B=F
Goto CS
If J=1:Goto 2
If J=2:Goto 3
Lbl 2
randInt(1,8)üD
If D=1:Goto DD
If D=2:Goto DD
If D=3:Goto DD
If D=4:Goto DD
If D=5:Goto DL
If D=6:Goto DR
If D=7:Goto DD
If D=8:Goto DD
Lbl DD
Text(E,F," "
E+5üE
If E=60:Then
5üE
randInt(3,6)*5üF
S+10üS
If S=50:Goto 4
End
Text(E,F,"W
If A=E and B=F
Goto CS
Goto 1
Lbl DL
Text(E,F," "
F-5üF
If F=10:15üF
Text(E,F,"W
If A=E and B=F
Goto CS
Goto 1
Lbl DR
Text(E,F," "
F+5üF
If F=35:30üF
Text(E,F,"W
If A=E and B=F
Goto CS
Goto 1
Lbl 4
ClrHome
Disp "YOU ARE JUST","ABOUT TO CATCH","UP WITH 006.","BUT HE SWERVES","ONTO A CURVY","ROAD IN THE","WOODS.
Pause 
ClrDraw
2üJ
Line(1,1,50,1
Line(50,1,50,62
Line(50,62,1,62
Line(1,62,1,1
Text(10,10,"MISSION 2
Pause 
Text(10,10," "
Text(10,55,"ScOre:
Text(30,55,"Speed:
Lbl 3
If B<H
Goto CS
If BùH+25
Goto CS
Text(I,1,"XXXXXXXX
Text(G,H,"I I
Text(I+5,1,"XXXXXXXX
Text(G+5,H,"I I
Text(I+10,1,"XXXXXXXX
Text(G+10,H,"I I
Text(I+15,1,"XXXXXXXX
Text(G+15,H,"I I
Text(I+20,1,"XXXXXXXX
Text(G+20,H,"I I
Text(I+25,1,"XXXXXXXX
Text(G+25,H,"I I
Text(I+30,1,"XXXXXXXX
Text(G+30,H,"I I
Text(I+35,1,"XXXXXXXX
Text(G+35,H,"I I
Text(I+40,1,"XXXXXXXX
Text(G+40,H,"I I
Text(I+45,1,"XXXXXXXX
Text(G+45,H,"I I
Text(I+50,1,"XXXXXXXX
Text(G+50,H,"I I
randInt(1,2)üK
If K=1:Then
H-5üH
If H=0:5üH
End
If K=2:Then
H+5üH
If H=25:20üH
End
S+10üS
Text(10,80,S
If S=200:Then
prgmZLEVEL2
End
Goto 1
Lbl CS
Text(20,15,"CRASH
Pause 
ClrHome
Disp "GAME OVER
Stop
Lbl Á
ClrHome
Disp "SO, YOU CANT","HANDLE THIS","SECRET AGENT","STUFF, HUH?
Pause 
ClrHome
Disp "WELL, FOR ALL","THE CHEATING","LOOSERS OUT","THERE, I HAVE","INCLUDED CHEAT","CODES.
Pause 
ClrHome
Disp "ENTER IN YOUR","CHEAT NUMBER:
Input Z
If Z=1999
Then
1üÁ
prgmZLEVEL3
End
If Z=1997
Then
150üS
prgmZLEVEL2
End
If Z=006
Then
200üS
prgmZLEVEL3
End
Disp "WRONG!
Pause 
Goto M



prgmZLEVEL2 starts here==========================



ClrHome
Disp "YOU FOLLOW 006","TO HIS SECRET","HQ. BUT HE HAS","BEEN EXPECTING","YOU.
Pause 
ClrHome
Disp "SHOOT THE GUYS","BETWEEN THE EYES.","DONT SHOOT THE","HOSTAGES, SHOOT","THE X TO SAVE","THEM
Pause 
ClrDraw
27üA
20üB
0üD
18üT
0üZ
0üF
0üG
Horizontal 11
Horizontal 13
Horizontal 30
Horizontal 40
Text(10,10,"MISSION 3
Pause 
ClrDraw
Lbl 1
Text(55,55,"TIME:
If T>9:Text(55,80,T
If T÷9:Then
Text(55,80," "
Text(55,80,T
End
Text(55,10,"SCORE:
Text(55,35,S
Line(A,B,A+6,B
Line(A+3,B+3,A+3,B-3
getKeyüC
If C=24:Goto CL
If C=26:Goto CR
If C=25:Goto CU
If C=34:Goto CD
If C=21:Goto CS
Goto 2
Lbl CL
Line(A,B,A+6,B,0
Line(A+3,B+3,A+3,B-3,0
A-5üA
If A=0:5üA
Line(A,B,A+6,B
Line(A+3,B+3,A+3,B-3
Goto 2
Lbl CR
Line(A,B,A+6,B,0
Line(A+3,B+3,A+3,B-3,0
A+5üA
If A=95:90üA
Line(A,B,A+6,B
Line(A+3,B+3,A+3,B-3
Goto 2
Lbl CU
Line(A,B,A+6,B,0
Line(A+3,B+3,A+3,B-3,0
B+5üB
If B=65:60üB
Line(A,B,A+6,B
Line(A+3,B+3,A+3,B-3
Goto 2
Lbl CD
Line(A,B,A+6,B,0
Line(A+3,B+3,A+3,B-3,0
B-5üB
If B=10:15üB
Line(A,B,A+6,B
Line(A+3,B+3,A+3,B-3
Goto 2
Lbl CS
If E=1 and A=67 and B=45
Then
ClrDraw
Goto KI
End
If E=2 and A=17 and B=50
Then
ClrDraw
Goto KI
End
If E=3 and A=52 and B=50
Then
ClrDraw
Goto KI
End
If E=4 and A=F+2 and B=G+5
Then
ClrDraw
Goto KI
End
If E=4 and B÷50 and Bù30 and Aù47 and A÷67
Then
ClrDraw
Goto KL
End
Goto 2
Lbl 2
If D=0
randInt(1,4)üE
If E=1:Goto EA
If E=2:Goto EB
If E=3:Goto EC
If E=4:Goto ED
Goto 1
Lbl EA
RecallPic 2
1üD
T-1üT
If T=0:Goto KK
Goto 1
Lbl EB
RecallPic 3
1üD
T-1üT
If T=0:Goto KK
Goto 1
Lbl EC
RecallPic 4
1üD
T-1üT
If T=0:Goto KK
Goto 1
Lbl ED
RecallPic 5
1üD
T-1üT
If T=0:Goto KL
If Z=0:Then
randInt(1,17)*5üF
randInt(3,8)*5üG
End
Line(F,G,F+10,G
Line(F,G,F,G+10
Line(F,G+10,F+10,G+10
Line(F+10,G,F+10,G+10
Line(F,G,F+10,G+10
Line(F,G+10,F+10,G
1üZ
Goto 1
Lbl KI
15üT
0üD
0üZ
S+10üS
If S=300
prgmZLEVEL3
Goto 1
Lbl KL
ClrHome
0üS
Disp "OOPS, A HOSTAGE","IS KILLED,","GAMEOVER
Stop
Lbl KK
Line(20,15,80,45
Line(20,45,80,15
Line(20,30,80,30
Line(20,40,80,20
Line(20,20,80,40
Line(30,45,70,15
Line(30,15,70,45
Line(20,35,80,25
Line(20,25,80,35
Line(50,10,50,50
Line(40,10,60,50
Line(60,10,40,50
For(Z,63,1,ú1)
Line(1,Z,95,Z
End
0üS
ClrHome
Disp "YOU WERE SHOT","GAME OVER
Stop


prgmZLEVEL3 starts here================================




Lbl 5
ClrHome
Disp "YOU GOT PAST","006'S MEN.","NOW YOU FACE","006 HIMSELF.","IT TAKES 3 SHOTS","TO KILL HIM.
Pause 
If Á=1:Goto WN
250üS
10üA
10üB
50üR
40üT
3üJ
0üO
0üQ
0üU
ClrDraw
Line(1,1,70,1
Line(70,1,70,55
Line(70,55,1,55
Line(1,55,1,1
Text(10,10,"MISSION 4
Text(1,1,"AGENT 007 RAPTUREDAN 1997

Pause 
Text(10,10," "
Text(10,75,"SCORE:
Lbl 6
Text(20,80,S
Line(A,B,A,B+10
Line(A,B+5,A+3,B+5
Line(A+4,B,A+4,B+10
Line(A+3,B+10,A-1,B+10
Line(A-1,B+7,A-1,B+10
Line(A+5,B+7,A+5,B+10
Pt-On(A+1,B+11
Line(A+1,B+12,A+3,B+12
Pt-On(A+3,B+11
Line(A+2,B,A+2,B+3
Line(A,B,A+4,B
If O=1:Then
Line(A-1,B+7,A-1,B+10,0
Line(A-1,B+10,A-3,B+10
Line(A-1,B+9,A-3,B+9
Line(A-2,B+11,A-4,B+11
End
If O=2:Then
Line(A+5,B+7,A+5,B+10,0
Line(A+5,B+10,A+7,B+10
Line(A+5,B+9,A+7,B+9
Line(A+6,B+11,A+8,B+11
End
If O=3:Then
Line(A+5,B+7,A+5,B+10,0
Line(A+5,B+10,A+5,B+14
Line(A+4,B+11,A+4,B+13
End
If O=4
Pt-On(A+5,B+6
getKeyüC
If C=24:Goto EL
If C=26:Goto ER
If C=25:Goto EU
If C=34:Goto ED
If C=21:Goto ES
Goto 7
Lbl ES
U+1üU
If U=2:Then
0üU
Goto 7
End
If O=0:Goto 7
If O=1:Then
Line(A-2,B+11,A-4,B+11,0
If B=T:Goto KI
End
If O=2:Then
Line(A+6,B+11,A+8,B+11,0
If B=T:Goto KI
End
If O=3:Then
Pt-Off(A+5,B+14
If A=R:Goto KI
End
If O=4:Then
Pt-Off(A+5,B+6
If A=R:Goto KI
End
Goto 6
Lbl EL
U+1üU
If U=2:Then
0üU
Goto 7
End
Line(A,B,A,B+10,0
Line(A,B+5,A+3,B+5,0
Line(A+4,B,A+4,B+10,0
Line(A+3,B+10,A-1,B+10,0
Line(A-1,B+7,A-1,B+10,0
Line(A+5,B+7,A+5,B+12,0
Pt-Off(A+1,B+11
Line(A+1,B+12,A+3,B+12,0
Pt-Off(A+3,B+11
Line(A+2,B,A+2,B+3,0
Line(A,B,A+4,B,0
Line(A-1,B+10,A-3,B+10,0
Line(A-1,B+9,A-3,B+9,0
Line(A-2,B+11,A-4,B+11,0
Line(A+5,B+10,A+7,B+10,0
Line(A+5,B+9,A+7,B+9,0
Line(A+6,B+11,A+8,B+11,0
Line(A+5,B+10,A+5,B+14,0
Line(A+4,B+11,A+4,B+13,0
Pt-Off(A+5,B+6
1üO
A-10üA
If A=0:10üA
If A=E and B=F
Goto CS
Goto 6
Lbl ER
U+1üU
If U=2:Then
0üU
Goto 7
End
Line(A,B,A,B+10,0
Line(A,B+5,A+3,B+5,0
Line(A+4,B,A+4,B+10,0
Line(A+3,B+10,A-1,B+10,0
Line(A-1,B+7,A-1,B+10,0
Line(A+5,B+7,A+5,B+12,0
Pt-Off(A+1,B+11
Line(A+1,B+12,A+3,B+12,0
Pt-Off(A+3,B+11
Line(A+2,B,A+2,B+3,0
Line(A,B,A+4,B,0
Line(A-1,B+10,A-3,B+10,0
Line(A-1,B+9,A-3,B+9,0
Line(A-2,B+11,A-4,B+11,0
Line(A+5,B+10,A+7,B+10,0
Line(A+5,B+9,A+7,B+9,0
Line(A+6,B+11,A+8,B+11,0
Line(A+5,B+10,A+5,B+14,0
Line(A+4,B+11,A+4,B+13,0
Pt-Off(A+5,B+6
2üO
A+10üA
If A=70:60üA
If A=E and B=F
Goto CS
Goto 6
Lbl EU
U+1üU
If U=2:Then
0üU
Goto 7
End
Line(A,B,A,B+10,0
Line(A,B+5,A+3,B+5,0
Line(A+4,B,A+4,B+10,0
Line(A+3,B+10,A-1,B+10,0
Line(A-1,B+7,A-1,B+10,0
Line(A+5,B+7,A+5,B+12,0
Pt-Off(A+1,B+11
Line(A+1,B+12,A+3,B+12,0
Pt-Off(A+3,B+11
Line(A+2,B,A+2,B+3,0
Line(A,B,A+4,B,0
Line(A-1,B+10,A-3,B+10,0
Line(A-1,B+9,A-3,B+9,0
Line(A-2,B+11,A-4,B+11,0
Line(A+5,B+10,A+7,B+10,0
Line(A+5,B+9,A+7,B+9,0
Line(A+6,B+11,A+8,B+11,0
Line(A+5,B+10,A+5,B+14,0
Line(A+4,B+11,A+4,B+13,0
Pt-Off(A+5,B+6
3üO
B+10üB
If B=50:40üB
Goto 6
Lbl ED
U+1üU
If U=2:Then
0üU
Goto 7
End
Line(A,B,A,B+10,0
Line(A,B+5,A+3,B+5,0
Line(A+4,B,A+4,B+10,0
Line(A+3,B+10,A-1,B+10,0
Line(A-1,B+7,A-1,B+10,0
Line(A+5,B+7,A+5,B+12,0
Pt-Off(A+1,B+11
Line(A+1,B+12,A+3,B+12,0
Pt-Off(A+3,B+11
Line(A+2,B,A+2,B+3,0
Line(A,B,A+4,B,0
Line(A-1,B+10,A-3,B+10,0
Line(A-1,B+9,A-3,B+9,0
Line(A-2,B+11,A-4,B+11,0
Line(A+5,B+10,A+7,B+10,0
Line(A+5,B+9,A+7,B+9,0
Line(A+6,B+11,A+8,B+11,0
Line(A+5,B+10,A+5,B+14,0
Line(A+4,B+11,A+4,B+13,0
Pt-Off(A+5,B+6
4üO
B-10üB
If B=0:10üB
Goto 6
Lbl 7
Line(R,T,R,T+10
Line(R,T+5,R+3,T+5
Line(R+4,T,R+4,T+10
Line(R+3,T+10,R-1,T+10
Line(R-1,T+7,R-1,T+10
Line(R+5,T+7,R+5,T+10
Pt-On(R+1,T+11
Line(R+1,T+12,R+3,T+12
Pt-On(R+3,T+11
Line(R+2,T,R+2,T+3
Line(R,T,R+4,T
If Q=1:Then
Line(R-1,T+7,R-1,T+10,0
Line(R-1,T+10,R-3,T+10
Line(R-1,T+9,R-3,T+9
Line(R-2,T+11,R-4,T+11
End
If Q=2:Then
Line(R+5,T+7,R+5,T+10,0
Line(R+5,T+10,R+7,T+10
Line(R+5,T+9,R+7,T+9
Line(R+6,T+11,R+8,T+11
End
If Q=3:Then
Line(R+5,T+7,R+5,T+10,0
Line(R+5,T+10,R+5,T+14
Line(R+4,T+11,R+4,T+13
End
If Q=4
Pt-On(R+5,T+6
randInt(1,7)üP
If P=1:Goto PL
If P=2:Goto PR
If P=3:Goto PU
If P=4:Goto PD
If P=5:Goto PS
If P=6:Goto PS
If P=7:Goto PS
Goto 6
Lbl PS
V+1üV
If V=2:Then
0üV
Goto 6
End
If Q=0:Goto 6
If Q=1:Then
Line(R-2,T+11,R-4,T+11,0
If B=T:Goto KK
End
If Q=2:Then
Line(R+6,T+11,R+8,T+11,0
If B=T:Goto KK
End
If Q=3:Then
Pt-Off(R+5,T+14
If A=R:Goto KK
End
If Q=4:Then
Pt-Off(R+5,T+6
If A=R:Goto KK
End
Goto 7
Lbl PL
V+1üV
If V=2:Then
0üV
Goto 6
End
Line(R,T,R,T+10,0
Line(R,T+5,R+3,T+5,0
Line(R+4,T,R+4,T+10,0
Line(R+3,T+10,R-1,T+10,0
Line(R-1,T+7,R-1,T+10,0
Line(R+5,T+7,R+5,T+12,0
Pt-Off(R+1,T+11
Line(R+1,T+12,R+3,T+12,0
Pt-Off(R+3,T+11
Line(R+2,T,R+2,T+3,0
Line(R,T,R+4,T,0
Line(R-1,T+10,R-3,T+10,0
Line(R-1,T+9,R-3,T+9,0
Line(R-2,T+11,R-4,T+11,0
Line(R+5,T+10,R+7,T+10,0
Line(R+5,T+9,R+7,T+9,0
Line(R+6,T+11,R+8,T+11,0
Line(R+5,T+10,R+5,T+14,0
Line(R+4,T+11,R+4,T+13,0
Pt-Off(R+5,T+6
1üQ
R-10üR
If R=0:10üR
If A=E and B=F
Goto CS
Goto 7
Lbl PR
V+1üV
If V=2:Then
0üV
Goto 6
End
Line(R,T,R,T+10,0
Line(R,T+5,R+3,T+5,0
Line(R+4,T,R+4,T+10,0
Line(R+3,T+10,R-1,T+10,0
Line(R-1,T+7,R-1,T+10,0
Line(R+5,T+7,R+5,T+12,0
Pt-Off(R+1,T+11
Line(R+1,T+12,R+3,T+12,0
Pt-Off(R+3,T+11
Line(R+2,T,R+2,T+3,0
Line(R,T,R+4,T,0
Line(R-1,T+10,R-3,T+10,0
Line(R-1,T+9,R-3,T+9,0
Line(R-2,T+11,R-4,T+11,0
Line(R+5,T+10,R+7,T+10,0
Line(R+5,T+9,R+7,T+9,0
Line(R+6,T+11,R+8,T+11,0
Line(R+5,T+10,R+5,T+14,0
Line(R+4,T+11,R+4,T+13,0
Pt-Off(R+5,T+6
2üQ
R+10üR
If R=70:60üR
If A=E and B=F
Goto CS
Goto 7
Lbl PU
V+1üV
If V=2:Then
0üV
Goto 6
End
Line(R,T,R,T+10,0
Line(R,T+5,R+3,T+5,0
Line(R+4,T,R+4,T+10,0
Line(R+3,T+10,R-1,T+10,0
Line(R-1,T+7,R-1,T+10,0
Line(R+5,T+7,R+5,T+12,0
Pt-Off(R+1,T+11
Line(R+1,T+12,R+3,T+12,0
Pt-Off(R+3,T+11
Line(R+2,T,R+2,T+3,0
Line(R,T,R+4,T,0
Line(R-1,T+10,R-3,T+10,0
Line(R-1,T+9,R-3,T+9,0
Line(R-2,T+11,R-4,T+11,0
Line(R+5,T+10,R+7,T+10,0
Line(R+5,T+9,R+7,T+9,0
Line(R+6,T+11,R+8,T+11,0
Line(R+5,T+10,R+5,T+14,0
Line(R+4,T+11,R+4,T+13,0
Pt-Off(R+5,T+6
3üQ
T-10üT
If T=50:40üT
Goto 7
Lbl PD
V+1üV
If V=2:Then
0üV
Goto 6
End
Line(R,T,R,T+10,0
Line(R,T+5,R+3,T+5,0
Line(R+4,T,R+4,T+10,0
Line(R+3,T+10,R-1,T+10,0
Line(R-1,T+7,R-1,T+10,0
Line(R+5,T+7,R+5,T+12,0
Pt-Off(R+1,T+11
Line(R+1,T+12,R+3,T+12,0
Pt-Off(R+3,T+11
Line(R+2,T,R+2,T+3,0
Line(R,T,R+4,T,0
Line(R-1,T+10,R-3,T+10,0
Line(R-1,T+9,R-3,T+9,0
Line(R-2,T+11,R-4,T+11,0
Line(R+5,T+10,R+7,T+10,0
Line(R+5,T+9,R+7,T+9,0
Line(R+6,T+11,R+8,T+11,0
Line(R+5,T+10,R+5,T+14,0
Line(R+4,T+11,R+4,T+13,0
Pt-Off(R+5,T+6
4üQ
T-10üT
If T=0:10üT
Goto 7
Lbl KI
S+10üS
If Sù230:Goto WN
Goto 6
Lbl KK
ClrHome
Disp "YOU WERE SHOT
Pause 
Disp "GAME OVER
0üS
Stop
Lbl WN
ClrHome
Disp "WITH A FINAL","PULL OF THE","TRIGGER, 006 IS","NO MORE.
Pause 
ClrHome
Disp "AS YOU LEAVE","THE BUILDING YOU","THINK ABOUT THE","GOOD OLE DAYS","YOU HAD WITH 006
Pause 
ClrHome
Disp "BUT THOSE DAYS","ARE OVER AND","NEW MISSIONS","AWAIT...
Pause 
ClrHome
Disp "",""," THE END
Pause 
Output(3,11,"?
Pause 
ClrHome
Disp "HERE ARE SOME","CHEAT CODES:","","1997: LEVEL 2","006 : LEVEL 3","1999: ENDING
Pause 
ClrHome
Disp "THANKS FOR","PLAYING.
0üS
Stop