! Simple stuff: print out a map of partition layout on the disc.

%include "CONFIG.INC"

%begin
   %integer i
      printstring("Disc size: ");  write(disc size, 0);  newline
      printstring("Boot area: 0..");  write(head size - 1, 0);  newline
      %for i = 0, 1, last partition %cycle
         printstring("P ");  write(i, 0);  printstring(": ")
         write(p start(i), 0);  printstring("..")
         write(p start(i) + fp size - 1, 0);  printstring(" (")
         write(pd start(i), 0);  printstring("..")
         write(pd start(i) + dp size - 1, 0);  print symbol(')')
         newline
      %repeat
      printstring("System area: ")
      write(sy2 start, 0);  printstring("..")
      write(sy2 start + head size - 1, 0);  newline
%end %of %program