10 '*SKI* 20 CLS:CLV 30 LOCATE 0,0 40 PRINT S 50 X=15:Y=3 60 LOCATE X,Y 70 PRINT CHR$(5) 75 P=12 77 W=5 80 '---GAMELOOP--- 90 LOCATE X,Y 100 PRINT " " 110 IF BTN(LEFT)=1 AND X>0 THEN X=X-1 120 IF BTN(RIGHT)=1 AND X<31 THEN X=X+1 125 GOSUB 200 127 D=SCR(X,Y) 130 LOCATE X,Y 140 PRINT CHR$(5) 141 IF D=95 THEN BEEP:S=S+1 142 LOCATE 0,0 144 PRINT S 146 IF D=124 THEN GOTO 160 147 W=5-S/10 148 IF W<1 THEN W=1 149 WAIT 5 150 GOTO 80 160 '---GAMEOVER--- 170 LOCATE X,Y 180 PRINT "X" 190 BEEP 30,30 195 END 200 '---POLE--- 210 C=C+1 220 IF C<10 THEN LOCATE 0,23:PRINT:RETURN 230 P=P+RND(3)-1 240 IF P<0 THEN P=0 250 IF P+W>28 THEN P=28-W 260 LOCATE P,23 270 PRINT "|"; 272 FOR I=1 TO W 274 PRINT "_"; 276 NEXT 278 PRINT "|" 280 C=0 290 RETURN