1 RANDOMIZE 
2 ; CHR$(12)'********** SLALOM *************'
3 ; : ; 
10 ; "MED A OCH ' STYR DU SLALOM ]KAREN"
20 ; : ; : ; 'TRYCK TANGENT F\R ATT STARTA'
30 GET Q$
40 Z=CALL(630%)
50 K%=15% : B%=1% : T1%=15%
60 FOR I%=1 TO 200%
70 R%=RND*3-1 : T%=T%+1 : IF T%=10% T%=0% : B%=O%-B%
80 K%=K%+R%+B% : IF K%<0% K%=0%
90 IF K%>29% K%=29%
100 ; CUR(23%,0%)STRING$(K%,127);
102 IF RND*]%>.8 THEN ; '---    ---'; : ]%=0 : GOTO 110
104 IF RND*(1-]%)>.8 THEN ; '+++    +++'; : ]%=1
110 ; CUR(23%,K%+10%);STRING$(39%-K%-10%,127)
120 A%=INP(20%) : IF A%=128%+65% T1%=T1%-1% : IF T1%<0% T1%=0%
130 IF A%=128%+ASC("'") T1%=T1%+1% : IF T1%>39% T1%=39%
140 IF DOT(36%,T1%*2%) OUT 6,11% : P%=P%+1
150 ; CUR(12%,T1%)'W'
160 FOR U%=1 TO 400% : NEXT U% : OUT 6,0
170 NEXT I%
180 ; CUR(13,0)SPACE$(11*40);
190 ; CUR(15,0)P%' PORTAR AV'I%-1' MISSADE'