SYSTEM( RUN )

WRITE(Messagebox='?Y', IOStat=ios) "Another Fork?"
IF(ios == 2) ALARM(999) ! quit immediately

! assume this script is stored as 'Fork.hic'
SYSTEM(SHell='Fork.hic')

BEEP("c e g 'c")
WRITE(Messagebox="!") "Waiting ..."
ALARM(999)              ! quit immediately