home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB08.ZIP / SENDASCI.INC < prev    next >
Encoding:
Text File  |  1985-02-23  |  1.6 KB  |  85 lines
  1. PROCEDURE send_asc;
  2. VAR a:CHAR;
  3.     infile:TEXT;
  4.     file_name:STRING[20];
  5.     ok,go_back:BOOLEAN;
  6. BEGIN
  7.   xcoord:=WHEREX;
  8.   go_back:=FALSE;
  9.   ycoord:=WHEREY;
  10.   MOVE(screen1,screen2,4000);
  11.   NORMVIDEO;
  12.   LOWVIDEO;
  13.   WINDOW(1,1,80,21);
  14.   NORMVIDEO;
  15.   TEXTCOLOR(cyan);
  16.   frame(14, 5,36,11);
  17.   LOWVIDEO;
  18.   WINDOW(15,6,35,10);
  19.   REPEAT
  20.      CLRSCR;
  21.      GOTOXY(1,1);
  22.      TEXTCOLOR(white);
  23.      WRITELN('  Send File (Ascii)');
  24.      beep;
  25.      TEXTCOLOR(7);
  26.      WRITELN;
  27.      WRITELN(' Enter File Name ');WRITE(' > ');
  28.      READLN(file_name);
  29.      IF LENGTH(file_name) > 0 THEN
  30.      BEGIN
  31.      ASSIGN(infile, file_name);
  32.      {$I-} RESET(infile) {$i+};
  33.      ok:=(IORESULT=0);
  34.      END ELSE
  35.             BEGIN
  36.             go_back:=TRUE;
  37.             ok:=TRUE;
  38.             END;
  39.      IF NOT ok THEN WRITELN('File Not found');
  40.      DELAY(2000);
  41.   UNTIL ok;
  42.   IF NOT go_back THEN
  43.   BEGIN
  44.   NORMVIDEO;
  45.   MOVE(screen2,screen1,4000);
  46.   LOWVIDEO;
  47.   WINDOW(1,1,80,21);
  48.   GOTOXY(1,1);
  49.   INSLINE;
  50.   TEXTCOLOR(white+blink);
  51.   WRITE(CHR(16):35);
  52.   TEXTCOLOR(7);
  53.   WRITE(' SEND FILE ');
  54.   TEXTCOLOR(white+blink);
  55.   WRITELN(CHR(17));
  56.   NORMVIDEO;
  57.   LOWVIDEO;
  58.   WINDOW(1,2,80,21);
  59.   CLRSCR;
  60.   GOTOXY(1,21);
  61.   TEXTCOLOR(maincolor);
  62.   REPEAT
  63.      READ(infile,a);
  64.      WRITE(a);
  65.      write_byte(a);
  66.   UNTIL EOF(infile);
  67.   WRITELN;WRITELN;WRITELN('DONE.');
  68.   DELAY(2000);beep;beep;
  69.   END;
  70.   NORMVIDEO;
  71.   MOVE(screen2,screen1,4000);
  72.   LOWVIDEO;
  73.   WINDOW(1,1,80,21);
  74.   TEXTCOLOR(maincolor);
  75.   GOTOXY(xcoord,ycoord);
  76.  END;
  77.  
  78.  
  79.  
  80.  
  81. E(screen2,screen1,4000);
  82.   LOWVIDEO;
  83.   WINDOW(1,1,80,21);
  84.   TEXTCOLOR(maincolor);
  85.