10 SCREEN1:COLOR14,1,1:KEYOFF:WIDTH32:FORI=0TO22:PRINTSTRING$(31,96):NEXT:DEFINTA-Y:CLEAR1500:C$=CHR$(8):Z=1:FORI=0TO7:READA$:A=VAL("&H"+A$):FORJ=768TO1280STEP64:VPOKEJ+I,A:VPOKEJ+8+I,A:NEXTJ,I:FORI=0TO6:READA$:VPOKE8205+I,VAL("&H"+A$):V(I)=104+I*8
20 FORJ=0TO3:PRINT"`";:READA$:A=VAL("&H"+A$):FORK=0TO7:IFAAND2^(7-K)THEND(I,J,K)=32*INT(K/3)+KMOD3+1:P$(I,J)=P$(I,J)+CHR$(V(I)):B$(I,J)=B$(I,J)+" ":F$(I,J)=F$(I,J)+CHR$(V(I)+1)ELSEP$(I,J)=P$(I,J)+CHR$(28):B$(I,J)=B$(I,J)+CHR$(28):F$(I,J)=F$(I,J)+CHR$(28)
30 IFK=2ORK=5THENA$=CHR$(10)+C$+C$+C$:P$(I,J)=P$(I,J)+A$:B$(I,J)=B$(I,J)+A$:F$(I,J)=F$(I,J)+A$:NEXTKELSENEXTK,J,I:PRINT"```";:LOCATE0,0:FORI=0TO21:PRINT"``          ":NEXT:FORI=1TO5:LOCATE13,I:PRINT"     ":NEXT:LOCATE2,10:PRINT"PRESS PLAY":READS$
40 Z=Z+.2:Z=Z+115*(Z>116):LOCATE13,13:PRINTMID$(S$,Z,17):T=RND(1)*7:IFSTRIG(0)ORSTRING(1)THENV=6:X=6:Y=0:C=X:L=Y:M=P:LOCATE0,0:FORI=0TO21:PRINT"``          ":NEXT:LOCATE13,13:PRINTMID$(S$,40,17):PLAY"S1T120"ELSE40
50 R=STRIG(0)ORSTRIG(1):S=STICK(0)ORSTICK(1):Y=Y-(W=V):W=W+1+V*(W>V):P=P-(R AND R<>Q AND Y=L):Q=R:P=P+4*(P>3):X=X-(S=3 AND Y=L)+(S=7 AND Y=L):V=V+(S=5ANDV>3)-(S=1ANDV<8):IF X=C AND Y=L AND P=M GOTO 50 ELSE O=6143+X+Y*32:I=7:A=1
60 B=VPEEK(O+D(T,P,I)):A=A-(D(T,P,I)>0ANDB<>32ANDB<>V(T)):I=I-1:A=A-2*(I<0):ONAGOTO60:IFA=3THENLOCATEC,L:PRINTB$(T,M):LOCATEX,Y:PRINTP$(T,P):C=X:L=Y:M=P:GOTO50ELSEX=C:P=M:IFY=LGOTO50ELSEPLAY"O4M400L8AF":LOCATEC,L:PRINTF$(T,M):O=O-X:A=1:I=3:K=0:IFY<3GOTO90
70 A=A-(VPEEK(O+I)=32):I=I+1:A=A-2*(I>12):ON A GOTO 70: IF A=3 THEN PLAY"M7000O6F4M15000L1C":FOR I=6144+(Y+K)*32 TO 6240 STEP -32:FOR J=2 TO 11:VPOKE I+J,VPEEK(I+J-32):NEXT J,I
80 K=K+1:O=O+32:A=1:I=3:IF K=3 OR Y+K>21 THEN X=6:Y=0:P=0:V=6:T=N:LOCATE14,2:PRINTB$(N,0):N=INT(RND(1)*7):LOCATE14,2:PRINTP$(N,0):C=X:L=Y:M=P:LOCATE X,Y:PRINT P$(T,P):GOTO 50 ELSE 70
90 LOCATE2,10:PRINT" GAME OVER":BEEP:PLAY "S8M9000T60L16O2E-DC","S8M9000T60L16O4CDE-","S8M9000T60L32O5CE-DGL16O6C":LOCATE14,2:PRINTB$(N,0):Z=1:GOTO40
100 DATA 0,7E,7E,7E,7E,7E,7E,0,45,D8,D8,D8,D8,69,49,1C,49,1C,7F,78,99,78,99,3F,CC,5A,CC,5A,AB,9C,D2,E4,4B,DF,F0,C9,3C,93,C2,5C,4D,E8,59,"                 -BASIC TENLINERS 2016-   WWW.KOTAI.ES  *  WWW.REMAKESONLINE.COM  *  WWW.MINIRACINGONLINE.COM "