The code for the random poem at the beginning?

Inside 'oIntro' object, inside the 'Create' event, inside the 'Execute a peice of code'
(I hate 'execute a..' as it's not able to be searched and should have been put into a script)
str = "";
n = rand(1,10); // Change this to the amount of different poem lines
switch (n)
{
case 1: { str1 = "AS THE MOON SEAN BRIGHT ABOVE,"; break; }
case 2: { str1 = "WITH THE DESERT STRETCHING BEHIND ME,"; break; }
case 3: { str1 = "AFTER I DOUBLE-CHECKED MY MAP,"; break; }
case 4: { str1 = "MY LIPS CRACKED AND COVERED IN SAND,"; break; }
case 5: { str1 = "WITH FATE GUIDING MY EVERY MOVE,"; break; }
case 6: { str1 = "PUTTING THE FADED PHOTO IN MY POCKET,"; break; }
case 7: { str1 = "AS I RECALLED MY FATHER'S LAST WORDS,"; break; }
case 8: { str1 = "MY MEMORY SLIPPING AWAY FROM ME,"; break; }
case 9: { str1 = "AS I FINISH THE LAST KNIT IN MY SCARF,"; break; }
case 10: { str1 = "I STARED AT THE STARS,"; break; } //Added with 'case 10:'
}