+PROCEDURE DISPBOUNCIES;
+BEGIN
+ WINDOW(42,3,80,13); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); CLRSCR;
+ IF L[II].NRBALLS<1THEN WRITELN('NONE')
+ ELSE FOR I4:=BBPOS TO MIN(L[II].NRBALLS,BBPOS+9)DO BEGIN
+ WRITE(I4); TEXTCOLOR(C_VALUE);
+ WRITE(': (',L[II].BALLS[I4].X,',',L[II].BALLS[I4].Y,'),',L[II].BALLS[I4].D);
+ TEXTCOLOR(C_TEXT);
+ END; {DISP OBJS}
+ WINDOW(2,3,3,20);
+END; {DISPLEVELS}
+