mysticbbs/mystic/install_ansi.pas

Procedure DrawMainMenu;
const
  IMAGEDATA_WIDTH=80;
  IMAGEDATA_DEPTH=25;
  IMAGEDATA_LENGTH=903;
  IMAGEDATA : array [1..903] of Char = (
    #15,#16,#25,'<',#14,'<27>',#24, #3,'<27>','<27>',#25,#10, #8,'<27>','<27>',#25, #3,
     #7,'<27>', #0,#23,'<27>',#16,#25,#23,#11,#26, #4,'<27>',#25, #9,#14,'<27>','<27>',
    '<27>', #7,'<27>', #0,#23,'<27>',#16,#25, #8, #7,'<27>', #0,#23,'<27>', #8,#16,'g',
    'j','!',#24,' ',#11,#19,'<27>','<27>','<27>', #3,#16,'<27>',#25, #4, #8,'<27>',' ',
    '<27>',' ',' ','<27>',' ', #3,'<27>', #0,#19,'<27>',#11,#16,'<27>',#19,'<27>',#15,'<27>',
    '<27>',#11,'<27>','<27>',#16,#25, #5, #8,'<27>',#25, #5,#15,#23,'<27>',#11,#16,#26,
     #3,'<27>', #3,'<27>',#11,'<27>','<27>',#15,#23,'<27>','<27>',#11,#19,'<27>',#15,#23,'<27>',
    #11,#16,#26, #3,'<27>',#14,'<27>',' ','<27>','<27>','<27>',#15,'<27>','<27>',#14,'<27>','<27>',
    '<27>','<27>','<27>','<27>', #3,'<27>',#11,#26, #4,'<27>',#19,'<27>',#16,'<27>','<27>',#19,'<27>',
     #3,#16,'<27>',#24,' ',#11,'<27>',#19,'<27>',#15,'<27>','<27>',#11,'<27>', #3,#16,'<27>',
    #25, #5, #8,'<27>','<27>', #3,'<27>',#11,#19,'<27>','<27>','<27>','<27>','<27>','<27>','<27>','<27>',
    '<27>',#16,' ', #8,#23,'<27>',#16,'<27>','<27>',' ',' ','<27>',' ',' ', #3,'<27>',#11,
    #19,'<27>','<27>','<27>','<27>',#16,'<27>','<27>',#19,'<27>',#16,'<27>','<27>',#19,'<27>',#26, #4,
    '<27>',#26, #3,'<27>',#16,#25, #3,#14,'<27>',#26, #3,'<27>','<27>','<27>', #3,'<27>',#11,
    #19,'<27>','<27>',#15,#23,'<27>','<27>',#11,#19,'<27>',#15,#23,'<27>',#11,#19,#26, #4,
    '<27>',#16,'<27>', #8,'<27>',#24,#15,#23,'<27>',#16,' ',#11,'<27>',#19,#26, #3,'<27>',
    '<27>', #3,#16,'<27>', #8,'<27>','<27>',#23,'<27>',#16,'<27>', #3,'<27>',#11,#19,'<27>','<27>',
    #15,#23,'<27>',#11,#19,'<27>','<27>',#16,'<27>',#19,'<27>','<27>','<27>','<27>','<27>',#16,' ',
     #8,#19,'<27>',#16,' ',#11,#19,'<27>','<27>','<27>','<27>',#16,'<27>','<27>','<27>',#19,'<27>',
    '<27>','<27>','<27>', #3,#16,'<27>',' ',' ', #8,'<27>','<27>',' ',#11,'<27>',#19,'<27>','<27>',
    '<27>',#16,'<27>',' ', #8,'<27>',' ',#11,'<27>','<27>','<27>',' ',#14,'<27>','<27>',#11,#26,
     #4,'<27>',#14,'<27>','<27>', #3,'<27>',#11,#19,'<27>','<27>',#16,' ', #8,'<27>','<27>',' ',
     #3,'<27>',#11,#19,'<27>','<27>','<27>', #3,#16,'<27>', #8,'<27>',#24,#23,'<27>',#16,' ',
    #11,'<27>',#19,'<27>','<27>','<27>','<27>',#16,'<27>',#19,'<27>',#16,'<27>','<27>','<27>','<27>',#19,
    '<27>',#16,'<27>',#19,'<27>','<27>','<27>','<27>',#16,'<27>', #3,'<27>',#11,'<27>',#19,'<27>','<27>',
    '<27>', #3,#16,'<27>',' ',' ',#11,#19,'<27>','<27>','<27>',#16,'<27>','<27>',' ', #3,'<27>',
    #11,#19,'<27>','<27>','<27>','<27>','<27>','<27>','<27>', #3,#16,'<27>', #8,'<27>',' ',#11,#19,
    '<27>','<27>','<27>','<27>',#16,'<27>',' ', #8,#19,'<27>',#16,' ',#11,#19,'<27>','<27>','<27>',
    '<27>','<27>',#16,' ',#15,#23,'<27>','<27>',#11,#19,'<27>','<27>',#16,'<27>','<27>','<27>',#19,
    '<27>','<27>','<27>',#16,' ', #8,'<27>',' ', #3,'<27>',#11,'<27>',#19,'<27>','<27>','<27>',#16,
    ' ', #8,#23,'<27>',#24,#16,'<27>',' ', #3,'<27>',#11,#19,'<27>','<27>','<27>', #3,#16,
    '<27>',' ',' ','<27>',#11,#19,'<27>','<27>', #3,#16,'<27>',' ',' ','<27>',#11,#19,'<27>',
    '<27>','<27>', #3,#16,'<27>',' ','<27>',#11,#19,#26, #3,'<27>', #3,#16,'<27>','<27>','<27>',
    #11,#19,'<27>','<27>','<27>', #3,#16,'<27>',' ', #8,'<27>',' ',' ', #3,'<27>','<27>',#11,
    #19,#26, #3,'<27>', #3,#16,'<27>',' ','<27>',#11,#19,'<27>','<27>','<27>', #3,#16,'<27>',
    '<27>', #8,'<27>',' ',#11,#19,#26, #3,'<27>', #3,#16,'<27>','<27>',#11,#19,#26, #3,
    '<27>',#16,'<27>', #3,'<27>',#11,'<27>',#19,'<27>','<27>','<27>', #3,#16,'<27>', #8,'<27>',' ',
    #11,#19,'<27>','<27>','<27>', #3,#16,'<27>',#11,'<27>',' ', #8,#19,'<27>',#24, #3,#16,
    '<27>', #0,#19,'<27>', #3,#16,'<27>','<27>','<27>',#19,' ',#16,'<27>',' ', #8,#19,'<27>',
    #16,#26, #3,'<27>','<27>',' ', #3,#26, #4,'<27>',' ', #8,'<27>','<27>',' ', #3,#26,
     #3,'<27>',#26,#14,'<27>', #0,#19,'<27>','<27>',#16,' ', #3,'<27>',#26, #3,'<27>','<27>',
    '<27>',#26, #4,'<27>',#11,'<27>',#19,#26, #4,'<27>',#16,' ', #3,'<27>',#26, #3,'<27>',
    #26, #4,'<27>',' ', #8,'<27>','<27>','<27>',#24,'<27>','<27>','<27>',' ', #3,'<27>','<27>','<27>',
    ' ', #8,'<27>',' ',' ','<27>','<27>','<27>',#26, #6,'<27>','<27>',#26, #4,'<27>',' ', #3,
    '<27>','<27>','<27>','<27>','<27>','<27>', #0,#19,'<27>', #3,#16,'<27>','<27>','<27>','<27>','<27>',#26,
     #3,'<27>',' ', #8,'<27>','<27>','<27>',' ', #3,#26, #7,'<27>',' ',' ',#26, #4,'<27>',
    #25, #3,#26, #6,'<27>',' ', #8,'<27>','<27>','<27>',#24,#25, #7,'<27>',#25,#11,'<27>',
    #25, #5, #3,'<27>', #0,#19,'<27>',#16,#25,#10, #8,'<27>',#25, #3,'<27>',#26,#12,
    '<27>',' ','<27>',#25,#13,'<27>','<27>',#24,#25,#20,'<27>','<27>','<27>',#25,#17,'<27>',' ',
    '<27>','<27>','<27>',#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#25,#17,
     #7,'V','i','s','i','t',' ',#15,'w','w','w','.','m','y','s','t','i',
    'c','b','b','s','.','c','o','m',' ', #7,'f','o','r',' ','l','a','t',
    'e','s','t',' ','u','p','d','a','t','e','s','!',#24,#24, #8,#26,'N',
    '<27>',#24);
Begin
  Screen.LoadScreenImage(ImageData, ImageData_Length, ImageData_Width, 1, 1);
  Screen.WriteXY (1, 13, 7, strPadC('Mystic BBS Installation Utility Version ' + mysVersion, 79, ' '));
  Screen.WriteXY (1, 14, 7, strPadC('Copyright (C) 1997-2012 By James Coyle.  All Rights Reserved.', 79, ' '));
End;