https://pickwiki.org/index.php?action=history&feed=atom&title=ChoiceBox 2026-04-28T22:11:47Z Revision history for this page on the wiki MediaWiki 1.43.0 https://pickwiki.org/index.php?title=ChoiceBox&diff=1614&oldid=prev 2004-10-05T03:47:09Z

<p>Fix to CHOICE.BOX.B UV for correct HELP display</p> <p><b>New page</b></p><div>When using HELP at TCL with a telnet client more than 80 columns wide you will need to fix the CHOICE.BOX.B program.&lt;br&gt;<br /> The program uses a fixed value of 39 as the mid point of the screen and when this is not the case causes all sorts of screen strife.&lt;br&gt;<br /> The following changes (in bold) work for vt220 emulation.&lt;br&gt;<br /> <br /> <br /> :0030 SUBROUTINE CHOICE.BOX.B(start.line, max.lines, width, textstr.orig,&lt;br&gt;<br /> :0031 Button.Array, selvalue,helpstring)&lt;br&gt;<br /> :0032&lt;br&gt;<br /> :0033 $INCLUDE UNIVERSE.INCLUDE MTF.INCL.H&lt;br&gt;<br /> :0034 EQU KEYNUM TO 7&lt;br&gt;<br /> :0035 DIM string.array(KEYNUM)&lt;br&gt;<br /> :0036 DIM string.codes(KEYNUM)&lt;br&gt;<br /> :0037 Default.list=0&lt;br&gt;<br /> :0038&lt;br&gt;<br /> :0039 textstr=textstr.orig&lt;br&gt;<br /> :0040&lt;br&gt;<br /> :0041 Help.number=0&lt;br&gt;<br /> :0042 &lt;b&gt;midPoint = int(system(2)/2) - 1&lt;/b&gt; ;* find mid point&lt;br&gt;<br /> :0043 IF width &lt; 25 THEN width = 25&lt;br&gt;<br /> :0044 &lt;b&gt;start.col = midPoint - int(width/2)&lt;/b&gt; ;* use mid point instead of &quot;39&quot;&lt;br&gt;<br /> :0045 text.start = start.col&lt;br&gt;<br /> :0046 &lt;b&gt;IF LENDP(textstr) &lt; width THEN text.start = (midPoint-int(LENDP(textstr)/2)) -1&lt;/b&gt; ;* use mid point instead of &quot;39&quot;&lt;br&gt;<br /> :0047&lt;br&gt;<br /> :0048 IF Button.Array=&quot;&quot; THEN&lt;br&gt;<br /> :etc ...<br /> &lt;br&gt;<br /> Re-compile APP.PROGS CHOICE.BOX.B&lt;br&gt;<br /> CATALOG APP.PROGS *CHOICE.BOX.B FORCE</div>

Stuboy