home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBO.ZIP / GENLIB.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-09-10  |  1.2 KB  |  48 lines
  1. TYPE WORKNAME = STRING[14];  WORKFILE = FILE OF CHAR;
  2.  
  3. procedure OpenInFile(VAR InFile: WORKFILE; VAR InFileName: WORKNAME);
  4. var OK: Boolean;
  5. begin
  6.   repeat
  7.     Write('Enter name of file ');
  8.     Readln(InFileName);
  9.     Assign(InFile,InFileName);
  10.     {$I-} Reset(InFile) {I+} ;
  11.     OK := (IOresult = 0);
  12.     if not OK then Writeln('Cannot find file ',InFileName);
  13.   until OK
  14. end;
  15.  
  16.  
  17. (* procedure for drawing a box *)
  18. procedure drawbox(x1,y1,x2,y2: integer);
  19.   var i : integer;
  20.   begin
  21.      gotoxy(x1,y1);
  22.      for i := x1 to x2 do write('-');
  23.      gotoxy(x1,y1+1);
  24.      for i := y1+1 to y2 do
  25.      begin
  26.         gotoxy(x1,i); write('!');
  27.         gotoxy(x2,i); write('!');
  28.      end;
  29.      gotoxy(x1,y2);
  30.      for i := x1 to x2 do write('-');
  31.   end; (* of procedure drawbox *)
  32.  
  33. (* procedure for drawing a circle *)
  34. procedure drawcircle(x1,y1,r: integer);
  35.    var temp,x,z : integer;
  36.    begin
  37.    z := x1-r;
  38.    for x := z to x1 do
  39.    begin
  40.      temp := y1-trunc(sqrt(r*r-(x1-x)*(x1-x)));
  41.      gotoxy(x*2,temp); write('a');
  42.      gotoxy(x*2,2*y1-temp); write('b');
  43.      gotoxy((2*x1-x)*2,temp); write('c');
  44.      gotoxy((2*x1-x)*2,2*y1-temp); write('d');
  45.    end;
  46.    end;
  47.  
  48.