0 PRINTTAB(T)"H":X=PEEK(197):T=T-(X=44)+(X=47)-(T<1)+(T>38):PRINTTAB(RND(1)*39)"^[145][145][145][145][145][145]":GOTO
10 REM << CD22-4 >>
11 REM
12 REM SOLUTION TO PROBLEM #18-3 :
13 REM               SKI SCROLL
14 REM BY SHELDON C. WOTRING
15 REM