home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols200 / vol228 / modes.c < prev    next >
Encoding:
Text File  |  1986-02-10  |  3.0 KB  |  223 lines
  1.  
  2.  
  3. /*
  4. **   modes.c
  5. **
  6. **       public domain use only   Mark Ellington   1984
  7. **
  8. **  This program provides easy menu selection of some options
  9. **  of the Epson RX-80 and compatible printers.  
  10. **
  11. */
  12.  
  13.  
  14.  
  15. /* printer modes */
  16.  
  17.  
  18. main()
  19. {
  20.     char s[3];
  21.         int n;
  22.  
  23.     putchar(0x1a);
  24.  
  25.     puts("Printer mode selection:\n\n");
  26.  
  27.     puts("0: Exit.\n");
  28.     
  29.     puts("1: Emphasized mode on.\n");
  30.  
  31.     puts("2: Emphasized mode off.\n");
  32.  
  33.     puts("3: Double-strike on.\n");
  34.  
  35.     puts("4: Double-strike off.\n");
  36.  
  37.     puts("5: Elite mode on.\n");
  38.  
  39.     puts("6: Elite mode off.\n");
  40.  
  41.     puts("7: Compressed mode on.\n");
  42.  
  43.     puts("8: Compressed mode off.\n");
  44.  
  45.     puts("9: Set tabs.\n");
  46.  
  47.     puts("10: Skip-over-perforation OFF.\n");
  48.  
  49.     puts("11: Graphics character set on.\n");
  50.  
  51.     puts("12: Graphics character set off.\n");
  52.  
  53.     puts("13: Reset.\n"); 
  54.  
  55.     n = 1;
  56.         while (n != 0) {
  57.         gets(s);
  58.         n = atoi(s); 
  59.         switch(n) {
  60.             case 1: newmode('E');
  61.                 break;    
  62.             case 2: newmode('F');
  63.                 break;    
  64.             case 3: newmode('G');
  65.                 break;
  66.             case 4: newmode('H');
  67.                 break;    
  68.             case 5: newmode('M');
  69.                 break;    
  70.             case 6: newmode('P');
  71.                 break;
  72.             case 7: nbr(15);
  73.                 break;
  74.             case 8: nbr(18);
  75.                 break;    
  76.             case 9: tabs();
  77.                 break;
  78.             case 10: newmode('O');
  79.                 break;
  80.             case 11:  
  81.                                    newmode('m');
  82.                 nbr(4);
  83.                 break;
  84.             case 12:  
  85.                                    newmode('m');
  86.                 nbr(0);
  87.                 break;
  88.             case 13: newmode(64);
  89.                 break;
  90.             default: break; 
  91.           }
  92.     }
  93. }
  94.  
  95.  
  96. /* single byte to printer */
  97.  
  98. nbr(n)
  99. char n;
  100. {
  101.     bdos(5,n);
  102. }
  103.  
  104.  
  105.  
  106. /* escape sequence to printer  "ESC byte" */
  107.  
  108. newmode(c)
  109. char c;        /* byte */
  110. {
  111.     bdos(5,27);    /* ESC */
  112.     bdos(5,c);    /* command char */
  113. }
  114.  
  115.  
  116.  
  117.  
  118. tabs()
  119. {
  120.     char n;
  121.     char s[4];
  122.  
  123.     puts("\nEnter number spaces per tab: ");
  124.     gets(s);
  125.     n = atoi(s);
  126.  
  127.     bdos(5,27);        /* ESC */
  128.     bdos(5,'e');        /* e */
  129.     bdos(5,'0');        /* 0 */
  130.     bdos(5,n);        /* n spaces */
  131.  
  132. }
  133.  
  134.  
  135.  
  136.  
  137.  
  138. /* get string of input into array */
  139.  
  140. gets(stri)
  141. char stri[80];
  142. { 
  143. char c;
  144. int i;
  145.  
  146.     while ((c = getchar()) != '\n') {
  147.         stri[i++] = c;
  148.     }    
  149.     stri[i] = '\0';
  150.  
  151.     return(stri[0]);    /* return 1st char */
  152. }
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159. /* convert byte string to integer */
  160.  
  161. atoi(s)  char s[8];  
  162. {
  163.     int i;
  164.     unsigned int n;
  165.  
  166.     n = 0;
  167.     for (i = 0; s[i] >= '0' && s[i] <= '9'; ++i)
  168.         n = 10 * n + s[i] - '0';
  169.     return(n);
  170. }
  171.  
  172.  
  173.  
  174.  
  175. /* CP/M direct system call routine */
  176.  
  177. bdos(funct,value)    
  178. int funct, value;
  179. {
  180. funct;    /* pass C reg data */
  181. #asm
  182. ;
  183. ;  machine code CP/M system BDOS call 
  184. ;
  185. BDOS    EQU    0005H    ;BDOS entry
  186. ;
  187.     MOV    C,L
  188. ;
  189. #endasm
  190.  
  191. value;
  192. #asm
  193.     MOV    E,L
  194.     MOV    D,H
  195. ;
  196.     CALL    BDOS    ;CALL CP/M 
  197.     MOV    L,A
  198.     MVI    H,0    
  199.     RET    
  200. #endasm
  201. }
  202.  
  203.  
  204.  
  205.  
  206.  
  207. /* string to console */
  208.  
  209. puts(s)
  210. char *s;
  211. {
  212.  
  213.     while (*s) putchar(*s++);
  214.  
  215. }
  216.  
  217.  
  218.  
  219.  
  220.  
  221.  
  222.  
  223.