12 lines
277 B
Text
12 lines
277 B
Text
|
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
|