function TwatchPagePage(&$socket, $text, $delay = -1)
{
    global $COMMANDS;
    $text = chunk_split($text, 80);
    $text = explode("\r\n", $text);
    $pages = count($text);
    $active_page = 0;
    foreach ($text as $thistext) {
        if (strlen($thistext) < 80) {
            $thistext = str_pad($thistext, 80);
        }
        TwatchPosition($socket, 1, 1);
        TwatchPrint($socket, $thistext);
        if ($delay != -1) {
            sleep($delay);
        }
    }
}
TwatchPrint($socket, 'See :)');
sleep(2);
TwatchClearSCreen($socket);
TwatchPrint($socket, $position);
sleep(4);
TwatchClearSCreen($socket);
TwatchPrint($socket, $position2);
sleep(1);
TwatchPosition($socket, 4, 11);
sleep(1);
TwatchPrint($socket, ' ');
sleep(1);
TwatchPosition($socket, 4, 10);
TwatchPrint($socket, ' ');
sleep(1);
TwatchPosition($socket, 4, 10);
sleep(1);
TwatchPrint($socket, 'e');
TwatchPrint($socket, 's');
TwatchPrint($socket, ' ');
TwatchPrint($socket, ';');
TwatchPrint($socket, ')');
sleep(4);
TwatchClearSCreen($socket);
TwatchPrint($socket, $preprint);
sleep(4);
TwatchPrint($socket, $print);
sleep(4);
TwatchClearSCreen($socket);
TwatchPrint($socket, $preprintrow);
sleep(4);