1REM       --"SKI TREK" BY JOEY LATIMER--
2REM      --FOR APPLE II SERIES--
3REM      --[C] SCHOLASTIC INC. 1984--
4REM       --FROM FAMILY COMPUTING, FEBRUARY 1984--
10HOME
20? TAB(12); "THE SKI GAME"
30FOR i=1 TO 1500
40NEXT i
50HOME
60? "YOU ARE THE SKIER: H"
70?
80? "FOR A HIGH SCORE,"
90? "SKI DOWN THE SLOPE"
100? "WITHOUT HITTING THE TREES."
110?
120? "PRESSING..."
150?
160? "PRESS (RETURN) TO BEGIN."
170INPUT r$
180HOME
190? " GET READY!"
200FOR t=1 TO 2500
210NEXT t
220 l=12
230 s=0
240 a=INT(RND(1)*18)
250FOR x=1 TO a
260GOSUB 1000
265INVERSE
270HTAB x:? CHR$(32); :HTAB x+12:? CHR$(32)
280IF l<x THEN 2000
285IF l>x+12 THEN 2000
290NEXT x
300FOR y=a TO 1 STEP -1
310GOSUB 1000
315INVERSE
320HTAB y:? CHR$(32); :HTAB y+12:? CHR$(32)
340NEXT y
350GOTO 240
1000 j=PDL(5)
1010IF j=8 THEN  l=l-1
1020IF j=2 THEN  l=l+1
1030HTAB (l)
1040NORMAL:? "H"; 
1050 s=s+1
1060FOR t=1 TO 20
1070NEXT t
1080? CHR$(8); CHR$(32)
1090RETURN
2000NORMAL:HTAB l:? "*"
2016?
2020? "   C R A S H !"
2030?
2040?
2050? "YOU WENT "; s; " YARDS."
2060IF s>h THEN  h=s
2070? "THE HIGH SCORE IS "; h; "."
2080?
2090? "PRESS (RETURN) TO PLAY AGAIN."
2100INPUT r$
2110GOTO 180
