ZXTape! 0Created with Ramsoft MakeTZXSYS-AMA-1 GFGR(N)=0:S(Np)=0R:C(Np)=0P:I(N,A$K,B$))=0B:A(N,N)=0b:K$(NN)=N,N=0:N)=0-:O(NN)=N,N=0:N)=0Y:X(NN)=N,N=0:N)=0P:C$(N=0:N)=0:N(C$Bg)=0:H$(N)=0:D(H$j)=0:U$(S$,F,N)=0:S$(N,S$)=0:P(N\)=0:B$(N )=0x:T$()=0:M$()=0:V(NB,N)=0k:M()=0-0:F()=0::U(@$B$)=$,@$=0:$)=0:L(N,@$)_)=0k:Z$(N,A$)=0:E(N)=0:T()=0@:0 R10 : SYSTEM >>AMA.01 OPRACOWAL J.Korytkowski 1988   Wrt:,;ܼ;"SYSTEM";16;"AMA.01";31;" ":ٰ"7":"":ٲ:584193 粧:"23693","71":  MENU dEDYTORB$,D,S,E,W i D="1",S="31",E="127",W="0" nA$,A pB$="" x "_";8; n2;4;2,579;("C.LOCK"ƨA(23658j\,8));(" "èA(23658j\,8)) A$:A=A$ A="7" 0A=8" ";S$("1"+B$,12 );:B$="" D(A=12 ƱB$>0)A$;"_ ";°"8";°"8";:B$=B$((B$-"1")) (A>SAD) A="7"B$="#" WB$=""120x  , SYSTEM Q 6QN:QN=0,Q="Q-1" T8QN=QN+"1":"6000+Q*200+QN":23692\,"255"::A$ r(A$("1")-34");700,400,500,600X,650,660,666,340T,680,675,687 " Podaj ";A$("2"):P$=A$ oR$,S$,T$,U$,V$:" ";R$;" [";S$;"] =(";T$;")= <";U$;";";V$;">";S$((U$+V$)+16,°"8");  EDYTOR A$,"10",44,,58::A$<"36"A$=T$:"6"+(Q+Q)+U$("00",QN)+""+34"+P$+34"+","+R$+","+34"+S$+34"+","+A$+","+U$+","+V$ :A$V$" ";S$(A$+"1",12 );:425 "440"+R$+"="+A$ GB4=30 " ":340T 26100+(Q+Q)*100d+A$("2"):340T b7R$,V$:" ";A$("2")'" ";R$;" = ";R$;" [";V$;"]" l 340T 0" ";A$("2");:A$(A$)"/":12 ;  340T $" 1- ";A$("2");:A$:" 2- ";A$ A:A>"2"662 A="1"340T K:QN=QN+"1":"6000+Q*200+QN":A$:A$("1")=")"A$("1")="*":340T  ENT:340T R$,S$,T$,A:A$("2")'" ";R$;"=";R$;" [";T$;"] ";:(A="1"ưR$>S$)"> ";S$;"=";S$;" O.K. !":Aɰ"2"" ";S$;"=";S$;" ZLE!":װ"1",-20 d(A="2"ưR$ ";S$;"=";S$;" ZLE !":װ"1",-20  340T  ENT::340T  ENT:MENU1 (Q+1),"1":  MENU *:9000(# ,"2":"2";" MENU:" 4E::"8";''" 0.- MENU BIS"'':N="1"̰"5":'"8";" ";N;".- "; 5D"5800"+N*200:A$:A$()="!""7","8";ް"2";A$("2"): 9N HHOPC:EDYTOR A$,"1",47/,557,1:A$"#"Q=A$:840H JQMENU1 Q:MENU2 L NMENU2 P:"2":"2";" MENU BIS":''"8";" 0.- MENU"'''" 1.- NAGRANIE BLOKU"''" 2.- WGRANIE BLOKU"''" 3.- NAGRANIE SYSTEMU"'' U=OPC:EDYTOR A$,"1",47/,546,"1":A$="#"853U V'A$="1"872h:A$="2"882r WA$="3"MAGNET: MENU Y MENU hc:OKMAG:"Podaj nr bloku do nagrania:";:EDYTOR A$,"1",480,546,:A=A$,X="5800+A*200" j_''"CHWILECZKE...- kilka efektow ubocznych"::ٲ::* XX+98b7000X1:OKMAG k8* X+100dX+19871001::OKMAG lA:ٰ"7":"Podaj nazwe (max 8 znakow):";:EDYTOR B$,8,,,"1" nM7000X7200 ;B$:"7200":6000p7200 :׼,20:MENU2 r OKMAG:"Podaj nazwe bloku,ktory chcesz wgrac:";:EDYTOR A$,8:" "'"Podaj numer pod ktorym mam umiescic ";A$;":";:EDYTOR B$,"1",480,546,1:" " tw'"Wlacz magnetofon i czekaj...(4s po wgraniu)":P1=5800+B$*200,KP=P1+100d,K2=KP+99c:A$:P1K2 vO0:7000X7099P11::71007199KP1 xK2+""::7::MENU2  MENU2   MENU1 Q,QC QC=0:A$,B$,N,A::"2":"2";" OPCJE:":''"8";" 0.- MENU"'''" 1.- Realizacja programu"''" 2.- Lista zmiennych" @OPC:EDYTOR A$,"1",47/,513,1:A$="#"905 FA$ưA$<"3""2":"5800"+Q*200:B$:"2";" ";B$("2"): A$="1"SYSTEM Q  A$="0"MENU QK=2:"920":940 #QK;"DANE WEJ.:":N=0 ]:"5800+Q*200+N":A$("1"):A$("1")="$"A$:#QK;" ";A$;" = ";:A$,A:#QK;A;" [";A$;"]" #N=N+"1",A$=A$+" ":A$("1")="#" QC=0940 #QK;"DANE WYJ.:":N=0 ]:"5800+Q*200+N":A$("1"):A$("1")="&"A$:#QK;" ";A$;" = ";A$;:B$:#QK;" [";B$;"]" DA$("1")="+"A$:#QK;" ";A$;" = ";A$;:A$,A$:#QK;" [";A$;"]" N=N+"1":A$("1")="#": Q#1;"WYDRUKOWAC (T/N)?":A$:"":A$="t"A$="T"QK=3:"970":"920"  ENT:MENU1 Q,QC: O#1;"DRUKARKA STAR / ZX PRINTER ?":A$:"":A$="S"A$="s":/10  -OPC:17,"4";"PODAJ NUMER OPCJI:";: 9ENT:#0;0,"4";"NACISNIJ ENTER":0: 2OKMAG::"2":"2";" OPERACJE Z MAGNETOFONEM"  9000(#  p "!STOL" q*"'Program opracowal Jaroslaw Raczkowski" rc"'Program sprawdza wymiary stolu.Obciazony jest on momentem zginajacym pochodzacym od sily nacisku tloczni.Do wyboru sa dwa typowe przekroje.Obliczane sa naprezenia po stronie sciskanej i rozciaganej. Porownywane sa z naprezeniami maksymalnymi ktore trzeba podac dla sciskania i rozciagania." s"-" t?"$rozstawienie slupkow",LB4,"mm",440,1,1000 u@"$sile nacisku tloczni",QB4,"KN",62.5z,1,1000 vm"$w jakiej odleglosci od srodka stolu chcesz sprawdzac przekroj",LBX4,"mm",60<,0,500 wR"$naprezenia dopuszczalne na rozciaganie",KBR4,"MPa",480,1,1000 xQ"$naprezenia dopuszczalne na sciskanie",KBC4,"MPa",131,1,1000 y"-" z"%01" {"-" |>"$szerokosc na gorze",BBG4,"mm",530,1,1000 }="$szerokosc na dole",BBD4,"mm",220,1,1000 ~4"$wysokosc ",HB4,"mm",105i,1,1000 2"$grubosc ",GB4,"mm",30,1,1000 "%11" w"+SBR4-Najwieksze naprezenia po stronie rozciaganej KBR4-Dopuszczalne naprezenia",SBR4,KBR4,"Mpa",2 t"+SBC4-Najwieksze naprezenia po stronie Sciskanej KBRC4-Dopuszczalne naprezenia",SBC4,KBC4,"Mpa",2  "#1832" Blok obl.206 j"150","100":"60","0":"0","-8":"-15","-15":"-30","0":"-15","15":"0","8":"180","90" װ"150","50":"60","0":"0","-8":"-10","0":"0","-15":"-8","0":"0","15":"-24","0":"0","-15":"-8","0":"0","15":"-10","0":"0","8":"180","46" ""7","5";"Przekroj-";ݰ"1";"1" #"13","5";"Przekroj-";ݰ"1";"2" ."17","5";"Podaj ktory przekroj wybierasz" NB4 NB4>"2"6104 ;17,5;"Wybrales przekroj Nr ";NB4;" "  Blok obl.207 VLB4=LB4-2*LBX4,GB4=GB4/"1E3",HB4=HB4/"1E3",BBG4=BBG4/"1E3",BBD4=BBD4/"1E3" NB4;6120,6117 !SBC4>(SBC4)SBC4=(SBC4+"1") !SBR4>(SBR4)SBR4=(SBR4+"1")  EB4=("2"*HB4^"2"+BBG4*GB4-"2"*GB4^"2")/("2"*("2"*HB4+BBG4-"2"*GB4)),IBX4=(BBG4*EB4^"3"-(BBG4-"2"*GB4)*(EB4-GB4)*(EB4-GB4)*(EB4-GB4)+"2"*GB4*(HB4-EB4)*(HB4-EB4)*(HB4-EB4))/"3" d SBC4=QB4*LB4*EB4/("4"*IBX4),SBR4=QB4*LB4*(HB4-EB4)/("4"*IBX4),SBR4=SBR4/"1E6",SBC4=SBC4/"1E6"  EB4=(HB4+GB4)/"2"-(((BBG4-BBD4)*(HB4-GB4)^"2")/"12"+BBG4*GB4*HB4/"2")/((BBD4*(HB4-GB4))+((BBG4-BBD4)*(HB4-GB4)/"2")+BBG4*GB4) *IBX4=BBG4*GB4^"3"/"12"+BBG4*GB4*(EB4-GB4/"2")*(EB4-GB4/"2")+((BBG4-BBD4)*(HB4-GB4)*(HB4-GB4)*(HB4-GB4))/"2"+((HB4+GB4)/"4"-EB4)*((HB4+GB4)/"4"-EB4)+(((BBG4-BBD4)/"2")*(HB4-GB4)*(HB4-GB4)*(HB4-GB4))/"36"+(BBG4-BBD4)/"2"*(HB4-GB4)*(EB4-(HB4+4*GB4)/"3")*(EB4-(HB4+4*GB4)/"3") cSBC4=QB4*LB4*EB4/("4"*IBX4),SBR4=QB4*LB4*(HB4-EB4)/("4"*IBX4),SBR4=SBR4/"1E6",SBC4=SBC4/"1E6"  RYS ?"60","40":"24","0":"0","-12":"-24","0":"0","12" ;"72","5":"0","10":"2","-2":"-4","0":"2","2" d"62","38":"-40","0":"0","-8":"40","0":"82","38":"40","0":"0","-8":"-40","0" LI="0"̰"5":"72","48"-I*"6":"0","-2":I:"8","8";"80","20";"Q" ذ"190","34","5":ذ"190","34","12":"182","38":"-40","0":"0","-8":"40","0":"198","38":"40","0":"0","-8":"-40","0" ^"185","50":"10","0",-:"2","2":"-4","0":"2","-2":"8","8";"205","55";"Ms"  7 8 "!BELKA GORNA" 9*"'Program opracowal Jaroslaw Raczkowski" :"%01" ;"'Program umozliwia sprawdzenie belki gornej tloczni.Mozliwe jest liczeni w jednym przekroju lub w kilku z zadanym krokiem./" <"'Przekroj belki moze byc staly lub liniowo zmienny wzdluz dlugosci.Belka obciazona jest sila nacisku i momentem, ktore powoduja zginanie w dwoch/" =}"'plaszczyznach.Sile tnaca pominieto jako mala.Belka liczona jest osobno dla strony sciskanej i rozciaganej/" >"%04" ?"-" @A"$rozstawienie slupkow",LB3,"mm",400,1,1000 A@"$sile nacisku tloczni Q ",QB3,"kN",5,0,1000 BN"$moment oporu gwintu w nakretce Ms",MBS3,"Nm",1000,0,5000 CE"$srednice zewnetrzna piasty",DBZ3,"mm",100d,1,500 Dj"$naprezenia dopuszczalne dla materialu belki na rozciaganie",KBR3,"MPa",79O,1,1000 Eh"$naprezenia dopuszczalne dla materialu belki na sciskanie",KBC3,"MPa",87W,1,1000 FJ"$w ilu punktach chcesz sprawdzac belke",NB3,"",1,1,10 Gh"$od jakiej odleglosci od piasty chcesz zaczac sprawdzac belke",OB3,"",502,0,1000 Hp"$co ile chcesz ja sprawdzac (jesli w jednym punkcie podaj 0)",CB3,"",0,0,500 I"%07" J"-" K"%20" L'D$,HBP3,H$,70F,1,200 M'F$,BBP3,H$,70F,1,200 N'G$,GBP3,H$,70F,1,200 O'Z$,HBK3,H$,40(,1,200 P'W$,BBK3,H$,40(,1,200 Q'X$,GBK3,H$,40(,1,200 R"%25" Sw"+SBR3-Najwieksze naprezenia po stronie rozciaganej KBR3-Dopuszczalne naprezenia",SBR3,KBR3,"Mpa",2 Tt"+SBC3-Najwieksze naprezenia po stronie Sciskanej KBRC3-Dopuszczalne naprezenia",SBC3,KBC3,"Mpa",2  "#2855" #Blok obl.201. Stol i belka gorna. 4D$=" ",F$=" ",G$=" ",Z$=" ",X$=" ",W$=" ":"50":  ,Blok obl.202. Obl.belki - wybor przekroju.  RYS  Blok obl.203 !:"1","15";"Przekroje belki" w"2","1";ݰ"1";"1";ݰ"0";"-Prostokat":"80","135":"16","0":"0","-16":"-16","0":"0","16":"88","127" E"5","1";ݰ"1";"2";ݰ"0";"-Kolo":ذ"88","104","8":"88","104" "8","1";ݰ"1";"3";ݰ"0";"-Dwuteownik":"80","88":"16","0":"0","-2":"-7","0":"0","-12":"7","0":"0","-2":"-16","0":"0","2":"7","0":"0","12":"-7","0":"0","2":"88","80" "11","1";ݰ"1";"4";ݰ"0";"-Teownik":"80","64":"16","0":"0","-2":"-7","0":"0","-14":"-2","0":"0","14":"-7","0":"0","2":"88","56" "14","1";ݰ"1";"5";ݰ"0";"-Ceownik":"80","40":"16","0":"0","-16":"-2","0":"0","14":"-12","0":"0","-14":"-2","0":"0","16":"81","32" 5"17","5";"Podaj ktory przekroj chcesz sprawdzac" "150","90":"2","-2":"-4","0":"2","2":"0","-30":"30","0":"-2","2":"0","-4":"2","2":"135","100";"Mgy=Ms*lx/(2*l)":"170","55";"Mgx=Q*lx/4" PB3 PB3>"5"6313 ?"17","2";"wybrales przekroj Nr ";PB3;" "  Blok obl.204 5PB3ɰ"2"D$="$wysokosc przy piascie",F$="$szerokosc przy piascie",Z$="$wysokosc na koncu belki",W$="$szerokosc na koncu belki":D$="$srednice przy piascie",Z$="$srednice na koncu belki",F$="$"+°"8"+°"8"+°"8"+°"8"+°"8"+°"8"+"Nacisnij ENTER",W$="$"+°"8"+°"8"+°"8"+°"8"+°"8"+°"8"+"Nacisnij ENTER" PB3="1"PB3="2"G$="$"+°"8"+°"8"+°"8"+°"8"+°"8"+°"8"+"Nacisnij ENTER",X$="$"+°"8"+°"8"+°"8"+°"8"+°"8"+°"8"+"Nacisnij ENTER":G$="$grubosc przy piascie",X$="$grubosc na koncu belki"  H$="mm":"6"+(Q+Q)+"20D$,HBP3,"+"H$"+",70,1,200":"6"+(Q+Q)+"21F$,BBP3,"+"H$"+",70,1,200":"6"+(Q+Q)+"22G$,GBP3,"+"H$"+",70,1,200":"6"+(Q+Q)+"23Z$,HBK3,"+"H$"+",40,1,200":"6"+(Q+Q)+"24W$,BBK3,"+"H$"+",40,1,200":"6"+(Q+Q)+"25X$,GBK3,"+"H$"+",40,1,200"  3Blok obl.205. Obl.belki - procedury obliczeniowe. R(10 ):C(10 )  J="1"NB3 LBX3=LB3-DBZ3-OB3*"2"-CB3*(J-"1")*"2":HB3=HBK3+LBX3/(LB3-DBZ3)*(HBP3-HBK3):BB3=BBK3+LBX3/(LB3-DBZ3)*(BBP3-BBK3):GB3=GBK3+LBX3/(LB3-DBZ3)*(GBP3-GBK3):MBS3=MBS3*LBX3/LB3 =PB3;6341,6339,6344,6348,6352 J SBR3="0",SBC3="0"  K="1"NB3 R(K)>SBR3SBR3=R(K) C(K)>SBC3SBC3=C(K) K !SBR3>(SBR3)SBR3=(SBR3+"1") !SBC3>(SBC3)SBC3=(SBC3+"1")  kR(J)="32"*(((QB3*LBX3/"4")^"2")+((MBS3/"2")^"2"))/(*(HB3/"1000")^"3"),R(J)=R(J)/"1E6",C(J)=R(J)  HB3=HB3/"1E3",BB3=BB3/"1E3" \R(J)="3"*QB3*LBX3/("2"*BB3*HB3^"2")+"3"*MBS3/(HB3*BB3^"2"),R(J)=R(J)/"1E6",C(J)=R(J)  .GB3=GB3/"1E3",HB3=HB3/"1E3",BB3=BB3/"1E3" ɒIBX3=(BB3*HB3^"3"+(GB3-BB3)*(HB3-2*GB3)*(HB3-2*GB3)*(HB3-2*GB3))/"12",IBY3=("2"*GB3*BB3^"3"+(HB3-"2"*GB3)*GB3^"3")/"12" OR(J)=QB3*LBX3*HB3/("8"*IBX3)+MBS3*BB3/("4"*IBY3),R(J)=R(J)/"1E6",C(J)=R(J)  .BB3=BB3/"1E3",GB3=GB3/"1E3",HB3=HB3/"1E3" EB3=((HB3^"2"+BB3*GB3-GB3^"2")/(HB3+BB3-GB3))/"2",IBY3=(GB3*HB3^"3"+(HB3-GB3)*GB3^"3")/"12",IBX3=(BB3*EB3*EB3*EB3-(BB3-GB3)*(EB3-GB3/2)*(EB3-GB3/2)*(EB3-GB3/2)+GB3*(HB3-EB3)*(HB3-EB3)*(HB3-EB3))/"3" ΑC(J)=QB3*LBX3*(HB3-EB3)/("4"*IBX3)+MBS3*GB3/("4"*IBY3),R(J)=QB3*LBX3*EB3/("4"*IBX3)+MBS3*BB3/("4"*IBY3),R(J)=R(J)/"1E6",C(J)=C(J)/"1E6"  .GB3=GB3/"1E3",HB3=HB3/"1E3",BB3=BB3/"1E3" EB3=("2"*HB3^"2"+BB3*GB3-"2"*GB3^"2")/(2*("2"*HB3+BB3-"2"*GB3)),IBY3=(HB3*BB3^"3"-(HB3-GB3)*(BB3-"2"*GB3)*(BB3-"2"*GB3)*(BB3-"2"*GB3))/"12",IBX3=(BB3*EB3^"3"-(BB3-"2"*GB3)*(EB3-GB3)*(EB3-GB3)*(EB3-GB3)+"2"*GB3*(HB3-EB3)^"3")/"3" ҏR(J)=QB3*LBX3*EB3/("4"*IBX3)+MBS3*BB3/("4"*IBY3),C(J)=QB3*LBX3*(HB3-EB3)/("4"*IBX3)+MBS3*BB3/("4"*IBY3),R(J)=R(J)/"1E6",C(J)=C(J)/"1E6"   "!SLUPEK" "'Program opracowal: B.K." "'OPIS PROBLEMU" n"'Slupek jest z jednej strony zakonczony cze-scia gwintowana o srednicy mniejszej niz sred-nica oparcia./" t"'Czesc gwintowana jest wkrecona w gwintowanyotwor plyty, lub przelozona przez otwor w plyciei napieta nakretka./" "'Druga strona slupka jest swobodna i mozebyc obciazona sila wzdluzna (rozciagajaca) orazmomentem od sily poprzecznej (zginajacej)." "," "'Wymiary srednicy rdzenia gwintu oraz sred-nic wewnetrznej i zewnetrznej oparcia winny byctak dobrane by przy napieciu wstepnym w rdzeniugwintu nie przekraczajacym wartosci dopuszczal-nej naciski na powierzchni oparcia w stanie ro-boczym (po przylozeniu sily rozciagajacej i mo-mentu gnacego) w zadnym miejscu nie spadly dozera ani nie przekroczyly wartosci dopuszczalnej" O"'Wartosci obliczanych wymiarow programzaokragla w gore do pelnych mm."  "-"  {"$wartosci naprezen i naciskow dopuszczalnych (zaloz, ze sa jednakowe)",K,"MPa",200,502,400  F"$wartosc sily rozciagajacej",Q1,"N",2000,0,100000CP  l"$wartosc momentu zginajacego slupek w miejscu jego umocowania",M,"Nm",100d,0,1000  ! "(dobor srednic","sprawdzenie" "-" "%01" 4"&srednica gwintu laczacego slupek z plyta",D,"mm" )"&srednica rdzenia tego gwintu",Dr,"mm" ;"&srednica zewnetrzna oparcia (srednica slupka)",Dzo,"mm" ")" L"$srednice czesci gwintowanej (gwintu)",Ds,"mm",18,2,200 O"$srednice rdzenia gwintu (zgodnie z PN)",Drs,"mm",15,1,200 E"$srednice zewnetrzna oparcia",Dzos,"mm",26,3,250 "%12" T"+Najmniejsze naciski w styku miedzy slupkiem i plyta",Pmin,Kmin,"Mpa",1 Q"+Najwieksze naciski w styku miedzy slupkiem i plyta",Pmax,K,"Mpa",2 "*" d "#2620" e Blok obl.115 fAD=(((Q1/(K*10 ^6*.4096QX))^.5)+.001wn) goE=(((K*10 ^6*.4096QX*D^2-Q1)/(*D^2*K*10 ^6/8))+1)^.5 h2X=32 *M*E/(D^3*(E^4-1)*) i,X<(K*10 ^6/2)6508l jD=D+.001wn k 6503g lD=D*1000 mDzox=D*E+.5,Dzo=Dzox nD=(D+.5),Dr=.8L*D o p Blok obl.123 qKmin=0 rR=K*.64# =*Drs^2 s2H=((R-Q1)*4/(*(Dzos^2-Ds^2))) t<C=32 *M*1000*Dzos/((Dzos^4-Ds^4)*) u Pmax=(H+C) v Pmin=(H-C) w  "! " , "#0001"  "! "  "#0001" W   #(ERROR="2"(LINO=936LINO=938)#QK;"wartosc nieznana";::װ"1",-26:"3"::2:18,3;"Blad nr:";ERROR,"w lini:";LINO,"w poleceniu:";STAT:1E4' '7MAGNET::OKMAG:"NAGRANIE SYSTEMU":"Podaj nr.: ";N$ 'prt=23730\+256*23731\:"SYS-AMA-"+N$ʰ"2":23631O\+256*23632P\+"2",181 'LA$=S$(5,8)+" * ":A$rt+"1",65367W-rt:װ"2",30 '  MENU2 '  oorrN1 * G g@GfM()m3 G O Gʹ6"=\C}\s!9"ڷ*W\K"W\C:8ͦ q#pVr+s+"[\*K\ͦ "K\ͧͲ(33;;"K\'0"]\`c*M\+U"M\͠B& ͍,7ȧ~ 6:D\<:2*"M ,: 8>݅ H Ăo:?(_͘Ñ vŠ0%(h"_\*W\~ ( ,(͆w(V6~Ͷ"]\#H (, RDMS[\6 *[\ͧ+ͧͲ**"W\*_\6&x,͔́ҟ!&r8s+rȧs=((54!fr!|s*O\ s#r11.8˾86#3t*~w.*S\~##N#FT] ݽ 9 "B+++70&l"<:*">2)T]-MT],M > > >> !I\.l͕!s?\62)ͻàg:%|(: 0V ͨ7:'(( *[\R (+!~:00( :<(͓?:\=20j>20*:/ 8 !S(Ê!!F#p#F#p(7(3(/(( {F+p"(## {(( 44>(G9 #556KI\̀>(s-~@:&( > #(###z( ;> ~ #2#:%~07n :' *_\R>?~Ͷ# ʴ͗(+##N#FDog DMp+q0 DOU#O*W\Y>2>ͣo@ͬ*"W\=w ́8*=\*E\ʹ"E\s=\"E\&!9~=> >ׯׯ> !7 ~6!!w*n[:* +=>; :\W!~69 >; 2J ;0%(  :~\(-8:}\(-8>Â##F#^#V##ͺ#~~#N#fi*h\#wG#s#rͼ#N#fi =Rȟ/G7N.*M\~#"h\=( 8!*h\^#V#~#~͈,8 (*[\###U #6=>0ͪ8 > < > <{8(!>2>ͣ*n*F#~W͍,0 W_~F#NC##u0#6 :>'82K > @S:" #˹ͳ*"[\ȹ>27oͥPY*W\N#x(+!""&""(( $vֹ& +/-8 ͍͂,Ҋ$(͈,0RM*y>0Oq#ͦ+|_ɯ26yŔ* RSͥ=(G#͍,0 # ~$7Ĉ,8 +~#͈,0#~Ͷ 7ݼ # Ȼ ~`~#`( ~~#(0z@ >$(G0>(##^>,#N#F >)N> >N#F>>"z(#~,()>"$> 30>>>^#V(> >ʹ3-ɀ`@<((@H x~o#,}0*K\~(ݽ̌͸> K!:<6:'2`\O#~( #ݤ #~  (#ݤ(͢8,-8[a\*Y\!0"]\S_\ #~8x*_\7R0x!j\͍,8<(>( " ~wV !>͹ )!x> ͹ !>\͹ ?!/>&͹(W$e( O 6#+~ (#w#~ # Ƥ͔0 =>(>2ҟ2'Á͔ڢ 0:"[\ͱx( < *[\RDM"=\S0!( ,=( &=(-= ͱ6 RDM*S*Q\^#VͧÀ $ 61͂>O /\͔W!G\w͎͘8 "]\*U\"!G\~26(!:@:ž!vKE\3..&:(͂ 6xp+qvKE\p+q! ò!ͧ(ͪا[\s#r#:\w! >ͪ< 2?͂H K\: 2?͂!! ~2 '^#VS\#~2\#ͷ5z5z͔͙#>8 ͻq#p#zŸyچ w#oͪ0ͪ0 ͽr#q#p#!͔ƀ !ìMͼ͟²͹͟ͷ->2|F*O\͟F:\MU)"\!~<( =ݶCwC~Cw#!\6͔(2\!ͷ!8 0!"\2ͦ24!4~8TT >M!Mͬ2\*3&"\$2>ů2G\go"]\"E\:t\6!\\:\B(N( ̀ͅ͏ͩ|>2\:6*S\[[\"[\SS\>  >>>@2t\0% 8/ ͷ0 0%("]\57260% ͷ0͂5*(-ͷ("|2\ͷ0 "\5!"\2"=\!6~(< "Y\"K\"S\ͯ!:\~ +(<{=\6:6(.*S\"[\*K\<("S\*Y\* n"S\*#n"K\#"Y\*=\ìp#qÑ͍,Ҋ͔N(  !3q#w=(>25=o:5< 0%(7N 08+"]\Z,(!. ( 4~#+>(w6+4#~ (͆! 9~q(+++++++[͍,_7ȧ!)F#~67ȧ( #:\#*I\nB:(n(V#^DM:Y"=\"À !.6+6`i####Ϳ~Fq#p#xچ wM !<\˞ˮ*\*=\!gs=\*\7͕~#H 8ֻDeÀ ~ #F#~(++#"[\!n~@͕0~>0-P͋|g !1~6 67N 0*M\Kr\v(#ʹ3.8+"a\ *[\U"[\ÌUW$tArq!"T `$BBBB$R"w"R @ddrVRRRw&Q!Av4VQq7AbRT$rU%SQv""'@'E! BbէubUdTUbgTVTTgrEtGEBWRrRRWVU%EGGEEurUUUURgUUeEGsTRaaVu%%%%'UUUWW%UU%"RRw$$DwAa!1 p  VAE@CdTTc5WT30CeECAB@bRRRU `%'%%ubUUURcUUcAA3DBAF@eEEE#UUW'%UU%SQr"Bs&"!""&W f( ^-x \J5R ET*\:\> !;\ˮ (( n>2\"\> ͧ:22!~#N+O!:!0x2\ 080(0͓K! 0A00٧(ˆ*\"2\2\>O8x O{_0+8>!˅on89!F 0G8 \:I:3֥ [{\[6\͏K:8*"\> ;  !ˆ[!:w6:2!:OD0G:==ҫp!:ODw:0!882!:w:wÏ>?; Ð::D!w::D!!~6Qbx0 >2ԝj?Qȝ<̀ *\W}8 z!6 "6ڒ  D:!2B:+2"bz<ùͷ0"͙x(CI\ͩq̀ ñ0%(21+ 'o&:=8)))} 0))) ˅DM))9B\8 ~# ~#!~#6 8_w: RO*e\&_?O~#W>A0 w}o0$>  #% yKRyO= !!:\606#6##606:0++6+6y WN}<oyNBwq:=2 % |f9*\3ͱ=2G\"E\*K\~G0%¾o!\~!~#<## 0y2(Š?:G\"<*W|@zÿ"O͂B8Nyy(Fo i w‹(ki CAO8*W\怰w*[\###U#6#W*U\0+"U\"y` *U\[-(*ͽ*U\*U\> ͑k*M\"͂"+"U\"M\*[\R*U\"Q\ʹ8[*Q\"U\"}ʑ(0(+͂0"U\Ͳ(y` ) v("]\͈,8ø ~(G#N#8 "_\`i"]\*_\[[\#"]\=(F#*K\8~˸w+"]\!Ͳ(.#ʹ3~*#( `,0x0͓& 0% *C]\Rn,`iͷSM\U#p#qÑ}`"_\ 0x/=Gy/O͗BÑ*[\#^#V#~#0(#= ~#= Bͭ( Ͳ(H (,Šݼ ͒ x[[*K\)͸0"[\#N#F #!"##~ͶH 7" # ( <# *K\V6Ͳ(r*Y\+U#6["[\#6#q#p**U\xH ,~͍,? $( ( ) #"]\*~H 7, *U\0"U\# "]\('*K\ U#!*\R!f"\͍,("]\!,U}O"S50% ͭ( ,(H ͒$xU""U\*Q\e}( *U\"W\S͂‹("Q\G͎>*0% ͭUF#N+͑*B\""]\:0G2Y/2kvŠ!"2y, !=, !=; !=:0*|(!ҟ}lb))])(_ͩ0DMP& (%|ڟgzG>> B}}òRDMͲ**ͪ",qn͉OV#^z(PySI\+0GDG:O> (-śO!q\ (n͉!I\_!(N0~>>þqR( ̀K Q́> ##N#F# KW>z{*I\n (B 0j~%(-0 ͍,#~$(7&!H ݼ8,&0%> !'" S(͈,K B " > ͈,*B`i"ɀFailed at!~ˆ*7"* n=" KKE\ͿCB\:G\<2D\!z('BBR8 C1*@U\*u7R8$CF( ͊[u͊#$* n+>L*un(V#^R8*un"M\+"U\* n+"Q\#"_\##N#FCFF#N+*B "0"_\*Q\#~6$*Q\#w*S\*_\"S\$"S\;KI\ͿCI\ͮ>x(9կ >:;> 2+|ݵ*Y\"]\(0 601͔0%' *O\ ~M !,"\2s r !9~?T]"=\F+N+#@R*S\!!?ͳͱ""\""\V *͈ U ( i"\*\R8DM+-K\+-'8͙7B8#"]\͒ix*\[\"\̈́ GO*\*\*[[H ìͷ0 i"u:"_\ i"" (ʊŠ> 2 "M\GOR0 |/G}/O!SC\"\:~(**[DM* ͳ*u:~̱KKK\x(: K\ [_\:~"_\̈́ +"]\D>ïͷگi:>7~/wBl~0 ͩ0DM#^#V8BJr+s##"*O\#####s#rPPYͭ*0%+ͩ0`iͩ0 BKͭ*( R*()(`i#* * )Š͔ͱ"]\5"]\ʘ=BK= [[\*M\7Rr+sͱx(N! =(0.=(+! =(%%. =( =(=Ÿ.A&( 0>. x ͍,0 x *S\~#!s*E\:G\<="2:G\ =ͧ!^õ*W\~ (, ͫ("#~V:;\$0%(v +:q\( R0B++Ͷ*]͂,Š$v€+͙PYç+"###"| 2?5*"!H ( ;(,Šx y(ҟQ{":8*\>!o|g"Ky/1ox1g"\ͪ""\ "*2*!l\ ;L͌iͻ+C< oÆ*_\ͭ*[\7R$,7*[\ L1~+F +~(#:> 0bz2/!f((y.X$ x˯ 8# yxɯ2!2#͟e,2p ͆K\    ; ; BCHKMSTUZACDEFILMNOPRSTUVXBICHAHESCRMEMORSTRINTIMUSINSHIFFN[ɀANCOSDEEOFILLEINSTRINLENGTMENUMBEODPEERNDSINITEINARRAMOXO. ~2#~460+60|}^ !!5 h626:.ͫԫԫ:܁(AO 7+I(!˾˶A($ :H\8@ P  !9^#V;B 6+67^}ǧ!;\nͦˮ#nđ Ô͌("*U\7RDM ! ͌++ x(͈,( ͪx(Eͽyx >> 66͈,_ ͪ{ +~:  *[\US[\!BDM*\ "\*=\ "=\>0ͪ<{8W*\#~#N#F#7Ⱥ *\!9R}##R ̈́bk rDM9#'@oGq 0TOoͪ#+++*=\*W\ê:O!~#<0P:0͂0$(1! 6P4 5 > ; 5F ( @ $א͂Š͌6*O\\R͸# *]\ ߽߽߀߽+0%(>͑6 K\:k\8!GC\G Ñ5SM\*E\:G\͗*Y\U#*M\ͬ~]{(*Y\"]\x >*8'͗s>!>60%ʔp Bʘ =2X* |(ڟ8"I\n!b"&!͎+Ԯ(7>.* \##0 ,ʹ38͗2~#N#na,0Oݭy8 G!><< }l˅<&^,V,N,fiR:0>=)|(\U8˻4-7-O8(:= R8 |)=y'/7Y?GNKV].e{lsz@ϕ:}LMĎdt׬۬u[wWcy'gZbi >": >4 = FÔ7e0} p [̀ :W:=0 ^ K> 7 (͎>22t* \##~ ##~#7-ʹ3'80%!/ç*O\^#V>(Sr+s> 29\͹> !~/#6!*E\|?g#n~"M\~:Š6 *Y\"]\xʊ*a\"[\##"a\]*[\"a\*M\[]\"[\2`\61xì͙*I\x(`i##N#F T]#~n ##~#fo q#p6:#@ xͱ"_w !4#4T  Ȯ!q##p(x [e\!"&R">G*90#x  (  x(>!!9!###N#F(͖8DMT]++, $)9*98!<47]â*Y\W~ z0f 3ʹs=\>H ,#y0_y@Wx ҟ*6\$M%+y= *{\O%+y= &Kv\a.xBB_R0#"v\>=j\U4-K0!0.:W:G&*T](ڟg͕M͕͕% g$%(M͕% E}r,o͕% `!T]DM*M͕% :*}8Do-L:GM~T]#% :}=8D_:WD*M}o~i͕i%|<} o|g:\!+#og:-0 XE!96#r#s#q#6$|} o|gH >  >2>2͂;(&, ͂0%(͔2;( !y;Šy#x(y(`#͔8!~ qTx<8>g}!07=80o(- 0)(= DMͪ""Gx_(W8 ͚ GO:8 W!=yo~wwx (::8 :\I% ~I% ɧ :\?% ~?%  8:o[GM bk GM% GM:(A:\ͻ*"|Xg2!"#0+"x2qy2s:8\0 ́!"y- .."́=*\++6+!Uͧ%*S\~\# !\q#͂F#N+*B0͌;Š́< ́ͧ['!96w#6*"B\:<2D\y͙s+rͱ x4F#N../-8+H YØ!#*S\Ͱ#?~_*02G\  ; #~-0# ʹ3"]\͙#Ϳ8+-.8+SW\* "]\ͿH (' :\ >O(>> ˮ>7ˮ!'~6}2'*M\+U##"M\*_\}((:G\3*F#NͿØ*Y\+U#6[#q#p999*U*U\#F#NBq+p##N#F *Q\#~ͺ +~<6#6p |p |*F#N* 7RЧ*RzH ( , *I\ B?22"I\C:xé:2*I\K: |'П!vs+r(q ͔ QVRŠKEYWORDDEF PROPROEND PRORENUWINDOAUTDELETREJOIEDIKEYILOCADEFAULDEF KECSIZALTEBLANCLOCDELSFILGEBLANEXIT IWHILUNTILOOSORON ERROODPOKPOROLSCROLTRACUSIN*=\"8ìN”8+~ ( (.(+:8k!; _"E\r !GG :ìGà :F\!~(--~0! ~˾;!5 F-N!}+-N +a>.( ERROR=STAT=LINO=::\<͂!:\~6'O+-*]\!\x "]\*d(#13:38:31000:00:000͹~+w~ݽ ~$*V#^"E\"I\!{=\;;(&Þ@~+o&=~# $v( x y0 2>G^C+! .y>0( a(-8w#~:(>8 >02 2:yoR~w# o Ͳ(.v~(i4#N#F>0#~#N#F_=W(= #^#V#5}ĩ05:BK:0%!.(+bk)) x *Ͳ*bk))!8ͩ0 JCͿ+x *y% #T] -(8 +C#?(?8!+͗2 - % % T] -((8C (#(JCH ( vʊ0 (F#N+-*[À ͕!<\ˮoF1D!Z:?:\(:̈́ o.^Z 8( 7(>7͂0%(840?*1:68!87- *~B "[\ǘ0%Ĕw͐+"[\ Missing LOOLOOP without DNo such linNo POP datMissing DEF PRONo END PRO͍,Ҋw (H 0H 8 ͱx y(0!G:800))))oDMf $3ʹ2D\&"Ê^#Vz(8D G!<~ww *uKM!@r#s+*RT#nV#^* 7R0##r#s# 0ͱ18+-8͙x(%͙h= - !4-8!;\n'͢-ڟ( /Ox/G(x(yAKAw+84ͥ8@Y8B0>Gco&F#~O#~͂0%(͔D"ѳ_,C7( Q4y/W!!X~ ~w#- % *=\s=\ F+N+V+^!!"W\'!T^õ,Š0% &#>?G>G!}\ˆ* ! "u"ͦ!u_!_H͎>22͙͙DOxGDOxGDOxG 0%²2͙x(A:61860+#*\.88"\*@ KS\B!!g(͂͂;Š0% ͂,(-(O͂ 8,(! 6:͖:2*=\s#r++6+6w!?~wͳͱ͙x * z4{(AR8=#B88 #DM>#=((#(B DMH8: *\++6+6"=\2~<8 60+~<860++w 80x ! +6+6vV>?Goorr͟5+xgE͢-Ax K\x8[K\*Y\+/!;\ˮͯ0v (-/8-00(-*^( (:6*B* B(?!@̀0##| gF#N*K\ ô3!;\ˆ  #%),/258;>ADGKNSVY`cfilswz}\4&V i.rrn,lHY͙`iN#F( 0%(ڟ)@@@y .(5+~.(# >0-8 <:860 >%w80%(840~ "ҳw )<#####~#( (%"@~#"9:((غM*"]\7~">&*Q\^#VS|XƸ:G\! +wW*Y\͋ͧ6 5 (Z د\DM*S\~0 ##^#V#þ#~+>>!v ˾,,,;͟8+bk +x~ (Ͳ*18͞͞+0>%gŃ0_y+0OA~.( #(0>% w#A ~#(-80q#ͳͲ*j61Ͱ>ͥ~ 0f(@{26*Y\"]\x(0Fĕ͑G66 v0N::\22 8> xͣ 6 KE\>::G\ :O͗::\<( ( 4 p\!D\~( 6 :'.2!Ué0[[\R C~W 0Ҕ!` (ڔ  ր0A   ô3L>2 ͋֯2G\=2:\Ϳ4 R (z:(!wHڊO!H N *t\~#"t\R]֑oo&U-%dT{ ~ q*B\|(!"E\*a\+[Y\:D\3͹:D\( CG~x(0%*U\>͍#^SE\#^#V#"U\"]\W6 r (͋(0% (:(( Ao(* -\ CI\*]\!U*a\7R`in ͸y=((+[S\U"S\*a\++*I\p+q+s+r!n*K\( ŠH (Ը7R#͂0%7͙`i*=\!s=\+0 >+ͣ! ( ¶= !w&QK}*O\s#r߸xʟq#pͷ:?! ȧ_ j?"Voͼ: ( 2> ͧ M D o%>6Rn_{ 0ր&on`E&o^#VU>>0%o&E ( N (