runtime/start.apl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
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'⊢⍬