Overload Z Z\YOverload by Jason Butler, from Sinclair User 45 (Dec.1985) YIt's not often you come across a genuinely new strategy game, but Overload is one such. 9In this two-player game, each player places counters on the board. When four counters of the same colour are piled together, they explode, scattering to surrounding squares. When the board gets full, chain reactions are set off as more and more squares overload in succession, like an abstract nuclear reaction. OVERLOAD!! =a$(2,5):a(6,9 ):b(6,9 ) 7000X:USER DEFS 7500L:INSTRUCT. (8000@:SCREEN 285004!:PLAYERS GO <9000(#:BANG!! F 502 XUSER DEFINED CHARS bx=255:y=128 l8f=144151:n=07:a:(f)+n,a vn:f x,y,y,y,y,y,y,y ;x,0,0,0,0,0,0,0 ;x,1,1,1,1,1,1,1 y,y,y,y,y,y,y,y A1,1,1,1,1,1,1,1 y,y,y,y,y,y,y,x ;0,0,0,0,0,0,0,x ;1,1,1,1,1,1,1,x  LINSTRUCTIONS M&7:0:7:1: Vi$=" OVERLOAD! =========== THE IDEA OF THIS GAME IS TO GAINTOTAL DOMINATION OVER THE WHOLE BOARD BY 'OVERLOADING' CERTAIN SECTORS." ` 7750F ji$="THESE SECTORS ARE VERY VOLATILE AND IF FOUR OR MORE COUNTERS AREPLACED UPON ONE SECTOR IT WILL EXPLODE SCATTERING ITS CONTENTS OVER THE SURROUNDING SECTORS." t 7750F ~i$=" YOU CAN ONLY PLACE YOUR COUNTER ON AN EMPTY SECTOR OR ONE WITH YOUR COLOUR ON IT.":7750F Gi$="PLAYER ONE IS RED... PLAYER TWO IS GREEN.":7750F n=12 9i$="PLAYER ":i$=i$+n:i$=i$+" PLEASE ENTER YOUR NAME"  7750F a$(n)  n < Ff=1̱i$ Pi$(f);:.002xn,10 Zf d: @:SCREEN SET UP J!" 1 2 3 4 5 6 7 8 9 " TVf=16:" "'f;" 0 0 0 0 0 0 0 0 0" ^!" " hf r!" " |1:p=1 ?2,3;2;"1";17,27;4;"1" pa(1,1)=1:a(6,9 )=1:b(1,1)=2:b(6,9 )=4  !4 PLAYERS GO !>721,0;0;a$(p);" X CO-ORD (ACROSS)" !Ho !R9o0o10 oɺo.1}L,0:8520H! !\721,0;0;a$(p);" Y CO-ORD (DOWN) " !fd !p8d0d7dɺd.1}L,0:8550f! !zYb(d,o)p*2b(d,o)0#0;"ILLEGAL MOVE.":.5,0:8510>! !)b(d,o)=p*2:a(d,o)=a(d,o)+1 !1(d*3)-1,(o*3);b(d,o);a(d,o) !p=1p=2: ! p=1: #(SEARCH FOR BANG #2n=1:f=1 #<a(n,f)<49201# #F-(n*3)-1,f*3;1;"*" #Pn=19080x# #ZUa((n-1),f)=a((n-1),f)+1:a(n,f)=a(n,f)-1:.05|L,6 #dfb((n-1),f)=b(n,f):((n-1)*3)-1,f*3;b((n-1),f);a((n-1),f) #i1(n*3)-1,(f*3);b(n,f);a(n,f) #nba(n,f)=0b(n,f)=0:(n*3)-1,f*3;7;0;"0":90102# #xn=69120# #Ua((n+1),f)=a((n+1),f)+1:a(n,f)=a(n,f)-1:.05|L,6 #fb((n+1),f)=b(n,f):((n+1)*3)-1,f*3;b((n+1),f);a((n+1),f) #1(n*3)-1,(f*3);b(n,f);a(n,f) #ba(n,f)=0b(n,f)=0:(n*3)-1,f*3;7;0;"0":90102# #f=19160# #Ua(n,(f-1))=a(n,(f-1))+1:a(n,f)=a(n,f)-1:.05|L,6 #fb(n,(f-1))=b(n,f):(n*3)-1,(f-1)*3;b(n,(f-1));a(n,(f-1)) #1(n*3)-1,(f*3);b(n,f);a(n,f) #ba(n,f)=0b(n,f)=0:(n*3)-1,f*3;7;0;"0":90102# #f=9 9190# #Ua(n,(f+1))=a(n,(f+1))+1:a(n,f)=a(n,f)-1:.05|L,6 #fb(n,(f+1))=b(n,f):(n*3)-1,(f+1)*3;b(n,(f+1));a(n,(f+1)) #1(n*3)-1,(f*3);b(n,f);a(n,f) #ba(n,f)=0b(n,f)=0:(n*3)-1,f*3;7;0;"0":90102# # 9040P# #1(n*3)-1,(f*3);b(n,f);a(n,f) # f=f+1 ##f>9 n=n+1:f=1 $n>69240$ $ 9020<# $CHECK FOR WIN $"t=0:u=0 $,&f=16:n=19 $6b(f,n)=2t=t+1 $@b(f,n)=4u=u+1 $Jn:f $Tt=021,0;0;1;" ";a$(2);" WINS! ":f=110 :.1}L,*20:f:100d:9900& $^u=021,0;0;1;" ";a$(1);" WINS! ":f=110 :.1}L,*20:f:100d:9900& $h & WIN ROUTINE &<21,0;0;"DO YOU WISH TO RE-PLAY? (Y/N)" &q$ &q$="N"q$="n" &