0 POKE53281,1:PRINT"[147]":T=55792:S=1520:X=500:FORI=0TO500:IFPEEK(S+J+40)=65THENX=X-40
1 A=RND(1)*41:PRINTSPC(A)"[193]":K=PEEK(197):J=J+(K=7)-(K=2):POKES+J,22:POKET+J,0:NEXT:PRINT"SCORE="X
10 REM << CD22-6 >>
11 REM
12 REM SOLUTION TO PROBLEM #18-3 :
13 REM               SKI SCROLL
14 REM BY LARRY SNYDER
15 REM