SaveTheDam(  * ySave the Dam aka.(Dam Buster) by Tahir Abbas from Sinclair User #10 (Jan'83) The REMs were printed in INVERSE, but the printing quality of the listing was so poor that they're illegible, so I've had to omit them. [JimG] written by TAHIR ABBAS #f=07:z:"a"+f,z:f #f=07:z:"b"+f,z:f (#f=07:z:"c"+f,z:f -#f=07:z:"d"+f,z:f .#f=07:z:"e"+f,z:f /#f=07:z:"f"+f,z:f 2? <4:5: Ff=205-1 P-1;f,0;"";6;"" d!6;4,6;"" n621,0;"" x,20,10 ;" " ,19,10 ;"| /\ + " !3;19,11 ;"" ? 60< sc=0 x=30 2h=(*21):h>16h<7160 500 170 h,x;" ":.01z# =,20  700 ="0"600X & ,? Xf=185-1 ](f,11 )" "2000 b50;f,11 ;"";:1:f,11 ;" " g.005y# =,f l h,x;" " q 700 vf  540 D(h,x-1)" "h,x-1;" ":.1}L,5:155  x=x-1 x=71000  ? Ch,x-1;" ":1,10 :1;h,x-1;"" f=h20 ,1;f,8;"":.1}L,10 f f=20h-1 $W1;1;f,9 ;"":3:.1}L,10 :f .0,10 ;"Your city is flooded.";2,10 ;"Your score=";sc;4,10 ;"Press any key for";5,10 ;"a new game." 8=""10808 B jw=115:0;f,11 ;"";:2:f,11 ;" ":1:.02{# =,w*2:w 0:f,11 ;" " sc=sc+1 15,2;sc sc<10 155 0,10 ;"You have saved your";1,10 ;"city";3,10 ;"Your score=";sc;5,10 ;"Press amy key for";6,10 ;"a new game...." =""2030  #(? #-00111100<,01101110n,11111111,00001111,00001111,11111111,01111110~,00111100< #211111111,10000001,10000001,10000001,10000001,10000001,10000001,11111111 #16h<7160 500 170 )h,x;" ";h,x;"> ":.01z# =,20  700 ="0"600X & ,? Xf=185-1 ](f,11 )" "2000:This won't workas the alien's a UDG, so SCREEN$won't recognise it. I changed lines 500&620 to print a trail- ing ">" so that it would. [JimG] b50;f,11 ;"";:1:f,11 ;" " g.005y# =,f lh,x;" ";h,x;"> " q 700 vf  540 D(h,x-1)" "h,x-1;" ":.1}L,5:155  x=x-1 x=71000  ? Ch,x-1;" ":1,10 :1;h,x-1;"" f=h20 ,1;f,8;"":.1}L,10 f f=20h-1 $W1;1;f,9 ;"":3:.1}L,10 :f .0,10 ;"Your city is flooded.";2,10 ;"Your score=";sc;4,10 ;"Press any key for";5,10 ;"a new game." 8=""10808 B jw=115:0;f,11 ;"";:2:f,11 ;" ":1:.02{# =,w*2:w 0:f,11 ;" " sc=sc+1 15,2;sc sc<10 155 0,10 ;"You have saved your";1,10 ;"city";3,10 ;"Your score=";sc;5,10 ;"Press amy key for";6,10 ;"a new game...." =""2030  #(? #-00111100<,01101110n,11111111,00001111,00001111,11111111,01111110~,00111100< #211111111,10000001,10000001,10000001,10000001,10000001,10000001,11111111 #:0,0;""'(0,0)'(0,1) 3