Net2/usr/src/usr.bin/pascal/tstpx/out/t09.out

       100         0
         0         0
     10000       -10

19 statements executed in 0.05 seconds cpu time.