⍝ Quote_quad.tc

⍝ assignment ----------------------------------

      2 3 4,⍞←'A HA '
A HA 2 3 4 A HA 


      )ERASE FOO
∇ FOO X
  ⍞←'X '
  ⍞←'IS'
  ⍞←' '
  ⍞←X
∇

      FOO 13
X IS 13

      )ERASE GOO
∇ GOO
  ⍞←2 3ρι6
  ⍞←' IS A MATRIX'
∇


      GOO
1 2 3
4 5 6 IS A MATRIX

⍝ reference ----------------------------------

      RESULT←⍞
WHAT IS 3+4?

      ρRESULT
12

      RESULT
WHAT IS 3+4?

⍝ quotes ----------------------------------

      X←⍞
'DON''T STOP'

      X
'DON''T STOP'

      ρX
13

⍝ prompts and responses ----------------------------------

      )ERASE XPRMPT
∇ Z←XPRMPT
  ⍞←'SUPPLY →→ '
  Z←⍞
∇

      ⎕PR←''
      RESULT←XPRMPT
SUPPLY →→ 19

      RESULT
SUPPLY →→ 19

      ρRESULT
12


      ⎕PR←'⋆'
      RESULT←XPRMPT
SUPPLY →→ 19

      RESULT
⋆⋆⋆⋆⋆⋆⋆⋆⋆⋆19

      ρRESULT
12

      ⎕PR←' '
      RESULT←XPRMPT
SUPPLY →→ 19

      RESULT
          19

      ρRESULT
12

⍝ prompt changes ----------------------------------

      )ERASE FN2
∇ Z←FN2
⍞←'CHANGE THE PROMPT: '
Z←⍞
∇

      ⍝  override the last 8 prompt chars 'PROMPT: ' prompt by 'ENTRY 45'
      ⎕PR←''
      RESULT←FN2
CHANGE THE PROMPT: ENTRY   45
      ρRESULT
21
      RESULT
CHANGE THE ENTRY   45


      ⎕PR←'⋆'
      FN2
CHANGE THE PROMPT: ENTRY   45
⋆⋆⋆⋆⋆⋆⋆⋆⋆⋆⋆ENTRY   45


      ⎕PR←' '
      FN2
CHANGE THE PROMPT: ENTRY   45
           ENTRY   45

⍝ Interrupt ----------------------------------

  ⍝ TODO

      ⍝ Regression
      ⍝
      ⍞←1,'x'
1 x

      )ERASE FOO FN2 GOO XPRMPT

⍝ regression

      )ERASE test
∇test;zz
 ⍞←'111111 '
 zz←⍞
 ⍞←'222222 '
 zz←⍞
∇
      test
111111 
222222 

      )ERASE test

      ⍝ nested prompt
      ⍝
      ⍞←' PPPPP: ' ◊ Z←⍞
 PPPPP: IIII

      Z
        IIII


      ⍞←⊂'PPPPP:' ◊ Z←⍞
 PPPPP: IIII

      Z
        IIII

⍝ ==================================

