|
10
|
|
REM ZX81 REM "ROAD RUNNER":
|
|---|
|
20 |
|
REM ZX81 MAGAZINE
|
|---|
|
30 |
|
LET Y = 5
|
|---|
|
40 |
|
LET B = Y
|
|---|
|
50 |
|
LET X = 10
|
|---|
|
60 |
|
LET D = X
|
|---|
|
70 |
|
LET Z = 20
|
|---|
|
80 |
|
LET T = 0
|
|---|
|
90 |
|
LET K = INT(RND*2)
|
|---|
|
100 |
|
LET D=D-(K=1 AND D > 1) + (K=0 and D<18 - B)
|
|---|
|
110 |
|
PRINT AT Y, X; "."
|
|---|
|
120 |
|
SCROLL
|
|---|
|
130 |
|
PRINT AT Z, D; "*"; AT Z, D+B; "*"
|
|---|
|
140 |
|
IF PEEK(PEEK16398 +256*PEEK1639)=128 THEN GOTO 180
|
|---|
|
150 |
|
LET X=X-(INKEY$="Z" AND X>Z) + (INKEY$="M" AND X<Z)
|
|---|
|
160 |
|
LET T = T + 1
|
|---|
|
170 |
|
GOTO 90
|
|---|
|
180 |
|
PRINT AT 6, 6; "YOU CRASHED"; TAB 6; "YOR SCORE IS ";T
|
|---|
|
190 |
|
PRINT AT 6, 6; "YOU CRASHED"
|
|---|
|
200 |
|
goto 180
|
|---|