et Fj E.T. was written Mark Winn of Abergavenny,Gwent SU apr-83-70 Iph=0:can=0:cand=80P:phone=20:flower=502 23658j\,8 1000 4:4:7: >fl=0:et=1:en=600X:x=11 :y=31 Lp=(*18)+2:o=(*28)+2:a(15):b(15) f=115 #8a(f)=(*18)+4:b(f)=(*30)+1 (!(a(f),b(f))39'35# - a(f),b(f);0;"":f .Mq=(*18)+2:w=(*27)+2:(q,w)=32 46. /rf=02:f,0;5;"":f:1,1;5;"Energy" 0Mp=(*18)+2:o=(*28)+2:(p,o)=32 480 2p=qo=w480 4,5000:f=17:a,b:a,b:f 7Aet=1x,y;l$(1);x-1,y;l$(2):70F 22000 K1,16;5;" ":(p=xp+1=xp-1=x)(y=oy+1=oy-1=o)1,16;5;"":fl=1.3,-20:en=en-5:can >0can=can-1:en=en+25:1,28;5;can Mfl=1can>6can=cab-7:ph=ph+1:.2~L,10 :1,28;5;can;1,22;ph Pafl=0:="M"y<31en=en-1:x,y;" ";x-1,y;" ":y=y+1:et=0 UU ="N"y>0en=en-1:x,y;" ";x-1,y;" ":y=y-1:et=1 ZJ ="Q"x<21en=en-1:x,y;" ";x-1,y;" ":x=x+1 _I ="1"x>4en=en-1:x,y;" ";x-1,y;" ":x=x-1 dv1,8;5;" ";1,8;5;en:(x,y)=32 ū(x-1,y)=32 3000 i0.002xn,en/20:en<19000(# n6="A".2~L,-20:en=en-5:fl=1 x 557  f="a""i"+7  a:f,a:f 62>,127,127,127,14,6,6,14,30,62>,62>,62>,30,10 ,10 ,21 124|,254,254,124|,112p,96`,96`,112p,120x,124|,124|,124|,120x,80P,80P,168 34",85U,34",36$,126~,60<,24,24,0,0,8,93],127,93],8,0 0,16,62>,126~,255,126~,124|,8,0,0,246,220,200,30,28,0 254,146,146,254,146,146,254,0,0,60<,66B,219,219,66B,60<,0 $nr$(2,1):l$(2,1):l$(1)="":l$(2)="":r$(1)="":r$(2)="" ) h(15) .f=13 83d=(*15)+1:h(d)010808 Bh(d)=phone:f f= 19 3g=(*15)+1:h(g)01210 h(g)=cand:f 3r=(*15)+1:h(r)01230  h(r)=flower   LANDING y<2y=2 y>29y=29  s$(4,3) *16,y;7;"";15,y;"" Af=16:.1}L,30:g=1100d:g:f s$(1)=132+140+136:s$(2)=133+128+138:s$(3)=s$(2):s$(4)=139+131+135 f=417 ""9000(# *.353333,-30:.15~,-32 ""9000(# f-4,y-1;" "  @h=03:f-h,y-1;1;s$(4-h):h:f *16,y;7;"";15,y;""  1,20 %17,y-1;" " *f=164-1 4h=03:f-h,y-1;1;s$(4-h):h:f-1,y;7;"";f-2,y;"":.353333,-30:.15~,-32 :f,y-1;" ":f > HT10 ,1;"well done you have saved et"''"press'Q' to quit or 'Y'to start" M6502:5000:f=17:a,b:a,b:f R ="Q" \ ="Y" f 2130R HOLE @g=115:(x=a(g)x-1=a(g))y=b(g)3030 g:3060 /h(g)=flowerp$="":tot=60<:3070 -h(g)=candp$="":tot=20:3070 .h(g)=phonep$="":tot=30:3070 tot=0:p$=" " 5:0:0: h(g)=0 g=016:g,0;"";31;"":g:g=1721:g,0;"":g:16,1;"";30;"" s14,1;"";30;"";15,1;"";29;"";16,1;"";28;"" Eg=03:g,0;" ":g C16,10 ;4*(p$="")+2*(p$="")+(p$="");p$ f=516 Jf,20;7;"";f-1,20;"";f-2,20;" " .1}L,40(-f &f 0 m=20 :!16,m;" ";15,m;" " ?;en=en-1:en<09000(#:p$=" "3180l AUp$=" "16,m;7;"";15,m;"":f=140(:f:3180l D*m=m+(="M"m<20)-(="N"m>4) I.06|u\,30 N*16,m;7;"";15,m;"" X0m=10 en=en+tot:1,tot:3180l b 3130: l u=16 q"A"3185q sen=en-5 v/u,m;" ";u-1,m;" ":.06|u\,30 {)en=en-1.5@:en<09000(# u=u+(="Q"u>16)-(="1") ,"1"u=u+1:u>16u=16 $u,m;7;"";u-1,m;"" u=33230 3190v Au,m;" ";u-1,m;" ":f=-10 20:.01z# =,f:f )4:4:7::4000 vf=02:f,0;5;"":f:1,1;5;"Energy:";en *(x,y)=32 x=x+1:3245 Ox=(*17)+5:y=(*31)+1:(x,y)=32 3250 $m=10 p$=""can=can+1 1,28;5;can p$=""ph=ph+1 1,22;5;ph   HOLES f=115 a(f),b(f);0;"":f  y1,5,1.2,12 ,.2~L,10 ,.2~L,9 ,.2~L,7,.8L,9 ,1,5 y1,5,1.2,12 ,.2~L,10 ,.2~L,9 ,.2~L,7,.8L,9 ,1,5  #(DEAD #2 #5'" BUT FORTUNATELY HE DIED WITH A SWEET TASTE IN HIS MOUTH AS YOU MANAGED TO RETRIEVE ";can;" PIECES OF ":"CANDY" #KC5000:f=17:a,b:a,b:f:f=1502:f #P&''"PRESS 'Q' TO QUIT OR 'Y'TO START" #U*16,y;7;"";15,y;"" #W*16,y;7;"";15,y;"" #Z ="Q" #d ="Y" #i.1}L,0 #n 9045U# aanPhonlowe24aNPP2PPPPPPPdgrXx ypoN   N    qwb