ZX81 |
|---|
| 10 | REM ZX81 REM "SKI RUN": | |
|---|---|---|
| 20 | INPUT B | |
| 30 | CLS | |
| 40 | FOR X=4 T0 63 STEP 4 | |
| 50 | LET Y=INT(RND*5) | |
| 60 | PLOT X, Y | |
| 70 | PLOT X, Y+B | |
| 80 | NEXT X | |
| 90 | LET Y=2 | |
| 100 | PLOT 0, 2 | |
| 110 | FOR X=1 T0 63 | |
| 120 | LET Y = Y - (INKEY$="Z" AND Y > 0) + (INKEY$="M" AND Y < 10) | |
| 130 | PLOT x, Y | |
| 140 | IF PEEK(PEEK 16398 + 256*PEEK 16399) = 128 THEN GOTO 180 | |
| 150 | NEXT X | |
| 160 | PRINT "YOU WON!" | |
| 170 | STOP | |
| 180 | PRINT "YOU HIT A FLAG!" | |
| 190 | STOP |