0 POKE648,192:L$="[196][196][196]":DIMA(200):FORA=1TO7:A$(A)="RASTO......":B(8-A)=A*100:NEXT
1 PRINT"[147])[146]@M[146] [208]M[146]![208])S[146] [210][191])[146][191]M[146]M[220])[146][192]E[146]8)[146]3E[146]A)[208]M[146]([192])[146]8M[146]+[192] [146]@9[146]";
2 PRINT"@@Y[146]@@[200][208][183][174][146]([192][174][146]+[192]-[146]([192][201][160][208][168])[146]7E[146]A)[146]_M[146]X[208])AM[146]M[220] [146]89 [192]Y[146]P:H[146]P";
3 PRINT"[183] [146]')[146][194]Y[146](DY[192][146]G)[146]BY[146]([216]Y[192][219]H[146]P[173])[146][208]E[188]E[190])[146]DE[189])[216]E[191] [146]@)[146]U*)[146][194]Q[188] ";
4 PRINT"[146]'Q[188])[146]BQ[190] [146]@Q[190][146]X%[188][146][169](E[188]E[190]P[146]D[166][189][166][191][202][146]P[255][146][160][190][190][190][146]@[175][175][175][146]@<[194]Y!!Y[146][194]<<[190]";
5 PRINT"[191]??_[146][194]<[195][146][166]<[190]?_[146][198]<<[190]?_[146][198]<[166][195][146]1[187][190]<<^[146][219]1L[255][146][191]//[167][210]L[146]":POKE648,4:R=56320
6 FORK=0TO4:READD(K),W(K):NEXT:DATA-40,69,40,70,-1,72,1,71:Z=54276:POKEZ+20,15
7 SYS49152:B$="...........":PRINTSPC(16)"'BEETLE'"SPC(72)"[159][195]1990 BY"SPC(71);
8 PRINT"[158]R. LEVRINC":FORA=1TO7:PRINT,"[159]"A;LEFT$(A$(A)+B$,11);B(A):NEXT:S=0:K=4
9 PRINT,"[157]PRESS FIRE TO CONTINUE":WAITR,16,16:FORL=3TO0STEP-1:SYS49152:E=2:F=0
10 GOSUB19:FORA=0TO19:B=86:Q=11:GOSUB18:Q=5:B=65:GOSUB18:NEXT:A=1524:A(200)=A
11 A(F)=A:F=-(F<200)*(F+1):I=15-PEEK(R)AND15:POKEZ,F:POKEZ,0:IFITHENK=LOG(I)*1.5
12 POKEA,68:A=A+D(K):Y=PEEK(A):POKE54272+A,1:POKEA,W(K):POKEA(F-E-(F<E)*201),32
13 ON-(Y=32)GOTO11:IFY=65THENE=E+1:S=S+10:GOSUB18:GOSUB19:ON-(E<201)GOTO11:L=L+1
14 ON-(K=4)GOTO11:K=4:NEXT:POKE214,11:PRINT"THE END":WAITR,16,16:IFS<B(7)THEN7
15 PRINT"[147]","[158]CONGRATULATIONS[159]"SPC(58)"THIS IS TOPSEVEN POSITION NO";:A=0
16 A=A+1:ON-(S<B(A))GOTO16:PRINTA:FORB=8TOASTEP-1:A$(B)=A$(B-1):B(B)=B(B-1):NEXT
17 B(A)=S:POKE19,64:INPUT"ENTER YOUR NAME :[158]";A$(A):POKE19,0:GOTO7:DATA0,68
18 U=RND(1)*959:ON-(PEEK(1064+U)<>32)GOTO18:POKE55336+U,Q:POKE1064+U,B:RETURN
19 PRINT"SCORE:"STAB(15)"LENGHT:"E"[157]CM","LIVES: "LEFT$(L$,L)TAB(57);:RETURN