j=1
for (i=1;i<5000 ; {i++; j++}) {
if(j == 250) then
   $write sys$output "Pass ",i
   j=0;
   $stat 0 34 ?status
fi
!
! The below reads rpi1 and then writes it, if an error occurs
! then it will propogate
!
$
$ aed rpi1
$ aed rpi1 x
$ aed [levy.paul]monster
}
$stat 0 34 ?status
$logout