home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MANSET.ZIP / QUIKPLOT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-03-22  |  670 b   |  30 lines
  1.  
  2. {QUIKPLOT.PAS}
  3.  
  4. {$U+,V-}
  5. var z,zi,tz,tzi,c,ci,size,acorn,bcorn,side,mgap,ngap:real;
  6.     RecItem,BuffItem,m,n,half:integer;
  7.     clr,count:byte;
  8.     ch:char;
  9.     outfile:file;
  10.     AnyString:String[20];
  11.     Filename:String[8];
  12.     Buffer: Array[1..128,1..256] of Char;
  13.     OK      : Boolean;
  14. {$I Graph.p }
  15. {$I Beeper.pas}
  16. begin
  17.      Write('Picture Name ? ');
  18.      Readln(Filename);
  19.      AnyString:=Filename+'.PIC';
  20.      Assign(outfile,AnyString);
  21.      reset(outfile);
  22.      BlockRead(Outfile,Buffer,256);
  23.      GraphColorMode;
  24.      PutPic(Buffer,1,199);
  25.      Close(outfile);
  26.      Repeat Until Keypressed;
  27.      read(kbd,ch);
  28.      TextMode;
  29. end.
  30.