PRINT-TL.BAT x,JigO1yԽKԷL$|]|yș8}*|zY8$$ygwRnJ`=1qHN=|ߪrK:ܙ _R6RRS|ؒ E5M+- ԺeJrn8|$7ϕ+rY$Nы %+d0>i  d.h| -KR1{NJc1{1s B~O@kF; ZSa(iK0* nzZe۶cՕr[΃,=!g DRB9Ȍ$!Vd)]ꆉIO"tF{EN6!&QD}$h`ni-*,*^ֲNL{h:ָtFI PROG11.PAST GPROGRAM PROG11; {$U+ Copyright (C), 1985 by Lyle Faurot. All rights reserved. New Topics: FUNCTION declaration User defined function } VAR No : Integer; FUNCTION Cube(Number:Integer) : Integer; BEGIN {Cube} Cube := Number * Number * Number; END; {Cube} BEGIN {PROG11} Write('Enter a number: '); ReadLn(No); WriteLn('The cube is: ', Cube(No) ); END. {PROG11} PROG12.PAST :GEPROGRAM PROG12; {$U+ Copyright (C), 1985 by Lyle Faurot. All rights reserved. New Topics: Error detection Using a predefined function } VAR No : Integer; FUNCTION Cube(Number:Integer) : Integer; BEGIN If (Number < -32) OR (Number > 31) THEN Cube := 0 ELSE Cube := Number * Number * Number; END; BEGIN Write('Enter a number: '); ReadLn(No); WriteLn('The cube is: ', Cube(No) ); END. PROG12A.PAS NGB=J`5ϾVLe ^0"AV| ܀"]| JN1*|81~)| |=_| [r'$LIKyԹ~Y"( Y|++:mK'_2Dꩿ"||=|+lrA[Ja)|Q"F6$"n9RQ=| K rY)89һa~rުR|= @ %QfI F7gϱR=[·|$)S+ HbA!@=ZwB5:4]dNHaS4Xz@Orە+}ҙ@ A\? |׎WF2f`HO:{"$"Zíwph"w3)יaHϿϙjdJi Y1{\=>4 Q1=ўxk>O@R3ReϪO7|/[mT0auy19= Ćɖ`*Jpc"CL*On|H}KB=cEdD6i$IPROG13.PAS kGǢB=J`5ϾVLC$h5nO L=z*eϝpġ|$ҧϓ|r-ݎ|+r|Dĝ԰KY_(" 9ɜRԾr|D"Ա)Oä'=F8A(GI+lk/rA C9R逥+K<ϙoԼk)kbA% Tw\oxF@'&WϠC**:~A&4}$΂׉C~h"!HQ9) -o|$MdN\LϪR9m;o$2T(#=$ι$<$H9bAdPROG13A.PAS #H?PROGRAM PROG13A; {$U+ Copyright (C), 1985 by Lyle Faurot. All rights reserved. New Topics: Referencing specific characters in strings } CONST S_Test = 'TURBO'; VAR S8 : String[8]; I : Integer; BEGIN REPEAT S8 := S_Test; WriteLn(S8); Write('Enter position number: '); ReadLn(I); WriteLn(S8[I]); WriteLn; UNTIL I < 0; END. PROG14.PAS pH4:B=J`5ϾVLC$h5nO L=z*eϝpġ|$ҧϓ|r-ݎ|+r|Dĝ԰KY_(" 9ɜRԾr~!L Y(x@EnԺ"|_t4 ͎F=K"+-|YWF4>_,G$e T*-K)YȗQ$ckbA~Q**Ջ#f`d"qViYs BHh R|(Gϗ4|+Ic $%rϑ<$|r/CߑLH9bAdPROG17.PASa FWB=J`5ϾVMC$h5nO L=z*eϝpġ|$ҧϓ|r-ݎ|+r|Dĝ԰KY_(" 9ɜRԾr~Q-ҕ K@E+'ϝ0M=G$e Ti*N  k $r IY+|-Ji rkbAQ**Ջ!@霢$cd"m"QoɜȝKK+||da蕐*$%!R $JR1{y-|+c|=|@y Yrձ>OOWo/8 +8JgA~nQk=*m. ER 58nzWұ\F`|y<=*brk,* ɜܿ*ʹ3/=C`9wn{.ϺqiNKb濚|n9+%n8@i$IREAD.MEASD RRnJ`=1qHN=Nϱ WBԹ r|+-E|Ժ|$HȐ_50"A)BLcD펙iϦY,||r R<=||=- |DODe[rϙѝω 8'ϕԽ$I8ɜԷVKF;N 7R"N=唐|*"MI|Ҧg'ϝ~|K=K*L$$_.zF7Wc~d*[>|׉ 8J|KF7)j'}ς)$}Y۶gk k 5ȗW Ժ4Z-d~$Խ̀ |G6I ~G$ytBMK:+e 6U$J+嚩bZAԳQ'ϧ˶ ^>+d>LҢ*eQ(";] ܀G(Kh$ϏMI  ~wr* KeJrnht߇p6LgX"VM _$+BRJleFDȫnҿr8GEw߳gX RVKQU@ZyVDdf#UI >Vֻ_+R84JbQ9++1qk6s y&(D(=!g1pP+ce+6#$6G4ZS>+s5a铈k/$:F=8*gVITIME.INCS+ n9RQ=|+rJi rC$h'Oɜ뗙ϝ۶|KK,=k/|Y| =-Բ5ҥ%5||YSQ)M6w 6}YeԷߕϰ=|w_ Re*h_6|+ Kr ԰e%+|8)8  !,a|-9""%+g!χ"Ϙ+8gOyY V6*g Hf6|r|QR$cgkbA[Ja)4uc^@ %u*md Y `8e!H9dITL11.TXTS EFZ,0"A,GoL"A|d+V#߱N9hP`||! Kh)-E(dԺ|$K$Nω'Wϱ1yԽKK\$e6Oȓs)|Z-ݎ)=ҿ]eҩzO F L=$J"\pġNҧ{ V|'}sK4cY_}$ytϪ* Y˶ |7r %cI#rbA>DBQ9+Jcen E+%ߠfBL| Y=*f{* jJ|mdHKQL$$.xT6-.#KnJ" ^|+7r5 *ֻ+ CBy3Jy49Qk?+`p8E(c|r~#ժ$Q +4x*멛-Sx*Yz0BW "\{y\N)OP*=g/%ֺ 3WN@`-=% kٙO:! d&n?*$9RQkum:yƃO LDU媴jb̥0i&N=ɋ0 L>)XֽkS]}PC Imk!@:| Rn#Fm_$Ja!Į6E4el:+6H@n޳U O ]a- k~VZ!'Jcժ}ҐFуύε^ub4YˉlɟzgImZ{rʯJRY!L%5ݭᎾBV-@35Z hީ|ڍNj!!1+4IMjՠ%] }lG4%Nr0~xrh_%W$jZ|%ܪ/C| KϲK;ҢcJ>`}qJ[!9ACn,K~tMyXK0ͻ"r.O@3eW}R$GWOfxjefyO{КtA-MZpE9%E;},qeަa=cRC08JO ƗW8MkԵ;֓PI "F2 nh4MzL`:*fQt#R,m*N#XԸ5+$W?λ ^q^ .˥5w LhIr1_Ļ;RN@JU^[@l^yFWc7}67!5!$Ijlɕ8[aQg̎)8,=KnI[8 "9]R41囑=wIW}f=. ĴJԤ CEи3IwWF2}K0#1/b,1B:4%EG߉>+[I #`F6,1sz4Dg)+q0I*t 1Sd5{/پ4cě7!kR0K|Yi-ďHwgcbӊd̥AtcJĨMШZc߹Au//| GIi Ry 7 t m*G, GC1hJո*m +fLٗE4y?@ S++>d@C"DM|ISE+$뻡%m#'ZȨ=k9XӲF2 YiaU"QDZ-qnT U=ǬVɹ =֖jp?Xqzcפc֗^p 7~Jl@?B;d>&wRόW}j@jV H~$nS݇,d7 ֬ФPI`P5M8fL`NUM7spc1}] np43=IH6!^";bk:z*oZFQIڇy#4žF ֘ۻlk|A[Rp3iSo*2 СC˻fO $ᵈWy hRP=R6q*?[GC$zX\.x$AyJ,V\+&jzjrs8V}^uxJjt|S)F@XD]Uo+QO fyAМn;qX'nN&UW" P=Э1 {@*luwd_qj[: a`1~=/("-LCs,Vwc44$u^q~h>WA?1= }͞7'4;`%뻥"7K:QL$y4속֮[6Ek_⠥Ż E)O <]FxnLC͔mo9)`H+{7>ø @͓:jJ -Х;?&b]qL[.>䐞膆yJ#5 9k=`أH[, 5y&+rp=u; ZU ^K*I?zd4QDN'ˉvH+I y&=CP~I] !v'1!}u>7OI.]΍ߑ=>I4ޱ# K^SfI«{="ԷGSUdQ {~5JYἀO 5#p31[EdJdKP/A1<$$6/@x B[ܨ[V̏,9*-؃ի. k D@F̗ Bn<5~aV#"e*E*$]핵=ZBQBD<1\xY1uw EVsmqHȥ% bsi">WDDuع "Es~7 ݴu!^P}ͼ-=P'AE6l3=9`IټU xd ׶&:Ygb`(<"JE`" c$ ˓fgn.}Rciq0੬Du9Soq#^[PÃ/,2x TL12.TXTS FERnJ`=1qHN=Nϱ WBԹ r|+-E|Ժ|$H Ȣ)|*ң$")BLe^r n9RQpB!1rQ @?,ǘHJd=|+09rA=)R iY;QP mKn xO]Ty*n" Rx|גCmc`4Z*I|@F4>" nޙΝjQ cL"=+F9ϖkRIJzLh>|* 7r÷|D[Kux"rwYic@ n萲c~ m dO$r%"~y[Jnu:}Ā*4[rM?dr܀N * O^Í*U Z.qg|GEп4_)f==X@[~`ނ-K8K>$)b \=NJOd8Gc.Sg*>OP8g^TM* wj̀F7-펺 . kmӍdԽoF`tD=9"6r6L AÆQ"70IOR߀ז!L$U7[<\#|{Om9#@*#D1X3霄*q\ ak1o1ěY'`$N0cj]qnJrnLkVhdd1"ҙȐn<ڷ-a@tN@2Duvؓfx?)r_+ҭkrA-idb=Q)Lnw8~zhwCW]8?`Uw"Ar~Bwt$[eEJQ*z ~]ԺPn^Y31y}̪x-1|.} HS *+oeNє"| j.# DM!%crz*y7fj|#|^dy`ľ7A-qE~`~R +Ki).k2cϼc`' j x*mB}AmCW>8uw[ Jy>qNOP mnojoqWy@*G~8G0hPŌKr aG"< Q,ty萄z.g\/oq){D?8KK )d&j4RCxF+LN3jЇ=MԳd,$"K>9(ɞ7x8IuerK1NJ9"*Cʻυٜ(QnC49 %<*1f13b>˵j*_g_0v|"*`Kq yYC7"XzFw Z|˚Z0wR0i %5? :`yrB PN,K筎RwvV:q>[d%z:VJV(H8BގZ·;h&*-R ! Tl1J`1y Vyz+=| SZM%nl"!@'5Z@Q̊V\ 1q|=-]?Z5ʙߠ%o_2b| 8_ r\=VzQzRDNO@QO W6eJjfaF8@*@XC|8wj\YnR ~ɵHN\Y;5HIulK>%~V zgZ {ԪÖ?`t:)}m+Ծ|TzPHj +xTb y$A!xb[5!ȣ+ іi`*vN@|L_}.Mz0֡0G/K"h ý237ySi'y}kNwpn}|.n\ت*HnYj/=v=hӾkXy=.7R41\b+wߏjoƀt* -sQ -x䏈p%^VVi>|x"tN Di "Dc )J8Twts!p=w@Y;VtVDt)"N5GgfW͎L;Ti}>F'h"B2; zaإ#j7gw`ޟg⠁(`L5#rԕ$QMS0 Ln8GV6Ҋy7`H@%'ja=eŭL;;'xԻ R<$.T闖Cn~5B^Yo9;M`*-;ХȭLSa.L%J|8Mcgĵy"Lw$̄Yws ؀4XzgGf˟~^dc=ğ%Z-PN8٥[}5D,{)wjw[A$xFkO$Թ^-Y@P3Q*+JenJr>LaQf#Yʱjt*3WׁhLutY㪅Q˴NID1@]Hr XB&|BwAѓ~!UV2M.% 1'őh,tE/Q$Q5!n/WRA?[V"-V[N9*zƆ0*ʰbQkf $.xi'noǓsj i`6iĆɖrKLc6ԎjJ]c _v>f>Tn3MdJòm޲ʩ=3"\x1j c"II7hJE*qynw; a^M ^UT wCtk-^ISY$暹z [}C^#fr%r)p)=S qk5'5=' >⤶-n3 $ ΰG|^xcZbʠn!mbT?kEW;25iAHdt[jToɸ(}CrQO׭.'TL13.TXTS F|qRnJ`=1qHN=Nϱ WBԹ r|+-E|Ժ|$H Ȣ)|k#$")BLe~r|N+JbQ9NG$"RQ[%ieK|rKԱ='嚩'} yi 8J.N$K-K,e OWy r ˶Խ -"p@Y+mě*$R+ Ƃ&_fyJϦX[4P Y)Æ=4MUwҘO||$JR1yi#R*|I rcԳlϪ濙יe+/p*ω_jN%)iad)=~- MTw8 wς*|By֋A@0?w4hG8mR:eҼ^jQ]E+ ဩ|8~'DOAgQay wϻm=' ϺIB^k[Jn; 7BAtɜRmKtH"QƩ ƌL~">޾"ߑ=>I4ޱ# K^SfI«{="ԷGSUdQ {~5#$M}솃!#VAP.* 49BU7EsĹRJLUdV'P`1~ l^Q+) d n9|s-\#}* Mo~ˆԅQ;;{Q=&w06L A\ +H/nG;eA۽ =[E]J|s̾]B8n N5gcZ9- +1y)2-lr|ZV,RE1ssoDDøx;vR%Wӓ SZ/;u0wv5õp F2c7e%A[+e%,:1nHmC9ח7 QŽ髤!h䗑뫶= PώmQȪ"u#&K,TRm@Hwʦxf2W.<މ$ Aޭ-SwL;r]\pfA%f93AZ2<=S;Na+TuKK3b0%w"0  꿆uoY 8ҙ`SRC!LWnɶy Ը0^TL16.TXTS IRnJ`=1qHN=Nϱ WBԹ r|+-E|Ժ|$H Ȣ)|΃$")BLe־r JaH S|VZ!HJdrA=)1H E+%|QZԷϷ)ԽK||Yrwк ro)|JhL|=W9һi8F=K,eެˡ=Jowd , G CEmҷ(I*rg"΃rʠn裪m霴x|Օ Z$QƋc՝ng[DQ7ϓK0* 8jOWϝyYRI dԺ*|gς.SZ OR R*4Q谄 Y% ýijgWEE+n"˶*ӭ>8|m]Rȭ霙ˤ_kytyy֛ONVI"+sY"P*I2 h|kvȌQAHejƝu+[ gS 4f4Ɂ VV|pȣgȮ$NO[Ikqkܨ*{)PCA@tMMP* Qk堖Q/|H`yHhO|=D$)iB=MkF7΄ _tTD Ν  K;\SK> o |g" =埝=^V`n~ V~%ϑoե& R+kr,~JVI޺H} =aj (;ӜJR"KȞI㺐nYMML/g-p&uvDuvؓfx?)r_+*e; 0S^\Ag)k>wʩ]NY^@F9&Ğz=y^ Kԙ cu-Ŋ^$~ƓZRq%MSTN?='GQJԳu_1R;V$5tR W:o èbK xĴuz|ΊL 3 ީ08p7U&,eJ+=P*n$$xxKChSY"ͤ˵aχu% 0 b,)K`G>pbUYA rrnëRf!⯰SƠ_8ziJe26љr",#u}ʱo]e$JR1{p#{,e~ Ҹ*+>YJ[~ygqM|G#{D^0Bb0[;,=|`1|=/ȨZ cȪ"-+; Zn>F`;鵩>GE O^Hr'ϩJ -KG :*-\Jn$u)2lgM9(n}kFdxs>*i0K@ǑcL$ l=0~6HO݋}}v%?yjL,wBAA}Ȕ \kVwӫSD^eKb&wR=hCJbNnpy Gs5R|0P n´]J|xsu{c1*gսwQ^ƲXO @ω|rm䰚 ާ"0]̩\$ɯGRvF|θ{\U}[nZK yT*.a4 }h@OiFu4Rݎn;Q~ =C25%HEp*j\&6?&~,._Sg==M74fbɪ{Pͳ.YapNf`.G$wX"q!QƭDX"ty'Rn*swU$r̎9Ա-=rQƬ O@_5}+Rsn9!V(8TL17.TXTS xYRnJ`=1qHN=Nϱ WBԹ r|+-E|Ժ|$H Ȣ)|$")BLer|iQ5Q9|V E+%rA=)1HQ[%ieK|rKԱ='嚩'} yi 8J.ީ-ҕ>K8"[_~ꩻj"|+l"pf OWω mp"΃NyK7|cLx||8nƂ&fj Ի_`F2JϦX[I8*"YȫuRԺRu|K)8<=.bI㿜=|"X5 d煮> E3|QR;:`u~*vD/>* [n@ 4gii.mHwlE N;ұyI喉Cm.i>@A- >޾DOAuv@.&F?efyO L|/$ X=!UWah咠^ÀR @QVI^Kot\z,ʰ5 ŠR`4_5 wJ[ \`8mo g̍+/+P8kua9)j!'U YjuN2QϰҠM(w ܊( o]?@%NCohࢳeBmQEѰY/t"%08 '>OrQfj=UA)n̡ޱDdgV>Y.Է|} TFXY 8a)n<>%qlP4͛BAfu|QLw Fj6gl KG%דxJY8Ь/{r,tiߡw+} 8 uo6ϴ .AMS6X<]o@1=Y,=ijO|W,+c]#ɥcDo+>4)y* O+8okj.u<.谀J[r`Sa<*0G}n d1=Sg8h"OYtuQLigJl@@Tn5$$,wһb>yQíwKrSnui6!N׉eW}dS~ؓfxqr_+$n#Bq ',hw$9,cT.'md7WR6y 2KTmbFT% ca.V"j**FL RQUaS dɁo] Y?o=L+*8,IA$L=u^fSmRSiW[O4cėQQ4E(Vjn;d=-MnK2QgИw8bj1/{_D".ɶ~x 3џ->PGvLF'Awʼn+%QݕYey[w( nUA\:0i2~wD%z8'PAK~bLޛUhy'DW;4]M9ֆɺ44^ e汴*g$CQ43تr@$DvrϼA?A5ƃG&9ofd,Q;5Sy}bxA;n &ݠ>A~t6F]IHt|ZwT0~=\ rW D>wߏc`0]g|xt [{ٛW?Hw H]NQ$xz(w'$gZ9e'ĵtij*yN+{^)@`:ChҺHPKX4O/5ׁr?`6ذz5SJH$