for i=0to 999 input""a$ b=val(a$)-6 ?a$; if b^2<26?" AM"; if 6=b?" PM"; ?next