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
\n2003 IF INKEY$="1" THEN LET G=1
\n2004 IF INKEY$="2" THEN LET G=2
\n2005 LET R=RND
\n2010 LET Z=RND
\n2020 PRINT AT M,N;" "
\n2090 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
\n2100 IF R<=.5 OR M=U OR N=1 OR N=3 OR N=5 OR N=7 THEN GOTO 2300
\n2120 IF M=21 OR U<M AND A$="P" THEN LET Z=.7
\n2122 IF M=17 OR U>M AND A$="P" THEN LET Z=.5
\n2125 IF Z<=.5 THEN LET M=M+1
\n2140 IF Z>.5 THEN LET M=M-1
\n2160 GOTO 2340
\n2300 IF N=0 OR N<V THEN LET Z=.5
\n2305 IF N=8 OR N>V THEN LET Z=.7
\n2310 IF Z<=.5 THEN LET N=N+1
\n2320 IF Z>.5 AND N>0 THEN LET N=N-1
\n2340 IF M=U AND N=V THEN GOTO 7000
\n2400 IF INKEY$="2" THEN LET G=2
\n2410 IF INKEY$="1" THEN LET G=1
\n2420 RETURN
\n2430 IF INKEY$<>"5" AND INKEY$<>"6" AND INKEY$<>"7" AND INKEY$<>"8" THEN RETURN
\n2440 IF G=2 THEN GOTO 2590
\n2450 PRINT AT U,V;" "
\n2520 IF INKEY$<>"5" AND V>0 AND (U=17 OR U=19 OR U=21) THEN LET V=V-1
\n2540 IF INKEY$="8" AND V<8 AND (U=17 OR U=19 OR U=21) THEN LET V=V+1
\n2560 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
\n2580 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
\n2585 GOTO 3005
\n2590 PRINT AT HX,HY;" "
\n2597 IF INKEY$="5" AND V>0 AND (U=21 OR U=19 OR U=17) THEN GOTO 2700
\n2600 IF INKEY$="8" AND V<8 AND (UL21 OR U=19 OR U=17) THEN GOTO 2750
\n2620 IF INKEY$="6" AND U<21 AND (V=0 OR V=2 OR V=4 OR V=6 OR V=8) THEN GOTO 2800
\n2640 IF INKEY$="7" AND U>17 AND (V=0 OR V=2 OR V=4 OR V=6 OR V=8) THEN GOTO 2850
\n2660 GOTO 3005
\n2700 LET HX=U
\n2710 LET HY=V-1
\n2720 GOTO 3000
\n2750 LET HX=U
\n2760 LET HY=V+1
\n2770 GOTO 3000
\n2800 LET HX=U+1
\n2810 LET HY=V
\n2820 GOTO 3000
\n2850 LET HX=U-1
\n2860 LET HY=V
\n3000 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
\n3003 IF HX<>15 THEN PRINT AT HX,HY;"O"
\n3020 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
\n3030 PRINT AT U,V;"*"
\n3040 RETURN
\n6000 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
\n6005 IF M=HX AND N=HY THEN GOTO 6020
\n6010 GOTO W-10
\n6020 IF Q=141 THEN LET S=S+100
\n6035 LET S=S+100
\n6040 PRINT AT M,N;CHR$ Q
\n6044 IF S/3000=INT (S/3000) OR (S-100)/3000=INT ((S-100)/3000) THEN LET SO=SO+1
\n6045 PRINT AT 18,21;S
\n6047 PRINT AT 20,21;SO
\n6050 LET HX=15
\n6060 GOTO W-10
\n7000 PRINT AT U,V;"*"
\n7010 LET SO=SO-1
\n7030 PAUSE 100
\n7032 IF SO=-1 THEN GOTO 8000
\n7035 CLS
\n7040 GOTO 20
\n8000 FOR N=0 TO 21
\n8010 SCROLL
\n8020 NEXT N
\n8030 IF S>BEST THEN LET BEST=S
\n8040 PRINT AT 0,0;"GAME OVER, ALL YOUR MEN ARE DEAD"
\n8050 GOTO 2
\n8100 SAVE "1013%6"
\n8200 RUN
