Alien Lure

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

Appears on

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

Gallery

Alien Lure

Source Code

   1 REM ALIEN LURE
   2 LET BEST=0
   3 PRINT "SKILL LEVEL? A=AMATEUR/P=PROFESSIONAL"
   4 INPUT A$
   5 CLS 
  10 LET SO=2
  15 LET S=0
  20 PRINT """HOLED UP"""
  21 PRINT AT 14,15;"LEVEL:";A$
  22 PRINT AT 16,10;"HIGH SCORE: ";BEST
  23 PRINT AT 18,0;"     YOUR SCORE:";S
  30 PRINT AT 20,0;"      SPARE MEN:";SO
  40 LET X=17
  50 LET Y=0
  60 LET A=17
  70 LET B=8
  80 LET U=21
  90 LET V=4
 100 LET G=1
 110 LET HX=15
 120 LET HY=0
 130 LET C=17
 140 LET D=4
 150 LET E=19
 160 LET F=2
 165 LET GG=19
 170 LET HH=6
 195 PRINT AT U,V;"*"
 200 PRINT AT X,Y;"$"
 210 PRINT AT A,B;"$"
 220 PRINT AT C,D;"X"
 230 PRINT AT E,F;"X"
 240 PRINT AT GG,HH;"X"
 300 LET Q=141
 305 LET M=X
 310 LET N=Y
 320 GOSUB 2000
 322 LET W=345
 325 GOTO 6000
 335 LET X=M
 340 LET Y=N
 345 PRINT AT X,Y;"$"
 347 GOSUB 2430
 350 LET M=A
 360 LET N=B
 370 GOSUB 2000
 375 LET W=410
 380 GOTO 6000
 400 LET B=N
 405 LET A=M
 410 PRINT AT A,B;"$"
 415 GOSUB 2430
 417 LET Q=189
 420 LET M=C
 440 LET N=D
 460 GOSUB 2000
 470 LET W=510
 475 GOTO 6000
 500 LET D=N
 505 LET C=M
 510 PRINT AT C,D;"X"
 515 GOSUB 2430
 520 LET M=E
 540 LET N=F
 560 GOSUB 2000
 570 LET W=610
 580 GOTO 6000
 600 LET F=N
 605 LET E=M
 610 PRINT AT E,F;"X"
 615 GOSUB 2430
 620 LET M=GG
 640 LET N=HH
 660 GOSUB 2000
 670 LET W=710
 680 GOTO 6000
 700 LET HH=N
 705 LET GG=M
 710 PRINT AT GG,HH;"X"
 720 GOSUB 2430
 770 GOTO 300
2003 IF INKEY$="1" THEN LET G=1
2004 IF INKEY$="2" THEN LET G=2
2005 LET R=RND
2010 LET Z=RND
2020 PRINT AT M,N;" "
2090 IF M=18 OR M=20 OR N=V AND A$="P" AND (N=0 OR N=2 OR N=4 OR N=6 OR N=8) THEN GOTO 2120
2100 IF R<=.5 OR M=U OR N=1 OR N=3 OR N=5 OR N=7 THEN GOTO 2300
2120 IF M=21 OR U<M AND A$="P" THEN LET Z=.7
2122 IF M=17 OR U>M AND A$="P" THEN LET Z=.5
2125 IF Z<=.5 THEN LET M=M+1
2140 IF Z>.5 THEN LET M=M-1
2160 GOTO 2340
2300 IF N=0 OR N<V THEN LET Z=.5
2305 IF N=8 OR N>V THEN LET Z=.7
2310 IF Z<=.5 THEN LET N=N+1
2320 IF Z>.5 AND N>0 THEN LET N=N-1
2340 IF M=U AND N=V THEN GOTO 7000
2400 IF INKEY$="2" THEN LET G=2
2410 IF INKEY$="1" THEN LET G=1
2420 RETURN 
2430 IF INKEY$<>"5" AND INKEY$<>"6" AND INKEY$<>"7" AND INKEY$<>"8" THEN RETURN 
2440 IF G=2 THEN GOTO 2590
2450 PRINT AT U,V;" "
2520 IF INKEY$<>"5" AND V>0 AND (U=17 OR U=19 OR U=21) THEN LET V=V-1
2540 IF INKEY$="8" AND V<8 AND (U=17 OR U=19 OR U=21) THEN LET V=V+1
2560 IF INKEY$="6" AND U<21 AND (V=O OR V=2 OR V=4 OR V=6 OR V=8) THEN LET U=U+1
2580 IF INKEY$="7" AND U>17 AND (V=0 OR V=2 OR V=4 OR V=6 OR V=8) THEN LET U=U-1
2585 GOTO 3005
2590 PRINT AT HX,HY;" "
2597 IF INKEY$="5" AND V>0 AND (U=21 OR U=19 OR U=17) THEN GOTO 2700
2600 IF INKEY$="8" AND V<8 AND (UL21 OR U=19 OR U=17) THEN GOTO 2750
2620 IF INKEY$="6" AND U<21 AND (V=0 OR V=2 OR V=4 OR V=6 OR V=8) THEN GOTO 2800
2640 IF INKEY$="7" AND U>17 AND (V=0 OR V=2 OR V=4 OR V=6 OR V=8) THEN GOTO 2850
2660 GOTO 3005
2700 LET HX=U
2710 LET HY=V-1
2720 GOTO 3000
2750 LET HX=U
2760 LET HY=V+1
2770 GOTO 3000
2800 LET HX=U+1
2810 LET HY=V
2820 GOTO 3000
2850 LET HX=U-1
2860 LET HY=V
3000 IF HX=X AND HY=Y OR HX=A AND HY=BWHX=C AND HY=D OR HX=E AND HY=F OR HX=GG AND HY=HH THEN LET HX=15
3003 IF HX<>15 THEN PRINT AT HX,HY;"O"
3020 IF HX=U AND HY=V OR U=X AND V=Y OR U=A AND V=B OR U=C AND V=D OR U=E AND V=F OR U=GG AND V=HH THEN GOTO 7000
3030 PRINT AT U,V;"*"
3040 RETURN 
6000 IF M=X AND N=Y OR M=A AND N=B OR M=C AND N=D OR M=E AND N=F OR M=GG AND N=HH THEN GOTO W
6005 IF M=HX AND N=HY THEN GOTO 6020
6010 GOTO W-10
6020 IF Q=141 THEN LET S=S+100
6035 LET S=S+100
6040 PRINT AT M,N;CHR$ Q
6044 IF S/3000=INT (S/3000) OR       (S-100)/3000=INT ((S-100)/3000) THEN LET SO=SO+1
6045 PRINT AT 18,21;S
6047 PRINT AT 20,21;SO
6050 LET HX=15
6060 GOTO W-10
7000 PRINT AT U,V;"*"
7010 LET SO=SO-1
7030 PAUSE 100
7032 IF SO=-1 THEN GOTO 8000
7035 CLS 
7040 GOTO 20
8000 FOR N=0 TO 21
8010 SCROLL 
8020 NEXT N
8030 IF S>BEST THEN LET BEST=S
8040 PRINT AT 0,0;"GAME OVER, ALL YOUR MEN ARE DEAD"
8050 GOTO 2
8100 SAVE "1013%6"
8200 RUN 

People

No people associated with this content.

Scroll to Top