summaryrefslogtreecommitdiff
path: root/runtime/start.apl
diff options
context:
space:
mode:
Diffstat (limited to 'runtime/start.apl')
-rw-r--r--runtime/start.apl15
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