IMD 1.16: 8/06/2007 8:29:35 80T86 LBR 80T86 LBR !80T86 LBR"#$%&'()*+,-./0180T86 LBR 23456789:BASICODELBR;<=>?@ABCDEFGHIJBASICODELBRKLMNOPQRSTUVWXYZBASICODELBR[\]^_`abcdefghijBASICODELBRklmnopqrstuvwxyzBASICODELBR {CONVERT COMa|}~CPM3UTILLBRCRCK CQDCUBE LBRPCURVFIT LBRCURVFIT LBR*DISKSTATLBRDISKSTATLBRDUMP LBR3-PUBDOM 072 80T86 DQC180T86 CNV4-/N80T86 AQMa480T86 AQ6L]80T86 COM80T86 CMD%80X86 AQM80X86 AQ6k"80X86 COM)"80X86 CMD`*09vڝ80T86.DOCL    !"#$%'&()+*,.-/021345678:9;<=?>@BAoEDCFGHIJKod|Kϣl}Z}EGZKry<5,fد'9G{Dm*uxp1[~]ђkyG-=GK(xji!!٪`]zGa\xWjU/؋ܞ>Vҏ?g/$gha}ZH#{Kxj v^BI.7wi1[~=kG;mG֥jM^عf٪at۵jX[٪a}ZHAgŻvc?Usb n ]f<_$wy' ^bSÂi.T vŒu[pu;hۮ.]S^X5yDrq%cs˛"T/K»-b.®.Hx~x\-)VMDT'׀wmc啺Ͳ{E#Lmt;]_os-xn_~<΃=ϓ?cghL1V>EߣIh.jQXs}#؋>_MB[? "W{1X(el׊]/fh4D>#>yx̸:ªy_lհ=^S'jXf|esJeƫ6BӀwmy&خ=4`p[pcF(ns^)yUh4]hcuF6 Ű8aE_5p^ŻxŮ?yҾj]Ԗ+ߙht;SvA/S ?L`h mD/W$Uy^hA ҈'jXyQX,>YWs}Lj{H%Z^D<?t{4 mI'j5\IO!ZHI"hثWu1[~'/1͍XAɟe=jXDua1[~}yEF<];sJ%s{jP|l%]|1[~lMX[ڣIh{HJtհ>-=G&1T4-=7^b`/DC^!)-fJӬX5'/^@\ˌW 4}yX5Um0 ЉԽxi!쑽e`/hFP2UF}0#Fa ޕG{a}ZH#{u`/& <?%VjMB'/l`]zϣ\~ߗ+N5_"5+_R]a}ZH#{y.eƫcƏM_h}ZH#{do %?<]PnP@W PZD ]v˹Q ɟ~o/%#DqJLj}p_(~qc,3}8` %;p5$հ` pCF˥J.墋KBk5~sU(D*T1 W?y<7?b3}&հ^eƳg,lEi#c*GcuZx/UJyX{}ƫ'wgf_~o$}t+y՚a/%֧4G>;ya]5˧b@=aY4Hi:" f1KLgo#;7;_/RbiSgyUÒ=F ˌW B#s{j8b/a5&Pb[6w[6DQ "l#Ԫɟi<΃S/۪c#v : ƌPxG%'Z.c,' ^xy,3^5Lw蝥;=5T?_O^bj^{HJ#0Ox`;dw Eӂ/Y5K_5,fد=$QI9[|f ]qb.؋?wbߣIhejP&)*7bF_B.PXO^ƣ⥥qyժhlΘ./WNy9yXVQDg#Q,'ne?gv$GlwV {<>]O^2kհ>-=Uyi!ϋ"k U{HJ 5}VkհؾF<|$xs<}͝y~3. Hx#̲UbZ(s /}հ>-=CŒky\UF](#FGX.CVt5Sl0ΝGl߅6#{O\qjXό//k}F?I-96 ýlǪaŮ?3t8n]%!w԰$;ߖIuy$n\YJI8D>3M5$D>Ӧ1HZ_ˌק4G΃=9E$B-fدeB#σM>6 Ż;eB#{AC&syL{}tF!{D9´i"E}}ZH#{d-=U:`c\vw۵"$g/1s}<1_v#v. ]r^f|+v onj; :I.^q5wR%K>x%K m7hR3ݷ ٨kŮ?y<^䯚#~(@ůޕM4Ū_V%=6O#3|sͲU.MKQFyG_MLj]|Ů?yMB;y)ޕ O`N_<]\~n}uFa Y&AjFu5?F$Iv}IøڣIBn{XE Y&AFWӕ-E]` C-Y>Q6 +h<rqyS56_O^b-bK2Iuj+Y]56K~}=$fuj]`e",(b,<5>)(R)):)) a ^I)al,1); (rar,rcr(^I)al,1); (daa,daa); (cma,not(^I)al); (stc,stc); (cmc,cmc); )) j [sporadic instructions] (()()()( (ret,ret); (xchg,xchg(^I)bx<,>dx); (xthl,xchg sp<,>bp ! xchg bx<,>[bp] ! xchg sp<,>bp); (pchl,jmp(^I)bx); (sphl,mov(^I)sp<,>bx); (di,di); (ei,ei); (nop,nop); (hlt,hlt); )) k [three-byte instructions except lxi] (()()(1)( (jmp,jmp(^I)<2>); (call,call(^I)<2>); (shld,mov(^I)<2><,>bx); (lhld,mov(^I)bx<,><2>); (sta,mov(^I)<2><,>al); (lda,mov(^I)al<,><2>); (j(and,<:L:>,<1>),(p,<1>)); (c(and,<:L:>,<1>),(q,<1>)); )) l [two-byte instructions exceqt mvi] (()()(1)((in,in byte <2>);(out,out byte <2>);(<1>,(g,<1>));)) m [one-byte instructions with register] (()()()( (dad,add(^I)bx,(i,<2>)); (ldax,(IF,(1),xchg bx<,>(i,<2>),<1>,<1> ! mov al<,>[bx] ! <1>)); (stax,(IF,(1),xchg bx<,>(i,<2>),<1>,<1> ! mov [bx]<,>al ! <1>)); (inx,pushf ! inc (i,<2>) ! popf); (dcx,pushf ! dec (i,<2>) ! popf); (inr,inc(^I)(e,<2>)); (dcr,dec(^I)(e,<2>));[pick off labels] (()()(0 1)( ((or,;,<>),(v,<5>)); ((and,<:F:>:<:G:>(ITR,<:G:>)<:T:><:G:><--><>,<0>:<1>),<0><1>): (<:0:><1>,(c,<1>)); )) b (()()(1 2 3 4)( [END] (end,(v,<5>)(^Z)); [quit at EOF] ((^Z),(, (%T,No END line) )(^Z)); [][ds to rw] (ds<:G:>(ITR,<:G:>)(and,<:C:>,2)<4>,(w,rw(^I)1)); [][ds to rb] (ds<4>,(w,rb)); [][BDOS call] (call<:H:>BDOS<:4:>,(w,int(^I)BDOS)); [][BDOS jmp] (jmp<:H:>BDOS<:4:>,(w,int BDOS ! ret)); [ignore equ &c] ((and,<:T:><:H:><--><>,<4>),(w)); [lxi] (lxi<:H:><1><,><2><:4:>,(w,mov(^I)(i,<1>)<,>(r,<2>))); [3-byte inst] ((and,<:M:>,<1>)<:H:><2><:4:>,(w,(l,<1>))); [mvi] (mvi<:H:><1><,><2><:4:>,(w,mov(^I)(e,<1>)<,><2>)); [2-byte inst] ((and,<:N:>,<1>)<:H:><2><:4:>,(w,(m,<1>))); [moves] (mov<:H:><1><,><2><:4:>,(w,mov(^I)(e,<1>)<,>(e,<2>))); [arit-logic] ((and,<:P:>,<1>)<:H:><2><:4:>,(w,(f,<1>)(e,<2>))); [1-byte w/reg] ((and,<:O:>,<1>)<:H:><2><:4:>,(w,(n,<1>))); [cndl ret] (r(and,<:L:>,<1>)<:H:><:4:>,(w,(o,<1>) (pop,(if,<2>,psw,pop ax ! xchg ah<,>al ! sahf,pop(^I)(i,<2>))); (push,(if,<2>,psw,lahf ! xchg ah<,>al ! push ax ! xchg ah<,>al,push(^I)(i,<2>))); (rst,call(^I)8*<2>); )) n [conditional returns] (()()(1 2)((<1>,(if,(X),<2>,j(h,<1>) <2> ! ret ! <2>:));)) o [conditional jump] (()()(1 5)((<1>,(if,(X),<5>,j(h,<1>) <5> ! jmp <2> ! <5>:));)) p [conditional call] (()()(1 5)((<1>,(if,(X),<5>,j(h,<1>) <5> ! call <2> ! <5>:));)) q [immediate constant] (()()(1)((<1>,<(>offset <1><)>);)) r [write to output file: simple, complex] (()()(1)((<1>,(%W,<9>.A86,(%T,<1>(^MJ))));)) v (()()(1)((<1>,(%W,<9>.A86,(%T,<0><1><4>(^MJ))));)) w [main program] (( [alfa] ((and,<[1]>,(or,(IVL,A,Z,),(IVL,a,z,),$,.))) A [num] ((and,<[1]>,(IVL,0,9,))) B [numeral] (<:B:>(ITR,<:B:>)) C [hex] ((and,<[1]>,(or,(IVL,0,9,),(IVL,A,F,),(IVL,a,f,)))) D [hexmal] (<:B:>(ITR,<:D:>)H) E [alfanum] (<:A:>(ITR,(or,<:A:>,<:B:>))) F [white] ((or, ,(^I))) G [whitespace] ((or,<:G:>(ITR,<:G:>),;<-->,<>)) H )); [accumulator] ((and,<:U:>,<1>)<:H:><:4:>,(w,(j,<1>))); [1-byte inst] ((and,<:Q:>,<1>)<:H:><:4:>,(w,(k,<1>))); [other] (<1>,(, (%T,unknown <1>) )); )) c [register equivalents] (()()()((b,ch);(c,cl);(d,dh);(e,dl);(h,bh);(l,bl);(m,<(>byte ptr[bx]<)>);(a,al);)) e [arith-logic equivalents] (()()()( (add,add(^I)al<,>); (adc,adc(^I)al<,>); (sub,sub(^I)al<,>); (sbb,sbb(^I)al<,>); (ana,and(^I)al<,>); (xra,xor(^I)al<,>); (ora,or(^I)al<,>); (cmp,cmp(^I)al<,>); )) f [immediate equivalents] (()()()( (adi,add(^I)al<,><2>); (aci,adc(^I)al<,><2>); (sui,sub(^I)al<,><2>); (sbi,sbb(^I)al<,><2>); (ani,and(^I)al<,><2>); (xri,xor(^I)al<,><2>); (ori,or(^I)al<,><2>); (cpi,cmp(^I)al<,><2>); )) g [condition equivalents] (()()()((nz,z);(z,nz);(nc,c);(c,nc);(po,pe);(pe,po);(p,s);(m,ns);)) h [register pair equivalents] (()()()((b,cx);(d,dx);(h,bx);(sp,sp);(psw,ax);)) i [accumulator instructions] (()()()( (rlc,rol(^I)al,1); (rrc,ror(^I)al,1); (ral,rcl( [registers] ((or,b,c,d,e,h,l,m,a)) I [pairs] ((or,b,d,h,sp)) J [pairs] ((or,b,d,h,psw)) K [condition] ((or,nz,z,nc,c,po,pe,p,m)) L [3-byte] ((or,lhld,shld,lxi,lda,sta,jmp,call,j<:L:>,c<:L:>)) M [2-byte] ((or,mvi,adi,aci,sui,sbi,ani,xri,ori,cpi,in,out)) N [1-byte] ((or,dad,ldax,stax,inx,dcx,inr,dcr,pop,push,rst)) O [ar-logic] ((or,add,adc,sub,sbb,ana,xra,ora,cmp)) P [sporadic] ((or,ret,xchg,xthl,pchl,sphl,di,ei,nop,hlt)) Q [directives] ((or,db,dc,dw,ds,equ,org)) T [accumulator] ((or,rlc,rrc,ral,rar,daa,cma,stc,cmc)) U [1-byte] ((or,mov,r<:L:>)) V [separator] ((or,<,>,(ITR,<:G:>)(or,;<-->,<>))) Y [label] ((and,(or,<:F:>(or,:,<:G:>),<:G:>)(ITR,<:G:>),<0>)) 0 [constant] (<:H:>(and,(or,<:E:>,<:C:>),<2>)) 2 [final] ((and,(ITR,<:G:>)(or,;,<>)<--><>,<4>)) 4 )( (G(%R,CTR:XX)) X ((%R,<9>.ASM)) R )(9)( ((PWS)(or),); (<9>(or, ,.,<>),<< >>(%Or,CTR:XX)<< >>(%Or,<9>.ASM)<< >>(%Ow,<9>.A86)<< >>(a,(R))<< >>(, (%T,Transformation concluded) )<< >>(,>eeyw_~ؓ V,>l,Mz]WSQjt]^H`?[*}SY'ϖ0+v8lzS:&/|qVz$ r~K9}LMŻ!(BqCW/9^dQe r-H5<G6AyFAq,HrlAZax?#YE+~~,m8 7a[NzmM`ޟ Pʐ΂ 'p$ t gd`dPT, 9;qOV}7gW[«,~Aj , j qp$D]NAAj0Y}m91'V+]$JV8?gu +嫠:_k B\y=$gҀꅚ7ZTy/V+ Oژr|aؖ iQ!(V+ v@VSAMD h uE *v+LdQGk*AZaxV+dåYmZwABM +Ӳ^[x'fjeV+ v@VSAMD h 3iY 57ݲ-L /zzl Y'2e &l \iYW 3AA^kvVa[{^+N֝;Ywdɺu'N֝;Ywdɺu'N֝;Ywdɺu'N֝;YwdɂUUCr3Q-Au?_v iUQ-‰還\sjJ.'H5׫֫B)}ABZ½ QT;Ay7;(7^dQeҝY%ߟ/;@.'H5׫֫ 7杠 B8AB ݅{k>AHwZQn  f_.s$ (%T,(%R,CTR:XX) symbols generated) )<< >>(%E)); )) [end] vp80T86.ASM[  !"#$%'&)(*+,.-/0132456789:;<=?>A@BDCEFGHIKJLMNOPoQSRTUVXWZYu7-9n.ʲ{O|;e{I׃ﹽlz0J"s{R7']%6z'̈́v*[r]up2XnJ-淑~~r6Bcɦ+nZ֯e3ze}A텦r }ژQOMD ~_i:_^.ۋMe{'+_-;SA/ }{|yl/d˵escJG= f90lK0 Me{')°-A5MIW"YSK7峨a8mWutY}[~CPP?%Qh:_^'tDd_1^.}AbjV+f ?W?K "+Td z@ƔzRo"Z.s$D]S a[`HwZ#>&h򇄀3AA?dOژr|aؖ 7݋ܘ䚱>A@psjJP0?;1J`5j?_v !/(t5fV[«,~A#V[e݅p$Z i:Kkjm_Pdɺu'N֝;Ywdɺu'N֝;Ywdɺu'N֝;Ywdɺu'N֝,(X1,~㾭 A]w3`[H7%H wt r !w Vp;ܜ?;kis,_˾`ʼnη׃A$ð7rV8?#`bLAN`d8Ap3(+ioˉOFtCMy& ҝ:d:u{3AMy nY}m泎t]LPbܘ[Q!s/xn6w`d0 _?st `ʳF]UxٵAux fdJV8?*/$ҿ#GA!x q$ҏA!x`djH5<(HwZҝn>o+ύ Lwy ~soA,e_PV-†> r9ApvvA.yT V#o 6+jHwZcQnf5j%:ȢlCp ]onRN}N rTH7uܷEqo;=]W7t]!Ϝy~f ϼ}D@SIdUeRt]Lr|aؖ [p~Ɣzr|aؖ 7Ɣz.Ͳ`5AAZ\.jirٽ [p~&ژRo"ZFU  4dGob{(AZMlW%HwZ#($gYT l Av8OkgˮLw~K7uܷ(].͞tgb!ϓ?s~K=x'rUCW/9^dQe-]YUB¥Yl#Y|S:&/|M9{mGl Vt[8uߘ\h,dYT.wW;'b>;)gG'eޛH+qsgQgK׃=魙gK,ӚS?ě}M7UzMkLp>emd}pkh;1:j:y7GAfo΂\+0'f{u{ AA}lH)tO<ȪK<{s|aؖ !ftu wņ]AuxNkXo{O Ȣj 7byo{O (XqU`m/t]5d[r  a$䚮u\ϖpi&(H)tT<Ȫ^i`;%\ ã7vzтt5FG_ [0"HwZ`nή,GWYYk؞Yk8?G˾`E=n?[*62n,~/ Hi-Ge2?[gOeμ?Kz} pir~Hi-GKuܷ@-ߟ öJ5pir~Hi-G` Aٲ(AQOGqB«]_!(XlY]CJ泎RM_TLkx Ⱦ !׌a丙U_T,|qߖ < }A<$碧/H#|VШ ׵ ]? ׵ ]'u-HwNL r-lo[痮`~#s*}wlEY,7g N߁/M tU2{?Ho,Ji%6͝[ʻKW).*}3e7m{]β Q痮.ւ`Ţϖtѝ&/]ei%%z0!(oׇ$V+MXOXGd9AQ}%ŝ_t5e@/@ '*{:'0ŊtS ҝABnƇ$e+V+8(VQ?Y~qNJ;MF r3$AM\l*{:']o/P9fB9Nkʀ !7 [p~6b5Zٲ+}P\`^F r{AMLdO&uXM;j: i@$DV8?qMj埗YoN(.z0/HwZ#P $V++ ҝABnj4lj7 먟']o/Pya^;(ܜ Act=`ːF CSVw3S CSӰjydpj+O-SVn9R7j ,v CSPeާ,A6aU\+dpjVe-A6a4%sYo AjJ,*z0A.y" 'dާ,A&j>eeh,uɐb 2D8R㾭TC9;1fnfVS~QtY}[\c![8 e*/6Ŋ>e ~Ykx HwZcdj~߳~AU,H5<;1J`5j?_v ~sdME8 ҝcux߳~A t5FV F=dQ5΂]A#V[e7gAU,HwZcW=- 72ي= NM3d'>@F`jݝo^0ڲ7Abyo{O 3gAGGŪS\+%H5<;1J`5j?_v q$ҝY%ߟ/;@w9 gAbyo{O j*3j=SyBX [0?^(n uC!xFAU, !pyY. ruCpj ]CAU,Ȣj nq$D] r8彁Yr{^w9K׃m #Ho+NJ> ABFA<*Op2R,p^evˮV-?o+?[ZȬ϶"[`f^㳨_ifϲ,1՗':KoYEo3;NkvVyvu~_\sGCA+JFoauWJoY%Hh_z A< }Aq}Wkood͖n>o++~BE-s/x}=mY)odN嵭.Xn'Y~FϓkCP}tw3gAO:Y-;!O˼OX YE8 ҝcux߳~ABeep,S j};;?Zw[,=M{^[eҝ¡{ ҝY%ߟ/;@psY-?;(߳~lLMlt5U|Kіu ҝcux߳~ABerS?C jSOہ i]1V=;q-*/6Ŋ 4ٟ]*ըgt5e1V%Xߖ !2Yg' 92Y΂ 'pdzANku?_v ikYU ~,V%H̿V_P![0]WޖBb[6!?C,H5t G'6Aa{ A< +\ s q]C{ q$ o77AzET/Uii:ߢ9 b[̗:t7+rb[>ϲ\v-g++z-5~/U.m<헻 9jJl{Gcleҕt}-si+ kaCPp- NkAM\lKeªS\+$PuelR7_*gldͻz=twe H5byo{O V+雷t 9\N`d8AAB{^[e e!i#H)V_V8? ҝָ,VX`Xb[W櫖S`lyWV.  fW=-j3}A=G@S '02 Hcux߳~AzET/Uii:ߢ9 b[yk؛76Of׽*lee0:tp6S֐@S8>+ ߂t5.V%Xߖ !+cekeT>ct= Aװ=G@S8?A8 ó٩@A.uYnΓQgd޲+*OxBj yBX}Z$ APpB h dO@F 2VV_ZzL36K׃ t s AM\ 42Y΂ '0 31v p i]1V=;(XS?c '浀Uׂ̔|Nku?_v [p~ !fW=-C j ҝcux߳~AZļZ i]1V=$gt5FV F=$\?+0ߟ/;@P0z0$h "pgA8 2YVN`;+gjlEY8dO|ANku?_v !2Zv8[Qg~AAaHwZ#G!¨V CQXOF F*Ǚ CQae:ߢ9͔3Anª+J!¨Wfe* F j5z;;+gjlEYB jjAbyo{O H̿V_P0!iEը ߟ/;@.ԏ$Q' ݅{\3$Ap rͨ._?AZLNku?_v ~A#V[en./ege{:2;(7^dQeҝ>J> fIuP_?AZLNku?_v <]*ըgGNkXo{O H̿V_P?EYȢ+Q gˮQ'#sqsl>ls/x}md͖Te+gQY|FgWi/m%XZ9i϶ϖw嗮n W Ae2dp5΂t&$b nq$D]sY*/6Ŋņ#GAu8 rrsgl?/3fJ tU.*MuOQ\+9D}yume9le_%VT)+U!(!q$ҁ&H&P q$ҁAuM q$ҿ# !@Aΐ-p/8dp5΂@!q* (H&P 7:,;@8ByTЃn }t.אa>2Aq!? nvqFGkٟ݁{2O(WgoٟݏedUg?{_evw]0nҐa侚۟}-?:mu.0rٟ?nf0r?{^Tmdgn4e.0ryp-g m2d~Ͼ~?.0r?{g%g }nۤj0rߟ64dC?;mm`&u Fv+Fgܟ=۟=] #yy r FaC$g>g7}g7v+\Fs2O۟0:![p~_v HwZcW=- 72ي= FfV+Nku?_v !2YgQ7 ہ i]1V=$\?+0ߟ/;@P0ꕇlہ i]1V=;q\߳~ABM:,(X1ni2c\[ȳ,_UԷJrYo V+2Uq~CPPueCZ\}v HwZcW=- 7uL=WTsVmV\}^b2&Wg`ߖ\Ƣj~KxuEO Hw rerS?=wABV`?_v ]81]k.{O HwF$D]sLL;1J`5j?_v "O|+Zv+K80T86.A86\   !"#$%'&(*),+.-/1023456879:;<=>?A@BCDEFGHIJKLMoNOPQSRTVUWYX[Zѩqw&n o=>vXt5Kf֬];kf\ȒS lߙ?]tqw~;ˊ4 :nUl67~D,?LcL?~gtGJx,`6~f6L6$ViPwF~ď0Lc,kf+Ь&˚^bhzdk[.+̆ileL{{j/1#ږ ~ԏgdY3OYf6L6$VؑmwF~ďa6Z8g^iomk{v ƏߙJ.]=-pk&_0mPm! il53:#Y%?A ^mvPwdj:(A.C{=i\6z;2܋g?ٟ~v0dP?z;2DA 2DMdP?z;FPP?z; Fp~sԏ꠆ #wwZ"M2A~ܳEP?z;f0r]?q>֞  "/z;2DX_vP%(X_vPwais/z;bX۟Ĵa<A;D]\. #w<A;DܟEa-rdCs2!>\Fs.AA6ds.AaEp"oC;ܹ?`0rwܟ``0r=W F!?qEpzv0dq㞋 #gڟoC|G??};2~san*EPӷ!}sV_ڟ`>dfp{o SݟO=AT%S廙r' =7zc9i$T<'޳킂}0r^ⶃ|;rcJG= f>ϖo-e&?QFESA¥Oe}[e;؟O=Aӟ(z # n/qAnچҫ/7mM' ȉOYQe_"Ǐ ccVzoZ;Nbhzdk[.ǬTYUĝ5q_r.1Y=-ccVzo3'1lm63Eܩ_'1# vc]U3\iUh׎SeYY![mN#Y'1Y=Jc{5qH\kcS?f=Fng8f8z qUj[p!jT=1fY#tPq+ת<4?ri{_{Ľ%?f=ЁOBĭ\f{ϓKzLr5[V?qWUǬh4ƩzqC+ 4B(YzԯsxOccn`z"~M’;\-zwP=N8 >g^..h<ﰿaǬWխ jI 4?f=FUpĩ4joI~#!byvzDl8}iFޒY?f=Fngc8ya{`q׮9I9-3kq)Ԟa{_⪺նzLHM".11Uum=ÅԤYvwj/1Y=-cc$AʵR jT^bhzdk[.Ǭ4BYTd9=<@ ϲzz <} oB_e魗Ё- Cn5rzTY6I6>Fi4Y(lq ԯ2Gזenp79=LCC$NeyI#4y, ďݔO46^jrvŸ,ЯPM7;CMwR>fnc"O|+Z߿?ӟ(z #wp6]WҕHi-磱=G˿p_BDdG<9+[,ŝ2:j:LL 2܋?[3Z 'Cd}2}O3ZgbEOa[q?#Yr{߮W1d譝?ӟ(z #w_bgd.nN/Y?;~2' ݿnsbԳ>,]Wc' {vq' w9K4Kp9ZzٵDd킂[k0rbE٣UFVV_uK2D{5-$\?eߨV+Cӟ(zϾ1$\iNЦՊ~nTCӟ(z^/ WLqp_u: FNL=Q1K]ͪFNL=l*Oiﲍ]P[ FNL=Qߦw9ۨUe0rbE٣UQ2&Q *a'޳OO׺K]P0`0r߼fu.AA`9 J6ԛ;2xBUwrpnLm90lKpqsYݽo+ύ m F_a;2xꀾv öq?|qV~mA۽ PdՎ>r >d"Er,?]շ%2xBb9j S~ EVШR 5  Pd>%9<uWJ7uܷh"b!'YENEgm NԿ <'ըJ,~/ l2"ԯcS5L}_Occn`qn8B+ B,s+78?8v2=OYV%mϲj?~g4..'v z{'^p?Yز`q~;!t!U8^{o'^tgxwMp{%XRv/#~[ exWWQ{ ڃO$^A'^n'a;:|B_]q`:5mzήwwR]8C|v/;V Ȇ_jR> 4$Ϧt \.."%\WTMď?PWqZP:,s+78?f=ƺng8?f=Ge#Ǭl1bB>X6=G{>X6eo)M7M*[7S&M7zLgQozgjy^Ep烔#?f=FUAsĩW{#_G?f=Fng8fvf4B(<~ccVzjCR5\N1NL8xu\*gf %6q11=4S&βv[%6GӣB:koڬږ I6>uϳ=ƣY= 116ԯSW՞{dccVziVkI mVO#/ k2 mccVz{m\䶿qyvp^{^k{>W/8N=^J$vwߙŭp/dͧC\ccVz+ˮpeA}g#Nr5[OYFWȾYFAcc$Aʵlq Ì2Gזenp7ǬǔEqʂ>B_ȾǬ",谿#t`SlU11eqЁ\r ~$.n|UD"~Jplq Ì2Gזenp7'6 _OU<{sm1N!tqZzڲ<%ǬǐHz IU0vkgaX쯝$߆g{^{y,?f=Fng8:{팓{pcws4rZ.fiǫRV=0ǬWխ Ҭ8iPcҚq*g wkgaXX#Gihh#\U3ܻ^;: [Xp"%鳊,8N=^J?=Ʊdkql^nm 78-u \{I@'N: t$I@'N: t$I@'N: t$I@'N: /[788kqڲ<P.!tuky( FN*$!I **yI#lo{>k4kpB랗4 FN"T$߆gyI#YE FN*wrl8}V螗4=OU4 ⧳=_Cזenp7Zv1[ Cn5rzT5Om8}V4鳊A4r-~68QipzKytNឧ*AcU~9I6>tKyJឧ*9צ9=*m]|NU4yI#/R鳊fX#G_o ^)Y =4rŏ?R1bB>X6CW =_Cזenp7Zv1[ Cn5rzTy0?ɷVvKytNឧϴ =,8 W,{ I ϴ*yI#)VE$w3 t$I@'N: t$I@'N: t$I@'N: t$I@'~4v ]8-pIď_6 Y![m.3`:_f].$3-MR]8BN<ݔoGr=#|>eq{{;wfe{'*bzvխЁx](k2oG\ysk^z{G%Xw-|kCnFt ,-|6e[L"~k⪺նܾC8 >g^..h<ﰿacczT5[2=Om8}V/=/i٦<}V/`tjag^.Ǭ:I(WkU€mӣ44Yqq6\}Φt \]xja'6?f=mzwٴn ) ٦11=*o綷2=Om8}VzKyឧU 6:011=*Ev UG#I %iY@A#Nz"),õ*Ǭb)) 7O#88)Ig޼z 11=PmSo9=foz4yI#/힧 MU0c2=OY잗4›Y,zL*i€x#vzDccA8NaV?f=GMOaߙŭЁnlm庿YHď:Gn>C\Rf6:ٵtnGzLDH UF^!힧U1NfccVzo3qC+ ֶ\Yn3SЁO.s+78-ccVzB3qK 4kG傿 G{\ccBjq!tk{ lm⪚6ЁO.s+78-cczT5[ͧ=o'l6{^<}׼kW u:U.?ri{_{Ľ%?ri{_{Ľ%/^ccDT5[y0ý­ Gn>myk$2B qpObC\%\Ӆ*⟤#^[wF.BӬ- YQ$?8v}i/pv~E?f=GY$>]ٴnu8^".]%6W\v3[gS5$O-|:?rͧc]{\{|zݽ6 _OUǬTzLJihpm17?LG|Ni% ?f=ng8[73M7zLq+Qĭz?ri{_{Ľ%?f=GU'dzT115[YZ78f=GeSc{c1ai/u{d#\{ic]#\v׮(lcUs|3=0V5ӣ9IgZyឧϴOjh€3E"~oplqצ:e_y( hk$_{Ly+ <} k9IgZ4yឧϴh*ӣʴOaߙJg^.׭;rήׯȉͧC\#7p|:?=ϵiz3Eq_r:r#[r?r!.) ;:%6G咈?!8r⪺նBjҬ8Moڬږ lЁOBĭ\'p=/iQ ~gǬ:I(WkU |fֶ\Oi{smyru4|=U=C\U3e}'1Y=-ccj۬*#uꑭmcj;=Ʊdkql^nm 78-u \{#\{iJ⪚63\ \%6GzL VV==SSfUwK mVlm%0LozNDE116*SWZ{ ,?f=Fng863Nbhzdk[.gaX?116*"`Q|+lWǬWխ Ҭ85B5rzTYzpUj[pT.vk>jفsl8}֨=/i\=O5KY {Ì ~E#7q|:?rX?116*SWZ{ ,?f=Fng86'1lm/ ?f=F8ujp^vzpUj[p!ͬvI 4? C\r#\#€3{GYf;eOďߒ!8*ӣg|-r{dk[.ǬWխ GYfvI mVlm%=8f=F~oq U[115[Y{ϓK۱OYFgYFA#؎M$N5 xKyl{>k0 ~Pekv;r?ikMď7SM|qyrv`4h{> ⟤RV9v߽g`d=InNh6\NAzDw}/ QN8{NS{ӹFu"{?:{'^NhqAF[ w\Nhqc+=pQC?:)K0 ƑOOAlŝ{?:ZDݓ}/w:G έ7ҏ9# GXN'6 _OU<{sm1a9=p,PvKym=OʂG.9?=ϵizzͧ{kTzLʦǬWխ BZ;0q.,N{?8k+qdZuky( K^wyMS=?8e] {K}/Ǭj2=ơ]CrP#7G{\cczT5[P.!tuky( I9=c1<?Ќ"8r=ϵizzgQo@jY 11Uum=Ь҆I9m=Vpz qUj[p(4Ќ^plqVȴtrP4r {.cuky( ~11Uum=Ь=1 }lw3 i1Jx`@np w!.=! Ⱦqv/- w\NӣAZv1[ Cn|qyrvYQ nec{C-Ё֭ p7G.9?ri{_{Ľ%?8k+qdZuky( I9=c1<?P᪺նPhVk>N\߻…ɴtgm%kT%v=O5!qٚc??~o68M'\E{YQ n{k Wĭz?ri{_{Ľ%?ri{_{½%?OY@gY@ASw&{6$A̚gD&88=$%ߙziv(oo"w,{鰊W/2{û.BTc"u\v0~g wᣦ^?ϲvm/pax#~gڝ _Q0_d.^_ioߙ\i߃a |^<(x+.v*L+c1Nlq<>N<^:oF{^YfU'?8ese/V?ɷY#pghY$88/=,8 W,{ I fpg 11"OLB{=ʴ_sG!=H}ګYo/vAE]M B=|ERFu{EbYaߙ^ uP7|e/V\vD C1Nlq<>N<^:o鳀G=O' 116U=chx}ytX$NԺ%.,δppgKU,{pӣ/?ɷYzpg5rzTOm8}=0YFAc.I {> 0ӣ Io鳀{^a鳀 FNJ) 78?rlqd8~û.'^|:?f=GU1bB>X6=ӣAZv1[ Cn\r\KE=ϵijY4|^*"|qyrv1Jx`@np w\KE=ϵijY4|^*"YQ nec{C-Ё֭ p7Gn>mykX6=ӣAZv1[ Cn\r{ϓKlqVȴtrP#7q1N8.Da9 #=c82-<$~k~ccVz @Yc{c8q|f'=c82-<acczTe?8Բq`@np wFNaSí?@11Uum=Å4lq C'.ہ dZgc{G{>X6S8v/[ CnPC\U3\`5iVk㬭Ǒi֭ p7 ~aoW8{zL*W9=ơ]CrPc{S +=p?I#q2_8X6 ;y|-ɥþ޳KO =r/;c[efemr)3Cw3[N۾y>Hy/'a_QwH{~gO-D/V,*'v{QwfR>-z:N]F.þ[^.E5[.>?% Y?f=ng8Fغ(ˎCzfW9þ^lq$鳀yI#/@vgY*Y![mN7'E/\EY6?8eY=/i鳀 116UY⪺նt+j uQ W/xmǼlOҟ> H4hY@Accl&11Uum=jՎ`NK]q3UbǼlOҟ>fGYj?f=Ʀ&11Uum=6'4ƃoC*]K?8eY➗4{>VY?f=ng8FZxu:yJ%1y?}Vպ%<{>jYjz qUj[phՎAia>B>/Wb]==1/ϪyI#oyZ/zM11Uum=c{c^6'OUFqgFAccl&11Uum=֫'E/\ή[-vX㘗 IgՀ螧ϪǬl?Q%?ɷYzKy=OUql]SgW{Y V^ӣʓ9I ϪyI#R랧Ϫغ(ή܌9='6>6yI#=OUql]SgW{g{*11Uum='{6$r9?c?IJ@+8f=D#11$UB qqObC\E\ccVz X6S8v/[ Cn̂c{C11Uum=Å$lVk㬭Ǒi֭ p7'i-~Z=!⪺նB4mZ;gm%CUǬǐTeǬLjTe 1U?]!".B qpY[m.fvOblqVȴtrPc{.̯ccVz {'̯1Jx`@np wz qUj[pX;'i䬭Ǒi֭ FNJ[$߆gzׅqgzq wq]_s9=r|N5F^=O5)u! {QBP.!tuky( =_Cזenp7dz4\}γ*'p4垧Ϛ0L-l ^C\U3\Mԫk}pzLq+UGU/?kG?f=q+5rzTy0?Ɇg=0Y?f=ЁOBĭ\,?ri{lHl3.AWGMv`q{uk7$馌ߙGjRnfaz.W8{r6?=8r!.116ObzT=.H?f=D#11=*.LYQوzq+=#RUkW${7e=Gv+=p9~DTb w\WX,A{9(ߣǍՑ ;#v{û.z3[]ƝN`]Hy/qﰯU [kW;G)1aǬTeMmccVzR;pxgүpx$_螗4=O5RV9v߽g`ccVzK(?QeU|N5f38LK|nm 78?f=ngfvYp7mpz qUj[pX;gm% T/ӣ/?ɷYFט=Oj?QZ9I %ƴh{> 0bO{kTxϓO<צ⪺նR6lqVȴtrP#\{ilqe:<$~k~if=_Cזenp7dz4\}γ*'6> T%ƴh+y,P5bO{kTxϓO<צ⪺նR6lqVȴtrPcczTVlqe:<%<צ{cj8|nm 78?I#)V{q`@ncZ11Uum=%QzHUC\%\Ӆ*.W $82-<?~_8cYʚǬWխ v1N>._ IY=/i{>k år: {C'.ǬWխ POQ%ӣʪ'6>FJhfqdZuky( 11Uum=%7zGccD2Ӆ*.W t!J'i䬭Ǒi֭ p7;pm4#] w\NOn"# 彜`a_;G{ YjC\U3?88~û.'g4+yI#]/͊8\*s[خ7tz GccH2Ӆ*#\U3\MC?]!.) ;S)bw#t`tyUϮuonotut6e2~gbUtSo[AwP~g{pg })O.þ[44no]1lz]+/ރ#7<{ϓKӣA'6>uKy<}FS+۱)d3yI#px3_[/z?*ӣ)) ;S)bDY'23/kW]/eq{û.BTc;^r҃;DU{9m N"*=H3l*w5yRnfa1]/ r9H;UW*{W\%:VHv`s{A'խr=F]np]ߙvmHď߼l#7<{ϓKzLq+kD?ɆgXZ;gm%X6cƱ~`@np wFŏݔo~\* ~ /p{x'pxwf3/'ccVz(aZ;gm%ˉ+U.cߙ~vt_Cplqצ:e_y( FNJ[$߆gF^a<}(Pp֭ p79=r|NjF^a<}.cuky( FN*$!I Ѽ%y,8v/[ Cn5rzT5OY3%Y3 ӣ Ilqe:<f 4re:<?'6 _OU<{smYQicj8|nm 78?r=ϵizzZv1[ Cn[plqצ:e_y( FN*$!I ϚWo<}֬SíX#GY$߆gM{^+<} cj8|nm 78?I#)V{q`@naYQ$?8Բq`@np wzLJI9Բq`@np w3 u! {܂u:;GFplqצ:e_y( 4Fy=Ol?ri{lmy'lU V?~#ӣ$NѬFy=OѬG"YezT6?yIp'qyrvGn>my'lyEp۱)d3yI#ϼlyf I9;I[홗zw/\&Y߲௿l7|"~# N9~(#D9Ln#ǯ w!rwas*Gs*_*Fu+Fɻsw*۞ܓ=?L=W[\ʭsZ#%\\\套2=W5=W׭7L.U=W7W9d-ʅ-cU^_\e~!2Z3Nbhz!CjҬN!S1,k7_K^bhzdk[.k۬NNŌ#uꑭm৬o:L'1Y=-t 'vg^.tgYqbpe/V]/ˮ)d*fpvm/p_O!S17|_말q6\}n{il ,-23NaVq6\}Φt \]xjaݦST8ԾϦt \ԤMNŌCgӹږ 6)ԩq_r:r#[rokf u*fo]i 3`:Cy u*f̯5+7޳!ˉ>W! f #䂨Tu«cUGc<>v`lJdr_z(}{!9"1:] t !"!"t!!]!6A#68#662|2n2o2p\͕ЬA&BJ[WUЬ҆ 6 _2+z\q+\/Wqs@YA&O{`{T~ϓKU~(4!#䱧=ϵizzͧ{kT  *mc#r=ϵizz&2Y\i,Ï?d.DuUޣUA&J[W=\edr\i몼G,?L ɕ{T2#Uy*WY]%Wں*Q* +m]re* [#sU ?АfuuBCU ꄆ4GP'4Y?:!*m=#Ҭ6?:!*m@#ҬVNhHJ?Аf6A&/+J[W=\eCCUڊdJuUޣU?4YA&/6J[W=\eCCUz#Ŗ\i몼GU hHJh\ hHJp]+m] hHJ[A&`s iVi [cs_ e::P6ԩY?:P6ZGPfԩYmu*lViAJ(U*ԩY u*lViWB٬f#WB٬V \e+lViFɓFJ[WUf2Y\iKE\e+lVi 6 {kW =ϵiTD*_ eJpܵi8Wں*"n2P6dr*_ eJh\e+lVi#i\eSYAQ6ԡeJ[?(Ul|m+m]reJ[1LUy*W~ڔhS6ѦlVi+6eJu)UzkS62y\ ;1͆  & ?? 9 9͆&1͆:&\&?!x ^##^#Vzpr{/7?7!xV> ;> þG:nʝ!v~w#~wx;ͩa{_1A[ _ ~͆#*v|i:!l56͆2m:m2m͆͆lg!p~K:q6>2pK2q:nʆ:oa=2o:jSj>s2jS}>==2o:j*r}›!"t!+"r*t~#"t!56!"*w#"\ɯ!w# p# w#$k Ͳ\'OͲ\WͲ\_9Ͳ\DGͲ\M2kx ,  !?!m?!?!? !?!?! ?! ?)!?yr>jJcY!6 ?Ea@a@Dw,xm ~͆#~͆N7!< :!e Nm D~͆#~͆#Nm D~͆#~͆#~͆#~͆#ym D~͆#~͆#͖#ym :k͆y N! >,͆No&))) i 6eJ[1Ln{U~mfVkܬGuUޣU_Y7Ln#Wں*'UN٬fGP'pf?)UlܬGuUrc2S6#f=r2+*Ï?fuW! f #䂨Tu«cUGc<>v`lJdr_z(}{#|PU #\$T5 [BEMkܶxդRMή^Jd=Hb'sNP_ ^]섣?j4W! f #vm-u5fKUN-Ċ\$T5 =M]Ŝn;u|]޳UHBY2lz_HMXkg e#qٚW_M9W! f #~m{y Ns y y ͖#Nh! Ôh! ͖Ôh! ͖Ô !$ ?Eo_&)) Ͱ!! ! !>:͆No&))) y! y'09! y! y1  2! ͆y1\! >2͆͆y! y! N! N! N! N1 N N N o> ͆> Æ> ͆͆1 y ʌ͆y> ͆> Æ1 ʖ ʖ͆1\£!~0ۊˊﺝsӈӜBI tu9<u< u< u<u?<;t< u< u< t}< u < udL[<:uurCCC7, colons in the labels of u<,u< u< u< õ x x x xt  wx jx+ ]x1 Px CxNg< u< u< u< t P X< u< u < u< untû db's, dw's and ds's, labels which conflict with Intel 8086 opcodes or directives, dollar signs which form part of labels, asolute addresses such as CP/M's file control block, and so on. The source file may be squeezed. $ Disk write error.$ Requested file not present.$ .A86 file already exists.$ Insufficient space for dictionary.$ Not an .ASM file.$ Checksum failure.$ Can't open source.$ Disk or Directory full.$ Cannot close file.$G000.&.]< tJ.&. .!]AC8C62.|...\t. 0<:t0KطڊC7[Ê؊C7 by$s <u[ жwo 8yx <u][ жM yطۺ ÜK:ut2 ÜK:tK:tK*t ÜKKtbcdehlmabdhpwmovaddadcsubsbbanaxraoracmpadiacisuisbianixrioricpirlcrrcralrardaacmastccmcpoplxistxinxinrdcrmvirstpuhdadldxdcxnopretpclsplxtlxcgdi ei hltoutin jmpcalldalhdstashd nz z nc c po pe p m db dw ds equorgendchcldhdlbhbl..al[bx](byte ptr [bx])cxdxbxspax    ' K pop mov ,(offset ) xchg ,bx ! mov [bx],al ! xchg ,bxpushf ! inc ! popf inc dec mov call offset 8*push add bx,xchg ,bx ! mov al,[bx] ! xchg ,bxpushf ! dec ! popf lahf ! xchg ah,al ! push ax ! xchg ah,alpop ax ! xchg ah,al ! sahfmov add al,adc al,sub al,sbb al,and al,xor al,or al,cmp al,    " ) - rol al,1ror al,1rcl al,1rcr al,1daanot alstccmcC G K R \ nopretjmp bxmov sp,bxxchg sp,bp ! xchg bx,[bp] ! xchg sp,ƭ1G[NAn!ˡaG[Nqyn!ˡaهF3**\| :gw*\rm['WM_RQ i쟮 נ?6|U4v7_UZ|۟TBgÙ _H] 84ϞUT8Glw?_p}l۪CƱc /~D;z{벜ܰNui[4y/NTT~rcXamҘe1b4a*Lg-fd <*;+@KkcE~t}Xmazê a/%KbENUT*@k5hϷpqynwp gn,]hT+:©>þ+KՊn>߲ppC ~T@mW!iwvT08{%K oz1Yh7ܝx^&V>C0cqUZ=7Q F֬o4N< hdf4;JIsv^g~3 Us裇Ɖp=bӗ1;b7g#F5C/FhpLa4+e$AGLLtqk>7SP)kwv5z!`t졗,-ij0zŰf}pwyUZLyxT3v**%#U[3CQ܍LLGv]\c)Q)yTkVp8VӦjUz1C76uēۍfz|tV.|(SlwDS5>Zl͍jbpxchg dx,bxdieihlt out al,in al, jmp call mov al,mov bx, mov ,almov ,bxjz jnz jc jnc jpe jpo js jns ! retjmp call db dw rb rw 1equ org end[-error-] 80T86/ICUAP Universidad Autonoma de Puebla August 28, 1984 $80T86 will translate .ASM files for the Intel 8080 into .A86 files for the Intel 8086. 80T86 [X:]FILE[.XXX] will read [X:]FILE[.XXX] to produce [X:]FILE.A86. All operation codes and the assembler directives db, dw, ds, equ, org, end will be translated, but many constructions will have to be transformed by hand afterwards. These include , colons in the labels of db's, dw's and ds's, labels which conflict with Intel 8086 opcodes or directives, dollar signs which form part of labels, asolute addresses such as CP/M's file control block, and so on. The source file may be squeezed. $ Disk write error.$ Requested file not present.$ .A86 file already exists.$ Insufficient space for dictionary.$ Not 1is('U)\~aŤ1 :ϔf<s#74ƭvGw08ѷ;YqG pڌ`'ڍ`檔V#U>:mW\̓.(f\qF8HnXuFL;|KgN1nFšf݉U4Orͮ·BxB\*|+U a&qT1d7~j[3IZ8_9+9,6^tPEe6sT? az a*\F,=)=BmZ=7Q F֬o4N< =z63WO*|+I*W!ع;\Y^(Q4Ϭ4WAx4,_4Bю^/}>66**}gp gWjન4gx,Ql898OtNk-ud9G[Nm3w2LEkn,:ٶU iLoe1_LcXu0ha*lffAS4FYnW!pdi5sVsYl)Ap c͓PG76۶*|!>,/6s1PE̝ Sa AL,wS÷ UYQ Ygs**Lg-eZxfF[θ58+:E+ W(\QpE+ W(\QpE+ W(\QpE+ W͆fH=bX o;*Lg-f[dC/ƭ©f h,bB77*LkG avU-&и aNS]RKI#YЋaF30mej- h,bB77*PtIET6L1^0;8^&иǮB@qan .ASM file.$ Checksum failure.$ Can't open source.$ Disk or Directory full.$ Cannot close file.$G000vr80X86.ASM\  !"#$%'&(*)+,-./102354678:9;<>=?@BADCEFGHIKJLMNOoPQRSTUWVXYZ[*%TJf :ƝǸunOz[#U*JIF|v (f؈\$dko5=1cJRSg SqV7>1w7~_LvSQ0w??L2Tlw??L3rcXamr]t?*þ| t͎Q- ʰow??',]cT+:eV[oY8Ult?d91,©\9U菧*tt|I@0P4:{$KwOWQ6|%ˡaهͶ hcW!iU*wt\An{?UTk8>[r,*t2|7O6sqI h̀W!B hcW!B YǹWpfFEPǻa:k17"z1n F[N^@(WEnZl&,{Űf}pwyUZͶȲ^[c5S 4]0;8^[sT!N(W񪨔, W(\QpE+ W(\QpE+ W(\QpE+ W(\QpEUTJfT=4y9M7\I#YzL7S{*ޤa:kqF߮ a&ћ}@Xu'=аꌏ pTa3*$[!%08Q-Ua3*|+yUVU@& &^x {TnRaz '^ooiSN\c3'4vU8񪨔>+\NL :ϔNW-ԇTTIk8>z$Kf qOPxzU菧W?^Л4UTJC' _Hy09dy#gtqƹqu _HyبjY^(H']qnj\]RrC|\ܸ5V3oY8'׹i!lkC𻑣 FzߍU~7 a.8/{l!~EݏhG: avf3*\I_,ӈK*|+yU 63·BxWoQf6|+UZj*%YR2롗,i<3nn>PS! A*pTīR8pH']̭93;b\o36S"6ќJIv?a5sVoB%$:1L!*%W31:¨&rHEm*|+sT̀ ݸlmUZ0Ah*Y#/u'*Lg-Z8_9+9,6^tPEc-RQIZ.I7O5Q- hM7O1C|eTa2vo*|!'b~ðBAlyfVE̝ Sa ALZ,t7Ҫj wpdi5sVsYl) a/ UQ)j0v8qۋC**owC𻑣 נq|fM,vc{n&RũB&_Œo _HtUZ=7Q F֬o4N< =f C/̾.8k%Y^TTTf Y^1Úf݉U!Hr*Lg-z›ƨ^ k7 w'W*|+UVpUQ)i7qG =P̀F[ȵǘhMt#hVR0й3CaSg:߳j `ЋkkE;OÚU)yGf- gVj `ЋkkE1U^5wh&շB톻pI}X)9]6x/W3qQ!8o- -k5h}Ѝ:=Sn\O,qwjf.Nqyj3 ݸ<YhnũRH_UgRQ4j·BxWE\ͨf'q0B7.OCf.N Y YQ!NR'S%fܝSEpzt"89t"fTT Y 3 \*omt"8Sa:kS? h]0;0`B TTm ~2Esf.NEj2:LHǡRQ`'S%fܝSka۟YUZLf਀@7\YU*Lg-:G0;oG&иovtb0Wgpe3?VMũ5hϰW}nWa:k1߮B?Pqy?Ul۪ P8UNwS* U'S%fܝSka۟r]~ av@U Tɲwn&@mT4gsYkWa:k1߮BT'g,,/6sqp 3l'{?LvS* A5.OYY_47@mT4g[dd*Lg-U^k\[|roFUZ T']"T P8U{oqy?Ul۪ P8UɄ,w vS*;?T Y 3 \*\F rϷ?]~ avqG4bJ3ip 'wei"gtqn3*fgӨs',sf 3O8UBQīrL7|!di[4y/NTZ,`UaeL!xI '^q=Ec-oUXQ!C/K ozQ,'<7n*fgwߩЧɣBw]IN.NU8~݆EoҨBI,Ω4kG '^܆ 4~B*tp4pUQ)0MUXQ!YD/M{벜ܰNupuҨ‰WEV<>h- gѣRQ=n~7rTv'YЋo.΀f- y <U3v08Rk8>[~rcXSn\[~Ȳ^ P8.,*\MC1Cò-,*4B7.N#\̀F[Nqyn!z1@m h7߲pUa3*t2|C=bp oeT! '^FPG7oY8TTr=n~7 F*\'˚IШV utS>M*;s=>þ5;Fb,* \Nk8>[r,*t2|7O6sqƭ1G[Ns7S2-<3- gv A. ׸< ͓%\qk utSo} pTy3nn>߲pTQSīRr[}9mB3 ݸQ|>*ö?7=2lن>s t﹧|>*ö?l{2lܿd>a۟om{o& t7=w̝ ۟GEekvφ̍W?*[|ܛb1O>7=>ElTTJn83rcC**܆ 8Ua* NΩ0=v'T8񪨔q.*g/ÁpHEm̀ y^&ИiWa{*v&и ] 4noUᴫ0"6*; '^W- FxIg4'׹uƭquᐊJl~7rT!HB𻑽 FS iLp,3H_ɲ.F5S^kn,:ȼmt֢mN0'CkIovqW!i|j(笳xѹS@N**ӻ/79nW!^E/1=dY׎bw~s*\Fn!ˡaG[Nm3w2LE/1=?dY΋G5S^k,:e6۶*Lg-fd AU*W! '^6mR7vǰTTR7ã?_ɲ D[NAn'ˡn>߲pnBs]T쨒[!|fUdR!ؙB&{Œ*xUTJڮ v݅gf qnQ!i÷B> pTOI0cD˰Z*xUT ?z9*lfQ UdBmRīR9|qG W0R8r{7Lg-e^ RUQ)c,0.=4ZL!L!3ϭ=*%ݭB,fbbc|\o36SP)9f  sN3&\":R)i5\ř#.'b,{ոqGjT{qh&N4w<7pNq&16}TJ:L'񱎻C**gYg5hu6Lg-Ԍ Yai-CpufYGo0=GŕQa:k!8,pG^EV<>xj|\4UՊ/A3fAUJcwc8#pN31y1Щ<,h1f0β&L!3ϭө<L蟸L!3ϭ6s.xφŕQa:k!8,p *pTa3*Lg-XqqkϫB 8]/F/o;** Y}5hݼ Y`a*;{*t!*|+U8񪨔Gwê33ϭEq]n(~H']qkR裹h&qR['F1=͸*%u 1.ڍqq!8:TTa{*v&и? ] 4fpU@VN h,b‰WEdŸ#F8mDPDG3iTJcT+\}1\\hjZrOfA3#Vw4Q)V`+7zLww6Tn&r1QūRc:]61fn3amVMX W)Lc8\gpT_P]VW<|vE~T=! R4*\ey̍OmxoVKj YW0l|U4ey̍hXh⌷BEs YW0l_UBU4W17:ę/ޖV-t YW0lUBU4p17?_MEE_ ay>AweZqGj^ < UNBs*|!3\k8>g gٱV*\y|KQA YW0{UBsAwˎwC/uRTGtkU! UBg נq|3Qa:k54ϧ5hXf<_Iun*Lg-_;·Bxfey̍ΞHu&&wخBYfT fm,cntDMttr*|!W4Xv8opomt*Lg-_*dsp񛉩L~aQE%gt"G>ǎKPA8m5h }Y{NpcL fAY*9v|e 6zb;|tb߫p g;Su*Lg-Xqqkϫt;Dj a/**oZ{Alow*Lg-Xqqkϫt;Dj a/**} iL _Hc|*\ϫ0|U{iA8gj4FUVsTV9*|!Q iGx*sT?^kyUZ,<֨ w'WfdLQ@㠯 נq| ,q7:}? ,8ø5݉U4R!,<֨ w'WE נq|p Y`ap ǧ/}Wa:k8[7ܝx^]l,{Ÿ5V3oY8U{'2Es֨ w'WE6[!\Q i UB= }Us|W!ó>* \Nk8>[my? ,8ø5݉U!TZͶȲ^[c5SpYNt7[WE%φfȲ^ k7 w'WEఴ!8:U3* \Use33bbS>ǎY4#&8Us i ]?h- F3QAUs6UsGӦ }Y.NpcL fAY*9v|e 6UT:>ߍ.tb0=fg' AU~7 yzA}ͫ0=,WMbq0PK00n_pwyU* p9iehn1ഩ·BxWl,{Ÿ5V3oY8Ù y^s-X`eT!.T͍[7ܝx^O A.: avv|p '7|ֶ a/`'3O נq|}geVdua:k8[7ܝx^^L}ܸ5݉UQ4'7ݼ Y/rt.'<UZ,<֨ w'Ww#G{GEpd<,hL,4wq8mUa:k17"z1n F[N63·BxWl,{Ÿ5V3oY8U*fUZ,<֨ w'Wp,S}_47n_pwyUT:oM7t\5alj>8C? ,8ø5݉U!QQa:k6Y66  ]N*9Ua:k17"z1n F[N63·BxWl,{Ÿ5V3oY8U* pTa:k8[7ܝx^TV0mej- pT[!<ϫtbnE=b,*pTa3*Lg-XqqkϫB 8,'Պ ƭQ نklt*Lg-xUӹ{8Ta:k8[7ܝx^ߍUZNk8>[my? ,8ø5݉U i<>|Wa:k17"z1n F[N \Nl,{Ÿ5V3oY8U{'DwZ5UT24UZ,<֨ w'WpYNt7[WEE%sgAdWa:k8[7ܝx^^L}ܸ5݉UQk8>lUZ,<֨ w'Wp,S}_47n_pwyUT2g4Ovw*Lg-XqqkϫtDwYhnU-#F5 8g.&Z0͎>M3j/.NRx մTTL54Ov[y? ,8ø5݉U!.T͍[7ܝx^647FoXJɈUghS)1aTT&a:k4Úf݉Ua*9]/F/o;*Lq]0;'2Es֨ w'W 4noU!ΉL}ܸ5݉UaElT3vNtN/<[UZͶȲ^[c5S/DΨw7WzŰ.?rntb3idC/5̀ϫ3Uxˉ~sa5\^ 4f;Dj~nZͶs}s?w?;~^gav4~Wֆ񣢲Ӻ }=ڟG|T{~Bs|T{ڟG>4? }|TvZvo{ޟGekeW^LT?tQQrG7﹧Bs]v } vlt}g}TsM7U>ltYUsM7ՙ }پ:W17|V&*9fʫn>[*9fn>TsM7աBco,[ltY }T?G%7| }ɀ>S-<{|T}g i,|x+$:2[A ?g|T}gu﹃ߍVl1I?g-ڟ 磒n> }Ͻ?G%7|V&Ǵ?G%7|V~Cs+d2Joom{鬵?^-nG%7|VwCs'd }x?di,|x+$z:2[A ?g|T}gn{w[ )X|TT}gmo{Vl1i,b~7cB9k>*پ2o{8b X3>gÝڟJt[!|>**eo{ɀ|T{ǧɀ|T{'zQﹻߟ g?ٟG~ߟ g?ٟG>s2g>{g=< }=`2g>n~Ccv7QϱcBcv75\>ǎn>3;Us2Qϱcʫرg}KEcl{ɀQ泾n{ɀQ泆o{3ɀQȲ^[c5SfȲ^ k7 w'WEఴ!8:U3v '^ř4EsAH7琊J3inSp :Si& y^'CL9*Lq*Ʈ>gWO*$RҦw8Ot.w0w;|"7\QΝ~sqO018ZqG;RQy z _H|TB< !> pT[!ϫA *xUTJfqk1f êk\3#F:k5`=OF&Uӹ裙#IunC#cT+qR[g4>.HC** AUVsTxQKop=Go< Oj|2TV'󪰙GB*BƥRҦqtVw溰ꌉ.Z۪qC*%&.NgbLu^qnی; Y?>WGw9U ].xuX }VoだJ;b9յ۪AΉ.hXuF.̉ Y=ޣ?n נq|Ta:kqblm4&8U{iA8gj4FU㳵Ӳ^ 4~*YY` yƭQ N< נq|vZ7·BQ iGxzU菧W!,<֨ w'WEM,lZt3Ts Y ehn1ũBKS 9 T O0R5h]*LW!K00n_pwyU㳵ӺyB| _H>*ӫOB< a/`g%qF/o;**%magKg~7Yh ΘXh p }ܐJIqV@],.8˸#mVMX RQ _Hc|2P4:gg=_ұgusұge﹛z'ڟJv7MQ泾﹧7GExn~Cc|G>m*9og Wϱxn>3:Wϱxn>+*9og}K>mJ|gCs7Gxn>놾>Gxn>k{d?{?؟J|Vg[!<`>*vYo{4T2[A ӃogeX؟ gGxn>+?mom{Rm7u磢=>>*9~m7UE{lφ^?~ֳ?泾n{OGE%öag}Ts̰泾ag W1öLE%öl{OQɰ泾n{鬵?G%öﹿ?~ֳ? n> }ɀ~GE8n~Ccq|G>l**vY[!|9k>*vY_{oOyGEen~Csc>G3؟GK?Bsac>; ؟Gs?Bs }=lo7=w>*ۙa/low{:k|TT2v'dn~Csɀ>*[m }}|T~O7d?d2J'[ }Ͻd?7=w4~>**m7=Nuez>**ꆾߖ{/-֧ }}KAp描VSc?֧ }= 1v?["6Ϟ }Ͻn>rm*Lg-N,4ͣ͂Bs a/M537S-f?Hգ z _H|T5hϖ;yU8񪨔g1NnT+zE::[h.R54>Q)Ld[j1'@ȍ-FtqGT)yR[PՊ;bn4ͅmTh*% 3kUuM4+LU)VRQXh4*9B&{Œ ehn1ũ2`4٫^Jaxf=¨Vq"-gjZrqkX#Lcji}4 ].OvCٙ3rqGT)yO0lf(1kv⣙#<)έs(8h7qR[gZ3kU 8odB5樨?¨VjZrQ裇FMc|1`uC**=>y{v;7=ޏ \ﹿ6=ǧ~Wsg̳?{g]놾~|۟?o }?`l'v\i9登 }ݟ?{zӛv6=wPkgww?{3]ܟݧ? iOww;/?؟ݧn*؟}ݟ?kWڟ} c]>wuCsݟU;^?{:kk |Ym{wL6=0IG]g |~C }Xm θ#FqٟO{3PG7V[ª3Qg{SF֧ }=-vѩdڦ"uj{ޟO["6*=\[+&Mm+]ߟ5OMm+PG7??["6*=j"U.qGMLA֧ }O=OYx\[+z;q\OݟO/F۪qkkx Fq1ΪE=t>ElT{1>uqn(qȍ-VK7rQg{SFtQA]MLA=Zgk"74U?["6*=wpj:=.qux?9t4q/fn>ElT{V[;~g0>hP3lo}بܭ0}#֧ }=kWQ["6Ϟ/#79Uֆ֧ͳo~t}XmazLthP֮Ayn>0Κx<4puCYy-'aXuoj΄e*wCs{Sً7aهe*i4uCs{SٷGL_ OULfCs{Sٷ Wp(kW1շ }OgܗQgdnӭֿP֮bҪ["6Ͼ}7Ҫj v{}lwz_3rm[N W)jPG7oY8U o%\qk utSvKq7k{LI9"y>9FouMzw |=iiun+2F:"y^k{LI9"y^3I]Ow' }?s?7NmETT[\$3}um))G_$3g}fʙŸoz)8o 'ޯ]Wf[E~s=3s <]w>\d'ό99/,ϵ~k{3>=ykoM@@H."I1Үpwu8ܓع鉛FX=^0Zp=3L9kUTrfXn'PpB5? ߩr/Kl kgжcďp';g yuMzw |=iiuu4i[ lr<}um̳="y" xr3N~9߉{+L=6ϵ3~67Os]1׾/1l2j$o'>7>gOLM75nBY{\X37m8mߜ\zIO77)WZ?E87Ḩ{m3Nzg۟7Gby\жfύSWQZ炖n ōq:8tl=#]e&_ .I1Үpwu8ܓع鉛FX=^B91p?g~J"mEfۊaxm+kV.美W?"y+z xHov׋bϤ[vNz{~MpJ#՞fcm߷""D}+B)B㵮HQV׺@axʉ1xYS;~%Yo7Rũ2k;~%Y^Th܆+Yڿh책w?wJINiwC,_4B̓.0~1wm;i;~%iB̓.NN p#\̀F[N-w?zdC/\̀F[N{72t c癒\T}3_BQq|wN%B4^ L ۪qkkx Fq1ΪE=t>ElT{1>uqn(qȍ-VK7rQg{SFtQA]MLA=Zgk"74U?["6*=wpv:80X86.A86\   !"#$%'&()*,+-.0/12346578:9;<=>?@BACDEFGHIJKLNMPOQoRSUTVYWXZ[No@V悟FsԈ)tӯWsy5zn|!xWߪW1{ASDvk@';2t3<o+S4wqƩ"}@Ogl)UWkVBv}YrUͩv$y jjIlQUT)<\AeP*"tSwS#]rjN뙟7PFO A$|yy7ϫ9g~ x.C]*O4LO4†.J}z+VB)B '>v6s}΅GY㵭HWvmEa딋yk{e<"y^" kK$UR!c_n. lOWYjaxx>&vףԐPη7)gf k'{=]eV951SRkE('W~1..Ez&g__ B91p5Fkw j<'7" B91p?jvPFb*ZW׮7T֞\pH'7"Oܶ['꣯/窳kPN1ÿv׋𵒸}o>F=4?# /y Fkw j*"uEzhĭ=aI? VdNEEz x]/&H|ߟcEre~յ>"2ϮF=4?# k3es[1w;p>iA@Vt5LW3]t5LW3]t5LW3]t5LW3]t5LW3]t5LW3]t5LW3]t5i&i&u v=4LO4ºV*_v=>1?'un+" "Ryյ44/+Yun+R% "k{i&i&G_$WdiH:5 "rW\ɕVd[\$W<}\Y3e׵R'.{{;3=qZ)H{O<iHT['G_]K3I39"2sa;@qun+ "2zյwɕ,:m_uEr/+}e9umV$Erek{/+Yun+2a aGoWsj5T)<Ի^ UN <׮[x.hOz~ȹ1jO;\d2,O9檩TR-O9w>iDؑ2ϩ>iD@IvxxIum4[=^kzBp=^|"xky 3MQL>~]=^kzBzIUQ'EeP*"v[[\$ϕG_]#}G_$ϕY_('>jᤳZ)#x=um7[߳k)V~E9ZWd#Oo]=^+B91p5Fkw j<VM5*E?霮PFO axx֠z*T91?'㵾SͥPW=!Zʉ<幏vכ<<6kE('GUQzQULEXJݮ'pS󗂀zz x*(kaxx*IQ.ºVvk'{=]eVzv6sĝ>;k'{=]eVq5FX;9~NGYٞ+8# l8Ҷ"[AX=^KUQ'ele uUT#[YRCB9Ljh)!s鲕[nHkV֣ԐPη炖뜎^CEOkPN1܏z*T9k]̻DNU{2/?'aaD:"ysյa9"yEX=^rb<~K'rf/|d{LaIzOZ NilL3°dW׊PN1/[Wk+|WͥV׊PN1ܯwhm\z5zb~Nk'{=]eV*&F'E)| j<V׶"*(sun+ r\k{/+UgֵR GгZ)H{O<szv]+e{{;3=qZ)H{O<i8#lP.G_]{}'"ka֣oϰmN(}G_]{}GEغKFU3]t5LW3]t5LW3]t5LW3]t5LW3]t5LW3]t5LW3]t5LW3] 5ᰟ Zjs@@ kE('ǵn|?_o0G\ʮkl.}um#}'tJy{Fal;}vg&xg}#dW~EVa܏po<Ꮀv6sĝ>;k@Va%㵭/@X"s*Uw=*UNs#*3*!lP.L>G\?",ŽVn.͍sCšI\’ѷ5!aw]zOitZJ';7o71} 9zVrb<~n|\}& #lBm߷"_V }ߊP~!ֵݏwWIJ ʓ]=^ۊȄnw炖뜮sQaxm+R%ֵ]7HsAKuNA( &eW9Ǖy8]#5f=\n 3 EKvl!kg 9B&}  ZVV׶"?&f=J |{3rf#m+ErG_]S}'saxxFz.`75VdeVBX3mEaxmeV M}?q'£,VdeVBX#Ķ"s㵕EXIB;]=^+BY~V׶"+w"<"-RZ)iZ)aۊTIuE򚾎g甎H^W Evxx/EX=^[~ۥ6qG@"`7=#V547bN o'jT>~~er7A~s=scywz63J N_;öG>]B)£O׵"+_(E#m+EգH^EX"+)k>/TEX;9~ >;kgum3]=^ۊ,J[v ۆ""y"W'6s~b$b**"y"صRb**2TToOzR32TT瓞Աsyu?}"yIc &v6sĝ>;k[EX aۊ~uBH9?ڞm sEyaۊ/F:\$Ϭ<ڞm sE,&sDin39@@Mw"<"mEVa%un+ "yf/q?"yf,:m_uBHyї}<,:m{1 "yG_~E5VdE&E̙3giHT[\$=ڞm}.C/vk-}aׅk/DX;awo"S?\t?O<2-&IO%ۏ0OI+ަ`s4'0~0'|}\2ԫ{7v.vxemGX=^[Yd+kgzK"v[*N(}Gk>,zۑo Q&땟xqJ391?';?Ovxx2.Z;&E^i axݐ"\''Z;'z-gͤ?V8)КI?;~9! xr)J\2V׊PN1ܯb]㵭"\~uBHk{vrEr_Yu5l "Ok{vHS"siR&?ֵR6ag׵R6AXJY.?A:\$Q}յ=;s9",Z;!EOLO gO:'uMuMaֵRON('G_]۳3/OγkR5~vsBg׵R6aֵR6A3:m{1 "dW\}|2\~uBH>k{vã/O"l]۵# ع^ϮqR빡5~vsB@VS3o\3l2"vvcivI焰z xTTy"FXJYS.O|յ=;'g޳kE('W~1.[]=^ۊ,JZ)k6E5gg'"M}?q'£,:mgcEəgg'g"k!kBwkvn!Ö]=^+Big7vfAIv]+e{{;3=q=#NmE1։HU}ɣ,:mW.G}Q,ŽHawoU0-59O97빴>qn3 g AZvl!kg 9B&}  ZWϮ7Ԟ Z> bFa_ OoEX; ]V>ӂaB"vE;o||㵭"v6sĝ>;Z)iZ)a]+e ۆuE䣯)}<:9;")zYY&xg}a]+e a]+e#v[oNHyյ=Ehɣ5# xwi~>|n3 g hc㵮HջDlI?1?'I? s%0ϮmEVa%i[ lP.G3}ɣZ)H{O<&xg}a=f1w;3=qƜzvSYg ȮtS빀fk["@ؑ) "y4zյ=WsEh4+ # uE*UzɵqV~cUE5ZeWGU1aO|,/y s^\9qF'=?i&8jO1Va2ԫ{'zYjtͶ~ j<iHT)| j<NHuV)}<+zzʼ\ #B91p?jvPFb*Yun+2FX=^rb<~ĕQŮ22 N(ɣգ=ɣzOZ NilL3ֵ]m&n '~_k@@Hٵ VkE('tNkPN1OEEO#kg "WޏH>9EX=^+Big7vfAΎtNkPN1OEESIZ)uBH>WޏH>Wax~bz]9;~9!B91p?]/Na]+e?SN('Wg~E,ZJ;4rvsBX=^rb<~**򚵻^Z)1ºVʺ lr|꣯9/OVEX=^+BiZϚI?;~9!B91p?yv׋*fֵR3arf~յ=;5,ZJ;'גL axʉ<}zq>IL#kg "yMW/TfV׊P9wfώtNkPN1OEE^5NE)[\$sյ=;S(G_$Es(kE('W~1.ºV*!c_&Uv׋O|Z)mBX=^+Bigv=7fώtN[vLyG@s"vvcivI焰z xTTkwm)[\$9k{v/לEX=^+BiZϚI?;~9!B91p?yv׋*fֵR3arfͣ9tG_$Y3zVɿ5~vsBX=^rb<~**r_^OzR3SZ)uBH^3W/̜EX=^+BiZϚI?;~9!B91p?yv׋;1ºVʺ lrfk{vPH^3Es貫kE('W~1.ºV*!c_&UseKcuU6!qZ3gO:'kv# 9|[vL ؙBɮc_\vgWזv) [97f9!n'{=]eVES.GU}um/>"yTuaxx|,JI]Ow' }?s?7z6 .[Y/O';#$㵭4Fo'6H%4Ļle4z?xv!&f | )I]Ow' }?s?7-}v6 ]VֵR6=]p'vgz"DX=^+ZV6qG@𖊻 |~sƽ ~b~b~NK9Il;6H{F |)RNqSs{'v'3ҙ)gf A{S؍?o4'nOLO5EOuIC_\n 3  zVrb<~kףԐPη炖뜎^CEOk[EX aGVd+['򣯮G_$gV׶")?\焰zvBw>UaZ# 4VdNEEzV޻le=J |{.h5Tď~vZEsle=EO炖6qG@ k[rL93SCؑ "/WxG_$̮pw ';#mE[nH;Ҷ"[A:\$sյ=l<"/,~DX=^e+%=V׶"Ks&L]Jُa"G_]},VRawlLvۊU['j}um?jfVז &u vmEuEr_2gV׶"s95&ټVa?v "s鲕[nHk[awo3qn>Y^s޲Z)[OֵRְmQηgضH['WvEj4 gW׺@a]+e ۶|{mKuE򪯣 G_$"5llaxm+# xMg3l[j}$s#d2|.h8v6zל\ZI"KOLƝQ8 os?E3ΰm2 ۖ]"N(ɫգ/q?"yEX"c#lP.WU}ɫV$Erї}\uEX"+2!lP.V}U+VJ*MU9\|=S &N̯m+?pK. x73C? A~gӘO֧~nn<ǿ?'صtvOsGFLi}bkgƜH?i䞟ˇO|>'O|0ZjQUUj~ú@@֍ZHZʉ(&ޯ5댰FغH:WFH:sax j"y {Ssv=R|t}a k&n.}um /fV׺@ cߛ|jS/zcx|ƎԾݰn|lֵRV[7U:^G_$W+z&Zʉ<9mrz\zOw>cGjnX7>6Z) k/<#I+B"滞x|n̤s;pBX=^ۊaGVNH+zյ$/fֵR6}f "y Zj^eP<VM5"\Ow>;~9y8!cIyg~ x.C]*O !9v6s}NGYRL:~?s?1?'"Sw=It'v'ᄰzYY&xg}axTs){'MعaW# x1PFO)A!{vK /tZ [9lk- M"DX=^+B91p UpneW'ᄰtEXNHW|eVNg{"T+ULRz2ԫpB҂ ]V>;Zx._ d+kE('7h^Z߿F׳'qy8!k"}?ºV:1Sv=Wss?1?(^ kl3-x=zVo]ώtNeW'ᄰz+V&xg}axTR j<"DX; ]V>ӂawoU0nj LHߟ]=^zJ3ܯFUԯ}_bcV~cT^z5zb~N~fV׺"}ބ2s)KFV~cUE5ZeWWcTI? VdS#B91p?To8E;[\$U=I}W5VnS4;Bٵ Vkg"M.D@X=^zJ3ܯFUԯ}_bcV~cT]/C]G_]ۛ/fV׺@ cߛ̵FغHZW^/VEX=^WV׊PN1ޞۗs̚5f=GBXJYMX#l\DG_]SuEyEX=^ۊtaۊSuB2W}umoj~E2sR#&s̚\}N v[q=F:\D}umoQ>ޞۗ7Ye|W5VdbE䣯MyEzoK,ύ2kr5Z)ax daxx]O֢pObFغ2yյ)/kfAx=Ni~3I솟& # g׵R>bw a?ŪO^m~UYm~-MA ybՕ$O)Vz?IwSz>9!XI~7;z~rú1~U׳ ζ?!X|}w a?ŪWm~-MA ybՕ}.OyvK /tZ [9lk- kiX#lP.3}umO=<"O anbsCk&1w;3=q4ev£/tZ [9L i[ lP.̣G_]Sϧ}e"cۓT*jaڮz>m2z>'zVrb<~oORNviZ);_*'ᄰ?'aax+'&5k/qnnaxʉuNHKWã/RE؏ݺNH^͏~EjE۩e)K9߃9[?_7A6g]=^[Y &xg}a?v "lr;kgYMU7(|=̘s fήkl+OCغ;f]#׊ =?~2OW}?aR##{d'\Q*:'G6q~?E->暿䘸1Ή;R}~..q=HWwNF׃֯|wo O O_K|ߵOKo A>y|W<-z x|r]J~m[r=öGB:\$N>^+Y㵮VֵR ka֣oϰmN(ɫ5՚Y_ [AhEd׵R ka֣oϰmN(ɫY_ l]mE xw\+6h\S=3 7wo{WWwNs2|N4͗fmyf'>34V ۖZ x'#'ϰmuN' >nLO4ֵĦLqcvgzԕ_('$h"k+õGf-8w6H0ºVʎ9׳Ajss?7v6a]+eic9mBX=^ۊ,JZ)H{O<&xg}axm++!k"e+?pBX;al;}vgֵRvɿ R3|}ܘikM_ M# dW~cۓT{[ : 5Z);_>nLO4+BuºVIKMt al!VdeVBXJYEˮ';_W~'ᄰv6sĝ>;k[EX a]+e/x|}\ aWJa,l/t"M}?q'£,ºVʎ9׳Ajss?7 g ]?V:BX),VdeVBXJYEˮ';_W~'ᄰv6sĝ>;k[EX a]+e/x|}\ aWkgcNlM#l]Ml~>nA}rvxʉ<=I5ZZ)pY N R3cNlM#M"DXJY!kmZytNg۟V׶"+ºV*_v=>1?' 'DxaEX=^ۊ,JZ)H{O<"DX;9~NGYusg _7n~'nal!ºVʶr}!vEv6sĝ>;Z);_>nLO4ֵf^/7+?kfW  Zʉ1?'kͼ^bo;Zx._ d+kE('ij5ZZ);_>nLO4Vd#k"e+?pBX; ]V>ӂa]+e/x|}\ ֵf^/7+?j̮c_Fka]+eǜ 5Ǎ۹鉛Fغ%6s'|}ܘ;BkE('h"k옓=f1w;3=q[vZ3Ǎ۹鉛F@fvxx|]usg _7n~'nanbsCk&1w;3=q5fήcjWcNlM#klbsCk&1w;3=q[v]oAqJ#K솟%s)/7Avӄ 3dήcEXJ1'z6Hqcvgz&6}=7fүss?7-O~ܘ+? o~HLA.lKMsd]Jٟ`=4LO4:mIark{M?"JOv=7fүss?7NmE#lP.TN>^bӏR99Z3Ǎ۹鉛FX"+2!lP.T<^bӏRY3Z3Ǎ۹鉛FX"UR!lr2WsEY㵭ȊLZ)H{O<V׶"UR!l]Uzq'|b~Nn~cۓT{[ : 5Z);_>nLO4ºVʚ~㵭H6!k"e+?pBغ%6s'|}ܘ;/y SFka]+e5^u>2kAjֵRvɿ R3|}ܘikM_ M# ̮c*Fka]+eǜ 5Ǎ۹鉛FXJٔؿ1~V׶"c#k"e+?pBXJٔؿ1~&6}=7fүss?7Ovx("9¶[J"l!¶[J"B91p?TFka"k옓=f1w;3=qZ)?&/7ֵf^/7+?ذɮB91p?V{[ : 5Z);_>nLO4ֵĦLqcvgzzϮB91pZ.ºVjm2\|dւg #k옓=f1w;3=q[vyĦxssG@/y Z.ºVjm2\|dւg #k옓=f1w;3=q[vyĦxssG@xkPN1Oh"k+õGf-8w6H0ºVʎ9׳Ajss?7v6a]+eM^]s"DX;9~NGYusg _7n~'nanbsCk&1w;3=qSV zVrb<~EXJ1'z6Hqcvgz~1TV zVrb<~o}5ZZ);_>nLO4ºVʶr}!l]cis._ d+GMp-n!yeW׶"+2!k"e+?pBX=^ۊTIumWǕy8! xw\H7zbL|̮kO\x|O~b~'naۊ~uBRY=^)RYͮ}׾/1\>un+2arRWMyEJ%6枟ˇо/e׵RVǕy8!kO\x|O~b~'na]+e ۶|{mKuE>W/ɳ# xq5~~&]32~Rvxx]OE3㵭"#m+rrN?q ",Jun+2[\D</QfVNg{"T+v'£,ֵݟ8-O_x|٘gyըn#x٘kߗؘMFS\ȬO1{ˮEzV2G}+B)Bm߷"_z++!M}?q'£,/EX aC 6qG@>|׾/1_o=zZ)q7y\u'ܬHwoF7_snsi}͹A KMt.>];ax+m߷V}߶"EAX=^+laxm+R>nLO4gW׊PN1܏CWja]+eǜ 5Ǎ۹鉛FX=^+B91p?y׵w}ºVʎ9׳Ajss?7zgcuUzq'|b~N[vZ3Ǎ۹鉛F@ͮEzV2G}+B)Bm߷""D}+B)B_('*h"lBusg _7n~'nanb3ϕqcvS}eW׊PN1Iija]+eǜ 5Ǎ۹鉛Fغ%6s'|}ܘ;”_v]+eso)|v3~Qz;H~gv6)jc[cF?AO5f^ɇPc]=^+B91pVcNlM#l]Ml~>nFevxxj|jvֵRvɿ R3|}ܘikͼ^boG_DWVd|1 "\Wj9"\uaۊ}bEk{5LˏRg9B&} w"<"YY6tPaڮwd֜~jI7tcI &[cN/7ۑ:t=|Vf'ǦKMd%>=wg?FJzyge V ax d^FX=^+B91pja]+eIKM焰ub.9'4M$vO~JύV׊PN1/SDUUjaۊ̣['(}&}umoE> 5Ǎ۹鉛FX=^+B91pLjvV~Ez dV }ߊP~!¶[/Dغ;_>nLO4IϮkV׺@Uj"y vֵR6_ytN['"JG_]#Q̮)to&Dsc"y QUEX"( "JG_]s}Oz6HqcvgzV׊PN1/S]_ #lBm߷"_V 9׳Ajss?7-O#VW+LgKMt̻ o~(ڻOnzMI \ ]=^gFX=^+B91pnka]+eIKM焰ub.}um G_Dͮ)to&Dsc㵢VV׊@۾oE(Ez x|^.¶[/D[ܒ ]MxlN 7 ?9j=?|F)[w#xۜ\Z)MW{p ǤwAÿAz9{zg?ȍtTT?Gu{L ?v6s}NGSiJjt~U{j5:m2~U{j5:&~U{j5:-3~U{j5:-b՞ZN󅰟b՞ZN" ='6&2GP{j5:M8qejt~b㺶~#c2GP{j5:m~bc=^~#ccc#=Vs?q+=BO3V ACcIF_(EA~bejt2GP{j5:8(=9[NFS[NF)-VӔo9'6s%"c#jtr?ObIFƭXSK=#X4%~ZNAOSiVumcIFSiƮK72GZNOl+od܊e@=6y?XRe,sV)Va?Ū5D@Pkj5:-Ol+od.cJ,sVӔxŒe,EBjt?qreظN(v'£,&_v?vD:">G_]ӄQN"l]դ! x7ӄ 3Ocx:ws|l wX[~bcV#tXW&Olܾ/q\,c3XFa?q#-qZ,Z,cmFظ},Xfcce<?Fx㳟88%88#'6Zetele촋LOlle\?a,㟄1~b㟤XƟKeL9e/qXƟ c75ac'+-1~b㰗Xơ2ec75)2ojNOl\6k%qZ,|1›&'6626#ɼ%Q.ώXg9ًe|b7ƟXƟbbs,|1_"~bc2#;_ 1u䉹Dz"TIX7~n?9_ 1Hﱬ$UR!'6=dܛ O\?swAˊLR%~bc߃St.Wͫ֍͍tߟF7Ji'&J*Ɗw=#-ϕ&y͌2w}asfv5ˊLR%~b P86 ('pSk;3n{1'DZ$UR!'6~§ >3L/#J*o# (8Vd*d\o8E;4R[~b+2IT2Sl:~6a3"FxOlE&J=k%qޏt1M'"TI%cw?~6t?HKo#f~b+2IT2V{k2Ur_8-b؊LR%+vSY2'x K[IqE#qoX&gƜgE@'"TI%3ōt5]+c?J*W4BF?W{o# ͻOl'=sjtX%^UT U*wlq7PFO oMUgO:2ԫpBZjtXT^z5zb~Nv.mb&?&*ivI`ߤXz-gͤ?l&*sCk&IP~7)V^ ?/Mb}v>1?'\Ir+sAKuN-m$Vf->%nBnlL:'4&]/O';#|L&]RCB9Ljh)!Mb^b˭\ A&]RCB9ߞ Zjs:2z ?#( 6Uz-59!ToRr=_e#'6A,a?(ssƭ22ETUe?qeVe#d~b lOWYjc# ^Ola?E#'666FOlI$a?ž=I5:Mbߞ惰bߞ6a?ž=I5:&~}{jtZf$(~}{jt/$*~}{jtj$4u$贩oORNacIFoORNS'6K72c_,sƒޞ泟8tbXuEXIr._,sK2Gx{jtv6s],s}v'od$贚bIFoORN˼cK72Gx{jtZt?XR9ۓT|'6vXRxo-9ۓTӪlXR9ۓTT'6nK72e$4ơ \RGkEVa/tbX09ۓTӦ'6 cwe|aXR9ۓT*줵oX7~n?9!9"!1!:] eͼ!"!"!!y]!z6A#68#662|222\ ͐> ÐG:ʣ!~w#~wxͬ*%w#"% ̺!O"""!"#!'~rM"^Qr"^Qr"!^Q;r"#*6!'~M#:͐͘ ****œ*!&ʊ*!,ʊ*!2!'͟!7ͮ*#*"*!&*!,*!2!'͟!@ͮ*#!'"%*%~#"%͐͘ !'"% #~MdbdwrbrwcalljmpX00050005HBDOSint bdos int bdos ! ret #~ Q Q#~ ; ^; a{c al,sub al,sbb al,and al,xor al,or al,cmp al, rol al,1ror al,1rcl al,1rcr al,1daanot alstccmc    ( O Z ] ` nopretjmp bxmov sp,bxxchg sp,bp ! xchg bx,[bp] ! xchg sp,bpxchg dx,bxdieihlth p out al,in al, jmp call mov al,mov bx, mov ,almov ,bxjz jnz jc jnc jpe jpo js jns ! retjmp call db dw rb rw 1equ org end[-error-] 80X86/ICUAP Universidad Autonoma de Puebla August 28, 1984 $80X86 will translate .ASM files for the Intel 8080 into .A86 files for the Intel 8086. 80X86 [X:]FILE[.XXX] will read [X:]FILE[.XXX] to produce [X:]FILE.A86. All operation codes and the assembler directives db, dw, ds, equ, org, end will be translated, but some constructions will have to be transformed by hand afterwards. Labels which conflict with Intel 8086 opcodes or directives, dollar signs which form part of labels, asolute addresses such as CP/M's file control block, all need adjustment. The source fil_ A[ _~#͐͘MŸ~#͐͘ ® ~͌#*|y:ļy_!5 6u2:2uulg!~::6>2:2:u:P=2:YY>b2Yl>==2:*}Š!"!+"*~#"!5±6!"ͼ*w#"y\ɯ!w# p# w#\ ̈́MÖ́MẄ́M_*̈́M5G̈́M>2x ,  ! 0 !^ 0 !v 0 ! 0  ! 0 ! 0 ! 0 ! 0 ! 0 yr/j;cJ!' 0 6 ͼ R1R15wx^ Ͳ  ~͌#~͌? (!- +!V ? ^ Ͳ 5 ~͌#~͌#? ^ Ͳ 5 ~͌#~͌#~͌#~͌#j ^ Ͳ 5 ~͌#~͌#͇ #j ^ Ͳ  :͌j  Ͳ ? !q  >,͌ ? o&)))v  j  Ͳ ? d Ͳ j w Ͳ j  Ͳ ͇ #? Y! ÅY! ͇ ÅY! ͇ Å ! 0 6 o_&)) ͡ !t!e may be squeezed. $ Disk write error.$ Requested file not present.$ .A86 file already exists.$ Insufficient space for dictionary.$ Not an .ASM file.$ Checksum failure.$ Can't open source.$ Disk or Directory full.$ Cannot close file.$G000E.&.]< t4.&o.m.!Ko]LqAC8C62.|...\t{.l.fۊˊﺋӈӜBI t ! !t>:͌? o&)))v j ! j ͼ  ! * ! j ! j   2! ͌j M ! >2͌͌j ! j ! ? !? !? ! ?  ? ? ? ` > ͌> Ì> ͌͌  j } ͌j > ͌> Ì  ʇ ʇ ͌ M” !w~0ۊˊﺋӈӜBI t.oKuK<uN2< u< u<u<;t< u< u< t< u < u:d[<:uourCCC7?@CABDoEFIGKJHLNMCk" iEm& Gzaɉ+zM]FKV:uested file not present.$ .A86 file already exists.$ Insufficient space for dictionary.$ Not an .ASM file.$ Checksum failure.$ Can't open source.$ Disk or Directory full.$ Cannot close file.$G000 [󜌢פ_9y;bg_elّ-פ$9,ce]6,^˸*29_O&8D 9&\[sA,զFHćI 3ҬD[Ŏ**5Q0+NjM(lNj{(lNjv:^:A;/7qWi<& `\{nKH< Y&gD 7qPdlӸgw[[r 6D`;/z6`/ `/ 9x9\N>& `ƸWs<{kXBI=1z6GOu51<`w=U-n`w79 &" &^z9 ^WvWcVk2z;ˉ){ͱ`wPv/^(l2z;ˉ Gr╫g|;?.'s@`;#'s|[nr{WSv\S-`c;25մh5؝̭d-gc;+?(y;r2llVƱSvE`_l 8ʅo^掜̸D=E5W v'3P9\AryJrᛗ17'3P,(A|S`qm ?>?h=}ȣE?>=nMWmFT O3 THEN O4=O3 112 O5=VE:IF VE > 02 THEN O5=O2 113 POKE 553,O4+O0:POKE 554,O5+O1-1 114 PRINT CHR$(10); 115 RETURN 120 HO=PEEK(553):HO=HO-O0:VE=PEEK(554):VE=VE-01 121 RETURN 200 O4=PEEK(11):O5=PEEK(12):POKE57088,1:POKE11,0:POKE12,253 201 O6=PEEK(57088):IF O6=255 THEN 204 202 O6=USR(1):O6=PEEK(531):IN$=CHR$(O6):POKE533,0:GOTO 207 204 POKE57088,254:O6=PEEK(57088) 205 IFO6AND32=0THENIN$=CHR$(27):POKE533,0:GOTO207 206 IN$="" 207 POKE11,O4:POKE12,O5:RETURN 210 GOSUB 200:IF IN$="" THEN 210 211 RETURN 250 PRINT CHR$(7);:RETURN 260 RV=RND(1):RETURN 270 FR=FRE(2):RETURN 300 SR$=STR$(SR) 301 O7=LEN(SR$):IF O7=0 THEN RETURN 302 IF RIGHT$(SR$,1)<>" " THEN 304 303 SR$=LEFT$(SR$,O7-1):GOTO 301 304 IF LEFT$(SR$,1)<>" " THEN RETURN 305 SR$=RIGHT$(SR$,O7-1):GOTO 301 310 O4=SR:IF CN<>0 THEN 316 312 SR=INT(SR+.5):GOSUB 300:GOTO 330 316 O5=SGN(SR):SR=ABS(SR):O8=INT(SR):O9=SR-O8 318 FOR O6=1 TO CN:O9=O9*10:NEXT O6 320 O9=INT(O9+.5):SR=O9:GOSUB 300 322 O9$=RIGHT$("00000b[vZӅ7ljGN~2z; bsM ثr2\+s? ^˸*29_O&8D 9&\[sA,զFHćI 3ҬD1 REM BASICODE 2 osborne I inplementatie 21/4/83 2 REM door Henk Wevers 2 REM NADERE INLICHTINGEN BASICODE 3 REM NOS, HOBBYSCOOP HILVERSUM 4 REM initialisatie 5 PRINT CHR$(26);:WIDTH(255) 10 GOTO 1000 19 REM regels 20-100 clear a, niet nodig voor mbasic 20 GOTO 1010 99 REM regel 100-110 clear screen 100 PRINT CHR$(26);:RETURN 109 REM regel 110 - 120 set cursor op HO en VE 110 REM 111 IF HO>51 THEN HO=51 112 IF VE>23 THEN VE=23 113 PRINT CHR$(27);"=";CHR$(VE+32);CHR$(HO+32); 115 RETURN 119 REM regel 120-130 haal cursorpositie in HO en VE 120 HO=PEEK(&HEF5A):VE=PEEK(&HEF5B)-&HF0 121 VE=VE*2 122 IF HO>127 THEN HO=HO-128:VE=VE+1 123 VE=VE-PEEK(&HEF62):IF VE<0 THEN VE=32+VE 124 RETURN 200 IN$=INKEY$:RETURN 210 GOSUB 200:IF IN$="" THEN 210 211 RETURN 250 PRINT CHR$(7);:RETURN 260 RV=RND(1):RETURN 270 FR=FRE(2):RETURN 300 SR$=STR$(SR) 30000000000000000"+SR$,CN) 324 IF O8=0 AND O9=0 THEN O5=1 326 SR=O8:GOSUB 300:IF O5=-1 THEN SR$="-"+SR$ 328 SR$=SR$+"."+O9$ 330 IF LEN(SR$)<=CT THEN 334 332 SR$=LEFT$("********************",CT):GOTO 340 334 SR$=RIGHT$(" "+SR$,CT) 340 SR=O4:RETURN 350 POKE517,1:PRINT SR$:POKE517,0:RETURN 360 POKE517,0:PRINT :POKE517,1:RETURN vbBCREAD.ASMe  "!$#%&')(*+,-./012345768o9:<;=>?@ABCDEFHGJIKMLONPQRTSUXVYZW[\_]^`abdc WޞiLp;{?7A?~#AfPo~8g/p;gM~ieȺX3#~Ƨ{UXa D~#cg펡YWUG3@4YW*|&{;O_3gM;*҆ i"|oڌ#:ep1 O7=LEN(SR$):IF O7=0 THEN RETURN 302 IF RIGHT$(SR$,1)<>" " THEN 304 303 SR$=LEFT$(SR$,O7-1):GOTO 301 304 IF LEFT$(SR$,1)<>" " THEN RETURN 305 SR$=RIGHT$(SR$,O7-1):GOTO 301 310 O4=SR:IF CN<>0 THEN 316 312 SR=INT(SR+.5):GOSUB 300:GOTO 330 316 O5=SGN(SR):SR=ABS(SR):O8=INT(SR):O9=SR-O8 318 FOR O6=1 TO CN:O9=O9*10:NEXT O6 320 O9=INT(O9+.5):SR=O9:GOSUB 300 322 O9$=RIGHT$("00000000000000000000"+SR$,CN) 324 IF O8=0 AND O9=0 THEN O5=1 326 SR=O8:GOSUB 300:IF O5=-1 THEN SR$="-"+SR$ 328 SR$=SR$+"."+O9$ 330 IF LEN(SR$)<=CT THEN 334 332 SR$=LEFT$("********************",CT):GOTO 340 334 SR$=RIGHT$(" "+SR$,CT) 340 SR=O4:RETURN 350 LPRINT SR$;:RETURN 360 LPRINT:RETURN 1 REM BASICODE 2 OSI C1S inplementatie 21/4/83 2 REM door Henk Wevers 5 PRINT CHR$(26);:O0=PEEK(546):O1=PEEK(548) 7 O3=PEEK(547):O2=PEEK(549):O3=O3-O0:O2=O2-O1 8 POKE 530,1 10 GOTO 1000 20 GOTO 1010 100 PRINT CHR$(26);:RETURN  \AHeu;?7m4Mp 籃&YXӓ6_?'81} W{ú{m* a$wo0;Mk!lطR4_Fw0_sxߛ>}*\PQ揯 .Uc{|*??ƅ[xOu'0&>M=>3'Yg};~x 0NpBBa'sݦ+Ir'8<;0_9^y`Wݤð a: Oa5u8>`<0z\.`b=;0_=`{DP 3ɒyI2zI=Zkúks!*\ӭ:tdߜ>nsU]}  af̎`xFraV޲`&ú%ɼ |՗x3ذ.@W#=`sXOyA6a1 z` Q*h:Cl4NN_&ח93Y Z( m\Oywts8O>xXT:ъe\qg@d;Z|yGp9IPvذ `l̾VF0{`lXYEW2;RVE, 5REYH~~vj2`=`x6`W*n%VʆKl=ٝ\q:5D $LDͤa,7N]**)Z_PbgX/WX<_* Uˬ- a̻=d}*ǝF0<ݧu5ڸdeO6{ ޤh]a]rkC wmy2›_7fUpUuP-tk"kZ"UTa0kܤܷ7^%6\CTT&xҿ&V(#٤˼<AV8TKoiqLn*5}2zTx=['}doTxOϠQR9qu4?Fz{l H}N00;**7ߚK}F4`yy#P' U{SQVGƫTN\=xS&4nOLBz3IfxߚKapU5Np ǤO<J*MkBa2.- ?TURӇ*+f*g6"3p QQ{bbo2.-it|{W>tVJYe*=*4"H\/؀y3TS'x wwe l`*ǩTVT?V#˵2zwR9G\=GER1MߓVqoow,hJSQQ[8E=T*wV=Tp˩JΪj.TeU*JUzVT1zV]fq*U,}X0/ad3 K6TT8^TgTT 8Rפֿs3QG2JeS-*0o̾Ɲ|GTTU3Q|yI&͗z1CJ5|[ƥMlXN\IɼIzw%heT?2}Yj+JӇ%tTQᦦΏsx'gVQc{|*urAԿ8~x RL'|R"fRQtr=}t*Vᦦ c{|[7ZpoY;MO?ǚw<aWQUQᦦ~{NMMMMMMMMMMMMMmzoLԃƱt,-T?R[ihn*5cV#'U*nYY7{?k߽&ĩp-+3rM6 ـA;XM̋w 2Y{2laG3.9߽VG`dw: ½e0> on6,|>/ߧࢭ45?;.;o&Nvz8k[yaL 7 *]nj<6 je^*qOT.6&Ed0RL+~a- 7u TjPMROV\Zݿ3S־$36 uoJqࢊ L06 0)**OڟŘZE45?T4EV0`87 *5ftij1ŝfpq wR )n&l";WTW}E{ q[R9LPȖUTh4n-kS*av& ް ~)V/˼l&!D k[[1=aW/ݤh76dnFJms.9."_MÆaVɚz8~Qō\MvbXS=m^Fy&EՏa&E*_&VOTT\JՈIl7&]RqVJ1MRS:f5{RMie?KS1nY*\׻n&0Q*t&V(qh)n_Fl&ޡT ޚԘzҥŨrGKq#;30hɆUG;Z=^ 7NazyFpIRS:fuIV'~\.v*riգRӇIRTTV='oK0ݪUh57^c!'\8TTTU3Bc颭W*B >T~ݓJSQ[B t,yt{U "p3t;f˹_{,b 'ܳ| jZ_T8>T~ݓJS~dMEEn)B{?L8aUM~0/9^5#&XyBT/NX| K2 _^a* ps%% 7W3stb؝6wz 7;لq:Ghe4ysX uf8/܇a]n1 v4\E^@;\ >X~LaWav` jRNLExh5E{/+L'/()O߃\AXSq6Nw_0GTib{q@6 1X;`Svz8~T`Tj_dúvG+`5 'fҜR|܋$4_Fw0ԘYh`^xsXݿ3zJK[Lg.1MߓpSSSSS4ޯVQGvVG{f"TAX:.;0_`T?RUQc1}͝&! X~**\-K0"MDv~OOLUxSlX`;,"NG0vkf2`5)V/˼u?RO_q$&ET*xi}݊v/XM}s,@/Br{Jmqu׻e0;TַVARTTfz<#6Y7ݞ WNGEuf/$wK}T{t4M̋l;XfدV6,˻5D;.1bXMvhŠBRﭘ0(P!/ڊibLqWdUø~hmfvcwPjZEq9$J=LPLq`̋TN\=`Qqv|: JS~dME:cߏx3555555J:LgXx`jp5>I]&Vc7d0;Z={q0 f,=`eR9qմsH.wz PJ=LPcq`̋TN\=`Qqv|: JS~dME{4TU3R"бtRޛJ=hkȊ;Vy`J)`ʯRﭚz8eGTT*h *s.d`lz$3{Va***t+u}ik~dMAhͭJWATZ0`aW ׫J1MP)t0`avW8TRGB֔VRzOr=>~d,*xұ_?TTNntct**LV T*#-|Ygij1^0N Uګ:P!8z8VǧRQ''8OP*ܼz N`TU**t[:{z[Ioe Wv+78 l`;Xw WG+ݮb%"5TКT*hMi*_2Rx1˷['^"L/鞰Srv"4|~43i”ҍDV1]/uff]0əӝY?qSSa*ނ*nc>=*Ό5?[띰-['(ִU}֔yb5-DV1w9f]\_TV*άd]d0~b*LM}2F]\dYPx:=:jº@?:So LM}0"ſk:2]L:GO<0ԄuP@鹎^owVvGBo2S:)qs:޸|pvf{M},X7#.OI oQ;Sm>;?ܿ3^|κ?KS_W/\qcpu?);Sgqr;kM3MߓVpōO#Bu?)8YB흵&LISQYgij1*Dv[eSm*fܙ;vzBCTEST.ASM]  "!#$&%'()*,+-/.1024356o798:;<>=?@BADCEHFGIJKLNMOQPRTVSUWYXZ[\y^GVi4#o2F]L$^zzIԋz105MH$Bo2SS/‹q-zI 'M6uSmj*;d`C{KLH;)9AnrSo&˺6ЛT'm[nc*LE^7CPn}‘>Y>s'"u` 'Q;!'tGKoH9"]4AOOǘHߎ:JsvSi*L.F HՏTAnުَ /o+!\p GSEn i ῎'ݛ:`"kT_y]_Smj*Sr/r[ZݖpSݖۋpEXɼힿK0Mm3kwJk"YS^н-43S/#묩$|oSG^rfEɒ"objj*v Sdn Rͦ,%2bw{{I'po-cȆ7%MA{1YgM6S 7/u^/4y]g:*$ErpR<}JAn^V^btFS>ힿ2,~]HLvŋpԋpv^b0^ pdtG N45}h/|d5b>NyYzI zM/M 'L gMbe*L;ǭ薻0 )ޡşץCiKHv /ݖj1s-t ݂Ⱥ-PHnue SIevx>Tddm[Z[} }r{kA%t30Vt3"{ ۘ!Xöԥw#nف $I9|ޔNv I}'I Sa*e9j2Q n$;ف $a(-ˤ`"[GMp0cw[|gYIT%lSpp\G]4~200$Ԡzj d˲0(Sa*3Gz5[ Y58Ti*w[9-=k*Bp2gY3l%OVvUSLW855vY'ou]p0H_镎Jʎv9:8S[:b*"( tezIL5`*LŮ=T Lာ)QC0N_ןuMYCN\Gz'9:8Mwy͞^י1u+Hq]* Տ:USތ;d=vCq-zI ?@ABCDEFGHIJKLMNOQPSRUTWVXYZ[\^]`_bcdafe#{,^y(wPJ}:'{/RVXYw('v^b_A·> (Z]ԧs:ZO/on|j\&wf( _4ݕjC5r/bYde;vvkw%{z](qoW^y!^W.qKvm^d˯PSi+7r/bYJ}:_ԦbKek.] 3 JCOey}IK^YYWuq뮆!n9u~Fr˂.O<á4Rex<c`@K&-i-Vk>?C( >^)tmMͤ{(=6&poN$-o2|[ٶBiԧsjp84;;W6XYCO<Џ{}kpymm.Pշj!4tk7!CJl5m.gl^ ,6o·r7 [=04ZXXXXWߚUdmkaaaaaaaaaaJC`e8{މ|;CCg9a-_n`MV"%CO&O^qX˽{97Ý4d<ݽ6XCO7|7̯t5o`+V6<ӡԧs:DJ 67|w!. v3JwX3C:5|+Ö_PpYܾDL[1f\ᐡrAGvBŮ9AGgk[l:Ά }gC_s6oŘ:]o:qp9baKװ u ba3kp:]t:tؼcR ;i1,+MW6\/g9C =_9!y|[\ᐡÖaй!C-]T%_6nzݢ$y^-N<J-,,,,dnsVCogaaaaaaaaaaiѲ ^M:ox[$5ϫkZ?~k{caK״GfhYqIhh(pw%T_M^߷剅Ci(+%( ANejPw?qyWnXPr\WjPw?~֥=q1CBi( tНO'ӕJ+Ͳ\+5ހ;lo8܇P:E6X7aZa7tR)lXe ba#\ Jo v7V㲼ndOW 2CⰥ+>`b38)L=o)Jg%{[x%8~ )ÖJKwH3zI=jJǤ21a5|f!Snշ,KpXE; r?z~JeP*NR}QweUW=tPJ=g]@q)y %;l' bABIV?Z7+t=N<~.6 |'vX}#a (I*[ߕhIL^yͪMnPP,¦J9u5#-0<O?߀v˞*Pwp+;]})~CAt{ϕ=UzϏse7'}{aTz7|7 n`=Py ka>b+v7|w .?{J=`u|Xac ;]F.xf(fC|_Zwf.qoS|[&s'4DoUz5 ƽTad +~m'x7~*oTy|2P$o%iѲ5YЩMw}BCɊZXXXXXXXXXXXXNe~b>NPjaaaa~5;iWKqW׬$%Y {/7@ qTzNFwKҽ/Zx{9e{> Fq㲼}Cy^f~ ހwFq㲼%uJ-~؉|{}Sf~ p',MSep_(а S( }> }+Vv߰\i#:,WtB'$[k3C}w(ղ\n7)r C6Wl{![t',-]"){e!}6$x% -PŜF+r Vq𓼦4tj]ЩWhY{&7Y B/:Xl#RndOW0nSCi( v[ B2tB}ǽMuْ3fXZd2b]ֹ NM>~Y]܍Dq{Ԯda5^쾽_n`AC}1s}K~oCMo^>aKנ#tͣ~:oCC)ߕ^Pe)PJCM#4,fp|ÖAGf$9G<%'tޚNmJ^R-N<JCf&"},JM-9^xQl;O^M.Rqb?$GmքP44t4\n.P7TDK=a<n6{WIҧB6 3\{6OOd}+SV)ýsxC[y[ZNOtNmY!IڬI0r .[P%7>Z/4ZXXXXjB˕Է6 -j:ge9ȃ -˴o:-ZޫC % 2զ6=.#tj]Y!Sߡ;[o[=&a\ᐡK/1WroXXXXXXXXXXXX8ԡo}K7mX4?_a$S>c |"4tX4ݑ3 ;7 BJSKhY&yǢiѲxފ^HIt $G(%CEYJOpӕ:ge9ȃ -˴o:-ZޫC % Rj{l9>B6 \i{oǢ)Fa))Bg9; T7 |#[tnB't|F;?W;ӢeIw}v濍.!XC6 C(%b<:I$Gy/ gV:lrf,o~|)2Fd]djZg׮%uh\ꯗ: 2tZ,ӾyhY{&7s?Nr7K= }t'4tZ,.\RCC8e9_}jf%ƿS_P~IK]MvtwJIO.PJ-,,,,\o_Wx tM{\>:-Zy+˕ꄆR ׫9쌫Yb/QUrwJ` 2g4l~a*1OfRgHa}voarX>CbDJ P.} %E3^Rjjx [rAG6tPN9g\&ᇆ{6C 6 gt!4tk#x 59tZ,+ w ߰[w؈-"e0B\i#SU5OWONA 4ɾ_ʍ|s/|BCJ-NaXm,N)Պ TeLJ$˛b%7|3.u/-qX}S!aS>t37[fh\i]Cb}^~ʄNm:geP/V_X,tGǩ w fs+`Cܦ'44L7lt|[wdPwp/xzO྅gyiѲ |P6b&0y t5cW&#taC.3fs( >8x<`> V,xk:l߱ u"xOd³gDNewڷ3?&[w8:-Z!VaK]]CE2:l߱ |hY\>X}Cyh(8eNZ}\kc-jUBi(K$o8߀aKeހ_(ý=;%|0%'2|_mŹqϿ~%?mj3e[Bd a+",\>X}&edgcfa\y숦uUP9K @0b[;wz5cksfujj'k:gMuS&ؚ7uƲs̻_ѐ*TzU=} G{l ;3#~W:[<- l>9uU }~W* bxp+{᝚|x8doɳ~ X#_ Ύhѓm}g{)*y&ѩ~C< x`AF)B]]kP{3t5g7tkr:kA96tޚRjJ\ͮKqBo{oXϡ4tӕw8 ӕ72qRA;ϕA:g>Wv$7 tގE3rd\iq =n_ؽJ{Q{.й!'tpiѲ jBE2\S 潷 嚺\M߰kcPF =24tX49C)BߊeoN7Cbu:,Wff2tpBkοlފe,tޚNmJ-NR}]%ыڼth[YTf9;zO}Cg9% -Pt't_4hn3^K עp/Vyo5Pjq k{&7rKcCGmN7'4#=oTWnqDa<4,=<OnD:ӝ`v aHۍn0 prፇ?/)*TdY^K?ˎ,>_5/ (UzuHh!,ژ>=!W/vjCg<-w'6 EH;@xq>dpjE6vCxUfMOّ5~3Zƍ[FVv#X{'!߈ FUfM&#an STuS  I~EE\y-g{9ܟ܌ 5 ?k(k?* 9ov~SfCX15}zBJ]S xC !,ژ>=!鏄!cC&'Jʇ:6XEoUfg/ q@-co'UPQ1DmQ`kaְoFxx{U5mW{P3g{ys>TTtţ2K9:+AW2ُ]TTT(_- wֱ矇s.zGW;B}gyUssssssssssssssssssLCj2cŪ hU,tW2X]g^L?Tg%({s`WǬkTTf;]zG/7n1Y2Ph}*s}êPsssss/D^j}*ھ\i 5'ٿ%;a^t5J tM{dLhYqɄ[Pjqʨ5YUaZʼnG9aݍ; vEd۟Y|PM߰k#Y鎟:-Zu\:-v!C^f5 ˽̾iѲ ^M:ox\57BMzveGC)dWuܟk8PJ'Kϰ`u!JCۅKj߰k#Y鎟:-Zu\:oCC)dWRkⷶ4@vw>8x?yJCߊaK״G#tkNe~[Pjqʨ5YU}Vs5w"`4NIr3X߀p:&5X7l:tZ,$tޚүNPJǿS_gUP:)Bi( mɬNPWNH,6((%1^k;57&%)\S߾)q*CI3.NW<ϰ`,\lD\ᐡ}s5ӅN]Sל[1 CPw  S\i# 桡4ޫɍ_r5v8BCWRITE.ASMh  "!$#%&')(+*,-./0123456798o:<;=>?@ABCDEFHGIJKLMNOPQRSUTWVXYZ[]^\`_bG\Mfnnnnnnnnnnnn\/]zW~  ܒ**iP@-a2^T2Y-LsU g<57'd%e/oͩQLʜi29oVe:,]t`Ywy2kb\ sSe΁[uw25o·,L׻ 7L72K9ͺ7;ԫ"-a(T42*s>q5~&8c|1T,˜y]Cx73w< P7CEeLVL;=eJg%({ٝ**-Ce;yF U2kڟ3*y*7kFE}]|կV*ԫo;@2AECd_M5f*ԫv o#d.6>*yP7m3'G$t`Y]zP3yfM]T2Ke9uS> <~R(}kOe:,._T檥 5_1::<\kn,_N櫝P: 7I@?D$:9a/: owt{ |TmKhS7NNB3'q) @O]zOVq3>v3 a԰ I?EvL͛2Ó A._?*g}(~?o?EvL͛x ILUO;M]_U:`g 3UKj .Е2_UT Z̫:X_3/Gjmo[0 = Dfvkn=̙ 2^;**C\`Pmu\3pKnz,}}*{ah>[eVEQ۶wxB͝WS35777777777777 U^)'Gh@ߒgx=OM-G *ԫȈm=  SLL&o4pCzUh#ow]1N#~ q#SB*ASSqh#o эax#③BmYaׯQ/T(}k{7D UfT ϙ 2Fe9ٿe uMOMō*gw^ ~t uw1Qes_PeTyP5Pes_PEe9=Cƭ=H]NUJZV?o Psssss;0-yS**Dϙ ;C}[3a>pS3Ve92g7@s[EΜuuI9;e,YPsssss[E17777777777t`Ywy2kb\;e,kZjٻuwmtt`Y 57777wsfTyY+3sssssssssssPs6g33tfYǞ5w~i\BgZ!AW]@2ͩ2*s>^W>*Ӂe *S|Psssss42777777777777WQf{Udz'Ȉ̫_3ԫ"O >ᑢBݿf{5wnZ*T:E~ -yw$xD&_4nn?ova?28Lw~z\S@Dz52nT&+dUk>CoQ ʀ f|h3mcn3 Pu08CtVEM2**Ӂe*:ox;dS?o~י*** U^ܙzc,Yw!UPUPEvf?zyayVg .w,W;SV'޸;;tr{ U)}]Mʜ!וLe^ / L͛2^2^Ke9bGe:,jLe~o^*#~ê"{]t`YBԼ9*wCo8|o{bT娨Pڏ^^XտKw,WXū"*UDP)~1N;OtkLe^ \TQQQ+fۏ^^Xį~K5_1KP:ItjEѶ0GO~t/D/C>[wRf^*ӁeWCd*y?ٝz]T**+X<X]g^Lg- @޿1[*|l ˳:[zgǹT U}xMU*Bdx9:,}4GR,˼"S**|l ˳z5U;jlKBgA ?o!#HPx9Vf^*ӁeWCd*sREm?zyayVl-@jfڙ U%7 V*Y->[V,˼"S***\x˱uFRB_UT:0AӼ=?28?q=<Ȃ*Y ^6kC}T*Ӂeu4)\bo止B_U 9@3ARWpW;ogϲcpBWBGڻ ^ĕWBOH4o NE/BqOwɳd_$Bzፇ7y3R1Dr Cy >*`jBWjgϲcpBWjPj& **/T(}XU&+;*sRejޜW;e|Ť*TnﶽxdYw>_'Ig<57&eʎfX6HQEL}xw]{x xj*n*Mr{GUa GoZ@ABCDGEFHJIKLMNOPQRSUTXVW+*ts!tO<6]Wu }\U֯C{!=`͡~.ܵ\d5e#+{^pj\0?t`޶wrS-#ݍTCzLi#e5SܵC]#+KzQbsgż%?(38!=V0o1__Z"בՉj3 j%?AzQbsS;Pu?]:`jLpZOHn[W!ORiᶵ2|7rS-?wshm =tn nXnc;944!=q[~'{}DCzKn?]:wsh[!\KhHC{tg/ACjO\ѐOuUW)g".=!%ue3|7[4vW#Ru*ܲ>E .պONYܲZаB#3USJ))g\}D@ѰN<:q5+t?qƉܲjHdWJ[ao=՞b[ڧ` ,EVɧ- Cr*Ϡ!%ZpKc"TII~u*v-m F]L> .g{b^ O3hHV Rtfe0H\NPVt- =s]z*ꪮR[ 4vW㞭 R04lCps292M6e?B&SeX,]:6:|7[gX͡p >Qa܂ɧ2,.{94܂g L]p ^>B&b˰Xup |8;QokT珫ɧ2,.{94܂O>v?B&b˰Xup ^pvQoq*l[pUS TpKng>B&b˰XupK}8[j*d)* ^gn Ԙgv6v |͡p?>bXNT\ꞌ[ 3AJP> :V:Oo+-=AO%p ͡pʶb>u2p_94\ۇ~c*dYp_rN>Xؤ&&N_>X Tecul wzC%IU6*['l,p?!t߳©Vecdc$CÝ~Cgc ol6jcUN6ֱI8!N!t;=~9p}!t߳I4/5&irowzÇB=D2/klqw9{6gcc5NևB=D2/1$cIf;!}&Ѽd^1'owZC;is!t;-C($N!CwZӇB=$3;M2868gcw?XG6qd$N&8pUCgcfc76qll69qN!}:IΎ#$qG6Iy;CgcdfDZI8!cs6y;q2p>B&wjC~NNu*Gv)uv#p|&pv>ż]g*dYNmCW2os:v2 :~u*б,q2n؏ɧm|\L>e\F.{mAzO]}MW!OaᶆdeD1ou2p[}!tO%fs; Y6QF]L>k=VCpn2vz>ncdncևS#~J ncGpAGq.{'6|'p|'eӦ9б`LW!Oa6ʶb.*dY6!}?atpάw1|deD1ou2p?sNrڱmmż-Um!}7Ñv\>m u2pۙC辟8SOHRWumC?˨;^i}Б?XnUSm*eԝemb>,M珫ɧ0p4}deD1ou2pۄ!tgif;WfnjWumC6?B&m} o # [eU]M{wjpfPe#qz0'9]3ܐCi\-|gI^ϙ/ w3fR#s|djPϟItB=R>?M8E:*ss" }(o ?7s|e56G9>zPR w(O]s]O:LwO w&|"RB>B&b˰XupK}8v\CONVERT.BASR  ! "#$%&'o()*+,-.0/124357698:;<=>?@BAECFDGHKIJLMNOPQ?y|1}+1c?k?_ѡ_s@ۺ_t9 f]]~5PQߓx=s=sZP#g>s5+(1j=~s5;\EqT|-6j$v*crnF+n,6j$]P/fcY=:k%?3ke{n n{ށ0PLӽw "qMséPt=Qcu1{[>)6[,P2Ls d9RmY:꯾q<˹rn̲+fj֍rn_O6UQߓ+/6.a}R= Km\Б9O:2SWum\e8uUWi?V+~uб,N]U՘~uq:X4n? :eũJvm5#8O:ũJZ#ip[qUWi56('S#~J n\Q^.G{|.Nut4噏ɇ[!}? aF>B&ny#Һ5BKeS~zkz-tQhnyU-?`[.ON)> :{b^eɇ[!}7FgV;ܲ[,*dY5}!tgm\'׉lGnY3 |ze>F5lGe;ܲ NUo,՞G-?B&7niC v-gu2pK+rl-`b~fQW!ZB=pK>*噇[pK:{b좮B&-e}pKi 0Ԉ2uO-pjt0s3(o”ON90'J3 |z9.{rn0ӇC)-gu2p (9{N1o1?g[ڇC'DS[,*dY!";ż̢B&n9C3p˹}(9{6vYU-Uتbb~fQW!Z%}V3 |z|PrllN1o1?g[ӇC辧jcw'k z2nUS* ^gاwshej̶L*d)?\e3좮B&-bq2 .b940(1Y32Es[P#([r ޠG?\#[@MbnS?r? y.K/6F-rp5ܞSI89Htrtn =~t"'s ߟ~~t%1XݍX+nf6NEns#+ٟ 'ӹ<j@t2E5F9ԊsC ⹍z 4`mF'>#[Di>}EbXP/{S/S6%|z 48PLٟWK(mx<j`0ŀlC+`ݞSI89Hn3 C76vdji?p_XÇ%12ܹ22/ܾ{;sd $s!l2Eeb AŽ-e8& xx*T`.@mT4_Ӭ#:$>5C"9lvléFŖ}s[@woKbcb5m WN쇇OE )ddSsu9 Tp֌wܾ{ ~xx*T`bؑ-rxO%ȞS@J7=5Ssuléd vnk?Y+5WӍXZɟs寪nQӬ. 5Vֱb woV6:>&Y3:kVléd V n޽jٱf-7]Ю}FwoKbcb5c2Y8N7VpMg|G n-r8 TXWRZV8n s7?U 7?߽[5n:^ l$+R]'I.>}$O >yGrFMkV Ñl^HG2LI$|'2\pes[2:Xm5P,2E#[m445vϩd {nk?Y+5WCbϬ9W^B1QӬ.ѡ^B1ͧ^cmo)!o%toV6:>&Y3:kVléd ^K z^B1M`v,pn+w_ W +A_ǽQےXcfXLmnCn:;Wpߍléd ^WRZV8%ӬP,p;7)rnkHiV n{.iV(m ޽-e8ik,Vt2芅芅w]?KlVSICV7nVOe8& ,#[p*:cȞʗzB, Xf97z| |'2\p %tos[11ͺ11͚A"K(V|_ӬHNzdNE')s[11ͺ11zs*:HŞ{nR*?/X+b7ݹHm-)cb FŖ}|'2\po&m}w+ZpsWGz~7Rp&Fg`fA!c41:KgAk%'Dn. {5k:b_#^P=OB^щ̱(Μ$b AE|pḀXљEP6Uбͥޫ[щ,^M|]k[ӂugRU_2g`4Jp7?}o5.B>aq􍯃y u􍯃$ElF=鈕za|#z~fKD:\Le#6IR_R/|_rD4Dz~V]͖uR/l4zn=>0,NKr,B:o|X8I4"=·"^Zd6\64+ƥ/>}_߻MNha41:==R/>}_߻?F3Mki5"v)u􍯃 7֧h aÿxq8m׭o|^8I#9}&zޚhoy$Ƿ֬3iIRn73i8b<>3I$o<]Gl 3#9Op8.1}1J}S|KzaYS6O ~=O-)ŧo8EH_߻xc&F d>i㮃Vk[ӂugwtGwZc)I,1I$'[cb5@JE,cn+_Kn[xUOes[򿥌zB,Ýe{.g~n+_2wʗ#u#1oj$v:&5mH?@AoBCDFEGHJIKLNMOPQRSUTVXWYZ\[]_^a`I}xF!{MFhO11#.m41:tJhD ~zy̆9`4Jo:-6v&Fg ]= Rm_\1@5E\mhunz5Υ{Kƺ%z~oTvfކnK HǧoX}{љGS41 Rmc&o|b41: ]= 2HAJ]d6\pfSizuw}Hԫ sbnW1k;-Q밞'I}y-kڎx %bgΓ<ݖzu5nMtX4G a<4Oԫ5k ya3ODK>dW/9=?.fmG%Vp=O:p蛟/mW4ԫqW^_]&Fg6 fK3S#= f0RhbtfIsW[щ,xk41:NJ!%:O& ǃIRL* _zC$T5MN&Fgpk41:3u&e+ph` c.nc}3\Ֆ WFщ,.o&Fg#ݵKZd6\.lc*;MR7,u̔t^plsu􍯃 TxMN&FgǎeYTxunɌ lc*;M3V*\Tvf…%36\pSi1&F'ƷT0ƥhO"&thRݻFd}}k5C$|!X3|! g>Y j~ X 8`R 5tB.3 "q7 Ah-8)RyG^b %Z1j>B7f}e.}g>Y uǜ``RA +Zps663 d7VPR]yeT{s.o<ɽl$N3 Ky@6kO֏L+X1ւS Zs~00\\g>'ZV]\_#|> @q(AtWk\7Fd`d Dk)N!}g>Y_ >&t`!&'Bߚs}K63 "wW{K3>;TkbWύq7hEz@ъ]=nl.[#|& A!Ug>Y_qRFd\g>Dw@wDw`=>}e (RpT}h`nЊFd}%'X1r\Z! $h%'a|Bw?܍s=\꿰Fdͥ ukO4A }Z+9wu !o<'TqD+9JN2 @ȥ UkO& `R]=z@Q!kO˥5'#ց`t7Z\?\#| ]9Nb qL*;q._#|20\z$Adέ̥3,vE+Ů$A VRkO`m!p|A􍯃  9ϓR፯ Mk9ZKfm3^ 9V'I}Xљcqpn9sX*HָՀI={MF^fX5._nMtR/yL1 c*G:Xpq􍯃MNW5T꿍uhָ${L&(W-Sk\j|:pאgljaZ{kARu_!$/>}vy_߻fKD:lmDKխnK8I䳕Ӕg$e4*wK-\G:}zCnQ~s.L!wiiiiiiiiK{ݔzChw;vGhw̥FӇtS[ݺ%z~Va41:=STvfFӇW*oU$+Ryw׸Tժ$됾dTzE$Lck\j%a=?RUO/>m_߻M]s.Ud7wKU{&Fg8j~ 84Rnf c.Ud7w1ձKUn}$#|q􍯃]&FgQ%v\jyp=?V>Ñl8.F3w:vsz s.߿Fd}5|8|8<[qRukOZjC#g5|8r5'[qp._Fd}X$A2X)պ+X1&B_K7kO`m ]=D $syC *& e K73ly.Fd\yG @q.{YeL*(p,vV\qy5Z+|s~2A` R}y擁O2+X]syG }hA0 >`e2AK 3 |h-8Y+r`K $wn}-$PǶ:IMf<7/#u$K 'IC߇N#5"K Nl?ģ_DnkJbbJ N\opdyh$g>31P$6"VHI#yB+79IrId9}G_'IRyk:N\:IFL~|P\wR}q'IZ#bKؖvR}o'I.pdK,bTK42i1R}3O$pA00\]O2e2!F֝DM"zh *XMrkO˥֭g>9w X @wUȥ歑g>̥Vg>Y9Az!tyk Rmy擕h%?X/X ;+A0 >\꿍Fd, Rm5'[My擃`b8Q+k*;M3Vd7w19F\5YDKUzW#ձ!zwadGEu[Kp=ÿ8I'sar,k$d),G*eLw7IMf!˘R{$[ הi,67]MluՀVJՀc.7wzwUk41:1MN&F'FYݻk41:e@ } ;`@ R޻u Իhbtb41:1޽Mlnz]m.hbtfI{ '|At,2uk.}o|_8IįëݖԻu{b6!ywocK{ukF{C)ZΤR^ޚhoB yw[ݫZאC3!$Ɩz:wG:78b|蛟/[]x7?}/Nl4}QzgOޅpKwՀI=&=MM3+޽k\ / -7hIRzTvf޻uhncKh<2*5.uMpK:񅋓$MO>mJubW*}Yho`y$uKf|W 4p􍯃.ƷTXG:b6!yp]:JT[x IRý-/ 3oSi :$MNM'I~J{:b_I}"IR^nl1YpￎƷT7fm!f'I|%Z*^d6\ĒRz2Cz-hR^ݚ={C$7?ÅwK{yk ,ϓuo~ ֬IRG:7?ÅwK w쁔 5kZ >JTC.F|<"?ZJqr6kO4r6kO~ZwD vpn%'YRm3Ds`5 ~(\ y#=oCF䁟@z>?|~>uF䁟@z>?|~>uwZ1q|,t55Aܙ({KW^#|h jqE\꿺yhss}'j`!NFdOr`D`%8 u5'Rթ3Lq-8Ůb-A4RyC?p\JЮ2z8h`gATȥ˻kOWk|Z+9_bk{lΡK3$ & G00t A!/_#|ձK_#|rlfqdKFiOkO&͹y5.5A |@Zopdyh$g>31P$6"VHI#yB+vDIGIKLOK.BASS  "!$#%&')(*+,.-/0123o546789;:<=>?@ABCDEFGHIJLKMNPORQ9{] ҀeVG#TKo*9c7e(1 d(15Lix&%CW/Cz]9 5PR˓ %DPRo>=T~8 O"CD$CQ']LP*T!!1HzshpZ,-^ [(F>=@]9o5Js_?-6#0GKT4KSw[9xc48@pg-Po-Sr &2vFEESTEN.BASU  !"#%$'&()*,+.-/0123465789o;:<=?>@ABCDFEGHKIJMLNPOQRST{\>פxAyOcN_-{hkIoޠ0|^YK#a2 T֘Ŧz{өt8 ~ζZr2DȃASuop3ԒspQ-yCvf k+LdiڵZrnToo:U8S_-)hLU[:n(hL%g{6dViu~O^NZ=ձ=;y~+QKv1SՒWxC4azv+35f r-5btVT^!f= 1S7'Zùg_oS7j"I`Ͼަ(Iz#eQ˙{68;t-3\G>}M-TV< mjz+um8Zdȁސx:RkT0ڷMmv\c ;ũ, mz3<|y*˝cS)W*n՘қ_f:!TR_Zj;upguR:RY}fw?J(N*j;j=TlMe-nTrfڵ`Thſ`ԢBK RYJvK:!ߥ"BKm],uRڵ`=X/-sguRZ-5p޺;RQc}U0&q6HE- ]/YTSQkmޑœcS)Vq6HE0+nT{kbq6Hp{';S9|1:N_й:x6HplO{pşIJrNT{; mW*_wO{pşIJ޺;R9{'x)S) W,Nh#R93v|jY<9c)`8לp'S9֙ 7ٛ7H|o 2cE.gC>`#r1fʡ-X, ^s=C)>&x)S.]Xw #NP8H| й:JPg" 指_0: _)CE|*[dkcJ8KP{nq(wS.PcqB= ~KNvǩ0[yG*ٷNVq6H8;Ac[yG*&zSFT<לq\9 ǔp69wqq*]vև)iw~e΍> )is~eC0{,F},?;c SYwڷ-h#r3Ǐgj\gg6|,tig--2-m=m^{6p G.ߖ| |iE%m=.ߖD "=ENz*]:-A~pϾަ6-ѻKǷ%тH'@alki9hW22~OÖmM?-Ood(쐭E--ci'^XV7 ,tJ--P*,mfwZ4 7 c -od9G@ۣw7oKʜ4+b.Z:ihu9,-+:B3= -7|[~[ߖ+ ZZ zߖN4l 5oKz*]:^a"'@alxoKz{r+$YKÃ젵z{m)ҰAk=zZr P!]Ԓ#/?)^a).ahZr7vl=ßN_KT=r9kɁuC`"fwZrAnz!{.Gt9kq1! u99DWK??~>R({Y>/TzT <>!g{q1d\`aO-.z{%a#1+)Bҹ@/@atᢖ['#z{_MZZ ufP9jiMPooz--ZpM?3=g--G7x#tYK ;8o$<ZZ`H@N@\--q4PcnjiDo$5.,WKAַ ¨@['rzn6= oVji@yPcSK-޺\ET.r{!ji*pҲ-ǖxO9 m? +SYzi>o[}<̆mmr۵PKZi>o[R``牝X7"bLei>o[o׆~Eq+Tq;ǖ#Y!sTœcKݧvb2N%9O4L#ђ2/pq#*כ^sFZeӧvRF\=>>mTr =Ӿ}l5o4?k@[tmQ@Cyh{Ɔ?e*K)}¾}lhRӾ}Tc˭ x(Ys3s\o*-ci>|<7>hmyΉys1UaZa>v*KcTNPRԇӾ}l;DC||Fh3Vчmn1|}ةÝ'3.TM͈_YT<yB9#z39;-@ 挸Tع1CkΈLE9;-@zqכ(ǜ7BLkΈLE9;-@x'37SQwfTzTכ7G*/'yEaY TWNY'lʁክuΦZ'k)GlMi>6dM90ckuΦ<(bk) q*Q6{*c/pq#n1fOoV/Ogr ߳ #4.ѿ4~:;wVTt„fK¹:\orӄʱE.n1Jiڈf*ZN z_tFR}9gSC` w-Pn)LyѺTpWQ6{*[yG*N& ßN_ß zuS&:)h16eD+ß2uS_O jiy%hxAή~:ji.rxӏ')2O4l4炟ε4ׂ :#"!ק9W== B/b~OOG-A3;}-auĩe9⬥9D+#N~O:u)p૥7vHK{ӏ:yG:)gz묥z^4Lji-/Pl9jiۛE:MM-ґY! W6Yb}O[_!wW|G).IߧUiZ찃OywY`l*W|G)gSV}׬[H[ e9"涚jRׂNS rph^ nåQ-p=G$:GbՉp3|^ jD 9Pe -[u/ֵ 9POu{Vs*Zaq(/6#2M-sDs,V7U ܠA#-G7x#tYK ;8o$<ZZ`H@N@\--q4Pcnv7GKALFEEST.BAS^ ! "$#%&'*u{RLGV޾'EKG76='azڶ_7_{Zo'a(x)Tcߓزѣ9ьB7*u{hrУMiF*u{hF? *u{Vi$h? 4HJ[ьbS`RǾ'a݈C3(Tcߓ0oˠI:(7̟hFu ,>?UJѣ!~4 X|~ԱIZ$>Q X|~ԱI*m4I6zIآz(Mkϛ cl{R=([r̯zjQ[frMxE*{R=(3FVi۹xOc7JݓHyǔ$1ܓ $0y)I$0YIuKDq`$0IuoTHa>/z)|'Ya,$0=Zi(*a6_ޓ,ef*,'YbTdJr#+Y*}O|-TR'Y]C#${ʣjkߓ,ly^*a6_ޓ,@GV'Y-3Sʒ) M}Ovˮ1U$ԅ$oh5]!V IʣjkߓU8L/NIޯef*'yjeɔGVZ䭴SE"HAxO[v APH Nx䵴fFuE{۪Bf=WTU h#+-3Sʒ) _;SE"H]xOؚtr'dƉ8kQ=1tR.ڀL2ChQRk?UĀI{bڪol{b=1uRO#ShQꞘR}&o[ xOL>7()+*-,./0123457689:;=<>?@ABoCEDGFHIKJLMNOPQRSUTVWXZY[]\Aoھ,š᫸,Os*hߓFl2ypm20o8KqFVtYW_KL3y* Z)nIFZ^uxOj^:=[3y* _'=aաL {BH23)j#k} !}&oqWcR\\_Y1+810 .c3&@s aS p>{BJ23ʐ.!Y@/R@cJ"i}hmpd'Ool{RL!c5_'TL!BߓBg|5Nol{RE&Ϳ|Of`Inj{bMȌj$53MQk#Ϳ|O$33kj@X 'vjh~v_:Y$(v''3㿚5VBAmpd5 㿚uH ,{QpO 8GV {bH2y3sX|~Me/I @fGR!{3#tҋ?i'fdEL'h MښSkҋL̤FRI/*vSҤ]c`fd>&-e&5pOLMZ(T&1{iK?xOL_}&o*i?xOLX}&o*~*-ou=1[3y>7uŕL! 0Z8>>7urʼn"xlMaq,=1v}&o>7xlOaUg[8KaXmZ3yS͞'llDjnVLĘZ3ySDBr5&M'َ=qa}&{bZ3y#'J X|~M(+Xo y8q"k&"xUH>7u!ʙ+a0vrɛ фlvf!'u}&o>7$x5!7>8[xp-=!΂{Z3ySa3^jU5jM=K-_lMgk5aa/g͍;X ÞY=Z3yS{MyXXū': Yv&rIxOL}&o򰰊Wa8'j-njxO*-LpMMyXXk-njV;s劳=g'~L'bzc/ТJ(==Zo'VRQXd~O|->7u[c ʣj˾'V*9F}J5[){bZh}{b23 ( p*S}&o®1#ʣjzj\PS`B{b=ע|Po|~7{~L":(uש,>?Uod|{-!Þv@@ZC|gk>7,:`Uagg^[aG*qn%{gz}&o kxME%{gko}&{Э7J|~~7}c/zաluS`ًR: FMPS`B7}TAG'tj^ujF)6mOz'z'pYfE-wOhF{BWZSŔQ7{~:5}oD qOhKT0 xOho X|~S7J𙹹1dۏ{BV$L=aa8PBj͖8hqd6I[v AH5=!|Q^k& ͣjk239y'mpd`{BJXjF)׶y'tOAN-9S7y3P3y3P_7yOHڈ+NiFu ,>?UZwOH5[2jEc2Q )Lʊ68BT^iF.Ȅ23V }OHT)oE-`B7ujpŴƔ (‰}OHL xOHTQ}& [3ybh WZ3ySeV@uc X|~/u7J qO_ XЖ'DEIPoõM4/یwOzngosN7Jݓ:&ɛم$}hO2}c/ߓk{R~]I!(uO eNd&f[vI *$tޓ(}ьX|~ԱIҚc&IF wO:=)[s$=)XZol{R=)vRND=)I1|t#'GJc lmpd{RZ> 4MJXJXiiF_7d*N|!JdfJʕ!iy* mpd}|!ɛq"239ZY_ }ɩ@,QY_/TZol{Po{-VfY.EWP`R{ZS{Zf&kn<\Cnpd}X{[f&kGWI}ϗ>\L! 78z{L&py2 npd}/UZ3yz}&o8[mxr*{diMg3yn^u{Z3ySCl\g˻JhL=_L-L0U''=_Q^CG־_ XSE>7unj̒Dؙe&rrYqx+-LpB Ξ/BVW3ab>7uNx"xr狖ly(h/z!ͣjkEo XS}ݢ|X(x 7JaU?aef*W685}dL"U0儜=Vi^~&fyχ[ҭ7J~<0rqUBR|*Q*ef* /|M(37{*Q`-'*E_Qgo&|zջFߋ|W7JS X|~M(+|rɛ y9;3Q\lxWZ3ySẳ3Q\ܸNZyMq +Ά|uU0 Ϳ|W=[o 9d|zLPlT)4}c/yUzgƞ7:(:]cb i-֘:i i-HVc!:fFA{QH i$ͣjk߃ך-OEu]TlQk͖Z{QH $ͣjk߃uyq:NћBc׺#gq~wD` s09BKLfT٨=5;3O1>&ͥI.g箱DL1͹Z7;Ej,` heSڨ=gS1Sy;մ0Ut0ʵnj҄ sae`,?AWcDy(UcL%[t0d}BpJݙ9xSES蟃)t@Db,1R Ak,1` j b,1w1x4` \>5;3OESc9+~cy(%yk,1E_/o%淈֋ƒɼ)8ؕV,6Q9_ƒ[h^Nqah,M_4c}4'@j,Ķ'!(C%]SlPCq~ ^a?he꼨[c-6*/4o:T/2R;2"_ˈ)+k}yxKe.:BgXF"0e?N=/؊Z؊ZfLVԢ(bh3J` s0>]` },)tٖ],{QJ߃uEJhmC'ہ pAt!rC+,=b5'vV6Y87B'lnhNX=;퀰j }k5NNVLXN*ۆٹ0NNVX 'X'{b*ۆ;C+,= ؍aA ׉ {bwUd``m]omka 1Xc[c'v[ZmQ귺{bnQUBR?N=?rq3ZfǾ'v(2ng99R9;'v(R)Y!׶;UZo81UKw X7JvW -3c'8~<0rqUBR|*Q*ef* vAMASSA.BASZ  !"#%$&'()*+-,.0/12354687:9;<>=@?ABCoDEFGHIJLKMNPOQSRTUVYWXB{.;Sl`n>#Ʋ*:B.` _ ׿ue\:+:BLeC:_nWٸl|;GM?-`,΋Dz` ߮ǼMOzM?`M?`,[o}5?"5-Rt0~Y2ΟUn˦dV}SwXbh3/͙- XcI ƒ*SDK"=pc64ۦױ*z875Q'lߔ)cI]D4xjˮMv+9lf,:+Jl?v 6T=Ic3SJu,:/ߏ%UEcIǒSDqo،e~p93GI>pv$1Ǻ~p4-8BQ'Dz` :؜E߮4ݡv4G?(o,SXRESA,'Dc?9-זD Ӝ!_s%r:uy. .tq?MtP6X"6'u׋]ܾV:.B~nϢ y%FVKa:ڊy`| tБ!ko?lop׋]D_/v6'~,1'LSP}bH14M՗LA}`|ˈ}bESAŇ?1eΊb%'Cq}l}bbtT^?|T/y;'2LsbC]T[$C>.kn6qjCD_|]T[$C>}b. /<ոA!C/wX/ͩ ;o9z}yxW}3^oq{9kM F`Xs~ ^a? {~X)^)Վ/4缾ncxPWcP' -uixy;Wƺ|Ͽ=o?@ABCDEFHGIJKLMONPRQSTUWVX[YZO5F)S[r~$ޏc2:,GE]FL]fh{?+Yig6ZJB)EX SPM@g<:S`k%eZqE_8eE3&@y:nZzPXQ\i=;^Q\?;Em^%uY G3 M@~0z;?IqDY߉Nҏc3zI^og"H'2+/r"'z&y:n/-ꆛ:c`鸽kNL7nSNyyO鸽 J겢 q{u"qCy:n/Si' q{n36 G}G3ܭ~t^(C4=C/) th {< "o/С(@3 ?HOrY9N4z^ Z/.dDqفQ3Ѭ@Pi(-*EeO\@PoNBӽȿf,q˲1𞼽@[CҲ h:Q\v h^bZ4u;JQZnU.Qo/P [qӬt*X+ozX\4fC] T*ch:Q\QxA?{J/rdn\Dϓ?qn+.v@[[$;zYPUxkv f Vⱸi{,;3,VZnex9H7=E~a+.v@kEmX\4fC]Vy j@}G؁Pؽ@=hEm|f,q˲A,WZeDq|?S[x9JU.2@ۊf{/Vi{Ƀ1{kJ^kZ4u;n\QZnU.27lNBӽbȿf,q˞J?9^aZl04ifi_ȿf{!h%u#k89Lm4-'WLi_ȿ f{PVP hk à n?#l>S4o b{in㲸i{WVPQu|qW?_] wrTI$'#z{AJ2K7VJG8%+IF\UU뽽k :,;G$+ q{dpy 9*eqE^8FqE呭~'3.\,.vY\rx8Ǝel {PQ˄=(\p.qS.:90_3!Y^87u\̞bY{/`8}h$Ǟ9н EqqF[9N&=7GN@78)ɞ.<{˞g|8^(w=zf;=]x&4Ir4,.C4'h<{hFa˞#d鸽֪%uY <Zġ.t^"PX\d?͇Lt^_+.PXvXLdEfE.5J9"} L{Eq˘r {@+-ȿ Lw^؊f{Ic|uwix{A+q˲gq沸iVE;=cz*ii(,HwzPz+.vֻzJ,ocX\4n%uWt<7R|Wz%>Ɉ*{=VzbY5H%#PN3zƴ(.wr*^πV\4J8i4{=bYtDzl93X+-2) Z籸i{,;eC^TZiEm f{=So%u]II{࿒~_\EkU_0y,.v{=mQ\0VNX@(.[9NTz^+.venvX%40ixJFӉFЊf+m9a+.vlnt4Ve(Z\>xQ2Z^M /G)վ#4hE更QbLG#HE2(<2EQEܧX<WXZl/:,;GxFU֯ڴbYa?Z7_ǿfr?E;4"6bY5K:lN?MZqӬG_{abYa:۽q{a]o0ӭJY"ō~f^Q~Ef0!y/̀y:n/̄-v4 _텅۰ȿ `qӬz/,ġ.{*%&LL֐wr2BpWp'׃gq,޽iy(.#=y9NX^Xq{aab{aANQdL L+.vYZȿ,.v^8e3 VZȿcqӬz/,ZC]l9］ h(-S.z eq,(.#=/)-k(^XPiJ^XPonջuXv QxL"}V-V7ifu呞MA<V[lu4Q)(B:d.+xE<ӊf= /GOh\cC]3!Y<Њf{/lNz7;yTw{kNk7iu(xPNS`+xA{&ҍnw {Ңњrcz[W;)߉ncqE+x9ܵ w9+0݊f=,-wZ.f{,O^u+.v5%gz/^$1^䰗yu~Oe֢xA7o М~'꽗A 2@P xx2pہ(A@7 ܇de>$en2kLЭDz|T"Ii;z,q^'qU"z{r.Y\4fC]*dUHera+-wȿ LX\4fC] E2rE2A:?OeJe:,;Gp2uJKGk?^Zx9S."y{i1r=o/S-#)վ#xe (ea&mс(CѽLk1Fq͗r{Ik{zbnrg ft/S,LbM{:@P敁^-!Yt/}t^kZl/uXvO2u_6x b{gZx9S.2\^-#) [Em`<;zk18e@@>灨pQdPx^?t/sx,xy:n/-:,;Gdlx-;2Eq)<a /G)X7d/H^TZQ\ё;7,{m1k QNS\4 {[C {q{д^ ci>ãwҼ^Ӣ60!>}^ -m;3E_ao/`- 9N0W-9y=_/ {au~+-W:,hdkұxe ^ȼx"ہxUiӪ唷WA+ݤ2+]n;"U;z{UkNN°{J"i{t8e/_KsU士kU_%HZ5_doJ[C]sJG5[+ի*^+q{%k+]wJɜKWJKGW>^׭ġ.{ɜ.|_"k#{WVPYP=ǟJVDr2"iWTG|kVB*ϴ% d\wUE$#^gk|{.^/?UkJJq5W^g%sV+~WUJ>U_iyWM(A݀Uy;*/lN°N {ZqEuUyAzi?Z"%矩^^۴)!cR҉A'Iߤj^g~_A/cAG^7: WE FP 1&uǂdi)5t]i?t8u[=Aa5.G$U,?·4^b{~:RM~!)6n :""^?:sTVkp!JuWUZl/l?VLQ9<{~X8iƜLZ Zo)Eʊ$"^J7F0&9ir2 zio׏: z)_7b5.R^MK??zܺkD:FS1I"eEJ9{~co&-aMrd^uR~+nĈkp]"襼^(!֢<ܞW<xf:IWp:A(I,N)KII:plz:x:HO :n{:"#";K;:A(I,N):: "Wilt u een andere matrix ";  A$"n"A$"N"ρ  :A$A$(A$,) ::dH"* Oplossen van een LINEAIR STELSEL *":v"Als voorbeeld een stelsel van ORDE 3 :"|" ( 2 x1 + 3 x2 - x3 = 5"" ( -3 x1 + x2 + 2 x3 = 5"" ( x1 - x3 = -2""De orde van dit stelsel is 3 omdat er"J"drie vergelijkingen met drie onbekenden"W"zijn."]"In dit stelsels komen vier KOLOMMEN of" "ook wel VECTOREN voor, namelijk de ""kolom getallen voor de variabele x1, de""kolom voor de x2, de kolom voor de x3,"B("en tenslotte de kolom (ofwel de VEKTOR)"j2"getallen rechts van het = teken."s<p|PdZ"Voor het oplossen van dit stelsel:"dn" ( 2 x1 + 3 x2 - x3 = 5"x" ( -3 x1 + x2 + 2 x3 = 5"" ( x1 - x3 = -2"I"moet u mij eers> ()L  ();V `  p d ();:v n o HO3 HO3 p VE VE q ();"=";(VE );(HO ); s xHO( Z):VE( [) yVEVE z HO HOHO:VEVE7 {VEVE( b): VE VE VE= |I IN$:b : IN$"" h w ();: RV(): FR(): ,SR$(SR) -Q7(SR$): Q7 . (SR$,)" " 0 /SR$(SR$,Q7): - 0 (SR$,)" " ( 1SR$(SR$,Q7): -@ 6Q4SR: CN <` 8SR(SR): ,: J <Q5(SR):SR(SR):Q8(SR):Q9SRQ8 > Q6 CN:Q9Q9 : Q6 @Q9(Q9):SRQ9: , BQ9$("00000000000000000000"SR$,CN) D Q8 Q9 Q52 FSRQ8: ,: Q5 SR$"-"SR$F HSR$SR$"."Q9$^ J (SR$)CT N LSR$("********************",CT): T NSR$(" "SR$,CT) TSRQ4: ^ SR$;: h: A2:: RESERVEER STRINGRUIMTE: UITLEGd/J:K:Q:I:DUt de orde opgeven en"m"vervolgens de vier kolommen."u:"In dit voorbeeld dus ORDE=3""kolom 1: 2 , -3 , 1""kolom 2: 3 , 1 , 0 ""kolom 3: -1 , 2 , -1""Vektor : 5 , 5 , -2"#N"Daarna bereken ik de juiste waarden"t"voor x1, x2 en x3 en meldt ze."}p:pHO:VE:nz"druk op de spatiebalk voor het vervolg";:IN$" ":''" LINEAIRE STELSELS OPLOSSEN9$'" ==========================?.'`8' DEZE VERSIE NOVEMBER 1982B'" bewerkt voor BASICODE-2L'" door leden van deV'" BASICODE-groep`'j't'"Oorspronkelijke versie uit~'"1980, destijds ingezonden)'"voor de HOBBYSCOOP-wedstrijd/'5'L' DOOR :R'm'" P.J.H. van LIS'" Hereweg 86-2a'" 9725 AH GRONINGEN'" ===================='R'm'" P.J.H. van LIS'" Hereweg 86-2a'" 9725 AH GRONINGEN'" ======"* Oplossen LINEAIR STELSEL *":f"ORDE ";:NpMN$A(M,N):.KN8:KNϑ"vektor";:LB:"kolom";K;L:JMV::x:HO :n`::"#";J;j::A(J,K)t:J: ~K!IM:A(I,N)I:)D6KNL:IK:Q(A(K,K))Z:JMKo::R(A(JK,K))::QRQR:IKJ:J:IK2 :DD:JN::QA(K,J):A(K,J)A(I,J):A(I,J)Q(:J2:DDA(K,K):D <:IMK F::QA(I,K)A(K,K)/P::A(I,K)Q>Z::JKM\d:::A(I,J)A(I,J)QA(K,J)en::Jmx:ItKDDA(M,M)"determinant= "D:Dϑ"geen oplossing":: :KM:QA(K,N):J :JKQQA(J,N)A(K,J):JJ::A(K,N)Q!K/KM=":QA(K,N)F,:JMm6:JKQQA(J,N)A(K,J):JJ:6@:A(K,N)QA(K,K)JKT:IM:SRI:,:"x";SR$;" = ";A(I,N)I:4:"Wilt u een andere vektor ";>HA$"n"A$"N" &R"Vektor";1\KM:vGOTANKIE.BAS]  !"$#&%')(*,+-./012354678:9;<=o?>@ACBDEFGHIJKLMNOPQSRTUVWXYZ[\(E[HTM׍[M[^T` ;txn uHu3}*h+ ԋP B|(QA txn YLtw[*Xn?볩 qwy6L%1{̦$FyO$FN!ʌ'0PnȟGH֋PYO0FTfT>rے֗ۋʛ[/CTfQ9;RrcܠˤuHb^n/7v (AT n~@5]7fےݑ .b};R[X_7?TLcǻq멘FUFUEf塛wG*^Ym;灀^LR1mtww|eeS1k#n{o>^ް7؀<R!ڴ" e S!Ӛ) =iB\j$`6' ߖˍՀrc@ xQ"T,p?aoM׍Kykn<@G|a_A`M׍[uB`I Y~5]7^*tx c&r!>~a@)6j R6lM׍j4VvHSXqNUs ~Kۦ5]7DySZmVV9K۟tx?=5]7ޚoM׍ʷtx Fsa@alWT|h؊_Htxkn~UVXY;=R"њoM׍xC_2ySpKtxkn5]7ޚoM׍[uR"5]70 H_@E EB/A*_,p?AT8o;RnTm҉d'WʼafzDv^͠;f"_vʼMfzDORu3tb'Y*&Z+y[+y[7Ky8;޺^eE9ݚo*n o7N˩̱[+9bfzy՜^qYU|Y~2UESԋqw R10qw 8R1c{]}3yzQ2擊1Pݱ-8W̼2NŘcYmՃ̼z*:.wG*hmL׍f͏#mmL׍n~`ۃTð{YyN[6^S&Z+okoY~y̾btL=oQ'^uS&TEeyb *k9G Erm ̦.Dr{cWn^,p?},`ۃRA4 l{,p?aw*E^dzr |M׍NKiE+*pY~B5]78k/؟4k"L\ u~a@vTESTBC2.BASY  !"#$&%(')+*,-.0/124356789:;<=>o?@ABDCFEGHIKJLMNOQPRTSUVXWgٔ =9g%̟~_:e&>D,Q\~NAOפC.,C-2}p0u{E2}>ʾ@Wk j% _VLd#|NfGٓ9@@+^ʢYp5m{iԕSm,Q(;JEMR\5" ȅZ#_;pAF6w{}gϡgHO_^6.!!|Fk{|>ȉyĽ?ˆL|=ˆL|@zZCBZ!Ln!>-?D*?/>cgL;Cv^n~/"zQb4{XO|a̤beeS1Okbr{=Z/C7?T [OqE2C,p?!O3m?2lQabȦeeS1Okbr{=Z/C7?TL[ϰgNqE2kn~R]^&:OÖۋnzQ2\XM̮cKZgǖDir{m0^_A .&fSulIؒ`*&ZncKZ|[/CN33_?;O[u|:ޢ2#yfbykn< vݑEeF>!=+̗'N僰5]7f~ǖ^O僦Wl{K僟͏# ybb߱5:I[x)Ou{P*Dc+nM]mwNEy+\]`nY$GyX쟳DʲJosRW7lρY<,QvRyNnQQTJiij#|ra1,u.ѩuiF52}>ʞU oe}L_=)ʺnρ F\hρi&o|Ça> YtyVVSb[]ۤW%nx,Q(twr0ó8^+Qd(}ӸiEf5ϯۮzQi6lY<,QJW*_EY6QnHfG_i*%ͼxݢ=:Y~V> rao|Zmn /31pGHl7}}> !oQ} $Z%\0O!ms#|@yϡ>=ˆL|=ˆL|@Bl!Oiu'%8i>Bq۴{y>ۿ?mK.Ѿ A}}}?ם'q'ZA>BwO Bםk{im?|ZDyٔ§!/3!zX(7uD9%V>->re/\ooWG]<գU+T F,>re+]r{un!/31EGHl7}}> YlYtŵ9%jj85NJW+Q~6gqkh,39YYmw]*\(hE>ʆrF,+Ioh-"d'ܥqj #/39yA=9;P`;s"L;[!Yˉg[(wCX<,Q诼omVj#|>re8E}6‡!GyXlsӇOu^6‡HfG_deZ$N"GZ9lsӿV篨T_Fnlrai{M$Q( ^9kWRVzT =?@ABCDEFGHIJKMLONPRQUSTVXWYZ[]\^a`_䗾|q%Kk?EIs̤rgpz\/}r%.N) 7N^旾\.g:aNK1#_v')K-v;En2K AV) \2[a)(Z+OS[v/+_jnq0sȓI5B*8x8'(V6+OS闒ypRor{<ԛ\JUa1p1ݘCJreϫ-)IpNoh'¤q(j#|rau[(+1TNUd>k'z E,Q(rum"Jj y]H^6g֡>re7wCra*JtV+U/\o-gIy/l@fG٢pADjn`g \,3qY<,QWwCu Dʻ uab>>kDfGىz+I$.+W!xqn!GyX줈rMWPQRW5l0B#|Z>Bf#.!nX">SG(/{Mͯ$eeȢ6g NfGفQWU可E%5>re4}9m嵮]9:5Y[#GyXlQQnonWp#| d(}訧R\?+bUnсQW5G>"_;lr?j)~ uGii"XY6,QwHdw\,31Hu6?ܵCY$u.ϲ?C}5l >y9R>5r_ww|B@ˆL #.4#u6Mv!mv{2XR*ܿҪey%{۽4*_-iѽ4*/-{i_iu0#7~ɽE[#x*K8x='_WZBZL{-֟{2x~[l~O_rO[ch׼E`t%=Z?dRKsJ[@~|`~=}oE\FȽN|Z֟O&o4FQ{#耋۟Et5/o[5h䀲ޢx;sK-Qޢ[Ѫ6ҭ5Fѕ&kQ\Т޸۟EI5~|`~:枾wZnoqcx2x Mb޸?{k!O&sO?_=}\5#V-,Oe=bx:=TmVM{<~kt.:~m}sO?>0SNE[?̽q߽4Aap2=nܿꆅ'^WZ@o#׼,U ׼[agSD\l(*V(7 L/(cEЎu'l.n''쀋۟J?":gCVVe6e~ l|_s/=0 |?[%'m~*og`U?Py;ڹlEJ2e7LeP^^6 ,u LVIRƭN#.n6QJR's{d VIâ(\$88w"0rab>8.JyVNʯLީ^^^FZd(}sUy5ϱT)Q^Օt nlrai{M$Q( ^9kWRVzT re*/UqVWҢR0H2}>ʾWk9W5Gq*:]zxiray&JB`5ϯ+t(ʁ.lAY<,Qv*pMA|{;js:ݍ0H02}>ny8ETWʢ6!2}>ʎץԴV琗Mi|`06= BFrej[uNSnf@{ <,3!z|@7 =,QvYY,ie]b^ݽ>DreCq>D >rejy=գ^W(/ѷW8u,j#|Zd(6Wf.uzҁ4Jҩ< >Dd(~_Ԭ8+=|ו2k!Y_W8/{%߹V(F,Q6{67cVWR/ʁ*~VCFf=^wfGjn">"5rUsRqNE_7$>C#Gy΍9*mPFH?(Z g1ej6vXyHUV%3[ V(,[~Ϝ TAAhUGXy^w(ӕ?@ѹlEo,l`?X6[>'8dVV/5np 뀋۟MR +OAAغC@ YUCaQUcaqđ eg(ʬyِ G2:Aيl`_ ׼L}RV(|t*Pflw߭:Aيl`o׼L}DaiUdX|XOɤ~'eh-,>@'OGNN`w5/Ez dR?eh ( \2ѽKkTHu'to vp=1ѽe{1S9$ZA1씏rTgOU2,~ɤHK_LO*c J`{20Rҗ=w]U* eJwv{W`l'f9}vݝ|O|}Nd_qn.81ˉg!/C,ߓ8,8+DWY>;Nrf>+^5|Otsbai3_ aKի]ŽDGעYha_Hq-&eA,o/MއNrbaǩ`E, ;N v_7Nrba_n"}/.q`e-X'8\w7ܧq ldMN$8E\gI}qbr=f&rqěAL8\}"M'0Nr,y2{r;7v"M6N$كj"ׇ2ަYa3/)~WGsqK'9\$ۉ7ݗ>q"Y9\9}{Ĕ qN,9\D=4g|2xo^;@2 O$كZeE1nj"dc;1{$("dcD=T= 8f,57zq|EJT+\ lVLT K'fdlx3}Ys ;N$8Ǵ8 x3}~rݝ:e]Wd_`F"6\l>: uO Z!O?'WG+pvwFֱu rW0r%)??HwAKT.vrukk?/,F&0" ^鿄6U.8: D:e>J~[%)WRNQ)ig1<:%S?%Bd?q13r^tXLva$1h!?/+mPS*a;:ڷ3/MoK SVdQaIG~>j#;׌p֌p֌po+Onħ}׌p֌p֌po# +OJfkfkfkɰDᚭᚭ*F[XyQF?r'WGb* ~ |o˗;47\l9: kVPHɂEu= BЗq?SWVF^\jev'WGYǚי˗'TJk_T.{;:ՠz"ߖUf^ZE̓S^!S@! Q3+jNV|Ob'WGm@ fNӖ2o/`t~~*~ruԫZE1ns2RB2Xө\lQMt,B2%2(3Do_bNzN~ dJVZI Mt@ݱZށꙷ MZbV.{QjErW0rҿ-dJ Ziϋc˓Oz]iEh 6%yPSN?$OzS?%\lvruԫcH2 }R: gA>5۫\lQe~6G;ǐjeOr^dE:+kR(1)~1ޛhM2ϫr'WG ~XMy鄾6G;>BjT.6rWVF9ځB'Pj~JT.6WHV.6rQ`dθim;'WG~yJ ЎQ̼HgeOV|V.>:W̼5 uB16>+`bȓ^PHIQ%3R' }mwQ`$buyi*dE!9/־bŶ\ ߘ4ҙggO> lŶ5Nz3Jy-TJŶ\rmK'WG^Ӛ8T+7NZ5RhOQy{mc;:5ݴ>b^˷:-y?}ļWض'WG:ּ\~\J[l1 O}m\ZkŶv\ ׌N!軆pV1ꇕ'l#(RH;i  iwn2͛R;Jv;nX{sy!!wdlw\#z*syzGޑdH[HPHXHlum|wQ{ǭwܶqz ރ=2GhѪDxU)pv UITLEG1.BASW ! "#$%&(')*,+.-/0213546798:<;=>?@ABCDEoFGHIJKLMNOPRSQVUT7gw' qAf܇ ei#2(2{d r 췥 # {!OXL{E{L m5E\x3}}N$ك΂L4}{o}\G|-uxo.FF.,1 io.FFc4X.o.FFuY $>i$كY0{mii۲docb]\gwg:NSo1!OĄl}Fqc]w21h!?/+m.p*yrukKSOkcH2 }㤥?rm'WGΣDVZI >>P2:ymmWϼ1iKF/OQёE_b[k\G̋uHwS)-qӀ&~Q<Ŷ~ru+V2 ګr-\ Fh|0,QQz^mW0;iڗߖJQgr8:wt\M?N͋JWWYǚי˗'C̼4-:>"eR`bK~?ָOz#ˇ5% ~DJi Oz#OiOR&*`eNNzM~:Lxo^bk\ ̗կm ZzO~JDOI˺r5'WGIӾ :Hے|FG:W'WGi4Sq'h:q VFo|U.Q@!et)ytL TJU.Q`xl1 O-JyqruԫcH2 }D3Y'2/Nq^\tBҀ-tQ@IKz>e/+[}rukw3)(OiUJǺQF;<:on*3"X:si.ֺ+mF:NT.זuےV`V^^ Zi۫\lk'WG&AKʤ5hNZ~~R9ϩ\l퍓^t)OCQ'JZNs~ru+֔P'2ֺytJ)ߖT.^?q VFo amI2/}U.v^,dM `<[ C˂r8:5%J|JoK#߁L `?Ҵr-^WZ]1-;˵LLRX4>^Ƥd溹+ļ\121IaiI ̽εLLRX0G|w{xի^iK5GZ'37921Ia|jM"нI̝˝X^,~2sr=S9dZi#2sgjg7d&ڹi?q\h/;RjQ-JcGg7۹`#~V9pO<{6R@~{*O{6'lR7Պ8Ճ.GP<ͺ`#N+G?avvwS=ι`#~;ORB; M݅PIK<v9؈Zux8^KPp(ڳsi K8j^?avvwW+V?,C5Gk`# {Ͼo:5&ğn9؈WR Bt^{~+"u[$ƣwsF9OV$ƣ LLRX5-%1Ɵ3;lDI EB^- \o}Fj_Ҕ;ğY9؈ܘ ߦ>G.VQ)G;ssFh{Kwׄ]%(s=SvߞD͇M[t^IQ2m>:ueg^|Yt~[RFYiEh 6jbU.%yq''B|?3o/`b[Nz<:~~kuG2*QM )ig03)Ԕy'Ŷ8:՝q3/7J+B[ A 1-y{mW0-iY73/L7<}r--\꒖ujN~Ŷvru+0)6S&/)D}|)W.'WGK>ߖ(bԥ4ź9=\jҚGʵ8i*2%:ּ\E~._\El'ߖ]ra Gnd|YY;{02up8 e-ޑuy|y!O`-X0|q>Q@IKz>e/+[}rukw3)(OiUJǺQF;<:on*3"X:si.ֺ+mF:NT.זuےV`VvEUITLEG2.BASX   !#"$%&('*)+,-/.0124356789:;<=>?@ABC:zU )^ ήsF(U 5>xB?tZzSt;K=qX OsP1aKwݫzo;=Dfw/ZGԘ~ q4Ϗ?qgN`#rtjn] ztsF{S4Qus+x&us9؈s2n*M"Х*:v؎pǟ{6>aDz~'/߫WU';=qzh-R qtV\QN`#8:ݯz3XOB|5~]q~tǟn9؈S+V*݃c!t_B|W̹`#~k>j*:v؎~^x+ڹ`#Z&&){@㭚OB~>|L9^w+rF\ZWiWn9؈)DYߞDoICjU+V+`#ڇWNMP>-ez'?l'x{6"%zK`j{U^?qsj*G%u/cn:ݯJ6SW+垃Ho O\)lo= U{xb]qşn9؈ƣۣ ]^o3%m./Ľι`#~׽zURpЅWTTBF?qs?Vg{==3%,~V]HK=+tjLU{枃PUQ`ݝW+V&j^`#ɱvw j]|DoFEGHIJKLMNOPQSRTVUWvgjg$?&2b?͚^f&d='='Y)sҳމ /'3 ^LyҔe^Or-^Jel JOfbދTyޑ캞);Z&&) ydIIKxU;Mx/9B׳^V7q2MT;Ϛ^ )Kyަ"u;Mx/VNeYBV$i՜'&+'Hʲ˚V$iZ$ PN6B9A~brI:4sNLTg'vs=S,ՙO|L@ǟɹ`#.B}Uɱ>:I/zG{={6⽂z~&pi79瞃Ce߫^ɱOd;lD~]_&Uɱe$E>M垃B~6Mn>x?qs=Sήs"V9.ѽ_0Ա_&`#N ٤fVp?aԘ~^? tO&_瞃J/i! p T'nrr9؈I V9.[#-з$C;-?qrFۋXDoIC^iRQ /Mv=c {˘g5_(^$NO:Odsݧ:q/\oOHK=Tw.瞃78r6>B. Z C;g瞃x+}tz'wn{6gJv5YrZ`u >xWKğsn9؈FZ_]fxoi ꕣ@;'枃~;Z4(ㆮw:l kUX(߫ FZ!ĝK=ѱ_ǁ)^<8>>wn.lK8B~-郑zO9s34^ *Gң.W7J+j0wN7lg}tpS8xJw.TVgsFLɮ&:ۋXD~S ϱ:ٹ`#+5AR4/^&Ujq%O\Y9؈x}j0u]>ǟNn9؈I9V/U[ǽ>avv!:8=^{Nа\3R~OD=QF(߯Oa|,^{N '\soCGH .W(߫p ?s5yGæZW{轂z~P |şbr9؈Ӡ}{;qj菴ZէODq.lgj^Wi}+w?EsK뷞),Q=z'?l}>Y.IVş9lD=|aGQ<tz>^Z'ⵝ{6G?avvW_WꩥƟ׳sϽد*usb͇M.s@x枃8Am=OW=|{^b-3DsFǁp@lTx+u)^~?sFr L Kox{6ǥ>qr|rcBށ>@;D=xG}_&pN[buz)l}56պPw_XM;D=qX Oԧ>νޫ|UzO{6^O zUK)%"&۹`#^hNY.I*GSKC{)'b,lcu/4QwWuW-by7DLvsFL}jYzu N`iz'1Y=ыץ8Tᮺwz68jз"&_瞃ZjK {Oo'brr9؈'8ԧꮡoW-Q=?rFLx/|xT+O0~4+uB/1)l>+ՄڽzM'bn9؈u@Nޏ+ԊO0~4;oROĹ{6*߯.qx^,7qWwP/DsFL`#Z tt^*ƫ>|:lĩ9аx+xK}x'Sr9؈4O0\" 3u=3%svSr\FZ{.ğNN`#^iիrtz(U^뤛{6k`ڽGOoqw5&W7瞃-郑zU9*c y@a'{6ⷧZ=TcUWAo;3>+՝垃8APݫ|=G] 5r5E꺹`#қjUwJ+GWX(zR۵bşb9؈^(U{ /G} KoeWSW:lDJj)LQk^Bͧ{;M=q_X]p~Wƪ@O\ݹs*Ao=q>IN ٤fHK=ğN`#ǪKrIl~*ԘP>U枃虒]MԵsTGW+6Fa~'bKsƄ{R ]PVt1۹`#Z%uWRo-c|^UX'b垃5%V+*Kȗ[#- ?{6'z WYB18T{1`#jU&UjZ71+^qş:lDMJWkY5׺y4^_sFcWe TEHo*;gjRO<{6"U{ ~Ԙ?S9؈=su\Ӫ4VMƬiLɮ&ڹ~OĬ{6VLVqw5&j\,Ds9؈~+Kh!mZ5\ӪIpVϔj7DsLVq7,!ᬂ0gYƟ,lDYBCi.idM&EnZԽzWb6MZUjjŊ?f`#j{@XqSSP+V&":ٹ`#Jj4>Zj>4^!9V[',lī]Jj]qz~~Ӱ}Uz'{6 4S)~kiڳ?sYΝ.&dW3Dt=ğ\g$Mx/VNGX&&t,L,r܄bd󼞝Iνޫ|UzO{6^O zvzXMODEM.BASZ  !"#$%&'()*+,-o./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXY6c^`=SvvsF} ؎PYB^ ~?m1lDYBCi.idM&E#7)D];oh_瞃K3]kg"ɹ`#^RaUUݽZ[(U{ '={6zb5*^.G?[ޯդğS9؈Tp ;V>U8TxE?ms5YqV^u^^8˹`#RU3k/aqf瞃ZUw^5ticǁ"f`#.!O0\" 3D`#zdWusVLWƄ*KWk_ q&枃h>'Vc^W=>{ܘ"ήsF-郑z4Q7v.w?gɹ`#$)*QcƄ^i 6Moa'l.lDʮt՚W)^--Cn5D9垃}{r[q/I \X'L7ls zdWus+KwsºG V~3Am XRxΊ"v9؈uv;;B):ODw{6W;FZ8Dw躹`#^ש1- z셀Jjz>sFis@n?]s^p/+m?a.mz^ͧ>Q̹`#Y.ߞ{e{j> q֕"v9؈)mG, j]' 6 #Ml QXb_ar5ClA,lkL9X }׶!9Ĉb 7,jqZFY1v6 pMǡE%wy6 Y,$66cF~dxĀ1lW$f'3gc47 8x\EI֖:LxA SgߵGKb H<'a]y&N},I۹Iӗs Iғ=8L֦vdN}so^Iǹ/.)Ͻvv|w]yn ]w»ImFfnuzwkC`LfBdQ4 Bߵ ݜ1/0C>.>N+B x0ơQb{X8rTZsIZd-VBB̹%=Y);Sq $kQtznƼh(dǙdȿ1^_!ܛyt2H\XMca^%1t2c{c0`;`̋q8FN|pob9݁ͼiaW ' D Ճ̋c\@ROo^6&F3옗LMq4^۴.xb:aiquc2o9 zI*||a^:ً̻,+!K'Y[p%ckP(Y%A$NYlX ^r8IZT$]{g3Aux"̻ (nՄ4,^ Ch8p.g^Di*Čg\ZT$dQA4 s!]{7`^'Jkѷ/a0cKpB5S1Au ɑ%P\a.$6XA +)j̅T ڻT+XTqx"HRVR%P\a.$i.$G~~]{!f9ը T5S^Znb&QjXj(|޽1AuzZHñ/ 1g ZA5xIXy Cg9gV?Ը$p'BT =~ek [9[;n־k^G^`+[XZi9r  JxINwC'[Ѹ/IڻAu(Ck IsXb3D $% fEwנ:>G_̱[Ѹx ^jQP Kc.:‰^ֈ6Cߵw^YdQ8?¼o ̥x/&5fr^0,( ŕ#ƼՁKN1Tr oS4'I{f^IrfE-,K P YLa9%a.ŋTڣy 0f+!KB;PNkҘKҚ549]{4`^{LKB`5s, GpOeu#$wюy ߢ+!EMpָ\@[ټ?y!tCkFkPڣ5hK:ه)½Q„_s&my efQⒾA$Lw. I=ߵG8D;¼${`4`hnb#ܛ1/ڢMvd47 8D}:>YT{I ϙlmF`k{NW滻yIhzݤ='mt2n|w7`6 Ml dY^fyIޝ{mv79ۻ3ww;E[DHv&Fl$L`1o9 8D4P*GH>u^L2ov9 9qр-ڻM4Ⓘ0  ynfyI{4{ﾻ{erDqE{I{I` 3ıar5Cd&Xپ;b̛Qb wTéx #yXD 0Mce(g^` Z, M໣-NQ<=eӻ3(;O½10efMxzNνA컣3wG#%Sc6m#⛽W,2l۴1}w q~A`(~Ʊz-L v hIf&{ ޘ^mad&&½1 8xkuGp)ƽvd^`ǡ1}a4>HOonT7~7A>V|ne/0 ϙڌ1]kp6˙-1A ] Xwmc^61E-6K13מy Y6H&kuxqI"N1#d:,6iߵTlz jQP i̅+ (A8i"?@BACDEFGIHJKLMNPORQSTUWVXY㚲ق@GPalA䏌q^|2[(|Ƹ$k0Lf %#}2[(c9'-;2Z%XqVq `I  q}]]nby0x?oUp/P;kl ;dQCGW`Zؿ޸A`a ?mÃ5+@<^н.@)'Z_0 Ӯ5h$4ϛzOfe-x8͹S7h< .9W1 c&Gy`؁и>Ճakl`ءzC s|z0ЬQ?V>KqzM?QӮ yqVqx]?iz!kg9SMxUnOkC B0Aؕ벖̹`7&oM{;g;7c?vUt#*U#?y-#SPm=`^M1 \@RO]1Au0S''x"y>YT?|׶GkPK׳wmy C{ YE苂 VJ>' IJ(]~c^Y^RLܗV>YυXP\m2A'Rݣ_*$, 5SP.K9 ]¼՟SҸ$v'R}HI9c^vn3A"g$[$S,(}s5k5~ KKc.ŋT5, GpX'JC/yG0LfӌC8 Jנ:(4OBpͥ7K"U3M8@_L>IjK8+ נ:(/ Jkѷ}ᬬTVVGX I{9k(];`^KV$f0LfOBu=sp0,];c^;qm`\ásfGK%UԸOvʼա4Z&f.p_*R^ N%a^0EOW3Mk̥U+iu5"+ Gp{% b&IN Sg}05`.ŋT5K_T$hU394 6DPkl5Rp^@`9z)9, 0Lf\E g^yQ#8[Ea9//An॥ai8C/yG| נ: ªp-<[!a9+OkX Gphwy CwyT$ ^*^ /fI)r ߵ#5}ѵ%X+p!P+RH Cpou^=`^p3[rbnb.o3M8%IR9P\9ڃ75joX I'[nXYKIy ’Q]_8s6iN5x8xii̥xL4\fB08:z5oB_8YcwhB_7]Vp7*/XVydl@d7R}q+J^#/L-/wcZk%^"-$B_U#5nD+Uء/#Y3M{#X523nDzOxIgu?t'ZjUKߞ<zOw(O}8vr^|ӛLF_65 ;B߳3vMv-z?]YGwªF=]aO*C{6N=]Gϫ{@WhѝjQiW/'5 ;9t?UD͍z6̢!X_r^MQ/Dޟ|]|ʡg\,r@wҋ~DgL^ޟCφhg%y?EFWD_W5?X!G-[Spo(8vP]>㱸wwBޏEP=rgvPTw%Bek ERݕV7㗼7=”COdΐJ,DXOuW7 c?egW~tu=-r_ ;{_\k/1b_lxt`s)zZuءs.EpS+׿Sݕ`v1w_vv!G뿨<>t귽%E7z:G[}K:G(o-RͦEe/q7 =-;ҷ񡳆,+kKZdu6KrC\gl"Wqc¯sK\糅Z!x1:Knjcq|/\徶sskߘ~sIfQ 7z~iOa_޹$\8Krp|sI7pE-Fܛ(=u?sIEE#%=-%Nvs="]~ms=6Yz*}p S77l!`h\p;KFs}Si\ֺWT yRCԃ5OkfzOx9/>yRC!=?v rOQ\p0^3W~\lGWGq{珂s$}'NŐ^5]0>25pl߇ESI[PmLqPu[ۛ~ 3q?횬.v; Zŭ95?mB̛XՇ*u#*uX]Y7׍7Ŋu]B팝nY^U`w~oP`E;\Bqʪ%]VpGWG?;$|*ljT#3ӬћLP;qb® :qrEP;1NT EB7uP-$jP;NFf݈Jcj'b*i[CBH7S1WMaW|dV+ AO`K>^!{SǪynD.ljT#3ӬUءvlj٩c,}QvCw:?V̖s݈JCUءv v^H; Qv3u{\}]E_^M/4 cǪ[QvCkR'GI{jd %-S/[|jO*nDj[CU?JP;vid_+rDP;o_Ds?P;v}~*du#*1v3MktvP;8(3GyFP;7]|zNھ!NOw#*ue/}ktvBSV-~{NZD#C˵oL?r:WlQ 7z՗,)'F38Woh\8|q~rӏ5ZQnh\Qq.XڗSxht*y͍ƥg>qRѸ4p:\]ɢ!ϹO ~u4Wdi_NṺ}˵oL?r:WkK@BLV-(WFc8%';tjn: , yis9 E<_-o-z s)փG.E{Cok7z~.E7V,%xT yEs=-G!kߘ~HUV-+[20zڅrӏʪyeu[X^+!\#GjFo^Yy-֣[}c#UYp7\fa=U-.vgȵ(%r4Bo\p质)7 w YXMqU ߢ٢P6blm.EilsHkߘ~8 iQ 7zPӁKhލU;ɂG5_з<߼!ﷀ3 kl8\r_b.p`)w/?A:ƅ5ĽHG} k<{q\|68Ţ%?EJG2C|\$˵oL?r:. 1Yp^({k Ҿs[z^ \r ,.B;\0Zm!﷨h GKyQYڗSx.P e xJ6(g^\H֣!\#GjFV_Yͦ@yZXON 7W{!\#GjF_79RU 7zɢٴu6(} Qkݐ[)6(]ؕءlqkq}Թ |`.8; zmsY\E-.^Tq炳da=kwz) PZg[}/# %BӮɺ V-9zOx9BCBקew^˻WHQvktv?ԃ57ȉ>9ptڽo֨+<>B[PmL=jӮAN{ suҷti,UZ-Bv}+6$ռzPlU vB0urU+ z!7N=]sS~PmLqPu[ۛ~ 3q?횬.v; Zŭ95?mB̛XՇ*u#*uX]Y7׍7v[YANGTZE.BASP  !"#%$&(')*+,-.o/0123546789:;<=>@?BACFDHEGJLKNIOM` \ 9?zٽ!流F%GgΐCO[7@BqoãŢ!wڦx_0a_Wz0H\phgȡc1JWy;Tw%:7p9<0H \hgeE-GNhލʾBޏ˿wSݕ^r0,r@Yݕ^r rwMQUÍv9d  9쁯KdUm;:pw k(ã悮E;C(q]=\M$]Idsi/1Okߘ~soQ 75:Qߎ*"F ]ww>Gv $\_s@r@R,-*l.Iqt `G~ <6HO ;d;|h,]~8\ -uϘŽ9G| 7@O軄kOh GԹ,)<<Zћu.x-[_|6<%K<ӂG5_ϓ}9gzĽG,<. v yEE#6<#]>Zg౸wcc-M;pr6zĽG=. v yEE#Nq6zĽG=. v yEiN悓htIO N7 \p:[!C 2d'r\pzZ!N~\9t\p:Y}c9! N}Z;$1}A9t\pZ}c# fQ 7z 2dȐ!;!67# E-rcb|јsAla=ܘ_b4c!﷨9tsA_cq|D O˵oL?G 'Z;sAoi_NṠߵ\]sA,jF!C 2dx.X}c9tE-2dȐ!C \U,׾1<9tpwHu:w.Jkߘ~N OZ;$1}A9t\=Y}c#s.-jF!C 2dxnע!6Cg}ca>"=rpwȋg%Fc>YX7&ƗXo-jFo/\ZQ,<.GԹ-׾1O9\$Z;s9{ZڗSx.g'˵oL?E\pwȐ!C 2s9Z}cq `.fQ 7zPӁKvr<=h.z~"=m.)[ҔJߔ-Fiwޟ Dr1JS>+1~S4島)QY(M\bl1JS>+1~g=? }~(MMYҔO&o47sQ)KҔJz>z>ymnaZV-{l~>d(J><;?>=@ABDCEHFIv ZIPS.BASG  !#"$&%(')*+-,./014235768;9:<=>@?ACFDBE}z_i3vS?.BLu>>ZrYr_PwmG+_WtO+ΰ׫GFuߧsboƜXwZʆ>WE:%#FRͣ%5%#FRm+zj[#; l+ ;{x/- {o47L|w`s.'冋nhƽt7)J %ݰ17ll6 P67ؔwC7оشf 6$wi7wC_v}6}lHʆdWCkkkz>N s_ِH=V|6$}"h6$򽾦 {_ِ(`wLِ da롗6Zg౸wc>6s`i_NܡӢ_5Xh} 9g౸wc_cqǾd8sg7&Ɨ}k?nL/1\I_s9YZwc>┾唓}9rJߢ_5Xh} )]}kŽ\lnL/1:ܘ_b4%ǹ,)rggXܻ1kqrgr({g .xXܻ11nL/1j6rgMꮔpcb|K|˝s61ZД[Yd)*}V˻_*nz[w.wZ]5vrYK|I`Q 7?Žq.'9Kr $r_[tܗI7\NzZ3:#*eW%.|UKĽpI'˵oL?Է񡳆Ўss9kQ 7PGS8{}9s.KT)mGs_7 PL+-׾1O9\$Z;s9{ZڗSx.g'˵oL?E\pwȐ!C 2s9Z}cq `.fQ 7zPӁKvr<=h.z~"=m.=@ABDCEHFIGJMKLOVڍjrT aU%͹ 1 \O~2j]C{1^_!i{=h}s=Rs:ơ }kpUJͽOÞSR!_fvž|-#-eN{_h/z0M"n _&C Bž|1;U8t;Zodh~p^Bs=.*-G72z>pUJg}\X=o`}A"O4vʸZAx9!`F,K|VX=od> }~(MMYҔO&o473)Fig% Dr1JS>+1~S4島)Qy-og%Fi3>mp=o$)Kߔ%Fi73)Fi7eQy-o4Zzkp=o$)Kߔ%Fi]1~S>)I1~S43) O\>,Fi7sQyWߔ%Fi7e1JS>b,FiwާDrQ4s(M\b|&(M\bl1JS> - BCREAD .COM - BCWRITE .COM - BCTEST .COM - CONVERT .COM - BC2 .BAS Bovenstaande programma's zijn voor het daadwerkelijk gebruik van BASICODE. Op de bij de CP/M gebruikersgroep van de HCC verkrijgbare diskette staan ook nog de programma's - BCREAD .ASM - BCWRITE .ASM - BCTEST .ASM - CONVERT .BAS Deze programma's zijn bedoeld om de programmatuur aan tev passen aan een specifiek CP/M systeem. We verwachten dat binnen een gebruikersgroep voor de meeste systemen deze aanpassing snel voor elkaar zal zijn, zodat voor de meeste computers kant en klare programmatuur beschikbaar zal zijn. Naast deze programmatuur is er nog een vrij eenvoudig stukje hardware nodig om een casetterecorder op uw computer te kunnen aansluiten. Daarover later meer. In ieder geval dient U v----------------------------------------------------- - Sluit de cassetterecorder aan via de speciale interface - Zorg dat het weg te schrijven programma geen regelnummers onder de 1000 meer heeft, eventueel voor het saven onder basic eerst DELETEn ! - Start de recorder - Tik BCWRITE filenaam.bas - Stop de recorder zodra de prompt (A>) zichtbaar wordt. - Let erop dat BASICprogramma's weggeschreven moeten zijn met de A (ASCII) optie ! Het aanpassen van de programmatuur --------------------------------- De file BC2.BAS bevat de routines voor het BASICODEII protocol. Deze file moet als een ASCII-file op de diskette staan, anders kunnen we de regels niet mergen. Eventueel na wijzigen dus wegschrijven met SAVE "FILENAAM",A. Deze routines moeten worden aangepast voor wat betreft de cursorbesturing, oor het gebruik van BASICODE onder CP/M te beschikken over een CP/M computer met minimaal 1 parallelpoort. Vooor dit laatste is een parallel printer aansluiting (b.v. Centronix type) bruikbaar. Tevens is een BASIC interpreter van bij voorkeur Microsoft noodzakelijk (MBASIC). Het werken met BASICODE Het lezen. --------- - Sluit de casseterecorder via de speciale interface aan. - Tik BCREAD filenaam.bas - Start de recorder zodra dat wordt aangegeven - Stop de recorder zodra dat wordt aangegeven Het BASICODEprogramma staat nu op de diskette als een z.g. ASCII- file. Het lezen van de cassette kan zowel bij lezen als bij testen onderbroken worden, door een willekeurige toets in te drukken, maar alleen als de recorder stil staat. We moeten nu het proscreenclear, en het ophalen van de cursorpositie voor de terminal die U gebruikt. De betreffende regels zijn: 100 - 110 screenclear 110 - 120 cursorbesturing (HO en VE bevatten de positie, 0,0 is linksboven) 120 - 130 ophalen van de cursorpositie in HO en VE Mocht Uw terminal niet in staat zijn de cursorpositie op te halen, wijzig dan deze regels in: 120 IF HO > (uw regellengte) THEN HO = (uw regellengte) 121 IF VE > (uw aantal regels) THEN VE = (uw aantal regels) 122 RETURN De overige regels kunt U voor MBASIC zo overnemen. Aanpassing van BCREAD en BCWRITE en BCTEST ------------------------------------------ Hiervoor hebt U de assemblerfiles nodig en de standaard CP/M assembler ASM.COM. Voor wat betreft de timing van het geheel, hier dient U enigszins te experimenteren. De aanlooppieptoon heeft een begramma geschikt maken voor BASICODE II en voor de Basicinterpreter. Deze laatste vraagt spaties om de sleutelwoorden, terwijl dit niet is geeist in de BASICODE standaard. - Tik CONVERTEER filenaam (dus zonder .BAS !) Het programma wordt nu van spaties voorzien zoals op het scherm zichtbaar is. Het gewijzigde programma staat nu onder de naam FILENAAM.BAS op de diskette, het orginele programma onder de naam FILENAAM.BAK. - Start nu de BASIC interpreter met b.v. MBASIC - Tik LOAD "FILENAAM" (de file wordt geladen) - Tik MERGE "BC2" (BASICODE2 wordt geladen" U kunt het programma nu starten met RUN en/of eventueel naar de diskette wegschrijven. Na dit wegschrijven is het programma zonder enig probleem uitvoerbaar met b.v. MBASIC FILENAAM Het wegschrijven van een programma naar de casetterecorder -----paalde lengte, probeer die zo nauwkeurig mogelijk te realiseren. BCTEST ----- Voor het testen van een tape is er het programma BCTEST.COM. Dit is heel simpel: - type UCTEST en start de cassette Nu verschijnt er een beeld als volgt op het scherm: * * * * Wanneer de linkse en rechtse sterren mooi onder elkaar staan en het goed te zien is welke bij welke hoort dan komt de band goed door. Ze mogen wel iets op en neer gaan, maar van elke ster dient duidelijk te zijn aan welke kant hij hoort. Uitleg: De linkse sterren geven de lengte aan van de korte 2400 perioden, de rechtse van de lange 1200 perioden. De onderste twee zijn van de halve periode dat het signaal 0 is en de bovenste 2 horen bij 5 volt signaal. Normaal heeft ----- Hieronder volgen enige opmerkingen om behulpzaam te zijn bij verdere problemen. Wanneer er geen memory mapped video is, zullen de verschillende handigheidjes die laten zien wat er verstuurd wordt, niet snel genoeg zijn en achterwege moeten blijven. Tijdens de testfase kan men, m.b.v. LET DEBUG 1 meer informatie op het scherm krijgen. Dit werkt alleen bij memory mapped video en niet te langzame processors. Omdat er met software loops getimed wordt, zijn alle interrupts uitgeschakeld. Bij de Osborne betekent dit bijv. dat de disk drive niet uitgeschakeld wordt tijdens het schrijven van een cassette. (Als men dat vervelend vindt, kan men met schrijven wachten tot het diskdrive lampje uitgaat) Bij andere computers moet wellicht, telkens wanneer de computer naar het een tekstfile onder CP/M zowel Carriage Return als Linefeed tussen de regels staan. Ten behoeve van BASICODE wordt hier de linefeed afgehaald bij schrijven en teruggezet bij lezen. Verder wordt, wanneer de FIG optie aan staat er om de 64 charac- ters een Carriage Return toegevoegd. Dit zal men alleen gebruiken bij FIGFORTH schermen. Bij het lezen met de FIG opties worden regels aangevuld tot 64 characters. BCREAD en BCWRITE ----------------- De programmas kunnen met de normale DIGITAL RESEARCH assembler ASM geassembleerd worden. Er is geen gebruik gemaakt van Z80 codes. De programmas zijn voldoende gedocumenteerd om modifikaties moge- lijk te maken. Het volgende is bedoeld om degenen op weg te helpen die wellicht geintimideerd worden door een assembler lis- ting, maar toch best in staat zijn om de eenvoudige wijzigingen door te votoetsenbord moet kijken, de interrupts even ingeschakeld worden. De grenzen voor de vertragings loops zijn gebaseerd op 4MHz Z80 zonder 'wait states'. Men kan aan de trailer en header,die 5 seconden moeten duren, de constante 'DEL24' controleren en even- tueel bijstellen. In eerste instantie kan men dan voor 'DEL12' het dubbele van 'DEL24' nemen. Met een klein testprogrammatje die een vast aantal periodes schrijft (m.b.v. BEEPV) kan men dit nog controleren. Bij het lezen is er alleen de constante 'CRIT', die de grens aangeeft tussen wat als een 1 en wat als 0 beschouwd wordt. Bij redelijke hardware blijkt deze vrij ongevoelig te zijn. 'CRIT' kan men ook evenredig bijstellen. Een betere (en tijdrove- nde ) procedure is: de grenzen bepalen waartussen 'CRIT' zich mag bewegen, en daar het midden van kiezen. Bij de UCTEST tenslotte kan men de horizontaleeren voor hun eigen systeem. Dit laatste vooropgesteld dat er geen uitgebreidere modifikatie nodig zijn, zoals bij de Osborne het geval was. Met enig geluk is het voldoende de z.g. 'assembler switchen' om te zetten. Bijvoorbeeld wordt door LET OSBRN 0 alles wat op de Osborne betrekking heeft uitgeschakeld. Verder moet met LET MEMMAP 0 i.p.v. 1 gezet worden wanneer de Centronics poort op een I/O poort staat, hetgeen normaal het geval zal zijn en moet met PAPORT EQU XXXX het poort adres ingesteld worden. Dit laatste zal dus een getal kleiner dan 256 zijn bij I/O poorten. Op dezelfde manier moet ook voor 'SCREEN' een geheugenadres ingevuld worden, dat direct op het scherm te zien is (als dit z.g. 'memory mapped video' aanwezig is) ------------- ALS HET MOEILIJK WORDT ----------------- schaal eventueel halveren of verdubbelen, door arithmetische shifts in te voeren of weg te laten. BENODIGDE HARDWARE ------------------ De hardware is zeer simpel en bevat geen voeding. We gaan uit van de aanwezigheid van een Centronics interface poort. Deze bevat (o.a.) 8 bits data uitvoer naar de printer en 1 bit invoer ( ready signaal ). Deze worden gebruikt, zonder verdere modifikatie of aansturingscommando's. Dit heeft tot gevolg dat het interface voor alle CP/M machines hetzelfde kan zijn. De pintelling zoals die in het volgende gebruikt wordt is die van de 'normale' Centronics connector zoals die b.v. in de Epson printers etc. wordt toegepast (36-polig Amphe- nol) CENTRONICS ZENER 4.7V _____ ______ . . | / \ / \ / \ / \ /_____\ /_____\ | | | | _____________________________________________________ CAS AARDE <- Men dient een stevig signaal toe te voeren aan dit interface. Dit is geen probleem als men de luidsprekeruitgang gebruikt van het soort goedkope cassette recorders waar 4 1.5 Volt cellen in kunnen (dus 6 Volt voeding ) De HiFi apparate BIT 0 _________ _______| 1K |_________ -> |_________| | | BIT 1 _________ | _________ -> CAS INPUT _______| 3K |_________|_____| 5K6 |_________ -> |_________| | |_________| | (optioneel) | ___ | | | ------ |1K | ------ 56nF | | |n geven i.h.a. toch heel slechte resultaten als opslagmedium ! Deze apparaten hebben een ingebouwde opnamesterkteregeling, dat is ook een zorg minder. Hoewel het test programma het mogelijk maakt eens te bekijken wat het effekt van de regelknoppen is, kan men zonder meer de zaak op zijn hardst zetten. Voor de niet-elektronici: het schema bevat niets magisch en er gebeurt bijna niets Bij lezen van de cassette wordt alleen de computer beveiligd tegen verkeerde spanning Bij schrijven wordt het signaal verzwakt en de hoge tonen nog eens extra.  BASICODE April 8, 1985 BASICODE is part of a system used by computer enthusiasts in the Netherlands, primarily to Broadcast computer programs. The Netherlands National Broadcasting service has | | | --- | | ___________________________|_________________________ -> CAS AARDE De 3 Kohm weerstand wordt nu nog niet gebruikt, maar is bedoeld om in de toekomst voor een golfvormverbetering te kunnen zorgen door 2 bits te gebruiken. Wellicht is dat niet haalbaar voor langzame processoren. PRINTER READY ________ ___________________________ ______| 22 OHM |_________ <- | | |________| <- CAS LUID- | | SPREKER | DUG |  a weekly computer show (HOBBYSCOOP?) that includes data broadcasts on AM radio of BASIC programs. The idea is that you record the broadcast prgrams on a cassette recorder and then load them into your computer. data is broadcast at 1200 bps. BASICODE is a "subset" of BASIC that should allow programs written in the BASICODE subset to be executed on nearly any of the personal computers that have a Microsoft flavoured BASIC on them. This certainly includes things like Apples, Commodores, Ataris and of course CP/M and PC/MSDOS computers, and no doubt many, many others. So BASICODE is also a way of ensuring portability of BASIC programs between widely differing machines. This disk is volume 4 of the Netherland CP/M User Group (CPMNL) collection and has the details of BASICODE-2 for CP/M computers. I'm not how BASICODE-2 differs from BASICODE-1. Unfortunately most of the information on BASICODE is in Dutch, a language I don't speak. I once attended a lecture at one of the localÍ)(CONVERT @4B!!"1͖* d  =""6#}|B=!"1 "}00-!~G#~ }q+ph##a"p#w *2"2"2"2*2*2*2}!a6#6#q#p*2"2*2|`i"2* ,X5 }HƐ'@'_ ERROR $ AT PC $"DM6#6#!"*{w#zw!">2DM}|*ڄ"^#V{^#V{_zWڄ{zҾ*w#ww#w###s#rq#p#!5#ʄOM+F+N*}|!"~#fo{z }|~#~#~#O~G!}|*##^#V}|?s#r##q#pw#w#~w#~w7!N#F#~#foho}|p`i}W:0V"2"1"1I*1*1åV"2!9DM"!3"2:2X22:222u NN:2#b$ $Z>$ :2*  *Z>*." #>.22Ê-K #C.>->2222OÊ>22b\  22j> 22 #i,>22i!2q.›>22 #› Ï!2q^® á!2q-¿>22 >232":3O2222!3r#:2=22:2>  :2 computer education groups on BASICODE, given by one of the orginal developers of it (that's the only reason I can even attempt this introduction). My wife speaks Indonesioan (she taught it at High School) and so can at least recognise some of the Dutch words and that has helped also. It struck me at the time I first heard about it that BASICODE was really an idea whose time had yet to come. So in the hope that this material will motivate someone in the English speaking CP/M community to take a closer look at BASICODE and its implications, I am dressing this up with what little English documentation I can, plus an English catalogue of sorts. If you can provide translations of any of the Dutch language material or other support material on BASICODE (on disk please), I'd appreciate a copy. There is some mention of additional material on CPMNL volume 5 (505). If you have this volume, or know of anyone who does, please send me a copy! Special thanks to Phil Coull in the United KO  :2!26ny@G"1/yG:222>% 2222222"i:222Gy@w:2!2>–O >ʖ4!25<22:2!2G:2¯:2OxGx3W?< =¼z!z!!3~ÿ:2:2!2;O ;:2V:2V>- ;G:2OW*$$ :2!2,O ,O7z ,y :2:2:3:3i>  >0 > 233!!2~226O  :3@22!2 ڣ<ʢw>é6!2p22/O!3 #ʵ  y22=/22:2>0  :3=!25:2 22!2~>. :2!2/G:2*:2G:2"G#22x :3A!25G *:2 :2ʄ>E !2:2^5~ i/<-Gy x/ q Gy x0 :2ʕO  2222:2:222V"2|º:2~W#^#:2z~#A |~:222u NS"2"2:2/!.&7\   /  1  7̀O͞:2> !14O:2j* Ỳy͞ >21> Z> Z̀Ô͞:2:1Ҝ> V<¢ͤyͤ:2ʙ*1&:1ڢ|>âÙy!2:1=y22!3~5*2ingdom who brought this material to my attention and sent me CPMNL volume 4! Bill Bolton, Software Tools RCPM, P.O. Box 357, Kenmore, QLD, 4069, AUSTRALIA Phone +61 7 378-9530 CCITT V.21 300 bps ~ +"2 0G>0  A 0:2:2:2? ? >,K *2:3> >-*2|*F|ʳ >22~G#N#"2"2`i"2"2ʳ !#˜ & /ʿ &ʿ !ʿ \  x 22u UN. x "2*2| *2"2*2 +"2*2~#"222*2~#"2*2|+"2 >  V"2!2454!u :2#/!&$B $>$ *R *>*< -e #.>-< \  # *2++!"2:00!{~Gwog:00*3"2*3!4# þ ; 2.3zW{_!.35 **3 |g}o"*3*,3|g}o",3ë *,3**3DM*3; "3 *3"3 BN|>>>)= ; a"3;p#z+ M *3 "3"3}23b 3*3$ ~#Y $*3 3 w#n M ͯ 2~#DF*3r+s"3:3=b |b !3~@wb "!3)|ʿ >(>NF| ~ #~# G*3: zJ 6#> 6 #= x EX! ç!9"%3! ; <FRJ*3"^3! ; 2)3 *3 6?##6?!"`3_*3~=_"2<EX]"2<EX##FN; 8`*3O yŷ~##,~#(!*`3"`3 2)3*`3)C*%31PY1 |##a"b3?GG͕͕*b3! 9SLz|1PY1y_xWx# x͕͕ɯ>1717?zN#Fyx+͆|'~԰~ws#r1=n&͕AC!a?q++*zSS1yxsPY##a"d3?BKG͕*d3|1++͕zSS1yOxG ##a"f3?BKG͕*f3|~ðDMx8z8|~#+͕!1yOxG>yxPYa"h3?BKG͕*h3SS!"h30!2~2j3w21}͡*1&##axw#q#1G:j322 !14^w|~԰1ʮa~ҧ~_w# x1! a?BKG++"m3|!"k3)1)`i͞"##a"k3? x:  w#2Q3͔ F .  F .* 2Q3͔ F ; × "13!33"/3x w#Y p/3| *3!DM!:+ w€ ʐ >wF :Q3ڻ .¨ # ¡ 7* :)3>* >2Q36?#` { _: * ? w#:)3 IF>? *3*3}O|Gr# x*3*3#{z"32R3 w zb:R3K*3!~w:R3_*3!~w! ʇ*3!^w#Vw*3. s#r > zښ|EX*!3)2w#w2^#f|OEk2R3 w ! ; z*3!:~!~w! MEͯ 2 s#rͯ 2 ^#VzFU"3*!3)2 ^#V"#3M *3"'3!9"%3 3 d:3RB=JRUJ|IRJ+DM*3͠ *3{o>g+{z_yW!*3 s#r!3~w"3b zҶ!!9"%3F(*; F(*; F(+; z!!9"%3F(+; F(+þ *3*3s#r *3!0! ~#~!3>w:32S3 j!S35| V:323*3+"3 *3"3!3~wҜ "33:33*3~<͊ *3|ʮREJ!9"%3*3*3#{z"3:33b *3n&:3< "G*m3p#z)G*m3+|"m3͕*k3|DM~G#N#zw#s#xX@qMyjOw# ayOw#w#w#w# q^#V* }||~"o3^#V* }|ҹ*o3w#w}>>2t3!3"3!9N#F# y2y32q3+~+ng#͞"*3s#r#"3DM:q3=+~+ng#͞":t3_͞" "z3a"|3*z3"3)"~3*|3+F+N ##6# xL~#fo#:t3_͞"og"3:y3ü2q3*3+V+^"3ß*3*3"3*~3+r+s"~3*r3+"r3|…#~#fo#)og"3:q3=t*|3*o3s#r:y3="3"3"3ů>MP*3O`i"3*3yx+"3O*3O`i"3\#+ x"3*3=#aR*3*3}|3!*3*3"323!"3*3*3}|?*3*3~\!3’6Ýͱ*3#"3*3#"3*3#}|n*3*3F*3*3#N!3~x?#y0 !y_A6x7?|~|DM~G#N#!9BK'"DM!9'"!9! 9N#F#'"@!BK"!9DM"!DM"!9DMS! 9DM"!9DM!W@7!9DM"͠7"DM"!9DMͳÙ!9DM"!9DM@=Ê͠=Üͳ@4Ê4Ü!9DM"33!1ͮ ,: 0Gy2  p# *3|̊1!"T3 eͮ"e![36,!X36!1"Y3È2[3!1"Y32X3:[3 …͊ ”ͮ![3ʯ ʼ*Y3w#"Y3!X3~ ?s#rb ~#fouF#NyOxʘͅ *3as#rr#sØ͊#wzŽ͊͊b 1'7&ͅ >"?s#r*3|b ͊ b !3~ЇwWRJ *3*3{_zW{z<  =  !3>wb *%3*#3|DWJG:2x; *3|S*'3|ERJ+"'3b*3"3:3€3*3! N#F p+q*3w!3>w!9"%3};b :2ڮ>";;ͧ:2>";/͡/̓:2>,;:2>";;ͧ:2>";/͡/̓:2; *'3|,++'> ;+|> ;> ; b *3!0! w#w*3+"3!3~wb *%3*#3|EFͯ 2 ^w#VwzCUQ"3 M  zڧEX2 w#w !2)~#fop*\3#"\3{zҹͯ 2 ^w#VwzDUQ"3 z͠4Ñ! 9DM"!9DM@ Ê Ü͠4 DM Ê!9DM"E#!9!9x!9DM ҆"7E#@PP"3 *3!9~w{_!y+##!32*3͞" |g"3!H">'-w# >@2323͐!3" *%*203*3"3>23:3WO"!3:3w i3""!3s3'"!3:3w:3W!3ʻ3"r23Ҡm!ʻ3o&G>Ow# ­q#µ:3!33H">m!3!!3!3!37>' #Ð!+>'w#>'w #:323͐!!3~P:36!3~ +w# @_  6w{233!3~#o!3~#zN!!3q#Š!3"3~#ʸG3*3K"Ҵ#4?¥G3*3'w#K"!35*3#“͐!3!!3~ȯw+6+w:3<23OF!3 怮w  _#~ȓA w>23`i"3233*3>'#>'#>'#>'#>'#>'#>'>'w7 *3H"#~'w!3~w:3= 23Q!!3N!5 3'"͐!3!DZA 23x23 OG>F23!3r#esfull ++++++ OOPS ! disk-error ++++ file  not found ! ++++"++++ UGH !, error in proces ! ++++ error code: quitting execution...... 1!("2"2!("2V!(U4V! (U4V!(U44!(4!$(!!!!4͞!!!!4͞!,1͠!"4!*y*4#"4*!2(ͮy!G(ͮy!V(ͮ!p(ͮ!"4Y*y*4#"4O*!(V!|ʈ*!(ͤ!Dͮͳ͝!!**4!!!> !*4͇|**440*4!!!> !" 4!!+!*4* 4)A* 4#" 4*!p*4͇| +*440*4!!!> !""4!!`+!*4*"4)A*"4#""4D+!p*4͇|}+*440*4!!!> *4!!!>ͺ!!0!!$4A*$4ͤ! Dͤ*$4͐"&4*&4|+ï+*$4!Z(4!"*4!",4K0*&4+++| ,X0*$4*,4!.4!"D*.4͛**4|H,!"*440!"D*.4͛**4+|r,!"*440**4+|~,40!"4-!"04,*,4*04+*&4}|,-*4*4)^#V*04!24*$4*,4*04+!͊44*24*44͛,-*04#"04*4*4) i`)!3~'w#! !Ð!!3 +D! #?>!! !!3J!=> pT]w+ V!~w!33G# v!:3зʪ!!3Q!!35q!33w+²!p!355!p3 + + + + + + '! P'> '! o g"3`i3+"*3|"ɵ!3+"~#~#~#~#~#~#~#~#!3'w#'w#'w#'w#'w#'w#'w!9~A҃"6/OGʕ"#6=Ž"x>#w|ڤ"DM!xį"y)ҵ")һ")")")")")")|#|##z"+#x)yOxGyx#GyO#="ogeo"")4##,#O#"`i!:3A21:3ʴ$2423GW24$%~"ʒ$%$Ã$$~"ʉ$24-%~,ʮ$$â$Q$*4͑':1$o&##a6#1Gw#$*4s#r:1#$-%:4+~%"^#V͐*04{z,3-*4#"4* 4+*4{z,ã.*$4*,4+!64*64!(͛*64!(͛l-Ó-*(4!͞!(͛ƒ-Ó-*(4!(U(4*4*4)^#V*(4U(4*4*4)^#V͐*,4",4*,4*&4}|-{0*$4*,4!.4*.4!(͛*.4!(͛*.4!(͛*.4!(͛*4*4)^#V!(͛E.40*.4!(͛*4*4)^#V!(͛q.X0*(4!(U(4*4*4)^#V!(͛™.X0*,4+",4D0!"4D/!"04/*,4*04+*&4}|.=/*4*4)^#V*04!84*$4*,4*04+!͊44*84*44͛/=/*04#"04*4*4)^#V͐*04{z.X/*4#"4*"4+*4{z.40*$4*,4+!:4*:4!(͛*:4!(͛*:4!(͛*:4!(͛*:4!(͛//*(4!͞!(͛//*(4!(U(4*4*4)^#V*(4U(4*4*4)^#V͐*,4",4*,4*&4}|*0{0*,4+",4D0*(4*.4U(4*,4#",4*&4}|+*$4*&4*,4{ozg#͞*(4U(4!(Y !*(4*(4ͮï+!p!p*4*4"<4*<4|º00*4*4"<4*<4|00*>4ͮy!(ͮͳ͝*>4ͮyy! )ͮͳ͝*%:39% $!3q~!1 w !3rimproper input - reenter $͑'ͩ'|w%##ap#q#w xm%s#r͑'ͷ%xʒ%! d%w#wͩ'DM7&ͷ%7&ͩ'DM1'ͷ%1'*2DM*2}|%ODF#N# "2#go# %O#o&#o&}2&o&E{2&xn&}!9.&>O7&à'" 4>2 4y24w# F&+242 4{' W&+n&-q&>2 4{'0n&. &:4&'/24y&{'0v&: 4=2 4Î&E&e&͇'ҷ&y&'G& : 42 4&x&:4&: 4<2 4{'v&y{' &G-_'x'{'͇'&'G{'͇''OxG{&'G: 4@* 4wɯ2 4y24{'+_'-b'>2 4_')DM)) O {'͇'S': 4v'z/W{/_s#r:4=24~#0:?^#V* }||~!3N q!3 ^!1!3 n&}|B=!"1 "}00-!~G#~ }q+ph#.bas.$$$.bak keywords.dat function.datconvert version 1.0 NO copyrightsCopywrong by Henk WeversDutch Hobby Computer Club.!wrong filename in commandstring ! :   :;,REM REM REM ,;:=  &+++ succ>4ͮ!!)ͤ*4ͤ!-)ͤ!Dͮyyͳ͝*>4ͮ!@)ͤ!Dͮy!d)ͤͰͮy!r)ͮͳ͝ͳ͝ |DEþ ; 4ͮy!(ͮͳ͝*>4ͮyy! )ͮͳ͝*:q=)#~0i`))))*R /Ax/#~!;!~#Ro$q#\<=/ ^#V#'>>d> >}0R~R~#( /R0x 0  > _ | }001 Not CPM-1 D= :H DSKED Disk Editor V4.0 =" Disk   Tracks   Min Sector Max   Bytes   Track   Logical Sector Actual   Page =#S^=%%0 1 2 3 4 5 6 7 8 9 A B C D E F 00 10 20 30 40 50 60 70=1 Command O>  |1 =#y2 A >: [ ^#VS  ^#V^#VS ##F##^#V!!K ! # 8^#V#F#~<2 * ( <" S +" 1 =## C C [ > [ 8" [ 0" * B01 =#* 1 =#* : g.<1 =# ͙!DM[ > S " 1 =#* 1 =#* 1 =#* ͖ 17 1 =1* a8{0__1 =/ =2      =1!~#((##~#foALS TCIOR3WT EqFGDQ< < m+m- 1 =#S =#bޯ1 =#S^=#b>2 `1 ector ?P : ( ͍8͙͙͗,H Bad Sector`1 rack ?P [  0" 3H Bad Track`1 dit in progress. Left=^S Right=^D Up=^E Down=^X Exit=. <2 ·: ô ÷: =2 <·: <ʷx=ô: ppʷ: ô: pʷ: ô: <2 ʷ·: =.  1 ill page with ?y }* wd]: * #͍!͚]2 o&1 =# : g.<7 " * #͗,* ͗,* [ 0#" : =͚H Reached inside limit of disk`: =: =͚: (* +͍M* * +͗,M* ͗,* }(+" ͙H Reached outside limit of disk`3M3[ ?[ > ( * B0PY1 isk (A-P) ? `8˯A8H Invalid Disk`H Cant a fDISK3 COMT.DSKED3 COM EDIT3 COMnIMAGE3 COM< ~PASSWORDCOMICPXSUM COML ,UNLOAD COMVUTIL DQC[)VERIFY3 COMDWRTSYS COM,Zs1 # Disk V2.5 (c) Phil Wheeler 1982 *.R" 2!]~ ? :\=|!\t!l\!\~26? ##~2q##~/2r##~2s!cʿ=!~#>:sO~ (#(#͂"e[o"o*i#"i> ^++N:r *g#"gy(*k#"ky(::+#uͥ*e[m"m*cB(9͖ͥ(!0Kc͖RDM!+V+^Ke s#rKc͖ [e+r+s*c#"c ?(N˹ #*cB (<{8͖~> (>*R+ͧ++{(/!g File Extent System fileK ListedK Used>^#V##͋͋͂[oR K Free {_ccess DPH`H Bad command1 =3 Read next page=4$+ Read next page=5$- Read prev. page=6$A use Actual sectors=7$L use Logical sectors=3@T set Track=4@S set Sector=5@R Reread sector=6@W Write sector=7@E Edit sector=3VF Fill sector=4VD change Disk=5VI In track=6VO Out track=7VQ Quit to CP/`1 C=61 =/ 1 1 rite current sector. Are you sure (Y/N) ? Y`͞ > `͞ > 1 =2: O>  K > K > 7 > 2 C S " 2 '  d   }00R0x0 y  x_~# (F Ɛ'@'! W08 0z ]T)))_ . (O083 8  8)0%))))oy 1 Character ? o 1 C1 D`ɧR1 ÑEdit V8.00 " is an illegal command Cannot find Iteration stack faul *BREAK* End of Input File New file No more disk spacNo source file specifieFile not found Save file error Loading... Finished editingMacro too long Macro Error Quit?V:N #\!w!\!\fV!!\Uh 5*E"GͻV* #" ͉*  *|!{O#zG81* ~(+*G 00"I"#"*G*}O|G* ~+( x ~" SG ͉V} ͓"*GV""GV͓"Gf 8* *I8 !2".*I2 5"G*I"  2M! ") ! " '+} !2P7Oͦ͵_NY VVT 2R= < ͹ ȷ W!9>(# 2R*I [ |*I[G}O|G*ISI!9[GSG!" * ~(#9bk 6 #ͻ(> !9!8!F#~: #>+͝ >. #͝ ~!8#.( `8 > :R>92R=7  !5*E""Gn  *R !"2M$ ~ͦ!"͓*G}o|g0 *Gz/W{/_DMz*!|!" *:Mʫ   !sWNͼ~+ õN!sOͻw"K+ % !"r!r"K!" *" * "!s" *K""! *G!*IR! *RR (Y/N)Size, Free, At line, FileW:Q|w ':P(=2P:!  :Q@2Q :Q2QO:P <2P!_q˹Y ͼ y 0?>$(9y :T(=2T >  ʦ 2T2>^yOͦ:T<2T*ͼ:T2*6+" 22!"!67( ((Vʹʹ 'OxFRF8q+ͼy ݾ #"" õ  q+ͼ8+6:G:T2GW2~ #6 ( ((( WW2R2~ #6'268+:O~+( ( ( 0 yO:Tì8+͵~N+ͼ#~ #*IRæͼ ͼü:O>!S4N! ~ 2O!S6\= >:o&q<2VV!vT p# |}`iN#ͼ'z~Oͦ~#('>>d> >}0Oü0 R0>0 xü~#( @Oͼ:ͼq.ͼN#> ļɯ2Q2P!N" :*!|* *+" !{#OzG8#"" [* 05*!|(+"!|*Ks * ["S : !"!6!!!\UõR#DMx> !M6!"G͓"!V~VO#ͨȯ2M= >2U͓*G0}O|G^ͥ~#( x ͥ!U4N!9 s69!U!v"  >!~ͦ! 2M" *I"G+ t 7n   ) 0 Ym ` .G X$$$$$$$.LIB rȯ2$$$>2U͓*G0}O|BAK~#( x !U4N!9 sThis program needs CP/M 2.0$1YImage copy V3.0  | }00YNot CPM|:\ <=2~  YBad source dis|!p:l=2  YBad destination dis|:G:~ .YSource & destination disks are the sam|SYSTEM >2oDATA >2oALL YSyntax error. Use: "IMAGE (x:)SYSTEM y:" to copy system tracks, "IMAGE (x:)DATA y:" to copy data tracks, "IMAGE (x:)ALL y: to copy all tracks Where x: is source disk (optional) & y: is destination dis|]( #y!p(* ~A8[8a8 {0!6#(08 :0!6* +" :- !M6ͻ2 + ͻ2# ͻ2!/:(!#!: T]))):0_ͻ2"K*I>W>*Gx(:M0% (+ x( ~(+ ## x~Ȼ# !E6*E ͻw( !E~ 04*G!( BK#(~(PY(7!(:E( _"ͦ͵|**G{Oz!~#O~G8**G+6"IÉ*I+"I6É1 }  !!"r:m2*+""!":] !\< !N6#6!l: !!\V V:N : 2 ! " -*G"*I"2M!"ͻ2-( +(: 3:0 !7|* ! s#r*! s#r> CNy(>! ~w#~w+( ! ^#V" !5#"*+"*}': :_Ao&)^#V>2:!͵"ͦ!Nͼ!1%K*8*I0,f(( !Y  w# x "I6:M*I !"G͋ "G*[GBK:M0R!ɷZ*I͋ :M!G8!s#rV!\w !~(Oͨ#f(OͨYDisks are differen|#*p#Y Tracks,*t#Y Sectors/Track,*zY Bytes/sector :o*r+=( [r*p=(S"[t!Kz 8z [e8)YNot enough memory for track buffe|1Y Copy tracks*Y*Y from drive:~AHY: to drive:AHY: Hit to continue | (YY *"Y Track*:~O> K> !"[|>DM> K> > Ē0!":O> K> [|>DM> K> >ĝ0[|>DM> > > ĩ0KC*jSY Copy completY Enter R to repeat, or to exit  (( RY*[z"*tjY ReaY Writ Y VerifY error. I to ignore error, A to abort ? I(A YAborted =YIgnore error (`˯O> |[e^#VS| ^#V^#VSt##F##^#V!!Kt! #e8^#V#F#f$.<"z*t( <"tSr+"pCvCx[|>[xe8"x[ve0"v*tB0>YDPH not in common|2 CS8 ))))o!"h"j2|>2\<ʟ!:7 2~!""22<ʟ!:w:<Ÿ2>͋ <ʟDirectory Full$Disk Full$File does not exist$HEXvutil.doc   "!$#_%&')(* +,-/.103246587:9; =<?>o@BACDFE rHGIJKQLNMOSQPRSUTVXWYZ[\]^2_`cabdfehjgiklmO\poqnsr;E't[wv4uX7xLz|{y}~+,&V:=uM%)(.1/53A>GUJY t@Ym_1߲>v9viٱ o+!%-"2 '33d3 3}00R0x0 y x_~#H(ɧRɧB s1͒:] p!]&~/#.! ,(:," ',(New Password store{Write error - check fil! Password ?!$Q!Q ( 8`8 w# !Q’&/#N˹ ~#(*NONE PASSWORDCM7Prom Checksum V2.0 $ (C)Phil Wheeler. 0689-29584 s1 :] No file name give :l2f 8Rom length too bi "!e\ File does not exis !4K6w"["4R"[8:[ڍ .( 'Warning: Checksum byte filled XInput file out of rang at byte*ͤ, addressͤ Null input fil [Rw*ͤH Bytes loaded from*ͤ!4K Dw Checksum byte at4Rͤ :!(7x4,@YO2Zk'Ʉ܂2!8=#k& dYo1TC(Aم%`QCR4%眆.}M&NX%IkG?7/7]*zN#KI{u=|`V]TP$(`w,yXo?=[haآs9Ȫ | *r z ϡx/1ҧcǗtMV{'Л7c[T NIBo^s5z_W M'4;fy9çއϿcshaآ 5lNv#v"jJi^>϶8:°ٗkX␿گYOkZt(X~{2CP}xSKj~zM+>>5:5*[u._ Ҏ3 7{yMno/C}>J @Wף2>gO+8?^9Mɓ,  dN&[;\zX\~zMdƻv&f7P` Or%wb\ ]}%'Xnv|<^'l`1zEWrG=eCrX 'J 鹰"xB[6,f7P%d_ ϕ`ZKE ?=ע+9yΣHnv|.E+_Fb_Jv,OϵDrLp4Td^1YJګvڲKw-ѥo'KI{2ǔyg%+9yNKd^רJ ZKQjgs(^ xtNZ>ķ?;X {;>ƭEע\ ddtk2YJ2*Qcishaآdպj_N2B"~laHn!e6\\ Directory Ful :(nChecksummed!]~3#*)))D!4[  xz{~#yD :000000 >33*)D4\(Disk Ful !\<*Output file writte{#x 7: `G7`g`o```y(Checksum ErroP*#"qWqWOz͔Invalid Hex characteP0 ? ?|ͩ}ͲƐ'@'_Ʌo$~#ͺ(ɧR!:<\>7 2~~3~#(O(Ɛ'@'3!:w::͋48*xͱ|ͱ}ͱͱ4ͱ#yDͱͧͱͧͿ{* > ͋> ËO;Ɛ'@'Ëo$m!:eC :fO :gM ! !0 r9~1enrˍ.}=ImoULڛ07dodZ26\NS-P}M~KXmY{tk27w2-cNrx_Jk]*vWk}_E°R$7Y\nً}.ȕ\A?/AP c+in =5Pw9ݚP`n6zui&l]PZ׿R$l]P_r둋VX?Gj{ =+whӒz/Wrfy"K.r0=en7 WߍMC}s_=dAxC>ljύG"XAƿ'9깸7@S AO֎k@лZVs^Aƿ}l\d 9r+y>^j?zj=J _=.mp_-Zkv%'sTHVJZBp}lWj\Tinvx̟*M`v+_ PCb fG 2Jػ~jqv++w5xtV֥.tps٘{X-3ҿL/U1} l1jk4}٭Z݋󧶆J7} l ;[Wv+޵vptqs%agzɍG.E?깸7Ȅձ [AjjlWgds|B5TԞr#Wwvs(^ YAƿc +]S{\XD̍j1+'l +-7;R 2H zۑ!rEh2Ec紂K\kzj=7[ =5P<5q=7;r@ j˄JPl( haXmu4C5Ȅ@K9°Z>ETJػ~jC^"쁯 ~>>JjTP[V[&7+\G΁w`YfH <^(+9yΣHnV07)9/@G\?EWv%aD r.{eвGOr.C(ֽlhYY̟&7Y33)&kgsmTP!C*d+k\ aHnrɚN+EbPs'zs YZ_߿?5T;ˎ-jz5>? }N7JMȶ"JNs(3_*Jayك<8[[띌9MFzBo\6|}hW]vou{slս9OiJN02UB]ѥ'KI2*K@ fi+}l\d 9r+y>^j?zj=J _=.mp_-Zkv%'sTHDisk Verify V5.0$ 1~ | }00͸ Not CPM:] G:\(=_O> U[^#VS ^#V^#VS##F##^#V!!K! #8^#V#F#~<2*( <"+"CC[>U[8"[0"*B0͸ *#s͸ Tracks,*#s͸ Sectors/track,:g.<s͸ Bytes/sector -> U> U>[UDM> U> U( *#"͸  n*0*0͸Disk O͸ Files O*}͸ s͸ Sectors ba͸ DPH not $uӀպTbs삂{KDwN9oaq歗osI&WFh\Wۃas%'ρ&v8= +9yig` +2w0PQ~MV{ El-W6ŽAȪ=Ӕzdˋ';d|1IE 25YY1r+kOr+ n&pLpst9,%ըώY^0l[V[&7+^.$q`rMn>KjtM@nJ.%']`fzAj+9yIˈ_Xܢs3(Bع&_Xܢs^^G_Y1r+hkŁ-:>%W'94My Ypz&d[[t%'5YAn䇏|F4{sq a"5Y@ jKA~0>'t5Yn2|9ЛW\m&7zg-yO27W}zEѥ* d?PS&zC%--\BV)㣎~haX{]*zPiP#^ic>b龏?NY\Cڻ+؅9F,%Uk s(]*z|iJQ'Ԕ[V[&7+{pe|_jJܬ`^Yg^g(]jJϵ8 FxEjJ+ۿwϪ'Ԕ5%jKnr!&O BMzyM?>Dmݽ0Hw۟L-jNs7WI?PS~kQO%''5%jn2($㓬5>?ЛW IFe|Zp'VFin commo͸ ** Aborted at Sectors͸, Tracks͸ *͸ !~"\ *͸ ** No files exist *\(#!_~(#[ S-!~":\2*~ "͸ !/͸/ 9( *#"͸ ** Finished *~#!ԧ͸ ** Aborted *2kCmSo"q2k'͒͒d͒ ͒}00R0x0 y x_~#ͧ(ɧRɧB 8WRTSYS V3.0 $// (C) Wheeler Associates 0689-29584 //1u  | }0( Not CPMj:l2:] No Filenamj!e\< File does not exisj!u 4[8File too bij\: 6Destination disk (or to reboot) ?1jJ=(J8j  =A2O> m| Invalid disk 7[0Bad DPH 7^#VS ^#V^#VS##F##^#V!!K! #8^#VS#F#~<2*( <"+"CC[> 5%j%,{1+ZT}9j\1|~2q>ɓF+d1A/rA8xxE*dMr#d<|N+dXazFUrf19B׫=jgsX CNv[Rz>n@?_?>^e<9>F8:e|ԱG}-ڋds~n2iʊCn z Cu-W;f aeMnVXz׋uG,)-/Yb>^/GO PlX {SZË}47ٿ&7ϿO %AǬ5P[tM~X -B^li\Ըd(^ qs,rP̥'x},s> }NIQz keהZBp'@dM~NumI!Çղ,IP1$'VxNi '? `lIV6/n#L\矴9VVG4QKdE&7>[87zs h[;]*zlk?X?/r -kwƢJQߐY/oՖ,7Y^nq󧶆J7]hq#&7Of$Yw2*c|.rYw^%|ݨd|i֎lƢJkսZ]S϶\  ketԸsW|^^bzպeqsڃ5|1,5)|Mnd3o$RM\Bs'[?@_Z2>ɨIi{xt,qJN08YV$W$^^b]hiP<(#|NzѥGI2*K@ fd>?Zm[8"[0"*B0Disk:AͿ: *#͋ sectors per track,*|(E͋ reserved tracks.*8>Too many reserved tracks ! 7No reserved tracks ! 7Hit to continue 7!u> m[>mDM> m> m>m( Write error. Abortinj: = *0 * 2CS"2'ͪͪdͪ ͪ}00R0x0 y x_~#Ϳ(ɧRɧB 8WRTSYS V3.0 $// (C) Wheeler Associates 0689-29584 //1u  | }0( Not CPMj:l2:] No Filenamj!e\< File does not exisj!u 4[8File too bij\: 6Destination disk (or to reboot) ?1jJ=(J8j  =A2O> m| Invalid disk 7[0Bad DPH 7^#VS ^#V^#VS##F##^#V!!K! #8^#VS#F#~<2*( <"+"CC[>d6č5e7y@i6R⌫o )QsAfQ}ϡV'^>O|j3DҦ^b[$P|3CH=\moz{8Wu PlGD`GqHJ$Aggge.a RٿbT\m )Tr1T 7 YfjTY e8[8Trr!zl|gz/_Pnjd*0^,Fi6RpB q7N}}2_V@[O"A7.P;NDE/ 4ZȎ"Y/Ĵ ]~yG_WbQd1 %`)fA63030P ]1.- ֛zPk( ag1_-ƾZ>nsQZ?u,H W3D>ZvzZ>Ųϧ'8C)m%,eA"H*VŢC7*CJu,H< bQZ\9 /p4wGns gj#RbQ[{;Q#73B](rn`.LmPjC(]HB+ \r{%8Hݕ;c۶!y}B @M@V+W4*&$h:"t&<6)$\%pSM 1 ]1I0'}W&ݷ'}숦ۈ RCUBE ZQM<0CUBE COM= v ;CUBE.ZSMW  !"#$%&')(*+-,./0123456789:;=<>?A@CBoEDFGHJIKLOMPQSNVURTQ/r\Pߋ?$3߃hOƙvӸ ߋ?GF*~sA2/r\Pߋܿ E߾6iYo3GvgY|k;/jqY ߾W6|k֩i[^D[ye"igmioGlV/u xcK~NCy~xg#/|0G;"gi[8m_kD>k׶-Frx=EqIcKOP5^O4;!j}ٱwc/͎-x1mK[z7kivlraȈ7;Ջ͚fǖ3!i+Z(ٱw(qfVbڒfǖ9 ivlm%o[CW3qlի[{ me?yKcK}MȜ ֭^do]"{,4]|ye L}y?@ABCDEFGHIJKLMNOPQRSo;yxv~_]`Fa8TUVWXYZ[\]^_`abcdefghijklm[O'w/>=nopqrstuvwxyz{|}~s:9.|JC7&!  rnlhcXTPMHB60) _Am@r`AfYXǬզtřH=UNjjʐҊe,c.?U{x9YXqbeCM廘;N,s8tn='W”h[2lV='W؞ ?Z-4]|=2u߼L !-|(xe L+l z.LٞN\ {)ӉWB !zMcKe]vx=d Mwȟ/"și WA3!se/+a']^aG߻ܯ+G2-O\x'.{i|?;K|]vpy@6=N\ҼL(߻&p"͋Չ^Zd^+g t#;+J {e=ӻ?H5^f{nW y=r_= ߻|LWy|,"8+i&м9!mYʗ敁#+]+iJ^Vh^+-+?_D~ Lݬye fi{ye i{=2X @+c1㕁lǒ=앁P3XWb+J%]7+fnŌWKWB`^9 d+=$!/|ml9畁P3XwB~Ӽr>3 i{y@cI+fnŌWK^5u{|,f2X@+c1㕁lǒP앁P3XWb+J%WB`^94@S3^S鑕+aJ^V'_X!mY"5 d+=b r>3^Vz,^5u{|,f2Xu2jXxe [鱤{e @cI2jXx@cID앁P3XWb+J%ɱWB`^9 d+=^5u{|,f2X҅2jXxe [鱤@+c1&hj+y*=2JD앿m5y2ږ/"wew敁lfWB%]r+c1㕁lfWB%=XWb+J` Kz\XWb+J` KznŌW^=tu{|,fҵŋWTzd[앁0GV^V'_X!mY"rbY@R3+ǒ.+c1㕁lfWB%]wXWb+J` KzȱnŌW^=x`^9 d+52z,麰nŌWTzd {e L鑕z+jd^+-+?_D~ 7k^Vj{e X @R3+ǒ=+c1㕁lfWB%]7XWb+J` KnŌW^=$Ǻr>3^EZmg OGVc )={o[M+cenּ2 @$"@R3+ǒXWb+J` Kz`^9 d+52z,ºr>3^Vj{e XRXxe OGVBW”Y&O敿ϱB^۲cEY@R3+ǒ@R3+ǒ Xxe [앁cIWXxe [앁cI7XWb+J` KǺr>3^EZmK2#+b )=߶3^Vj{e X҅b^9 d+52z,"b^9 d+52z,c^9 d+52z,z`^9 J@#+Wɼ9Vk[V~,Znּ2 @${+c1㕁lfWB%b^9 d+52z,Xxe [앁cI(@R3+ǒXWb+][^F g@2mKLmݲr;u;͚WK+fnŌWKz3^Vz,{e J 45㕁lǒ@+c1㕁lǒ {e @cIW{e @cI7+fnŌWK^5u{|,fdMxe OGV^Szd;앿m5y2ږ/"'.5 d+=ta r>3^Vz,^5u{|,f2XC2jXxe [鱤{e @cIׅ2jXx@cI=앁P3XWb+J%](@+c1㕁lǒ."@+c1㕁lǒ.9@+c1㕁lǒ@+c1㕁#+` )==J 45_<Һ/"g[͚Wd zet^7}[_یODz#!#awⲗ#~2+sv7< ?kw~3p^uڻ<<"ulO\_啮-^, Č>m:=h<"u|:غW؞ '^^,WbFm+lduC"lu|u_=ֽ˫c[2#+`ND$_Lfemze L鑕Wɼ9Vk[V~,o7k^Vj{e XXxe [앁cI(@R3+ǒnŌW^=tu{|,f2 @${+c1㕁lfWB%`^9 d+52z,a^9 d+52z,麰nŌW^=t=nŌW^=tɱnŌW^=tnŌW^=tXWb+J` Ka^ |e]k_gqg[S&~m@^ 3yze L+i:{+l ꕁQ;u;/8?J`+l~my畮-+jb+ldoVx|,f2 +][rW؞+c1(sm )?Ѷxe Mx.'AHDž^>#u˜/$9v  /Bum9 ^>#DDg#Ip` v׵E|/@{I 9w"rz>~#!}>. !'O 'P@{I 9) vy'#~]H@\h3B$q_p_O}Beڢs}F'!$ é$d $9 d+52z,ºr>3^Vj{e XXxe [앁cIr+c1㕁lfWB%]XWb+J` KnnŌW^=a^9 d+52z,qa^9 d+52z,r>3^Vj{e XCu{|,f2 @豤Xxe [앁cI-핮-^di@ 3+㳭} LC5] Č>mۺW؞j^"lu|u_=ֽװ-S鑕n0'"/wϲy2J+jd^+-+?_Dڷt5 d+52z,z`^9 d+52z,c^9 d+52z,"b^9 d+52z,BnŌW^=úr>3^Vj{e X҅u{|,f2 @豤@R3+ǒXWb+J` K"b^9 d+52z, źr>3^Vj{e X@R3+ǒnnŌW^=du{|,f2 @豤+c1㕁lfWB%]=+c1㕁lfWB%]@R3+ǒ+c1㕁lfWB%=XWb+J` KnŌW^=tb^9 d+52z,Ǻr>3^Vj{e Xuu{|,f2 @豤GXxe [앁cI J/3#+ɱW”Y遽&O敿ϱB^۲cE7k^Vj{e Xu{|,f2 @豤Xxe [앁cI-@R3+ǒ;+c1㕁lfWB%](@Jb )={o[M+cy'#B@{\%񇔐 GTlw][tW ķHr]>{\F+g}/B.?2 k^9 ^>#~xI>GGJ`_?\?C@$z!B~O˜B?Tlw][tW B!#!sW20w"H+g}$ x$~b k^ aN~~/B.v9! RDLOCHȅ^>#$'#Gy'# *]lw][t s].g.$>TPFz[}$}x)[})j7zo[}^W=EPT)zTVQ=@{A%}U~oU\Q}ETNQF/z/@{yH^Q%+hOQ%UyOE۞zw\/zoqh3$oU⭢JDUQnۇEUT/C+gիw*STwꝢDEUT*K*STǭvW%}zzrTQVz=^Q^;E"ʵ[}F|_z%VDUzw[z'W^rzQEzkx\Wǥ^Co^7z=VQ#^rz-^>#^[Ez<뒫\/EWToNчz^z=n[}F.ף^u>zz=NoRTooV/h3ջST^Qz)TQ;E/՛zPToV/yO+gz]7 >ҋ7͍z#WToo[}F|_zz]u* UTEF^QWT^OQ!*=@{K#*u7+WO/* Press r or l to rotate one layer of chosen side right or left Press R or L (with caps shift) to rotate two layers together Any other key will return you to this page. Note that the central cubie of each face does not wander about, but remains the identifying number for that face even after the cube is well scrambled. Press any key to start $ ;): (*9< '1+8G  &02,7F=~ %/-EH m$. 6K> n#! DI lo"5J? yp  C@ kzq4AL x{  B[Mj}r3Z\N w| Yc]Oivs Xbd^P hu  Wa_Qgt V`Rf USe T  0 0 I I  I 0   I 0 0  I @ kzq4AL x{  B[Mj}r3Z\1111111111111111111111111222222222222222222222222233333333333333333333333334444444444444444444444444555555555555555555555555566666666666666666666666667 _-^>s'WO^ם"*ץ)7wC+gn$}=F>UT-^>s=$}]*K[}= h/2<͑b\|yr+^dVbH69(7k2yڋ̊POLYFIT BAS,,CURVFIT DOCJ MTEST1 DAT$CURTEST DAT%"LINTEST2DAT&dMTEST2 DAT'&POLYTESTDAT(LINTEST1DAT)U1000 ' *** PROGRAM ANYFIT *** 1010 ' 1020 ' A DRIVER PROGRAM FOR THE CURFIT SUBROUTINES THAT WILL FIND 1030 ' THE PARAMETERS IN A GIVEN FUNCTION THAT GIVE THE BEST FIT 1040 ' (IN A LEAST SQUARES SENSE) TO A SET OF INPUT DATA. X & Y ARE 1050 ' THE INDEPENDENT AND DEPENDENT VARIABLES RESPECTIVELY. THE 1060 ' FUNCTION THAT DETERMINES Y GIVEN A VALUE OF X MUST BE SPECIFIED 1070 ' IN THE SUBROUTINE FUNCTN (SEE END OF SOURCE CODE). SEE COMMENTS 1080 ' IN CURFIT SUBROUTINE FOR EXPLANATION OF VARIABLES. 1090 ' 1100 ' Programmer: G. M. Resch, Feb. 79 1110 ' 1120 ' DIMENSION ALL ARRAYS HERE 1130 ' THIS  ! ͪ! 4yF N~w#~w#~w#~w#~w#~w #~w #~w #~w #~w #~w#~w#~w#~w#~w#~w#~w#~w#~w#~w#~w#~w#~w#~w! ͪ! y4F N~w #~w #~w#~w#~w#~w#~w#~w#~w#~w#~w#~w#~w#~w #~w #~w #~w#~w#~w#~w#~w#~w#~w#~wFN~w#~w#~w#~w#~w#FN~w #~w#~w#~w#~w#FN~w#~w#~w#~w#~w #FN~w #~w#~w#~w#~w#FN~w#~w#~w#~w#~w#FN~w #~w #~w #~w #~w#FN~w#~w#~w#~w #~w #FN~w#~w#~w#~w#~w#  !~#~#  #~ =! 0$o~_ SIDE 1 CURRENTLY SELECTED- PRESS KEYS 1 to 6, R, r, L, or l $ This program simulates a cube puzzle one step beyond Rubic's Revenge, displaying a 5*5*5 cube for manipulation on screen. This illustrates the sort of application in which glass is more flexible than plastic. Press a number (1 to 6 inc.) to select a side for rotation.VERSION IS SET UP TO HANDLE UP TO 100 DATA POINTS AND 1140 ' AS MANY AS 10 PARAMETERS. 1150 DIM X(100), Y(100), SIGY(100), YFIT(100), WGHT(100) 1160 DIM A(10), DELA(10), IK(10), JK(10), BETA(10), B(10), DERIV(10) 1170 DIM ALPA#(10,10), ARY#(10,10) 1180 ' 1190 MAXN= 100 : MAXP=10 'SET MAXIMUM # OF POINT AND PARMS 1200 ' 1210 ' OPEN & READ THE INPUT DATA SET 1215 PRINT" Program ANYFIT, G. M. Resch, Feb. 79" 1220 INPUT "Name of Input data set=";N$ 1230 OPEN"I",2,N$ 1240 FOR I=1 TO MAXN 1250 IF EOF(2) GOTO 1280 1260 INPUT#2,X(I),Y(I),SIGY(I) 1270 NEXT I 1280 NPTS=I-1 : CLOSE#2 1290 PRINT"THERE ARE ";NPTS;" DATA POINTS" 1300 ' 1310 ' INPUT THE APRIORI VALUES FOR THE PARAMETERS 1320 PRINT" MODE=+1, WGHT(I)=1/SIGY(I)^2" 1330 PRINT" = 0, WGHT(I)=1" 1340 PRINT" =-1, WGHT(I)=1/Y(I)" 1350 PRINT" =-2, WGHT(I)=SIGY(I)" 1360 INPUT"SPECIFY THE WEIGHTING MODE (+1,0,-1, OR -2) -";MODE 1370 IF (MODE<=+1 AND MODE>=-2) GOTO 1390 1380 PRINT"ERROR IN MODE SPECIFICATION" : GOTOFIRST$= A FLAG THAT IS TRUE WHEN CURFIT IS FIRST CALLED 1960 ' 1970 ' SUBROUTINES CALLED; 1980 ' FUNCTN(X,I,A), FCHISQ(Y,SIGY,NPTS,NFRE,MODE,YFIT) 1990 ' FDERIV(X,I,A,DELA,NTRM,DERIV), MATINV(ARY#,NTRM,DET) 2000 ' 2010 '--- START OF PROGRAM CODE --- 2020 ' 2030 ' ROUTINE IS FIRST CALLED 2040 IF FIRST$="FALSE" GOTO 2150 'SKIP IF NOT FIRST CALL 2050 FIRST$="FALSE" 2060 NFRE=NPTS-NTRM : CHISQ=0 : IF NFRE<1 THEN RETURN 2070 ' EVALUATE WEIGHTS 2080 FOR I=1 TO NPTS 2090 IF MODE=1 THEN WGHT(I)=1/(SIGY(I)*SIGY(I)) : GOTO 2130 2100 IF MODE=0 THEN WGHT(I)=1 : GOTO 2130 2110 IF MODE=-1 THEN WGHT(I)=1/ABS(Y(I)) : GOTO 2130 2120 IF MODE=-2 THEN WGHT(I)=SIGY(I) 2130 NEXT I 2140 ' EVAL ALPHA & BETA MATRICES 2150 FOR J=1 TO NTRM 2160 BETA(J)=0 2170 FOR K=1 TO J 2180 ALPA#(J,K)=0 2190 NEXT K,J 2200 ' 2210 FOR I=1 TO NPTS 2220 GOSUB 2850 :REM* CALL FDERIV(X,I,A,DELA,NTRM,DERIV) 2230 GOSUB 3780 :REM* CALL FUNCTN(X,I,A) 2240 FOR J=1 TO NTRM 2250 BETA(J)=BETA(J) +WGHT( 1320 1390 PRINT 1400 INPUT"HOW MANY PARAMETERS? NTRM=";NTRM 1410 IF (NTERM<=10 AND NTRM>0) GOTO 1430 1420 PRINT"ILLEGAL NUMBER OF PARAMETERS" : GOTO 1390 1430 PRINT 1440 FOR I=1 TO NTRM 1450 PRINT"SPECIFY THE STARTING VALUE AND DELTA FOR NTRM=";I 1460 INPUT" NTRM=";A(I) 1470 INPUT" DELTA=";DELA(I) 1480 NEXT I 1490 ' 1500 ' SETUP THE CALL TO CURFIT 1510 FIRST$="TRUE" 'THIS IS THE FIRST CALL 1520 LSTCHI=1E+08 'SET TO REDICULOUSLY HIGH VALUE FOR START 1530 FLMD=.01 'GOOD VALUE FOR START 1540 LOOP=0 'INITIALIZE LOOP COUNT 1550 LOOP=LOOP+1 1560 GOSUB 2040 'CALL CURFIT 1570 PRINT"LOOP #";LOOP,"CHISQ=";CHISQ,"FLAMDA=",FLMD 1580 IF (LSTCHI-CHISQ)<.001 GOTO 1640 'EXIT IF NO CHANGE IN CHISQ 1590 LSTCHI=CHISQ 1600 IF FLMD<.000001 THEN FLMD=.00001 1610 IF FLMD<1E+06 GOTO 1550 'KEEP LOOPING IF FLMD IS NOT TOO LARGE 1620 ' 1630 ' WE FOUND AN ACCEPTABLE FIT, SUMMARIZE THE RESULTS 1640 PRINT 1650 FOR J=1 TO NTRM 1660 PRINT"A(";J;")=";A(J),"SIGMAA(";J;")=";SIGA(JI)*(Y(I)-FUNCTN)*DERIV(J) 2260 FOR K=1 TO J 2270 ALPA#(J,K)=ALPA#(J,K) +WGHT(I)*DERIV(J)*DERIV(K) 2280 NEXT K,J 2290 NEXT I 2300 ' 2310 FOR J=1 TO NTRM 2320 FOR K=1 TO J 2330 ALPA#(K,J)=ALPA#(J,K) 2340 NEXT K,J 2350 ' EVAL CHI SQUARE AT START POINT 2360 FOR I=1 TO NPTS 2370 GOSUB 3780 :REM* CALL FUNCTN(X,I,A) 2380 YFIT(I)=FUNCTN 2390 GOSUB 2990 :REM* CALL FCHISQ(Y,SIGY,NPTS,NFRE,MODE,YFIT) 2400 CHI=FCHISQ 2410 NEXT I 2420 ' INVERT MODIFIED CURVATURE MATRIX TO FIND NEW PARMS 2430 FOR J=1 TO NTRM 2440 FOR K=1 TO NTRM 2450 ARY#(J,K)=ALPA#(J,K)/SQR(ALPA#(J,J)*ALPA#(K,K)) 2460 NEXT K 2470 ARY#(J,J)=1+FLMD 2480 NEXT J 2490 ' 2500 NOR=NTRM : GOSUB 3140 :REM* CALL MATINV(ARY#,NTRM,DET) 2510 FOR J=1 TO NTRM 2520 B(J)=A(J) 2530 FOR K=1 TO NTRM 2540 B(J)=B(J) +BETA(K)*ARY#(J,K)/SQR(ALPA#(J,J)*ALPA#(K,K)) 2550 NEXT K,J 2560 ' IF CHI SQUARE INCREASED, INCREASE FLMD AND TRY AGAIN 2570 FOR J=1 TO NTRM 2580 TEMP=A(J) : A(J)=B(J) : B(J)=TEMP 2590 NEXT J 2600 ) 1670 NEXT J 1680 PRINT"CHI SQUARE=";CHISQ 1690 PRINT 1700 PRINT"X(I)","Y(I)","YFIT","Y-YFIT" 1710 FOR I=1 TO NPTS 1720 PRINT X(I),Y(I),YFIT(I),(Y(I)-YFIT(I)) 1730 NEXT I 1740 END 1750 REM*************************************************************** 1760 ' SUBROUTINE CURFIT(X, Y, SIGY, NPTS, NTRM, MODE, A, DELA, 1770 ' SIGA, FLMD, YFIT, CHISQ, $FIRST) 1780 ' 1790 ' A ROUTINE THAT WILL FIND THE LEAST-SQUARES FIT TO A NON-LINEAR 1800 ' FUNCTION WITH A LINEARIZATION OF THE FITTING FUNCTION. 1830 ' 1840 ' PARAMETERS: 1850 ' X=ARRAY OF INDEPEND. VARIABLE, Y=ARRAY OF DEPENDENT VARIABLE 1860 ' SIGY=STND DEV. OF Y, NPTS=# OF PAIRS OF DATA POINTS 1870 ' NTRM=# OF PARMS, A=ARRAY OF PARMS 1880 ' MODE=+1, WGHT(I)=1/SIGY(I)^2 1890 ' = 0, WGHT(I)=1 1900 ' =-1, WGHT(I)=1/Y(I) 1910 ' =-2, WGHT(I)=SIGY(I) 1920 ' DELA=ARRAY OF INCREMENTS OF A, SIGAA=STND DEV OF A 1930 ' FLMD=PROPORTION OF GRADIENT SEARCH INCLUDED 1940 ' CHISQ=REDUCED CHI SQUARE 1950 ' ' 2610 FOR I=1 TO NPTS 2620 GOSUB 3780 :REM* CALL FUNCTN(X,I,A) 2630 YFIT(I)=FUNCTN 2640 NEXT I 2650 FOR J=1 TO NTRM 2660 TEMP=B(J) : B(J)=A(J) : A(J)=TEMP 2670 NEXT J 2680 ' 2690 GOSUB 2990 :REM* CALL FCHISQ(Y,SIGY,NPTS,NFRE,MODE,YFIT) 2700 CHISQ=FCHISQ 2710 IF (CHI-CHISQ)>0 GOTO 2740 2720 FLMD=10*FLMD : GOTO 2430 2730 ' EVAL PARMS & UNCERTAINTIES 2740 FOR J=1 TO NTRM 2750 A(J)=B(J) : SIGA(J)= SQR(ARY#(J,J)/ALPA#(J,J)) 2760 NEXT J 2770 FLMD=FLMD/10 2780 RETURN 2790 REM************************************************************** 2800 ' SUBROUTINE FDERIV(X, I, A, DELA NTRM, DERIV) 2810 ' 2820 ' A ROUTINE TO EVALUATE THE DERIVATIVE OF A FUNCTION WITH 2830 ' RESPECT TO THE PARAMETERS A(J) 2840 ' 2850 FOR JJ=1 TO NTRM 2860 AJ=A(JJ) : DEL=DELA(JJ) : A(JJ)=AJ+DEL 2870 GOSUB 3780 :REM* CALL FUNCTN(X,I,A) 2880 YF=FUNCTN : A(JJ)=AJ-DEL 2890 GOSUB 3780 2900 DERIV(JJ)=(YF-FUNCTN)/(2*DEL) 2910 A(JJ)=AJ 2920 NEXT JJ 2930 RETURN 2940 REM********************* 3610 I%=JK(K%) 3620 IF I%<=K% GOTO 3660 3630 FOR J%=1 TO NOR 3640 SAV#=ARY#(K%,J%) : ARY#(K%,J%)=-ARY#(I%,J%) : ARY#(I%,J%)=SAV# 3650 NEXT J% 3660 NEXT L% 3670 RETURN 3680 ' 3690 REM************************************************************** 3700 ' SUBROUTINE FUNCTN(X, I, A) 3710 ' 3720 ' EVALUATE AN ARBITRARY FUNCTION FOR CURFIT 3730 ' IN THIS CASE THE FUNCTION FROM BYTE MAGAZINE, MAY 84, P341 3740 ' 3750 ' X=ARRAY OF DATA POINTS, I=INDEX OF DATA POINTS 3760 ' A=ARRAY OF COEFFICIENTS 3770 ' 3780 FUNCTN= A(1)*X(I)/(X(I)+A(2)) 3790 RETURN 1000 ' *** PROGRAM LINFIT *** 1010 ' 1020 ' A DRIVER PROGRAM FOR THE LINFIT SUBROUTINE THAT WILL FIND 1030 ' THE PARAMETERS IN A LINEAR FUNCTION THAT GIVE THE BEST FIT 1040 ' (IN A LEAST SQUARES SENSE) TO A SET OF INPUT DATA. X & Y ARE 1050 ' THE INDEPENDENT AND DEPENDENT VARIABLES RESPECTIVELY. 1060 ' SEE COMMENTS IN LINFIT SUBROUTINE FOR EXPLANATION O***************************************** 2950 ' SUBROUTINE FCHISQ(Y, WGHT, NPTS, NFRE, YFIT) 2960 ' 2970 ' A ROUTINE TO CALCULATE THE REDUCED CHI SQUARE FIT TO DATA 2980 ' 2990 CHS=0 : IF NFRE>0 GOTO 3020 3000 FCHISQ=0 : RETURN 3010 ' ACCUMULATE CHI SQUARE 3020 FOR II=1 TO NPTS 3030 CHS=CHS +WGHT(II)*(Y(II)-YFIT(II))*(Y(II)-YFIT(II)) 3040 NEXT II 3050 FCHISQ=CHS/NFRE 3060 RETURN 3070 REM************************************************************** 3080 ' SUBROUTINE MATINV(ARY,NOR,DET) 3090 ' 3100 ' A ROUTINE TO INVERT A SYMMETRIC MATRIX AND CALCULATE ITS 3110 ' DETERMINANT. ARY(I,J) IS THE INPUT MATRIX OF ORDER=NOR 3120 ' AND IS REPLACED BY ITS INVERSE 3130 ' 3140 DET=1! 3150 ' START THE K% LOOP 3160 FOR K%=1 TO NOR 3170 AMX#=0! 3180 FOR I%=K% TO NOR 3190 FOR J%=K% TO NOR 3200 IF ABS(AMX#)>ABS(ARY#(I%,J%)) GOTO 3220 3210 AMX#=ARY#(I%,J%) : IK(K%)=I% : JK(K%)=J% 3220 NEXT J%,I% 3230 IF AMX#<>0! GOTO 3250 3240 DET=0! : RETURN 'RETURN IF DETERMINAF VARIABLES. 1070 ' PROGRAMMER: George M. Resch, Feb. 1979 1080 ' 1090 ' DIMENSION ALL ARRAYS HERE 1100 ' THIS VERSION IS SET UP TO HANDLE UP TO 100 DATA POINTS 1110 DIM X(100), Y(100), SIGY(100), YFIT(100), WGHT(100) 1120 ' 1130 MAXN= 100 'SET MAXIMUM # OF POINTS 1140 ' 1150 ' OPEN & READ THE INPUT DATA SET 1155 PRINT" Program LINFIT, G. M. Resch, Feb. 79" 1160 INPUT "Name of Input data set=";N$ 1170 OPEN"I",2,N$ 1180 FOR I=1 TO MAXN 1190 IF EOF(2) GOTO 1220 1200 INPUT#2,X(I),Y(I),SIGY(I) 1210 NEXT I 1220 NPTS=I-1 : CLOSE#2 1230 PRINT"THERE ARE ";NPTS;" DATA POINTS" 1240 ' 1250 ' INPUT THE APRIORI VALUES FOR THE PARAMETERS 1255 PRINT 1260 PRINT" MODE=+1, WGHT(I)=1/SIGY(I)^2" 1270 PRINT" = 0, WGHT(I)=1" 1280 PRINT" =-1, WGHT(I)=1/Y(I)" 1290 PRINT" =-2, WGHT(I)=SIGY(I)" 1300 INPUT"SPECIFY THE WEIGHTING MODE (+1,0,-1, OR -2) -";MODE 1310 ' 1320 GOSUB 1750 'CALL LINFIT 1330 ' 1340 ' SUMMARIZE THE RESULTS 1350 PRINT 1360 PRINT" Y INTERCEPT=";A," SIGMNT IS ZERO 3250 I%=IK(K%) 3260 IF I%+1 GOTO 1930 1920 WGHT(I)=1/(SIGY(I)*SIGY(I)) : GOTO 2010 1930 IF MODE<>0 GOTO 1950 1940 WGHT(I)=1! : GOTO 2010 1950 IF MODE<>-1 GOTO 1980 VARN=CHSQ 2640 FOR J=1 TO NTRM 2650 SIGA(J)=ARY#(J,J)*VARN/(FRE1*SIGX#(J)*SIGX#(J)) 2660 SIGA(J)=SQR(SIGA(J)) 2670 RMUL=RMUL +A(J)*R(J)*SIGX#(J)/SIG# 2680 NEXT J 2690 FREJ=NTRM : FTST=(RMUL/FREJ)/((1-RMUL)/FREN) 2700 RMUL=SQR(RMUL) : SIGA0=VARN/NPTS 2710 FOR J=1 TO NTRM 2720 FOR K=1 TO NTRM 2730 SIGA0=SIGA0 +VARN*XMN#(J)*XMN#(K)*ARY#(J,K)/(FRE1*SIGX#(J)*SIGX#(K)) 2740 NEXT K,J 2750 SIGA0=SQR(SIGA0) 2760 RETURN 2770 REM---------------------------------------------------------------------- 2780 ' SUBROUTINE MATINV(ARY#,NOR,DET) 2790 ' A ROUTINE TO INVERT A SYMMETRIC MATRIX AND CALCULATE ITS 2800 ' DETERMINANT. ARY#(I,J) IS THE INPUT MATRIX OF ORDER=NOR 2810 ' AND IS REPLACED BY ITS INVERSE 2820 ' 2830 DET=1! 2840 ' *** FIND LARGEST ELEMENT 2850 FOR KK%=1 TO NOR 2860 AMX#=0! 2870 FOR II%=KK% TO NOR 2880 FOR JJ%=KK% TO NOR 2890 IF ABS(AMX#)>ABS(ARY#(II%,JJ%)) GOTO 2910 2900 AMX#=ARY#(II%,JJ%) : IK(KK%)=II% : JK(KK%)=JJ% 2910 NEXT JJ%,II% 2920 IF AMX#<>0! GOTO  1960 IF Y(I)<0 THEN WGHT(I)=1/(-Y(I)) ELSE WGHT(I)=1/Y(I) 1970 GOTO 2010 1980 IF MODE=-2 GOTO 2000 1990 PRINT"MODE SPECIFICATION ERROR" : RETURN 2000 WGHT(I)=SIGY(I) 2010 SUM#=SUM#+WGHT(I) 2020 YMN#=YMN#+WGHT(I)*Y(I) 2030 FOR J=1 TO NTRM 2040 GOSUB 3440 :REM* CALC FCTN 2050 XMN#(J)=XMN#(J)+WGHT(I)*FCTN 2060 NEXT J,I 2070 YMN#=YMN#/SUM# 2080 ' 2090 FOR J=1 TO NTRM : XMN#(J)=XMN#(J)/SUM# : NEXT J 2100 WMN=SUM#/NPTS 2110 FOR I=1 TO NPTS : WGHT(I)=WGHT(I)/WMN : NEXT I 2120 ' *** ACCUMULATE MATRICES R & ARY# 2130 FOR I=1 TO NPTS 2140 SIG#=SIG#+WGHT(I)*(Y(I)-YMN#)*(Y(I)-YMN#) 2150 FOR J=1 TO NTRM 2160 GOSUB 3440 :REM* CALC FCTN(X,I,J,M) 2170 SIGX#(J)=SIGX#(J) +WGHT(I)*(FCTN -XMN#(J))*(FCTN-XMN#(J)) 2180 R(J)=R(J) +WGHT(I)*(FCTN -XMN#(J))*(Y(I)-YMN#) 2190 FJ=FCTN 2200 FOR K=1 TO J 2210 JJ=J : J=K : GOSUB 3440 2220 FK=FCTN : J=JJ 2230 ARY#(J,K)=ARY#(J,K) +WGHT(I)*(FJ-XMN#(J))*(FK-XMN#(K)) 2240 NEXT K,J,I 2250 ' 2260 FRE1=NPTS-1 : SIG#=SQR2950 2930 ' *** INTERCHANGE ROWS & COLUMNS 2940 DET=0! : RETURN 2950 II%=IK(KK%) 2960 IF II%0 GOTO 2410 2380 A0=0 : SIGA0=0 : RMUL=0 : CHSQ=0 : FTEST=0 2390 RETURN 2400 ' *** CALC COEFF, FIT, & CHI SQUARE 2410 A0=YMN# 2420 FOR J=1 TO NTRM 2430 FOR K=1 TO NTRM 2440 A(J)=A(J) +R(K)*ARY#(J,K) 2450 NEXT K 2460 A(J)=A(J)*SIG#/SIGX#(J) 2470 A0=A0-A(J)*XMN#(J) 2480 FOR I=1 TO NPTS 2490 GOSUB 3390 :REM* CALC FCTN(X,I,J,M) 2500 YFIT(I)=YFIT(I) +A(J)*FCTN 2510 NEXT I,J 2520 ' 2530 FOR I=1 TO NPTS 2540 YFIT(I)=YFIT(I) +A0 2550 CHI#=CHI# +WGHT(I)*(Y(I)-YFIT(I))*(Y(I)-YFIT(I)) 2560 NEXT I 2570 ' 2580 FREN=NPTS-NTRM-1 : CHSQ=CHI#*WMN/FREN 2590 ' *** CALC UNCERTAINTIES 2600 CHSQ=CHI# 2610 IF MODE=0 GOTO 2630 2620 VARN=1/WMN : GOTO 2640 2630  0 KK%=NOR-L% +1 : JJ%=IK(KK%) 3270 IF JJ%<=KK% GOTO 3310 3280 FOR II%=1 TO NOR 3290 SAV#=ARY#(II%,KK%) : ARY#(II%,KK%)=-ARY#(II%,JJ%) : ARY#(II%,JJ%)=SAV# 3300 NEXT II% 3310 II%=JK(KK%) 3320 IF II%<=KK% GOTO 3360 3330 FOR JJ%=1 TO NOR 3340 SAV#=ARY#(KK%,JJ%) : ARY#(KK%,JJ%)=-ARY#(II%,JJ%) : ARY#(II%,JJ%)=SAV# 3350 NEXT JJ% 3360 NEXT L% 3370 RETURN 3380 REM---------------------------------------------------------------------- 3390 ' SUBROUTINE FCTN(X, I, J, JTRM) 3400 ' EVALUATE TERMS OF A POLYNOMIAL FUNCTION FOR REGRES 3410 ' X=ARRAY OF DATA POINTS, I=INDEX OF DATA POINTS 3420 ' J=INDEX OF TERM IN POLYNOMIAL, JTRM=ARRAY OF POWERS 3430 ' 3440 JEXP=JTRM(J) : FCTN=SIN(X(I)) : RETURN 1000 ' *** PROGRAM POLYFIT *** 1010 ' 1020 ' A DRIVER PROGRAM FOR THE CURFIT SUBROUTINES THAT WILL FIND 1030 ' THE PARAMETERS IN A GIVEN FUNCTION THAT GIVE THE BEST FIT 1040 ' OF A POLYNOMIAL TO A SET OF INPUT DATA. X & Y ARE 1050M=# OF COEFF., (DEGREE OF POLYNOMIAL + 1) 1650 ' MODE=+1 INSTR. WGHT(I)=1/SIGY(I)^2 1660 ' = 0 NO WGHT(I)=1 1670 ' =-1 STAT. WGHT(I)=1/Y(I) 1675 ' =-2 ARBIT. WGHT(I)=SIGY(I) 1680 ' YFIT=CALC VALUES OF Y, A0=CONSTANT TERM 1690 ' A=ARRAY OF COEFF. OF THE POLYNOMIAL 1700 ' CHISQR=REDUCED CHI SQUARE FOR FIT 1710 ' 1720 ' SUBROUTINES REQUIRED----- 1730 ' DETERM(ARRAY,NORDER) 1740 ' 1750 ' INIT SUMS & ARRAYS 1760 NMAX= 2*NTRM-1 1770 FOR N=1 TO NMAX : SUMX#(N)=0! : NEXT N 1780 FOR J=1 TO NTRM : SUMY#(J)=0! : NEXT J 1790 CHISQ#= 0! 1800 ' *** ACCUMULATE WEIGHTED SUMS *** 1810 FOR I=1 TO NPTS 1820 X1=X(I) : Y1=Y(I) 1830 IF MODE<>+1 GOTO 1850 1840 WGHT(I)=1/(SIGY(I)*SIGY(I)) : GOTO 1930 1850 IF MODE<>0 GOTO 1870 1860 WGHT(I)=1 : GOTO 1930 1870 IF MODE<>-1 GOTO 1900 1880 IF Y(I)<0 THEN WGHT(I)= 1/(-Y1) ELSE WGHT(I)= 1/Y1 1890 GOTO 1930 1900 IF MODE=-2 GOTO 1920 1910 PRINT" ERROR IN MODE SPECIFICATION" : RETURN 1920 WGHT(I)= S ' THE INDEPENDENT AND DEPENDENT VARIABLES RESPECTIVELY. 1060 ' 1070 ' PROGRAMMER: G. M. RESCH, FEB. 1979 1080 ' 1090 ' DIMENSION ALL ARRAYS HERE 1100 ' THIS VERSION IS SET UP TO HANDLE UP TO 100 DATA POINTS AND 1110 ' AS MANY AS 10 PARAMETERS. 1120 DIM X(100), Y(100), SIGY(100), YFIT(100), WGHT(100) 1130 DIM A(10), SUMX#(10), SUMY#(10), ARRAY#(10,10) 1140 ' 1150 MAXN= 100 : MAXP=10 'SET MAXIMUM # OF POINT AND PARMS 1160 PRINT " *** Program POLYFIT - G. M. Resch, Feb. 1979 ***" 1170 PRINT 1180 ' 1190 ' OPEN & READ THE INPUT DATA SET 1200 INPUT "Name of Input data set=";N$ 1210 OPEN"I",2,N$ 1220 FOR I=1 TO MAXN 1230 IF EOF(2) GOTO 1260 1240 INPUT#2,X(I),Y(I),SIGY(I) 1250 NEXT I 1260 NPTS=I-1 : CLOSE#2 1270 PRINT"THERE ARE ";NPTS;" DATA POINTS" 1280 ' 1290 ' INPUT THE MODE AND NUMBER OF TERMS. 1300 PRINT" MODE=+1 INSTR. WGHT(I)=1/SIGY(I)^2" 1310 PRINT" = 0 NO WGHT(I)=1" 1320 PRINT" =-1 STAT. WGHT(I)=1/Y(I)" 1330 PRINT" =-2 ARBIT. WGHT(I)=SIGY(I)IGY(I) 1930 XTERM#= WGHT(I) 1940 FOR N=1 TO NMAX 1950 SUMX#(N)= SUMX#(N)+XTERM# 1960 XTERM#= XTERM#*X1 1970 NEXT N 1980 YTERM#= WGHT(I)*Y1 1990 FOR N=1 TO NTRM 2000 SUMY#(N)= SUMY#(N)+YTERM# 2010 YTERM#= YTERM#*X1 2020 NEXT N 2030 CHISQ#= CHISQ# +WGHT(I)*Y1*Y1 2040 NEXT I 2050 ' *** CONSTRUCT MATRICES AND CALCULATE COEFFICIENTS 2060 FOR J=1 TO NTRM 2070 FOR K=1 TO NTRM 2080 N= J+K-1 2090 ARRAY#(J,K)= SUMX#(N) 2100 NEXT K,J 2110 GOSUB 2480 :' CALL DETERM 2115 DELTA= DETERM 2120 IF DELTA<>0 GOTO 2160 2130 CHISQ#=0! 2140 FOR J=1 TO NTRM : A(J)=0! : NEXT J : RETURN 2150 ' 2160 FOR L=1 TO NTRM 2170 FOR J=1 TO NTRM 2180 FOR K=1 TO NTRM 2190 N= J+K-1 2200 ARRAY#(J,K)= SUMX#(N) 2210 NEXT K 2220 ARRAY#(J,L)= SUMY#(J) 2230 NEXT J 2240 GOSUB 2480 : A(L)= DETERM/DELTA 2250 NEXT L 2260 ' 2270 ' *** CALC CHI SQUARE 2280 FOR J=1 TO NTRM 2290 CHISQ#= CHISQ# -2*A(J)*SUMY#(J) 2300 FOR K=1 TO NTRM 2310 N=J+K-1 2320 CHISQ#= CHISQ# +A(J)*A" 1340 INPUT"SPECIFY THE WEIGHTING MODE (+1,0,-1, OR -2) -";MODE 1350 INPUT"HOW MANY PARAMETERS? NTRM=";NTRM 1360 IF NTRM<=NPTS GOTO 1400 1370 PRINT"*** YOU MUST HAVE MORE DATA THAN SOLVE-FOR PARAMETERS!" 1380 GOTO 1350 1390 ' 1400 GOSUB 1760 'CALL POLYFIT 1410 ' 1420 ' SUMMARIZE THE RESULTS 1430 PRINT 1440 FOR J=1 TO NTRM 1450 PRINT"A(";J;")=";A(J) 1460 NEXT J 1470 PRINT"CHI SQUARE=";CHISQR 1480 PRINT 1490 PRINT"X(I)","Y(I)","YFIT","Y-YFIT" 1500 FOR I=1 TO NPTS 1510 YFIT(I)= A(1) 1520 FOR J=2 TO NTRM : YFIT(I)=YFIT(I) +A(J)*(X(I)^(J-1)) : NEXT J 1530 PRINT X(I),Y(I),YFIT(I),(Y(I)-YFIT(I)) 1540 NEXT I 1550 END 1560 REM---------------------------------------------------------------------- 1570 '*** SUBROUTINE POLYFIT(X, Y, SIGY, NPTS, NTRM, MODE, A, CHISQR) 1580 ' 1590 ' PURPOSE- MAKE A LEAST SQUARES FIT TO DATA WITH A 1600 ' POLYNOMIAL FUNCTION. 1610 ' 1620 ' X=INDEPENDENT VARIABLE, Y=DEPENDENT VARIABLE 1630 ' SIGY=SIGMAS OF Y, NPTS=# OF DATA POINTS 1640 ' NTR!(K)*SUMX#(N) 2330 NEXT K,J 2340 ' 2350 FREE=NPTS-NTRM : CHISQR=CHISQ#/FREE 2360 RETURN 2370 REM---------------------------------------------------------------------- 2380 ' SUBROUTINE DETERM( ARRAY,NORDER ) 2390 ' 2400 ' A ROUTINE THAT CALCULATES THE DETERMINANT 2410 ' OF A SQUARE MATRIX. 2420 ' 2430 ' ARRAY= MATRIX 2440 ' NORDER= ORDER OF DETERMINANT (DEGREE OF MATRIX) 2450 ' 2460 ' NOTE: THIS ROUTINE DESTROYS THE INPUT MATRIX 2470 ' 2480 DETERM=1! : NORDER=NTRM 2490 ' *** INTERCHANGE COLUMNS IF DIAGONAL ELEMENT IS ZERO 2500 FOR KK=1 TO NORDER 2510 IF ARRAY#(KK,KK)<>0 GOTO 2640 2520 FOR JJ=KK TO NORDER 2530 IF ARRAY#(KK,JJ)<>0 GOTO 2560 2540 NEXT JJ 2550 DETERM=0! : RETURN 2560 FOR II=KK TO NORDER 2570 SAVE#= ARRAY#(II,JJ) 2580 ARRAY#(II,JJ)= ARRAY#(II,KK) 2590 ARRAY#(II,KK)= SAVE# 2600 NEXT II 2610 DETERM= -DETERM 2620 ' 2630 ' ***SUBTRACT ROW KK FROM LOWER ROWS TO GET DIAGONAL MATRIX 2640 DETERM= DETERM*ARRAY#(KK,KK) 2650 IF (KK-NORDER)=>0 GOTO fou program i th librar provid th tool t perfor curv fittin a fou differen level o complexity Thes program ar named: LINFIT.BAS POLYFIT.BAS MOSTFIT.BAS ANYFIT.BAS an ar accompanie b .DA file tha ar t b use fo simpl testing The ar writte i Microsof BASIC Versio 5.0 Th routine ar reasonabl wel commente an explai th meanin o th interna variables Yo ma recogniz generi similarit betwee thes routine an th som o th function availabl i th IB Scientifi Subroutin Package Bevington' boo provide mor in-dept documentation. *** LINFIT.BAS Th progra LINFI wil determin th parameter o straigh lin tha bes describe you data Th onl decisio yo hav t mak wit LINFI i ho yo wan t weigh th data Th dat se labele LINTEST1.DA wa generate fro th function, Y(I) 2. 5.7*X(I) Whe yo ru LINFIT th firs thin i wil d  2710 2660 K1= KK+1 2670 FOR II=K1 TO NORDER 2680 FOR JJ=K1 TO NORDER 2690 ARRAY#(II,JJ)= ARRAY#(II,JJ)-ARRAY#(II,KK)*ARRAY#(KK,JJ)/ARRAY#(KK,KK) 2700 NEXT JJ,II 2710 NEXT KK 2720 RETURN  2690 ARRAY#(II,JJ)= ARRAY#(II,JJ)-ARRAY#(II,KK) CURVFIT.LIB I yo ar eve i th positio o havin t determin ho wel rea dat conform t som mathematica functio the yo wil fin thes program useful Th program i thi librar provid th basi tool t d thi job a leas fo case involvin singl independen variable Th rational behin th algorithm tha ar use wil b foun i th book, "Dat Reductio an Erro Analysi fo th Physica Sciences" b Phili R Bevington McGraw-Hil Boo Co. Ne York N.Y. 1969 Th boo i availabl i paperbac an i yo inten t mak us o thes routine urg yo t ge copy. Th basi concep behin curv fittin i ver simple I th cours o a experimeni reques th inpu dat se name I yo tel i LINTEST1.DAT i wil rea th dat fil fro dis (th currentl logge disk) Th dat fil wa simpl create wit a edito an consist o thre number pe lin separate b comas Th firs numbe i th independen variabl X(I) th secon numbe i th dependen variabl Y(I) an th thir numbe i th erro associate wit th measuremen o Y(I an i calle SIGY(I) Nex th progra wil as yo ho yo wan t weigh th dat b specifyin th mode Ente zer t specif MODE= whic mean tha al dat weight ar se t unit (equivalen t n weighting) I jus secon o th tw th progra the wil lis th intercep valu o 2. an th slop valu o 5. o th bes fittin straigh line Als liste ar th statistica error o eac paramete an th correlatio coefficien betwee th dat an th bes fi straigh line Lastly th progra summarize i columna format th inpu data  on ma collec se o dat point X(I) an Y(I) wher X(I i th independen variabl an Y(I i th dependen variable Usuall thes dat point contai som "noise bu on ma suspec tha i theory i relate t b a analyti function Y f(X) Hence fo ever poin X(I ther i correspondin valu Y(I tha i give b th formul f(X) Th functio f(X generall contain parameter tha w wil denot A(J) sinc ther ma b severa o them Th bes fi betwee th dat an f(X occur whe yo fin th value o A(J tha minimiz th mea squar deviatio betwee th calculate value YFIT(I) f(A,X an th dat Y(I) Thi i know a th techniqu o leas squares Wit th program i thi packag yo ca solv fo u t 1 parameter A(J) i an analyti functio wit u t 10 dat points Th numbe o parameter an dat point ca b extende i yo hav th memor an ar willin t wai fo th progra t d its thing Th!th bes fi dat (i.e th dat predicte b usin th recentl determine value o slop an intercept) an th differenc betwee th dat an th bes fi (i.e th residual) I thi cas ther i n dat nois s th progra recover th slop an intercep exactly Not tha th onl non-zer residua i a th roundof level. A secon tes create th fil LINTEST2.DA i whic "twiddled th value o th Y(I slightl t simulat nois an assigne sigm accordingly Th equatio tha wa use t generate th dat was, Y(I) 12. +7.3*X(I) Tr runnin th progra unde differen mode an not ho th "bes fit wil vary Yo wil no b abl t recove th value 12. an 7. exactl bu yo shoul com prett clos wit MODE=1 Lis th dat se an not whic dat poin ha th larges sigm an whic dat poin ha th larges residua i th fi summary *** POLYFIT.BAS POLYFI wil fi you dat t polynomia o t doe i hav t b linea i th coefficient (a i doe i MOSTFIT) B ver cautiou abou acceptin th statistic o th parameter determine b CURFIT particularl i yo ar usin weightin scheme Yo woul b advise t us Mont Carl schem t determin a estimat o th variatio i thos parameters A a exampl hav include tes cas tha i take fro Byt Magazin an wa describe i a articl title "Fittin Curve t Data" b Marc S Cacec an Willia P Cacheri (Ma 1984) Thi articl describe anothe algorith fo curv fittin an i anothe usefu too i yo hav th urg t "curv fit" Th functio use t generat th tes dat se CURTEST.DA i o th form; Y(I)= A(1)*X(I)/(X(I)+A(2)). Whe yo ru th progra tr NTRM= an MODE=0 Not tha th progra wil as yo fo th " priori" o initia value o th parameter an th delt value t use Thi i becaus th progra find th "bes fit b searh form, Y A +A2* A3*X* A4*X*X* +..... wher yo mus specif th orde o th polynomial I yo specif NTRM= th progra reduce t LINFIT Tr runnin i wit LINTEST2.DA an NTRM=2 Not tha i take bi longe t ru an instea o tellin yo abou th correlatio coefficien i no list ch squar - th goodnes o th fit A i an fittin procedur yo mus hav mor dat point tha parameter t determine Th dat se containe i th fil POLYTEST.DA wa generate wit th function, Y 3. +1.7* +0.5*X* -0.782*X*X*X Yo wil se tha rounde of th value o whe constructe th tes data A resul th progra doe no comput th exac parameter give i th precedin function I i shor objec lesso regardin th problem o limite precisio (don' forge th compute truncate i th 7t decima plac i norma singl precision). *** MOSTFIT.BAS MOSTFI i progra tha wil fi t chin fo th smalles valu o ch squared Thi i apparen durin executio a th progra loop an list th curren value o ch square an th interna paramete FLAMD (whic yo ca thin o a a invers gai parameter). hav use thes program fo th las 1 year o IB 360's 370's VA 11/780's an variou micro includin m homebre system The wor fo m bu sugges tha yo tes the thoroughl befor usin them Whe us the typicall us skeleto for o th progra an re-writ th drive containin th I/ par o th progra fo eac ne application als generat on o mor tes dat set (usuall wit know amount o noise i orde t tes th program. Th program enclose ar i BASI (Microsof Versio 5.2 whic i ver usefu fo smal dat sets I yo hav lo o dat t munc sugges yo ge th BASI compile - hav see speedup b factor o t 1 wit compile BASIC Bevington' boo lis functio tha yo mus specif i th subroutin labele FUNCTN Th formulatio mus b linea i th coefficient A(J) i.e i mus b o th form; y= A(1) +A(2)*f(x) +A(3)*g(x) +..... wher f(x) g(x) etc. d no contai th parameter A(J). I th tes dat se MTEST1.DA use th function, Y(I)= 3.2 + 0.75 *SIN( X(I) ) to generate the data and coded FUNCTN to be, FUNCTN= A(1) +A(2)*SIN(X(I)) Fo MTEST2.DAT use th sam functio bu se A(1)=0. an A(2) 2.0 Not tha NTRM= i thi cas an th residual ar a th leve o fe part pe thousand Thi represent th quantizatio leve o th dat - th poin a whic truncate th inpu dat set. ** CURFIT.BAS CURFI i th mos genera fittin progra i th librar an allow yo t specif th functio f(X i th subroutin calle FUNCTN Th functio doe no hav t b continuou bu i doe hav t b analytic i.e i mus b define everywher no"t th program i FORTRA II woul appreciat hearin abou an bugs/improvement o translation t othe languages plac thes program int th publi domai an gran permissio t SIG/ t distribut th file fo non- commercia us i appreciatio o th man fin tool tha have taken from the public domain over the past several years. George M. Resch 1514 Stephora Ave. Glendora, CA 91740 Telenet mailbox - RADMETRIC/DIV420/JETPRO May 1, 19850.0,3.2,1.0 2.0,3.882,1.0 4.0,2.632,1.0 6.0,2.9904,1.0 1.68,0.172,0.01 3.33,0.250,0.01 5.00,0.286,0.01 6.67,0.303,0.03 10.0,0.334,0.02 20.0,0.384,0.02 -2.5,-6.1,1.3 1.0,19.5,1.0 5.0,48.1,1.2 12.0,84.8,10.5 0,0.3,.001 1,1.98,.001 2,2.12,.001 3,0.58,.001 4,-1.21,.001 5,-1.62,.001 6,-0.26,.001 7,1.61,.001  tκl\u9::BwQg] _wo좛PYM(>݄: ݄ZB7݄ZnsPoM(_wo51_作Q+kTfFר(|aAraX _(|k Š)u%Զv vBmV[ j`w[ vj`wAmݭEm v6صj`זVm=ԛ6+1K\m˶66e6eim<ԛ6VԶ.Wm]sPo~`EmEm˙<ԛn4[-W0@74||l[AyXi>(gsPo^3 1sPo^3QҍZt#0;5:iJu޼FgXi[-W1kםzkL_TiVt nM-=no ?P;@)IxnMsKהý6\O6um{si`\ɺ.gBCGAGMl\ɬgBd~Gr#h]}ֿH60]}/H>A_AwI@+f}.'wSpG8\\ɵFgkmtd|Ŭ\E^Мnb><zp\gB0~Hܨ_AwI nrE^Мnk5~ O { ᶽA\#~-2.5,14.29,1.7 1.0,4.618,1.0 5.0,-73.55,1.8 7.0,-228.626,2.0 10.0,-711.8,2.5 12.0,-1255.7,3.0  -2, -9.1, 0.0 1, 8.0, 0.0 4, 25.1, 0.0 H:Yg=F[5N>zp>zpuW =F~H:[>zpFgBttd tbVCw4'82;Gr]p9ߧ1p}xp낫Yo>_k}~ Ov2 y*zeأb/Ud@TbݟKInwأb| H=.OT}_S)7QF/r})c]5{<Krf :f1hti6+ـw_[u9m}f=ij=wVckw87}VـK~)|A7J4u 2mg>Fߢ/:TWfckv}̹Җ2wVckv8 t΄^ɭ`drr< یN4ic7y}3d7v Ԯ.`dg[@m#n~wL㍾rݚ_7حw}ti[ o{xx<T'KJФSѮ$l((ܕ$7>b-Vt3gا >;_ck{x]U'~J_jQ`6:d7J @*Ivco|j'~} "R]p' %|}cphNxW/m||Lt%%e'u]Aw95e7˿}Gu㉟xOF WـlJ(5$ٍzd8'KJФ=/jy<\ DISKSTATMQCjDISKSTATCQM*EvDISKSTAT.MACk   "!$#%&'(*)+o,.-0/21345678:9;<=?>@ABDCEFGHIJKLNMOPQRSUTVWYXZ[\]_^`abcdefhgij,T`aK+.}Q( {xtcAKO}L9{]S ڌA 7S.u鍞=iDi?cܳ^ʬg`l: ښ9뱏LW<,f@㪁 7c]VOFd5[]lv;˝LnMW(.Xu_U:_RS{|97[յםz+2@@WҗZk}VՊl6@Jr[oAl" H*\" HIPfWr*T+ـd`WRWjE6lUםzY/֗*[ AyCam^Z.k[-WzuY\Y"AR#(kr7ewNMu^+7=S{|c~D>pNԷ l$-5lŔ\<>ߔMmAiD~)"rΊl6`DY+bPG?K/B$8#ژ-56weti&x$V=ٔ$QjRI+xӈS{x<e+l@u;I].)SFsvdzrmy2R2ӕ4ti)³" ȫ|F_>t3ה1HO9'wSpGzVd{cM7=VdV+ـdṋ>_>+ـ;)h$lpbl@LRWgGf\<\]X$&uUX}/}Vr_ycΥܥhl@2+~|.9r=VdɖI]V ˌWrs)w)㍾rzxcM7==u./.8Ơ)=5pDz 4>K)Շ^ə ',eNpHz9s.˟?eFXs.s@ʝrqhj򧫻)q6rsMK)O +uX ejg1?KEJrp2Ж9/p/?FcP͔dޠiNc<&h|Mm4`_;&E<ө˿{2圂܅џݚn{Ttus.9 N LK9dnb jXO+ حiiiio/5|XB7Qtus.Y;22/tcP/#v=vkmAoTx?ďH(x<7%B$xb[<K)ߔ 8N}Kx9&ʀ%~'^t]9c͙r]xNpM46˟.C䨁^Qm3n{ҟK/ie42Mـb5ڴEO2Dkm=sS٬͉ghw6zF=h|Mm45LxDZ(mRb&2+.ٔ 8c)g)t.<'8zM46ɿ{ִã\]MT=oc5 Ul;rSP=޶9/}(5{,7QMTg2&NJ./Snx=  c]p3bPnM#zt}͹n\/\]Mx|ߔMyx U.&<n \}GDyDOM=Y!'MS.xsCr=/OߧSs+w6e6z<#R&Jx<j-$ʺ~"[^<"gEDY{ߺx|dzrt%QPBLeVr]Po{x|}6L7pvŔ\afǚn{YZ_<@'uI 1gBackbp㉟2xOF WـlJ(5$ٍziD=\'D_w4x|yiD@ Ir>Y'ft a?~]@L"u)W{|<"'~V"Db;="yiDm3֜)7Q<^%QA9)D9H|_.eWr~O:瀔=h~1㉿)"ýAFr.<";="7HA7Y?"'DĿ.s@ʝ&yD_w4zDoncIrP~D_~/z|G,Ho"P-2I]R&m̙r9/;yX#`GV ݥF_{xxcM3cv}b7YN[xV<͝ck{xuM#z-\OM/MB!xӈ^Bo =<u_%ǛM#z %k$}fc42;nckg5V=<YĿOn㻔ї){ x7" װaw)K'}6e2ޡS/OmdUi o,2Ipg%;[j95ebJ.oѯf<"?#_B%'~(.X>uij='8MO|HEwI =oǚn=zA)s#nckg5zx<7% &w)/]S./Z$&uU(VѭN̊l6`ӊ?"e],X)~xf]I]G;2+ـM+OM gE6P}2ѷ6=_5l_" H*\jnweVdV<<`6:@٤\YLLF?_" شfnmox: M#O,MIR2RfizVO1g_=M/؅g<5Lx^ =_/zYCO%PGc}_5J +Dnw3Z p2zz='89ݍ:㉟I{<F]FOcǷxxcMv}b75=!m~E^+oj=Ƿxx4۰6x>nã wحifw'~eOF WـlJ(5$ٍzd8'KJФ=^Z^}>`E"PT*@E"x@E"PT*@ V*@EW,r_xcPvm˺]:5{<7% &=1SyHYĪyCr}5|8ҟK}@2g]sح滇?_ueOF WـlJ(5$ٍziD=<.Gx7jm+l@ud5+BڕxoJtօ"xSK.MkPg]sxoJt ,xS~x:ҟǛX{dQg]s}uﬧ#ux|Y tRug}g]Z^}>`t\<Ǡ7W͉:KJФ9աաUby.G>/}-o;ۡ {uT=.n\"ݦ^`oR{y_<_#x!+~1_HyDO"Dbu>Sѽ|ܥ xx|ďH==>qop_HyDϒ[ÿc]Fsp/0OMo/Y":{x<7e<<^EBu{x<7o/Y":uf'ǟKֿHN}@[>]gl#q9|K/aaG˜>\ďH=^N$G\}?: ga}ti J.p_OTw%Q<<:ʫOQ>4\g%8/b'~Dj{k%Kxxtjy/>Fѥ2'8+~){<#R^=vN$J:asKÐY:)w̹t_\.{|nwVrSR.x7ʺ~y|z|787'CYX>7%+!{zz)sA2m HM=>Y?"ߨr ;G͔i۳)=ј1d-_w4zD_w4z87'CYXP)_|S"Db'~_jO[x~1<"gE~1kʴ2 5y]{|C@[f䌈{y_xt<24xox|}ߧ>\<圕\0b<_㉿)"ǟKֿHN$[<<{x瀔լ^='8+)7Q<^^tumKOǂP+=vx uxax{OWٶ,qzU0,>/0,]}>ނa8Bx,OWٶ,qz*++=ɕ<e.~f'N=p3bF_nM&lOН~ά`5{xx쟟t՞tu=pUIW-LZ9']4=^Ϭ3k陵uZ`〔6Fchlmm4ƶ6Fchlmm4ƶ6{쟟ts&d.8N ts` *>gC: `9,=vO ohlmm4骝£IWmm4骝£IWmmxG4xqongz jw6,d _\k$Ve9O"mŪyxl"骇?"E7MďHi>Mxڊ=4? Z&g9Snxx<7%HM#R}erƚ3&?"%Hf{iD2#g9Snxx<#R"d[ǛFY}-3rƚ3&S"FM#R}erƚ3&S"FkǛF5@5gM'~DJl`Z}fhˌLďH>O{iD2#g9Snxx<7%X'Kb7KKֿH(Fߔ#H)|>29c͙r㉿)Grb7HkkΔ(okOǛF5@5gMOǛ-zH~϶%fl#8 '[>/8 'g>/0LzW]}YKgZPuRc](ׂ@H ض9g, Pc]W ~4#*cm[=WY?BIXוҿOj]Gɶ{k;]~3Y=HY笟m[M o]>ifk~Bk)xIWk[M o]>[5]{iŷGdc)S.K+WO#8aHx[VsKÐY:{s;]jjr9+o{x _SxSoyXn5}~Yn _3tVs~recΥ2]7s=>]ݧ-<^5֜)܅ǶE=_c}~{5cP͔=^EB _$tsAý/dݑO"b<4k ¿6m9@.e1f%PKH{<_|=y'~_jOo;k]{y_Fo*DOԋX!x|_c>#Rԋ<"'DOU~=/O"'~D)cIaM"DbǷyDϒ/"ug}|MIy{-P)`1`Ad#x HM&3OG_s1>xcPvmmKTٞܡ;2YY2ý/z9̜x|x|xRꧫpkj9 N4=|Mm45LX{<#e{\JthѬ^=|.ã$a>c͙p/h`WXs$ԧ.xiD/#q9Y.=\p/_] -z%7GxoJHy'~_j<_OXGsVrs@ʝ.kLƔsn/2|.Oֵ[<<$y>2)W J.p/tuz=~[LsR:2hH}z9[#q9"ۢSnx|y<#RaOֶǒ(_Hbdz"KH~Doح)Qp}j/e~i2Kg{\ob+xSuGoǛF􋄺5_7M#z u@ _@5gMO?"%Hf{<F=1?"u}໽K9 曲=jG;2OM>ߘ)ǟSy/os@x%ԶVc`w[Y"ol)YrmmǶVoTxӈ&^9_tn9Ж9c͙r'ďH>oOQkȍH~1nRvȬ=l'~ǛF4)}ss΁kΔ(O#V7Ǹy<#<"Ǹy -3xGD\OM!?K/ v~l=B~ \W0)ZiH3y=?ifi`zR: LOt͉YO f{I7kʉ!BY XLWʙtU~-`1]+k):'L`+mҊ/PY)]9 ו3kp]9cA(؂`B)W=$Pi3kp]9 וy'~DJQ/O"Oaq}$ފrFýAiȍHoy<< 3_eFXsDgxoJ|Vby<Ʀy<Ʀy<Ʀy&kyydj`3ylooЖ9c͙r-5m==Cwe4:y4ǞTI7`R0rg{~X+tt5>n&הC&"PY)]9 ו3kp]9)Zb*\WNRpucOVڤ_Rrf-`1]+gUrƂPfR{IINWgUrf-`1]+=|Tݺ,qp)'N|^Vݺp+m: lt/q_7=<)_Tz+DO#-ĉy<j-mv#R`Ƿxx<+|l|ji`lE&` >P;ddvIu%JFvny Vz<o"P'IWIWד ']t¤ LjqL Y3Z8Y[YWά&|@nZNyCq@Jmm4ƶ6Fchlmm4ƶ6Fchlm+=7X~6Iͬ,g%twRx dV&<*ԙMd 7|@nZYv!=4&'Sx4ƶ6tNѤv ƶ6tNѤv ƶ6{<o"P偛VD\q5k']VVr3ҕ TVJW++GXY9#PY)]9@et匰ry Vz<o"P' &`R]&W*(ԕ+TZvV0AN ʕN{<o"P'yluP3I7U kTl`ͻ6J%v& [q]y Vo5<^EBmrǶ. Th#xӈ^g]tJn9Ж9c͙rEY?"V~mJ_dVTTpNuGGuG?ǛF^>Kg{\<'8Jn9Ж9c͙rEYa<>Goo<f}*}MYQR9s@f-5 )Wz%7ghˌL"x|nM3{l얳Tٞܡ;2Y`EO*Hv: ו3kp]x>@{W[S(Ƕ.Hlҙue{]S pJKonM']']]O*tUzU VN*0IW3M*xfmϬ3y]Kmm4ƶ6Fchlmm4ƶ=Ϭ3k陵uZ`fmqfif-xFh3BPzFha&kRm4ƶ6Fchlmm4ƶ6F??GԤ[mXmXmXmXmXmXmXmXm:ص4gMjhlmm4ƶ6FchlMc pʤ*:2tslJ PJf%weR`9) F7!£IWMjhU;G)?[gY259cO˶vwx{mPN7?~z<ok;?~x>Nvznx;|m)}.|np}nãSs+UP/їioc[Gїꧫse2;="'~DJԨh,~1_Ԩh,V~~1nRƜ wjM+wY?"Ƿxxt[%_$r92m }?"%j}q{|G/j}q+DO|w)cR/<>GKF5&]/y<u.b.eYʜgᾔ <>GNyF5Ƌ\bQ7^b.eYʜtStwp[~Doح)C3Qwޥ39ҟHO uM 2kdddHfoح)㉿)_05LFB'~ OZ xiDng}HX >/TkVkVkVB%TB%}K=+x|nMYqޥ39ҟ'&ѥ^hݚB=<u_%ǛM#z uv H㉿)Q:_{_(DoKSFBǷxxqv Hlҙue{]S pJKonMOMɬaboT^&/H5LǛF\#i'~J#魖{<%_f)Ivd7Vxӈ>`Ƿxxx<+Hz VI+0I]H5||^:@Y@I&InTWXvx>`EOyړ']N*=骅IW+']t⤫&]>?άgf֕3křu=#\3B+URdglmm4ƶ6Fchlmm4ƶ=7X|@gȐtsmmmmmmmmmPgTy&KejCKXW)@E"PT*+xcPvSFﳽKgs֥?N uM 2MK+.5{x<7% &=1SyH#!kX57 vFB'~J#V=EkX5'~DҨѥ2'8J;41gg)㉟x⿊<_x?jMw9VA9;KO"Dbe{җQ4Ӵҟt_SN<>43fh}ªOҨ[(oy<#R4OUb5'~"=ǟoFtVskʉc{x<#R"F_SN =E4bi M#:}ѓ4]}=<_SN _=>TPk'~0Ki]"1j9R<_XN"f)=&B/j=+D rbܥj}f6m5Đ=9?_T~=E|Ūy<t$Z줁*xӈS{x,7QU7[/YOy<#e{|c~D 7Gy|c~D 7Gy|c~D ?_m_'D,ct)WO<9G/jI6?__ k΀=e664=ٔ$QjRI+xӈS{xiDb[<<<{h$jyxU~ҊLh=4UT( `6$J.`WRxTI?||~U{IW']0j夫Zt5Ӥgz=άgf֕3y V#$ďH>YoOM!?7PYu{xS.;JNRx?ZRd|[isi`cI>_w4zDOM=<^~ t7>]x%T%_ѩ>jOHo7@[f̆my&5й9-3rEǛF/[:xѓ uÍ7=8G_!oxӈSs+/Y!><.|T4xí949;E|E~=Q>z|O|w)SYn \<%_I6>2&Ĭ=07zM<_}h6 'CeX_w4zDOW=_#xg%B$xoz=^~ t<)G2'0HxsU<4oș 2#'Ljss6 A[f(b7-G_t'+nzpL#|CF}V<^Cq1F/}66gȯ!Ϊ~}֏|}p+m: l_/y|GO|w)SYn \<%_<^%QK9O|_4'N_W> aw_'~֙`6:.\ˁ4xӈS{dM>t3gGmck{x\H۷>2;O<7}yUSo1h:1'_'~tIe^a Jl`ǛF_U}t{x<_Ue:p*=T%y]R#(+ir]o|j'~/㉿f{K֟b>Y/xMژ3e-xx<+ЍZ^}>`d+5y݈5||^:@Y@#+#%1|@ V x>`E+U~ JeKdWkhmǧP#PY)-0y Vz<o"P' הC&lyFݶ|| %?)Z`TI7lMZm)TVJWNx*?pӗ-Ѩ۶P}>>J{<o"P'ݠKG_43hm[>Bɏ@et=7Xf&yS(Ox*?ifhmg>Bɏ@e=7X|@t]|;hmWVOGRrTI7ԛV.&yFݶ@J~*++'|@t+tStwp[wR(yFݶ)TVJWNx@E"PTz<X㍾rݚB=4:.YY\¤^ tG&##;WFJ6{nMOMɬaboT^&/ Ux4H[-x7JTgSFH%n%?9I]R&mxWAjyxU~ҊLh=4Ha2Ձ*52ٹ2R|@E"PTYCr}5{htfq.YY\rRx`kj_SN \)[S(S"`2k7{<4c0jO|fr'~+l@u6%nT =^O%%hFg}Xn\ܪo귮=^~ uqӗ=I5'~lȍH!"ȍH!"ȍH!xmߘߔ¿etun~>2r4G_[<^~ $㉿)"Ǜ/nxdZuGG(iGV}oJH)/Y"\<_#x\$rqE|^1-; 5{,gU>GK4=h[׳2ǝV.W<1?"o*D@rƚ3`unAM#:M+x<#R"d[SO%_$T招>2kt[isi`s@OZ x,r~[ S"b?7_B-|x1ȯK/:%__><:Oy<#e{iDߨ|K/m3eFN@l7(Qo[oEO. 7V}F6M#N}qx]><.ƗF/}66gȯҡG~Dkb>bޥL9g2JNRdz"K\><^%Q.nd<`Ow66Y'f푅Vx >۳ l9O$U"DbYo87ׇyDKorU<4oș 2#'Ljss6 A[f(b7-G_t'+nzpL#|CF}ydK.gy\/gU4xí949;E|E~=]Ϊ~}֏|}p+m: l_/y|GO|w)SYn &,H(<|9V˫V<`lE&UT(ԕ+T#+#%1|<T*@X=/w{Y{Wu_ݚn{Kה>ۻtf=g]s.]SfYýyt㉿)_05L/:YĪ>u1M9㉟[-x7JTgSFH%nM#Oᱏ5H{t7йrq}gi;>ִ"/U'~NV=ٔ$QjRI+xӈS{xgu{<ɬab~w)/]S.oZ_f,T@ ǛF㉿)_05LUx7jm_fʕ,7>ǟKֿH(}b=xA\bp}L[xFx-Ÿߔ$f >ώ&Kה;k/&VoTЕѕ+5@Y@o|j?7PGc}M#zŠp<0?_uo( 0PMI $B7>ǛFY/{x`E"PT>Cr+@E";ཬ=7X'x\صY( |<T*@V.m0/+VѹdN ӓ2}b'~֙`6:.\ˁ4xӈS{dMM_~ ͠sߔ/>gl=jOFI Yfʼ.Е4.7>>t3id:ʝї[igǚn=<)ݥQP(xGD\ɬb'~cI0OM=cj/YbrFG1wYY{,gidϒ/7Q2y|Ya 3_ďH5+=EBďHu.߇[iS9/})wnyiDxGuOԋX!xGD߇[i'/hSSoZ`E"PT|OPeF_M~=GG_c/&V`|25paOF`6:I].*@EziD=<YOW5'~`6:\*xӈS{yd:KO"ݺJ׿϶t:Mѥ4=+ـ6wPgcnWoу>- Ǵk4q}=<4߶~g9{]SLӃ:WOV"ݺOF 0P@ENRK%?97ݚ/Uݚo kmx.ok]pkjޥY\w˜uMֵ[^M#4lo[xx~(MUݚOF5'Ca<kȍH#RxoJHb?R"Db'~R%!{xv]W^3 ﳽKgs֥?YO uM 2M+K+.Yљ>ۻtf=g]s^ d9Y]:.^ ýLFFvlF{}wzκ2&;2ٹ2R=^3{lҙue*'5ĐΕ8Yo9-xEҐ0>OsQKVLW "w0r{fxaHſ> tQS*|Pb[Ϫ C* )֌XgUHUn-?^VyA9qW*xG#D<Ĩvw XwMΚM?Rov6g&"*.xp\ >k<8gf)Rv6,Y!6E)xp]7jzoǨu\QՎZZ|Tg /nՖ֯!@Q D6Es L35j_: kY6EL35j_: kY6PS}GesܬjRJUWJnIJr^)v]jp$g9RJzƿ&ܯ6K{:Fޯlg26 jC]kVZ|7Pu&m&/M4LEj{d6YaoahndJӸ=}2;# nuɝ'<[é-|f} ujdg SӚԓM8௅ z ujR24B;Om{ZѪ( !߿SW0Zj|7 2Gϼ]fgr-sL5åBfL9e3lկV޺HͲC̑K,pj_ eS&8c.m';va/՟tؼ.m©-_3/CL&aomѪ(a1e+|oܯ\7\L=ƣYɋnpa^oxWшNw>42הOM\V.<'85>m=.\Ztt@|Dwz<_{K|~I+UޚKvR\DISKSTAT.COM  !o#"%$'&2(*),+.-/1032456798;:<>=?A@BDCFEHGIKJMLNPORQSUTVWXYZ[\]^_6`abcdfegihjkl=nmo97O K-*p.3M%X 1;Jv]bVf}'&B@i_xq" /)80ADaLdjhmkzs~{ ԭZ55io;;#}+65 2FoX)XlZn.k0$gî2Ʈo+XlX75O0ϚMViX) 4ꕌl Jl~78RhKr nbzƿNjiw=_@|kҐznZ|oevG+aFyôL1ƥ0nKxk[뛽Uk{1ǝN}y׼koq1]_+Z/\;7:Đ{oC֫k^z/dez?@SU4h4 |GifT~(M5M{a&[0QY毇(stzANx {ḟ6"DQx0~1[*U ht+S=h)c1gXqb1yĖ%U-Ih~IdQQءV 4ت O|pP2HlptnUƾPqBZc7mzAn^w0)‚)b S0')xo_| 1k89=qNsz89=qNsz^+^bZ[A?>c>Z̼`@{?똏3=qNszLqg>zS1ř8McRUY*[UVURa +$E?IGQNUTYW[Zc\etgyu_ʹ[稛Lån♆_-CvCG|gcpT-wSMܑd[rj}ݕ:dRb6~$Nj+Du uLw\6#NIN}:T+DuX'I;!u;Ra Q!/c'~Ӎ7r>B'># Ծ-SIhfV8n6NbSft柜m6ɚ&"q "n[-Cvq\w]#}czo+ĺz_`9 G=*smwH{:]=ډ f;beĭmF\wNV޴Nw<{޴NZ]ڭ[- e6 Kkڙw1{o>I``wÉU띿gy,kFoOöiȬߜjy42kc 2L4?EcoLd?EBM{ЍA&( ݴ iA&!ѢQdNQ}ᓠv6!㱈uH omyEg !A$u))kF]F@&%.n8) /u}"_t;/wB|- aݼ:uލ_ ɻk`!I}7} ,웹tK[[L&qZڼpI%PL&qb_nkz7W( ea)ɚnS͘&YKhB&Hl$eͿ7erfR{j#G-Sfcy2~Y$_ĿO&t˿y>EFqQNv̂%F;ξLd/-gF#=ĢDZw}^VZ٪?{IntWKY7Wィ$țmuFڃQ*X C#O %RUY*[UVP*K)JUeoU[U^ Ƭzo^LXBkX+70 .ڛ[U膭{ZY*FtVtM;TܴM;TܴV1{?otK֘_a>箭ʳIR¬R¤,_ϒ¤{tzANx aZ^[k ckʏY1WEll9 !GNH8EQU^hJ$Z5NǤJUe9ŗ9ŗ0|s/_֩J s,<<pwK 0Oo>fJՙKS| KS|29Mʉ9NjYw=TܹбVhM 6X߆^qS),.0E Sxb [b Zol-Lׁsz89=qNszx/[.W_xO[<_ z{`ma89=qNsz89=0t/f;>;>;>k=u0]|89=qNszx\{3'w0b!^C a^큭:pg>zLqg>zLqg>zLqNKzscZc7m 01SX0]LQa0?-+[n u89=qNsz89=qNsz _Hb;>V ?z3k`f^큭:p89=qNsz1řS1řSi{y cZ8~lW;T$Z5N1~1뮇;7: 5: '{fׄ   2DUMP MQC*=vDUMP COM+zDUMP DOC1 vwDUMP.MAC?  "!$#%&'()*o+,-./0132457689:;=<>zҧӤ9|9ĝǿ&A}yG>C۵{^a G}d=\#zTF91 xi8rDW]?9a9"<U؟svgFnq5[ܮ+Q-Uc/ő۵zT%|5Et՚G ֘`6Y X568lL^HlD֣BUCdw>1q~`ECIvUȧp0;e=*?Bc 7‡$#M֣;Q /0D$#W֣"# iiZïkdwE& \k}tv"0R֣"3*R>e3#zTdwƮ>xٌ$;[֣"ÈHiLގw}1Zdw*Qݝp5~6ϵv#ڑD2v|l3#Gzp>5;=Oe1r9"]mP33y6AS}"Gd/#  -x :阫RUYJx¬GS"ѪqJ=f]¬*?fsTx/-OhߩH8H?QY3/U{alwZ"uKUe^Y^RUYJx¬R&HX"W, 2F&4*?f\, !GNJEՌ 6Y+U{͚Yw=TܹaOA r«(h\5szsc * {f^3_̺&BZfnNU$)IEoe[ +|\!F:b>0|o '*@5-"DQM^37^<;.fJՙKS| KS|29Mʉ9NjYw=TܹбVhM 6X߆^qS),.0E Sxb [b Zol-Lׁsz89=qNszx/[.W_xO[<_ z{`ma89=qNsz89=0t/f;>;>;>k=u0]|89=qNszx\{3'w0b!^C a^큭:pg>zLqg>zLqg>zLqNKzscZc7m 01SX0]LQa0?-+[n u89=qNsz89=qNsz _Hb;>V ?z3k`f^큭:p89=qNsz1řS1řSi{y cZ8~lW;T$Z5N1~1뮇;7: 5: '{fׄ [vl2?D/# Loc1?DC{Co{] 6.rD{+Qs`jr! ?V(qƲ]߿D &r )Z'm;w{#M#S+H*;?"G`jZI:JFuo|L(!v"Sv;J4]_{@>rG culm#\[Ç^9WOϸώe?q_5>)e4F}y}tv"9REUKF_v;E`pl7+h,vgrN`jZWiT1]`jZ!=UkL^H!k͑LG/OvZ:;@gb7R0±?GjW-"UTՖ8R0Bˑ@+zvy?DjDf}64n߻-\U4wnG4+|Ό:۾X ?;JCG;D֣;xG> c^O;JQB"S\A/_۸G {ٟr&?a7R0E`]5]/"S갿l6(!}v G/ prf)Z,t?^\A.;›c2"S\D {/v@@?4+|s8R0g~ڕ޽F ~ϑ@һWiH/ '*?RNr\B/69w2"G`W(\5o<#nM֣8WGG V( %OƲ]sØ%N`ꗅX{kj"}arG vD %O^H OWi5{ʸm_nׯlhrmHTavx>vm[ҲnQKdGx8Z#S|H]ݫ4ye׿-nQG)eavvy;hv"K"UTՖ}v o1r o8rDxqs}<_\}#G`ꗋHTavXjvvD V( {ٟHT/W8;%9a)3?GjJ^#S|H]ݫ4pya7R0|ڕ޽J]~ȾsG)Z,t?_VKc.oz{k'RoZAo.Wk'R0U(!42n^EjJ^Q.H/ %a޶#S갿o.w;\n_nׯlގk'Ro˯oGۍԮB.TQU[Z-5;\_>sЮUE ~Yݮ?RovxfxvH#UTՖ}v t4 Gj$Rn( f42(!vFC9u|qŸmw&mwfG3+QG ~L>'/ői^Q._dw]y"?v}H؟|Wc۝)*_52_#~yO|jvZDC/Ç9"yǑ#r#G$ve=Ƚە`<}zT{(zTvTHOY:(!zT{ٟGQBDE$%D֣>?QEtzT>X#G$?HG AE>XO})kSs#7WD{Tze=HTaG㎾46?#S/y=Gj5O7rDV|Ai9"]lhDUMP VERSION 1.0**** FILE NOT FOUND *** **** NO FILE NAME ENTERED **** **** NO RECORDS IN FILE **** !9"!Z:] !"\2|ͻ:!͘͘ͻ:*#"ñ!K!!,*͏!"">22*">2> ͣ> ͣ:2*~#"V:<29> ͣ:>2*"> ͣ> ͣ>|ͣ*~#"F:<2:<2[>|ͣ:<2͘͘ ͘͘͟!:a:V:?2:2>2! RECORD ADDRESS ~ ͣ#ͣ:a:a:a:\@ͣ>:ͣ!]~ /ͣ#>.ͣ!e~ Eͣ#~P R>.ͣ2> 2kl22kl:͉:͉:kC9"^#?"7cxEjsIF=oL^0naeP>c۝ɍ>:;@H9|%n>/Qxs]ƶ;裳9|%#FU`j>3Rv#S,ۍ>PH OW.ܡ\Lpl7Gjy*F ~Y8}",|@_zqˆ)*t۟keח\Z`ꗅcч?RHTDE)"RHTDE?R0B<@TD؍5;=3)Ƕ;\,"fgF?y crÇ~:rp=y6kmr+ň5rOGzڕ#iwH/ +]X#UTz] j/b+{{k'RoZAo.Wk'REU@jDQ֣ꗆ H]ݫ4yk݉Ա9"\yeƑÇFFzG֣L}l5.)w(vJ?+{F=oH/>GjJ^Q.cNd=,U4͗D V(HӨmcq&J`+X[+?Y% DY_\L?Rꙟ#UT璅7 _$RhWz*zvy}Dm[+H]ynfQ[z.Y J~kY% oU4MpF ~H]ݫ4yel݉LPݑQ._R-R0Օޤ֖"dQG/ pF ~YXʇͣ:0:ڔͣ> ͣ> ͣ _>2\2R>.ͣ2> 2kl22kl:͉:͉:k DUMP.MAC DUMP replaces the CPM provided hex dump program. The output is a formatted hex and ASCII display, with file name and sector count printed. DUMP is written in Z80 code for Microsoft Macro-80. hDUMP VERSION 1.0**** FILE NOT FOUND *** **** NO FILE NAME ENTERED **** **** NO RECORDS IN FILE **** !9"!Z:] !"\2|ͻ:!͘͘ͻ:*#"ñ!K!!,*͏!"">22*">2> ͣ> ͣ:2*~#"V:<29> ͣ:>2*"> ͣ> ͣ>|ͣ*~#"F:<2:<2[>|ͣ:<2͘͘ ͘͘͟!:a:V:?2:2>2! RECORD ADDRESS ~ ͣ#ͣ:a:a:a:\@ͣ>:ͣ!]~ /ͣ#>.ͣ!e~ Eͣ#~P R>.ͣ2> 2kl22kl:͉:͉:k]ϑ*ZZs»y/~{+{F=oHmkiTq3ύ,jKU%bA}?{Es»G/ k:v#GD&޽y^awϑÇ^9"IwUvqI.IwԮKR] FJ)QG ~HR] zT@һH#r#{*yW0*E{Tzq#S/ ;k_>s`P%_HUFC{yWD{Tze=HTaG㎾46?#S/y=Gj5O7rDV|Ai9"]l<^˫yCƨ\D+QG ~Yث?R~H:#u q6noׁH O=)zv])ea~iZF=oju`_*#~yEj(W/y=@һWi޶̸myEzT:v#G^jb!?ʵ9|%=\$]:0v?>"e=H6 49l+"厼-Vi<yeԮHUS] .sꗋFz G+{Ա9"]L}yyKOc2͘C9""QG ~OЮ5R0K @һH#rDޕ޽yoϑÇ^9"wwU*ūJiZ!RUD v]7Rhׇ45"~\4uxʎHUW4^ډLYJ/_[LrՈ! Gojv"U] jZv9|hĶf&rinter in two passes. After printing all the odd pages it halts while the operator cuts the paper and inserts it in the printer once again with the reverse side showing. After receiving the signal, the program then prints all the even pages. - Only PRINTDO sends output to the printer. The other programs merely create disk files, with extensions TWO, THR, or FOU. If they are then listed with PRINTDO, you get multiple columns on both sides of the paper. All programs assume 59 lines per page, and must be altered for other page lengths. PRINTDO accepts multiple file names and wildcard file names, so that many files can be printed on the basis of a single command line. All the other programs are restricted to a single specific file name for their operation. PRINTDO uses an output port for the printer; this arrangement may have to be changed if your system does not use a port, or if it does not use the same port. :: (ENCOL) TWOCOL.CNV :: (ENCOL) TWCOL.AQM :: (ENCOL) TWCOL.AQ6 :: (ENCOL) TH nENCOL HLP^#TWCOL AQM3gTWCOL AQ6M3TWCOL COM xTWCOL CMD oVTHCOL AQM4fTHCOL AQ66FTHCOL COM N&THCOL CMD FOCOL AQM7dFOCOL AQ6Q5FOCOL COM D@FOCOL CMD$PRINTDO AQM7ۓPRINTDO AQ6HSPRINTDO COMvPRINTDO CMD5ATWOCOL CNVT }THRCOL CNV] FOUCOL CNVh introduction twocol.cnv - disk file with two column listing twcol.asm - twcol.a86 - thrcol.cnv - disk file with three column listing thcol.asm - thcol.a86 - foucol.cnv - disk file with four column listing focol.asm - focol.a86 - printdo.asm - RCOL.CNV :: (ENCOL) THCOL.AQM :: (ENCOL) THCOL.AQ6 :: (ENCOL) FOUCOL.CNV :: (ENCOL) FOCOL.AQM :: (ENCOL) FOCOL.AQ6 :: (ENCOL) PRINTDO.AQM :: (ENCOL) PRINTDO.AQ6 :[end] [Harold V. McIntosh, 21 October 1984] v XTWCOL.ASMS  !#"%$'&)(+*,-/.0213456789;:<=@>A?BCoDEFGHIJKLMNPORQ  w]띯;ǢIO9Fe5?#= proU?c&~l|e!e,_ɋΝxry{ɵx䄻lѬ׈j?;2=fAK az1M׬1‡ ;qzsgS]z_0觽'}k~cCJ`'J6bßioK+2o;tޟp4u5ٹ}1>rO w]:>l;ϝ6cy'x?'@LL=22AuA qk~Jds1}1O kumpacV{ϝSb3>`jl=mGʫ|cۓ)NK4ÁAoZ !65Ն( wdVun x2ᮠPtP(oCV Y P|yW !m;?ǧhȊNK Y PZ.AwB@+O6 6I{Е翖>xOHTO6làn` DKO68byߥy_#!!q.?٨ℊMҾ|V6ߥy_?sF'TlaP7C.%$&?:Oi_>i~sz녘xzV!?h{J4u5~v#WpW%:=FBM'UTIϫ. a*o}; 7'UX$kLŷ ȊM %BҫL+4AM(A,s&>)lsvxjQğä0 Nac{ǃP d7 )0!bcy'rq #T:lm#T<j@gim ;i+Pmʝ'o>ߑ>Sk*'cUϝxF^NX--~Ro9aVh(E9L9fw<PnB]Їώln~㏼ƹc~p~TۇR=iVeXNS)0!bcy'rq #Tk)P`ʄ**`6Z!Pw,i]ϔZ/7?71pWk)Ҟ|s~s' DyoaB]*]{xF^~JHXX=SmJEnR}1}*>(0teB]A^ciVlsEަG;8%$k3lP5Pcj̐»ƙR^K|i/-\]Kt p#Wsg$T: llP\A磯g0f6[ٮȄ3P"T<]PT U]u3P5UPT wbkkB]wi5vgĆ<{ľ~g3=M]m~{tm5jˋEC1Cz5fHjP]llj̐BS%TvՅj̐BlW]BS%OH+3hޥ)!--LBg}vb3_BlW.BZJ~C~=}=)PY@?+y_PY@WK~1_BlW.jBC,+y_}/>'$t}=Ew|l+anXg}HC9eiz d3ASB7tG%BT^ڭAZ`3c$ %Tk)P`ʄCR! 3h_@S)0!bcy'rq #Tk)P`ʄ: JBSҼ-vi/Ⳁ񯴗}c~⛕ p.K>TV6IvOzP@'$\gZqK{ioq ws]ZҼEgjӓǘ唐^Z=:L|tD8ֳ8+la~}vb3_BlW.BZJ I;z RHⳀ8+la~}vb3_Bg񯴳]?x{6Bԇ^c^Vs `sʄ?߱|<@of~Si'"0!bcy'rq #$U~N<vJH>Tj@TJ; fXމ翼\BCOo*?w,_^].NaJy-$Bj̐Bc#Ԙ!=Cuaj̐B]: 6 tJH> BIxo:SvE&Ԙ!=$T<9p67Go^~4>{:~SBBT@V* Ol/XNv60߱yu8*(0teBBT " zXNv60߱yu8*(0teBy 0œ'Vh͗v[7>?w,*>3ڵǘNHk9k{}ƢƢ ӿwio'6% =v60K~ ǿwio* u"n ҊՎ;0+#Vh\W.%Tk)P`ʄC) gw|o_@v60߱yu8*(0teBB|C%feBkRiyb |~rB(Mx˫)P)@+j@{{|m ~ki3ڵǘNH8~ϴBCOy?Ҽ_Bg񯴳]j8v60K~;s'OH 8zǛ?w,?%$L3gqW.f~ J, >v60K~1_´z ,'TP}. llPc Ciq0-~ΔZ ziYaZ!PJig;WSR^KCW&ԘWP|2湪ť7wA P+4J--cVk#T@}[Ky5ծ=\uBu&P \ll`?x{zOOd#l@)XpU`ylla~cl=( .6 [g~/~@)XpU¹{|OOd#L~@)XpU`{F3Rbcy[I[$aO(Om,*`@)[ec~IOyvrYzǬ\ll ]3ct9^c'~z?GiqcVm,"(e;܉g,xV-BR6tb@|<@of~ wl~{NL=c&Y|zO?x'o;z :2<%$L}(l*R%ΕҞGo60߱P5UPY@O^ n"NO U]^dBLN: B][kL?%$54fH !TmJE%0oYgٮ\Ԅ3P"Te*/-_ӓoNon0bᮔR♥==N<#/'T:6'T<׷bM**ϬD12j+[U"T<׷,B\ Z/7?71pWk)Ҟ|s~s'~K}E-:z_okL'Ԙ!=J湾&OH-L5ەD(YPP UTX&B9Tu&Bݛuo"ԽP5ەL>M '1 XpU-BR6)|80vcm+[,"(ez7Ϫֶۜnc];r'S]zwV-BR1?#˷οc4f}={vc@i+`@)̫am;;]Vn+`@)c_]iKo1=V-BR#WG<;u,}k~αGxOS~_[ .6J/S؟>_3SNm,"(e;P zsؙ@Ti?L|gǟS $3 ^ۉ~ @Ti/~ M@ԉO,la~cy'rq #@Tig4@Tig4%ҼgQǹ]KXgQ~yowmgb3_O^@Ti?x_=xz DUH{1޵|- eP llPc Ciq0-~ΔZ ziYaZ!PJig;WSR^KCW&ԘvNTWCOL.A86V   !"$#&%'()+*-,/.o0123456798:;<>=@?ADBCEGFHIJLKNMPOQSRUT}o7 O!ٯ>"WD}Ztc":r&o6m;rq^Ss86` >6#r/oe[S )XV1$=u>FcZ4$xo'!٧Ss89#~-hپ m2Rr5w?4pÅ6jT*1bhwމW s*yhwމdk[sbn۱s/TsT¿Fh *dk]VsbeՒOgNoi^Qn1P>IZ#~˶-h?f2}j'!Na1”lx!liHI;Q1$DOIZl_֚g72<J `SUPFe~پ m2OkWyBDyx؆{!{aT7_5OVP4w;BDOIZGelKj(|bSsw*dk]CM9J_3Ʌm͓7Z5o1P էLra[&M֕Ul1H!6G)[UFoz|~b92ޏJx){Rɯh ZPkMUCM}`4"WǏ٧B9ZSOC7[ڪIj^?7TBk40Uhr3i+=m7ĿUY¿ ?f$Gӭl_SuvPCd{m"ciz_lnj(|lMw,M:~͆I9C:mRK*Uhm=%7ZPd{m"C:mRUhm= Pd{m"C:mR7vlMwr{YwH'iZ?ݖ-`Q^n_&&}T [ 5A&$ql#^i]i.cd؂?NX'=01Te^#u{s$1~->MY*N͑r/ NC0=NܶX&YMss/ ɞ1>o7.l q쀫k߁9ɓlâ#9`h97+8oTNi]COg/;*7Q1$De7\}`rNC::ܽ=vHvvrbjG؉l7-U2QVV>iH*eP}T bHt>dy,N Od)kcpx"oG O}{}G,>o}HI|D>\p,}}:#`߱4]kD`S 'L; I+{{{}{-y;<0!9z$IZ^6 8 oNxOdp,F֛n{a`VrŐnw}Xvr;I_p=Fo7-pdtOt6>N~dK˵adr/LcSRi`w2M_KGv^w҉YہRNko!8z+=o7S|paK><= 2ͱaJ‡Tzv1Үs^-f)%RwJ) S7 z^Hy"I|NKa7tb\-J^X; ~ϥO"|j$p?aS.)-~'^[ 5FÙ~Ƕטb CM^ yT23!⧘b CM^ yT' q8/~Jb+=Oz/<*mGU

p59uo ;trbjؼ,pp=}ďUhc>sOM{ZnW=t'(7<7ĿB40'7u`hG/P&}Znn1 gB_wyr9HHgu_s3<))mGſ&}ZJtOnn1 gB_*< b0΄;@s'Uhm=r3 =-7{rs&wh8͝_`~mv%\Ozs81Gs{7MT}\Ozp}C7i'[,/ ^?tl1${onX~gcjj>½ŏ٧f."~ l_6:#b,ĥ4a1!'iux$vb_5c": 1҇m KT-1қm/elXby=F[!=juMM- IyX_63b m3}ڶ7wZjďYxDe7\}lo'L|4wĨl_6ճt[ 5\ mk*Dt?l#c CONWI N[sOk+_~ WmXNE<#rJ#ր^P#ru^z+PV޵ \O[jt5^ u-}ZKAN[w O\}vZWMR7000ONWI?}dWWMTBaN[oi*# ?fK6hmGF#rާ;l`4"Wď_6ճ$-i#ru*yiT$2Fꓴ:j¿VǿB$CqIx[:}r0΄;IY'Uh5=U4