OK, I'm just including the file as text below. Line wraps shouldn't
matter in RTF
Henry
rtftext =: 0 : 0
{\rtf1
{\fonttbl
{\f0 MS Mincho;}
}
{\colortbl\red0\green0\blue0;\red0\green0\blue255;\red255\green0\blue0;}
\ucl\f0\fs24
\cf0 - u u/ - u u/ - u u/ - - / - u u/ - ? /\line
\cf0 \u301*l-l(\u277*) \u277*-g\u335* qu\cf1 \u299*\cf0 f\cf1 \u365*\cf0 -\cf2
\u277*\cf0
-rim t\cf2 \u277*\cf0 -n\cf2 \u277*\cf0 -r\cf2 \u333*\cf0 -rum l\cf2 \u363*\cf0
-s\cf2
\u335*\cf0 r \cf2 \u259*\cf0 -m\cf2 \u333*\cf0 -rum \line \line
\cf0 - u u / - -/ - / - u u/ - u u/ ? /\line
\cf0 qu\u277*m l\cf2 \u277*\cf0 -g\cf2 \u301*\cf0 s \cf1 \u365*\cf0 t n\cf2
\u333*\cf0
-r\cf2 \u299*\cf0 s ac-c\cf2 \u301*\cf0 -p\cf2 \u277*\cf0 po-st\cf2 \u277*\cf0
-r\cf2
\u301*\cf0 -tas \line \line
\cf1 - u u/ - u u /- u u/ - -/ - u u / - ? /\line
- u u/ - u u /- -/ - u u/ - u u / - ? /\line
\cf0 sul-m\cf2 \u335*\cf0 m\u301*-h\cf2 \u299*\cf0 p\cf2 \u259*\cf0 -tr\cf1
\u301*\cf0
-a (\u277*)st ge-li-dis u-ber-r\cf2 \u301*\cf0 -m\cf2 \u365*\cf0 s \cf1
\u365*\cf0 n-dis
\line \line
\cf0 - u u/ - u u/ -/ - u u/ - u u/ ? /\line
\cf0 mil-l\cf1 \u301*\cf0 -\cf2 \u259*\cf0 qu\cf1 \u299*\cf0 n\cf2 \u335*\cf0
-v\cf1
\u301*\cf0 -es di-st\cf1 \u259*\cf0 t \u259*b ur-b\cf2 \u277*\cf0 d\cf2
\u277*\cf0 -cem
\line \line
\cf0 - u u / - u u/ - -/ - -/ - u u/ - ? /\line
\cf2 \u275*\cf0 -d\cf2 \u301*\cf0 -t\cf2 \u365*\cf0 s h\cf2 \u299*\cf0 c
\u277*-g\u335*
s\u365*m ne-cn\cf2 \u333*\cf0 n \cf1 \u365*\cf0 t tem-p\cf2 \u335*\cf0 -r\cf2
\u259*\cf0
n\cf2 \u333*\cf0 -ris \line \line
\cf0 - u u/ - -/ -/ - u u/ - u u/ -/\line
\cf0 c\u365*m c\cf2 \u277*\cf0 -c\cf2 \u301*\cf0 -d\cf1 \u301*\cf0 t f\cf2
\u257*\cf0
-t\cf2 \u333*\cf0 c\cf1 \u333*\cf0 n-s\cf2 \u365*\cf0 l \cf2 \u365*\cf0
-ter-qu\cf2
\u277*\cf0 p\cf2 \u259*\cf0 -r\cf1 \u299*\cf0 \line \line
\cf0 - u u/- u u/ - -/ - u u / - u u / - ? /\line
\cf0 s\cf1 \u299*\cf0 qu\u301*d \u277*t \cf1 \u257*\cf0 pr\cf1 \u335*\cf0
-\cf2
\u259*\cf0 -v\cf2 \u299*\cf0 s u-sque (\u277*)st v\cf2 \u277*\cf0 -t\cf2
\u365*\cf0 s
or-d\cf2 \u301*\cf0 -n\cf2 \u301*\cf0 s h\cf2 \u275*\cf0 -res \line \line
\cf0 - u u/ - -/ - / - u u/ - u u/ ? /\line
\cf0 n\u333*n m\cf2 \u335*\cf0 -d\cf2 \u335*\cf0 for-t\cf2 \u363*\cf0 -nae
m\cf2
\u363*\cf0 -n\cf2 \u277*\cf0 -r\cf2 \u277*\cf0 fa-ct\cf2 \u365*\cf0 s \cf2
\u277*\cf0
-ques \line \line
\cf0 - - / - u u/- u u/ - - / - u u /- ? /\line
\cf0 n\u277*c stirps pr\cf2 \u299*\cf0 -m\cf2 \u259*\cf0 f\cf1 \u365*\cf0 -\cf1
\u299*\cf0 g\cf2 \u277*\cf0 -n\cf2 \u301*\cf0 -t\cf2 \u333*\cf0 jam fr\cf2
\u257*\cf0
-tr\cf2 \u277*\cf0 cr\cf1 \u277*\cf0 -\cf2 \u257*\cf0 -tus \line \line
\cf0 - u u / - u u / - / - u u / - u u/ u /\line
\cf0 qu\cf1 \u299*\cf0 tr\cf2 \u301*\cf0 -b\cf2 \u365*\cf0 s \u259*n-t\u277*
qu\cf2
\u259*\cf0 -ter m\cf1 \u275*\cf0 n-s\cf2 \u301*\cf0 -b\cf2 \u365*\cf0 s or-t\cf2
\u365*\cf0 s \cf2 \u277*\cf0 -r\cf1 \u259*\cf0 t \line \line
\cf1 - u u / - -/ - u u/ - - / - u u/- ? /\line
- u u / - -/ - -/ - u u / - u u/- ? /\line
\cf0 l\cf2 \u363*\cf0 -c\cf2 \u301*\cf0 -f\cf2 \u277*\cf0 r am-b\cf2 \u333*\cf0
-rum
na-ta-li-bus ad-f\cf1 \u365*\cf0 -\cf1 \u301*\cf0 t \cf2 \u299*\cf0 -dem \line
\line
\cf1 - u u/ - - / - / - u u/ - u u/ ?/\line
- -/ - u u / - / - u u/ - u u/ ?/\line
\cf2 \u363*\cf0 -na ce-le-bra-ta (\u277*)st p\u277*r d\cf1 \u365*\cf0 -\cf2
\u335*\cf0
l\cf2 \u299*\cf0 -b\cf2 \u259*\cf0 d\cf1 \u301*\cf0 -es \line \line
\cf0 - - / - u u/ - -/ - -/ - u u/ - - /\line
\cf0 haec \u277*st ar-m\cf2 \u301*\cf0 -f\cf2 \u277*\cf0 -rae fe-stis d\cf1
\u275*\cf0
qu\u299*n-qu\u277* m\cf2 \u301*\cf0 -ner-vae \line \line
\cf0 - u u/ - -/ - / - u u / - u u/ u /\line
\cf0 quae f\cf2 \u301*\cf0 -\cf2 \u277*\cf0 -r\cf1 \u299*\cf0 p\cf1 \u363*\cf0
-gn\cf2
\u257*\cf0 pr\cf2 \u299*\cf0 -m\cf2 \u259*\cf0 cr\cf1 \u365*\cf0 -\cf1
\u277*\cf0
n-t\cf2 \u259*\cf0 s\cf2 \u335*\cf0 -l\cf1 \u277*\cf0 t \line \line
\cf0 - u u /- u u/ - u u/ - -/ - u u/ - ? /\line
\cf0 pr\u333*-t\u301*-n\u365*s e-xc\cf2 \u335*\cf0 -l\cf2 \u301*\cf0 -mur t\cf2
\u277*\cf0
-n\cf2 \u277*\cf0 -r\cf1 \u299*\cf0 c\cf2 \u363*\cf0 -r\cf2 \u257*\cf0 -qu\cf2
\u277*\cf0
p\cf2 \u259*\cf0 -r\cf1 \u277*\cf0 n-tis \line \line
\cf2 Line does not scan in selected meter\line \line
\line \line
}
)
SCAN=: 0 : 0
pc scan;
xywh 218 51 283 234;cc scscansion richeditm ws_hscroll ws_vscroll es_readonly;
pas 6 6;pcenter;
rem form end;
)
scan_run=: 3 : 0
wd SCAN
wd 'set scscansion *' , rtftext
wd 'pshow;'
)
scan_run''
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
