www.jupiterace.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 shuttlecraft 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 
