Var
   w,h,pixels:integer;
   mm,fName: string;
Procedure  DrawLine;
    begin
      SetForegroundColor(30);
      SetBackgroundColor(0);
      SetLineWidth(5);
      if pixels=0 then 
          pixels :=GetNumber('Input line length in pixels!',50,0);
      MoveTo(9,116);
      LineTo(9+pixels,116);
      SetForegroundColor(255);
      SetLineWidth(3);
      MoveTo(10,117);
      LineTo(10+pixels,117);
      pixels:=0;
    end;

Procedure  DrawCal;
    begin
      if mm='' then 
                mm :=GetString('Input Cal_Line length in mm!','1');
      SetForegroundColor(30);
      SetBackgroundColor(0);
      MoveTo(145,116);
      Write(mm,' mm');
      SetForegroundColor(30);
      SetBackgroundColor(0);
      MoveTo(145,118);
      Write(mm,' mm');
      SetForegroundColor(30);
      SetBackgroundColor(0);
      MoveTo(144,117);
      Write(mm,' mm');
      SetForegroundColor(30);
      SetBackgroundColor(0);
      MoveTo(146,117);
      Write(mm,' mm');
      SetForegroundColor(255);
      SetBackgroundColor(0);
      MoveTo(145,117);
      Write(mm,' mm');
      mm:='' ;
    end;
    
Procedure MakeCalPICT;
    begin
      if fName='' then fName:= 'Untitled';
      MakeNewWIndow('Cal');
      SetLineWidth(3);
      DrawLine;
      DrawCal;
      SetSaveAs('PICT');
      SaveAs(fName);
      Close;
      fName:='';
     end;

macro 'doCal';
    begin
      h:=128;
      w:=192;
      SetNewSize(w,h);
      SetFont('Helvetica');
      SetFontSize(9);
      pixels:=0;
      mm:='' ;
      fName:='';
      
      {ファイル単位のコマンドラインを挿入}
      
    end;