10 SCREEN1,1,0:WIDTH32:KEYON:FORE=1TO10:KEYE,"RIVER":NEXT:DEFINTA-Z:P=14:COLOR15,1,1:VPOKE8197,34:VPOKE8216,85:VPOKE8217,170:VDP(6)=VDP(4):L=4:FORE=384TO736:Z=VPEEK(E):Z=(ZORZ/2):VPOKEE,Z:NEXT:VPOKE8219,68:O=7:VPOKE8196,187:FORE=34TO40:VPOKEE,124:NEXT
20 KEY1,"PRESS":KEY2,"KEY":KEY3,"":D$="ЭЭРллллРЭЭ":E=E+1:X=SIN(E/2)*7:LOCATE8+X:PRINTD$;:LOCATE13-X:PRINTD$:A$=INKEY$:IFA$=""THENGOTO20ELSEE=0:FORE=0TO95:PRINT"лллллллл";:NEXT:X=127:KEY1," LEFT:":KEY3,"LIFE:":KEY6,"HISCORE":KEY7,STR$(SH):SC=0
30 IFSC<7ANDSC>1THENP=HELSEH=P:P=P+(-3+RND(1)*6):IFP<3THENP=3ELSE IF P>20THENP=20
40 FORE=1TOL:D=STICK(0):IFD=3THENX=X+4ELSEIFD=7THENX=X-4
50 PUTSPRITE0,(X,167),9,4:LOCATE(RND(1)*32),1:PRINT".":LOCATEP,1:PRINT"ЭЭРллллллРЭЭ":LOCATE0,0:PRINTCHR$(27)+"L":IFVPEEK(6817+(X/8))<>219THENO=O-1:IFO=0THENGOTO90
60 SC=SC+1:IFSC=999THENL=L-1:SC=0:IFL=0THENGOTO90ELSEIFL=3THENVPOKE8196,204ELSEIFL=2THENVPOKE8196,153ELSEIFL=1THENVPOKE8196,102
70 LOCATEP1,23:KEY2,STR$(999-SC):KEY4,STR$(O):NEXTE:GOTO 30
90 IFINKEY$<>""THEN90ELSESD=SC+((4-L)*1000):CLS:COLOR,,8:KEYOFF:WIDTH26:PRINT"YOUR SCRORE:"SD:IFSD>SHTHENSH=SD:PRINT"NEW HISCORE":PRINT"PRESS KEY TO PLAY AGAIN"ELSEPRINT"GAME OVER":PRINT"PRESS KEY TO TRY AGAIN"
99 IFINKEY$=""THENGOTO99ELSEGOTO10