DEFLECTOR b@b;dWDeflector by Andrew Smith from ZX Collection, Winter'84  8000@ d* Slash Check * iflag3=1 n(y+yd,x+xd)=" " sflag1=yd:flag2=xd u.005y# =,502 x(y+yd,x+xd)="\"300, z=-yd:yd=-xd:xd=z  @z=yd:yd=xd:xd=z J %="y"Ŧ="Y"9114#:8015O * Move Ball * flag3=0 x=x+xd+flag2:flag2=0 y=y+yd+flag1:flag1=0 6x>21x=21:xd=-xd:.005y# =,x+xd+y+yd 4x<1x=1:xd=-xd:.005y# =,x+xd+y+yd 6y>21y=21:yd=-yd:.005y# =,x+xd+y+yd $4y<1y=1:yd=-yd:.005y# =,x+xd+y+yd )Fy+yd<1y+yd>21x+xd<1x+xd>21flag3=1 . * New Slash? * flag3=1 ="" :="q"Ŧ="Q"slshcount=slshcount+1:y+yd,x+xd;"/" :="p"Ŧ="P"slshcount=slshcount+1:y+yd,x+xd;"\"  * Block Check * flag3=1 (y+yd,x+xd)<128 ).008zn,0:.008zn,24 1blkcount=blkcount-1:score=score+10 y+yd,x+xd;" " blkcount=09500%   * Escape *  " "  6esslshcount=esslshcount+slshcount:slshcount=0  9117#  *Print/Unprint Ball* %y,x;1;8;8;""  @* Main Routine * J 9000(# O 1000 T 5000 ^ 3000 h 2000 r 100d | 5000  4000  9200#  8015O #(* Initialise * #2 "UDG""a" #<.1;1;"STOP THE TAPE":100d #P 7:0:7::0,11 ;5;"DEFLECTOR";0,11 ;1;5;"_________"'7''" Hi there!"'" The aim of this game is to destroy all of the ";1;1;"";0;0;" with your using / & \ to control it" #Z''14;"KEYS"''" To place a / use 'Q' "'" To place a \ use 'P' "'" To remove the slashes use " #n'a$="Press any key to continue " #xl#0;0,0;1;a$:a$=a$(2)+a$(1):.03{u\,*20:=""9080x# #W:12 ;2;1;7;"WARNING";0,12 ;1;"_______" #{'''" Every slash you use deducts 1 from your score, and every rubbed out slash deducts 5 points" #* Place Blocks * #k"How many blocks do you wish to destroy? ";blkcount:blkcount=blkcount:blkcount>4009114# #score=0:x=5:y=5:xd=1:yd=0:slshcount=0:esslshcount=0:flag1=0:flag2=0:flag3=0 #5:5:1: #:c=1blkcount #2a=(*21)+1:b=(*21)+1 #(a,b)>1289120# #"a,b;1;1;ݥ;"":c #`0,0;"";#0;0,0;"" #7a=121:a,0;"";a,22;"":a #V0,23;"BLOCKS";1,23;" LEFT";2,24;blkcount;" " #S4,23;"SLASHES";5,23;" USED";6,24;slshcount $T %A:9 ,8;7;1;1;" YOU DID IT!!!!" %&0a=1502:.008zn,a:a/7:a %0;a=502-502-1:.008zn,a:*7:a %:I11 ,7;"Your score was ";score-slshcount-5*esslshcount %D?14,5;"Do you want another go?":=""9540D% %X="n"Ŧ="N"1e4' %b 9540D% &F:"DEFLECTOR"8000@:"UDG""a",16:"DEFLECTOR":"UDG": & UDG Loader & a="a""c"-1:b:a,b:a &255,129,189,165,165,189,129,255,60<,126~,255,255,255,255,126~,60< xUDG Xb <~~<