﻿⍝ Futures and Isolate scripts
⍝ Part 4 - IIX.PEACH
]load D:\docs\IsolateWork\IIX
1111⌶⍬
('⎕DL' IIX.PEACH ⍬) 40⍴1
iss←isolate.New¨10⍴⊂'' ⍝ 10 empty isolates
('⎕DL' IIX.PEACH iss) 40⍴1
)erase iss
NS←⎕NS ''
NS.(FOO←{⎕DL 2×⍵})
IIX.⎕NL 3
⎕FX 'abort←caption Progress data' '⎕←caption data ⋄ abort←0'
⎕VR 'Progress'    
('FOO' 'Progress' 'FOO is running' IIX.PEACH NS) 20⍴0.5
⍝ Exercise 4