mongoose gHKdMongoose  T.Gilberts nhs=0:1000 x.23659k\,2::23659k\,0: 1a$=:bd,36$:hl,hc;3;6;"" %rl=hl:rc=hc:>.1}L240 Ell=*18+2:cc=*27+2:(ll,cc)j210 ll,cc;2;"" 6a$="5"(hl,hc-1)bhc=hc-1:280 6a$="8"(hl,hc+1)bhc=hc+1:280 6a$="6"(hl+1,hc)bhl=hl+1:280 +a$="7"(hl-1,hc)bhl=hl-1  z=(hl,hc) " z=sl=l-1:hl=rl:hc=rc ,Yhl,hc;3;"";tl,tc;0;" ":z=34"l=l+1:bd,0:370r 6z=33! @rl=tl J6(tl+1,tc)=stl=tl+1:m$="":370r T6(tl-1,tc)=stl=tl-1:m$="":370r ^6(tl,tc+1)=stc=tc+1:m$="":370r h+(tl,tc-1)=stc=tc-1:m$="" reti=dt-23673y\:tl,tc;1;m$;5;0,17;ti;" ";0,28;l-dl;" " |#l<1ti<1z=0:  200 &6:1:1:120x 58,0;"********************************" $"**** GILSOFT PRESENTS ****" $"**** Mongoose ****" $"****  T.Gilberts 1982 ****" $"********************************" $ 10808 . 1110V 8 1100L B.k=17:aa,bb:aa,bb:xxx=:k: L.11}aG,12 ,.11}aG,12 ,.12}u[,12 ,.2~L,14,.15~,12 ,.15~,14,.75@,16 V 200 `&1:4:0:120x j-5;" Mongoose GILSOFT " tk'" A snake is trapped within the"''" walls of an apple orchard, and"''" close on its tail is a Mongoose" ~'" If you keep the snake moving"''" the mongoose will be unable to"''" eat any of it. The snakes"''" length may be increased by" "'" eating one of the windfalls."  8000@  120x -5;" Mongoose GILSOFT " '" There are three values given,"''" the first is your score from"''" previous frames. The second is"''" the time remaining, and the" _'" third is your score on this"''" frame. While it is negative"''" you are losing the game." 4'" The arrow keys will turn the"''" snakes head."  8000@ 'sc=0:bd=0.01z# =:di=5 $s=513:b=96`:j=32 *x$="" `y$="              " 2f$="  " .z$=" "  3hl=10 :hc=3:tl=10 :tc=24 &4:4:0:120x ,5;"Total:0 Time:0 Score:0 " (x$:x=0+(di=4) 2k=211 <z$ F<di<4y$;" ";k*2-1,0;"" P4di>3x=0" ";y$;8;"" ZP(di>3x=1)(<.05|Ldi>1)k*2-1,0;f$ d x=x:k n21,0;x$ sndi<2k=1(2-di)*20:bd,-12 :*18+2,*27+2;"":k xk=160< Xll=*18+2:cc=*27+2:(ll,cc)jź(ll+.5)=hl1410 "ll,cc;2;"":bd,38& k *0,6;5;sc:l=21 Thl,hc;3;"";6;3;"";4;1;"" 5dt=di*6+20-di:dl=(6-di)*18 523672x\,0:23673y\,0:200  fs=l-dl sc=sc+fs:di=di-(di>0) -z=33!fs<0l<11500  1290  C10 ,10 ;1;" GAME OVER ":k=1200:k @&4:1:0:120x J-5;" Mongoose GILSOFT " T&'" On that game you scored ";sc;"." ^<sc<150''" That's a terrible score "+("but"sc>hs) h'''" the high score so far is ";hs;"." m mm=sc-hs rschs1700 |hs=sc vsc<150''" You must be the first to play"'''" as your attempt even beat the"'''" high score. (or you cheat!)" Vsc150''" Well done! You beat the high"'''" score, by a margin of ";mm;"." H21,0;1;5;" Press any letter to play again " ""1700 k=12000:=""k k=2001:k ""1240  1000 @Q21,0;1;5;0;" Press any letter to continue. " J""8010J Tk=15:k ^=""8030^ h #(D23659k\,0:"OK Setting up UDG for Mongoose.":9100# #2+a="a":k=063?:nn:a+k,nn:k #< 100d #24,60<,126~,255,255,126~,60<,24,60<,126~,231,195,195,231,126~,60< #0,60<,126~,126~,126~,126~,60<,0,24,60<,112p,224,224,112p,60<,24 #24,60<,14,7,7,14,60<,24,0,0,66B,195,231,126~,60<,24 #24,60<,126~,231,195,66B,0,0,102f,255,159,191,159,223,126~,60< aX=<x<@x8z# =s3b`j  xu hlO($ z38X#YY              F+  Z' AMC