0 CLS:GOTO90
1 RETURN
2 ON1-(P>L)GOTO1:POKEP,96:P=P-1:POKEP,94:RETURN
3 ON1-(P<E)GOTO1:POKEP,96:P=P+1:POKEP,94:RETURN
4 FORS=P-32TOMSTEP-32:ONK(PEEK(S))GOSUB8,9,12:POKES,96:NEXT:RETURN
5 POKEA(A),96:A(A)=A(A)+V(B):POKEA(A),99:RETURN
6 A=RND(16):B=RND(3):ONK(PEEK(A(A)+V(B)))GOSUB5,6,7,5:RETURN
7 T=5000:POKEA(A),99:RETURN
8 POKES,97:RETURN
9 POKES,106:SC=SC+1:SOUND100,1:POKES,96:FORC=1TON:ON1-(S<>A(C))GOSUB10:NEXT:S=M:ONRND(25)GOTO11,13:RETURN
10 A(C)=M+32+RND(31):RETURN
11 GOSUB13:C=RND(27):PRINT@C,"<<>>";:SOUND250,1:RETURN
12 POKES,106:SC=SC+10:SOUND130,1:POKES,96:Q=Q+1:ONQGOTO1,2,3:SC=SC+100:SOUND50,2:SOUND75,2
13 Q=0:PRINT@0,"                                ";:RETURN
20 FORT=1TO500:ONK(PEEK(17023)ANDPEEK(2))GOSUB2,3,4:A=RND(N):B=RND(D):ONK(PEEK(A(A)+V(B)))GOSUB5,6,7,5:NEXT
25 IFT>5000THEN30
26 D=D+1:IFD>5THEND=5:N=N-1:IFN<13THENN=13:PRINT@7,"* SURVIVAL BONUS *":SC=SC+1000
27 FORC=1TO20:SOUNDC,1:NEXT:GOSUB11:GOTO20
30 PRINT@0,"GAME OVER";:PRINT@32,"SCORE"SC:IFSC>HSTHENHS=SC
50 PRINT@64,"HIGH"HS;:PRINT@96,"AGAIN?";
60 I$=INKEY$:ON1-(I$<>"Y")GOTO1050:ON1-(I$="N")GOTO60:END
90 PRINT@234,"* JIMVADERS *";:FORT=1TO2500:NEXT
1000 DIMK(255),P,A(16),V(5),M,E,L,A,B,T,S,N,C,D,Q:K(65)=1:K(83)=2:K(32)=3:K(99)=2:K(96)=1:K(94)=4:K(124)=3:K(126)=3
1005 V(1)=-1:V(2)=1:V(3)=32:V(4)=32:V(5)=32:M=RND(-(PEEK(9)*256+PEEK(10)))
1010 M=16384:E=M+479:L=M+448
1050 CLS:N=16:D=3:SC=0:Q=0:P=L+16:GOSUB2000:POKEP,94:GOSUB3000:GOSUB11:GOTO20
2000 FORT=M+480TOM+511:POKET,32:NEXT:RETURN
3000 FORT=1TO16:A(T)=M+32+RND(31):NEXT:RETURN
