14999 REM <<<<<<  t r a d e  >>>>>> (3D ski)  
15005 FADE
15006 MODE
15033 EXTENSION (Index #0) (Token 0x80)
15034 RESERVE
15037 WAIT
15040 DEF
15050 DEF
15060 DEF
15070 FOR
15080 WAIT VBL
15090 MOVE X
15100 WAIT
15101 WAIT VBL
15102 WAIT
15109 REM WELCOME TO MY TRADING POST  
15110 WAIT VBL
15120 REM BUT WAIT  
15125 ANIM
16999 REM ski trial 
17000 ANIM
17003 EXTENSION (Index #0) (Token 0x80)
17004 BCOPY
17020 VARNAME
17030 DEF
17095 INK
17096 SCREEN COPY
17097 SCREEN COPY
17100 SPRITE
17101 WAIT VBL
17102 LOCATE
17105 ANIM
17106 ANIM
17108 ANIM
17110 MUSIC
17111 VARNAME
17112 IF
17113 IF
17115 UNTIL
17116 ANIM
17117 VARNAME
17118 IF
17119 IF
17123 UNTIL
17124 REPEAT
17125 ANIM
17126 ANIM
17127 VARNAME
17128 VARNAME
17130 REPEAT
17135 INC
17140 VARNAME
17150 IF
17160 IF
17200 IF
17300 VARNAME
17310 SPRITE
17350 SCREEN COPY
17360 SCROLL
17365 VARNAME
17370 IF
17390 SCREEN COPY
17400 IF
17410 IF
17419 REM collision detect  
17420 VARNAME
17440 IF
17460 IF
17500 INC
17510 IF
17520 IF
17530 IF
17540 IF
17550 IF
17560 IF
17940 UNTIL
17941 IF
17944 ANIM
17950 MOVE Y
17980 IF
17985 IF
17990 REPEAT