#include <stdio.h>

struct OutParmStruct {
      char *Name;
      char *Device;
      unsigned Width,Height;
      unsigned Top,Bottom;
      unsigned Left,Right;
      char *Condens;
      char *Elite;
      char *Pica;
      char *NLQ;
      char *Draft;
      char *Large[2];		/* 0=Off    1=On */
      char *LineSpace[2];	/* 0=8 lpi  1=6 lpi */
      char *Eject;
      char *Reset;
      int Pause;
} OutParm[]={
     {"Console Screen","CON:0/0/640/256/Cas:Prg Output",80,24,0,0,0,0,"","","","","","","","","","\x1B[2J","",1},
     {"Amiga Printer ESC Codes","PRT:",80,72,2,4,5,2,"\x1B[4w","\x1B[2w","\x1B[0w","\x1B[2\"z","\x1B[1\"z","\x1B[5w","\x1B[6w","\x1B[0z","\x1B[1z",NULL,"\x1B""c\x1B[0w",0},
     {"IBM Pro Printer","PAR:",80,72,2,4,5,2,"\x1B\x0F","\x1B\x50","\x1B\x4D","\x1B\x78\x01","\x1B\x78\x30","\x1B\x57\x30","\x1B\x57\x01","\x1B\x30","\x1B\x32","\x0C","\x1B\x40",0},
     {"NEC LC866+","PAR:",80,72,2,4,5,2,"\x1B&k1S\x1B(s0T","\x1B(s12h2T","\x1B(s10h1T","","","","","","","\x0C","",0},
     {"Star LC-10","PAR:",80,72,2,2,2,2,"\x1B\x0F","\x1B\x3A","\x1B\x50","\x1B\x6B\x01\x1B\x78\x01","\x1B\x78\x30","\x1B\x57\x30","\x1B\x57\x01","\x1B\x30","\x1B\x32","\x0C","\x1B\x40",0},
     {NULL}
};

void InitPrg() {
     system("FF >nil: Border.Font");
     system("Stack 10000");
     printf("\x9B\x3F\x37\x6C");    /* Disable line wrap */
     printf("\x9B""250\x74");       /* Page length */
     printf("\x9B""80\x75");        /* Line width 80 chars */
     printf("\x9B""0\x78");         /* Left offset */
     printf("\x9B""0\x79");         /* Top offset */
}

unsigned long coreleft() {
     return AvailMem(0);
}

void revvideo() {
     printf("\x9B""7;31;40m");
}

void highvideo() {
     printf("\x9B""0;33;40m");
}

void normvideo() {
     printf("\x9B""0;31;40m");
}

void clrscr() {
     printf("\x0C");
}

void Wait() {
     highvideo();
     printf("(Press Enter...)");
     normvideo();
     rewind(stdin);
     getchar();
}

void BuildScreen(char *Function) {
      clrscr();
      printf(" ¤¡¡¡¡¡¡ ¤¡¡¡¡¡  ¤¡¡¡¡¡¡     ¤¡¡¡¡¡¡ ¤¡¡¡¡¡¡  ¤¡¡¡¡¡ ­\n");
      printf("¤¡¡°°°°þ¤¡¡°°µ¡¡¤¡¡°°°°þ ¤¡¡ å¡¡°°µ¡¡å¡¡°°µ¡¡¤¡¡°°°þ  \n");
      printf("å¡¡     å¡¡¡¡¡¡¡®µ¡¡¡¡¡  ®°þ å¡¡¡¡¡¡þå¡¡¡¡¡¡þå¡¡¤¡¡¡¡ \n");
      printf("å¡¡     å¡¡°°µ¡¡ ®°°°µ¡¡ ¤¡¡ å¡¡°°°þ å¡¡µ¡¡þ å¡¡®°µ¡¡ \n");
      printf("®µ¡¡¡¡¡¡å¡¡  å¡¡¤¡¡¡¡¡¡þ ®°þ å¡¡     å¡¡®µ¡¡¡®µ¡¡¡¡¡þ \n");
      printf(" ®°°°°°þ®°þ  ®°þ®°°°°°þ      ®°þ     ®°þ ®°°þ ®°°°°þ  \n");
      revvideo();
      printf(" %-36s å Cas:Prg 1.1a (C) 1990 by RS Bob Muller ",Function);
      normvideo();
      printf("\n\n");
}