DOSCREENDQCEDOSCREENPQSCREVISIONNOTZSAMPLE PAS]SAMPLE SCRc v DOSCREEN.PASk o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijvs|) ||M*r^!0<_?DqC1%Xup'{Dw.f@ z!JBz"_O{LGrg%'`tB""Hx"H4IлP5qdabÚ"8[J< Y)3@cO̠{Ȃл( i EK$M]Lxzȭwvș 7 E;m"]L& ;;y"Xœ\`x]n0yt^Th1=N=7Ou\x/nr\,p"X`m")X0pİfFEJ/1Ц( Bo?=B("z\%D0psǏ YӘn);C-jӻRSs%dAZ cߔ:3ID0p3aTO^x?6'{yDK 6nVH Q/1Ʃ,cGGȂ"BPY=32$!=; ܽ~g$+32d"'AD N+\^ȯ"IkvJF S`>f$\+DL#1P4X&43L-'˫a~E?t:"> \Ra\*gfӅ k.էG#ʙG^0e"2#(zw{;RuuGݸY!/{$EP^0 p5u0D`9.aMh :? }$##tȥrfvх kY/`B("Mq'xxj(L`^õRO.{,\QlnɦE8\e7Ed:Lq%Ȥ^0z`سF] &嶭îZ;1z1R5Z0jRnZ0VK=ew{ÞMBn;%  R9IY("sj/R/vU /vRGُGCî 2a.|]5m} ]qDaφ"{z>Nϩ0Vc/vu_o3Ed+FbfθASݽN`ռQ/=F jl^R/(,'r7eY#{DnX`R9IYS5A 5f$;I``CalbÚR/jwdfȦ.:)@ ]M]LuXy{n'a(갦"(r3剚k74pӤ^0pG{"PD25u1^0pGD0ho6-c/ #۶ jzz cE:aWIlfޕhi{W׏˪͇7{Loԋ[G#o0mmR/v)/E5L`(R00)m-v0DM]LU'Ȥ^0l(Z_>dAF0jRnZ0VK=ec+ұ {v\/0m[ i -+H,I`س AA5L`UY/P`سlnɦ`0,ʆݰ*ImkK$e ]"2j~n #_&I6O`UcظY!/=۶ rn; rn|$(a_=FR/`ny/Z(W =+DZOe`Xu"XEPp&"%#$EP!"8#5dAEd0p.Wp Չ#HInaOO >lnɦDkaT6EPzɲIC.էG^0EHImk_qBBdî&嶭Þ=/(EdG,EqB =, tc mܬUR/(,Xܶ5_"2'Dث%yBB7F  p,cܙzT;˄ S`G$V!J⹋ HRA-X\ND0#\+s@J/1H`fYPDKBi{_P'ȜӋ*O9ϗI lf?(dw4ſ"h) lxX"2ڸY!qAvGLM>j촚h): !/VK=e(!/]Y/`س7#XpAj (&I&嶭>k{-^Cd~AY("s/$E'ȜӋJ0d7+$qP4iE6R51JS/*Ed'ZJN/8(dw˴jФ^0wΐ ljԷ&s`g[-|ͫQþ+ {5,w۶ 51j-њ }RGُGC>k{&,rroRP`?cE:amQ6F ^0o0)m-VK=ecE:a]*')k"\%#!5"w09_ })^07/OBJ`?.!tc< CDBJ`?=j--!8fTM\\*'){M`gO}{l 7j"amQvZ=|N0Vc/Yc an 2jl^R/]Y/`LaaK2OD ]!za afxeGLZR93hI&H ‹^FHB"IE #Ivu"8biU("gF$3 ' RrfAtX(ъ"d Huq0 ;;H*gf-ى`Ͱ\<ٔjΥrfeyL7]q("z~t(îY}U8W ]`Wzw{;R WSt^nܬ^0쪭Ck$Hyrztîu"6^0*߅"th)/X0=3A"wdArf^uNN( {v"vuD$33^b4q҅EatBQîNîZAdA0Q"ʙ :lnɦĞڙ ){r9C\OR/lRnZ0a{3t۶ vS`wm\dr^` dAF0$)嬺#3EYZ^0'C,\ |M ݑ",R/mn|$Yzo/,0uav^`þ۶ n>3ƘzF9n n$##tcrþ- ^0,O`^äܶ`wэ/$z.,0u&q0ο_`þ۶ l>3ƘzF9n l$##tcrþ+ ^0˲^x!/s9C7Fx/Ƙ{ge=3A҉`r8NZGR93N-1y|G7#/j1z1R5Z00)m-vi`U Exî#v^0jƸ^BjlܬXhImkgc= a_y_4h 2ayRnZ0쿴=DQ5Ȃ`ؿ<B7$(H0_cf^0 y_x2?E7 ^x/arւa=DQ5 Ȃ`دrւa滐Pn|$Y E BB> #ܶ`w{Rkg,O`wЍr;/mY/@qDa y_x_z#,k#O9U ,:)m-m ExþݓZ;$eyþэa>B7$ 8"_'嶭þэDQ5a滐PnG^0۶G("s>?Cdþэ ^0 }9yh{"2j~15э5 ˤܶ`?I AY Imk#7"2j~c= tc CY/@qDaX+aR /eY/1 =+?ND0Y|@ 2ؓZ;$eyîzӛ F'Z0Ѝz@oI̫߽^Tu.3D#.4u1ExFb`D_$ĈR%D,w1ṓՎ#*FgA^DZ~̬lj#쪹Y^u{NhTK lnɦĥr. jI@17/ c4g l1FRGYTNR4:(@4# ۶ lQvZ=|N0Vc/TNR֔Fń: ZpR#?@ABCDEFGHIJKLMNOP rQRSTUVWXYZ[6, \]^_`abcdefghu]QE1͋h:ήv/Jr逰HV26/:Z_^i%\>z/nqNò OZ/8*o*;1D8֞&4۶j .ѱmˡdp$4<:hJF %Bzw1]DXoӀSFnwt)b%2 忖\0s8w3M`lj߇#DLF;ju}>v}nJ0\zwZOOۇ{cKPh^G QK AϽxBXFX?F2Nl*KFk*B cv­K~tKEt5: Rk<pT¥%At#Z KpѤ]WOdBeڇ {GjL{ kG qO|RCmVDh^{pTB:ػea8bKL%؋J])@=*dlojB| 3Hh-pT¥m[R1p$ /^ZHRXJ.-v_oa5Pوwdp2fG 7X6Dz@dlp$^VzzwN #̓*[3e  L=T1Vg!',\J%c`IH"sL,t@چag0HS261M%)t8Հ% PZ/ՈKdlW[u@C @S` ixߣRk}s , 8Ļљ&DX$$ <\%|0H@t.2z@beRl2I=3hgzOzh {_ D=91;K<9jP`' oPOja,d&z\逰HVr_ׯ_<~q%r1]IL1]IM1]IN1]IO1]IP1]IR1]IT1]!L*Lk%^*Lv\^{Revised 3/16/85 -- Fixed bug in GetScreen procedure that was truncating file Name. Also Upcased the FileNames input by the user and allowed aborting of the file creation process in WriteFile by simply pressing in response to filename prompt} PROCEDURE OutForm; BEGIN GotoXY(1,4); Write('SAMPLE SCREEN TO TEST Steve Cohen''s DOSCREEN Program:'); GotoXY(1,6); Write('How do you like this program so far?'); GotoXY(1,8); Write('Ain''t it great (Y/N)'); GotoXY(1,13); Write('NAME'); GotoXY(1,15); Write('DATE'); GotoXY(1,17); Write('ADDRESS'); GotoXY(1,18); Write('CITY'); GotoXY(24,18); Write('STATE'); GotoXY(33,18); Write('ZIP'); END; PROCEDURE ClearForm; BEGIN GotoXY(38,6); Write('':29); GotoXY(22,8); Write('':1); GotoXY(6,13); Write('':22); GotoXY(6,15); Write('':8); GotoXY(9,17); Write('':32); GotoXY(6,18); Write('':17); GotoXY(30,18); Write('':2); GotoXY(37,18); Write('':5); END; BEGIN ClrScr; OutForm; END. SAMPLE SCREEN TO TEST Steve Cohen's DOSCREEN Program: How do you like this program so far? _____________________________ Ain't it great (Y/N) _ NAME ______________________ DATE ________ ADDRESS ________________________________ CITY _________________ STATE __ ZIP _____