for i=0to 999 input""a$ b=val(a$) ?a$; if b>0and 12>b?" AM"; if 12=b?" PM"; ?next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page