SCREEN DQCSCREEN PQS,TESTSCR IQCHTESTSCR SQRVTESTSCR PAS\ߏ܏ُ֏ӏЏ͏ʏǏďvSCREEN.DOC_ o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^NۧRN9tqq <΃mwTPtJTB[,U>bÔF/{'~AP`R^hz4?FL.Oy2!Mgx)>^p iD*Q'&QX.bcpՋӘ2Gr^O.0p51@H#6{'! jȒ2xt(ajהSNw3*Nc4ѽ`r^,.lt=D(4_>pB)uB4Flt=D(4H#&5et[7A1g`.b(^,.l_>OMŕQ|! \8!`6L(E4b.bfnh+4br !et a\̉0)n{n( Ņ 1p҈mK%oE1E3!}>`4c.BQtJT p?g>SN֭\q߹gݳ)..Pi)۾{vwz~N)۾{vwz~}<4brV$H脢UjO,.l2oF~0ݳ_{*ѽo/U##PA!({WBQ+jp1et[i04Ni+'u7|xLvrFL. we ~E Q%et[_%WŜN֔SF{\ys~X + X 1Ea=k|. J52b4rgEW4`9!<9 4btq26{+ OSN<&L9etF~4`3}/ F(Ć=WޜE3W܄HWb`t4ʛѽ~&6Pi4 95mϊiD*Q'Ǖ77FL..SFf/pCai)3Koo/̔SFqq!`4JH#V=SNǣKśW_t/9 3_}r)^>/ F(Ć҈+ooSF"+nB[h$+1E0i@qM`^D?Nj{4GlŜrO8( i,1Kqi%ORF!th/𸢉LgH#`E-etQFlTDgiDFFlxė)۪h\$&҈:XQèʼnQHcMP\OiDFFlxWFmFE+"gbq!n!FsQد)ϮO>K?䇔}O~Hן]w|r;Vqi8X\҈R)>0`{ i]8)n{nhz4?cq!QCh.6o n;θ!o>'' >iN)J#6~(o-j/id Hc趣 !QFsM9ets#`E U|=4BtK:aG~g;c(4btq=˧)Wktq?^\ D1SK7EŞQ8k^|#Ɉ3]RFLѽ?5V3]RF9 nt{sp2o/~ŅYiDA#1jq4B4et?FN{ BQ7_!\Q+jk)/֕1=v +c{H#J52EH#`(~f2;05񀝿"vȈX\X !\`3|q?g>n+=ѻaM9ets#V=1Ce{.BSF\`3&Ņ"6T=D‡2NF &gEn!X _^ys~X^!>et[iF}ʛ h7n; FH#J52­\!:B@4et[s&k)K-'5ϝx4b4=o&u@W{'SF\-Ņt{ BM2J("1rʿs.0SN;kN&1@笱y!vzwK;QtJTѴ*{L3~WL;ֻQ<b4=1F^.0SFzw8]\\w7;ED՞ (Ȉ##͋Z^4W0S #PP\<8_λi٥r) {Bq7lxw}w_ZqQlǤtr5\SNr=Ճ&)Gsw7x_&u_^\[YXVUSRPOMLJIGFDCA@>=;:875421/.,+)(&%#" v#SCREEN.PASe o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd;FP4Gr^X؞v$ $w*6nČjƋ WFItXx #iN7P=%i/,MZBW= Vogi$텁fi&wooUM%i/ M ݀jƋɞM d`io0pt6 M WJ[cJ@yaaa_p8}yo/w^ o?LJ{|_z+a~r5<@՝ +%ly@oya+F?}Wש(s{6^U^ZSA@.0腑5(YahJunȿ1=~5Y*x/O>~?^.䄑8aw6wM*l&Kw4gȥ;zvM*l #\텑|ݷe J Fgȥ;0q_(ltGFgȥ;uNIjSB:F9/8a6F{aWa^*ܼA #oz5珨:m,ž=]V^ycz7o`r贱^\NǢDW;'MHaq^xEq@Y*/ \]4*Zu,^hTFLFD7+F6=mjQt9G v!'|8amjܧPF~괱\&ۛ@m|05 #_6i5 (}{|+؅:m,j tYyaakӣط9ar+F~&&;VO䅑:m,j F`TV=?7mlc{nXy塰I[TaQP #?uX*d{Tj/!W{a\텅NKj Fr *d{@ac00icE77۳ *K+/ h괱TiK TyaRY-&P{Uya H[M =~Y-d{W+&UR=VO䅁۠텁5) $ J8n˫͛6"V^дd7Mv*8țT[SțNKe|~@EotP4?b Eb兑76WiK(M7!V^yk3.55)/єU6K兑7M* #o: Q煑7&@Sw,M0&PbX4yaME"m&ۛ@^yCe 009k3L,&UR V4')lSq ƑFtX*㣚-)"m]TK5z=@WiKpÿ #o4~URya,0">6%BEQM70@{v!a֪y텁QYX6*Zu&W{aV Փ&h3.V^h0Ш0v TESTSCR.INCN o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLM/އk O?}/.KZɨu8-{}3S. dԺ+X 8:咀LF |Iq>!\5(_ k4s%ZW,qZ|qs%Z2%N ^ K2.(X 8:咀LF |Ū `ӂ 9咀LF+VeKa7\ɨuUiA܆/?%RN$ Q[eK7vmN$ Q_ `ӂ 9咀LF+,qZqޜrI@&Iqs%ZW<)X 9咀LF |ų2%N 6 K2.xViAys%Z;eKm~wK\ɨuY}ŝ2%N 0ΛS. dԺW `ӂ 7o=zK2.Aq)d2j]8-0~rOW \ɨuY}^q)d2j]?)X n ';咀LF?)X 9咀LF |eKm{3\ɨuY}eKa7\ɨu~UiA܆{0~r%ZW*X 9咀LF |8-0{w܄ ƏN$ Qo,qZqޜrI@&GeKmxS. dԺGeKa7\ɨuIq_zK2.Iq)d2j]ViA܆wMX\ɨuY}8-8oN$ Q_2%N 6?)d2j]V_2%N 0ΛS. dԺӃ2%N 6?uu%ZӃ2%N 0ΛS. dԺדWiA܆wMp%ZדWiA-_7\ɨu2%N 6o)d2j]V_O'eK[S. dԺEqos%ZEqo)d2j]N'eKd?,(d2j].;e1\\ɨu?(\ɨuVpឮA$ Qry cqK2./b8v9=*d2j].կb8vpOנ\ɨuU cqK2.Cb8v9=*d2j]V_2]>5(d2j]Sb8v7A$ Q^Sñ˱Q$ Q벮 ct %Z2]MP. dԺtRñ˱QpݹoNIVXRC^xEq@07*€Q6*5Qj 9a+FԨ0̟?zaOZuìU  W v|;TESTSCR.SCR;o  !"#$%&'()*+,-./0123456789:_t_)Sp)1`L1/S0a L)hWL)1b |f{{?=4}dn_`;0ࢮhރзyQ=v0:~47cvgCN<7o >cSgaZ`ĿiVbv㸴 Q]Ŭ>Nk?*}fqIs5.ӸMkէi f7 }fi36s=.ϸi 's3 }fɼfż~1 bno ܎Kk ~2wAn:11b )S @L1b )S @L1b )S @L1b ejo>1b Iqs%ZW<)X 9咀LF |ų2%N 6 K2.xViAys%Z;eKm~wK\ɨuY}ŝ2%N 0ΛS.program testscr; var date,name,addr,phone:string[12]; ch:char; {$I TESTSCR.INC} begin REPEAT date:='02/05/85'; testscr; gotoXY(1,24); ClrEOL; write('Quit (Y/N) ? '); read(kbd,ch); UNTIL CH in['Y','y']; end.