MegaBert ; i;; 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;" " :0:15,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< 6b=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")) Fx=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 Roriginal line 750:18,9;sc;20,9;lev:18,24;" ":f=1l:3;0;" ";:f:0;" " 18,9 ;sc;20,9 ;lev:18,24;:f=1l:3;0;" ";:f:0;" ":slightly modified by Dinu Cristian Mircea so that the display is better  610b ; >BALL ROUTINE< a= by=by+2 9by-2,bx;3;8;" ";by-1,bx;" " a<.5bx=bx-2 La.5bx=bx+2:small modif by DCM (>) to cover the case a=.5 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 ]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: z >>>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 Z >>>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, GIVIG 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 %Z >>> SNAKE MUSIC DATA <<< %X3,-10 ,1,-8,2,-7,2,-10 ,4,-3 &HZ >>> 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 WdalA