CLS FOR I=1 TO F  Z[I]=FLOOR(B/5) NEXT