depht 'dv)W Depth Charge Brian Wilson ZX Computing feb/marc 1984 page 101-102-103 0,11 ;"SUBMARINE" &88X,167:72H,0 *10 ,6;"Please wait a moment" 2000:graphics 1000:instructions (bs=9999' d1:5: i 7 nn=0127:" ";:n xQc=15:sc=0:h=1:dc=3:k=0:k1=0:q=1 3,c;"" ls=7+(*13 ) cs=1+(*28) 00,0;"DEPTH OF CHARGE SCORE" 30,17;dc-3;0,28;sc ,W="5"sc=(sc+1)*h:3,c;" ":c=c-1*(c>0):3,c;"" 6X="8"sc=(sc+1)*h:3,c;" ":c=c+1*(c<29):3,c;"" @0,28;sc ^$sc>1000h=1610b 0d=(((ls-3)^2+((cs-c))^2)) "1"450 )sc=(sc+1)*h:0,28;sc H.1}L,40(:n=0d*5:n:.1}L,70F-d*3 +k=(k+1)*h:k>40(*q3000 7="6"sc=(sc+1)*h:dc=dc+1*(dc<21) 6="7"sc=(sc+1)*h:dc=dc-1*(dc>5) =0,17;dc-3;" ";0,28;sc;" " dc=3600X ="2"700 &"n=020:n:500 X"0"300, b 1;7;ls,cs;"" lh=0:300, )sc=(sc+2)*h:0,28;sc )n=4dc-1:m=01 ?1;7;1;n,c+1;"":.3,1 m:n @n>ls+1ncs+2c+2100d::sc