n<V@p(8H7 X<\@0<55A CTDIV!IO1LXAPPQPWaRLqRTLTRAPSMWSIDSEMPML"""' (" !  !5B\t!tD7(\8H04X7#(q"@ @"!X0"DX"@ 0 WDYALOGlAPLPLUSdpX(7P 47L $BBPl P  Xt @`| PATH+q . \4"h \" d Ptb܅h!@h X(",T"7! "܅" ", %?tX "< 0T* "p   "$$ "P "d | "  "t "D " 3Є 4ABCDEFGHIJKLMNOPQRSTUVWXYZ !"#$%&'()*  | "  Z  d " H hpp 8s`WRAPLNS 8$`$`DTB!8_`UNWRAPLNS0 pTFWRITE8 TFREAD{x( tAJ oTe \]8KEEPUS 8p0`OUT( `TTABM $(`TTABXAPL2u    D`APLVER L18`MATIOTA5 e`OPSYS8pbDUMPWS0p #LOADWS#T'$#'"9<}{ltYD 0 `OVERXhL2  L3 8rd`TCNL/8(APL2ASCII LL4M0T $oASCII2APLjhL5E L68\`ASCIIL7KEEPUS L8L9L100h2^`ALPHS"Xd(L11L12} 1< $rBLKFi!8dgp:qrsdtdugF"$#&""A2A$"#"#egN#$&"V#$"")&%Z#"$"$"(Fegp:W!``qWa@qa!Wgp:p!ysgT"#$'#{}"")#%eg W{|}~!WgU#`MUTE$&'"###%$)"#$&%Deg9` pa@^I"#%$$#egp:`W! pa p ^'" eg9W^E#egj^'" #...eggS"$%$#''"  .A&## $$)'"#"##Beg"#'#%#%)%'$$#""$$$($.AegZ1`PGWID`WRAPLNS1®ZZeg0eggF#$'"  egt:``Wa$pa!W^$"#$egp:`Wa%p^"#$$$egu: W^'%$$##egq:` pau ^%"'#"!%"egp:`q!ua `qua$p^'" $eg9`qWa@gp:``q!Wa Wa!p!`q!Wa W${}#egpbW pdVW% pc:W%${#$egjp:t!bWcp ^$1#$eg9Wg^##$"%egAPLASCII.DYALOG&"#1.41995.10.15)e0 y+7Dd 8X\ (qq  pFT_ I xM <TRp SoU"Aa4Y"b 0!!`MTOVIPSAuA$ch ,APL68K<T{`LEVEL5#VqY)23 8t"`VTOM8]INSERTFNS330ppUDEFINEFNS$B.qWBkuP{gp:qgR$%"#2"3)26$"($ $#&$##)#$HegT"'#"eg1 "")#%#%)% "#%$'"S" APLCeg2#")#%#%)'"#"% "#%"#"Feg%$% "#S" APL&eg3$"#$##)#$#.egeg9`WDW$ta@uID) egp:?bV8D#Wc^% "#'"#%"#"%eg9Wguj9` WD W$ta@{IS" eg9`?b> Wc Wa@{^% SAX%#$$' $#&egp:?bV8D#Wc^$" $#MFPC eg9Wg{jp:V Wgp:` WD W$ta+p^"&"#% "'"S" APLSAX%egAPLASCII.DYALOG&"#1.41995.10.15)e#xy+7,pT pTd 8l@t\hWX  8h 0 "x,X XA08L1 R \!^A1A|ux/IA8$AI<P8!`LOADSUB1|5 D!$!@!\!x!!!!!" "<"X"t""^th ( ()\h){ @ )(*T***$/egs:>^#$$$##"&##"DEFINEFNS,egp:tr^#$$'"eg>:s^#$&% "$"$!egAPLASCII.DYALOG&"#1.41995.10.15)e" y+7$bT T̂`$@d 8 X ZP)d Y)\]x8Yq4d(PFh'gp:qrdsdtdud>gF"$#"")&%"A2A$"#"&egs:`WDW$xa! WDW$xg>:` Vabs# Wc^(* egs:@u: r^$%$egt:` W uas W ^I"2"A# $)egt:t`s Wa W u ^"A#1$&$"egp:t@`0ua!W ^#$"$'$# egr:!rg9`ra@ ^% #$eg9`W W$ W ra@ ^I%" eg/`s Wa@W ^"# 0 $)egr:0r^"$$%"#eg9^E#"$"egjr:W!`` WrWa@ra!W^!%$$ egT#" $)$&#)#$#>egp:``s Wa W ua@p^$$0" $)&$" egjp:p!rg9 WggR%"#$#$$"%#("");egjt: Wg/` W,ua@W ^$ "$$) A# $)egu:WDW$x^1S" APLegu:``ua@Wa!u@W'$ $I$$A!egs: rgj9`st:t Wa@ W ^L "$egp:p!` W$`s Wa%Wa!`q/ua!`s Wa@Wg9^E egAPLASCII.DYALOG&"#1.41995.10.15)e|$#y+7\7`16TDEFINEFNS"%$%#$$"#$"$". (@);`28t*h \# b)8!D`MUTE`FASCII2APL`Fx*",h@*08l* 0123456789*2`3$ ~qt=AD`||9Xy}gp:qrdsdtdudvgT"#$#ASCII#)#$$""# APL"$"#AegSAPL#)#$#&$' #"$"$"#AV?eg'$ )APL%$#)$$"@egASCII#).F"( APLPLUS#$'&"$"#Beg%#""#%$$"#ASCII#$.1egT#%$$#$%$ASCII#)#'Aeg%#$"#)#$ $$%""$%#%)'$.Degeg9``WDW$ya WD W$ya@|gu:! W ^# $#$#egv:!W ^" '$APL#$eg9g|j9`WDW$ya@gu:?b>Vc^ASCII!%$"$#$egv:?b>Vc^$APL#)#egjt: rgs:`r,ua@# r:!r^#"#$$"#$egrbsc:vbu#rbscc^"   egp:t r ^"#$""# eg9Wgjp:r ^%"$"#$#APL"egAPLASCII.DYALOG&"#1.41995.10.15)e#+*y+7`K`MUTE `CASCII2APL`C .8 ح`WITHTTM{} ```/$q0chCgp:qrgR$%"#&#$"$'$ "(0egr:!rgp:`` paV ra$p:`W$ram=Wgp:``pbd# rcDra@``V ra%pa,WaAp^(#$&"#'. "(egp:!/W!!W!`V ra%p^$#%(# egp:r!0``# pa,pa# W^'#$&egAPLASCII.DYALOG&"#1.41995.10.15)e)//y+7 1.9815d12P6`6(1 `TCLD-8zV`DLBl0<"r\`TCLFfAPLASCII&"#;̒ 28 d`XNUMS(D`A2AVER%? 2*3`48W"T#$"#$"$'# "%%#32?&"#APLASCII.C"$#$"")#)$"&܃038""$) ##)'$%$ "%)"""##.3()31`59W"T#$"#$"$'# "%%#'"@4:&"#APLASCII.T") $$) "#.@x4Y%#%$&"#\s̷4 APLASCII""%$#.te 5`x1h5P6`7.p58:`150"{T`GETVAL76`13`9#546`8-U"*)'"#&$"&"Є7l65`14+W"%"*)'"#&"6l478`1087`QUADCASEv0x7"`QVARS6`12IOl7(6`11`QIO_ 8`V9L85`22850`GENSYMVAR*88U$##&"\X8.V%#$"($9$U$($"$&%&"r,`9.e|t9`Rx;9!T"#""#$"&"W:l::`17P:`168"`EJCASEP:;`19:`188x!`FNNAMEh);`20x8`21CR8;`Cd;U$X02;.CR#$"&"̷;AA)$')$$#$'%"*)'"#L<"W"%"*)'"#|<$^ qK Q RUhIx3:T # / _ z {  . 3 q { 5 k . / \ n z  P ~ !fij4Bn&1Ro|<o2mp˜"%&T!Xٌ>t>`*P"%(5@CDl{|gp:qrdsdtdudvdwdxdydzd{d|d}d~dddd>gD#%$#&"#%##2egA"%$# eg`M$$"#$"$##"'%$&"@eg$##%($"$.M)$""$"Deg$"("'$&$"..eg`QIO $I$#&"#)&%IODeg%$##'##$`QIO.I$# $DegIO' $VAR&"#.BegR#%$# eg`Z"$"$"($$#$#$$>eg'"$'"# .'eg`QIO&%IO%$##.S&.BegegA$$#'$$"0"#$"#$?eg"$""#$#$"$$$##.=egA$$#'$."#$#$"$&"$.EegA$$#'$"#$#$"$#$$$$(%$.FegA$$#'$"## "$"#$"$WS$.EegA$#'$#"$$Deg##. egegI%$ $$#CR# >eg&"CR'"#$".,egI&" $$#&%# @eg&"VAR.egeg>:Wgp:V Wg9`W,ra@gWg9Wgj9`W ra@^I$$"(egr:!r ^"CR#egjr:rgu:``W$ ra!W WW% a$rg:W^ "&$ASCII2APL"%'" #(eg}:#W^$$"#$'#)#'egU#`MUTE$#% "##"""###" )'"#=eg:W^$%"%'" eg9`W, ua@Wgu:`$V ua$ug|:`ubdWcWaubd#WcD%W^#$"$#egt:|ubdWc&W^# eggjx:|#W^L "$eg9`x |a@W^!%$"#egz:`x%ta#W^%#eg{:s:rbx(W#zdc ^$ egs:s ^'"'$$#&$"egy:WgC&"$$APL $%"%"*)'"###;eg*W!-WgW%$"#$"$$#$$%#' $'$$Eeg$"(`M$($")'"%'" $$%$Feg#&"$#.&egy:`y#a%y:`y#a%y^#$)'"#) eg|bx!``W%W$sa,.Wa@` |axzc:W^"$## "##egI$#$#%$ $#"$?eg')#$$#$"$$.;egg "(""&"#%"*eg9`/WDW%W$sa@gs:`s#&Wa%sg~:2Wg9`~D` ~a$sa@ ^# %$&"#""# egs:` ~a%sgs:W$`(Ws#4Wa$s^&"#%"$"%$"egz:W$`(W#4Wa$^%"&"#%"eg9`sza@^&"##"$#eg9`s6Wa@^'"&1.3 $$) eg!8Wg9Wg:Wg9^ " #'#%!%$#$...%egj9`sza@^'""%$#'"eg!W!`0sa!?Wg9gj^"#"%$$1.3egF"''##%$$%$%"&"##'% '" $Beg9gg "((%$#$$$!egj9`@WDW%W$sa@g/W%s^I"""(%$`3$"#$"$$eg9gg. "(($"$&"$+egj9`BWDW%W$sa@^% $&"egz:`(Ws#DWa$sg~:`W za%s^&% "$#$egv:z:`z&Wa@z:W%z^$&"" NL.&eg~:~^$"")&%eg9`W a@g9`W ya@^I)%"*)'"#!eg9`W ~a@^I&$"eg!IW!z!JWgy^$ #"""eg9^E#&$"egj!LW!z!JWgy^%#$'"$#$#$"*egj9`MWW$za@^I$##!%&"egv:z:Wz ^"*$#eg9`Wza@^""$&$#APL'eg9`@ATW!bUWcVW$za@^I$&"#IOeg9`Wn=XWa@ ^''" $)LOADWS-egv:XW^##IO&%$#%""$'egj9`x=va@^% ##$')'egj/v!YW^$&"eg`G#%#%)$##`N( $'`N# IO 8eg9gjw:z^""$"eg/`z:\Wa!YW^##$#%""$eg!]W!w!^W!z!_Wg9gj!`W!z!aW!!bWgj/`z:\Wa!cW^#&$%$"#$"$&%#egdW!z!_Wg9gg "(($"$%$$+egjs:`WWeWsbWca%s^" $'"0%eg9`fWDgW$a@^APLPLUS$"$#$"#"eg9`jWDkW$a@^IAPL.68000...eg9`Wa@^L&II$"$#$"#$egjs:Ws ^&"$!%#$$ "")#*egjs:Ws ^&"$EJ%#$ "")#'egw:`(Ws#a$s ^"egs:` wa%s^"#$egs:s^#$"(eg9`W, sa@^% )# $)eg:W@BspW^'$%"%eg:sbdWceW^*"'$"#'%"#$egs:`a*` sa$*`` saW!@a$s^"&$%"#egs:s^$$"#*eg9`W, sa@^"%) $)'eg9`@`sbdWc&WasD&Wa@I($#egs:&W!s^$#egj9`jWDkW$a@IAPL.68000egsb`sD&Wa@#W$ sdWc:sW^$#"egI' $$#APL.68000$#$#9egjs:`&W!was^"#$"$"eg:w^" "$"eg9`x=a@^"#"#$##&"'egz:t=s^#eg9`WW$W za@^IFXegjz:wW ^&eg/z!xW^#&$CReg!yW!!zW!z!_Wg9`W ya@g{Wgyg9gj9`W ya@g!|W!!JWgyggjp:pz ^""'$'eg9^E egg^##$"%egC )"$199495JW"egAPLASCII.DYALOG&"#1.41995.10.15)e<<y+7r1T X$nq*`qwvgp:qrdsgD$#%#&$""$"(3eg9`W s:rWa@vgs:Asgvjp:`Bsa@rgAPLASCII.DYALOG&"#1.41995.10.15)eU$V Vy+7PtV8q[ 58@MZgt ,8dgp:qgR$%"#128ASCII"$"#'$" "$"#>egI"$"%"#$'AV$#"$%"#$&"#@eg$$ #$$ASCII"$"''"$$)TFWRITE">eg")TFREAD.egegp:W WgpbW#Wc:WgpbW#Wc: Wgpb W#Wc: Wgpb W# Wc:WgpbW#Wc:Wg9`WD W$a@ ^OD) egpb>Vc:?b>Vc^%#ASCII!%$"$#$eg9WgU#ASCII# $#$APLPLUSS" APL1egj9``WDW$aWDW$a@Wgpb>Wc:WgAPLASCII.DYALOG&"#1.41995.10.15)e# ^ $%"&%"%#)INSERTFNS*egpyr^$'" egAPLASCII.DYALOG&"#1.41995.10.15)e]`x`y+7} bL& bIlc!!`IPSAVER$qCw~%.Zgp:qgR$%"##$"$)$%""$APL#)#$&"$Cegp:r`s#Wa%s^APL#)#$#" $eg9`WDW$sa@wg9``W$W%sa, Wa@wgp:p! W!0{gwj9` WD W$sa@~gp:p!W!g~j9`WDW$sa@gp:p!W! Wgj9`WD W$sa@Wgp:p!W!gAPLASCII.DYALOG&"#1.41995.10.15)e1#]xc`cy+79d0pt"`TOLOWERbW"%"*)'"#\sDe$q DR4|36<b~781bcS Kk Lvz ) ]  gp:qrdsdtdudvdwdxdydzd{d>gT"#$#ASCII "##$APL#)###4egA"%$# egA$##$""$"$"("6eg'$&$"%eg`TTABM$"#$$"$)MAKETTAB9eg`NOUNWRAP $I`NOUNWRAP1%'" #Beg) ##.I$ #0"%$%#%$Eeg%'" # "".*egR#%$egZ##'$APL"$"#"#$".2egH#$#" "#$$$"("&$"#$".Gegeg>: Wg9` Ws: ra@~ ^I"#$"(egr:r ^&"$$&$"eg~j9`Wn=Wa@^%'" `NOUNWRAP#%!eg9@ ^# %'" $ #1egjr:r ^$%$#egjr:r ^$"#${A}{B}{C}$3""2 $.eggT"#$$# #"$"#$APL.. %#Gegt:`bdWcWa@# W$ ^"'#"# "#egu:u@# u:r,btdWc^# "#$ %$ egu:`rb Wu WcWa@u^$ "){egv:btdWc#rbuc^ % egrbuc:btbvcd Wc^"  '$APL#)#eggT"#$$%$"$" "##&egw:w@# w:rW ^#)'"#$"$#egjy:w8DW# W% ^#'")'"#%"egx:`r!Waby W rc ^${)'"#})egy:V% W!BxW ^1#"${)'"} "$0#)&egx:` xa `!yaB`!ya@!x^%$#$% #$$}eg{:x:`Aya@x^$$"%#egz:@y^'$)'"egv: W `?,xa@? ^ "$%Megx:vxgR&%$$$#($${"}?egx:``x,!Wa`WW*xaW W*xa@xgW%#$&{}{$}$.%.0egx:x^'% "#)'"#egt:`$V%ax^% )'##eg9`W,ta@^I)'"$%egy:`tWaA{^$$ "###")%$($1egy:``yya# W$ yaAy"&% $#eg(WgWW!y ^"$%#"egw:`tWa@w^"{"%"* "##%eg9^"#$"$$# #egjrbwc:btd Wc^" {'$$APL#)egy:` W ra Wgyb`w Wa!wzc:W ^ %$0#$$"${}egp:`BW%ya@r^"&$)'"} "$eg9`s Wa@Wgp:p^"#$"""egC )"$199495JW"egAPLASCII.DYALOG&"#1.41995.10.15)e\eey+7 ̂V" oEe8(`FMTVALAPLPLUS1b@Lpx;|t|p pxGRPA2AX plp#q 0123456789,@q!$`\!!<"t\(h)opp`rt7 rrzsh2\s^ss@d 83 Pt|t*2  t1|u`QIO`N`F`I`TsXgS%"%$)DUMPWSeg`F#$`N#$#$$#`QIO#IOHeg>:Wg9`WW$W pa@w^I#'"# egp:x! W!p^$$#$#$"(egp:`pD WaApgt: Wg9{^E#egwjp:m= V^'"$#&"#egD$#%#APL.68000L&I# $#"$$NL"#%$?egp:pb?(pdc^ $""egD)"$&#)#$#...4egt:}~xWgp:`WtpaAp^( $$A2A$#egp:~p ^'"$!%&"#$eg{jWg W! W!`>Wap:pgt:W!!gt:t!W!!gt:t!W!!gt:tggOAPLPLUS'TFWRITE#$"$&  $Ceg'"$$$$eg9`WD W$a@gtr^#'%$)(#$ egr:``$Wr#%Wa$ra!&W^ "#$'$%$#egs:Wgj9``W$ pas:sWa@^L "$egt:*W!pbsdc!$$egtr^ $$$egt:W^"#$"eg9^E egjt:+Wgtrg9ggO$"#)#$#%$'"#%$")4egjt:t!*W!pgt:t!`W a!+Wgtrggj.WgAPLASCII.DYALOG&"#1.41995.10.15)etquuy+7$01 `DLTB0eg9`t:W,ra@v ^I$ # "$"..ZFOPB(egr:`Wr#Wa$rgr:`r#Wa%r ^$$#$%$'$ "#$eg9y^E#$ #%$egvjr:`` W,rar# Wa%rgr:`Wr# Wa$r ^$$#$%$'!egyjrb`r Wa@# rc: W^{A}FOOB${AFOOBegr:~ W!rgr:`rD WaAr ^$"(#Hegs:`V!bWcVabWtdW rc^"'$$ egp:`p Wa@p:rbsdcgAPLASCII.DYALOG&"#1.41995.10.15)e y+7EW"IO##'&%##.E( "$#1.8X" `USLTOASC"@D$>q.<&m>oz (Jcrvz~ ,KrxAt/J 7\gp:qrdsdtdudvdwdxdydzd{d|d}d~d>gT"#$#APL#)###$ASCII#$"#4egA"%$# egA$##$$"#$"$$""$"$"("Eeg'$&$".$eg`TTABX$"#$$"$)MAKETTAB.8egKEEPUS $&"IKEEPUS1$$"=eg $##$"#$"$#{A}{B}{C}$.DegASCII#))#APL#)#{ }{}{}$.DegIKEEPUS0"#%$$"## $Ceg$#")#`ALPH2ASCII#))#"Aeg" )$"APL%$" "$#..egR#%$egZ$"#$"$##$#)ASCII"$"#.CegH#$#" "#$$$"("&$"#A.?egeg>:Wgw:W^%$#KEEPUS0eg9`Wn=Wa@^I$ #egw:^$$&%egj9`@W,ra@gWgWgWgj9`Wz: ra@^I"#$"(egr:r^&"$$&$"egj9w@^IKEEPUS0 egr:r ^ASCII#))#$APL"#&egj|:bdWc^"#$" eg{:!V% ^" $#$"#eg}:@{"W ^'$" $egv:|#rgG%##'#)#")1)06egu:`#W%"W!ra,$W!!gu:u`W%r!"Wa,&W^")($#"%#$egv:vur`|!'Wabvuc^%#2)'"$"#")-egy:`}!(Vabvc ^'$ %$"%$ %$#egs:`#W$x:Bya Wgsbxc:W^0#" #'"'# #)egp:sBr^#"$# " "##egt:v |^1#" %$"#$" eg~:!{bt@vdc ^" $""eg~:`~"Wa@~ ^### egsbt@xc:W^ %$0 #"#$"" $0egpb`sa@# sc:~ ^#"$" $#eg9`)WW$ a@^I$#APL#$" $#!egp:wp^$"#$"$$$"# egj9`zWa@Wgp:p ^"#$"""egC )"$199495JW"egAPLASCII.DYALOG&"#1.41995.10.15)e,py+7U$#"$`r;4'"##.sTp$.Lu_0\!x!t`FMTVAR%$.,s@Ȣ@0^1`RJUST`CAPL2ASCII`Cx$tNq}h)eP \_e"?YBp(3p = A T  M W Z f i  _ B x  = c .gp:qrdsdtdudvdwdxdydzd{d|d}d~dd>gI#"$#%$&"#$#$##$"#$"$#$HegA"%$# eg`A##$'%$$##%#"$.EegM)$""$"$"("'$&$".GegL#$##$$'$׷"" Ceg'$$%$"&" #$.5eg`PGWID$ '$$%#'" $"#%$@eg $)')$$%$$.9egE..`PGWID783eg`QIO $$&%IO%$#$#%$.CegR")IO##"$./egR#%$eg`Z$( ##.H#$#"$"("&$"Eeg#$"%$.T$"$($$(#$$($Ceg#"$%$#$##$"#$"$$ASCII.AegL#%$&"#$#"'" Ceg%$#$"#$$$($"$.9egeg>:Wg~:W$!W^ '$$%$$#eg{: p:rg9`{Wa@gp:!p^&"$&$"$$"(egj}:`?,W%W$a@?^ASCII"$"#eg9`@},pa@^I## $ASCIIegp:p^$"#$"$$egjr:``W$ pa!WW% a$pg:W^ "&$ASCII2APL"%'" #(eg|: W^$"#$'"$"#"'%egU#`MUTE$ "&$'"#%#) )'"#;eg:!W^$%"%'" egr:``W$ ra!Wa$r^)1#$2#egx:x@# x:rbdWc"W ^"'#$#"$#&"#egx:`rbxdWc#Wa@x ^# "'#$$#$"$'$eg9`!W xa@^!%$$$#"$egt:%V%pbxdc$&"#egt:%V%`tbdWc'Wa*(W!t^$.')&'#egw:W)W xgj9`!Ww:wWa@ ^L "#"$#$$"#$(egv:u:`u(Wa@u:tbwdc^$$eg9`@A,W!b-Wc.W$ua@^I$$#IOegC"%"DEFINEFNS)$#IO5eg9`Wn=0Wa@^I`QIO# $'"%#"'eg3Wg9^E# egjv:0W^$&%"`QIO$IO&eg9^E egj9`5WW$ua@^##%&"#$"$#'."eg9`6Vn=ua@!!gN$O##)#$#..D)NC#$"$%"4"Aeg!%##'$# "$).,eg;:9W!u!:Wg9gj;:9W!u!;Wg9gjs:u/v ^$&"egU#%)`H#$##`G( $'`G# IO 8eg9gjs:|=u^$eg9`!W, sa@g;:9W!u!?Wgs:@W!u^#$$#egT###DEFINEFNS' $#NAME $)Cegs:`W! sa s^'( $#$"(eg9gjz:0``W$ sa!Wa W#W$ s^%"#egz:AW!`za!CW^"$#egz:``W$ za!DWa$zgzbWdc:`W% za$"W ^" 0'$egs:z!s^$%"#egs:s!bWc`W% sa$zbWdc^ %$#$$$eg|:EW^$"#$"$egs:~s^$$egjy:xbwc^"'#$" eg9`yW$ pa@^% $#eg9`pbyWdcD(Wa@ ^I($## $$egs:s!bWc(W^egjp:```yWa!W% pa$pas`y!!Wa%p^#"$$#$eg9^E egj9`{Wa@!Wgp:W%p ^"#$"""egC )"$19945JW!egAPLASCII.DYALOG&"#1.41995.10.15)eȓy+7xop ȢW,p px/Xt\< X).X YT`MUTE ZAPL2ASCIIZ t40WcgAPLASCII.DYALOG&"#1.41995.10.15)e.1#y+7rT o]8TD t\X <${A}X_"4$^rs@Du/Kx ;hgp:qrsdtdudvdwdxdydzgT"#$"$#$"#$$"#$'"#"{A}{B}{C}EegIA1$"#$$"#{A}{B}{C}.2egIA0$)#")#$$"#.,egy:{ ^ $#$##)#$egp:sg9` W W$ ya@W^)2 $#egu:yb Wdc#s ^% 3"#egt:u W% y ^1#"3"#$$"# %$"eg9q@ ^I%#"# $'$$ "#"&3"#+egpbt@# tc:ybWdt@uc^&"$$#")#eg9W^E#$"#$"$egjz: W Wt ^'$"%$ %$egp:`W$w:Bza Wgpbwc:s ^#"$3#$$3"#$$"#,egx:``@ta!Wa W" $ "$$) egv:ybd Wc#W^"'% "#egxbdWc:ybvdt@uc^#"$ " "$$$"egpb`t@wa8DVc:x^" 3"#$$"#egC )"$1994JWegAPLASCII.DYALOG&"#1.41995.10.15)e|T<y+72Vc:v!wgA"$"")%$11$"#$"ASCII"#5egpb`pWa@# pc:W!`?,pa@?gAPLASCII.DYALOG&"#1.41995.10.15)e#ly+7#$$"%#"")\XXP) % "$## |5LQ<_$cx$%$'""# X$Nq2c-qt5g),;grw CoGLcIP\,-L~  ) U gp:qrdsdtdudvdwdxdydzd{gE($"$#&%""$$" "#$$.egC#"$"&$"$$ "$$$"#"?eg"$$"$$##$""'.IAPL".=egS$#&"`ERR$"$"&$""""##$Eeg&%% $($"$"$ $"'# ".Aegegp:z: V W ^# %$"eg9`WW$ra@gr:r ^$#)##"))egj9``W$ra,Wa@^I$&%#$"$#'$$"egv:W$u:r#W^"# eg9`vDW%ua@^I%"#"" egz:`vWa$r^$$# eg9` W a@ Wgr:v%r^" $"$&%eg9`WW$ra@gr:rgj9`WW$ra@!!^% #$""$"$) !egp:r ^$%"# eg9` W a@ Wg9gj9`WW$ra@gr:r ^" )# #$#!%$#egjx:BrWg:Wg9``W$xa@xW%W!xa@ Wgp:W%x@r^$"$"&%eg9ggR%"##$&%egj: Wg9`!WD"W$a@ W^#$"")#APLPLUSPC eg9`$WD%W$a@g9`Wa@ W^"APL.68000L&Iegj9`(WW$ra@^I$#$"(((egy:` raw:!W ^" $ 'eg9^% egjx:BrW^0#"$"#egw:xr+W ^1#"$ "#%$#!%$#&egy:xr,W ^"$ "# egs:Bwy^ $ "$###$eg:-Wg9``sD Wa WW$sa@ Wgw:`wsWa@# w^#$ &#egy:`ys Wa@# y^#$ &#eg9`W wa@ ^I$#$"(((egp:qw%`yWa$r^"$%"(((eg9` W a@ Wg9gj{:.WbW/WD0W$c!1W^Q"S" Q"$"#egu:x: Wgp:`t: wa /{gj9`tu:uWa@^L "#$$egx:qwbuc%`ybucWa$r^($"$$&%$'#"eg9` W a@ W ^&%  " #%%egpbuc:/{^##$"$eg9^E eggE#$#$""$# egj9`3W za@^I( $# '#% eg:5Wg9`` pa, W!W@za@ W^#%"$%$#""$&eg9^E#egjz:`W pa@ p^#"#$#&$"$egjp:z pg:7W^$#%##egAPLASCII.DYALOG&"#1.41995.10.15)ePy+7 eT T\XX$q:kpu|gp:qrdsdtdugT"#$#% "#$$"#$'"#.egu: rgr:!rgt:W#rgs:tWgrbs@# sc:Wbs@tcgp:u rgAPLASCII.DYALOG&"#1.41995.10.15)ety+7bWT \t$nq(l?gp:qrgR$%"#1##$$"%#("")0# Aeg9`p:W ra@W ^"$%"1#$eg%#D)APL"$%"#$&&% $#$%"Fegp:@`W$rar:>3W$W 2!r^"$%"1$"%#egAPLASCII.DYALOG&"#1.41995.10.15)ey+7 \!t D \2,pr R...*\q"N$#'"%$.,W$q?ygp:qrd>gR#$"#$"$$#$'"# >eg>:WgtWgr:vwrg9`W, ra@ygp: Wg9Wgyjp: Wgp:p| W! W!`>WargAPLASCII.DYALOG&"#1.41995.10.15)e@$ y+7h) t\<`Z`$!`A`8`OUTA2AL1A1`TCNL`MTOVAL1`Z``Z``TCNLA܃$q2r(gp:qrdsgC $%"#"$%"#$`OUT%$ %$"$)#$$$=egT"#%$#&$"'$`TCNL$$"$.=egp:Wgp:WW$W t=xp^$`OUTegp: W^%$ %$%"eg/rgAPLASCII.DYALOG&"#1.41995.10.15)e$4y+7 T p t<_\{ e @ L t C*{$ }dp{}8"d$qH CFJHwBf$Iugp:qrdsdtdugR#$"#'" #CR$&$"4egA)$$'')#E$"{$$eg)##")# #%#$%$$($$$$>eg""$${}"$$"$${$ }.7egegp:rg9`W,`pWa`W*pa,Wa@ W^"$%""%$%$#)egr:z{!rgu:|rgt:```W$ ua! Wa$uaDW^}#$)$%$#!egt:t```W$ ua!Wa$uaDW^${$ }#egt:t@# tgrbtdc:ubtdc^$%#$)$%$# egr:W%{r^$##$#$"#"egu:`r{a@# r^$CR# egt:`` WuauW ra@u ^$$#$$"egt:`rbt8DVcDWa@t$#$$" "$$%$&egs:` ra Wgsbt8DW#Wc: W^*"%$'"{CR}%"#egR $"${$ } "##!egt:`uW ra@u^CR#$$#$$egt:``rbt8D#WcaDWa@t^CR#'){$ }egsbt8DW#Wc: W^*"%$'"CR{$ }%"# egp:s@r^"&$%$"#egC )"$199495JW"egAPLASCII.DYALOG&"#1.41995.10.15)eYdy+7 T $T_]]x8Tp ot\ Xhh xb<_h Lp< P'$#$""'$/T" T D}{0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ !"#$%&'()*@`d<D$Np7;ggpqgC&"%$"eg;:qgAPLASCII.DYALOG&"#1.41995.10.15)e0y+7$~r8F/CN :q)4pNV$V7YM}( gp:qrsdtdudvdwdxdydzd{d|d}d~d>gW" ##$(%%#/egA"%$# egA$($'###%'" .M);eg"$"$"("'$&$".6egW1(%'$"%$ %$.*egW2 $$%#"$%$#.T%$Beg#*".egR#%$egZ$($'$'"$W1%#.H#$#Aeg"$"("&$"#$"%$.1egeg>:Wgz:W`q!WabWc ^$%$$egq:W q^ '$ eg9`qzWa@g;:Wg9W^($'$%$"#%$egju:WqzW ^%"#$"%$ $%egV#$"$"##" $$"# ) "$Feg~:Wg{: p:sg9`{Wa@gp:!p^&"$&$"$$"(egjw:w@# w:``W!qa%paDW^##egv:WW wgj9`Wv:vWa@^L "#$$"#$'egx:pbwbvcdc^$ egF"C'0#""#$$$#$?egt:`x,~aBx,W^1#"'"#{ "##}egt:tx W ^*"%$}#egt:t!WW%x!W^*"%$"#$${egy:"V Wgj}:qW^($$ %$$#$eg9`tb}ca@ ^I('%# $eg|:%W`*`ua$}$ta#W^" $%$#eg}:}||u ^% $&"'"'eg9`}zWa@ ^I$#"#%$#$"eg}:qW^$($&$ )egjy:y`}$xa!'W%$ %$egx:``zWa$(Wa!}%x^"$($egt:``zWa Wa!}%t^"" $#eg9`q xa@ ^" $$"#$##$$egy:yx ^#"$eg}:``wbvcWa!W% pa$p^#$%&$%""$ egp:`wbvc!Wa%p^#$%'$egT`DTB#"#$"%$#VERY.CegW$%$$'$$")$"$..200)20000$"(.Eegp:}yp^" $'%#$'" $egy:}:W^"#$"eg9^E egj9`{Wa@Wgp:W%p^"#$"""egC )"$1994JWegAPLASCII.DYALOG&"#1.41995.10.15)e<hPy+72sz$NqJP|gp:qgR$%"#$$$&'"# (egp:r >gAPLASCII.DYALOG&"#1.41995.10.15)ex#y+7@x7T ]D7DD8 \X\Xt X$RrY?isx{.^ggp:qrsdtdugC&"$#$#!%#"")*egC&"$##$% "#D1$'"#D-19egID0&"$##$$ "") $`ALPHS1egt:`rWa@# r^#egt:`` Wtat W ra@t(%$#$#$$"&egt:``rbt Wc Warbt WcWa@t^$#$$" "${} "##egw: ^ $#$##)#$egu:wbwbd Wc#Wdc#rbt Wc^% $$$"#egs:u W% w ^0#")%"*#..{})egv: W WW w^3$#APL#%"#"$$"##2.egt:s@tgrbt Wc:wbvds@uc^" A{A}'$%"#"'"#$$"#5egs:` ra Wgsbt8DVc:W^0#"'"${}"egp:s@r^"&${}egC )"$199495JW"egAPLASCII.DYALOG&"#1.41995.10.15)edLy+7o/8 APL2ASCIIASCII2APLDEFINEFNSDUMPWSGRPA2AINSERTFNSKEEPUSLOADWSTFREADTFWRITE`APLNAME`APLVER`A2AVER`ALPHS`ASCII`DEDUBL`DLB`DLTB`DTB`DUMPSUB`EDRANK`EJCASE`FMTVAL`FMTVAR`FNNAME`GENSYM`GETVAL`IFNEST`LJUST`LOADSUB`MATIOTA`MTOV`MUTE`OUT`OVER`PGWID`QUADCASE`QVARS`RJUST`TCNL`TCLF`TELPRINT`TOLOWER`TTABM`TTABX`UNWRAPLNS`USLTOAPL`USLTOASC`VTOM`WITHTTM`WITHTTX`WRAPLNS`WSID`XNUMS`TFTRANS`TCLD"N1.41995.10.15$DYALOGD)APLvIh%<= A" @!:T`EDRANK"fHYXL7 `8"8 <#x/ DM€TC2L9H90<CFh|u")(#$#.(*?D)%'$$R $A $$"Q%$RAQd<3R"AQ!_d'P#$"$"RA"Q.6r" o ""#\q^"DT('"$$r.q%M[Z #)_|;z"/T~2>?j0O &j ( J { 7 gpqrdsdtdudvd>d>gW"$###$ASCII$($%egA"%$# egM$($$'"$.M)$""$"$"(">eg&$"'$'$'./egF$$'"$$'$ $"& $.DegI$")(#$#$%#"##'$"$Beg#%"  $"$.:egT#!%#$ "#'") Aeg$" )$$F# F1.A2AA .Begeg>:Wgt:`tWa@t:`r# Wa%r^" )$(#$#!%#$egr:`rWa@r:` Wr# Wa$r^ eggA%#$$"#$"#$$ASCII#5eg9` W pa@|^I"#&$"egp:}~!p ^&"$$$"(eg|jv:``W$ pa! va v:W%^#$"")eg`TCLD#$"CRLFDOSW'#"%#$LFU(:`WWWa`WWWagv:Vr^$")$$(#$egN'$" """##' $&$3eg>:`VaWWggT")(#$#.D'$$.(eg9`WW$ta@^% " )'# "&$"%$+egj;:"W!r!#Wg;:$Wg<:%Wgt:W$`t,&Wa@t::W >^$#$" #egt:`-V .WabW !dc^"#"U("DOSegT#)&$"$" "$#)#$#:egj=t!W!r^"#(#$eg9^"$'egA egjs:v!1V ^$eg9``sWaW !a@^# # $)"' "U(-egu:v!3V ^$")$"#$"egs:s?b>4Wcv!W^&"'"$#$"$ #C$"ZEOF)eg9ggj>:WWW#"""#%$#$#(egv:6Vr^"$'eg>:`VaWW^'$"  #egju:v!s!W ^&$#" #$!egvW^#$"#$'$&'egu:vp^'"$$$egj>:W > ^$" ##""""#$egv^%$ eg^APLASCII.DYALOG&"#1.41995.10.15)e/7rzT X$nq*ovgp:qrdsg^D$#$"%#&$""$"(@eg9`W s:rWa@vgs:Asgvjp:``Bsa*B*sa@rg^APLASCII.DYALOG&"#1.41995.10.15)e@(/7r T X$nq*ctzvgp:qrdsg^D$#$"%#&$""$"(4eg9`W s:rWa@vgs:Asgvjp:`*B*sa@rg^APLASCII.DYALOG&"#1.41995.10.15)e,lT/7B{T $Nq P_gp:qrg^L$%#$#"$"&$""$"(+egp:`@BrWa*rg^APLASCII.DYALOG&"#1.41995.10.15)eDx`/7T t$x8p pt\@ ܅$&ra'Ya8fgp:qrsdtdudvdwdxdyg^R$%"#"'##% $"0$%Cegt:qzs^"%$#egt:tbw:?(tdc^ $*$"'#egu:@t W+t^"$"#$%"""$"'0egub# uc: W^#%"$$$"#$$#1#egy:u@w ^#'"$"#$#%""egv:y W% W!y^%"%""##$$"'+egy:p:BuBv^N1N1¹N2N2...!egpbwc:y ^"$%"$"""eg^ZPZ#$%#%#$# $'"""$)APL.68000Fegx: W$W$V! q^%""'#Aegp:x%p ^" #'"#""'#Aegp:ppx ^&"$%$"%"#$0"egp:`` W sa@ pa p^"$%"#"B'#&$" eg^C )"$1994JWeg^APLASCII.DYALOG&"#1.41995.10.15)e(t/7r@t$Nr!Pkgp:qrsg^C&"$#$"($$&$"*egp:`!*B*W!sWa@!`W qa!sg^APLASCII.DYALOG&"#1.41995.10.15)eT</7T pT@ ܅$nr+L]tgp:qrsdtg^F"#$"('$&"egq:`t:W$V! qa qgt:Vt s:`W$V! sa sgp:``t qa$qa!b>c`t sa$sg^APLASCII.DYALOG&"#1.41995.10.15)eT</77p \ltX,.CT.DIV.IO.LX.ML.PP.RL.RTL.SM.TRAP7tL1`8$qD{:I|_gp:qdrdsdtd>g^R$%"#$#'"# "$!%&"#$%""$#)#$Kegp:uWg>:WW Wgr:` W$ pa s:Wg{j9`` ras:s Wa@|^L "!%&"egt:/pbsdc ^""$L1%&)egrbsc: W ^"$#eg9{^E eg|jp:rAp ^# eg^APLASCII.DYALOG&"#1.41995.10.15)ec4 /72$Nq=Iwgp:qg^C"""$%"'egp:?b>Wcg^APLASCII.DYALOG&"#1.41995.10.15)e#/7opt\$qB%gp:qrdsdtdudvdwg^C&"$#$&$"$$"(.D$"#1.9egt:rW$r:!rgu:`t@# ta!W tgw:`W%ua W%ugs:w8D#v: W@wgp:`!saBrgp: V%`` wa!va pg^C )"$1994JWeg^APLASCII.DYALOG&"#1.41995.10.15)e/7 @<p T\l X<Tthܵ1L  SIGNALEN* #lh$ T ($T#$(qp"P#$(q_bly}3X[`u/]gp:qrdsdtdudvdwd>gR#ASCII$($egA"%$ egF$$$($$"'$ $"&?eg $egR#%$egZ$($"$" "#$#"$"$"(>egeg>:W W Wg9` Wn= Wa@}gWj=Wg}jv:rgvW^$"#$egw:v!V^$egp:v!V^" #$$#$"$egp:Wgt:u:Wgj9`wt:tua@gs:v!uwt ^"#$&WSFULL egp:p!b?#sc^$"#$"ASCIIeg9gjvg9`,pa@ ^ILF#eg9`,pa@ ^CR# egp:`pa@p^"&$LF#eg9^I)LF# egjpb`pa@# pc:^$"#$LF$CRegjp:`W$pa%p^" $CRegp:!p ^"$%"$"(eg^APLASCII.DYALOG&"#1.41995.10.15)e44/7@ 8Tp tPtX1ܵ <\lTT Lp 1|Lh ,X8 tp /{}{$}{##}{'$%$}{}{}{} {}{}{}{.}{}{#}{"#%}{#$}{}{$%}{}{ }{$}{ %}{"}{.}{%235}{}{!%}{(}{%25}{}{}{}{%25}{{$"}{{}{{"}}{"$"}}{}-{}-{}-{$&}-{%#}-{&""}-{}-{%00}{}{#}{$#}{##}{$""'}{.}{}{}{%2190}{}{$}{}{"}{"$""'}{%2192}{}{}{$!}{$!%}{%!%}{%#&}{}{}{}{%2260}{}{}{$!}{"!}{$##}{}{%2265}{}{}{$!}{$"$"}{}{%2264}{"}{}{.}{%2228}{}{}{}{%2372}{"}{}{%2371}{#%}{$#}{(}{#}{}{"$}{%007}{&}{" "}{ }{%007}{}{}{"#$"}{.}{%235}{"% }{% "}{$#$}{}{%234}{"'}{'"}{#$}{}{%2352}{}{(}{% #$}{"$"}{.}{%2308}{"}{}{'#$}{##"}{.}{%230}{#&%}{}{#}{'$}{.}{%224}{" "#$}{}{$ }{% $}{}{%225}{"$}{$ %}{$}{$"}{}{%2355}{(%$}{}{#%}{&}{.}{%234}{}{!%&}{ .}{%2339}{!%$!%}{%235}{ $#}{"}{.}{%25}{$}{%}{%2218}{##"}{ "##"}{"%"}{}{%233}{##"}{# "}{( "}{#"}{}{%2340}{"&"#}{"$$}{"#$}{"&}{.}{%233}{"&"#"}{"$$"}{""}{%2296}{$"# #}{}{%2349}{"#$}{$}{% ""'}{(}{%2191}{# $}{" }{'""'}{"*}{%2193}{ }{%237}{#$}{ #}{"}{"# }{}{"}{.}{%2208}{$}{(}{.}{%2373}{"}{# }{"# }{=}{%2374}{}{%2375}{}{"##}{'$}{%008}~{"$$}~{&}~{#$ }~{}~{%222}|{$$}|{(}|{ ##}|{}|{%223}{##}{ }{#% "#$}{"$#}{'#}{}{}{%2283}{#}{#%#$}{$#}{}{%2282}{% #}{$"#$}{ }{%2229}{'#}{%}{% }{%222}{}{%2207}@{$}@{%2206}`{$}`{$%"#"}`{$%""}`{%2359}{$}{%236} {} {%2336}{"}{$"}{¨}{$}{%236}{ $}{$}{!%%"#"}{!%%""}{!%}{}{}{%2261}{$$}{}{%2262}/{*}/{0}/{%236}{#!%}{#!%#!%}{(}{%2337}{}{ #}{ #%"#"}{ #%""}{%2377}{$"##}{%2368}>{ %#}>{%003}?{$}?{$##$}?{$#}?{%002}{%0008}{%000} {%0009}{%2502}{%2524}{%251}{%2534}{%252}{%2500}{%253}{%2518}{%2514}{%250}{%2510}{&0}{&5}{&6}{&7}{&8} {&11}+{&43},{&44}:{&58};{&59}<{&60}[{&91}\{&92}]{&93}^{&94}_{&95}{&129}{&130}{&131}{&132}{&134}{&135}{&136}{&137}{&138}{&139}{&140}{&141}{&142}{&143}{&144}{&145}{&146}{&147}{&148}{&149}{&150}{&151}{&152}{&153}{&154}{&211}{&212}{&213}{&214}{&217}{&232}{&233}{&234}{&236}{&239}{&242}{&243}{&250}{&251}{&252}{&255}/{} {}{}{}{}{}{{$"}}{"$"}-{}{}{}{}{}{}{"}{}{"}{#%}{$#}{&}{}{}{"% }{"'}{}{(}{"}{}{#&%}{" "#$}{"$}{(%$}{}{!%$!%}{ $#}{"}{$}{##"}{##"}{"&"#}{"$$}{"&"#"}{"$$"}{$"# #}{"#$}{$}{# $}{" }{ }{#$}{ #}{$}{"}{}{}~{"$$}|{$$}{##}{ }{#}{% #}{'#}{}@{$}`{$}{$} {}{"}{ $}{$}{$$}/{*}{#!%}{}{$"##}>{ %#}?{$}{U0008}{U000A} {U0009}{U2502}{U2524}{U251C}{U2534}{U252C}{U2500}{U253C}{U2518}{U2514}{U250C}{U2510}{&0}{&5}{&6}{&7}{&8} {&11}+{&43},{&44}:{&58};{&59}<{&60}[{&91}\{&92}]{&93}^{&94}_{&95}{&129}{&130}{&131}{&132}{&134}{&135}{&136}{&137}{&138}{&139}{&140}{&141}{&142}{&143}{&144}{&145}{&146}{&147}{&148}{&149}{&150}{&151}{&152}{&153}{&154}{&211}{&212}{&213}{&214}{&217}{&232}{&233}{&234}{&236}{&239}{&242}{&243}{&250}{&251}{&252}{&255}361 I#$$"#$"$'"# &"#1.41995.10.15F"#$"%$##DESCRIBE$APLASCII'"# .  (8h4D((5ZA  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~PY@Y@ 8APLWFDYALOGA2A