Revenger

GM 3 0 0 N E X T L 2 : N E X T L : S O U N D 0 , 0 , 0 , 0
ZC 3 1 0 G O S U B 1 2 0 0 : P O K E 5 1 2 , 1 3 2 : P O K E 5 1 3 , 6
XU 3 2 0 P O K E 1 5 3 7 , 1 2 4 : P O K E 1 5 4 4 , 1 7
TM 3 3 0 P O K E 5 3 2 7 7 , 3 : P O K E 5 5 9 , 6 2
ZR 3 4 0 I S C 5 1 7 C H R S ( 8 ) : I S ( 7 ) = C H R S ( 6 )
VE 3 5 0 P O K E 2 0 5 , 1 2 8 : P O K E 5 3 2 5 0 , 1 5 8
OR 3 6 0 P O K E 2 8 4 , 0 : L = U S R C A O R ( I S ) )
YZ 3 7 0 P O KE 5 4 2 8 6 , 1 9 2 : S O U N D 0 , 0 , 1 2 , 1 0
XV 3 8 0 S O U N D 1 , 2 4 4 , 1 0 , 8 : S O U N D 2 , 2 4 5 . 1 0 , 8
QV 3 9 0 P O K E 6 2 3 , 1 : P O K E 5 3 2 7 8 . 0 : L = U S R C A D R C
ZO 4 0 0 I F P E E K ( 5 3 2 5 2 ) = 4 A N D P E E K C 5 3 2 6 0 ) = 0
TH E N 5 9 0
NM 4 1 0 F O R L = 0 T O 2 : 5 0 U N D L , 0 , 0 , 0 : N E X T L
VE 4 2 0 F O R L = 2 5 5 T O 0 S T E P - 2 0
US 4 3 8 F O R L 2 = 0 T O 7 : P O K E 1 6 3 6 + 1 2 , 2 5 5 * R N D
NV 4 4 0 S O U N D 0 , 1 + 3 6 1 4 _ 2 , 8 , 1 0 N E X T 1 2
GI 4 5 0 PO KE 7 1 2 , 1 6 * I N T ( 1 3 * R N D ( 1 ) ) + 3 2
LYR / 4 6 8 S O UND 8 , 8 , 0 , 4 1 : L I = L I
LP - 0 4 7 0 F O R L = 0 'TO 3 : P O K E 7 0 4 4 . 1 _ , 0 : N E X T L
TM 4 8 8 I S C 5 ) = C H R S ( 9 5 ) : I 5 C 7 1
GP 7 4 9 0 L=USR(ADR(I S));G RAPHI CS 1
RWH 5R 0S0E F2 O2 R8 1L = 8 T O 3 : P O K E 5 3 2 4 8 + 1 , 0 : N E W L