2012-02-13 16:53:02 -08:00
|
|
|
|
Procedure DrawStatusScreen;
|
|
|
|
|
|
Const
|
|
|
|
|
|
IMAGEDATA_WIDTH=80;
|
|
|
|
|
|
IMAGEDATA_DEPTH=25;
|
|
|
|
|
|
IMAGEDATA_LENGTH=518;
|
|
|
|
|
|
IMAGEDATA : array [1..518] of Char = (
|
|
|
|
|
|
#1,#23,' ','M','y','s','t','i','c',' ','I','n','t','e','r','n','e',
|
|
|
|
|
|
't',' ','S','e','r','v','e','r',#25,#30, #0,'t','e','l','n','e','t',
|
|
|
|
|
|
'/','s','m','t','p','/','p','o','p','3','/','f','t','p','/','n','n',
|
|
|
|
|
|
't','p',' ',#24, #8,#16,#26,'O','<27>',#24,'<27>', #1,'<27>',' ', #7,'C','o',
|
|
|
|
|
|
'n','n','e','c','t','i','o','n','s',' ', #1,#26,'%','<27>','<27>', #8,'<27>',
|
|
|
|
|
|
#1,'<27>',' ', #7,'S','t','a','t','i','s','t','i','c','s',' ', #1,#26,
|
|
|
|
|
|
#9,'<27>','<27>', #8,'<27>',#24,'<27>', #1,'<27>',#25,'2','<27>', #8,'<27>', #1,'<27>',#25,
|
|
|
|
|
|
#21,'<27>', #8,'<27>',#24,'<27>', #1,'<27>',#25,'2','<27>', #8,'<27>', #1,'<27>',#25, #5,
|
|
|
|
|
|
#7,'P','o','r','t', #8,':',#25,#10, #1,'<27>', #8,'<27>',#24,'<27>', #1,'<27>',
|
|
|
|
|
|
#25,'2','<27>', #8,'<27>', #1,'<27>',#25, #6, #7,'M','a','x', #8,':',#25,#10,
|
|
|
|
|
|
#1,'<27>', #8,'<27>',#24,'<27>', #1,'<27>',#25,'2','<27>', #8,'<27>', #1,'<27>',#25, #3,
|
|
|
|
|
|
#7,'A','c','t','i','v','e', #8,':',#25,#10, #1,'<27>', #8,'<27>',#24,'<27>',
|
|
|
|
|
|
#1,'<27>',#25,'2','<27>', #8,'<27>', #1,'<27>',#25, #2, #7,'B','l','o','c','k',
|
|
|
|
|
|
'e','d', #8,':',#25,#10, #1,'<27>', #8,'<27>',#24,'<27>', #1,'<27>',#25,'2','<27>',
|
|
|
|
|
|
#8,'<27>', #1,'<27>',#25, #2, #7,'R','e','f','u','s','e','d', #8,':',#25,
|
|
|
|
|
|
#10, #1,'<27>', #8,'<27>',#24,'<27>', #1,'<27>',#25,'2','<27>', #8,'<27>', #1,'<27>',#25,
|
|
|
|
|
|
#4, #7,'T','o','t','a','l', #8,':',#25,#10, #1,'<27>', #8,'<27>',#24,'<27>',
|
|
|
|
|
|
#1,'<27>',#25,'2','<27>', #8,'<27>', #1,'<27>',#25,#21,'<27>', #8,'<27>',#24,'<27>', #1,
|
|
|
|
|
|
'<27>',#26,'2','<27>','<27>', #8,'<27>', #1,'<27>',#26,#21,'<27>','<27>', #8,'<27>',#24,#26,
|
|
|
|
|
|
'O','<27>',#24,'<27>', #1,'<27>',' ', #7,'S','e','r','v','e','r',' ','S','t',
|
|
|
|
|
|
'a','t','u','s',' ', #1,#26,'<','<27>','<27>', #8,'<27>',#24,'<27>', #1,'<27>',#25,
|
|
|
|
|
|
'K','<27>', #8,'<27>',#24,'<27>', #1,'<27>',#25,'K','<27>', #8,'<27>',#24,'<27>', #1,'<27>',
|
|
|
|
|
|
#25,'K','<27>', #8,'<27>',#24,'<27>', #1,'<27>',#25,'K','<27>', #8,'<27>',#24,'<27>', #1,
|
|
|
|
|
|
'<27>',#25,'K','<27>', #8,'<27>',#24,'<27>', #1,'<27>',#25,'K','<27>', #8,'<27>',#24,'<27>',
|
|
|
|
|
|
#1,'<27>',#25,'K','<27>', #8,'<27>',#24,'<27>', #1,'<27>',#25,'K','<27>', #8,'<27>',#24,
|
|
|
|
|
|
'<27>', #1,'<27>',#26,'K','<27>','<27>', #8,'<27>',#24,#26,'O','<27>',#24,#23,' ', #1,
|
|
|
|
|
|
'T','A','B','/','S','w','i','t','c','h',' ','W','i','n','d','o','w',
|
|
|
|
|
|
#25, #2,'E','N','T','E','R','/','S','n','o','o','p',#25, #2,'S','P',
|
|
|
|
|
|
'A','C','E','/','L','o','c','a','l',#25, #2,'A','L','T','-','K','/',
|
|
|
|
|
|
'K','i','l','l',' ','U','s','e','r',#25, #2,'E','S','C','/','S','h',
|
|
|
|
|
|
'u','t','d','o','w','n',' ',#24);
|
|
|
|
|
|
Begin
|
|
|
|
|
|
Console.LoadScreenImage(ImageData, ImageData_Length, ImageData_Width, 1, 1);
|
2012-06-18 05:59:19 -07:00
|
|
|
|
|
|
|
|
|
|
//Console.WriteXY (25, 1, 113, strPadC(mysVersionText, 30, ' '));
|
|
|
|
|
|
|
|
|
|
|
|
{$IFDEF UNIX}
|
|
|
|
|
|
Console.WriteXY (1, 25, 113, strPadC('ENTER/Snoop SPACE/Local TELNET TAB/Switch ESC/Shutdown', 79, ' '));
|
|
|
|
|
|
{$ELSE}
|
|
|
|
|
|
Console.WriteXY (1, 25, 113, strPadC('SPACE/Local TELNET TAB/Switch ESC/Shutdown', 79, ' '));
|
|
|
|
|
|
{$ENDIF}
|
2012-02-13 16:53:02 -08:00
|
|
|
|
End;
|
