diff options
-rw-r--r-- | runtime/start.apl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/runtime/start.apl b/runtime/start.apl new file mode 100644 index 0000000..46a0703 --- /dev/null +++ b/runtime/start.apl @@ -0,0 +1,15 @@ +send←⍈ ⍝ I can't type those easily so give them names +recv←⍇ +prompt←6⍴' ' +session←{ + (task data)←{1 ⍵} recv ⍬ + ⎕rawio←{¯1≡⍵:'???:' ⋄ ⍵,':'} task ⎕tasks 1 + ⎕rawio←data + ⍞rawio←prompt + ∇⍵ +} + +⎕←'Welcome to APL9' +⍞rawio←prompt + +⎕session←session&'session'⊢⍬
\ No newline at end of file |