8528 FOR L=1 TO 100