Cкроллинг в Borland 3.1(Графический режим).

#include <conio.h>
#include <stdio.h>
#include <string.h>
#include <math.h>
#include <alloc.h>
#include <graphics.h>
#include <IO.h>
#include <dos.h>
#define CLIP_ON 1
#include <process.h>
#include <iostream.h>
struct REGPACK ioregs,regs;
char *font[] = { "DEFAULT_FONT",
                 "TRIPLEX_FONT",
                 "SMALL_FONT",
                 "SANS_SERIF_FONT",
         "GOTHIC_FONT"
               };
 
 
char *dir[] = { "HORIZ_DIR", "VERT_DIR" };
 
 
char *hjust[] = { "LEFT_TEXT", "CENTER_TEXT", "RIGHT_TEXT" };
 
 
char *vjust[] = { "BOTTOM_TEXT", "CENTER_TEXT", "TOP_TEXT" };
char *clip[] = { "OFF", "ON" };
main()
 
{ int gdriver=DETECT,gmod,errorcode;
  int midx,midy;
  struct textsettingstype textinfo;
  struct viewporttype viewinfo;
  int nbuttons, OK;
 
 
 
  char *a,*xrange,*yrange;
  int x1=80,x2=90,y1=1,y2=200;
  initgraph(&gdriver,&gmod, "");
  errorcode = graphresult();
  {
  ioregs.r_cx=x1;
  ioregs.r_dx=x2;
  ioregs.r_ax=7;
  geninterrupt(0x33);
  ioregs.r_cx=y1;
  ioregs.r_dx=y2;
  ioregs.r_ax=8;
  geninterrupt(0x33);
  }
  ioregs.r_ax=0;
  intr(0x33,&ioregs);
  ioregs.r_ax=1;
  intr(0x33,&ioregs);
 
  if (errorcode != grOk)
{
  printf("Graphics error: %s\n", grapherrormsg(errorcode));
  printf("Press any key to halt:");
  getch();
  ioregs.r_ax=1;
  exit(1);
}
  else
{
   
    clrscr();
    FILE *in=fopen("one.txt", "r"),*out;
    char *str,*a,*c;
    fseek(in,0,SEEK_END);
    fseek(in,0,SEEK_SET);
    int z,x,y,r,o,i,ht,k,n,N=10000;
    a=(char*)calloc(N,sizeof(int));
    str=(char*)calloc(N,sizeof(int));
    c=(char*)calloc(N,sizeof(int));
    cleardevice();
       //  setviewport(0,0,0,0,0);
    while(!(feof(in)))
    {
    fgets(str,x,in);
    r=strlen(str);
       // textmode(C80);
    setcolor(GREEN);
    textbackground(GREEN);
 
    midx;
    midy;
    midx=getmaxx()/2;
    midy=getmaxy()/2;
    settextjustify(CENTER_TEXT,CENTER_TEXT);
   //  ht=textheight("W");
    outtextxy(midx,midy,str);
    midy+=textheight(str);
        }
    fclose(in);
    getch();
    ioregs.r_ax=2;
    delay(1);
    switch(getch())
{
    case 27:
    exit(1);
    break;
}
    free(a);
    free(str);
    free(c);
    
}
    closegraph();
    return(0);
}