www.jupiter-ace.co.uk

Previous Page > Listings Index > Lunar Lander


 
Lunar Lander listing from Popular Computing Weekly 21 April 1983, page 28

Lunar Lander
on Ace

You are the shuttle-craft which starts at a random position at the top of the screen. The idea is to land on one of the space station landing platforms which you keep floating past.
You can move with keys "5" (left), "8" (right) and "6" (upwards thrust).

Graphics notes

"[IG3]"   : INVERSE VIDEO GRAPHICS 3
"[IG4]"   : INVERSE VIDEO GRAPHICS 4
"[G7]"    : GRAPHICS 7

Program notes

0 VARIABLE S (enter)
: SEEDON S @ 75 U* 75 0 D+ OVER OVER U< - - 1 1 DUP S ! ; (enter)
: RND SEEDON U* SWAP DROP ; (enter)
1 VARIABLE X (enter)
1 VARIABLE Y (enter)
0 VARIABLE A (enter)
0 VARIABLE B (enter)


: LL CLS 1 X ! 30 RND Y ! 0 A ! 1000 0 DO 30 0 DO 19 I DUP B ! AT ." [IG3][IG4][G7]" X @ Y @ AT " " A @ 1+ A ! INKEY 53 = IF Y @ 1 ! THEN INKEY 56 = IF Y @ 1+ Y ! THEN X @ 1+ X ! INKEY 54 = IF X @ 2- X ! THEN X @ 19 = IF Y @ B@ > IF Y @ B @ 3 + < IF ." *DID IT!* SCORE =" A @ . 10 100 DO I 100 BEEP -10 +LOOP QUIT THEN THEN THEN X @ 19 = IF Y @ B @ 1+ IF ." **CRASHED**" 450 1000 BEEP QUIT THEN Y @ B @ 3 + > IF ." **CRASHED**" 450 1000 BEEP QUIT THEN THEN X @ Y @ AT " Y" 300 60 BEEP LOOP LOOP ; (enter)

Lunar Lander
by Andrew Curtis