スキー

10 F1$="FF0F0F0FFF"
20 F2$="FF090909FF"
30 V=0*:CLS:X=0:Y=24:G=0:RANDOMIZE:T=0:S=2
40 Z$=INKEY$
50 G=G*0.8
60 V=V*0.8+S*COS(G)*0.5
70 DG=(100+G*G/160)/(V+1)
80 IF Z$="1" THEN G=G-DG
90 IF Z$="0" THEN G=G+DG
100 IF V>5 THEN V=5
110 IF V<0 THEN V=0.1
120 IF G>90 THEN G=90
130 IF G<-90 THEN G=-90
140 X=X+V*COS(G) :Y=Y+V*SIN(G)
150 IF X>143 THEN X=X-144 :CLS :S=1+RND 4 :ELSE 200
160 YP=RND 38 :GC. (30, YP+5) :GP. F1$
170 YP=RND 38 :GC. (60, YP+5) :GP. F2$
180 YP=RND 38 :GC. (90, YP+5) :GP. F1$
190 YP=RND 38 :GC. (120, YP+5) :GP. F2$
200 IF Y<4 THEN 270
210 IF Y>47 THNE 270
220 GC. (X,Y) :GP. "88"
230 U. "##.###" :LOC. 18,0: PRINT V
240 U. "##" :LOC. 20,4 :PRINT S
250 U. "#######" :LOC. 17,5 :PRINT T
260 T=T+1 :GOTO 40
270 PRINT "コースアウト"
280 END

左から右へ。０と１で板の角度を調整。
もっとパラメータを調整して作り込んだらおもしろいかも。