10 REM******************************
20 REM*****ESCAPE FROM JANUS 15***** 30 REM****************************** 40 C=1:CF=0 50 MV=0 60 GOSUB 680 70 P=1 80 BORDER 1 90 INK 2,18 100 INK 0,0 110 INK 1,24 120 INK 3,6 130 REM******MAIN GAME ACTION****** 140 CLS 150 MV=MV+1:IF MV>70 THEN CLS:LOCATE 2,12:PRINT "TOO LATE, YOU HAVE BEEN ATOMISED!!!":END 160 C=INT(P/17)+1 170 SOUND 1,INT(RND*300)+50,50 180 SOUND 1,INT(RND*300)+50,50 190 REM***DRAW SURROUND*** 200 PLOT 250,250 210 DRAW 1,150,C 220 PLOT 250,250 230 DRAW 390,250,C 240 DRAW 640,150,C 250 IF L(P,1)<>0 THEN GOSUB 400 260 IF L(P,2)<>0 THEN GOSUB 610 270 IF L(P,3)<>0 THEN GOSUB 470 280 IF L(P,4)<>0 THEN GOSUB 540 290 IF P=6 THEN PRINT "YOU NOW HAVE THE CRYSTAL, MAKE YOUR WAY TO THE ESCAPE EXIT AS FAST AS YOU CAN":CF=1 300 IF CF=1 AND P=50 THEN INK 1,16:INK 2,16:INK 3,16:FOR T=1 TO 30:PRINT "YOU ESCAPED FROM JANUS 15 IN TIME":NEXT T:END 310 FOR T=1 TO 10:IF D(T)=P AND P<>6 AND P<>10 THEN PRINT "YOU NARROWLY MISS A TRAP LOSING TIME...":MV=MV+8 320 NEXT T 330 LOCATE 4,22:INPUT "WHICH WAY MASTER";A$ 340 B$=LEFT$(A$,1) 350 IF B$="N" AND L(P,1)<>0 THEN P=L(P,1) 360 IF B$="S" AND L(P,2)<>0 THEN P=L(P,2) 370 IF B$="E" AND L(P,3)<>0 THEN P=L(P,3) 380 IF B$="W" AND L(P,4)<>0 THEN P=L(P,4) 390 GOTO 140 400 REM****DRAW NORTH**** 410 PLOT 250,250 420 DRAW 260,380,C 430 DRAW 380,380,C 440 DRAW 390,250,C 450 DRAW 250,250,0 460 RETURN 470 REM***DRAW EAST*** 480 PLOT 50,170 490 DRAW 40,290,C 500 DRAW 1,280,C 510 PLOT 50,170 520 DRAW 1,150,0 530 RETURN 540 REM***DRAW WEST*** 550 PLOT 590,170 560 DRAW 600,290,C 570 DRAW 640,280,C 580 PLOT 590,170 590 DRAW 640,150,0 600 RETURN 610 REM****DRAW SOUTH**** 620 PLOT 320,100,C 630 DRAW 320,80 640 DRAW 310,90 650 PLOT 320,80 660 DRAW 330,90 670 RETURN 680 REM****INITIALISATION**** 690 DIM L(50,4) 700 FOR X=1 TO 50:FOR Y=1 TO 4 710 READ L(X,Y):NEXT:NEXT 720 DATA 24,0,0,0,0,18,0,0,0,43,0,24 730 DATA 17,25,0,0,18,13,40,0,0,0,0,10 740 DATA 41,0,24,40,0,47,0,11,0,0,30,0 750 DATA 0,44,6,32,40,12,8,13,11,0,0,14 760 DATA 5,0,11,0,0,19,12,16,36,21,29,43 770 DATA 0,17,0,21,16,4,0,22,2,5,0,0 780 DATA 14,0,45,0,0,0,34,38,15,22,0,0 790 DATA 21,0,17,50,43,0,0,48,38,1,3,7 800 DATA 4,0,37,39,0,42,32,31,39,40,0,0 810 DATA 44,35,0,34,35,0,0,15,0,39,0,9 820 DATA 0,37,26,0,0,0,10,26,0,0,0,42 830 DATA 0,0,28,20,28,29,0,36,0,15,35,0 840 DATA 31,0,42,25,0,24,20,41,30,27,25,2 850 DATA 27,11,7,5,0,7,38,27,26,0,33,37 860 DATA 3,23,15,0,10,28,0,0,0,0,46,19 870 DATA 47,18,49,45,8,46,48,0,0,49,23,47,48,0,0,46,0,0,22,0 880 DIM D(10) 890 RESTORE 910 900 FOR T=1 TO 8:READ D(T):NEXT 910 DATA 11,17,21,6,38,43,48,3 920 D(9)=INT(RND*46)+1 930 D(10)=INT(RND*46)+1 940 RETURN |