Alien " "$XAlien by Nicholas Pearson from ZX Computing Feb/Mar.1986 0:0:6:  9000(# : 0:0:6 #&3,13 ;1;" ALIEN " (6::1;"S";0;"AVE THE ALIEN BY LANDING YOUR TELEPHONE ON HIS HEAD E.G.'' BEWARE YOU ONLY HAVE 1 GO AND HE MIGHT NOT NOTICE THE PHONE THEN. PRESS s TO PLAY CONTROLS ARE 8 RIGHT AND 5 LEFT" -:1;1;"YOU CAN HAVE THE 'HOLD THE LINE'FEATURE BY PRESSING 'h'; THIS SLOWS DOWN THE DESCENT OF THE PHONE " 20:0:6 7a=029 <21,a;"" A4:0,a;"" F 4:21,0;"" K417,a;"";18,a;"";19,a;"" M="S"Ŧ="s"82R Pa Q 25 R:6:5:0 S~1;4,0;" BEWARE THE '*'; IF YOU TOUCH IT YOU LOSE. DON'T WORRY IF YOU RUB THEM OUT. " T&:" YOU'RE ABOUT TO START- PREPARE!" Y 250 Z0:0:6 e i j*** GAME *** n*** MOVEMENT *** x x=(*20)+1 a=1:b=1 w=06 d=(*3)+8 c=(*29)+1 d,c;"*" w 100d s=0.2~L g=020 a=a+1:b=b+1 *x=x-(="5"x>0)+(="8"x<19) ="h"s=s+0.2~L v=b b=18350^ (v,x)="*"380| (b,x+1)="*"380| ns,b+1:v,x;"";b,x+1;"";b-1,x;" ";b-1,x-1;" ";b-1,x+1;" " s=0.03{u\ I16,29;" ";17,29;" ";18,29;" " 16,a;"";16,a-1;" ";17,a;"";17,a-1;" ";18,a;"";18,a+1;"";18,a-1;" " +20,15;1;" HOME !!!! " %0,20:255,0 "b=16a=x3106 , 209 6_5:#0;1;" YOU HAVE WON. DO YOU WANT TO IMMEDIATELY START AGAIN? (Y/N)" @ln=9300T$:500 ^_5:#0;1;" YOU HAVE LOST. DO YOU WISH TO IMMEDIATELY START AGAIN? (Y/N)" hln=9600%:500 r100d:9600% |5:#0;1;" YOU BLEW UP THE PHONE. DO YOU WANT TO START THE GAME AGAIN IMMEDIATELY WITH A NEW PHONE? " ln=9675% z$= z$="y"z$="Y"24 z$"n"z$"N"500 :ln #% #&* USER DEFINED GRAPHICS #' #( #*i="A""F"+7 #+ v:i,v:i #700000111,00000011,00011111,01111111,01111111,01100111g,01101111o,01101111o #<11100000,11000000,11111000,11111110,11111110,11110110,11110110,11100110 #A11101111,11101111,01101111o,00011111,00011111,00011000,0011100,001110008 #F~11110111,11110111,11110110,11111000,11111000,00011000,001100 ,0001100 #H00011111,00111111?,01111111,11100111,11100110,11111001,00011100,00001111 #I11110000,11111000,11111110,11100111,01100111g,10011111,11111100,11110000 #J b="T""U"+7:v:b,v:b #K00000000,00111111?,00111111?,001100113,001100113,00001111,00011111,00111111? #P00000000,11111100,11111100,11001100,11001100,11110000,11111000,11111100 #Rw=07 #Ss #T "N"+w,s #Uw #V00011110,00011100,01111011{,11111110,01011100\,00111100<,01101100l,11011100 #W $T $^*** THE WINNING ROUTINE $h $| 100d $ e=0 $ e=e+1 $'4:0,e:255,0 $e=100d9368$ $ 9356$ $3:8,0;"" $@5:7,12 ;" ";6,11 ;" " $95,11 ;"";4,11 ;" " $1,2:0.8L,12 :0.4L,12 :0.4L,11 :0.4L,12 :0.8L,11 :1,7 $ 30 $1,2:0.8L,12 :0.4L,12 :0.4L,11 :0.4L,12 :0.9ffff,14:1,11 $ 30 %1,2:0.8L,12 :0.4L,12 :0.4L,11 :0.4L,12 :0.8L,11 :1,7 % 20 %a0.8L,12 :0.8L,7:0.8L,12 :0.3,11 :1,11 %& a=0 %+ a=a+1 %0a=159550N% %2>3:0.03{u\,a:8,a;"";8,a-1;" " %3b=83-1 %4 9515+% %L %M*** GO HOME *** %N %P8,14;" " %S b=8 %X b=b-1 %])b,15;"";b+1,15;" " %bb=69580l% %g 9560X% %li5:10 ,0;"";11 ,0;" BE GOOD !!!! " %q612 ,0;"" %v: %x1;14,8;"";15,8;"";16,8;"":0.09}8Q,1:16,8;" ";15,8;" " %{$:" DO YOU WANT ANOTHER GO " %|ln=9999':500 % %*** THE LOSER ROUTINE * % %100d:0:1: %a=020 %c=(*28)+1 %b=(*18)+1 % b,c;"." %a %a=230 %4:75K,75K,a %a %b=015 %6:190,75K,b %b %c=010 %5:130,70F,c %c %.4:6,6;1;" EARTH " %18,0;1;" AM I TO STAY HERE FOR EVER? YOU MISSED ONCE WITH THE PHONE. DO YOU WANT ANOTHER GO? (y/n)" %ln=9999':500 %4:1;2,5;" YOU DONE IT NOW !!!" %x=46.0-2 %0,x:255,0 %x %x=10 25 %70.02{# =,x:15,x;"";15,x-1;" " %x %v0;4,0;" HE HAS STARTED TO SULK.HE WANTS TO PHONE HOME BUT HOW CAN HE DO THAT WITH NO PHONE?" %=:" WILL YOU HELP HIM AND START THE GAME AGAIN? (y/n)" %%0,85U:255,0 %ln=9999':500 '