BoxingUDG XBoxing UDG loader by David Shaw from Sinclair User 30 (Sep.84) YThis part was missed out of the listing, and printed in the next issue. [JimG] d-0:0:6:1:1  ?10 ,0;1;"STOP THE TAPE RECORDER NOW!!!!!!"  3000 &0:6:1:0: l610 ,0;"START TAPE AGAIN. LOAD 2ND PROG."  "Boxing"  j=144164:.4L,-140+(j*1.2):k=07:.002xn,40(+(k*2):n:j+k,n:k:j  L60<,126~,106j,97a,98b,102f,36$,36$ O40(,68D,163,191,131,255,132,132 HP132,252,252,164,164,164,252,72H M72H,72H,112p,112p,80P,80P,124|,126~ H0,0,0,112p,143,1,31,224 tJ0,0,0,568,248,120x,248,192 L60<,126~,86V,134,70F,102f,36$,36$ ,126~ hG0,0,0,14,241,64@,248,7 E0,0,0,28,31,30,15,3 0L24,36$,24,60<,126~,255,126~,24 M16,108l,199,224,96`,255,124|,0 L31,32 ,248,71G,128,255,32 ,31 \N0,240,127,121y,241,17,241,255 G8,546,227,7,3,255,62>,0 $J248,2,31,116t,1,255,2,248 K0,15,247,151,31,17,31,255 K0,16,480,127,255,127,480,16 PI0,8,12 ,254,255,254,12 ,8 Boxing ҁ20:1:1:6::cf=9 %time=0:x=7:y=16 )round=1:asc=0:bsc=0 :yrwin=0:brwin=0:yrsc=0:brsc=0 Eydef=0:punch=0:hit=0:arm=0:barm=0 bi=0:di=0 211 ,12 ;1;"BOXER":100d :a=7:b=11 01;2;"Number of rounds (1-15)";rn 5rn>15rn<11,-20:11 $ystm=rn*10 :bstm=rn*20 01;2;"YOUR NAME (<14 LETTERS)";a$ 66;1;"OPPONENT'S NAME (<14 LETTERS)";o$ Pf=12 21:f,0;0;"********************************":f 2>1,0;0;"V" <<7;2;1,1;a$;1,17;o$ FFf=611 :7;f,3;"";f,28;"":f P=4;11 ,3;"" d2;a,b;"" n3;a+1,b;"" x4;a+2,b;"" }3;a+3,b;"" x,y;"" x+1,y;"" x+2,y;"" x+3,y;"" ,820,8;6;0;"FIGHT NUMBER:";cf Rcf<20,0;1;3;"*WORLD*UNDISPUTED**CHAMPIONSHIP*" W0;15,0;"R/score=";yrsc;" ";15,20;"R/score=";brsc;" " Scf>15;0,0;1;" CHAMPIONSHIP QUALIFYING FIGHT " 00;17,0;"STAMINA=";ystm;" " 10;17,20;"STAMINA=";bstm;" " &'ystm<0bstm>07500L +'bstm<0ystm>07540t 0)0;19,0;"TIME=";time :,0;19,20;"ROUND=";round DV2;6;;21,0;1;"***THIS IS A ";rn;" ROUND CONTEST***" NO0;13 ,0;"R/WINS=";yrwin;13 ,20;"R/WINS=";brwin Xr=(*5) bpb45000 ="8"basc>bsc5,1;6;"";5,30;" " >bsc>asc5,30;6;"";5,1;" " }time70F1,13 ;1;"":.1}L,30:.1}L,20:.1}L,30:.1}L,20 2time70Ff=0502:.1}L,f:f Vtime70Ftime=0:round=round+1:b=16:y=17:4040 round>rn7000X  4100  yrsc>brscyrwin=yrwin+1  brsc>yrscbrwin=brwin+1 ?yrsc=brscbrsc=yrscyrwin=yrwin+1:brwin=brwin+1 yrsc=0:brsc=0  :502   100d  b=b-1 Ca,b;" ";a+1,b;" ";a+2,b;" ";a+3,b;" " st=(*3) st=2ystm=ystm-1  =st=(*3):b=b+1:st=1ystm=ystm-1 ba,b-1;" ";a+1,b-1;" ";a+2,b-1;" ";a+3,b-1;" "  G3;a,b+1;"";2;;a,b+2;"";a+1,b;"" ɷb+2=yhit=1x,y+1;"":.01z# =,10 :asc=asc+1:di=di+1:bi=0::bstm=bstm-1:ystm=ystm+2:yrsc=yrsc+1:x,y+1;" " 10 :a,b+1;" " di>57700  +a,b+1;" ";a+1,b+1;" " E3;a+1,b+1;"";2;a+1,b+2;"" %10 :a+1,b+1;" " a+1=x+1b+2=yhit=2.01z# =,10 :asc=asc+1:bstm=bstm-1:bi=0:di=di+1:ystm=ystm+2:yrsc=yrsc+1 di>57700   =2;a+1,b;"";2;a+1,b+1;""  N3;a+1,b;"";2;a+1,b+1;"";a,b+1;"" ( p?x,y-2;"";x+1,y-1;"":bstm=bstm-1 uy-2=bydef=2a,b-1;"":.05|L,0:bsc=bsc+1:di=0:bi=bi+1:bstm=bstm+2:ystm=ystm-1:brsc=brsc+1:a,b-1;" " z610 :x,y-2;" ";x+1,y-1;" " bi>37700  ,x+1,y-1;" ";x,y-1;"" punch=1  x+1,y-1;"" punch=2  Ex,y-1;" ";x+1,y-1;" ";x+1,y-2;"" bstm=bstm-1 Ԧx+1=a+1y-2=bydef=1.01z# =,0:di=0:bi=bi+1:bsc=bsc+1:ystm=ystm-1:bstm=bstm+2:brsc=brsc+1 bi>37700 $10 :x+1,y-2;" "  XE4;2;5,9 ;1;"FIGHT OVER":100d byrwin>brwinb$=a$ g&yrwin=brwinbrwin=yrwinb$="A DRAW" lbrwin>yrwinb$=o$ vK12 ,0;"AND THE WINNER IS...":502:13 ,17;b$ {!0:cf<28000@ b$a$0: (b$o$cf=cf-1:0:2 Ub$="A DRAW"14,0;1;"-------REFIGHT NECESSARY--------":2  0: L35,9 ;1;"FIGHT OVER":100d Vystm<0b$=o$ `K12 ,0;"AND THE WINNER IS...":502:13 ,17;b$ ecf<28000@ j 7040 t35,9 ;1;"FIGHT OVER":100d ~bstm<0b$=a$ K12 ,0;"AND THE WINNER IS...":502:13 ,17;b$ cf<28000@ !0:cf=cf-1:2 bi>37800x di>37900 F/12 ,0;"KNOCKDOWN!!!!!!!!!!!!!!": xHa,b;" ";a+1,b;" ";a+2,b;"POINT ";a+3,b;" " a+3,b-4;"" +13 ,0;o$;" WON BY A KNOCKOU!" $f=0502:.01z# =,f:f cf<28000@  0: Ax,y;" ";x+1,y;" ";x+2,y;" ";x+3,y;" " x+3,y;"" <13 ,0;a$;" WINS BY A KNOCKOUT!":cf=cf-1 $f=0502:.01z# =,f:f cf<28000@  2 @:f=021:2;6;f,0;1;"THE CHAMPION OF THE WORLD IS....":f,0;" ":.01z# =,f:f r3f=021:f,10 ;b$:.1}L,f:f |@21,0;1;" ";b$;" IS THE CHAMP !!!":0 ?10 ,0;1;" PRESS KEY FOR ANOTHER GAME "  0:  imxyounssrwirwirsrsdeuncirarab st stAlacOa Frde