Hoop-La f WHoop-La by Arthur Douglass from Sinclair Programs, Jul'83 ] This program needs Issue 2 emulation because of itsuse of IN to scan k/bd. [JimG] 5734225510 ,0;1;" Please set Issue 2 emulation before proceeding ":0::10 :Added by JimG d'1:sc=0:7:6 n&j=144147+7:a xj,a:j 3:j=15:a,b:a,b;"";a+1,b;"";a,b+18;"";a+1,b+18;"":j:10 ,12 ;"HOOP-LA!";11 ,15;"by";13 ,9 ;"ARTHUR DOUGLASS":200:2: -c=0302:l=(*18) 1;l,c;"*":c q=4910-1 Ea=:23672x\,0:23673y\,0:.01z# =,-10 6.01z# =,-5:a<480a>58:170 %"".05|L,-5:190 't=256*23673y\+23672x\ t>84Tt=84T (t=(t/2):a=480a=58: (t=21-t:t<-20t=-20 x=(a-480)*3 j=21t-1 j65022255ſ64510255ſ63486255ſ65278255x=x-1 49150255ſ61438255ſ32766255ſ57342255x=x+1:x=31x=30  y1=(j,x) "y2=(j,x+1) ,j0y3=(j+1,x) 6j<0y3=(j-1,x) @'j0y4=(j+1,x+1) J'j<0y4=(j-1,x+1) T j,x;"" ^)j21j0j+1,x;"" hj<0j-1,x;"" rKjt1;j,x;"":j21j01;j+1,x;"" |"j<0jtj-1,x;"" ?j:y1=42*y2=42*y3=42*y4=42*510 1#0;0,24;"HOOPS ";q;32 W.5,-30:0;j+1,x;" ":j00;j+2,x;" " j<00;j,x;" " q :"YOUR SCORE ";sc;  sc25" [INCREDIBLE]": sc20" [BRILLIANT]": sc16" [VERY GOOD]": sc10 " [NOT BAD]": $sc5" [COULD DO BETTER]": sc<5" [TERRIBLE]": k=-2020 .05|L,k:k )sc=sc+1:j<0sc=sc+1 '#0;0,0;"SCORE ";sc &.0;j+1,x;" ";j+2,x;" " 0 #(7,28,480,96`,64@,192,128,128,224,001110008,12 ,6,2,3,1,1 #2128,128,192,64@,96`,001100000,00011100,7,1,1,3,2,6,00001100 ,001110008,224 #