*** TUNNEL ***/ *** FOR PLUS/4 ***P *** BY P.WALKER 4/4/86 ***k( 1,1: 0,1: 4,1:""s2 7<S("3800")F1,"POKE65298,PEEK(65298)AND251:POKE65299,(PEEK(65299)AND3)OR"(S256)P *** SET VARIABLES *** Z 55,0: 56,56::S("3800");d"MONITOR":"T D000 D7FF "(S):"X"n"POKE65298,PEEK(65298)AND251:POKE65299,(PEEK(65299)AND3)OR"S256x"RUN 140" 1319,19: A0 4:1320A,13::239,6:S("3800") 65,24,60,90,90,153,153,255,36 83,36,255,153,153,90,90,60,24A 0,126,195,207,199,207,207,207,126b 27,0,255,0,187,187,0,255,0 28,248,7,0,187,187,0,7,248 29,31,224,0,187,187,0,224,31 88,24,24,60,36,102,255,195,195 81,126,195,207,195,243,243,195,126& I1 8: A: C0 7: B: S(8A)C,B::1HS100@ 1,2:""J 880S""zG15:X20:P$" ":P0:L.5"FU99,C76S0@D0JM0:MX0:MY23TO$""^""hA((1)3)'r A1 G26 GGL?| A2 G8 GGLH A$[ D1 1320p A$"." XX1 A$"," XX1 FU99 FU99 1,0,24,"":O$;"";G);P$FUFU1:"SCORE";S; S10 ;" ""FUEL:";FU;""  1,C,4 FU0 D1& 6607OX(3072X)j OX27 OX29 (3072X),83: (2048X),113 OX81 SS5:M0I17:I:1,I100,1: OX102 OX65 D1& OX88 D10OX0FUFU10:M0I17:I:1,800,1:3,1004,1:/: P$" " P$" ": 1,C,4iD ((1)4)13 J((1)10)G:3992J,0:2968J,53N ((1)10)13 J((1)10)G:3992J,81:2968J,68X ((1)10)13 J((1)10)G:3992J,65:2968J,50b ((1)6)15 P$"\[[[[[[[[]"<lPP1: P100(P100) C((1)14)2: 1,C,4FvSS1[L0.5(S200)1e 360{ *** MISSILE *** M0 ((1)20)5 840 M0 830MYMY1 MY1 M0: 830T(P100)3 T8 T8 T3 T3 ((1)10)T 8307 3072MX(MY40),OMP 2048MX(MY40),CMXF0q  MXX MXMX1:F1 MXX MXMX1:F1  F1 OM(3072MX(MY40)):CM(2048MX(MY40))* 3072MX(MY40),884 2048MX(MY40),99>HM1:MXG5:MY23ARVVMX((MY1)40):OM(3072VV):CM(2048VV)R\ 3,1023,400Xfap""zz 1,16,8,"TUNNEL" 1,14,10,"BY P.WALKER" 1,7,12,"DO YOU WANT INSTRUCTIONS?" A$ A$"Y" 960 A$"N" 1310 920)"YOU ARE A SMALL SPACECRAFT: "S"(SHOWN AT THE TOP OF THE SCREEN)"{"TRAVELLING DOWN A LONG TUNNEL."" YOU MUST DODGE VARIOUS OBSTACLES,""AND COLLECT FUEL CANISTERS.""IF YOU RUN OUT OF FUEL,HIT AN OBSTACLE"."OR HIT THE SIDES OF THE TUNNEL YOU DIE."Z"YOUR FUEL IS SHOWN AT THE TOP LEFT""OF THE SCREEN,IT CAN GO NO HIGHER THAN""99.FUEL CANISTERS (@) ARE COLLECTED"$"BY RUNNING OVER THEM."."PRESS THE SPACE BAR TO CONTINUE"8 A$: A$" " 1080DB" OBSTACLES:"rL" .....OTHER SPACESHIPS-DO NOT HIT!"V" @.....FUEL CANISTERS-COLLECT THEM!"`" .....BONUSES-COLLECT FOR POINTS!"j" \[[]...BRIDGES-YOU WILL PASS UNDER "/t" THEM AUTOMATICALLY.WHILE UNDER BRIDGES"T~" YOU CANNOT SEE YOUR CRAFT."" .....GUIDED MISSILES. THESE WILL "" FLY TOWARDS YOU.THEY TURN QUITE SLOWLY"" SO ARE QUITE EASY TO DODGE." " WHEN THEY APPEAR THEY MAKE A SOUND"1" (PRESS 'A' TO HEAR THE SOUND)"Z" PRESS RETURN TO CONTINUE..."w A$: A$(13) 1250 A$"A" 3,1023,10 1220"";17);"KEYS:"" '.'........MOVE CRAFT RIGHT"" ','........MOVE CRAFT LEFT"=" PRESS SPACE BAR TO START"F  A$] A$" " 1290cu( *** DIE ***2 I8 0 1: 3,I100,5:<" YOU DIED!!!"F""P OX102 " BY HITTING THE WALL"* Z OX88 " BY BEING HIT BY A MISSILE"_ d OX65 " BY BEING HIT BY A SPACECRAFT" n FU0 " BY RUNNING OUT OF FUEL." x" YOUR SCORE WAS:";S  SHS " WHICH BEATS THE HIGH SCORE!!":HSS!" HIGH SCORE:";HS?!" DO YOU WANT ANOTHER GO?"H! A$]! A$"Y" 270s! A$"N" "":~! 1440