GW Basic Ski Slope Port from electricwalrus game

[ron77]

10 RANDOMIZE TIMER
20 PRINT "Ski Slope Challange By electricwalrus (2022)"
30 PRINT
40 PRINT "Use the arrow keys to move left or right down the slope"
50 PRINT
60 PRINT "Press any key to begin!"
70 INPUT A$
80 CLS
90 SCORE = 0
100 X = 40
110 PLAYER = 40
120 PRINT "Get Ready!"
130 T! = TIMER + 5: WHILE TIMER < T1 : WEND
140 LOCATE 1, 25
150 REM main loop
160 I = INT(RND*2) +1
170 IF I = 1 THEN: X = X -1 : IF X < 10 THEN X = 10
180 IF I = 2 THEN X = X+ 1: IF X > 70 THEN X = 70
190 X2 = X - 10: FOR A = 1 TO X2: PRINT " "; : NEXT
200 PRINT "*                    *"
210 K$ = INKEY$
220 IF K$ = CHR$(27) THEN END
230 IF K$ = (CHR$(0) + CHR$(75)) THEN PLAYER = PLAYER - 1
240 IF K$ = (CHR$(0) + CHR$(77)) THEN PLAYER = PLAYER + 1
250 CHECK = PLAYER - X
260 IF CHECK < -8 THEN GOTO 320
270 IF CHECK > 7 THEN GOTO 320
280 LOCATE 24, PLAYER: PRINT "!!"
290 T! = TIMER + .3: WHILE TIMER < T!: WEND
300 SCORE = SCORE + 1
310 GOTO 150
320 BEEP
330 T! = TIMER + 1: WHILE TIMER < T!: WEND
340 CLS
350 LOCATE 1,1
360 PRINT "You crashed on the ski-filed"
370 PRINT "Score: " + STR$(SCORE)
380 PRINT
390 PRINT "Try Again in 5 seconds"
400 GOTO 80

[johnno56]

Cool game! I can remember playing a variation... the higher the score, the narrower the ski path... But still a cool game...

[CharlieJV]

Good stuff.