Catch the Alien

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Catch the Alien

Source Code

   1 PRINT AT 0,12;"CATCH THE ALIEN"
   2 PAUSE 300
   4 REM % %C%A%T%C%H% %T%H%E% %A%L%I%E%N% 
   5 LET H=0
  10 LET L=10
  20 LET C=15
  25 LET M=INT (22*RND)
  30 LET N=INT (27*RND)
  50 FOR X=100 TO 1 STEP -1
  60 PRINT AT M,N;"%A"
 100 LET L$=INKEY$
 110 IF L$="J" THEN LET C=C-1
 120 IF L$="M" THEN LET L=L+1
 130 IF L$="I" THEN LET L=L-1
 140 IF L$="K" THEN LET C=C+1
 150 CLS 
 160 PRINT AT L,C;"%+"
 170 IF L<>M THEN GOTO 200
 180 IF C=N THEN GOTO 300
 200 NEXT X
 219 PRINT "LOST"
 220 PAUSE 500
 230 GOTO 25
 300 IF H<X THEN LET H=X
 305 PRINT AT 1,1;"YOU SCORED ";X;" HI SCORE ";H
 310 GOTO 220
 320 SAVE "1015%6"
 330 RUN 

People

No people associated with this content.

Scroll to Top