400 READ A(I%) FOR I% = 0 WHILE A(I%) < B