~# !9"ː!o>̀2"^!o>̀20^*w#w!ʍ*>)**G3!R>!-!o!oR͓!͍>*;**;!ҍ>*;Y3!oR؁͓>!>*;!m>*!>*!m));!> *;Y3!oR͓>!>*;!m>*;!>*;!m>*;Y3!oRc͓>!> *;!m>*;!$>*;!m>*;!B> *;Y3!oR͓>!N>*;Y3!oR͓>!S>*;Y3!x]!Xx͐)Ђ!oRЂ͓>!Y>*;Y3!oR͓>!m>*!>*!m>*!w)));!> *;Y3!oRd͓>!m>*!>*!m>*!w)));!> *;Y3!oR͓>!> *;!m>*;!>*;!>*!m);Y3!oR˃͓>!Ď>*;Y3!oR͓>!ӎ>*;Y3!oR ͓>!>*;Y3!oRH͓>!m>*!>*!m>*!)));Y3!oR͓>!>*!m>*!>*!m>*!))));Y3!oR͓>!m>*!>*!m>*! >*!m>*!)))));Y32ʐ<2:82͐:͐og:ogV+!8:og))~2!8:og))~og>og+}=!ʐ4!M:og>ͮ*!А>P^*!ΐ!?*>2!n&}2!:!og:ogV+ʅ!:_])G!>͐)Å!:_])s*!4Á:ʐ!m!oR͓!>*!);Y3!oR͓!m>*!);Y3!4!oR=͓>!>*;Y3!oR\͓>!%>*;Y3!oR͓>!3> *;!m>*;!?>*;!>*!m);Y3!oRÆ͓>!Ď>*;Y3!oR͓>!S>*;Y3!oR͓>!>*;Y3!oR ͓>!l>*;Y3!oR?͓>!t>*;Y3!oR^͓>!>*;Y3!oR}͓>!>*;Y32ʐ!x]!X<͐)‰>2:82":"og:ogV+!8:og))~og>og+}=¸!8:og))~2!ʐ4!M:og>ͮ*!%>P^*!#!?*!oR@͓>!>*;!>*;Y3!M:og>ͮ*~!M:og>ͮ*~!M:og>ͮ*~=ˆ!oR͓!>*!*!));Y3Z!M:og>ͮ*~og>ͮ(! ?*!oRZ͓!M:og>ͮ*"v!>*!vq!>*!b)*!>*!*! ))))));Y3!oRt͓!>*;Y3:ʐ!mʸ!oR͓!m>*!>*!m>*!)));Y3!4ÜL>2:82x:xog:ogV+L!8:og))~og>og+}=E!8:og))~2!ʐ4!M:og>ͮ*!{>P^*!y!?*!M:og>ͮ*~!M:og>ͮ*~!M:og>ͮ*~=Њ!oR͓͊>!Ə>*;!*;!͏> *;Y3X!oRX͓>!؏> *;!*;!>*;!M:og>ͮ*~og>ͮ(!>*;!M:og>ͮ*"̑!̑q;!> *;Y3!oR͓>!>$*;!m>*;!>*;!m>*;!>*;Y3!oR‹͓>!)>.*;Y3!oR͓>!W>*;Y3!oR͓>!]>*;Y3:ʐ!mE!oRE͓!>*;!m>*;!>*;!m>*;Y3!4͉!oRk͓>!x>*;Y3!oR͓>!S>*;Y3!oR͓>!l>*;Y3!oRȌ͓>!>*;Y3!oR͓>!%>*;Y3!oR͓>!}>*;Y3!x]!Xx͐)5!oR5͓>!>*;Y3!oRT͓>!>*;Y3!o͗,*ː+*6d#6,^#V"Α*Α~‰>2Бî*Α~™2Бî*Α~=©>2Бî>2Б:Бog0 }3>Ò*2ӑ!ёc.WS* -WordStar PROGRAMSTORE TO MQ:WDATDO WHILE MQ:WDAT = @ 21,10 SAY NAME OF DATA FILE FOR WordStar GET MQ:WDAT READENDDOYSTORE TRIM(MQ:WDAT) TO MQ:WDATSTORE MQ:WDAT+.DOC TO MQ:WDOC.DAT@ 22,10 SAY CREATING DOCUMENT FILE: +MQ:WDOCSET CONSOLE OFFSET ALTERNATE TO &MQ:WDOCSET ALTERNATE ON?.OP.DF +MQ:WDAT.RV +:-,SET ALTERNATE OFFSET CONSOLE ON@ 23,10 SAY CREATING DATA FILE: SET ALTERNATE TO &MQ:WDATGOTO TOP* REPEAT UNTIL FILE ENDSDO WHILE .NOT. EOF ? ?? CHR(34)+TRIM()TRIM(STR())+CHR(34) STORE TO MQ:TRIM STORE STR() TO MQ:TRIM DO WHILE $(MQ:TRIM,LEN(MQ:TRIM),1)= .AND. LEN(MQ:TRIM)>1 STORE $(MQ:TRIM,1,LEN(MQ:TRIM)-1) TO MQ:TRIM ENDDO ?? CHR(34)+MQ:TRIM+CHR(34) SKIPRELEASE MQ:WDAT,MQ:WDOCRELEASE MQ:TRIMА%{ӑ