<html><head><meta http-equiv="Content-Type" content="text/html charset=us-ascii"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class=""><div class=""><font face="monospace" class=""><span class="" style="white-space: pre-wrap;"><br class=""></span></font></div><div class=""><font face="monospace" class=""><span class="" style="white-space: pre-wrap;"> PROCEDURE MarkedViewerText* (): Texts.Text;</span></font></div><div class=""><font face="monospace" class=""><span class="" style="white-space: pre-wrap;"><br class=""> VAR V: Viewers.Viewer; T: Texts.Text;<br class=""><br class=""></span></font></div><div class=""><font face="monospace" class=""><span class="" style="white-space: pre-wrap;"> BEGIN V := Oberon.MarkedViewer();<br class=""><br class=""></span></font></div><div class=""><font face="monospace" class=""><span class="" style="white-space: pre-wrap;"> IF (V.dsc # NIL) & (V.dsc.next IS TextFrames.Frame) THEN T := V.dsc.next(TextFrames.Frame).text </span></font><span class="" style="white-space: pre-wrap; font-family: monospace;">ELSE</span><span class="" style="white-space: pre-wrap; font-family: monospace;"> T := </span><span class="" style="white-space: pre-wrap; font-family: monospace;">NIL </span><span class="" style="white-space: pre-wrap; font-family: monospace;">END</span><span class="" style="white-space: pre-wrap; font-family: monospace;"> ;</span></div><div class=""><font face="monospace" class=""><span class="" style="white-space: pre-wrap;"><br class=""></span></font></div><div class=""><font face="monospace" class=""><span class="" style="white-space: pre-wrap;"> RETURN T<br class=""><br class=""></span></font></div><div class=""><font face="monospace" class=""><span class="" style="white-space: pre-wrap;"> END MarkedViewerText;<br class=""></span><br class=""></font></div><div class=""><font face="monospace" class=""><br class=""></font></div><div class=""><span style="font-family: monospace;" class=""><br class=""></span></div><div class=""><span style="font-family: monospace;" class="">Use in ORP.Compile:</span></div><div class=""><font face="monospace" class=""><br class=""></font></div><div class=""><font face="monospace" class=""><br class=""></font></div><div class=""><font face="monospace" class=""><br class=""></font></div><div class=""><font face="monospace" class=""> ELSIF S.c = "*" THEN T := MarkedViewerText();</font></div><div class=""><span class="" style="font-family: monospace;"><br class=""></span></div><div class=""><span class="" style="font-family: monospace;"> IF</span><span class="" style="font-family: monospace;"> (T # </span><span class="" style="font-family: monospace;">NIL</span><span class="" style="font-family: monospace;">) & (T.len > 0) </span><span class="" style="font-family: monospace;">THEN</span><span class="" style="font-family: monospace;"> ORS.Init(T, 0); Module </span><span class="" style="font-family: monospace;">END</span></div><div class=""><font face="monospace" class=""> </font></div><div class=""><font face="monospace" class=""> END<br class=""><br class=""></font></div></body></html>