get file manifests.log
get file list-a-month.tpu
tpu compile (current_buffer);
tpu pce_delete_current_buffer;
buffer main
tpu pce_delete_current_buffer;
!buffer manifests.log
tpu list_a_month ("");
what line
write file list_a_month.lis
tpu quit (off);
!exit