ArrayMac > Function display > xHTMLofAPL

     ∇ xHTMLofAPL←{                                                             
[1]   ⍝∇ 20131011/20150418 ra⌈ --()--                                           
[2]        ~ALP ⍵:⍵                                                             
[3]        0∊⍴⍵:⍵                                                               
[4]        ,{⊃⍺⍺/⍵}{u←⎕UCS ⍵ ⋄ u>255:u omrepl'&#⍵;' ⋄ ⍵}⍵                      
[5]    }                                                                        
     ∇                                                                          

Page served at: Wed, 08 Apr 2020 05:28:47 AST.