Mega-Bert : ::WMega-Bert by Chris Gresty from Your Sinclair #3 (Mar'86) f="a""u"+7  a:f,a:f  4000 &0:0:0:1: " 500 #: >>>DRAW GAME SCREEN<<< & p1:0 (1,12 ;" " 23,10 ;" " < 5,8;" " F$7,6;" " P(9 ,4;" " Z-11 ,2;" " d '" " n 3 s1,13 ;" " x2,12 ;" " 3,11 ;" " 4,10 ;" " 5,9 ;" " 6,8;" " "7,7;" " $8,6;" " &9 ,5;" " )10 ,4;" " +11 ,3;" " -12 ,2;" " /13 ,1;" " 114,0;" " 115,0;" "  9500% /1:f=1491:u,v:u,v;" ":f ,7:1,39':253,0:1,-1:0,-37%:-1,-1:-253,0:-1,1:0,37% @y18,1;"SCORE>>>";20,1;"LEVEL>>>";18,16;"LIVES>>>";20,14;"CHANGE TO>" : >>>VARIABLES<<<  Fp1=6:p2=7:p3=5:p4=0: > PAPER COLOURS < /x=13 :y=13 : >X*BERT's co-ords<  d=1 5s=0:sx=1:sy=13 :>SNAKE co-ords< 7b=1:bx=13 :by=1: > BALL co-ords < sc=0:> SCORE < &l=3:> LIVES < 0lev=1:> LEVEL < :&p=1:> FLYING SAUCER co-ords < W: >>>MAIN LOOP<<< X 35# Y20,25;p2;3;" ";19,25;0;" ";21,25;0;3;" ";21,26;1;" " ]E11 ,26;4;0;"";12 ,26;"" b<y,x-1;p2;8;"";y+1,x-1;"" l)b=1:1000:> BALL ROUTINE < v1500:> SNAKE ROUTINE < $lev<5n=120:n ""a$=:y,x-1;8;8;" ";y+1,x-1;" ":x=x+(2(a$="p"a$="l"))-(2(a$="q"a$="a")):y=y+(2(a$="l"a$="a"))-(2(a$="p"a$="q")) Dx=27y=11 p=12000:>>> FLYING SAUCER <<< ox>y+12 y<14-xy>13 f=60<535-.2~L:.005y# =,f:f:2510 :>>>DEATH<<< #x=sxy=sylev52500 .x=bxy=byb=12500 :>>>DEATH<<< (y,x)=67C+8*p1ū(y,x)=66B+8*p1ū(y,x)=64@+8*p1sc=sc+10 :d=d+1:.01z# =,0:d=283000 {18,9 ;sc;20,9 ;lev:18,24;" ";:f=1l:3;0;"";:f:0;" "  610b : >BALL ROUTINE< a= by=by+2 9by-2,bx;3;8;" ";by-1,bx;" " a<.5bx=bx-2 a>.5bx=bx+2 3by>13 by=1:bx=13 :b=0: $1by,bx;0;8;"";by+1,bx;"" )!.003xD,30+-2*by . : >SNAKE ROUTINE lev<5 sxa=sx:sya=sy a= 1sy,sx;8;3;" ";sy+1,sx;" " rnd=(lev-2)/10 lev>10 rnd=.8L ]a>rndsy=sy-(2ysy)+(2y>sy):sx=sx+(2x>sx)-(2xsx):1560 =a=:b=:sya=sya+(2a>.5)-(2a.5) 3sxa=sxa+(2b<.5)-(2b.5) Lsya13 sya1sxasya+12 sya14-sxasx=sxa:sy=sya 1sy,sx;2;8;"";sy+1,sx;"" " : >>> FLYING SAUCER <<< ^p111 ,26;0;0;" ";12 ,26;" ":2500 : <11 ,26;1;"";12 ,26;"" f=11 1-1:n=12:0;4;f,16+f;1;"";f+1,15+f;"";f+1,15+f;" ";f,15+f;"";f+1,15+f;"":.005y# =,60<-2*f:n:f ߐf=11 1-1:0;0;f,16+f;f,15+f;" ";f+1,15+f;" ":.005y# =,60<-2*f:f x=13 :y=1  p=0: ; >>>D E A T H<<< Ey,x;3;8;"""";y+1,x;"O":f=120:f ;y+1,x;3;8;"o":f=120:f ;y+1,x;3;8;"-":f=120:f Sf=110 :2:.01z# =,-10 :0:.01z# =,-15:f 4l=l-1:l=03500 :>>> FINITO <<< Ay,x-1;8;8;" ";y+1,x-1;" " Esy,sx-1;8;8;" ";sy+1,sx-1;" " Eby,bx-1;8;8;" ";by+1,bx-1;" " x=13 :y=13 sx=1:sy=13 $b=1:bx=13 :by=1 Pp=1:11 ,26;4;0;"";12 ,26;""  ; >>>FINISHED SCREEN<<< <y,x-1;8;p2;" ";y+1,x-1;" " 2s=s+100d:p5=p1:p1=p2:p2=p3:p3=p4:p4=p5 4f=-2020:.01z# =,f:.01z# =,f:f ыp=1sc=sc+150:11 ,7;7;0;1;"SAUCER BONUS":f=120:.01z# =,f:.01z# =,-f:f x=13 :y=13 sx=1:sy=13 $b=1:bx=13 :by=1 p=1 d=1 lev=lev+1 lev=5sc=sc+500 600X : >>> FINISHED <<< 2:0 )5,4;" " )6,4;" " )7,4;" " )8,4;" " )9 ,4;" " 3 )11 ,4;" " )12 ,4;" " *13 ,4;" " *14,4;" " *15,4;" " .f=1100d:.01z# =,69E/f:f  25 : >>>TITLE<<< 0:0: \f=1100d:0:ٺ(*3+5);*255,*175:=13 f 0:7:1 1f=7192:.005y# =,40( =13 f,37%-f;" ":f  3 Gn=8204:f=n202:.005y# =,40( =13 f,30+n-f;" " f:n Hn=11 194:f=n192:.005y# =,40( =13 f,30+n-f;" " f:n Gn=9 194:f=n192:.005y# =,40( =13 1f,30+n-f;"";f+1,30+n-f;"" "f:n ,-21,18;0;" " 6tn=9 214:f=n212:.005y# =,40(:f,31+n-f;1;" ":=13 7f:n @un=10 204:f=n202:.005y# =,40(:f,31+n-f;1;" ":=13 Af:n h0:0:0,0;1;" " r{n=05:f=n5:f,0;8;1;n+1;" ":.02{# =,f+n w=13 |f:n 28,0;7;0;"CONTROLS..." 45;0;'" Q P"'" \/ "'" /\ "'" A L" J9800H&:f=113 :a,b:a/4,b+14:=13 f $f=1100d:=13 f f=7192:f,38&-f;2;8;"";f+1,38&-f;"":.01z# =,30:.01z# =,34":.01z# =,37%:.01z# =,41) =13 f=194521 Bf,38&-f;3;8;" ";f+1,38&-f;" ":f a$="SLY SIMON...":f=112 :7;0;19,4+f;a$(f):.01z# =,-10 :n=15:n:f 49700%:f=15:a,b:a/4,b:f f=9 172:f,38&-f;3;8;"";f+1,37%-f;"":.02{# =,0:.02{# =,-.5:.02{# =,-1:n=120:=13 n f=174541 Df,38&-f;3;8;" ";f+1,37%-f;" ":f a$="MEGA*BERT...":f=112 :7;0;17,6+f;a$(f):.01z# =,-10 :n=15:n:f G.2~L,18:10 :.125},14:.857[dZ,21 Вf=9 172:f,38&-f;0;8;"";f+1,38&-f;"":.02{# =,502:n=120:=13 n f=174571 Bf,38&-f;0;8;" ";f+1,38&-f;" ":f Sf=110 :2:.01z# =,-10 :0:.01z# =,-15:f ߆a$="MASHER MARBLE...":f=116:7;0;17,2+f;a$(f):.01z# =,-10 :n=15:n:f ?a$=" >>>>>>>>>MEGABERT-MEGAHERO OF THE FUTURE<<<<<<<<< MEGABERT MUST CHANGE THE COLOUR OF THE DEADLY PYRAMID.TO DO THIS HE JUMPS ONTO THE VARIOUS BLOCKS OF THE PYRAMID UNTIL ALL THE BLOCKS ARE THE NEW COLOUR (SHOWN BELOW THE PYRAMID).HE CAN REGENERATE TWICE ONLY,GIVING THREE LIVES ALTOGETHER." a$=a$+"THERE ARE,OF COURSE,HAZARDS... THE MARBLE (MASHER BY NAME,MASHER BY NATURE) WILL TRAVEL DOWN THE PYRAMID,TURNING LEFT AND RIGHT... THE SNAKE,SLY SIMON,MOVES IN ANY DIRECTION,MAKING HIM MORE DANGEROUS.HE IS ALSO SEMI-INTELLIGENT.SAY NO MORE... "  a$=a$+"THE FLYING SAUCER BY THE SIDE OF THE PYRAMID WILL TRANSPORT YOU TO THE TOP OF THE PYRAMID.A NEW SAUCER WILL APPEAR IF YOU ARE SQUASHED OR EATEN OR IF YOU FINISH A PYRAMID... BERT WILL ONLY TRAVEL DIAGONALLY... BONUS FOR UNUSED SAUCERS <<<<<<<<<" 'a$=a$+">MEGABERT< PROGRAMMER...C.GRESTY GRAPHICS...C.GRESTY REJECTED BOUNCING BANANA IDEA...C.GRESTY ORIGINAL PYRAMIDS...EGYPTIANS ADAPTED PYRAMID...C.GRESTY BRAIN BEHIND THE STUPID IDEA FOR THESE CREDITS...C.GRESTY'S  C.GRESTY MCMLXXXV " a$=a$+" " 'a$=a$+">MEGABERT< PROGRAMMER...C.GRESTY GRAPHICS...C.GRESTY REJECTED BOUNCING BANANA IDEA...C.GRESTY ORIGINAL PYRAMIDS...EGYPTIANS ADAPTED PYRAMID...C.GRESTY BRAIN BEHIND THE STUPID IDEA FOR THESE CREDITS...C.GRESTY'S  C.GRESTY MCMLXXXV " ?#1;7;0;">>>PRESS ENTER TO START GAME<<<<"  $f=1150:=13 *f 4Lf=11139s:11 ,7;6;0;a$(ff+16) 9.006yD,0: >"n=13:=13 ?n Hf K011 ,8;0;" " R 4640  #(Q255,254,252,248,240,224,192,128 #2H255,127,63?,31,15,7,3,1 #,36$,108l %3,13 ,4,13 ,5,11 ,5,15,6,11 ,6,15,7,9 ,7,13 ,7,17,8,9 ,8,13 ,8,17 %&D9 ,7,9 ,11 ,9 ,15,9 ,19 %0H10 ,7,10 ,11 ,10 ,15,10 ,19 %:Y11 ,5,11 ,9 ,11 ,13 ,11 ,17,11 ,21 %DY12 ,5,12 ,9 ,12 ,13 ,12 ,17,12 ,21 %Nk13 ,3,13 ,7,13 ,11 ,13 ,15,13 ,19,13 ,23 %Xk14,3,14,7,14,11 ,14,15,14,19,14,23 %b|15,1,15,5,15,9 ,15,13 ,15,17,15,21,15,25 %: >>> SNAKE MUSIC DATA <<< %X3,-10 ,1,-8,2,-7,2,-10 ,4,-3 &H: >>> DITTY <<< &R1,1,1,4,2,4,1,2,1,6,2,6,1,8,1,8,1,6,1,8,1,9 ,1,11 ,1,13