5 CLS:POKE&H70C5,116:ERASEA$,A:DIMA$(2),A(2):POKE&H6F51,1:POKE&H7799,0
10 RESTORE90:FORA=240TO243:READA$:DEFCHR$(A)="000000"+A$:NEXT:A$(0)=" CUADROS":A$(1)=" VELOCIDAD":A$(2)=" JUEGO":A(0)=0:A(1)=1:A(2)=1:CLS:A=0
20 LOCATE0,0:PRINT,A$(0);TAB(14);A(0),A$(1);TAB(14);A(1),A$(2);TAB(14);A(2);:LOCATE0,A+1:PRINTREV;A$(A);TAB(13);NORM;:T$="7%'&$"
30 GOSUB"TOQUE":ONT GOTO,,60,60,70,70
40 A(A)=A(A)+1:IF(A=0ANDA(A)>15)OR(A=1ANDA(A)>10)OR(A=2ANDA(A)>2)THENA(A)=SGNA
50 LOCATE14,A+1:PRINTA(A);" ";:GOTO30
60 A=(A+1)*-(A<2):GOTO20
70 CLS:BLOAD"MOVER.*4":BLOAD"TX.EXE":POKE&H70B4,193:POKE&H70BC,193:POKE&H70C0,192:POKE&H70B1,116:POKE&H7797,1:POKE&H70C5,116:POKE&H70C1,101:LOCATE0,4:DRAW(0,7)-(191,7):DRAW(0,48)-(0,40)-(191,40)
80 FORA=1TOA(0):POKE&H7790,1:POKE&H7792,INT(RND(-1)*255)+1:POKE&H7791,INT(RND(-1)*3):POKE&H7793,189-A*3:POKE&H779A,0:CALL"TX.EXE":NEXTA:L=A(1)
90 DATA 000000,1C141C,E0A0E0,FCB4FC
100 B=0:POKE&H7790,13:CALL"TX.EXE":FORA=0TO2:B=B+PEEK(&H7772+A+A(2)*3)*100^A:NEXT:B=B*10:C=0:D=0
110 DRAW(95,8)-(95,39)-(114,39)-(114,8)-(95,8)
120 GOSUB130:F=E:GOTO135
130 E=INT(RND(-1)*7)-7*(RND(-1)<.1)*(A(2)-1):RETURN
135 DRAW(0,0):LOCATE0,1:PRINT"RECORD";B,"PUNTOS";C,"NIVEL ";L,"LINEAS";D;
140 GOSUB130:POKE&H779A,0:POKE&H7790,7:POKE&H778F,11-L:POKE&H7794,0:POKE&H7793,E:POKE&H7797,1:POKE&H7791,96:POKE&H7792,10:POKE&H779B,8:CALL"TX.EXE"
150 POKE&H779A,0:POKE&H7793,F:POKE&H7790,10:POKE&H7798,1:POKE&H7791,114:POKE&H7792,18:CALL"TX.EXE":F=E
152 A=PEEK&H778E:IFA=0THEN160ELSEC=C+(4^A*10):D=D+A:L=A(1)+INT(D/30):IFC>B THEN B=C
153 IFL>10THENL=10
154 GOTO 135
160 IF PEEK&H7791>=114THEN140
165 LOCATE20,2:PRINT"GAME":LOCATE20,3:PRINT"OVER":DRAW(118,14)-(144,14)-(144,32)-(118,32)-(118,14):DRAWC(119,31)-(119,15)-(143,15)
170 A$=STR$(B):A$="      "+A$:FORA=1TO3:POKE(&H7771+A+A(2)*3),VAL(MID$(A$,LEN(A$)-A*2,2)):NEXT:BSAVE"TX.EXE",&H7498,739,&H7498:A$=INPUT$(1):GOTO10
