Procedure getpic( VAR picname:str20);
{This procedure will clear the screen and display the picture
 in the named file}

Begin
   Window(1,1,80,25);
   Clrscr;                              {Clear Screen}
   For i:=1 to 24 do Screen[i]:='';
   Assign(Source,Picname);              {Assign pic name to be displayed}
   Reset(Source);
   i:=1;
   While not EOF(Source) do             {Read picture and put in array}
      begin
        Readln(Source,Line);
        Screen[i]:=Line;
        Fastwrite(Screen[i],7,0,2);     {Display picture}
        i:=i+1;
      end;
   Snapshot(1);                         {Save picture for future use}
end;