CLS
NEW
' ------- 09 SKI
10 CLS:CLP:X=12:Y=9:S=0:T=10:W=100
20 POKE #700,#18,#2C,#5E,#FF,#FF,#FF,#18,#18
30 POKE #708,#42,#42,#42,#42,#42,#42,#42,#42
40 C=SCR(X,Y)
50 LOCATE 0,0:PRINT "Score ";S;
60 LOCATE X-1,Y:PRINT CHR$(32,5,32);
70 LOCATE X-1,Y-1:PRINT CHR$(32,#E1,32);
80 K=INKEY():X=X-(K=28 AND X>0)+(K=29 AND X<28)
90 S=S+1
100 T=T+1
110 IF T/10>3 THEN T=0
120 FOR I=0 TO T/10
130 LOCATE RND(30),24-RND(2):PRINT CHR$(#E0);
140 NEXT
150 SCROLL 0
160 WAIT W/10
170 W=W-1:IF W<2 THEN W=1
180 IF T%2>0 THEN POKE #700,#18,#2C,#5E,#BD,#BF: ELSE POKE #700,#18,#2C,#5E,#FF,#FF
190 IF C<>#E0 THEN GOTO 40
200 LOCATE X,Y-1:PRINT CHR$(244)
210 LOCATE 11,9:PRINT "Score ";S;"pt"
220 LOCATE 11,11:PRINT "Game Over"