Ski_10lines_1

0print"{black}{clear}":v=53269:pokev+12,1:c=99:pokev+18,6:poke2040,13:pokev,1:forx=0to62:ready:poke832+x,y:next
1j=peek(56320):pokev-21,c:pokev-20,60:pokev+10,0:n=int(rnd(0)*10)+1:ifl>14thenl=l-1
2z=sgn(jand4)-sgn(jand8):c=c+z*3:ifn=5thena$="{cm m}>{space*3}{cm m}>":a=8:gosub9
3ifint(rnd(0)*30)+1=29thenu=0
4u=u+1:ifu=30thenl=l+1:u=0:data,,,,,,,,,,,,,,,,,,,,,,,,,
5printtab(l)"{W*3}"spc(15)"{W*3}":f=0:q=int(rnd(0)*3)-1:ifl<-qthenq=0
6l=l+q:ifn=10thena$="{cm +*2}":a=13:gosub9
7s=peek(v+10):ifsthend=d+1:ifd>20thenpokev,0:print"{home}{reverse on}over 10 falls!":forx=0to2000:next:run
8goto1:data16,,1,57,,,146,,,124,,,186,,,186,,,254,,,124,,,108,,,108,,,108,,,108,,,
9i=int(rnd(0)*a)+1:printtab(l)"{W*3}"spc(i)a$spc(a-i)"{W*3}":return