www.jupiter-ace.co.uk

Previous Page > Listings Index > Chase


  Chase listing from Popular Computing Weekly 27 January - 2 February 1983

Chase
on Jupiter Ace

This program is called Chase and is fast and great fun to play. You are the inverse "A" in the middle of the screen, the enemy's guided missile is the inverse "E" at the top left-hand corner of the screen. The idea of the game is to dodge the guided missile for as long as possible.
You can move twice as fast as the missile but it can move diagonally which evens the score. You move with the cursor control keys (5,6,7,8) in the normal directions.
A = inverse video "A" / E = inverse video "E"; (1 = 1)

Program notes
10 VARIABLE X (enter)
15 VARIABLE Y (enter)
  1 VARIABLE A (enter)
  1 VARIABLE B (enter)

: CHASE CLS 10 X ! 15 Y ! 1 A ! 1 B ! BEGIN X @ Y @ AT ." " A @ B @ AT ." " INKEY 53 = IF Y @ 2 - Y ! THEN INKEY 54 = IF X @ 2 - X ! THEN INKEY 55 = IF X @ 2 + X ! THEN INKEY 56 = IF Y @ 2 + Y ! THEN X @ 20 > IF 20 X ! THEN Y @ 30 > IF 30 Y ! THEN X @ 1 < IF 1 X ! THEN Y @ 1 < IF 1 Y ! THEN X @ A @ = IF Y @ B @ = IF ." GOT YOU!" 250 1000 BEEP QUIT THEN THEN X @ A @ > IF A @ 1+ A ! THEN X @ A @ < IF A @ 1– A ! THEN Y @ B @ > IF B @ 1+ B ! THEN Y @ B @ < IF B @ 1– B ! THEN X @ Y @ AT ." A" A @ B @ AT ." E" 250 70 BEEP 0 1 = UNTIL ;

(To run type " CHASE " and ENTER )

Chase
by Andrew Curtis