#include "stdio.h"
#include "fcntl.h"
char  icon[12];
main()
{
  unsigned char  choice;
  int  prnt[24][80];
  int  fil,lin,col,x,z,y;
  FILE *fp,*fopen();

  for (x=0;x<12;x++){
    icon[x] = 0;
  }

  lin = 0;
  col = 0;
  x = 0;
  y = 0;
  for(x=0;x<24;x++){
    for(y=0;y<80;y++){
      prnt[x][y] = 0;
    }
  }
  y = 8;
  printf("Please enter file name\n");
  scr_echo(1);
  for(x=0;x<8;x++){
    icon[x] = scr_getc();
    if(icon[x] == '\r') {
       y=x;
       x=8;
    }
  }
  x=y;
  icon[x] = '.';
  icon[x+1] = 'a';
  icon[x+2] = 'r';
  icon[x+3] = 't';
  scr_echo(0);
  printf("do you want to print a ICON?\n");
  choice = quest(&choice);
  if((fil = open(icon,O_RDONLY))==-1){ 
        close(fil);
        fil = open(icon,O_WRONLY + O_CREAT);
        for(x=0;x<24;x++){
            for(y=0;y<80;y++){
              prnt[x][y] = 0;
            }
        }

  }
  else {
       read(fil,&prnt,sizeof(prnt));
       close(fil);
       fil = open(icon,O_WRONLY + O_CREAT);
  }
  if(choice == 'y'){
  }
  else{
    scr_clear();
    printf("\n\n\n         P paints right.\n");
    printf("         O paints left.\n");
    printf("         R erases right.\n");
    printf("         E erases left.\n");
    printf("         Q key quits.\n\n");
    printf("     Use the arrow keys to move around.\n\n\n");
    printf("     Press any key to continue.\n");
    choice = quest(&choice);
    scr_clear();
    for(x=0;x<24;x++){
        for(y=0;y<80;y++){
          if(prnt[x][y] == 1){
              printf("%c",219);
           }
           else {
              printf("%c",255);
           }
        }
    }
    while(choice != 'q') {
     choice = scr_getc();
     if(choice == 208) {
       lin++;
     }
     else if(choice == 200) {
       lin--;
     }
     else if(choice == 205) {
       col++;
     }
     else if(choice == 203) {
       col--;
     }
     else if(choice =='p' ) {
         printf("%c",219);
         prnt[lin][col] = 1;
         col++;
     }
     else if(choice =='o' ) {
         printf("%c",219);
         prnt[lin][col] = 1;
         col--;
     }
     else if(choice =='r' ) {
         printf("%c",255);
         prnt[lin][col] = 0;
         col++;
     }
     else if(choice =='e' ) {
         printf("%c",255);
         prnt[lin][col] = 0;
         col--;
     }
     else ;
     if(col < 0) {
        col = 79;
     }
     if(lin < 0) {
        lin = 23;
     }
     if(col > 79) {
        col = 0;
     }
     if(lin >23) {
        lin = 0;
     }
     scr_curs(lin,col);
    }
    write(fil,&prnt,sizeof(prnt));
  }
  close(fil);
  printf("Print it?\n");
  quest(&choice);
  if(choice != 'y') exit();
  fp = fopen("PRN","w");
  fprintf(fp,"\n");
  for(x = 0;x<24;x++) {
    for(z=0;z<4;z++){
       fprintf(fp,"%c%c",27,75);
       fprintf(fp,"%c%c",80,0);
       for(y = 0;y<80;y++) {
         if(prnt[x][y] == 1) fprintf(fp,"%c",128);
         else
            fprintf(fp,"%c",0);
       }
       for(y=0;y<255;y++) 
         fprintf(fp,"%c",0);
       fprintf(fp,"\r");
       fprintf(fp,"%c%c",27,74);
       fprintf(fp,"%c",1);
       fflush(fp);
    }
  }
  fclose(fp);
  scr_clear();
}