From d07d4afcb8acff3757394f2f9822d014f31fecf0 Mon Sep 17 00:00:00 2001
From: glenda <glenda@cirno>
Date: Sat, 10 Sep 2022 00:24:56 +0000
Subject: Add session start file

---
 runtime/start.apl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 runtime/start.apl

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
-- 
cgit v1.2.3