# /* * block - print characters in block letters */ # define HEIGHT 6 # define WIDTH 5 char MATRIX[] { 0,0,0,0,0, /* space */ 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 1,1,1,1,1, /* ! */ 0,1,1,1,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,0,0,0,0, 1,1,0,1,1, /* " */ 0,1,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,1,0, /* # */ 1,1,1,1,1, 0,1,0,1,0, 1,1,1,1,1, 0,1,0,1,0, 0,0,0,0,0, 0,1,1,1,1, /* $ */ 1,0,1,0,0, 0,1,1,1,0, 0,0,1,0,1, 1,1,1,1,0, 0,0,0,0,0, 1,1,0,0,1, /* % */ 1,1,0,1,0, 0,0,1,0,0, 0,1,0,1,1, 1,0,0,1,1, 0,0,0,0,0, 0,1,1,1,0, /* & */ 0,1,0,1,0, 0,0,1,0,0, 0,1,0,1,0, 0,1,1,1,1, 0,0,0,1,0, 0,0,1,1,0, /* ' */ 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, /* ( */ 0,1,0,0,0, 0,1,0,0,0, 0,1,0,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,1,0,0, /* ) */ 0,0,0,1,0, 0,0,0,1,0, 0,0,0,1,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, /* * */ 0,1,0,1,0, 1,1,1,1,1, 0,1,0,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, /* + */ 0,0,1,0,0, 0,1,1,1,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, /* , */ 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,0,1,1,0, 0,1,0,0,0, 0,0,0,0,0, /* - */ 0,0,0,0,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, /* . */ 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,1, /* / */ 0,0,0,1,0, 0,0,1,0,0, 0,1,0,0,0, 1,0,0,0,0, 0,0,0,0,0, 0,1,1,1,0, /* 0 */ 1,0,0,0,1, 1,0,0,0,1, 1,0,0,0,1, 0,1,1,1,0, 0,0,0,0,0, 0,0,1,0,0, /* 1 */ 0,1,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,1,1,1,0, 0,0,0,0,0, 0,1,1,1,0, /* 2 */ 1,0,0,0,1, 0,0,1,1,0, 0,1,0,0,0, 1,1,1,1,1, 0,0,0,0,0, 0,1,1,1,0, /* 3 */ 1,0,0,0,1, 0,0,1,1,0, 1,0,0,0,1, 0,1,1,1,0, 0,0,0,0,0, 0,0,1,1,0, /* 4 */ 0,1,0,1,0, 1,1,1,1,1, 0,0,0,1,0, 0,0,0,1,0, 0,0,0,0,0, 1,1,1,1,1, /* 5 */ 1,0,0,0,0, 1,1,1,1,0, 0,0,0,0,1, 1,1,1,1,1, 0,0,0,0,0, 0,0,1,0,0, /* 6 */ 0,1,0,0,0, 1,1,1,1,0, 1,0,0,0,1, 0,1,1,1,0, 0,0,0,0,0, 1,1,1,1,1, /* 7 */ 0,0,0,1,0, 0,0,1,0,0, 0,1,0,0,0, 1,0,0,0,0, 0,0,0,0,0, 0,1,1,1,0, /* 8 */ 1,0,0,0,1, 0,1,1,1,0, 1,0,0,0,1, 0,1,1,1,0, 0,0,0,0,0, 0,1,1,1,0, /* 9 */ 1,0,0,0,1, 0,1,1,1,1, 0,0,0,1,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,1,1,0, /* : */ 0,0,1,1,0, 0,0,0,0,0, 0,0,1,1,0, 0,0,1,1,0, 0,0,0,0,0, 0,0,1,1,0, /* ; */ 0,0,1,1,0, 0,0,0,0,0, 0,0,1,1,0, 0,0,1,1,0, 0,1,0,0,0, 0,0,0,1,0, /* < */ 0,0,1,0,0, 0,1,0,0,0, 0,0,1,0,0, 0,0,0,1,0, 0,0,0,0,0, 0,0,0,0,0, /* = */ 0,1,1,1,0, 0,0,0,0,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,0, /* > */ 0,0,1,0,0, 0,0,0,1,0, 0,0,1,0,0, 0,1,0,0,0, 0,0,0,0,0, 0,1,1,1,0, /* ? */ 1,0,0,0,1, 0,0,1,1,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,1,1,1,0, /* @ */ 1,0,0,0,1, 1,0,1,1,1, 1,0,1,1,1, 0,1,1,1,1, 0,0,0,0,0, 0,0,1,0,0, /* A */ 0,1,0,1,0, 1,1,1,1,1, 1,0,0,0,1, 1,0,0,0,1, 0,0,0,0,0, 1,1,1,1,0, /* B */ 1,0,0,0,1, 1,1,1,1,0, 1,0,0,0,1, 1,1,1,1,0, 0,0,0,0,0, 0,1,1,1,0, /* C */ 1,0,0,0,1, 1,0,0,0,0, 1,0,0,0,1, 0,1,1,1,0, 0,0,0,0,0, 1,1,1,1,0, /* D */ 1,0,0,0,1, 1,0,0,0,1, 1,0,0,0,1, 1,1,1,1,0, 0,0,0,0,0, 1,1,1,1,1, /* E */ 1,0,0,0,0, 1,1,1,0,0, 1,0,0,0,0, 1,1,1,1,1, 0,0,0,0,0, 1,1,1,1,1, /* F */ 1,0,0,0,0, 1,1,1,0,0, 1,0,0,0,0, 1,0,0,0,0, 0,0,0,0,0, 1,1,1,1,1, /* G */ 1,0,0,0,0, 1,0,1,1,1, 1,0,0,0,1, 1,1,1,1,1, 0,0,0,0,0, 1,0,0,0,1, /* H */ 1,0,0,0,1, 1,1,1,1,1, 1,0,0,0,1, 1,0,0,0,1, 0,0,0,0,0, 1,1,1,1,1, /* I */ 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 1,1,1,1,1, 0,0,0,0,0, 0,1,1,1,0, /* J */ 0,0,1,0,0, 0,0,1,0,0, 1,0,1,0,0, 1,1,1,0,0, 0,0,0,0,0, 1,0,0,0,1, /* K */ 1,0,0,1,0, 1,1,1,0,0, 1,0,0,1,0, 1,0,0,0,1, 0,0,0,0,0, 1,0,0,0,0, /* L */ 1,0,0,0,0, 1,0,0,0,0, 1,0,0,0,0, 1,1,1,1,1, 0,0,0,0,0, 1,0,0,0,1, /* M */ 1,1,0,1,1, 1,0,1,0,1, 1,0,0,0,1, 1,0,0,0,1, 0,0,0,0,0, 1,0,0,0,1, /* N */ 1,1,0,0,1, 1,0,1,0,1, 1,0,0,1,1, 1,0,0,0,1, 0,0,0,0,0, 1,1,1,1,1, /* O */ 1,0,0,0,1, 1,0,0,0,1, 1,0,0,0,1, 1,1,1,1,1, 0,0,0,0,0, 1,1,1,1,0, /* P */ 1,0,0,0,1, 1,1,1,1,0, 1,0,0,0,0, 1,0,0,0,0, 0,0,0,0,0, 1,1,1,1,1, /* Q */ 1,0,0,0,1, 1,0,0,0,1, 1,0,1,0,1, 1,1,1,1,1, 0,0,0,0,1, 1,1,1,1,0, /* R */ 1,0,0,0,1, 1,1,1,1,0, 1,0,0,1,0, 1,0,0,0,1, 0,0,0,0,0, 0,1,1,1,1, /* S */ 1,0,0,0,0, 0,1,1,1,0, 0,0,0,0,1, 1,1,1,1,0, 0,0,0,0,0, 1,1,1,1,1, /* T */ 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,0,0,0, 1,0,0,0,1, /* U */ 1,0,0,0,1, 1,0,0,0,1, 1,0,0,0,1, 0,1,1,1,0, 0,0,0,0,0, 1,0,0,0,1, /* V */ 1,0,0,0,1, 1,0,0,0,1, 0,1,0,1,0, 0,0,1,0,0, 0,0,0,0,0, 1,0,0,0,1, /* W */ 1,0,0,0,1, 1,0,1,0,1, 1,0,1,0,1, 0,1,1,1,0, 0,0,0,0,0, 1,0,0,0,1, /* X */ 0,1,0,1,0, 0,0,1,0,0, 0,1,0,1,0, 1,0,0,0,1, 0,0,0,0,0, 1,0,0,0,1, /* Y */ 0,1,0,1,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,0,0,0, 1,1,1,1,1, /* Z */ 0,0,0,1,0, 0,0,1,0,0, 0,1,0,0,0, 1,1,1,1,1, 0,0,0,0,0, 0,1,1,1,0, /* [ */ 0,1,0,0,0, 0,1,0,0,0, 0,1,0,0,0, 0,1,1,1,0, 0,0,0,0,0, 1,0,0,0,0, /* \ */ 0,1,0,0,0, 0,0,1,0,0, 0,0,0,1,0, 0,0,0,0,1, 0,0,0,0,0, 0,1,1,1,0, /* ] */ 0,0,0,1,0, 0,0,0,1,0, 0,0,0,1,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,1,0,0, /* ^ */ 0,1,0,1,0, 1,0,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, /* _ */ 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 1,1,1,1,1, 0,1,1,0,0, /* ` */ 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,1,0, /* { */ 0,0,1,0,0, 0,1,1,1,0, 0,0,1,0,0, 0,0,0,1,0, 0,0,0,0,0, 0,0,1,0,0, /* | */ 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,1,0,0,0, /* } */ 0,0,1,0,0, 0,1,1,1,0, 0,0,1,0,0, 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0, /* ~ */ 0,1,0,0,0, 1,0,1,0,1, 0,0,0,1,0, 0,0,0,0,0, 0,0,0,0,0, }; /* END OF CHARACTER TABLE -- -- START OF PROGRAM TEXT ( JMF 08/19/75 ) */ int obuf[259]; main(argc,argv) int argc; char *argv[]; { /* ARGV[1] = CHARACTER SPACING ARGV[2] = PLOTTING CHARACTER ARGV[3-n] = PLOT LINES */ int input,chr,spacing,length,row,col; char *word,*ptr,plot; if (argc < 4) exit(-1); spacing = atoi(argv[1]); plot = argv[2][0]; obuf[0] = 1; for(input=3; input<argc; input++) { word = argv[input]; /* NORMALIZE CHARACTERS TO TABLE */ for(length=0; word[length]; length++) { if(word[length]>0140 && word[length]<0173) word[length] =- 040; if(word[length]<040 || word[length]==0177) word[length] = 040; if(word[length]>037 && word[length]<0141) word[length] =- 040; if(word[length]>0172 && word[length]<0177) word[length] =- 072; } /* PLOT THE LINES */ for(row=0; row<HEIGHT; row++) { for(chr=0; chr<length; chr++) { ptr = &MATRIX[word[chr]*WIDTH*HEIGHT+row*WIDTH]; for(col=0; col<WIDTH; col++) if(ptr[col]) putchar(plot); else putchar(' '); for(col=0; col<spacing; col++) putchar(' '); } putchar('\n'); } putchar('\n'); } fflush(obuf); } putchar(c) { putc(c, obuf); return(c); }