0 P=PEEK(653)+1:Z=Z+1:PRINT"[144]SCORE"Z:POKE214,8:PRINTCHR$(8):PRINTTAB(A)""A$:IFPEEK(1424+A)=30THENWAIT0,0
1 POKE214,23:PRINT:PRINT"^"TAB(RND(0)*35)"^^^^"TAB(38)"^":A=A+(P=3)-(P=2):A$=MID$("[199][205][206][200]",P,1):GOTO
10 REM << CD22-5 >>
11 REM
12 REM SOLUTION TO PROBLEM #18-3 :
13 REM               SKI SCROLL
14 REM     BY PAUL T. DAWSON
15 REM