%include "edwin:specs.inc"
%include "edwin:consts.inc"
%include "utils:region"
%begin
%integer ref,size,i,j,dev
%bytearray epic(0:128*512)
%string(255) file

prompt("Input File:");read(file)

accessfile(file,0,ref,size)
readregion(ref,0,size,epic(0))
deaccessfile(ref)

openoutput(1,file.".pdf")

dev=default device
initialise for(dev)
newframe
storeon(1)
setcolour(red)

%for j=0,1,512 %cycle
i=0
  %while i<129 %cycle
    %if epic(j+i*512)=1 %start
      moveabs(2*j,2*i)
      i=i+2
        %while i<129 %and epic(j+i*512)=1 %cycle
          i=i+2
        %repeat
        %if i>128 %then i=128
        lineabs(2*j,2*i)
    %finish
    i=i+1
  %repeat
%repeat
terminate edwin
%endofprogram
