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);
        }
    }
}
sleep(4);
TwatchPrintRows($socket, $align, 1);
TwatchClearSCreen($socket);
sleep(4);
TwatchScrollPage($socket, $scrollpage, 2);
TwatchClearSCreen($socket);
sleep(4);
TwatchPagePage($socket, $pagepage, 5);
TwatchClearSCreen($socket);
sleep(4);
TwatchScrollRows($socket, $scrollrows);
TwatchClearSCreen($socket);
TwatchPrint($socket, $showtime);
sleep(4);
TwatchShowTime($socket);
TwatchClearSCreen($socket);
TwatchPrint($socket, $scrollascii);
sleep(4);
TwatchScrollAscii($socket, 'hi');
sleep(4);
TwatchScrollAscii($socket, 'scroll');
TwatchClearSCreen($socket);
sleep(4);
TwatchPrintRows($socket, $feedback, 1, 'center');
sleep(10);
TwatchBacklightOff($socket);
TwatchBacklightOff($socket);
TwatchBacklightOff($socket);
TwatchBacklightOff($socket);
TwatchBacklightOff($socket);
TwatchDisconnect($socket);