//MemoCopier
string memo_to_copy;
string line_of_text;
string whole_damn_memo;
main() {
graph_on();
memo_to_copy=gets("Enter the name of the memo to copy");
if(memo_to_copy=="") {
exit();
}
mmfind(memo_to_copy);
while(mmeof()!=1) {
line_of_text=mmgetl();
whole_damn_memo=whole_damn_memo+line_of_text+"\n";
}
mmnew();
mmputs(whole_damn_memo);
alert("There is now a cepy of "+memo_to_copy);
exit();
}