0 REM  **** KIDNAPPED ****
5 POKE52,48:POKE56,48:CLR:POKE53280,7:POKE53281,3:GOTO815
10 PRINT"[147]"
15 SX=1:SY=1:C=1:PX=15:PY=8:L1=18:L2=17:CC=1:SS=1:G=0:SP=54272
20 PRINT"[144]"TAB(39)D2$"[145]"
25 FORI=1TO40:POKE1023+I,0:NEXT:FORI=0TO23:POKE1024+I*40,0:NEXT
30 FORI=1TO40:POKE1983+I,0:NEXT:FORI=0TO21:POKE1063+I*40,0:NEXT:PRINT""
35 PRINTTAB(20)"@"TAB(36)"@":PRINTTAB(20)"@"TAB(36)"@"
40 PRINT"@@@@@@@  @@@@@@@@@  @  @@@@@  @@@@@@@"
45 PRINTTAB(3)"@  @"TAB(23)"@@"TAB(36)"@":PRINTTAB(3)"@  @"TAB(23)"@@"TAB(36)"@"
50 PRINTTAB(3)"@  @@@@@@@@@  @  @  @@  @@@@@@@"
55 PRINTTAB(17)"@  @  @@"TAB(33)"@":PRINTTAB(17)"@@@@  @@"TAB(33)"@  @"
60 PRINTTAB(3)"@@@@@@@@@@@@  @  @  @@@@@@@@@@@  @"
65 PRINTTAB(3)"@"TAB(17)"@  @  @@@@@@@@@@@  @@@"
70 PRINTTAB(3)"@"TAB(20)"@"TAB(33)"@  @":PRINTTAB(3)"@@@@@@@@@@@@";
75 PRINTTAB(20)"@"TAB(33)"@  @":PRINTTAB(17)"@@@@@@@@@@@@@@@@@@@@"
80 PRINTTAB(22)"@  @@@@@  @  @@":PRINTTAB(3)"@@@  @@@  @"TAB(22)"@  @@@@@  @"
85 PRINTTAB(5)"@"TAB(10)"@  @  @@@@@@@"TAB(32)"@":PRINTTAB(5)"@"TAB(10)"@  @";
90 PRINTTAB(16)"@@"TAB(32)"@@@@@":PRINTTAB(3)"@@@@@@@@  @@@@@"TAB(26)"@@@@"
95 PRINTTAB(8)"@"TAB(20)"@@@@  @":PRINTTAB(8)"@"TAB(20)"@@@@  @"TAB(32)"@@@@@@@"
100 PRINTTAB(3)"@@@@@@@@@@@@@@   @@@@  @  @  @@@@@@@"
105 PRINTTAB(13)"@"TAB(23)"@  @  @":PRINT"[145]"SPC(13)"@"SPC(9)"@  @  @"
110 PRINT""D1$:PRINT"[149]"TAB(31)D2$:PRINT"[156]"TAB(31);D2$;SPC(5)""D1$
115 PRINT""TAB(20)D2$:PRINTTAB(8)"[158]"D2$:POKE1024+SX+SY*40,61
120 IFN=3THENPOKE1024+L1+L2*40,33
125 IFN>1THENPOKE1024+PX+PY*40,33
130 FORS=1TO6:A(S)=INT(6*RND(9)+1):IFS=1THEN150
135 IFS=6THEN155
140 FORK=1TOS-1:IFA(K)=A(S)THENK=1:GOTO130
145 NEXTK
150 NEXTS
155 FORI=1TOLL:PRINT"[159]":IFA(I)=1THENPRINT"="
160 IFA(I)=2THENPRINT""TAB(32)"="
165 IFA(I)=3THENPRINT""TAB(32)"="
170 IFA(I)=4THENPRINT""TAB(21)"="
175 IFA(I)=5THENPRINT""TAB(37)"="
180 IFA(I)=6THENPRINT""TAB(9)"="
185 NEXTI:FORRD=1TO7
190 PL=INT(1000*RND(1))+1:PP=PL+1024:PW=PEEK(PP)
195 IFPW=0ORPW=63ORPW=62ORPW=61ORPW=33THEN190
200 POKE55296+PL,7:POKE1024+PL,60:NEXTRD
205 FORAA=1TOM
210 PL=INT(1000*RND(1))+1:PP=PL+1024:PW=PEEK(PP)
215 IFPW=0ORPW=63ORPW=62ORPW=61ORPW=60ORPW=33THEN210
220 A(AA)=PP:IFAA=1THEN235
225 FORI=1TOAA-1:IFABS(A(AA)-A(I))<42THEN210
230 NEXTI
235 POKE55296+PL,1:POKE1024+PL,33:NEXTAA:TI$="000000"
240 IFN>1THENPOKE1024+PX+PY*40,33
245 GOTO415
250 IFZ>0ANDZ<3THEN270
255 IFZ=3THENZ=0
260 PO=INT(6*RND(1)+1):IFPO=5THENPO=3
265 IFPO=6THENPO=4
270 X1=PX:Y1=PY:IFPO=1THENPY=PY+1
275 IFPO=2THENPY=PY-1
280 IFPO=3THENPX=PX+1
285 IFPO=4THENPX=PX-1
290 P=1024+PX+PY*40:CH=PEEK(P):IFCH=61THEN590
295 IFCH=0ORCH=33ORCH=60ORCH=62ORCH=63THEN310
300 POKE1024+X1+Y1*40,32:Z=Z+1:GOTO240
305 GOTO240
310 Z=0:PY=Y1:PX=X1:GOTO240
315 POKE1024+L1+L2*40,33
320 GOTO415
325 X2=L1:Y2=L2:IFCC=1THENL1=L1+1
330 IFCC=2THENL1=L1-1
335 IFCC=3THENL2=L2+1
340 IFCC=4THENL2=L2-1
345 P=1024+L1+L2*40:CH=PEEK(P):IFP=1735ANDCC=1THENCC=3:GOTO365
350 IFP=1735ANDCC=4THENCC=2:GOTO365
355 IFCH=61THEN590
360 IFCH=0ORCH=33ORCH=60ORCH=62ORCH=63THEN370
365 POKE1024+X2+Y2*40,32:GOTO315
370 L1=X2:L2=Y2:IFCC=1THENCC=2:GOTO320
375 IFCC=2THENCC=1:GOTO320
380 IFCC=3THENCC=4:GOTO320
385 IFCC=4THENCC=3:GOTO320
390 POKE1024+SX+SY*40,61
395 IFN=2THEN250
400 IFN=3ANDSS=1THENSS=2:GOTO325
405 IFN=3ANDSS=2THENSS=1:GOTO250
410 FORI=1TO120:NEXT
415 S2=SX:S3=SY:IFTI$>"000200"THEN610
420 S=PEEK(56320):FF=SAND16:S=15-(SAND15):IFFF=16THEN430
425 GOTO495
430 IFS=1THENSY=SY-1:GOTO465
440 IFS=8THENSX=SX+1:GOTO465
445 IFS=2THENSY=SY+1:GOTO465
450 IFS=4THENSX=SX-1:GOTO465
455 IFN<>1THEN395
460 GOTO415
465 P=1024+SX+SY*40:CH=PEEK(P):IFCH=33THEN590
470 IFCH=63ORCH=62ORCH=0THEN490
475 IFCH=60THEN555
480 IFCH=61THEN565
485 POKE1024+S2+S3*40,32:GOTO390
490 SX=S2:SY=S3:GOTO390
495 IFK<>1THEN390
500 K=0:B=1024+SX+1+SY*40:BU=1024+SX+(SY-1)*40
505 IFB=1943ORB=1983THEN625
510 IFPEEK(BU)=63THEN535
515 IFPEEK(B)=62THENGOTO525
520 K=1:GOTO490
525 B1=B-40:IFPEEK(B1)<>62THENB1=B+40
530 C1=B-1024+1:C2=B1-1024+1:GOTO545
535 B1=BU+1:IFPEEK(B1)<>63THENB1=BU-1
540 B=BU:C1=B-1024-40:C2=B1-1024-40
545 POKEB,32:POKEB1,32:POKE55296+C1,0:POKE55296+C2,0
550 POKE55296+(B-1024),0:POKE55296+(B1-1024),0:GOTO390
555 IFK=1THEN490
560 POKE55296+SX+SY*40,0:K=1:GOTO485
565 G=G+1:POKE1024+SX+SY*40,32:POKE55296+C1,0:POKE55296+C2,0
570 POKE1024+S2+S3*40,32:POKE1024+SX+SY*40,61:GOSUB880:GOTO485
575 FORI=1TO2000:NEXT:RETURN
580 GETI$:IFI$=""THEN580
585 RETURN
590 POKE1024+S2+S3*40,32:GOSUB900
595 PRINT"[147]OH, NO.  YOU GOT CAUGHT BY"
600 PRINT"ONE OF THESE : !"
605 GOSUB575:GOTO690
610 GOSUB900:GOSUB930
615 PRINT"[147]OH, NO.  YOU RAN OUT OF TIME,"
620 PRINT"AND THE MAZE BLEW UP.":GOTO605
625 IFN=1ANDG=3THEN645
630 IFN=2ANDG=4THEN645
635 IFN=3ANDG=5THEN645
640 K=1:GOTO490
645 MA=MA+1:GOSUB880:IFN=3ANDMA>5THEN705
650 IFMA>5THEN665
655 PRINTTAB"[147]"TAB(8)"[144]GOOD JOB.  YOU WILL NOW"
660 PRINTTAB(10)"ENTER MAZE NUMBER";MA:GOSUB575:GOTO10
665 PRINTTAB"[147]"TAB(4)" GOOD JOB.  YOU HAVE FINISHED"
670 PRINTTAB(4)"ALL OF THE MAZES IN THIS LEVEL."
675 IFN=1THENN=2:A$="INTERMEDIATE":GOTO685
680 IFN=2THENN=3:A$="ADVANCED":GOTO685
685 PRINT"[144]ENTERING THE "A$" LEVEL ...":GOSUB575:GOTO810
690 PRINT"[147]WOULD YOU LIKE TO PLAY AGAIN (Y/N)":GOSUB580
695 IFI$<>"Y"THEN715
700 GOTO775
705 PRINT"[147]"TAB(1)"GOOD JOB.  YOU HAVE SOLVED EVERY LEVEL."
710 GOSUB575:GOTO690
715 PRINTTAB(14)"** GAME OVER **":END
720 PRINT"[147][144]"TAB(13)"PLEASE WAIT ..."
725 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
730 FORI=0TO511:POKEI+12288,PEEK(I+53248):NEXT
735 FORI=12288TO12288+7:GOSUB755:NEXT:FORI=12768TO12768+31:GOSUB755:NEXT
740 FORI=12552TO12552+7:GOSUB755:NEXT
745 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1:POKE53272,PEEK(53272)AND240OR12
750 D1$="??":D2$=">[157]>":GOTO775
755 READJ:POKEI,J:RETURN:DATA0,126,126,126,126,126,126,0
760 DATA56,32,56,32,32,60,36,60:DATA60,60,24,255,60,60,102,102
765 DATA28,28,28,127,127,28,28,28:DATA24,24,255,255,255,24,24,0
770 DATA60,66,153,153,66,60,102,195
775 PRINT"[147]CHOOSE THE LEVEL OF DIFFICULTY:"
780 PRINT""TAB(6)"(1) [144]BEGINNER"
785 PRINT""TAB(6)"(2) [144]INTERMEDIATE":PRINT""TAB(6)"(3) [144]ADVANCED"
790 GOSUB580:N=VAL(I$):IFN>3ORN<1THEN790
795 IFN=1THENLL=3:M=6
800 IFN=2THENLL=4:M=8
805 IFN=3THENLL=5:M=10
810 MA=1:PRINTTAB"[147]"TAB(8)"[144]WELL, KID,  YOU WILL NOW":GOTO660
815 PRINT"[147]"
820 PRINTTAB(15)"[145]KIDNAPPED":PRINTTAB(15)"[145][146]KIDNAPPED"
825 PRINTTAB(15)"[145]KIDNAPPED":W=W+1:IFW<50THEN820
830 PRINT"YOUR FRIENDS HAVE BEEN KIDNAPPED BY
835 [153]"SOME ALIENS FROM ANOTHER PLANET. YOU
840 PRINT"MUST FIND THEM IN THE MAZE. DEPRESS
845 [153]"THE BUTTON (HAVE KEY) TO OPEN DOORS.
850 PRINT"WHEN YOU FIND ALL OF YOUR FRIENDS,
855 [153]"EXIT AT THE BLACK DOOR. YOU GET 2 MIN.
860 PRINTTAB(7)"[144]WATCH OUT FOR THE ALIENS.
865 [153][163]18)"GOOD LUCK, KID."
870 [153]"STOPPRESS ANY KEY ...
875 GOSUB580:GOTO720
880 FORI=0TO22:POKESP+1,0:NEXT
885 POKESP+24,143:POKESP+5,16:POKESP+19,16:POKESP+6,252:POKESP+20,249
890 POKESP+4,21:POKESP+18,17:POKESP+1,68:POKESP+15,42:FORI=1TO200:NEXT
895 POKESP+4,20:POKESP+18,16:FORI=1TO400:NEXT:RETURN
900 FORI=1TO22:POKESP+I,0:NEXTI
910 POKESP+24,15:POKESP+5,80:POKESP+12,160:POKESP+6,255:POKESP+13,252
915 POKESP+4,17:POKESP+4,16:FORI=255TO50STEP-1:POKE54273,I:FORJ=1TO5:NEXT:NEXT
920 POKESP+1,10:POKESP+8,1:POKESP+5,112:POKESP+6,252:POKESP+4,129:POKESP+11,129
925 FORI=1TO200:NEXT:POKESP+4,128:POKESP+11,128:RETURN
930 FORI=1TO15:FORII=1TO15:POKE53280,I:POKE53281,II:NEXTII:NEXTI
935 POKE53280,7:POKE53281,3:RETURN