EXPORT Tunnel()
BEGIN
1►C;
0►P;
35►Y;
20►T;
70►L;
0►L1(512);
FOR Z FROM 0 TO 16 DO
3-INT(RANDOM(2))►L1(2Z+1);
20-INT(RANDOM(4))►L1(2Z+2);
END;
RECT();INVERT();
FOR Z FROM 0 TO 2 DO
TEXTOUT_P("Score:",Z,0,2,3,50);
TEXTOUT_P("τ υ η η ε ι  39ǤII",142+Z,0,2,3,128);
END;
WHILE Y>0 DO
FOR Z FROM 0 TO 15 DO
C+1►C;
IF C>16 THEN
1►C;
END;
L1(2C+2)►O;
L1(2C+1)►Q;
RECT_P(16*Z,15,16*Z+15,O,0);
RECT_P(16*Z,O,16*Z+15,O+L,Q,Q);
RECT_P(16*Z,O+L,16*Z+15,126,0);
IF Z=0 THEN
RECT_P(0,Y,8,Y+12,0,3);
RECT_P(2,Y+4,14,Y+8,1,2);
IF Y<O OR Y+12>O+L THEN
−9►Y;
END;
END;
END;
TEXTOUT_P(P,46,0,2,3,48,0);
TEXTOUT_P(P,47,0,2,3);
P+1►P;
L1(2C+2)►S;
3-INT(RANDOM(2))►U;
S+INT(RANDOM(20)-10)►Ans;
IF Ans<15 THEN
15►Ans;
ELSE
IF Ans>120-L THEN
120-L►Ans;
END;
END;
C+1►C;
IF C>16 THEN
1►C;
L-1►L;
END;
Ans►L1(2C+2);
U►L1(2C+1);
Y-(5*ISKEYDOWN(9))+(5*ISKEYDOWN(15))►Y;
END;
FOR Z FROM 0 TO 5 DO
INVERT();
FOR Y FROM 0 TO 999 DO
END;
END;
RECT_P(0,15,256,126,0,0);
MSGBOX("SCORE: "+P,1);
END;