ÖÐ }<$‰C{DQ#}g‡$hÆ‡üÒ‡œÕ‡,D‰D‰@ ‰‚vIhÂ%<= ä›‡(‰‰ð‰,´‡p ‰§A X ‰¸‡X ‰5405894ffd,†4Aˆ4'<‰† \ì ‡ÜF‡Ú@S‡¬µ…@S‡èQ‡èQ‡¸ä„”Ø…à(†¤‰ä†…h&†<+†ä†…Ô…‚$+†ür… †ÜÕ…£ƒÜÕ…Ä…äŠ‚¨Ø„Ü†Dï„D†…Ã…<Û…M('†äí„\Þ…Œ‰hà„`½…þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ \rDYALOG~ P#! 1#~ {~} ~ {not} ~ {less} ~ {without} ! {!} \ {\} | {|} þ | þ {abs} þ {residue} þ {stile} þ {mod} þ {magnitude} ' {'} ^ {and} ^ {^} ^ {lcm} ^ {*.} @ {@} ¦ @ ¦ {lamp} ¦ {comment} ¦ {capnull} ¦ {rem} ¦ {nb.} ¦ {u+235d} # {#} • # • {quad} • {box} • {u+25af} & {&} & {diamond} {<>} {u+25ca} { {leftbrace} { {(} { {from} } {rightbrace} } {)} ý {neg} ý {-} ý {negative} ý {highminus} ý {overbar} ý {_} ý {u+00af} {<-} {is} {gets} {assign} {leftarrow} {=.} {=:} {:=} {u+2190} {->} {goto} {go} {branch} {rightarrow} {u+2192} † {/=} † {ne} † {noteq} † {notequal} † {unequal} † {nubsieve} † {=/} † {~=} † {~:} † {u+2260} ò {>=} ò {ge} ò {gteq} ò {greq} ò {notless} ò {<:} ò {u+2265} ó {<=} ó {le} ó {lteq} ó {notgreater} ó {>:} ó {u+2264} ú {or} ú {gcd} ú {+.} ú {u+2228} ê {nand} ê {~^} ê {*:} ê {u+2372} å {nor} å {+:} å {u+2371} ’ {signum} ’ {times} ’ {x} ’ {sign} ’ {*} ’ {direction} ’ {u+00d7} ö {divide} ö {reciprocal} ö {%} ö {u+00f7} {ln} {log} {circlestar} {^.} {u+235f} {gradeup} {upgrade} {deltastile} {/:} {u+234b} {gradedown} {downgrade} {delstile} {\:} {u+2352} {ceiling} {max} {upstile} {greater} {>.} {u+2308} {floor} {min} {downstile} {lesser} {<.} {u+230a} æ {basevalue} æ {decode} æ {base} æ {downtack} æ {#.} æ {u+22a4} ç {represent} ç {encode} ç {top} ç {uptack} ç {#:} ç {u+22a5} ô {format} ô {topnull} ô {fmt} ô {thorn} ô {":} ô {u+2355} õ {execute} õ {do} õ {basenull} õ {eval} õ {".} õ {u+234e} ˜ {domino} ˜ {quaddivide} ˜ {%.} ˜ {u+2339} — {quotequad} — {u+235e} ù {pitimes} ù {circle} ù {o.} ù {u+25cb} ø {jot} ø {null} ø {u+2218} ë {slashbar} ë {compressbar} ë {reducebar} ë {/-} ë {u+233f} § {backslashbar} § {slopebar} § {expandbar} § {scanbar} § {\-} § {u+2340} è {reverse} è {rotate} è {circlestile} è {rev} è {|.} è {u+233d} é {reversebar} é {rotatebar} é {circlebar} é {u+2296} í {transpose} í {|:} í {u+2349} {first} {take} {uparrow} {mix} {u+2191} {split} {drop} {downarrow} {raze} {u+2193} à {alpha} à {u+237a} î {enlist} î {epsilon} î {memberof} î {membership} î {in} î {member} î {e.} î {u+2208} â {iota} â {indexof} â {i.} â {u+2373} û {rho} û {shape} û {reshape} û {$} û {u+2374} {omega} {u+2375} {each} {dieresis} {with} {u+00a8} {righttack} {lev} {stop} {[} {u+22a2} {lefttack} {dex} {pass} {]} {u+22a3} {disclose} {pick} {superset} {rightshoe} {weakenclose} {link} {>} {u+2283} {enclose} {subset} {leftshoe} {<} {u+2282} ï {upshoe} ï {intersection} ï {cap} ï {u+2229} ü {downshoe} ü {union} ü {cup} ü {u+222a} ì {del} ì {u+2207} ‘ {delta} ‘ {u+2206} ñ {delta_} ñ {deltaunderscore} ñ {deltaunderbar} ñ {u+2359} {deltilde} {u+236b} {ibeam} {u+2336} ž {commabar} ž {catbar} ž {,-} ž {table} ž {u+236a} ã {jotdieresis} ã {on} ã {rank} ã {cut} ã {"} ã {paw} ã {u+2364} ä {circledieresis} ä {hoof} ä {upon} ä {u+2365} ð {depth} ð {match} ð {equalunderscore} ð {equalunderbar} ð {equal_} ð {=_} ð {-:} ð {u+2261} {notmatch} {~=_} {u+2262} {zilde} {0~} {u+236c} © {squad} © {squishquad} © {index} © {u+2337} {find} {epsilon_} {epsilonunderscore} {epsilonunderbar} {u+2377} {iota_} {iotaunderscore} {iotaunderbar} {u+2378} Ÿ {tildedieresis} Ÿ {u+2368} œ {pounds} œ {u+00a3} › {cent} › {leftshoestile} › {cents} › {u+00a2} {yen} {u+00a5} ª {uptackdieresis} ª {encodedieresis} ª {u+2361} « {deldieresis} « {u+2362} ¬ {stardieresis} ¬ {u+2363} {quadjot} {u+233b} {quadbackslash} {quadslope} {u+2342} {u+0000} {u+263a} {u+0007} {u+0008} {u+0009} {u+000a} {u+000c} {u+00f9} {u+001b} {u+007f} € {u+00c7} {u+00fc} ‚ {u+00e9} ƒ {u+00e2} „ {u+00e4} … {u+00e0} ‡ {u+00e7} ˆ {u+00ea} ‰ {u+00eb} Š {u+00e8} ‹ {u+00ef} Œ {u+00ee} Ž {u+00c4} {u+00c9} “ {u+00f4} ” {u+00f6} – {u+00fb} ™ {u+00d6} š {u+00dc} {u+00e1} ¡ {u+00ed} ¢ {u+00f3} £ {u+00fa} ¤ {u+00f1} ¥ {u+00d1} ¨ {u+00bf} {u+00a1} ® {u+00ab} ¯ {u+00bb} ° {u+2591} ± {u+2592} ² {u+2593} ³ {u+2502} ´ {u+2524} µ {u+2561} ¶ {u+2562} · {u+2556} ¸ {u+2555} ¹ {u+2563} º {u+2551} » {u+2557} ¼ {u+255d} ½ {u+255c} ¾ {u+255b} ¿ {u+2510} À {u+2514} Á {u+2534} Â {u+252c} Ã {u+251c} Ä {u+2500} Å {u+253c} Æ {u+255e} Ç {u+255f} È {u+255a} É {u+2554} Ê {u+2569} Ë {u+2566} Ì {u+2560} Í {u+2550} Î {u+256c} Ï {u+2567} Ð {u+2568} Ñ {u+2564} Ò {u+2565} Ó {u+2559} Ô {u+2558} Õ {u+2552} Ö {u+2553} × {u+256b} Ø {u+256a} Ù {u+2518} Ú {u+250c} Û {u+2588} Ü {u+2584} Ý {u+258c} Þ {u+2590} ß {u+2580} á {u+00df} ÷ {u+201e} ÿ {u+00a0} P#$// $ €éF' , tæf¸ š²| {|} þ | @ {@} ¦ @ # {#} • # & {&} & { {leftbrace} } {rightbrace} ý {neg} {<-} {->} † {/=} ò {>=} ó {<=} ú {or} ê {nand} å {nor} ’ {signum} ’ {times} ö {divide} {ln} {log} {gradeup} {gradedown} {ceiling} {max} {floor} {min} æ {basevalue} ç {represent} ô {format} õ {execute} ˜ {domino} — {quotequad} ù {pitimes} ù {circle} ø {jot} ë {slashbar} § {backslashbar} è {reverse} è {rotate} é {reversebar} é {rotatebar} í {transpose} {first} {take} {split} {drop} à {alpha} î {enlist} î {epsilon} â {iota} û {rho} {omega} {each} {righttack} {lefttack} {disclose} {pick} {enclose} ï {upshoe} ü {downshoe} ì {del} ‘ {delta} ñ {delta_} {deltilde} {ibeam} ž {commabar} ã {jotdieresis} ä {circledieresis} ð {depth} ð {match} {notmatch} {zilde} © {squad} {find} {iota_} Ÿ {tildedieresis} œ {pounds} › {cent} {yen} ª {uptackdieresis} « {deldieresis} ¬ {stardieresis} {quadjot} {quadbackslash} {U+0000} {U+263A} {U+0007} {U+0008} {U+0009} {U+000A} {U+000C} {U+00F9} {U+001B} {U+007F} € {U+00C7} {U+00FC} ‚ {U+00E9} ƒ {U+00E2} „ {U+00E4} … {U+00E0} ‡ {U+00E7} ˆ {U+00EA} ‰ {U+00EB} Š {U+00E8} ‹ {U+00EF} Œ {U+00EE} Ž {U+00C4} {U+00C9} “ {U+00F4} ” {U+00F6} – {U+00FB} ™ {U+00D6} š {U+00DC} {U+00E1} ¡ {U+00ED} ¢ {U+00F3} £ {U+00FA} ¤ {U+00F1} ¥ {U+00D1} ¨ {U+00BF} {U+00A1} ® {U+00AB} ¯ {U+00BB} ° {U+2591} ± {U+2592} ² {U+2593} ³ {U+2502} ´ {U+2524} µ {U+2561} ¶ {U+2562} · {U+2556} ¸ {U+2555} ¹ {U+2563} º {U+2551} » {U+2557} ¼ {U+255D} ½ {U+255C} ¾ {U+255B} ¿ {U+2510} À {U+2514} Á {U+2534} Â {U+252C} Ã {U+251C} Ä {U+2500} Å {U+253C} Æ {U+255E} Ç {U+255F} È {U+255A} É {U+2554} Ê {U+2569} Ë {U+2566} Ì {U+2560} Í {U+2550} Î {U+256C} Ï {U+2567} Ð {U+2568} Ñ {U+2564} Ò {U+2565} Ó {U+2559} Ô {U+2558} Õ {U+2552} Ö {U+2553} × {U+256B} Ø {U+256A} Ù {U+2518} Ú {U+250C} Û {U+2588} Ü {U+2584} Ý {U+258C} Þ {U+2590} ß {U+2580} á {U+00DF} ÷ {U+201E} ÿ {U+00A0} ¸L¾fF0›‡(£‡âÜœ‡,.00M„¢‡¬¨‡âDšˆ,.0,p‡¦‡ ,.6,€è•$ , $0 t£‡ô™ˆâ@£‡,. 00›‡<›‡âP§‡,.^}0 XØ[\]^_` ¼¹!tïfÿ ¬äZ A B T <ï!! !"#$%&'()*+,-./0123456789:;<=>?@ C}<Ü€Ø¾¾3 61û'Installed transliteration workspace, version 1.4 (1995.10.15)For instructions, see DESCRIBE in the APLASCII workspace. 'Ø ¨é y[H¢f€0™Ü£‡0¨‡6/ 00uau™hš‡ˆ¥‡6/ 0Üá|} \Þf&äëf€ÈµIPSALx„44ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzL0sio™ˆ‡L¥‡6/ {04 {_"™Ä£‡|¤‡6é {4KfØÙf ; TfÈµf_@H56Ø‰™Ì¥‡Ø‡6™ä¥‡£‡6,+/quH ÀÝAPL68K~ ,! Ø¦‡ô, / ,$+'Dþ (ûÀ‰,À‰,, , {residue} D4 #Ø‰,û¨‰,, 4¬¢f"¬¢fD0/ü³‡´‡,À‰,/,¨Ÿ‡, "D40$Ø‰ûÀ‰`‰,/4((¬Š‡"‡ÿî (¬¢f € D*ûÀ‰,Ø‰,,+/ †L…D0oÀ¤‡ð¢‡â4¥‡,.0ZD'Ø‰àp›‡"…ÿ8†ÿ@ ‰û )Ã…>…DD0 7'Ø‰ßL¦‡"…ÿ8†ÿ@ ‰û 0142144147148DD161'Ø‰ãX£‡"…ÿ8†ÿ@ ‰û 8118218318418D4Úabcdefghijklmnopqrstuvwxyz} 4äífdescriÌÓf@ U ÄÚAPLPLUS Ì A,¢Z A4”ABCDEFGHIJKLMNOPQRSTUVWXYZui4<âf€DÉ.Ø‰ä ¡‡"…ÿ‰,8†ÿ@ ‰û àÉ…D…f6$É(HIKô‡¼œ‡û c(°ÓIPSA(Pá€š‡Ì›‡û (tï{þ}~fAPLPìîf€ TèZ A B { h¶DYALOG Ø‰ TèDYALOGS $è¢$;LÚZ Bˆì|äçf€ÿZ A8øºf55(@ACû Z[(,„…‡À‰â¨¥‡ ñÿ,$+ûDÈÉË1™¼²‡\Ÿ‡6™Ô²‡g‡6, ýþÿDäf€â `ÿñVTOM‘OBJC`ÿñRJUST‘OBJh ñOVER‘OBJC ñTOUPPER‘OBJCB ñDLB‘OBJCh ñMTOV‘OBJCñDTB‘OBJC°ÓIPSAD112'Ø‰â¥‡"…ÿ8†ÿ@ ‰û 1961971981992Df€ñDLTB‘OBJCh ñLJUST‘OBJ ÄñMATIOTA‘OBJC @ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)@L`) ¦ Copyright (c) 1994 Jim Weigang. All rights reserved.L8 (B''û(•STPTR'Z B')•CALL ñVTOM‘OBJ)08`?Q#ÿÿÄè‡„î‡˜³‡ ‡¨©‡\šˆ¤î‡\©‡©‡p ‰` ZñTCNL @ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)@, ¦Carriage return (newline), è Z•TC[•IO+1] @ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)@t# ZñLJUST AñMTOVX •ERROR(5 7 8âA)'RANK ERROR' 'VALUE ERROR' 'WS FULL' 'DOMAIN ERROR'X$|( ZA ñMATIOTA B;TRC$L¬) ¦ Use an APL version for mixed types, Booleans, or nested:L8 (A''û(•STPTR'Z A')•CALL ñDTB‘OBJ)08`?Q#ÿÿd‡Ä®‡P³‡D¬‡|«‡€²‡$‡`t# ZñDLTB A, S0 1’SûB(ý21 1,ûB)ûB,@ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)†@t# ZñDTB A† ø( ZA ñMTOV B ñTCNL@ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)@`?Q#ÿÿÜ¬‡ì²‡p®‡²‡¼±‡ä®‡¸‡`ñDTBT# ¦Deletes leading and trailing blank columns in vector or matrix CT RC @ ¦ Copyright (c) 1988, '92, '94 by Jim Weigang@†?Q#ÿÿ0³‡³‡äý‡¨‡¨ý‡L¨‡þ‡Pý‡ø«‡0þ‡ø¬‡ ý‡ äü‡ «‡p ‰”èñOVER @ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)@< ¦ Copyright (c) 1988, 1994 by Jim Weigang <XA2T •ERROR(1 2 3âB)'WS FULL' 'LENGTH ERROR' 'RANK ERROR' 'DOMAIN ERROR'RTX P @MAC ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)TF@DIT ¦ Copyright (c) 1988, 1989, 1994 by Jim Weigang DXUMS •ERROR(1 2 3âT)'RANK ERROR' 'WS FULL' 'SYNTAX ERROR' 'DOMAIN ERROR'L XXOAW •ERROR(5 7 8âA)'RANK ERROR' 'VALUE ERROR' 'WS FULL' 'DOMAIN ERROR'IPTX8PLñ (A''û(•STPTR'Z A')•CALL ñDLTB‘OBJ)08ñLJUSTPñMATIOTAÿ< ¦ Copyright (c) 1992, 1994 by Jim Weigang<<+ø& $ $ è ZA ñOVER B;S H ¦Deletes trailing blank columns in vector or matrix AHL`) ¦Converts delimited vector to matrix. Delimiter is 1.LñDLTBh&'+' / INSTALL ¼6 º¼3 ` P OP¬M 8#:&925<@7A`, L ,, ,4 $ O44 " Mœ 4( (l ZT„WYZ[\…]^_`aceóÿfgh'i.j0k6l8m;nBoJpNqPl˜ †TVWXYZ[\]^_`abcdeóÿf g"h-iKjPkUlZmengompnqqrusvt{uv€wŒxy”z›{Ÿ˜H 6 OKP>L?óÿ2HL < K>LMóÿ/LfHX ‰@ ‰( ‰ ‰ð‰Ø‰À‰¨‰‰x‰`‰ì·‡H,''ñXNUMS @ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)at@<ontL3:ñERR'' ¦ indicate success If<4plt Z•FI A ¦ the numbers4Dk o (0î•VI A)/0 ¦ quit if any numbers are badD4p o ñERR'contains invalid numbers'>N+4T ¦ A0 ñEJCASE A ¦ convert E/J in numbers to primary alphabet T°axt”ˆ±ÿÿ<ˆ@Ù‡D ˆÌ ˆ˜Ü‡$ˆÔù‡,¾‡| ˆ¹‡ \¹‡ ¹‡ä¸‡¨¸‡ h¸‡° ÄX ¦ Arguments: Dþþþ ¦ form (matrix or vector) as the argument.DTþþþ ¦ Z - text with no line wider than W[1] columns. Has the sameTXþþþ ¦ W[2] - optional indent used for continuation lines. The defaultþþþX@þþþ ¦ W[1] - maximum width for an output line.þþþ@Hþþþ”ˆ±ÿÿàÃ‡€“ˆˆ ˆ”º‡Ã‡Ä‡¤»‡L»‡Ã‡°ë‡ øº‡ ´º‡Xï‡³ˆ Â‡`²ˆpÃ‡¸ï‡dÂ‡Â‡¸Á‡\Á‡ÜÂ‡@Á‡üÀ‡¸À‡œÀ‡LÀ‡À‡Ä¿‡|¿‡”²ˆ4¿‡ ¿‡!Ì¾‡"„¾‡#@¶ˆ$ðµˆ%¤µˆ&Pµˆ'µˆ(Ø´ˆ)”´ˆ*H´ˆ+´ˆ,¼³ˆ-@ü‡.èû‡/û‡0Dû‡1û‡24ð‡3ìú‡4¬ú‡5xú‡68ú‡H4 ñERR'contains complex numbers'4$´ÙñAñ ñWITHTTM ñTTABM$Hþþþ (~C[T])/L5 ¦ If max would split a name,þþHLþþþL4:TW-2 ¦ max that can be put on this lineLþþþ M0 0û''þþHþþþ CC^'{'†1L,' ' ¦ zero out chars to left of {þHHþþþ C(LîV)ú†\Lî'{}' ¦ 1s mark words and {phrases}þHTþþþ ¦ Form C, in which 0s mark chars that can be the last on a line:þþT4þþþ LñDTB Z[J[I];] ¦ the line4PþþþL3:(0=II-1)/L6 ¦ Loop for each long line, last to firstþPþþþ I1+''ûûJþDþþþL2:JJ/âûJ((0,W)Z)ú.†' ' ¦ indices of long linesþDDþþþ ZñVTOM ñTCNL,Z ¦ convert vector to matrixþþþDþþþ (R=2)/L2þ\þþþ V'}{0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_‘ñ•'þþ\\þþþ ¦ V is all the characters considered 'letters' (may be part of a name):þþþ\PþþþL1:H20W-N+1 ¦ num chars to look back for cut pointþþþP<þþþ 0 ¦ exit without result<<þþþ N0(W,0)[2] ¦ continuation indent< RûûZA\8ZñWSID$´Ù ¦ is zero.$<;JK ¦Executes statement à with ñTTABX set to < ÄX (W>N+4)/L1 ñ PñTA ¦ A - text whose long lines should be wrapped. May be aAñP<LACZW ñWRAPLNS A;C;H;I;J;L;M;N;R;S;T;V;•IOì I<L ¦ character matrix or newline-delimited vector. tLLAñWITHTTX@rs[ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)ni@@g.{ R[;2]S[J;B/I] ¦ insert appropriate lettera@<d e JS[;1]â'A' ¦ row holding uppercaseK<<epa R((+/B),4)û'{A_}'¦ replacement prototypet<T(A Z[M]V ¦ insert 3 blanks to left of 3rd case letters3] T< 0 ¦ Else, transliterate (c<Pm e A/L1 ¦ If user doesn't want to preserve 3rd case,PDþþeþæØ‰Ä‰°‰œ‰ˆ‰t‰`‰L‰8‰$‰‰ü‰è‰Ô‰À‰¬‰˜‰„‰p‰\‰H‰0‰‰‰ô‰à‰<öˆ(öˆöˆöˆTùˆ@ùˆ,ùˆùˆàùˆÌùˆ¸ùˆ¤ùˆùˆ|ùˆhùˆè‰Ô‰À‰ ¬‰˜‰!|‰`‰D‰00‰‰lˆ¨‰‰8g‡&x‰‹‡ø‰ä‰ Ð‰¼‰¨‰ ‰”ßˆ€ßˆ<lßˆ8ßˆ$ßˆßˆ4üÞˆèÞˆÔÞˆ9ÀÞˆ:¬Þˆ;˜Þˆ>HÞˆ#íˆ\æˆ/øìˆFäìˆBÐìˆýˆàâˆJìüˆEØüˆG@‰p‰øëˆÌ‰°‰0Ëˆœ‰(ˆ‰t‰`‰L‰8‰$‰S‰$ü‰*è‰Ô‰À‰¬‰˜‰6€‰Od‰K‰‰ì‰Ø‰Ä‰°‰œ‰ˆ‰ü‰2è‰+Ô‰-À‰¬‰˜‰„‰p‰\‰H‰4‰ ‰p‰qø‰rŒ‰H ‰Vìˆü«ˆLTÙˆd¸‰mà ‰¢ˆ[|©ˆÀ©ˆ´”ˆ¬©ˆ˜©ˆ‚(‰%ø‰?‰¨‰U˜”ˆ‡P˜ˆ8˜ˆtÐ“ˆ„ ˜ˆì“ˆzh“ˆT$‹ˆìŽˆotˆˆ|†ˆ˜Šˆ)à€ˆƒÈ„ˆ_,ˆ¸€ˆˆÔqˆ{ø€ˆxˆ5xˆ|ˆ$xˆ¨|ˆðqˆœvˆHlˆ´mˆ84lˆ3¼qˆ4kˆ˜¬~ˆgÄkˆe¤]ˆZŒVˆ™8Sˆ'hKˆ˜Bˆ‰àkˆøkˆ@T:ˆIˆè>ˆpEˆ ÔTˆˆFˆ¡¼=ˆ¨Vˆ¤TˆXXˆ¤Ü1ˆ3ˆW(ˆ6ˆhˆCø]ˆÈ0ˆnàˆ¬ˆ,øˆhˆäˆÐˆ—¼ˆ.¨ˆ”ˆ !ˆªXˆvˆ±Èˆuœ"ˆ¦ˆ(ˆä!ˆ˜ˆx@ˆ€´ˆIhˆ€ˆ¯Lˆœô‡`¬è‡< ˆˆèò‡‘hˆœå‡Læ‡Ápá‡”èˆHà‡˜Þ‡ÆÝ‡èÚ‡½œõ‡Ž¬Ù‡¼¸ˆÙ‡Ü×‡$Ù‡l±ˆ°èë‡¸Ìë‡¹`³ˆlï‡šhÄ‡èï‡ú‡ä»‡«œ ˆ0 ˆP¸‡ä¹‡Òä³‡ø‡†X®‡|¬‡L²‡LJˆ‹d²‡8#ˆ¥d«‡àˆÇ´¯‡$¯‡ ‡˜#ˆweˆà©‡ØÜ§‡8cˆ…Ä¨‡h[ˆ§¨‡˜PˆÅà¨‡¸%ˆÍü¨‡0ˆNø§‡Xþ‡ §‡0÷‡³„§‡té‡Ð¼§‡Ôâ‡1h§‡dð‡áþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþDTP A[I;]T[I;] ¦ left-justify continuation linesolTTth IIú(ñTOLOWER((1ûT),8)T)^.='{cont''d}' ¦ and the {cont'd} ones tTTh, I(((1ûT),2)T)^.='+}' ¦ find +} style continuation linestTÜˆ ¦HReu ¦Restores long wrapped lines in CR-delimited vector /HD@V JS[S[;1]â'A';]âA[I-1] ¦ look up the letters11DT), I((A[I-2]='{')^A[I+1]='}')/I ¦ those that are part of {*_} phraseTL I((3óI)^Ióý1+ûA)/I¦ exclude those too close to either endLÄ15 ”ˆ±ÿÿüæ‡ Fˆ¬Ü‡ºˆ×‡<×‡Œí‡øÖ‡<í‡èì‡ €Ü‡ Œì‡DÚ‡Dì‡ ˆ\ˆì‡Ä0>ZA ñUSLTOASC V;B;I;J;M;R;S;W08 IS[3;]âV ¦ lookup in 3rd case8ñUSLTOAPL@bñUSLTOASC$ ¦ $$´M Z(ý1M+\W)û' 'a$$´ÙñAñ ñWITHTTX ñTTABX$101ñUNWRAPLNS |d PW2PW,999999 \ ¦ A long line may be indicated in two ways: Either {+ at theþþþþþþþþþþþþþ\4M B(ûA)û1@þþþ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)þþ@Hþþþ •ERROR(7 8âT)'VALUE ERROR' 'WS FULL' 'DOMAIN ERROR'þþH`þþþ”ˆ±ÿÿdä‡Œ´‡¨å‡8¤‡Àæ‡ô£‡ Ú‡ðß‡`Ú‡p ‰`8à ¦ Copyright (c) 1994-95 Jim Weigang¦Tr8era B(ûA)û1 tPin I((2PW[1]+2þþþ0Xþþþ”ˆ±ÿÿhõ‡pZˆå‡äç‡,é‡àè‡Øˆò‡äˆÈÙ‡ xå‡ Ìí‡ÄÝ‡xˆ tç‡Pç‡8ˆÔà‡¼3ˆ$ç‡€1ˆhÞ‡°à‡„ä‡ˆà‡Äç‡dà‡€ü‡\å‡œˆˆÝ‡Þ‡X4p¯ ¦ Copyright (c) 1994 Jim Weigang4$ AñVTOM ñTCNL,A2$þþþñTELPRINTþþ$þþþ (PW[2]ò(ûW)öN)/0$(þþþ YD0 ý2(,Xø.òâC)/Yþþ($þþþ X/Sû(’/SN,R)Wþ$\þþþL2:N1(ûW)(2+1PW)öC1/W ¦ min number of "supercolumns" that will fitþ\@ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)@ñTCNL‘SRCWDPm (3>1ûS)/0 ¦ no change if only 2 alphabetsD\xV (~1î(Z='{')^(1èZ)î'+cC')/0 ¦ return arg unchanged if no continuationsþ\Tþþþ ¦ any necessary spaces must be included in the text to the leftþþþTTþþþ ¦ are added when either of these continuation marks is removed;þþþT<þII386Pë23ì"‰d$‹ì‰Ef‰]ÆEÆEf¸f‰EfÇEf¸PèX.€xÈPXuÍÈëÿ”$&mf¸PèX.€x§PXuÍÈëÿ”$&rL‹l$€}u>ƒ}„‹mf¸PèX.€¸pÿÿÿPXuÍÈëÿ”$&sf=ëë‹l$ë³ë³ë³ë3ÀŠÃëG}"¹ü3ÀªþÀâû¹ƒ}u ½ƒ°Aëƒ}ÿuÃ}c°aªþÀâû‹u‹þ]"‹M¬×ªâû+ÀÄ"Ã¡\Þ8<T ñS ¦ end of the line, followed by +} on the next line, or by {cont'd}T <•ZñTOLOWER Z;T 8à Y(R,C’N)û2 1 3í(N,R,C)û((N’R),C)Mþþþ8Pþþþ ¦ If D=0, converts names to the primary alphabet (ñALPHS[1;])þPP ¦Wraps matrix in multiple columns across the pagehe case of P W(R’N)Wt‡ D0 01,tñTCLFrcDPm ¦Translates uppercase letters to lowercase in ER‘D`NSñ ¦Returns a linefeed character (which may be the same as ñTCNL on some APLs)S `L”ˆ±ÿÿŒó‡¬´‡ìå‡hÝ‡0á‡L(X\ZñUNWRAPLNS A;B;I;T@V@(<PLS (T''û(ý1,•STPTR'Z')•CALL ñTOUPPER‘OBJ)0<(LEZñUSLTOAPL A;B;I;J;K;S(,œd U+/X2/Sû(’/SN,R)WNT ,$UPEL1:W2++/ú\èM†' 'US$POAC D0 3 ¦ amount to drop from wrapped result below P w ZZ ñOVER YT 8XY ¦ M is a character or numeric matrix8Lþþþ ¦ A[1;] is what we look for; A[2;] is what we change it toLDŠ Z[J]A[2;A[1;]âZ[J]] ¦ convert to lowercase¤nDñQVARSPè ZñVTOM B LÀp ¦ Z is a character matrix not more than PW[1] columns wideLHVTM ¦ PW[1] is the page width, PW[2] is the page length þHˆþ\\386Pë23ƒì@‰d$2f‰D$f‰\$‹ìÆEÆEÆEÆEf¸f‰Ef‰EfÇE0f¸PèX.€x¼PXuÍÈëÿT$DƒÅf¸PèX.€xžPXuÍÈëÿT$D‚‹l$2€}u}+ÀŠEf‹Ef‰Ef¸PèX.€¸LÿÿÿPXuÍÈëÿT$Dr>f‹E>f‰EŠEˆEf¸PèX.€¸ÿÿÿPXuÍÈëÿT$Drƒ}t_ë°ë°ë°ë°ë%ÿëH‹}‹M° üóª° ‹U6‹l$+l$$ý‹\$$‹û|$ ‰|$:\$6K‹û‹Êó®t AG‹÷‹ûýó¤Ú;\$:|æ+ÀƒÄ@ÃLZö0ˆ@th ¦Converts the case of quad names in array @øs (D=0)/L1Xþþþ ¦Transliterates third-case letters in to lowercase or {A_} {B_} {C_}Xä4 ¦ Result:@8ñVTOM‘SRCW@8ñVTOM‘OB2W@þþþ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)þþ@Hþþþ B[Iø.+ý2 0 1]0 ¦ 0s mark where the { and _} areþþþH\þþþ A[I-1]S[K;B/J] ¦ replace A in {A_} with underscored/lowercase lettersþ\Tþþþ K2+3=''ûûS ¦ 3 if this APL has underscored letters, else 2TPþþþ BJó1ûS ¦ 0s mark any unrecognized ones, e.g. {+_}þP@þþþ SñALPHS ¦ alphabets on this systemþ@ 0] (0†10ûM)/L1 Lþþþ J(Z[J]îA[1;])/J ¦ indices of uppercase lettersþþLLþþþL1:J(,^\Z[J]îA)/,J ¦ indices of letters of • namesþL Ji X •ERROR(5 7 8âB)'RANK ERROR' 'VALUE ERROR' 'WS FULL' 'DOMAIN ERROR' X@ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)@àŠZñQVARSôP ¦Li”ˆ±ÿÿ`¾‡äˆ$³ˆÝ‡|³ˆL0j •'Page width is too narrow'0Lxeu”ˆ±ÿÿˆÙ‡l´‡4Ã‡PÝ‡Ì²ˆL0i L3 ¦ Endloop0Œþ]]386Pë23ƒì7‰d$2f‰D$f‰\$‹ìÆEÆEÆEÆEf¸f‰Ef‰EfÇE0f¸PèX.€x¼PXuÍÈëÿT$;mf¸PèX.€xžPXuÍÈëÿT$;rk‹l$2€}uU€}wS3ö3Òƒ} t_Fƒ} tX‹]$ŠˆE63ö3Ò‹}$G‹ß‹M IŠàþÄü:àò®uF+ß÷ÛK;Úv‹Ó‹ßëêF+ß÷Û;Úv‹Óë³ë³ë³ë³ë³ë3ÀŠÃëuÆEÆE‰u‰U‹Â÷æpâ#ÒuÞ‰EÆEf¸PèX.€¸éþÿÿPXuÍÈëÿT$;r·‹l$2‹Mã+‹}ü° óªŠe6‹U‹M ‹u$‹}‹ß+Ú¬:ÄtªâøëÚ‹ûâð+ÀƒÄ7ÃLZ8Œ ,E ZñDLTB •WSID ðˆ ¦þ`þþþ ¦Returns the names of workspace-related quad variables on the current systemþþ`d •ERROR(5 7 8âA)'RANK ERROR' 'VALUE ERROR' 'WS FULL' 'DOMAIN ERROR'd quad variabled`ret”ˆ±ÿÿ€ö‡Ì´‡øˆh¦‡¬ˆ@¢‡„ò‡,ˆ¤ó‡p ‰`DŠ Z[B/âûB]S[2;B/I] ¦ convert to secondary caseT Dt‡ZñTCLF@VTM ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)þþ@XŠ Z,MLMUE ¦ Converts names to uppercase if D=1, to lowercase if D=ý1LÔQ ZA<„ˆ A(D=1)éA,[.5]'abcdefghijklmnopqrstuvwxyz'<Ìœn”ˆ±ÿÿ0ˆ”qˆüê‡üó‡¼ä‡äó‡Àˆtˆ<ë‡Dˆ `ô‡ è‡8î‡ìí‡ hè‡¸ù‡¼õ‡üî‡Ì4pŽZPW ñTELPRINT M;C;D;N;R;S;U;W;X;Y4 ´ÒñTOUPPER‘OB2W 4pŽ ¦ Copyright (c) 1995 Jim Weigang4Pþþþ ñZñ'ñOUT A(2†ûûA)/L1A1ñTCNL ñMTOV AL1:ñZññZñ,ñTCNL,A'P@¸s ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)@ ZñRJUST AL ¦ or right of the {+ +} or to the right of the {cont'd}.þþLHþþþ ZñVTOM'.•ALX.•CT.•ELX.•IO.•LX.•PP.•PR.•RL.•SA.•SEG'þþHHþŒŒ386Pë23ƒìp‹ì‰mdf‰E2f‰]f‰MÆEÆEÆE7ÆEÆEÆE6+Àf¸‰Elf‰Ef‰Ef‰E0fÇEHf¸PèX.€xªPXuÍÈëÿT$tf¸PèX.€xPXuÍÈëÿT$tr$+À@‰EJ‰ENŠE<t:ƒÒ‹ò‹ø¸`÷e,(‚‹Ø‹E÷eƒú…÷ãé¤5ƒÒ;ò‡lr;ø‡b‹]+É±+À@Óà;ÃvâõþÁˆMFÀ‰E>ÆE|ÆE}ÆE‹E>E‰…ˆƒÅxf¸PèX.€¸LýÿÿPXuÍÈëÿ”$®‚Oþÿÿ‹l$8‹½„‹€+ÀHüó«‹ETEP‰E+E‰E‹EHÁà‰E‹E>Áà…„‰EB‹uèZÁà‹„‹ƒûÿt‹UBU‰‹U‰‹E)EƒmyÍ‹El‰EEh‰E ‹…œ‰E0‹• ÁâÂ‰E$‹uèÁà‹•„‹ƒûÿt@‹ÃÁè÷eET‹ø‹u‹M,:Àó¦u ‹E;Ew‹þ‹M(ã° ó®uÁëC‹E0‰ë]B‹ë»‹EEƒE0‹E$9E0r•é“ü‹}l‰}‹…œ‰E0‹ ÁãØ‰]$‹E,‹]‹U‹t$T+íE‹|$‹Èf;Àó¦u0° ‹L$(;T$~‹þñó®u ;T$} ó®t‹D$,ë‹|$0‰/‹D$,ëñ;T$~t$(E;ë~²‹|$|$ƒD$0‹|$0;|$$u”+ÀÄªÃ+Ò‹M,Áéã3ÐÑÂâù+À‹M,€á€ùt¬€ùt Áà¬€ùtÁà¬3Âº©mAŸ÷â+ÒŠMF¥Â‹ÂÃLZ™4Ü8ˆ ZB/A ¦ remove the { _}80 Ž A'ABCDEFGHIJKLMNOPQRSTUVWXYZ'0LTCF AñALPHS[2 1;] ¦ convert secondary to primaryTOLLC V J(ûZ)((Z='•')/âûZ)ø.+â12¦ indices of chars following • þLñMTOV‘OB2WÐ°ñOUT AñOVER‘OB2W8 ¦ Copyright (c) 1994-95 Jim Weigang8þþþñXþþþþñQþþþþñPþþþþñLþþþþñBþþþþñLOADSUBþþþ@þþþ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)þþ@8þþþ ñZñZ ñOVER' ',' ',(•PW-2)ñTELPRINT ñF8<þþþñ4:ñZ'The following objects were defined:'<þþþ 0<þþþ ñZ'No objects were found in the file.'þþþ<<þþþ ñ2 ¦ Endloopþþþ<Dþþþ ñX0 ¦ reclaim storageDHþþþ ñFñF ñOVER DEFINEFNS ñX ¦ define the objectþþHþþþ ñEñNñEþþHþþþ ñC(ñN,0)ñC ¦ and related infoþþþHX ¦Extracts numbers from character vector , similar to õñS;ñT;ñX;ñNOUNWX teñWSIDpa@O ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)0@<] ¦Returns the name of the active workspace]<L' ”ˆ±ÿÿøÂ‡L´‡ô ˆðñ‡´ ˆLP (ú/'Jj'îA)/0 ¦ no complex numbers on this APLactive woPX Z ¦ Sets ñERR to an error message if invalid numbers, else sets it to ''X Zâ0È„ZñXNUMS A ,ñMATIOTA‘SRCW $ M'þ',' ',' ',ôMi$ L2ñOVER‘SRCW\üŠ ¦Captures and returns the ñOUT output generated by statement ñOVER JU\< ¦ Copyright (c) 1988, 1994 by Jim Weigang<ñPGWID NñB,ñAñ<ˆ (A''û(•STPTR'Z A')•CALL ñRJUST‘OBJ)0ˆŽ<ÜˆPW@ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)RC@LTOO”ˆ±ÿÿ<ï‡¨„ˆ$ò‡èö‡üˆLD ¦Wraps long lines in to a maximum of à columnsŽDD L1:W1+3’B ¦ width of each char in outputñQDñRJUST$ $I.PñQUADCASEsi [ñRJUST‘OB2\ ¦ The result is a vector with ñTCNL at the front of each line. n defn30\`?Q#ÿÿ€‡Ì¯‡|ˆ@ˆh°‡,°‡ì¯‡`< 19 (B''û(•STPTR'Z A B')•CALL ñMTOV‘OBJ)0LA<@2 e ¦Converts matrix to an à-delimited vector @< ñZñ'' ¦ output buffer<@V‘B ¦Right-justifies character vector or matrix I@0Z Z0 0û''ÔQ ZVLTOO”ˆ±ÿÿ(ˆø‰°"ˆÄ1ˆxù‡L <• ñXñX~•TCNL 4p¯ ¦ Requires the ñOVER subroutine4<þþþ ñEñSúñC[;1]=' ' ¦ find endsþ<Dþþþ ñS(((1ûñC),3)ñC)^.='[0]'¦ find [0] startsþþþDHþþþ (0îûñC)/ñ1 ¦ read more if nothingþþHDþþþ ñNOUNWRAP0 ¦ turn unwrapping onDPþþþ ¦ Use ñMUTE to suppress error messages from chopped keywordsPþþþ”ˆ±ÿÿ4ˆˆˆ|$ˆˆˆ@ˆTˆ4ˆèˆ ˆ #ˆ €ˆ t%ˆ0%ˆ¸ˆè$ˆ ”$ˆ(ˆÀ'ˆl'ˆDˆ<'ˆèˆˆˆÔˆŒˆHˆˆˆˆL!ˆø ˆ° ˆÜ"ˆP ˆ ˆ!üˆ"l(ˆ#àˆ$˜ˆ%Tˆ&ˆ'1ˆ(pˆ)Üˆ*Èˆ+Œˆ,Tˆ-Èˆ-ˆ.ˆ PŽ ñL•NSIZE ñT Z H1] ñP•TCNL ¦ partial last line readay,HL [] ñF0 0û'' ¦ names of objects we defined [L<SCI ñB0 0û'' ¦ input buffer.< <• (~0îûñF)/ñ4‘O XC L ñSñMUTE'ñCASCII2APL ñC' ¦ get the first few symbols on each lineX\ñPW ñNOUNWRAP1 ¦ prevent ASCII2APL from unwrapping linesñTO\DNWA ñX0 ¦ reclaim storageHTTD$´Ù ñOUT'Reading...'þ$,§ñLJUST‘SRCÐ° 0 ,§ñLJUST‘OB2H§ õñAñþþþQþþþþþñGETVAL, ñF •NTIE ñT-1+0/-•NNUMS,@þþþ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)þþ@<þþþ ñERR'' ¦ indicate successþþþ<LþþþL8:S(1†ûZ)/ûZ ¦ scalar if singleton, else vectorLPþþþ (~(ûZ)î0,1’/S)/0 ¦ make sure element count is correctþþPHþþþL7:(2=ûûS)/L8 ¦ If an explicit shape was found,Hþþþþþþ@þþþ Z[I]õX ¦ enclose and store it@Pþþþ (0†ûñERR)/0 ¦ give up if a problem's been foundþþþPPþþþ QñGETVAL L[I](R[I]-1)C ¦ extract the value between ( )sþPDþþþL6:(Ef‹Ef‰Ef¸PèX.€¸LÿÿÿPXuÍÈëÿT$Dr>f‹E>f‰EŠEˆEf¸PèX.€¸ÿÿÿPXuÍÈëÿT$Drƒ}tZë°ë°ë°ë°ë%ÿëC‹}‹M° üóª° ‹U6‹l$+l$$ü‹\$$‹û|$ ‰|$:‹û‹Êó®t AO‹÷‹ûýó¤Ú;\$:|æ+ÀƒÄ@ÃLZ˜0„0L ñC((1ûñB),3ý1+1ûñTTABM)ñB0TTIT ñBñB ñOVER ñLJUST ñVTOM(-ûñP)ñX¦ append whole lines to bufferATT ñJ ñP(-(èñX)â•TCNL)ñX ¦ partial last line in this blockNWRTXAP ñXñP,ñX ¦ add partial line from previous block fX ñSñNñSñMUTE@ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)¦ @H sn Z(•DR A)î326 807 ¦ 326 is nested, 807 is heterogenousHTict ¦Returns 1 if is a nested/heterogeneous/boxed array, 0 if simpleTH D+\L-R ¦ depth of parenthesis nestingle Hg ih p< P Z1Q/C ¦ get character value< P].L10:Q†\C='''' L78' CñDTB C ¦ drop any blanks past closing quoteZL xe (0†ûñERR)/0âû P ¦L2:('('''=1C)/L4,L4,L3 ¦ jump if nested or character type (1P ì (' '†1C)/L2e < J1ICâ'û(''' ¦ check for shapeR<MAI ¦‘X‘SC ¦ Sets global variable ñERR to a character vector error message if theXPRJS ¦ form to the right of the assignment arrow. (In APL form.)PTUST ¦ C is a character vector containing the portion of the transfer wT(ä² ((Dú.<0)ú0†ý1D)/0€P@(Õ L7 pG (' '†1C)/L1 @ wa ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)ir@P Z I(1 1 2,[.5]1 2 2)[1+P;''ûûH] ¦ row containing the fn/op nameP@ hw H(Hú.†' ')ëH ¦ matrix of names in H @H nL2:H[(H='}')/âûH]' ' ¦ change {A}FOO B to {A FOO Bp HL] H(ý1+Hâ';')H ¦ get the stuff between and ;+LD''û L2 ¦ Else, it's a function,7] DP H(Hâ'(')H ¦ get the stuff between the parens PTse (~P'('îH)/L1 ¦ If it's an operator [e.g., Z(F OP) B],T, (~(~ý1Q)^^/Qúý11,Q)/0;E,T ¦ The argument is the header line, without any leading [0] or ìPLVTH^.6 ¦Extracts function or operator name from header line HH (Jú.ò1I)/L2 ¦ If û occurs before ( or ',HD nm ¦Extracts value from formatted representation heD8L4:ñERR'nested/heterogeneous array'84X° ¦ Repeat for the {cont'd} phrases:4LMAI”ˆ±ÿÿä3ˆŒ ‰()ˆT ‡à(ˆè ‡ (ˆ¡‡p ‰L8ñ3:•NUNTIE ñT ¦ Endloop84 ¦ Copyright (c) 1994 Jim Weigang4( ((N<ûW)^Uˆ4mˆÔ2ˆ4ˆJˆ42ˆÀ]ˆ2ˆô1ˆt0DÀZñGETVAL C;D;E;I;J;L;Q;R;S;X0(Œ°L3:RPW[2](ûW)öNN+1(t”ZñIFNEST AŒÞ P,P$´ÙL3:(' '†ý1C)/L10ñ$H;CI CJC ¦ drop it from the value3, H<ace SñXNUMS(J-1)C ¦ get the shape<Tte L1:(~(1C)î'0123456789')/L2 ¦ If the value starts with a digit, [4TT0,t CñDLB C ¦ delete leading blanks, only if necessary [6TD] ZS0 0û0 ¦ no-shape-found indicatorrimDT ¦ value couldn't be extracted, or to '' if there was no problem.TÌ i ”ˆ±ÿÿŒ3ˆµ‡0ˆ,ˆ¸+ˆ`+ˆ¬5ˆL+ˆh5ˆœ,ˆ 5ˆ À4ˆ+ˆÐ/ˆ „4ˆàŠˆ<4ˆð*ˆô9ˆ *ˆYˆ€*ˆ„,ˆ4ˆ4*ˆ*ˆXˆ/ˆØ)ˆ¼TˆÄ)ˆˆ\0ˆ ´ˆ!ˆˆ"Hˆ#ˆ$Àˆ%ˆˆ&Lˆ'üˆ(Äˆ)|)ˆ*ì@ˆ+\,ˆ,„ˆ-Dˆ.ˆ/Èˆ0¨ˆ1ˆ2<ˆ3$ˆ4ˆ5Àˆ6pˆ7 ˆ8àˆ9@‰:Ìˆ;‰<„ˆ=Drˆ>4ˆ?ìÔˆ@èˆA¨1ˆB¬ˆClˆÌ 0TN D ¦ If D=0, they're converted to the primary alphabet (ñALPHS[1;])F TLnae ¦ If D=1, e and j in numbers are converted to uppercase L 8 H(ý1+Hâ')')H < ¦Formats array value for A2A transferñN <h¹ A,A´° CñDLB CL3:I0, Z'ì. ',((N†' ')/N),'',:ññEJCASE@ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)ec@X00L J(V[I]î12A)/J ¦ weed out E/Js that occur in names, not numbers X\abt IB[(T>ûB)/+\TóûB] ¦ index of 1st char of name/number each E/J occurs in \OVR TB,J<I;T J(VîC[1;])/âûV ¦ indices of Es and Js<PA b B(B>ý10,B)/âûB ¦ index of first char in each name/numberbP(ˆÅ ¦ Fast blind wrappin':(XNAE Z''û(1 2)[1 0âûû2 2] ¦ is mix in evlevel 1, first in evlevel 2ñMAXLTO‘ ¦ 2 - use newer APL2 definitionsSLTUS ¦ 1 - use old APL*PLUS/NARS definitionsLNTTñUL ¦ Possible results are: 0 - err on use of any changed feature [TD C(D=1)é2 2û'EJej' ¦ flip if going lower upperáDñFMTVARL¹L2:ZZ,Aw aDstn ZI/(ôS),'û' ¦ start with "shape û" DD ak I(2óûS)úE=0 ¦ If rank ò2 or A is emptyD<ac E’/SûA ¦ element countNL¦<³ZñGENSYM P½ ¦ 0 i ñEVLEVELle @ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15) @0„É ¦ Z(1ñPGWID)ñWRAPLNS(1,ûZ)ûZ0<VA L1:A'''',((1+A='''')/A),'''' ¦ quote it<<IOA L2 ¦ Else, character,<DñPW AôA ¦ format the numbers‘SRDDñTL õ(E=0)/'A0' ¦ reshape 0 if emptyñVTD<‘SC (ñIFNEST A)/L3 ¦ jump if nesteder<¾ (N=0)/L2 pÇ ñT TFWRITE ñF 0¨ ñERR'unbalanced parentheses'þ0Lþþþ ñF((ý1+ñFâ'')ñF),'A' ¦ append rest without askingþLPþþþ ñT TFWRITE ñF ¦ ask now about any existing filePXþþþ ¦ On APL*PLUS (in which TFWRITE has a noninteractive append option),þþX<þþþ ñOUT' ',' ',(•PW-2)ñTELPRINT ñNñDLTB ñNþþ<Lþþþ ñNñQVARS ñOVER ñN ¦ write quad variables tooLäþþþ”ˆ±ÿÿsˆrˆ”kˆ°Nˆ fˆ¬Rˆ´bˆlˆÈ~ˆtRˆ dbˆ X~ˆ~ˆÈ}ˆ ŒYˆ|}ˆLBˆÄDˆBˆ(KˆXjˆcˆè|ˆœNˆ¸Aˆ¼nˆ¨‰hAˆAˆd}ˆPPˆøRˆPˆ ÀOˆ!ˆOˆ"POˆ#Ì@ˆ$P[ˆ%Ì`ˆ&[ˆ'ÐZˆ(Oˆ)Hˆ*¸`ˆ+|Nˆ,LVˆäH IIú(E=1)^1=ûS ¦ or if A is a 1-elt vector,þþH@hËñ2:ñOUT'Writing the following objects to file:'@À •ELX'0'Pþþþ ¦Returns the current )EVLEVEL setting for APL*PLUS II or IIIþþP|þþþ”ˆ±ÿÿlYˆL‰ Eˆ$=ˆÐ<ˆ„<ˆŒHˆEˆ,<ˆ?ˆ|4|2 •PP(16 15 17)[Eâ1] ¦ maximize4(p0 OK(@ R E('DYALOG'^.=6ñAPLVER),'APL68K'^.=6ñAPLVERS@P2] ”ˆ±ÿÿlsˆ`”ˆ 9ˆ8 ‡HFˆð¦‡ìEˆ¬¦‡x>ˆ„¦‡4>ˆ ‡|DˆÀŸ‡ð=ˆ|Ÿ‡Ü9ˆÌŠ‡ t@ˆˆŠ‡ Zˆ´ ‡0@ˆì?ˆ °?ˆt?ˆp ‡ÄLˆìŠ‡xLˆ,¡‡Ô=ˆ˜š‡Ì8ˆl¥‡dLˆLˆ:ˆÌKˆVˆÀUˆ¨UˆhUˆ,UˆDˆìTˆp ‰P0œ¾ 0 ¦ Else,0 ¼Î ñT TFWRITE ñF d ¦Adjusts the case of Es and Js (e.g. 1E3, 2J3) in character array þþþþþþþþþþþþþþþd½ Z0,ZD ñEJCASE V;A;B;C;I;J;S;T,8œÚ V[J]C[2;C[1;]âV[J]]¦ change the E/JsR8NSM”ˆ±ÿÿ¤HˆÄµ‡(Hˆ49ˆÈYˆà8ˆ@ZˆXZˆbˆœjˆ x=ˆ Èaˆ„aˆ(aˆ d]ˆ´;ˆx;ˆà`ˆ`;ˆ;ˆ¬:ˆÐHˆà~ˆ¬fˆl:ˆ0DÀ Z((ûZ)0 1’ûP)Z(1P)•NL 20` ?Q#ÿÿH«‡,eˆèJˆšˆ¬Jˆü¡‡ÈeˆŒeˆLeˆp ‰`<99 (A''û(•STPTR'Z A')•CALL ñLJUST‘OBJ)0¦ A<@LU2 ¦Left-justifies character vector or matrix @@XÓ ñT'ì---- APLASCII version: ',ñA2AVER,ñTCNL@XñDUMPSUBH Z[''ûûZ;ý1 0+1ûZ]' '¦ blank out {+ on last lineþþHHþþþ õ(0îS)/'A1A' ¦ get prototype if A is emptyþHPþþþ ¦ Recurse on each item of a nested/heterogeneous/boxed arrayþþPþþþþþþLþþþ Z(~(E=0)^1=ûS)/Z ¦ omit the 0û for empty vectorþLTþþþ ¦ *** The / is replicate; may not be available on all systemsþþþTHÄË (ñPGWID<ûZ)/L1 ¦ If result fits on one line,T‘OHPC L 'TñMUTE''ZAPL2ASCII Z'''ñWITHTTX ñTTABX ñOVER ñTCNL,' {nl}' P8VE‘ ¦ Translate newline as {nl} in arrays:8\ñTN ¦ N is the variable name, V is the array value, Z is a character matrixM‘O\8 ¦Formats a variable for A2A transfer8 è6ñ6:ñOUT'Done.' `áþþþ\þþþ ¦ ñF is the file name, ñN is the list of object names, ñQIO is global •IOþ\D ñTñT,APL2ASCII(2ûñTCNL),'ì---- End of workspace'FD8E Gñ4:ñTAPL2ASCII'ì---- End of workspace'88 ñA ñ3 ¦ Endloop8DT O ñT0 ¦ reclaim storageJDLF T ñT TFWRITE ñF ¦ append it to the fileAPLLHVTMñ3:((1ûñN)<ñIñI+1)/ñ4 ¦ Loop for each objectS þHÜþqq386Pë23ƒìR‰d$2f‰D$f‰\$‹ìÆEÆEÆEÆEf¸f‰Ef‰EfÇE0f¸PèX.€x¼PXuÍÈëÿT$Vë°ë°ë°ë°ë%ÿéAƒÅf¸PèX.€x‚PXuÍÈëÿT$VrÎ‹l$2€}u¼+ÉAŠe€üt€üt €üu«‹M(‹U,ë‹U(ë‹Ñ‰M6‰U:ƒúu+Û+Ò+íë<‹\$$‰\$>ÚK‰\$B‹ê3Û° ‹ñë ƒútý‹|$Bl$B‹Íó®uI+Í÷ÙI;Ês‹ÑN}Ý‰\$F‰T$JÚ+ëƒý}+í‰l$N€|$tÆD$‰l$ÆD$ëÆD$‹D$6‰D$‰l$ÆD$‹l$2f¸PèX.€¸ þÿÿPXuÍÈëÿT$V‚éþÿÿ‹l$2‹}‹M° üóª‹\$$‹T$‹l$N‹D$6ë‹ót$F\$:‹úÕ‹Íó¤H}ë+ÀƒÄRÃLZe,Ü8¤ã ñ2 ¦ Else,þþ8Lþþþ (0=10ûñN)/ñ1 ¦ If names were specified,þþþL@¬Ö ñTINSERTFNS'ì',ñN[ñI;],ñTCNL¦ get the defn@ñDTB‘SRCWþþþXþþþ ¦ Smart (but slow) wrappin'. Avoids splitting keywords across lineþþþXþþþþþþ<þþþL1: ¦ wrap lines...þþ<<þþþ Z(1,ûZ)ûZ ¦ do no wrappingþ<Xþþþ ¦ Use ñMUTE to avoid warning messages about any braces in the valueþXÕñFNNAME L7þþþñFMTVAL@þþþ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)þþ@<þþþ ZZ,(1(E>1)'('),(ñFMTVALõS),(E>1)/')'þþ<@þþþL4:(EA[I]'¦ how to pick the Ith element of AL@þþþ S'IPSA'^.=4ñAPLVER ¦ 1 if on Sharp APLþþþ@@øÝ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)@ñDTB‘OB2WXþþþ”ˆ±ÿÿ¬Zˆ˜µ‡DNˆèMˆ(:ˆ\ˆ°Mˆ`MˆLTˆMˆ Tˆ ØGˆÔSˆÀSˆ hSˆd`ˆD?ˆÐ>ˆTSˆ<ˆ(`ˆè_ˆœ_ˆ\_ˆ _ˆ°@ˆà^ˆ„Kˆ ^ˆŒ^ˆP^ˆ^ˆX4„õ ñERR'improperly quoted string'4$´Ù Z(Z†' ')/ZH[I;]N$¸ñIN”ˆ±ÿÿ„«ˆlµ‡ˆ/ˆ4/ˆ´.ˆ€9ˆd.ˆ .ˆDYˆÔ-ˆ Œ-ˆ ˆ„ˆL-ˆü,ˆ 4Xˆ¼,ˆ¸4pØ ZñXNUMS C ¦ get numbers4(ÔôL1:H((''îH)’Hâ'')H@( è6ZñEVLEVEL;•ELX < ñTGRPA2A ñOVER ñVTOM';ñQIO;ñN;ñF;ñI;ñT'þþ<@øÝ ¦ If D=ý1, E and J are converted to lowercaseA@8 (' '=10ûA)/L1 ¦ If numeric,8ìÚ SûV V,V< ,Æ>?Mœ<$ZN ñFMTVAR V;T;Wÿ$8CL ñ5:ñTñT,ñTCNL ñMTOV INSERTFNS'ì',ñN‘OB8H ñS ¦ On other systems, build the whole result in memory:ñHD X ñ6þþþüþyy386Pë23ƒìR‰d$2f‰D$f‰\$‹ìÆEÆEÆEÆEf¸f‰Ef‰EfÇE0f¸PèX.€x¼PXuÍÈëÿT$Vë°ë°ë°ë°ë%ÿéaƒÅf¸PèX.€x‚PXuÍÈëÿT$VrÎ‹l$2€}u¼+ÉAŠe€üt€üt €üu«‹M(‹U,ë‹U(ë‹Ñ‰M6‰U:ƒúu+Û+Ò+íë\‹\$$‰\$>ÚK‰\$B‹ê‹Ú° ‹ñë@ƒûtü‹|$>l$>‹Íó®uI+Í÷ÙI;Ës‹Ùƒútý‹|$Bl$B‹Íó®uI+Í÷ÙI;Ês‹ÑN}½‰\$F‰T$JÚ+ëƒý}+í‰l$N€|$tÆD$‰l$ÆD$ëÆD$‹D$6‰D$‰l$ÆD$‹l$2f¸PèX.€¸€þÿÿPXuÍÈëÿT$V‚Éþÿÿ‹l$2‹}‹M° üóª‹\$$‹T$‹l$N‹D$6ë‹ót$F\$:‹úÕ‹Íó¤H}ë+ÀƒÄRÃLZù+ü@ BVîA ¦ 1s mark names/numbers@ñDLTB‘SRCW8 Z,õ'0',,' ',(0 1’ûP)Z ¦ the suffixes8ñIFNEST@þþþ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)þþ@<þþþ APL2ASCII ñMUTE ¦ accessed thru õþþþ<þþþ 0@þþþL2:ZT,[1]Z ¦ add the 1st lineþþþ@@þþþ Z((N,2)û'+}'),Z,(N,2)û'{+'¦ add the {+ +}sþ@<þþþ Z(N,W)û(N’W)Z ¦ wrap the defnþþ<@þþþ N(ûZ)öW ¦ num rows requiredþþ@Lþþþ WñPGWID-û'+}{+' ¦ how much data fits on each lineL@þþþ Z(ñPGWID-2)Z ¦ rest of the dataþþþ@<þþþ T((ñPGWID-2)Z),'{+' ¦ the first lineþ<Tþþþ ¦ breaks, which is useful if you want to search or edit the text.TLáHÔÃ J(^/V[1(ûV)Jø.+ý1 1]î12A)/J ¦ those between digitsH\ A'0123456789.ý_‘ñ',,ñALPHS ¦ characters that can occur in names/numbers2 \DUT L1:(~ú/C[1;]îV)/L2 ¦ quit if nothing to convertRJDPB2ñ ¦ C[1;] is what we look for, C[2;] is what we change them toTOPLC V CñALPHS[2 1;5 10] ¦ convert secondary e/j to primary e/jLPñ1:ñN•NL 2 3 ¦ write all fns and varsI symbPLth ñNñVTOM,' ',ñN ¦ get the list as a matrixL8 ñTñT,'ì---- Workspace: ',ñWSID,ñTCNL8Üþqq386Pë23ƒìR‰d$2f‰D$f‰\$‹ìÆEÆEÆEÆEf¸f‰Ef‰EfÇE0f¸PèX.€x¼PXuÍÈëÿT$Vë°ë°ë°ë°ë%ÿéBmf¸PèX.€x‚PXuÍÈëÿT$VrÎ‹l$2€}u¼+ÉAŠe€üt€üt €üu«‹M(‹U,ë‹U(ë‹Ñ‰M6‰U:ƒúu+Û+Ò+íë>‹\$$‰\$>ÚK‰\$B‹ê‹Ú3Ò° ‹ñë ƒûtü‹|$>l$>‹Íó®uI+Í÷ÙI;Ës‹ÙN}Ý‰\$F‰T$JÚ+ëƒý}+í‰l$N€|$tÆD$‰l$ÆD$ëÆD$‹D$6‰D$‰l$ÆD$,$f¸PèX.€¸ŸþÿÿPXuÍÈëÿT$V‚èþÿÿ‹l$2‹}‹M° üóª‹\$$‹T$‹l$N‹D$6ë‹ót$F\$:‹úÕ‹Íó¤H}ë+ÀƒÄRÃ¡\ÙÇÜñVTOM @RO( ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)'D@< ¦C ¦ Copyright (c) 1988, 1994 by Jim Weigang <X •ERROR(5 7 8âA)'RANK ERROR' 'VALUE ERROR' 'WS FULL' 'DOMAIN ERROR' X@ •IO1 Ðî Z[•IO+124]'|' Tþþþ ¦Returns all 128 ASCII characters, with • for nonprinting charsþþþT4¤ç ¦ Copyright (c) 1995 Jim Weigang4@ASI I(AîX)/âûA,A ¦ indices of chars to translate@@rat Y•AV[•IO+ 13 167 192] ¦ change to APL symbols@D t X•AV[•IO+219 235 238] ¦ ASCII quote, caret, stileDD (~('APLPLUS'^.=7ñAPLVER)ú'IPSA'^.=4ñAPLVER)/L1ZD"#% ¦(X568 ¦ because of their system-dependent nature, are not usually wanted.]XTkln ¦ This function eliminates the nonfunctional ASCII symbols, which,TXú.6 ¦ ASCII symbol. For example, APL*PLUS has two vertical bars, one219XT u ¦ with one copy being an APL functional symbol and the other an TTan ¦ Some APL systems have two copies of certain characters in •AV,/0TTO+2 ¦Translates ASCII symbols in to the corresponding APL charactersTD8þ ('DYALOG'ú.†6ñAPLVER)/L1 ¦ On Dyalog,Dd L2D ñTñT,'ì---- Source APL system: ',ñAPLNAME,ñTCNLþDX (D=0)/L1@þþþ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)þþ@<þþþ ¦ Copyright (c) 1992, 1994 by Jim Weigangþ<`þþþ”ˆ±ÿÿxqˆ°wˆØuˆðnˆ}ˆøjˆ¸jˆ`0 ¦Subroutine called by DUMPWS0ñDLTB‘OB2WñEDRANKn€ng $` ñN(ñNú.†' ')ëñN$þþþYþþþþþñDEDUBL@þþþ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)þþ@DþþþL3:ZA ¦ no doubled characters on this APLDþþþ 0<þþþ ZSûA ¦ restore original shapeþþþ< 8 L 0< ZZ,' with Evlevel=',ôñEVLEVEL000ùL1:('DYALOG'ú.†6ñAPLVER)/L3ñD0B‘R”ˆ±ÿÿ(oˆøµ‡¨iˆTiˆiˆ¨hˆLoˆThˆügˆègˆ ¤gˆ |wˆxrˆ@jˆ „mˆ`gˆ gˆì{ˆàfˆ¸tˆølˆälˆ lˆ`lˆ4,è ¦ write one object at a time:48 (A''û(•STPTR'Z A')•CALL ñDLB‘OBJ)08$ZñDEDUBL A;I;S;X;Y$D ¦ used for residue and the other as ASCII stile.D@2 D ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)AL@DNAEL1:(~('APLPLUS'^.=7ñAPLVER)ú'IPSA'^.=4ñAPLVER)/0D‘O2 0XTO‘ Z[•IO+39 94 124]•AV[•IO+219 235 238] ¦ use ASCII quote/caret/stileX$B2ñ Z[123+â4]'{þ}~'LP$8R T Z[97+â26]'abcdefghijklmnopqrstuvwxyz'8@ñVO Z[32+â33]' !"#$%&''()*+,-./0123456789:;<=>?@'@\VES ¦Returns a 2- or 3-by-26 matrix of the alphabets available on this systemD\XZñDLB A(8Ä >O (ñDLBñA2AVERSWñASCII< ,^Y\aóÿf ghi"j'k+<4 ñERR'item count wrong for shape'4< Y,'þ' ¦ replace with APL stileDLB<LT‘ ¦ TTBO ¦ that maps to the ASCII character when written by TFWRITE orNAMT,ñN ñDUMPSUB ñF;ñI;ñT;•IO,$ Z[91+â6]'[\]^_`'S$(\»ZñFMTVAL A;E;I;S;•PPO@( Z128û'•'øZñASCII@SR ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)LT@$SCñ ZZ,'/',ñIPSAVER ñ$,HTXL3:('IPSA'ú.†4ñAPLVER)/0s,@ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)@€üZñAPLNAME0â A[I]Y[XâA[I]] ¦ replace 'em] 0, (l ZZ,', Level ',ñLEVELû'I's,Hcu ZñDLTB(ñAPLVERâ'-')ñAPLVER ¦ APL system descriptionbHXchn ¦Returns a string identifying the current APL system and environmentinX$ ZZ,' for ',ñOPSYS$H ¦Deletes leading blank columns in vector or matrix ñHTB‘B ¦ If a character occurs twice in •AV, this fn returns the versionET(Ôô ¦ read by TFREAD.(à”ˆ±ÿÿ°sˆ OP> óÿ!'3þþPþþþPREP2RUNþþþ taRENAMEh4L2:•'File ',F,' already exists.'4(„j ¦ and path)D@(8 & ñÿ8þþþMAKETTABþþþlþþþ”ˆ±ÿÿÀžˆT¶‡ ˆh˜ˆ0›ˆ˜ºˆœ™ˆ0¼ˆH™ˆ<‰ ˜¬ˆ ð˜ˆ¬˜ˆ|ºˆ `¦ˆ¦ˆ´¥ˆØ»ˆŒ»ˆˆø ‰4»ˆ„‰$‰È#‰€#‰4#‰ì"‰|¥ˆ"‰8"‰è!‰tžˆ ,žˆ!àˆ"ˆ#Dˆ$ˆ%¨œˆ&äšˆ'Lœˆ(œˆ)ì¨ˆ*¤¨ˆ+H¨ˆ,è§ˆ-ôºˆ.§ˆ/È›ˆ0<§ˆ1›ˆ2è¦ˆ3ˆ›ˆ4Ø¡ˆ5d¥ˆ6<©ˆ7À¡ˆ8|¡ˆ90¡ˆ:¡ˆ;Ô ˆ<P‰=” ˆ>H ˆ?ðŸˆ@œŸˆA„ŸˆB@ŸˆCÀ¯ˆDŸˆEx¯ˆF,¯ˆGÜ®ˆH˜®ˆIP®ˆJ®ˆK¸ˆL«ˆMÀªˆNdªˆO|ˆPD¥ˆQªˆR¬ ‰SÜ©ˆl ‹QUADLXPT[PLUSOBJ,àMATCHOW l¤ ¦ Arguments: $‰ñZLOADWS ñF;ñQIOþ$Dþþþ ¦ (Referenced only if •IO is inserted.)þþDXþþþ ¦ ñQIO - (optional global) the value of •IO outside this function.þþXTþþþ ¦ ñPGWID - (global) the page width to use in wrapping the result,þTXþþþ ¦ Lines in the message that begin with "ìname" are replacedþþXø¢ôâf_Øâf€þaDÿÿÿ'Ø‰åü¥‡"…ÿ8†ÿ@ ‰û ÿÿÿÿÿÿÿÿÿÿÿÿÿD(ÿÿÿÀ‰ ,¡ (äíf | ñI1+''ûûñJþþ , (0 2 3=•NC ñG)/ñ6,ñ7,ñ8þþ,Xþþþ ¦ ñA - message into which function definitions should be inserted.X@t3 ¦ quad names, so we handle them separately.@< ñ7 ¦ Endifþ<Hþþþ ñHñG(ñG†' ')/ñGñF[ñI;] ¦ the object nameþþþH\þþþñ3:(0=ñIñI-1)/ñ12 ¦ Loop for each insertion (last to first)þþ\Xþþþ ñF0 1(ñF[;1]='.')è' ',ñF ¦ delete . which may have followed ìþþþXDþþþ ñF0 1ASCII2APL ñLJUST ñZ[ñJ;]¦ the fn/var namesþDLþþþ (0=ûñJ)/ñ12 ¦ quit if nothing to insertLPþþþ ñJ(ñA[ñJ;2]†':')/ñJ ¦ skip rows that start with ì:þPLþþþ ñJñJ/âûñJñA[;1]='ì' ¦ rows to insert fns/varsþþLHþþþ ñA((1ûñA),2)ñA ¦ need only 1st 2 colsþHLþþþ ñNOUNWRAP0 ¦ turn line unwrapping onþþL\N+2)/L5 ¦ If this results in nothing,18LP.+3 TT-S’S†H ¦ back up to avoid breaking a word9PLng[ Sý1+(è(-H)TC)â0 ¦ look for a good place to cut@L@ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)@Lu ZB/A ¦ remove continuation marksLT B[Iø.+ý1+â9]0 ¦ zero out were CR{cont'd} occursTX I((ñTOLOWER A[Iø.+â8])^.='{cont''d}')/I ¦ CRs followed by {cont'd}XPô I(Tóý8+ûA)/T ¦ CRs not too close to the endPP B[Iø.+3-â5]0 ¦ zero out where {+CR+} occursÅPX× I(A[Iø.+ý2 ý1 1 2]^.='{++}')/I¦ those that are part of a continuationXP”ˆ±ÿÿ˜æ‡(ˆ°Ö‡èÙ‡ä‡°ˆ€â‡,â‡œö‡œÖ‡ Hô‡ Ðá‡$à‡LÞ‡ HÖ‡ôÕ‡4Ý‡ Õ‡,Ü‡ìÛ‡œÛ‡d¸ˆ€Û‡¸ˆ”0ˆÄ·ˆl·ˆ·ˆÌ¶ˆHÛ‡Œ¶ˆP0> I(A='_')/âûA ¦ find _s0@ ¦Writes all objects in the workspace to file @ ¦ Result:\le, ¦ May be either a character matrix or newline-delimited vector.ñC\@¥ ñ7 ¦ Else,@X ñW2ñPGWID,3 ¦ page width and continuation indentUT'XLwa, ¦ but long lines in the rest of the text are not.LX 2 ¦ Long lines in function and variable listings are wrapped,orXT ¦ with the function or variable's definition.TKtKT0 ñF((1ûñM),3ý2+1ûñTTABM)ñM0 ;U• ¦ message.ns Xpha ¦ A line that begins with ì- marks a separator (start/end of WS, etc.)X\, i ¦ A line that begins with ì: marks the start of a statement to execute.[5]\Xioa ¦ ñQIO - (optional global) If this var is defined, any value of •IOsXX‚ ¦ Results: ¦L msñ7:('ì.'ú.†13ñC)/ñ15 ¦ jump if not a variable L@ree ¦ ì. prefix -- extract a variable definition¦ @ [4 1 ñ3 Xs õ3ñC ¦ If error, execute ñ3 to restart L1X(UNRñ6:('ì:'ú.†13ñC)/ñ7O(deied NWA ñ3 Xki ¦ For now, we assume that future versions will be upward compatiblenuaXP19 ñ5: ¦ arg is older, but not 1.3r 2P[2] ñ31] \e h ñOUT'You should obtain version ',(ôñC),' of APLASCII and rerun this job.'[\TûñT ñOUT'version of APLASCII. There may be compatibility problems.'ndT(¨ˆ ¦ variable VAR.d (XKT ¦ found in the message will be assigned to ñQIO. If it isn'trXDñ11:õñG,'ñV' ¦ define the varDH ñ14 ¦ Else, a vector, HLe k ñOUT ñK ¦ it's a bad erroraLTor} ñOUT ñTCNL,'Unrecognized keywords in non-vector variable ',ñN,':' TH34 (1=ûûñV)/ñ8 ¦ If non-vector,luHT+P (0=ûñK)/ñ9 ¦ If any unrecognized keywords,•AT pik (0†ûñERR)/ñ13 D ñVñGETVAL ñV ¦ the array valueDXe e ñGñN(ñN†' ')/ñN3ñN ¦ the variable name (drop NL and ì.)uXP},{ ñV(1+ûñN)ñC ¦ value portion of listingallP$ ky ñN(ý1+ñCâ'')ñC$8è ¦ Copyright (c) 1994-95 Jim Weigang8T ¦ Use ñMUTE to suppress error messages from chopped keywords¦ TX¬m ñTñMUTE'ñFASCII2APL ñF' ¦ get the first few symbols on each lineX\ñMO ñNOUNWRAP1 ¦ prevent ASCII2APL from unwrapping lines ig\ nrcñ2:ñMñLJUST ñM D ñMñVTOM ñTCNL,ñM ¦ break on CRs:A[D1] 0@ ¦ variable CR (where is an integer).@X ¦ A line that begins with ì. marks the start of a variable definition.XP Zñ ¦ character) marks the start of a definition in the message.PT5 i ¦ A line that begins with either [0] or ì (as the first nonblankì T ñC(ûñV)ñC A \M;; ¦ matrix ñM to become extremely wide from unwrapping the continuation¦ D\Xnsa ¦ We untransliterate objects one at a time because we don't want theXTTI 'ñKñMUTE''ñCASCII2APL ñC'''ñWITHTTM ñTTABM ñOVER ñTCNL,' {nl}' 'TP df ¦ Convert to APL, and capture unrecognized-keyword messages:1PPaP2 ñCñTCNL ñMTOV ñC ¦ work with it as a vectorCR P@' 1 ñRñCñM[ñI+ý1+âñN;] ¦ the defn3] @Hû•X ñN(ñIñE)â1 ¦ num lines in defn00HLV2' (ñI>ûñS)/0 ¦ quit if no more objsV4LH0 1ñ3:ñIñSâ1 ¦ Loop for each objectheHR50 [<A'. ñEñSúñF[;1]=' ' ¦ and ends(<<D6 ) ñS(ñF[;1]='ì')úñF[;â3]^.='[0]' ¦ find defn startsDñLV (0îûñF)/0L 2 ñNOUNWRAP0 ¦ turn line unwrapping on)^(L”î'3”ˆ±ÿÿ”ØˆÀ¶‡hÿˆ0‰¸Õˆ`ÕˆÕˆˆ½ˆÁˆØ‰ à½ˆ ,ÚˆðÙˆ˜Ùˆ ü‰üÆˆ¬ÆˆTÆˆ,½ˆÔ¼ˆÀÛˆ´¼ˆ¬ÛˆXÛˆÆˆÛˆäÀˆðÚˆ0ÞˆôØˆÐÚˆ€ÚˆÆˆ Ùˆ!¼Åˆ"œÅˆ#„¼ˆ$@Åˆ%èÄˆ&”Äˆ'äÊˆ(ÈÊˆ)tìˆ*„Êˆ+HÊˆ,4Êˆ-ìÉˆ. Éˆ/XÉˆ0Éˆ1ÈÈˆ2\‰3xÈˆ4$Èˆ5ÌÇˆ6pÇˆ7XØˆ8Øˆ9¬×ˆ:X×ˆ;×ˆ<ôÖˆ=´Öˆ>ðÝˆ?´üˆ@ˆÝˆA`ÖˆBPÇˆCÖˆDœÔˆEHÔˆFøÓˆG ÓˆHHÓˆIøÒˆJ ÒˆKTÒˆLøÑˆMÀˆN4ÀˆOÀˆPÌ¿ˆQt¿ˆR\¿ˆSH¿ˆTTÝˆU ¿ˆVÈ¾ˆW°¾ˆXœ¾ˆY\¾ˆZ¾ˆ[8Äˆ\èÃˆ]Ãˆ^LÃˆ_,Ãˆ`ØÂˆaÂˆb<ÂˆcðÁˆd¨Áˆe$‰fÈ‰gt‰h(‰iÌ‰j|‰k‰lÄÿˆmL‰ndÁˆo‰pè‰q˜‰rP‰sô‰tÜ‰u„‰v0‰wð‰x¨‰y°ÿˆzh‰{‰|¼‰}x‰~ ‰Ä‰€l‰,‰‚ì‰ƒÀ‰„t‰…‰†Ä ‰‡p ‰ˆ ‰‰Ä ‰Š€ ‰‹8 ‰Œ°‰\‰Ž‰È ‰x ‰‘ ‰’Ü‰“˜‰”P‰•‰–ä‰—Ä‰˜h‰™L‰š ‰›(‰œà‰Ä‰žü½ˆŸt‰ 8‰¡$‰¢à‰£\Äˆ¤ ‰”4 ñN ñDUMPSUB ñF ¦ do the work4\ ñOUT ñTCNL,'Warning: This transliteration was produced using a newer'tes \Linmñ4:(ñC<ñN)/ñ5 ¦ warn if argument is newerLXsae ñ3 ¦ perhaps we should quit instead...liXP vc ñOUT'correctly, possibly without producing any error message.'PX ¦ ñOUT'version of APLASCII. Certain nested arrays may not be received' XXbei ñOUT ñTCNL,'Warning: This transliteration was produced using an old' XPmso (ñC>1.3)/ñ4 ¦ warn of v1.3 incompatibilityPTndf (ñC=ñN)/ñ3 ¦ done if versions are indenticalTP;], ñN1ñXNUMS(ý1+ñA2AVERâ'(')ñA2AVER ¦ our version numberAPLP0¸ L9 ¦ Else,s 0Dt‚ ¦ matrix or a newline-delimited vector. fuDX in ¦ definitions should be extracted. May be either a characterLXT ¦ ñM - the transliterated message from which function/variable TTS R ñC1ñXNUMS(ý1+ñCâ'(')ñC ¦ version number in the argumentBTTBJP (ñVú.†(ûñV)ñC)/ñ3 ¦ skip all but version markersPL T@VES ¦ ì- prefix -- marker; check version numberñDL@OB DLTPB2ñ ¦ (which may be a closing ì) to be the start of an object.AMPTETA ¦ If this object is a function, don't consider the ending line ñTXOVS ñS[ñI,(~(23ñC)î'.:-')/(ûñS)ñI+ñN]0 ¦ mark this one as processedXTCN‘ ñK(ñKâñTCNL)ñK(ñKâñTCNL)ñK ¦ list of bad keywords, if any ñT<OMS ¦ lines in long variable definitions.S <`ñZDEFINEFNS ñM;ñC;ñE;ñF;ñG;ñH;ñI;ñK;ñN;ñR;ñS;ñT;ñV;ñW;ñERR;ñNOUNWRAP;•IO[35] ` ñZ0 0û''Dñ1:(2=ûûñM)/ñ2 ¦ If not a matrix,„DñQIO, õÿ,Xe e ¦ ñQIO - (global) value of •IO found in the message. (See above.)aseX<óû ¦ were defined in the workspace.pl<T,[ ¦ ñZ - character matrix containing the names of objects that TPh ñOUT'The DEFINEFNS argument must be in transliterated form.'P x„ (~'ì'îñM)/ñ1 HS/ ¦ T AL ¦ If a variable can't be defined, its value is placed in a globaltTTcae ¦ If a function can't be defined, its •CR is placed in a globall rT Cp ¦gX95J ¦ A definition ends with a blank line, a closing ì, or the end of the XH ñOUT'If it has, you can use ASCII2APL to restore it.'AHXDEI ¦ alphabetic case is transliterated as {A_} {B_} {C_} etc.,TXP LA ¦ KEEPUS - (optional global variable) If KEEPUS=1, the thirdPLCRP ¦ ñTTABX - (global) translate table created by MAKETTAB.SL4 ¦ ì: prefix -- execute a statement4( ñV'APLASCII version:'(L5:(P†2)/0$L1:(~ú/'{}'îA)/L22$(@ˆ ('ì-'ú.†13ñC)/ñ66@(èˆ •IO1, •IO1A2ATESTSUBÂ •IO1hˆ ¦ Result:þþþL23þþþL22þþþL21þþþL20þþþL19þþþL18þþþL17þþþL16þþþL15 ,Á ¦ Arguments: þþþUþþþþþMþþþþþA2ATEST2þþþL° ¦ Result:TCIS ñOUT'Warning: The APL2ASCII argument contains braces. Check the'T<TFS KKEEPUS ¦ get the valueUS<< QA (0=•NC'KEEPUS')/L1 ¦ If it's defined, V<@ ñ2 K0 ¦ default is KEEPUS=0ñDE@TLBO ¦ Has the same representation (matrix or vector) as A.ñETXALñ ¦ Z - transliterated message (contains only ASCII characters).ñMXTMAI ¦ the secondary case (ñALPH[2;]), and ASCII synonyms areTXRSñ ¦ If KEEPUS=0 or is undefined, the third case is mapped toAPXXL U ¦ and ASCII synonyms of APL symbols become {'} {^} {þ} etc.þX ¦þDÀ1 (2†DûûA)/L1 ¦ If arg is a matrix,FINDhE E”ˆ±ÿÿ|èˆX·‡”ëˆÈõˆHëˆ˜ìˆüòˆ¤òˆLòˆòˆ °ßˆ ÄñˆhñˆTñˆ Þˆœâˆœ‰ñˆ€õˆ8õˆÜôˆÈôˆlôˆ$ôˆÔóˆ”óˆÈðˆHóˆùˆÄøˆ|øˆ0øˆè÷ˆ ”÷ˆ!L÷ˆ"÷ˆ#¼öˆ$töˆ%Töˆ&`üˆ'(üˆ(äûˆ)œûˆ*Xûˆ+ûˆ,´úˆ-púˆ.8úˆ/(ÿˆ0Ôþˆ1ôùˆ2ˆþˆ3Üëˆ4<þˆ5ôýˆ6Øýˆ7”ýˆ8\ýˆ9ýˆh8 ¦ newline-delimited vector.8Xì A ¦ A - the message to transliterate, either a character matrix orXHCRi ¦Translates APL symbols in message to ASCII stringsrH<d'[ZAPL2ASCII A;B;C;D;I;K;M;N;P;R;S;W;X;•IOn < ts”ˆ±ÿÿ æˆ ·‡ØåˆLßˆ€åˆHåˆÝˆ¸Üˆ`Üˆ0âˆ Øáˆ „áˆ‰|Þˆ ,áˆØàˆˆâˆdÞˆ˜àˆ\àˆ àˆÌÝˆÌßˆtðˆÜˆ4ðˆôïˆ¼ïˆlïˆ0ïˆðîˆP‰èõˆ ¤îˆ!dîˆ"îˆ#ðêˆ$¤êˆ%ôíˆ&Pêˆ'‰(êˆ)X‰*Ðéˆ+téˆ,4éˆ-èèˆ.¨íˆ/°Ýˆ0híˆ1°èˆ2(íˆ 4ˆZASCII2APL A;D;I;J;K;L;M;P;R;U;•IO48 ¦ Copyright (c) 1994-95 Jim Weigangþþþ8Lþþþ (3†1ûñALPHS)/L5 ¦ If this APL has three alphabets,þþL@þþþ Z[(~B)/âûB]X ¦ insert replacementsþþþ@\þþþ B[C/M]0 ¦ put 0 in posn for last char of each replacementþþþ\8þþþ X(X†' ')/X ¦ sans blanksþþþ8Hþþþ CIóûS ¦ 1s mark input chars to replaceHTþþþ B[M]1 ¦ 0s mark places where new space is neededþþTLþþþ N(W,1 1)[I] ¦ width of each input char in outputLXþþþ II+D^A=(S,' ')[I+D] ¦ use 2nd keyword (if there is one) for dyadicþþXL ¦ A - the message, either a character matrix orþþþLHþþþ ¦Translates ASCII phrases to APL symbols in message þH P(1+ûA)û1CRMATCH¸‚DUMPWSL < > Lõÿóÿ!#')+L$<Ñ ñF(0 3ûñF)ñFþ$8 ¦ newline-delimited vector8þþþXþþþþþPþþþþþKþþþþþAPL2ASCIIþþ@þþþ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)þþ@@þþþ ZñVTOM Z ¦ restore original rankþ@Lþþþ ZK ñUSLTOASC Z ¦ transliterate the third caseþþþL ,Á B(ý1M+\N)û0 P DDú(1A,' ')î'/\ë§' ¦ force dyadic if next is reduce/scanP@ D(ý1' ',A)î'''.)]0123456789_‘ñ•—',,ñALPHS@L€· ¦ Guess which symbols are dyadic (1=dyadic, 0=monadic):L@' R0 2ñTTABX ¦ replacement strings@<¸L4:SñTTABX[;1] ¦ chars to replaceþþ<Pþþþ AñDEDUBL A ¦ change ASCII synonyms to APL charsþP8þþþL3:K/L4 ¦ If KEEPUS=0,þþ8@þþþ AñTCNL ñMTOV A ¦ convert to vectorþþ@@þþþL2:(2†PûûA)/L3 ¦ If arg is a matrix,þþþ@Tþþþ ñOUT'result to make sure it has not been transliterated twice!'þþþT< KñTTABM[I;3]âA[J] ¦ look 'em upþþþ<PþþþL1:(0=•NC'ñNOUNWRAP')/L2 ¦ unwrap if ñNOUNWRAP is undefinedþþPþþþ ¦þ\þþþ ¦ Has the same representation (matrix or vector) as the arg.þþ\Hþþþ ¦ Z - message with APL characters restored.þþþH@þþþ ¦ line unwrapping is performed.þþþ@Xþþþ ¦ bypassed. If it's 0 or undefined (the usual condition),XXþþþ ¦ ñNOUNWRAP - (optional global) If ñNOUNWRAP=1, line unwrapping isþþþXLþþþ ¦ ñTTABM - (global) translate table created by MAKETTABLL A[J]ñTTABM[I[K];1] ¦ replace 'em with APL symbolsL@¨¾ J(A[1J-1]†'{')/J ¦ not preceded by {þ@P¿ JJ/âûJAîñTTABM[I;3] ¦ find special chars in the inputþþþPHX¿ I(ñTTABM[;3]†'{')/â1ûñTTABM ¦ rows for special charsH\þþþ ¦ Translate the special single characters to APL (e.g., •)þþ\þþþþþþ\þþþL3:AñUSLTOAPL A ¦ translate {A_}{B_}{C_} to 3rd or 2nd alphabetþ\HþþþL2:AñUNWRAPLNS A ¦ combine continuation linesHHþþþ ñNOUNWRAP/L3 ¦ skip unwrapping if it's 1þH ¦ Arguments: ISâAC3þHËC2C1Ë þA2ATEST MK ñMTOV Mþþþ Hþþþ K''û(~•AVîM)/•AV ¦ pick a char not found in MHDþþþ R+/P ¦ width of each keywordþDLþþþ UM(úëP)/M ¦ delete trailing blank columnsþLHþþþ M(ûM)û(,P)\(,P)/,M ¦ blank out stuff past the }HTþþþ P0 ý11,^\M†'}' ¦ 1s mark the {keyword} part, 0s beyondþTHþþþ M(A,' ')[P1+ûA] ¦ the {keywords} and beyondþHLþþþL4:PLø.+ý1+â1ûñTTABM ¦ indices where keywords occurþþLHþþþ LL/âûLA='{' ¦ indices of keyword startsþH<þþþ ¦ Translate the multi-character phrasesþþþ<þþþþþþþþKEEPUSF3ËKËF2þþþF1þþþþV3þþþþV2RþþþV2þçV1RV1çDçV0RþþþV0þD L4 ¦ restart this phaseþD8þþþ ñOUT'Warning--unrecognized keywords:'þ8Dþþþ P((P ñMATIOTA P)=â1ûP)ëP¦ remove duplicatesþþD`þþþ P(I=0)ëU ¦ get the phrases (as originally found in text)þþ`Dþþþ (~0îI)/L5 ¦ If any were not found,DDþþþ I(0 2ñTTABM)ñMATIOTA M ¦ look up keywds in msgþDHþþþ MñTOLOWER ñVTOM M ¦ allow uppercase keywordsþþHDþþþ ¦ (We must leave {->}, {delta_}, etc. unchanged.)þD8þþþ M((~Mî' _-')ú('{'=ý1èM)ú'}'=1èM)/Mþþþ8Tþþþ ¦ Remove imbedded blank, _, and -, but not those next to { or }:þþT$ ñCñDLB(ñCâ' ')ñC$þþþLþþþþþJþþþþþASCII2APLþþ@þþþ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)þþ@8þþþ ¦ Copyright (c) 1994-95 Jim Weigangþþþ8Dþþþ ZñVTOM Z ¦ restore original rankþDþþþ (D†2)/0þþHþþþ Z(=\ý1P)/A ¦ remove the keyword} partþþHLþþþ P[(L+1),L+R]0 ¦ put 0s to the right of { and }LLþþþL5:A[L]ñTTABM[I;1] ¦ replace { with the APL symbolþLTþþþ L(I†0)/L ¦ ignore { for unrecognized phrasesþþT@þþþ ñOUT' 'ñMTOV' ',P ¦ inform the user@H ¦Defines functions and variables found in message þþþHfXPXC ñG'ñQIO' ¦ assign •IO value to surrogateX`LLI (2†•NC'ñQIO')/ñ12 ¦ balk if we weren't called by LOADWSR`P VR (ú/†ëñTOLOWER'•IO ',[.5]4ñN)/ñ11 ¦ If the var is •IO,UP\‘O2 (0=ñQVARS ñMATIOTA ñN)/ñ12 ¦ err if not available on this APLñFM\L ñN ñGñN0 ñQUADCASE ñN ¦ normalize the caseB LT ñAñ9:('•'†1ñN)/ñ10 ¦ If this is a quad variable,ID T\VAS ñOUT ñK ¦ just a warning this time, misterN\TñULñ8:ñOUT ñTCNL,'Warning--unrecognized keywords in variable ',ñN,':'þTþþþñTTABXþþþþñTTABMþþþþZZþ0âM TFWRITE F;B;E;I;P;T;•ELX;•IOS0@IIA ñC(ûñH)ñC ¦ rest of fn @@AIS ñH(ý1+ñCâñTCNL)ñC ¦ header line@XSELñ17:ñC0 ñEJCASE ñC ¦ convert E/J in nums to primary caseX\VACñ16:ñC0 ñQUADCASE ñC ¦ convert quad names to the primary case‘\X2 D (ñLEVEL>1)/ñ17 ¦ Level II tolerates either caseFMTXDñGN ('APL68K'ú.†6ñAPLVER)/ñ16 ¦ In APL.68000...DTñMT ('APLPLUS'^.=7ñAPLVER)/ñ17 ¦ APL*PLUS tolerates either caseñTXAR ñ15:ñC(2+2’'['=ñC[2])ñC ¦ drop initial newline and ì or [0]RAX@PLñ ¦ ì prefix -- extract a function definition: ñ@D X ñ22þþ0„† O>0@ A ñOUT'Transfer form stored in variable ',ñN,'.'@T ññ14:õ(ñNñGENSYM'VAR'),'ñR' ¦ save the untransliterated valueTXMPUñ13:ñOUT ñTCNL,'Unable to extract value of variable ',ñN,' (',ñERR,').'XñGN ñ22 \ I ñOUT ñTCNL,'Unable to assign variable ',ñH,'. Value stored in ',ñN,'.'RC \H ñT õ(ñNñGENSYM'VAR'),'ñV' ¦ assign to surrogateHP ñ12:ñHñN ¦ remember the original namePC ñ22RILER ¦ ñG is usually the same as ñN, except when ñN is '•IO'ML\M‘Rñ10:(~•EX ñG)/ñ12 ¦ jump if assignment will likely failþþ\xÀL13€L12xL11€àL10ÀL9þþþL14 ñ22þþHþþþ ñC' ',ñC ¦ indent all linesHDþþþ (ú/(ñC[;1]=' ')^ñCú.†' ')/ñ18¦ If no exdents,þDPþþþ (0îûñC)/ñ19 ¦ careful--may be empty nowþþP\þþþ ñCñDLTB ñC ¦ delete leading and trailing blank colsþ\Tþþþ ñC(-ñW)è(ûñC)ñWè((ûñC)+0,/ñW)ñC ¦ remove the line numbersþþTXþþþ ñWñW’ñC[;1]='[' ¦ zero width for lines w/o numbersþþþXXþþþ ñW1++/^\ñC†']' ¦ width of line number on each lineþþXLþþþ (0îûñC)/ñ19 ¦ jump if body is emptyþþL@þþþ ñCñVTOM ñC ¦ as a matrix@P õñN,'ñC' ¦ save the •CRþþþþþþþþþþþþPHþþþñ20:ñNñGENSYM'CR' ¦ available nameþþHDþþþ (0†10ûñN)/ñ21 ¦ If •FX failed,þDDþþþ ñN•FX ñC ¦ define as fnþþþDXþþþ (~•EX ñW)/ñ20 ¦ erase first, in case defined as varXPþþþ ñWñFNNAME ñH ¦ name of fcn (or operator)þþPHþþþñ19:ñC(' ',ñDLTB ñH)ñOVER ñC ¦ restore the headerþHLþþþ ¦ If we don't do this, APL.68000 deletes the blank linesLTþþþ ñC[(ñC^.=' ')/â1ûñC;1]'¦' ¦ make blank line be commentsþTHþþþñ18:('APL68K'ú.†6ñAPLVER)/ñ19¦ If on APL.68000,þþþH ? þþ ÿ‡?ñOUTƒàðCR1ÿ~aSCII2APLàüÿaPL2ASCIIÿÿI2PiNSERTFNSAMPX V5RNENV5 DEAV4R V4E2A V3R ¦ÀLOADWSOASINSTALLASCIISAMP ñK'',ñN DUMPWS ñF;KEEPUS;ñQIO,@þþþ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)þþ@Dþþþ ASCII2APL ¦ accessed thru õþþþDþþþþþþ<þþþ ñ3 ¦ Endloopþþþ<Pþþþñ22:ñZñZ ñOVER ñN ¦ remember what we definedþþþPþþþ ñOUT ñKþþþHþþþ ñOUT ñTCNL,'Warning--unrecognized keywords in ',ñW,':'H$þþþñ21:(0=ûñK)/ñ22þþþ$þþþ ñOUT ñKþþþ\þþþ ñOUT'And, by the way, it contains the following unrecognized keywords:'þþþ\ þþþ (0=ûñK)/ñ22þþ Xþþþ ñOUT ñTCNL,'Unable to define ',ñW,'. •CR stored in variable ',ñN,'.'þXL ¦ optionally followed by the continuation indent.Lþþþñ8þþþþñ7þþþþñ6þþþþñ5þþþþñ4þþþþñ3þþþþñ2þþþþñ1þ< ¦ ñF - the name of the file to writeóÿ<þþþñNOUNWRAPþþþþþñERRþþþþþþñWþþþþñVþþþþñTþþþþñSþþþþñRþþþþñNþþþþñKþþþþñIþþþþñHþþþþñGþþþþñFþþþþñEþþþþñCþþþþñMþþþþDEFINEFNSþþþþþñZþLˆ KEEPUS1 ¦ preserve all character distinctionsþLXþþþ ¦ If ñN is omitted or is numeric, all objects are written.þþþX ñRûûñZñA„DETAILSGREETINGW$v ^Y"Ÿ$þþþñ22þþþñ21þþþñ20þþþñ19þþþñ18þþþñ17þþþñ16þþþñ15þþþñ14þþþñ13þþþñ12þþþñ11þþþñ10þþþñ9þ0ü} ¦ Establish the correct shapeM00 L6 ¦ Endloop0ASCIISAMPXDESCRIBEW0¨ ('APLPLUS'ú.†7ñAPLVER)/ñ5] 0Xn S ¦ defined, •IO will be placed in one of the VARi variables.2 vX ¦ Arguments: |/ (~0îûñC)/ñ9 8ü! ñZñLOADSUB ñF ¦ do most of the workPR8`X E”ˆ±ÿÿˆ˜ˆØ‰ü‰¬‰p‰”‰l‰`Dä& ¦ replaced by their APL counterparts.þþþD 8 õÿ @ped ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)')@PN 1 ñQIO•IO ¦ setting this serves as a flag for DEFINEFNSrsPT TN ¦Reads transliterated file , defining objects in the workspace ì TD8* W+/R†' ' ¦ width of each replacementþDD •IOñQIO ¦ set value imported from the fileþD 8 TY þþþIPSACASEþþþD0. ZB\A ¦ insert space for phrasesþþDDÀ1 X,R[C/I;] ¦ replacement for each charþDD AñTCNL ñMTOV A ¦ convert to vectorø3DL8 Z(R),E†)Ds' flC',þþþUSAVEþþL7þL6þL5þL4þL3þL2þL1þSþWIþVHþTGþSEþIBþHAþGNþEULABþþþþþAþþþþþNþþþþþF:Zct,ZE†þþþULOADþþþþþþþþþþþþþþþþþþþþþþ•DMþþþ þþþþþþÿÿÿþþÿÿÿÿþþþþ€þþþþþþþþþþþþþþX ‰þþþþþþþþþþ 4´Y ¦ Copyright (c) 1994-5 Jim Weigang44ZGRPA2Aœ/ •IO1@ ¦ APLASCII.APLPLUS2 version 1.4 (1995.10.15)ˆŒ@TtŒ ñQIO•IO ¦ capture global value for use by INSERTFNS„±Tp± ¦0ÝL2:Z•NREAD T,82,(•NSIZE T),0CA0PKET ¦ Use ñMUTE to prevent warnings caused by chopped keywords TPX WR ñSñMUTE'ñAASCII2APL ñA' ¦ get first few characters of each row‘X\2 D ñNOUNWRAP1 ¦ prevent ASCII2APL from unwrapping linesR \HSY ñZAPL2ASCII ñZ ¦ transliterate itA‘HL‘SC (~ú/ñTîñZ)/ñ2 ¦ If msg isn't all ASCII, ñLHAR ñ1:ñT(~•AVî32127ñASCII)/•AV ¦ non-ASCII charactersOHLNWA ñZñVTOM ñTCNL,ñZ ¦ convert vector to matrixTLñWI (ñR=2)/ñ1 þþdþ“Ï¨Œß¶XY ã\Ü]²}^¿â´ÞÀabcµåà7¾Ô¢’ÄyÉ–sÖÎ·Ú¼Â=ÓRÊ»Ù•Õ"ÌäŠQÛ×Ëº›ŸP|©A~¬D®£ MÃfžÑijklÈÝ