# Usage: FORWARD <time-spec>
# seconds forward command compatible script for 2seconds.
#
if ( eq ( string $TIME ) ( string Genesis ) ) evalx 'error L01 200 "No simulation Image!\n"'
define abrt abrt.$PID\.$CNUM
speakp $abrt
abort
speakx
abort 255
define start $TIME
let rpt report
if ( ne ( index ( string "$rpt" ) ( string on ) ) 0 )
    report off
    sch_add +1 simulating-forward "report on ; echo report comes on"
    sch_add
    sch_mv  +1 simulating-forward +1
    sch_add
    forward $ARGL ;
    sch_add
    define status $STATUS
    echo $TIME $start
    if ( eq $TIME $start ) ;  sch_rmv +1 simulating-forward
    else                   ;  report do
    endif
    report on ; report
else
    forward $ARGL
    define status $STATUS
endif
listen $abrt ; delete $abrt
leave $status
