// -*- ASCII:EDT -*-
// blockletter.edt
// replace normal letters
// with big ones
// (schlicht 20010610)
////////////////////////////

/////////////////////////
//     Letters:        //
/////////////////////////
//  A - Z              //
//  0 - 9              //
//  . , : ; ! ? - + =  //
/////////////////////////


IfSel(1,"=","GetSel(0,0);","Prompt('Please select something.',2,1);Exit;");
CMD("Delete");

// Replace newlines with a bullet character:
LetRegNum(9,0);
Loop(!">
   FindInString('%!0','>',8,9,1001,%!9);>
   IfOK(!'ReplaceInString(''%!0'','''',%!8,%!9,0,0);',>
      'Stop;');>
");

// Line number:
LetRegNum(6,%l);
// Column number:
LetRegNum(7,1);
GetLength(8,"%!0");
LetRegNum(9,0);
BeginGroup;
InsText("%\%\%\%\%\%\%\%\");
Loop(!">
   ExtractByIndex(1,'%!0',%!9,%!9);>
/////////////
// LETTERS //
/////////////
   IfIStr('%!1','A','=','GotoCL(%!7,%!6); InsText(''>
     #'');     GotoCL(%!7,%!6+1); InsText(''>
    ###'');    GotoCL(%!7,%!6+2); InsText(''>
   ## ##'');   GotoCL(%!7,%!6+3); InsText(''>
  #######'');  GotoCL(%!7,%!6+4); InsText(''>
 ##     ##''); GotoCL(%!7,%!6+5); InsText(''>
##       ##'');LetRegNum(7,%!7+12);');>
   IfIStr('%!1','B','=','GotoCL(%!7,%!6); InsText(''>
#######'');   GotoCL(%!7,%!6+1); InsText(''>
##    ##'');  GotoCL(%!7,%!6+2); InsText(''>
#######'');   GotoCL(%!7,%!6+3); InsText(''>
##    ##'');  GotoCL(%!7,%!6+4); InsText(''>
##    ##'');  GotoCL(%!7,%!6+5); InsText(''>
#######'');   LetRegNum(7,%!7+11);');>
   IfIStr('%!1','C','=','GotoCL(%!7,%!6); InsText(''>
 ######'');   GotoCL(%!7,%!6+1); InsText(''>
##    ##'');  GotoCL(%!7,%!6+2); InsText(''>
##'');        GotoCL(%!7,%!6+3); InsText(''>
##'');        GotoCL(%!7,%!6+4); InsText(''>
##    ##'');  GotoCL(%!7,%!6+5); InsText(''>
 ######'');   LetRegNum(7,%!7+11);');>
   IfIStr('%!1','D','=','GotoCL(%!7,%!6); InsText(''>
#######'');   GotoCL(%!7,%!6+1); InsText(''>
##    ##'');  GotoCL(%!7,%!6+2); InsText(''>
##    ##'');  GotoCL(%!7,%!6+3); InsText(''>
##    ##'');  GotoCL(%!7,%!6+4); InsText(''>
##    ##'');  GotoCL(%!7,%!6+5); InsText(''>
#######'');   LetRegNum(7,%!7+11);');>
   IfIStr('%!1','E','=','GotoCL(%!7,%!6); InsText(''>
########'');  GotoCL(%!7,%!6+1); InsText(''>
##'');        GotoCL(%!7,%!6+2); InsText(''>
######'');    GotoCL(%!7,%!6+3); InsText(''>
##'');        GotoCL(%!7,%!6+4); InsText(''>
##'');        GotoCL(%!7,%!6+5); InsText(''>
########'');  LetRegNum(7,%!7+11);');>
   IfIStr('%!1','F','=','GotoCL(%!7,%!6); InsText(''>
########'');  GotoCL(%!7,%!6+1); InsText(''>
##'');        GotoCL(%!7,%!6+2); InsText(''>
######'');    GotoCL(%!7,%!6+3); InsText(''>
##'');        GotoCL(%!7,%!6+4); InsText(''>
##'');        GotoCL(%!7,%!6+5); InsText(''>
##'');        LetRegNum(7,%!7+10);');>
   IfIStr('%!1','G','=','GotoCL(%!7,%!6); InsText(''>
 ######'');   GotoCL(%!7,%!6+1); InsText(''>
##'');        GotoCL(%!7,%!6+2); InsText(''>
##   ###'');  GotoCL(%!7,%!6+3); InsText(''>
##    ##'');  GotoCL(%!7,%!6+4); InsText(''>
##    ##'');  GotoCL(%!7,%!6+5); InsText(''>
 ######'');   LetRegNum(7,%!7+11);');>
   IfIStr('%!1','H','=','GotoCL(%!7,%!6); InsText(''>
##    ##'');  GotoCL(%!7,%!6+1); InsText(''>
##    ##'');  GotoCL(%!7,%!6+2); InsText(''>
########'');  GotoCL(%!7,%!6+3); InsText(''>
##    ##'');  GotoCL(%!7,%!6+4); InsText(''>
##    ##'');  GotoCL(%!7,%!6+5); InsText(''>
##    ##'');  LetRegNum(7,%!7+11);');>
   IfIStr('%!1','I','=','GotoCL(%!7,%!6); InsText(''>
##'');        GotoCL(%!7,%!6+1); InsText(''>
##'');        GotoCL(%!7,%!6+2); InsText(''>
##'');        GotoCL(%!7,%!6+3); InsText(''>
##'');        GotoCL(%!7,%!6+4); InsText(''>
##'');        GotoCL(%!7,%!6+5); InsText(''>
##'');        LetRegNum(7,%!7+5);');>
   IfIStr('%!1','J','=','GotoCL(%!7,%!6); InsText(''>
    ##'');    GotoCL(%!7,%!6+1); InsText(''>
    ##'');    GotoCL(%!7,%!6+2); InsText(''>
    ##'');    GotoCL(%!7,%!6+3); InsText(''>
    ##'');    GotoCL(%!7,%!6+4); InsText(''>
##  ##'');    GotoCL(%!7,%!6+5); InsText(''>
 ####'');     LetRegNum(7,%!7+9);');>
   IfIStr('%!1','K','=','GotoCL(%!7,%!6); InsText(''>
##    ##'');  GotoCL(%!7,%!6+1); InsText(''>
##  ##'');    GotoCL(%!7,%!6+2); InsText(''>
####'');      GotoCL(%!7,%!6+3); InsText(''>
##  ##'');    GotoCL(%!7,%!6+4); InsText(''>
##   ##'');   GotoCL(%!7,%!6+5); InsText(''>
##    ##'');  LetRegNum(7,%!7+11);');>
   IfIStr('%!1','L','=','GotoCL(%!7,%!6); InsText(''>
##'');        GotoCL(%!7,%!6+1); InsText(''>
##'');        GotoCL(%!7,%!6+2); InsText(''>
##'');        GotoCL(%!7,%!6+3); InsText(''>
##'');        GotoCL(%!7,%!6+4); InsText(''>
##'');        GotoCL(%!7,%!6+5); InsText(''>
#######'');   LetRegNum(7,%!7+9);');>
   IfIStr('%!1','M','=','GotoCL(%!7,%!6); InsText(''>
##     ##''); GotoCL(%!7,%!6+1); InsText(''>
###   ###''); GotoCL(%!7,%!6+2); InsText(''>
## # # ##''); GotoCL(%!7,%!6+3); InsText(''>
##  #  ##''); GotoCL(%!7,%!6+4); InsText(''>
##     ##''); GotoCL(%!7,%!6+5); InsText(''>
##     ##''); LetRegNum(7,%!7+12);');>
   IfIStr('%!1','N','=','GotoCL(%!7,%!6); InsText(''>
##     ##''); GotoCL(%!7,%!6+1); InsText(''>
###    ##''); GotoCL(%!7,%!6+2); InsText(''>
## #   ##''); GotoCL(%!7,%!6+3); InsText(''>
##  #  ##''); GotoCL(%!7,%!6+4); InsText(''>
##   # ##''); GotoCL(%!7,%!6+5); InsText(''>
##    ###''); LetRegNum(7,%!7+12);');>
   IfIStr('%!1','O','=','GotoCL(%!7,%!6); InsText(''>
 ######'');   GotoCL(%!7,%!6+1); InsText(''>
##    ##'');  GotoCL(%!7,%!6+2); InsText(''>
##    ##'');  GotoCL(%!7,%!6+3); InsText(''>
##    ##'');  GotoCL(%!7,%!6+4); InsText(''>
##    ##'');  GotoCL(%!7,%!6+5); InsText(''>
 ######'');   LetRegNum(7,%!7+11);');>
   IfIStr('%!1','P','=','GotoCL(%!7,%!6); InsText(''>
#######'');   GotoCL(%!7,%!6+1); InsText(''>
##    ##'');  GotoCL(%!7,%!6+2); InsText(''>
#######'');   GotoCL(%!7,%!6+3); InsText(''>
##'');        GotoCL(%!7,%!6+4); InsText(''>
##'');        GotoCL(%!7,%!6+5); InsText(''>
##'');        LetRegNum(7,%!7+11);');>
   IfIStr('%!1','Q','=','GotoCL(%!7,%!6); InsText(''>
 ######'');   GotoCL(%!7,%!6+1); InsText(''>
##    ##'');  GotoCL(%!7,%!6+2); InsText(''>
##    ##'');  GotoCL(%!7,%!6+3); InsText(''>
##  # ##'');  GotoCL(%!7,%!6+4); InsText(''>
##   ###'');  GotoCL(%!7,%!6+5); InsText(''>
 #######'');  LetRegNum(7,%!7+11);');>
   IfIStr('%!1','R','=','GotoCL(%!7,%!6); InsText(''>
#######'');   GotoCL(%!7,%!6+1); InsText(''>
##    ##'');  GotoCL(%!7,%!6+2); InsText(''>
#######'');   GotoCL(%!7,%!6+3); InsText(''>
## ##'');     GotoCL(%!7,%!6+4); InsText(''>
##   ##'');   GotoCL(%!7,%!6+5); InsText(''>
##    ##'');  LetRegNum(7,%!7+11);');>
   IfIStr('%!1','S','=','GotoCL(%!7,%!6); InsText(''>
 ######'');   GotoCL(%!7,%!6+1); InsText(''>
##'');        GotoCL(%!7,%!6+2); InsText(''>
 #####'');    GotoCL(%!7,%!6+3); InsText(''>
     ##'');   GotoCL(%!7,%!6+4); InsText(''>
#    ##'');   GotoCL(%!7,%!6+5); InsText(''>
 #####'');    LetRegNum(7,%!7+10);');>
   IfIStr('%!1','T','=','GotoCL(%!7,%!6); InsText(''>
########'');  GotoCL(%!7,%!6+1); InsText(''>
   ##'');     GotoCL(%!7,%!6+2); InsText(''>
   ##'');     GotoCL(%!7,%!6+3); InsText(''>
   ##'');     GotoCL(%!7,%!6+4); InsText(''>
   ##'');     GotoCL(%!7,%!6+5); InsText(''>
   ##'');     LetRegNum(7,%!7+11);');>
   IfIStr('%!1','U','=','GotoCL(%!7,%!6); InsText(''>
##    ##'');  GotoCL(%!7,%!6+1); InsText(''>
##    ##'');  GotoCL(%!7,%!6+2); InsText(''>
##    ##'');  GotoCL(%!7,%!6+3); InsText(''>
##    ##'');  GotoCL(%!7,%!6+4); InsText(''>
##    ##'');  GotoCL(%!7,%!6+5); InsText(''>
 ######'');   LetRegNum(7,%!7+11);');>
   IfIStr('%!1','V','=','GotoCL(%!7,%!6); InsText(''>
##    ##'');  GotoCL(%!7,%!6+1); InsText(''>
##    ##'');  GotoCL(%!7,%!6+2); InsText(''>
##    ##'');  GotoCL(%!7,%!6+3); InsText(''>
 ##  ##'');   GotoCL(%!7,%!6+4); InsText(''>
  ####'');    GotoCL(%!7,%!6+5); InsText(''>
   ##'');     LetRegNum(7,%!7+11);');>
   IfIStr('%!1','W','=','GotoCL(%!7,%!6); InsText(''>
##       ##''); GotoCL(%!7,%!6+1); InsText(''>
##       ##''); GotoCL(%!7,%!6+2); InsText(''>
##   #   ##''); GotoCL(%!7,%!6+3); InsText(''>
 ## ### ##''); GotoCL(%!7,%!6+4); InsText(''>
  ### ###''); GotoCL(%!7,%!6+5); InsText(''>
   ## ##'');  LetRegNum(7,%!7+14);');>
   IfIStr('%!1','X','=','GotoCL(%!7,%!6); InsText(''>
 ##   ##'');  GotoCL(%!7,%!6+1); InsText(''>
  ## ##'');   GotoCL(%!7,%!6+2); InsText(''>
   ###'');    GotoCL(%!7,%!6+3); InsText(''>
  ## ##'');   GotoCL(%!7,%!6+4); InsText(''>
 ##   ##'');  GotoCL(%!7,%!6+5); InsText(''>
##     ##''); LetRegNum(7,%!7+12);');>
   IfIStr('%!1','Y','=','GotoCL(%!7,%!6); InsText(''>
##    ##'');  GotoCL(%!7,%!6+1); InsText(''>
 ##  ##'');   GotoCL(%!7,%!6+2); InsText(''>
  ####'');    GotoCL(%!7,%!6+3); InsText(''>
   ##'');     GotoCL(%!7,%!6+4); InsText(''>
   ##'');     GotoCL(%!7,%!6+5); InsText(''>
   ##'');     LetRegNum(7,%!7+11);');>
   IfIStr('%!1','Z','=','GotoCL(%!7,%!6); InsText(''>
#######'');   GotoCL(%!7,%!6+1); InsText(''>
    ##'');    GotoCL(%!7,%!6+2); InsText(''>
   ##'');     GotoCL(%!7,%!6+3); InsText(''>
  ##'');      GotoCL(%!7,%!6+4); InsText(''>
 ##'');       GotoCL(%!7,%!6+5); InsText(''>
######## ''); LetRegNum(7,%!7+11);');>
/////////////
// NUMBERS //
/////////////
   IfStr('%!1','1','=','GotoCL(%!7,%!6); InsText(''>
  ##'') ;     GotoCL(%!7,%!6+1); InsText(''>
####'');      GotoCL(%!7,%!6+2); InsText(''>
  ##'');      GotoCL(%!7,%!6+3); InsText(''>
  ##'');      GotoCL(%!7,%!6+4); InsText(''>
  ##'');      GotoCL(%!7,%!6+5); InsText(''>
  ##'');      LetRegNum(7,%!7+7);');>
   IfStr('%!1','2','=','GotoCL(%!7,%!6); InsText(''>
 ####'');     GotoCL(%!7,%!6+1); InsText(''>
##  ##'');    GotoCL(%!7,%!6+2); InsText(''>
   ##'');     GotoCL(%!7,%!6+3); InsText(''>
  ##'');      GotoCL(%!7,%!6+4); InsText(''>
 ##'');       GotoCL(%!7,%!6+5); InsText(''>
#######'');   LetRegNum(7,%!7+10);');>
   IfStr('%!1','3','=','GotoCL(%!7,%!6); InsText(''>
 ####'');     GotoCL(%!7,%!6+1); InsText(''>
#   ##'');    GotoCL(%!7,%!6+2); InsText(''>
   ##'');     GotoCL(%!7,%!6+3); InsText(''>
    ##'');    GotoCL(%!7,%!6+4); InsText(''>
#   ##'');    GotoCL(%!7,%!6+5); InsText(''>
 ####'');     LetRegNum(7,%!7+10);');>
   IfStr('%!1','4','=','GotoCL(%!7,%!6); InsText(''>
 #'');        GotoCL(%!7,%!6+1); InsText(''>
## ##'');     GotoCL(%!7,%!6+2); InsText(''>
######'');    GotoCL(%!7,%!6+3); InsText(''>
   ##'');     GotoCL(%!7,%!6+4); InsText(''>
   ##'');     GotoCL(%!7,%!6+5); InsText(''>
   ##'');     LetRegNum(7,%!7+9);');>
   IfStr('%!1','5','=','GotoCL(%!7,%!6); InsText(''>
######'');    GotoCL(%!7,%!6+1); InsText(''>
##'');        GotoCL(%!7,%!6+2); InsText(''>
#####'');     GotoCL(%!7,%!6+3); InsText(''>
    ##'');    GotoCL(%!7,%!6+4); InsText(''>
#   ##'');    GotoCL(%!7,%!6+5); InsText(''>
 ####'');     LetRegNum(7,%!7+9);');>
   IfStr('%!1','6','=','GotoCL(%!7,%!6); InsText(''>
 ####'');     GotoCL(%!7,%!6+1); InsText(''>
##'');        GotoCL(%!7,%!6+2); InsText(''>
#####'');     GotoCL(%!7,%!6+3); InsText(''>
##  ##'');    GotoCL(%!7,%!6+4); InsText(''>
##  ##'');    GotoCL(%!7,%!6+5); InsText(''>
 ####'');     LetRegNum(7,%!7+9);');>
   IfStr('%!1','7','=','GotoCL(%!7,%!6); InsText(''>
#######'');   GotoCL(%!7,%!6+1); InsText(''>
    ##'');    GotoCL(%!7,%!6+2); InsText(''>
   ##'');     GotoCL(%!7,%!6+3); InsText(''>
  ##'');      GotoCL(%!7,%!6+4); InsText(''>
  ##'');      GotoCL(%!7,%!6+5); InsText(''>
  ##'');      LetRegNum(7,%!7+10);');>
   IfStr('%!1','8','=','GotoCL(%!7,%!6); InsText(''>
 ####'');     GotoCL(%!7,%!6+1); InsText(''>
##  ##'');    GotoCL(%!7,%!6+2); InsText(''>
 ####'');     GotoCL(%!7,%!6+3); InsText(''>
##  ##'');    GotoCL(%!7,%!6+4); InsText(''>
##  ##'');    GotoCL(%!7,%!6+5); InsText(''>
 ####'');     LetRegNum(7,%!7+9);');>
   IfStr('%!1','9','=','GotoCL(%!7,%!6); InsText(''>
 ####'');     GotoCL(%!7,%!6+1); InsText(''>
##  ##'');    GotoCL(%!7,%!6+2); InsText(''>
 #####'');    GotoCL(%!7,%!6+3); InsText(''>
    ##'');    GotoCL(%!7,%!6+4); InsText(''>
##  ##'');    GotoCL(%!7,%!6+5); InsText(''>
 ####'');     LetRegNum(7,%!7+9);');>
   IfStr('%!1','0','=','GotoCL(%!7,%!6); InsText(''>
 ####'');     GotoCL(%!7,%!6+1); InsText(''>
##  ##'');    GotoCL(%!7,%!6+2); InsText(''>
##  ##'');    GotoCL(%!7,%!6+3); InsText(''>
##  ##'');    GotoCL(%!7,%!6+4); InsText(''>
##  ##'');    GotoCL(%!7,%!6+5); InsText(''>
 ####'');     LetRegNum(7,%!7+9);');>
/////////////////
// PUNCTUATION //
/////////////////
   IfStr('%!1',' ','=','LetRegNum(7,%!7+8);');>
   IfStr('%!1','.','=','GotoCL(%!7,%!6+5); InsText(''>
##'');        LetRegNum(7,%!7+4);');>
   IfStr('%!1',',','=','GotoCL(%!7,%!6+4); InsText(''>
 #'');        GotoCL(%!7,%!6+5); InsText(''>
#'');         LetRegNum(7,%!7+4);');>
   IfStr('%!1',':','=','GotoCL(%!7,%!6+2); InsText(''>
##''); >
              GotoCL(%!7,%!6+5); InsText(''>
##'');        LetRegNum(7,%!7+4);');>
   IfStr('%!1',';','=','GotoCL(%!7,%!6+2); InsText(''>
##''); >
              GotoCL(%!7,%!6+4); InsText(''>
 #'');        GotoCL(%!7,%!6+5); InsText(''>
#''); LetRegNum(7,%!7+4);');>
   IfStr('%!1','''','=','GotoCL(%!7,%!6); InsText(''>
#'');         GotoCL(%!7,%!6+1); InsText(''>
#'');         GotoCL(%!7,%!6+2); LetRegNum(7,%!7+3);');>
   IfStr('%!1','!','=','GotoCL(%!7,%!6); InsText(''>
##'');        GotoCL(%!7,%!6+1); InsText(''>
##'');        GotoCL(%!7,%!6+2); InsText(''>
##'');        GotoCL(%!7,%!6+3); InsText(''>
##''); >
              GotoCL(%!7,%!6+5); InsText(''>
##'');        LetRegNum(7,%!7+4);');>
   IfStr('%!1','?','=','GotoCL(%!7,%!6); InsText(''>
 #####'');    GotoCL(%!7,%!6+1); InsText(''>
     ##'');   GotoCL(%!7,%!6+2); InsText(''>
  ####'');    GotoCL(%!7,%!6+3); InsText(''>
  ##''); >
              GotoCL(%!7,%!6+5); InsText(''>
  ##'');      LetRegNum(7,%!7+9);');>
   IfStr('%!1','-','=','GotoCL(%!7,%!6+3); InsText(''>
#####'');     GotoCL(%!7,%!6+4); LetRegNum(7,%!7+8);');>
   IfStr('%!1','+','=','GotoCL(%!7,%!6+2); InsText(''>
  #'');       GotoCL(%!7,%!6+3); InsText(''>
#####'');     GotoCL(%!7,%!6+4); InsText(''>
  #'');       LetRegNum(7,%!7+8);');>
   IfStr('%!1','=','=','GotoCL(%!7,%!6+2); InsText(''>
#####''); >
              GotoCL(%!7,%!6+4); InsText(''>
##### '');    LetRegNum(7,%!7+8);');>
// NEWLINE:
   IfStr('%!1','','=','InsText(''%\%\%\%\%\%\%\%\'');LetRegNum(6,%!6+8); LetRegNum(7,1);');>
// END?
   IfNum(%!9,%!8,'>','Stop;',>
      'LetRegNum(9,%!9+1);');>
");
EndGroup;
End;



////////////////////////////////
// This macro converts text into
//
 #######    ##    ######            ##       ########   ########   ########   ########   #######     ######
 ##    ##   ##   ##                 ##       ##            ##         ##      ##         ##    ##   ##
 #######    ##   ##   ###           ##       ######        ##         ##      ######     #######     #####
 ##    ##   ##   ##    ##           ##       ##            ##         ##      ##         ## ##           ##
 ##    ##   ##   ##    ##           ##       ##            ##         ##      ##         ##   ##    #    ##
 #######    ##    ######            #######  ########      ##         ##      ########   ##    ##    #####


 ##       ##   ##    ##   ########           ########   ##    ##   ########    ######   ########
 ##       ##   ##  ##     ##                    ##      ##    ##   ##         ##        ##
 ##       ##   ####       ######                ##      ########   ######      #####    ######
 ##       ##   ##  ##     ##                    ##      ##    ##   ##              ##   ##
 ##       ##   ##   ##    ##                    ##      ##    ##   ##         #    ##   ##
 #######  ##   ##    ##   ########              ##      ##    ##   ########    #####    ########   ##
//
//
// Select the text you want to have big.
//
// The macro will not break lines automatically,
// but it will respect your newlines.
//
// R Schlicht   w.m.l@gmx.net
//////////////////////////////////////
$Id: bigletters.edt,v 1.2 2001-11-13 19:06:56+01 standard Exp standard $