CMD.ADMIN.ROADS
here
Content:
$admin roads:@pemit %#={
[fbcreate(F)]
[iter([lnum(0,5)],
  [iter([lnum(0,8)],
    [fbwrite(F,
     [mul(itext(1),8)],
     [mul(itext(0),5)],
     [setq(t,[add(itext(1),mul(itext(2),8))])]
     [showpicture(DNDROAD%qt)]%b%qt%b
     [itext(1)] [inum(1)] [itext(2)] [inum(2)]
    )]
  )]
)]
[fbsave(F,SCRATCH)]
%r[showpicture(SCRATCH)]
[fbdestroy(F)]
}

One line version:

$admin roads:@pemit %#={[fbcreate(F)][iter([lnum(0,5)],[iter([lnum(0,8)],[fbwrite(F,[mul(itext(1),8)],[mul(itext(0),5)],[setq(t,[add(itext(1),mul(itext(2),8))])][showpicture(DNDROAD%qt)]%b%qt%b[itext(1)] [inum(1)] [itext(2)] [inum(2)])])])][fbsave(F,SCRATCH)]%r[showpicture(SCRATCH)][fbdestroy(F)]}