From aaa1062859a5f2b82ee12b51f17410ecc8d98cf0 Mon Sep 17 00:00:00 2001 From: Thomas Sindt Date: Sun, 5 Jul 2026 20:44:14 +0200 Subject: [PATCH] test --- ths_example/example | Bin 82272 -> 82504 bytes ths_example/example.cbl | 6 +++--- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/ths_example/example b/ths_example/example index 8de58fcdeb8978515a446fb47e7f25f7f0ed6a93..e432c9b5318d07a625a88f0710d3b4b96b76e10e 100755 GIT binary patch delta 20519 zcmbV!2Y3`m(`NU?Rf64>7D*(nh$1N=Kq87P5sb*efFyEG225UZ4iW<_Ip+)l6C4Nz zL@+kNV4N`6U<1Y&+ZdB|Z}rTA&42gYb2r~dy3r4>9hSuCzUOh65B6lw)}`owmQZ{ zwSjb}v2j)%&fPh+wNNSCXNk?!!Nxny#%W`)Ej0C-W#{W&x7mB+ExFs0KY2?&$&xeU zqAk=oXtVoGw_#BD@E(hHJRmLyq>Sq#ZqOOheRoc52B z3e+|J^pEDrMr1$?Pcxc>Ha8}KZZh_OzBFzI#7G(S3};}plv&TH1L#xF7y_7H&sYmE z>KT^++v^!pP_%Tgo)I4u&2x>+pqQ!`>M`-$sBNOp-?5ezPu`NJ)iuYlIyp;&G- zGPlLWGL|w&Eo*%1h_Z3PRC;CvIIHn1Mnh+5z9VO#a{v!13*D1G{_gj@y!-j5lmv4( z!)E*uTr46f8uMr5-f8|aFK^1xq5cQ+@Z2qj5h=6O!qG;2NOk_RF)$>o+{p@z%}UFd zbezvf%g8#!VG9Lr~37Jxp&Q;LeyiKIqJ>4PG+x0 zz5lVYgz;g4s3OmWCy$A6egds9R&9tHNB-$GKeV_fpbTS8=BOc%9io0;;EO|{8Tcha zMedz~eEqrAy(C&XM(B$_}po_IQPzrr$+v;a-LIS)&F`tUdVFqe#Y}H~W?_l{tnf2Vy3bp5yv(YT_F9?g zque_UO%v{w5<4~iHEY`ISz}+%`pYum(Lch3@z&DqEZhw(Z#EhKFJ&8FD_j0rnNzfK z?->6GFAO(L_`!D!u=mTaXPtRHtClq@*)*X^r0IoQ7FPd{3FH2y?9bQA?z~pk*;4ky zV=}=bnI@F`*Q^LJ;Y;JNI*=2QgGddLx&zD}h5+^}!a<5aZrFD}F z%k$k`q9qz1?CcF+E{?^;;vE_r$717IY(-I%DU5r4D2~1vw!~qnf<%F z{~w;Hu4UZyhD5tt^%~ee^F4RV-UGS~b;rlXS9ZJ08hhNeGAo)~T&1cNWAT47iWicr zwE|KhKKdXpZ#r;1UWL1XS-{i4q=WccU}=R=LGM zX7;VMxIso{g<6i&Ma;f%6WCE>PlX76+PGL@7oToSh>nnAHDhh`0A3@<5uHpII(${a)jt!+N<>A<(bfx?T zfGg!Q0Irk;K(_^}y~>tarq^ ze)^+#pk2>iz*vC(@hrvyJ$hho#)9<5SS_C(k;Pbk<_|A0KgV*$p2)$av7~UnAHBMLT{Yee4wU@CBvquXV)VnLoRKiGsjVWCKe)plYiz4?# z+y6t509zVkVLcQ(N73Vz>M+(*35XYq#9(v16eo4q_+!lLt%PYFaCW9psFYk%=#Tk* z6!|k!7(hd9daM_ECn7cNS&FS4WV|bqBwO)oF7!4V!q|KzKgGz#QxO)!WCB^?BBVfB zrQ~0SM*eF{8C$Ic?4&O$%LsmT0Asfl z2c_Z|-gN_Gw*}*2WBF*@!+$or#__2&82iO!JiH^+-8GrHHhGE?~476^pNOywm;Gxmq#@Q^{%_$KV=FSBbpSF!3N zlbOL2OELDh$;{-J8!+}UX7M478GC8&bvB=aK)f>Dn8iPW@0lvna4~<_5s@~T z)x5zr)Buy&%xCO`&t;R_&7*N<6_Yv0SHf=9WRCKjK`3`7bDEdVK-Dvu3w%KW631k& z@t!EA{w8ySyNof3l|2uTdV#8Z5@$&12crX)^u!5^RP9WMQFL00sX=sF7?0`1SaDU9 zHyf9bz9md1khiMESV@zyb9X_;N|{UupT3B((k2teGjR~3R8c4j^G2w0WmKC`=jMZr zq@*IAWmvnMDvu>QTFzu_dZKE-inGUyOlK@f6^YMy6BNs;s#V8Emtm}$xg|UAgp*O- zWWsnWFf~lZ%^lkrtEoCjSrl&%)wNWAs$Q}DRvlcdOr}aAAKC>s9aS8VWPTs@rH)l zGmy`Uz~>W_8N_#@r>V&d=4DDT_KwL6;a7Js*34wy<6$tnxycOWg`l8?U_5LXKZv_? zOS5Y@@41$-Rwna4&qd%{o6HD)Xbaw1CNq+spm&zZjN&(t@$F1zH17%%I+)BD{sM{k zt{Q;j%Es~X>ly2)1`;!#DRv}^UuzG1+F6wggHgVPmjkXMz6bMEdk=rauPlxq(}I3M z2jj003$EoKfhgPfW%yXqtdiClN@SA>Sbh*@=$gN0 z8dN88wgyTye`1pPBoswIlS$z>;3|KUN#n)Z!9tU1$MX%t5ipqyUO5A|0h8&)ue^&( zfyoTwf8zaM*F<$6!Rv)G<}jHtd?nsCo&qK}p7+GKP)$_G$@~f+my2JLG4quqIM^F+WlOmoQV?YTmLUV-Y5^p7(&u+$OV`FQ|aCX)4&xr{_cV zlrXv7%JZe|6q_8D@SPgGQOI#7v!4li63n2}LX+>DXei?F0=Z=^8I zZAk~ck;1e{OPcjYn#g!DA@%slyWfbD7%y%OzFpcUwxns6)I~Sq{+j3gK%5o253>TlqvDopj@CkwQ9~B3c(jV@Fx1*?&QeB1 ztty`72o$q98{#0#g3#MS7DNnJ4&mJrF~p5I-84Hb`aTU6WDK=vlu4$7WeORfOh8ki z+MzUo%+(S1v3}Ze-*9Gk!ebelBPR%nU{1~vlj-EU>*F;p$vkKP45g|Y$>g1*72)?kICg?x&A(pSYGE$kbcVvW5((jvaGKIy&6 zkQVigZD@_XMbZe5Z?I2%oy2b6;0D&s3JpVXf; zl(3{3KHnDfbcHx7h@vEC-$|DukgZy|;CxQvZ=_34u?elbGg$Bs)7360BwB2sS^iF2 zYKnJBPh?u0qc}#{QFSbFuzv<)@f9INH0uiESa2L<73&FEMm>r@o?sWONEm{2MWM9@ zN-uG7)T%n^LzJIvPo{C$oYV@^YL@h2ZA+??w7MltOSYteB&}gd2l=E9lGe1OSstIb z0Euf^;@v)JBuSGk=>?y3L>owJThfO<>9R~n>sV5|&$LA}wyq_O^+}hJv>v3`Kb+$e zuO@MQYw#eSbOT8nSkf$?bSp_4TGHJ<=`NC{SkenV={}OCTGCj{;Cv}~ZKnMeXr1zW z=XBh?Tl%>7CNuVDh>!aLXJo{}5GI~{t41<5R&!b0lCiidO}6?<7{Awbc_@8?P!#bf z#Sy?jB9t9M_=*K0wu}-(@Lf%wlAPgudEUI*8)VFfn_odB=*OSY< z2YC^y%&2u5eP-t6%A0J4MxUB_`TQo^PNUDwynJLsj~Jb%(MM-qKEdox(dgp+*InNY^Ko%XdZ3#+BEtI&7&jCUb{x0p?Qqe8>Z2xXdYwDb!&14vGL~M zD6Is2J;GyysNPE1u^N4t=CMUgHc_K5FLLqJH9w_5a2YK0AFJ3UqfAO9cN&dT$^<|SE>6(O zRl}2V1siFdTApVZ6H}K+wlhYdMn#p(P$|=>+Nf;s#c}P_KzT2BtBQPa+)!1Q_vgId zXen24ORAV-Z}PJ1i!eo7Qg8-W@vv-(#nz8(HJSa*C&apHJ=aUV41RoV@;S z$=NI|y=AM~En1~FsgH3DYBy+*Q*=;ju(5d3R^#h03K^s-gPryFONOM($fw$vD4$sL}d(h>?8DFDLq58O8Ol1zV*y zt?!PjR57+D01mwHSFhM zkQ55kJK^vsa^WC3*lMc+U5Dt3UPLdBBRZrq(S|5tDhu33wDBCG*>DuhjVJmI?TKwHKvaq) zdJnZ%W#4&l?Nr(9>O?Q%z^d%{dqk%!C))gdqRM!p&Gr!8Aa?(v3bpAkH&qsqOtgV8 zPQrUkWh2BgFU7{_>HvTAAexJJlgjE9B5E%}G=RPrhU>(%4il+8t})S#%ZLVt5S=gf z6iKmR_l3IMcx7PU$Ssv^6T1xRNA2_>ME41UHVJ=}M=q$WrC8;2q?XFc7bLo_Ez#zw zcmt{Iu;>`wfJB4RiFQNIp|%YsnjJvYR*vX-T+&oFSoq+)P&8loFV9ADx(BH2bFpwa zym?htRd^y@1S=+iBu%OjZMdFj+hTYFs%(x(jaP0GHN&e$Wm`qeTob5WKauD>kuozy zJ5G3|MJtjAE+#r!s9VvW+U+BV*56BXtY}{s!7U?_G<^}tWAYOnOg{6lHZn0iS`(!Y zMk?zhCU+O|6C&zWDv*3-9MQX>M4Oi&Is_zauCd5&cmt ze{&St9+tUV-5j*~@9JR~0BszEl(aN0#6?^(bn00zJNxm&Z^fTf7SB zPXwrv$oZ5-B=HjmZ*>N>zw1jhOJvn}k%ko-i2UCvCO;8wkJv_odWaKor8l*=iLA~U zK<%l*pzgw;$b}?Hn@>~`CFob-%XdVK!^QZTB78%HpMD-fBU=ca!-OZ?C_$+IJw=@I z52x;Dvxznm`B^`l+M`m5J{1luEL02-$@P&q>y1UQ&WQ!yjiHf0Hz0cUU7`&t60OsZ z=nyQ1&xO+?FIg7Z4pPvLspb%DYH%zAn)M zLg@*STz$m>yE&QUvT*oMqTNHJ_QeE}_Y&;^I<-C3#4)=nVs-}*HCY^B0mro5!2g0c7#1$TlsT-*5ot^Nm#i2497JY76+Zd4PqyP)EQb?w1Vk^0}Lk z|Jq`{at2@t&m!GR`HzLMsZ~6&8DJ~V90oYZpY{iQ#O*jL+Hd?%it+<~5=*F$c?8wD z7rY^z#7R;e%9xo_>|VessU2;5jkKXGxV6&s)!^1izuUmAmnx5@{LhspQVN`tz8?zs zLi(Q4`?7S0lzt^O>53WGByytqwNR>kBavs-Z_Sl{kP?x8+70Op)t;Nu1k^_n97QHU zU>jJh<~xS13F#b}{>od;mg#TR)jb~hIi0UVat%s{3-ZDhfN$kvwCWxC3WfWwJbW$S zH#w?3;DLN;C*Yx+GR4vuvS%PZJr~D^GJJ1Vs1-UZWOC5>g_A&&riFplentsaXBj0| zvrdViY3l+(n|oFux@wDEl|g%yqjkpC?f^P&8kDM&_zL8JI++*U4w%NL^aaf0k11!f z_~;D4LOzrHwTQ+d-z*CFlE0wEuW)yHz)fC>Lir$BunCauk>42&^vcyq%}V(fQnN{Z zNsihrmxEihgK|P4aEIjO$a3|#Tzw4SOZm}6z!kX-CEa!Ta~W_;ZkhwQE$fuJ;}w-s zXr8iuDIiPvrvhMuGIb4fZd0xn2e(V{gr`_xe5U+Oae1zkrL|uu3xWYJl~J_JE9C?w zb)Iq&qtyxOZ&cVOs`tn{bJWlpfVpZ6rTA)fVGLlKnnAF zswL2_`-B4Auq8^Jmb#G2ThrZ$uGUN+g?7s`aJAN96YanAG~|w!aeXD)-FEN5`daUs zrNHzb1`~ua?t8S!$P?o%{t!>@3c+DsbsOMA-gYeDBYwOC;A38Z673USmCo)FK8D^9 zNBP3;fMYzH;5c7U0PrclMsYjAvxqy%?~?ydaZkbZz+C=qJ-}(+l60TpkFo(5_+glU zVw2VgFi-B<3Bm>PC@NV?<&NNlABtVTuGP|A5prRE|18?`fQOVU1FO<1gJ$Og9sC`6 zcgQpH?sz^`0!-i=J>=Ahye=&`iI1b5Pv!?Gc2jt5EU!-G4|V~j@jA(X8T^L;Yn`wm zB_Jr~rD{;Tdn{-TIzM_Pxu%Db5{S_6?ij6ZV{t111 zf~l0S6}0k2@@kb-R5Uel*n6N!qi2Iw9bN>q+5vK5^{QJyYiwN$TGK@byjHEvpveYp zt@Z}mew_qzR^9YDp!H@h1+9ObGPprYym!=wpR55*sk?&S|EW_cW{rwav247ZUarj_ zQ|`5D=>l!L>mASzrw!0fy}Y13&%gG-aB@k}i*>L;H#{ccys=-O*WKRK_M)vw9ygAxxXh=JB6^XWi zmRv->DAghXv~>4y(5TaNFw4l~gtF(LK`nRFAGG|eX`mJMQCUbD+zYhoDc}#Ez>E6Xy@TGK-2fo$;gPMaAj6V z1nttE(yr@hk)|#>Zrvj&L_PO52JLk+3AFdMj-Y+&6$b4)t0`!|1Mg$Qo4GTGirE&P zAIYd~1Ge+*^?)7Ru>%u!@%uFZIlN3X;1KUchu|VV-x6?%_gMwF%s+uL z5qar!bu^SOhg*Eyupsb_jv&88|3bMN6@%sSpqaG)^>Qw~0k+7UsMO@hSGEK8$=j(W z?w5^)Cv=Y4vU+z!^1(UM1($59$Lx^QgDT;PdJcdNF*ix~W`!p)Mv5T~I62 zF}SFfSzXW!@TGd3*1e)m*8o@5AkzJn+NBEMYjyKzz_;qhPAAX2RA-TAUa2=|7kTPS+S3GWF`dfE z+NwmrG;JV7Yr58}6JUlmo~F;#cE$Cx53E9t`+ii=>lvT|3YR@PqcCIpBu&BfZ0JX|g}ywpNwm_p=sX z5pYi{F2bm_F9+_v=D9T%_?vcgHsFCak`n!Q?ZiaDL+ubn?oVwp#psb%l0yBrHfAf} zu{MLY_Dp-y2Jl?F9R+xym74;1snr%F%F7V1@N0la$cxq!v`dkq0g z^wwn4QvJ>#z%u>U(tzdqKuVt#`aI%R>ifu;wR(GU-a37MGm8Iuy)7lq27P`5z(##G zrS>L0mC|6dK8!MLi++|)^j2L90&LgIIRSh03S`V)y+1`HM~@@er*G~F*sr&ukss(^ zQ?w80mGc1(>T-F&A$`XXz+rv%UaG$z>YXSuAL&W&0zTH8(oy_GkE8${(T~%6@2LJT z4scAjRRbK?J@Wyd>fiPUoX}@bH9x64`~au)86kjN{Y)m{wEhceIio)&W6tW!C@;?G zb%z2z)5{E}`g>kqI}7aR`g_d)U+5}%{epg-65^uXkMio0o^W`cAUqwjM%G_*su`1o%Ziw-(^JtN%l3 z^1FVU%JD<}ciP$?dYzJhKlL!$#b5eIlzNZ!3pC_!y&|28$9g-`_Dnyx8}MAeN7`QK z<>{Ee)DtLKUg>#T0D1b}5`gix`V`&?wjaqs6Kz8)0Va8DP3fI7+4k-{z!ck=1%Rox z`?Q&9wi4vF>9(Rf05fbclr%GKUu*=-veCcURA<|s_5;kZ>6DLiZT($EV)wTuMfHk(<3V=|%1&D!59RtU+jR=_Zrg&XfIYU8G-j{OL8j%{{%#7`XIn}MvETNP9Q1+h z6dmycw!dh?L0bpP+(WjcbiiTT3OZCD+J2(_eqtdO7C8oR+_se>bHdiEFW{6dUtK`1tq7Ta+P00HaK;uuaNd^50H51t(ezxu54QtO z`z?PT@YL_CaKJOa-zjHS`R9}c?D7vHKYbE-PzM|dJlp_qH1OJTI)BFl|A0F6anS8F zz&}Bpy!RxiF`bI__K6gy4R)y|V57ZSZNMh`N%Goe`Q;zSpe@{hdkKIGrxz}#TbdQ>2m)C>chkxM?*l({93;4j^lHh$My^iRX?#`qj^W{t1|&7?5-YwGxjjb z@w0Y`{Cm#+lwx<@UThe^^SOOE+5Lq*p$*_C`*1p(_w1AW0h1gHX){wCE#Co5b>ycr zGR<+Af;Zi;@h})L%h84`ob5Q?8!*RFiwfLaNBuOwJjdt&K(-@gIAFe`I@L$R z@pKtrfydF0GJm0C0aX#N;yU^{ILtcIdS2BaRcj07o5N$R)=dlW6zH9cg6YDMuv= zbFQN?4LR*tJP>fkQI;Zd){!&~aL$oJVfxH5Jp*vw!9A1_Upj`+o~}4*lP|71w$Vnv za`dMI@Wf%;19{ImAwASF@ScT=eYeYV1iSo>M_ZA zFB~x0nVk-p;_My;nCcwU95BOKyayeina+MI0kfQKwgF~4M^^-7J6lBp<~ujgwhd=I zMSFoWr#fJfvj`m^uQQrX)naGAHGn0~di3^Q>P#hfFLTCI)m!0QL@39!Rifjqm@S-}n1wr(4btV8#I8}1jN$1z(yi?AYl7L+2Ph`buXUV>Rv(8URr{|pWa2)V6XB&d^&Neo{ z=gxLp0be+`PlwD6k68Zq1h78#Rcoq^)3qALQyi0b!2k^g1-L79r z=^ocL7htbz|6o9l>sN}wK34+OoBgiOx&c0Lg--+=a9wN%IOuXx^*H1z*o~APcBPW^ zL)XOZfR9{54Zz2)VejA{t`_wkEzK8)yX(M}c(@6ywP+V$r@e!tcnm-4T|ZMa1*SyQT~e4Syo0hBA9~Q|#-0;k}6NMP<3ok@i-X;^k#|s5h4S zvfkyJE?ETXNrTt$SJWAwpiz+qN8c zct%-+e7~gjO`ZTb8Ta;2@RyjAS!}YY&9|pDmLA_vuaO+$*=)&uzpD1>-)+i0%=f!& z83K9^S`+98R`lRFiRY*#XZ20qx0^FUUXZ0Fn{uB)7p?K*-x~joHGYs7kJp560{sOQ zxtE~|(c@d-S8GC6vJk%>|Ceupx5mG)#_xV>yn=d0`p2Wb&?EF0MkC1TVE^ubynvTi zK$aEtb*Ip*H+Gfw#!+{SPwiXXiQY`=PWH`4-TwFNRBtwQH}}nctGk2u7s9N&avA#Vtf2FMOz`*eSk$!3-Ze3BRWOD*n3FNL zIo)?mig_8gT4fj2(&VtJS_yVcrRGP?_LuPEgx~mZq?a0PpTNzSaCGt~WiN z50mkuXYZwW9v4-G^&ZfBXz$E^y+?KL7F|*NPC2e(bVdAZIXx~ux?%#uzw?N$SkaiU zBHTkiHIA+r4-p`adVsM&%!p4SOpK0Cq@Oy+B}B(pAr(OJ3+T8?(YXFV0IVoRRF0-! zNTj)Iu;wwhSVIBO6J6b4>PlzU+08?Y7XrZuDw5hLhv``1*gtjWtP$s9xS2>W7 zz&FYVZdBnJ68<|E-a1uzwBPi6W+?vf0*%Q0!CrfHBwHtM z?dm+n&v!sFyd$ggDt-s8^K#I8h*;l$Rqm+wDY2(n1%^7_?#0T&T^7JDbu z;725zKjZ~69t)TJi@(tr?pLMWk0fB;c}B!CD=2}K0~mkuEW5-zYv zZ%VI`-a#oUO;M}}iV9XhrDML|nR^$M|Nncw=lSmY=KSWInK^Uj%sJ=IhK;ADh%1vs zQIusxgW{NX{NjU|eBz70i1T|s$Y7q=9XzhZ1dGA>kl78M162H6sb%n28vhq<)QM+Z z8GRDJ<6xBy_6h3wmh8&^x5;kB812^mtiwVl?w@e~ot@`T7CY-j%(o~(f3R{pY*!TVNDG5$=&)@ zTe#n3v)8R(u!ZXpes(@XkM@i6n`z2(^kTnoeYBt5uh5iC&^aXQAem!IR!GU`kQAGe zBXX9_-|jchlw6Txk|9}ON|-*;KU^OG$y=txt#^iGAtZ}UNs1hE3X)}}Bu9?9=O1Oc z(?YKj5X&(sAdbiD6G0R7?VvsNtDr@?BQVZVoTj%3jI}IE(?0Q^{*UJwySZ( z)c;Zsa5m;U^)}9$ys%`Lb0`npqA@o4;MaeYmi`(%bv>9H*EIcBNR>*Fv6zy7@_OgT zrKMAkjPl=8is!~wj7TpKkLu`&p-uP+eOPEjt+(qiR*;c1`54d7$SK-Ok%)ym)uj2y z&}t=HC(tU;cZAmFvHG{6o(PTetIDFE~I(bHq9$~I`4+jJC%AP|2=Qpzd8bqX)isUw!`QhNz%c{0i5k;(66q)-0UHh@iFY!Dk{!4Lk2QAevWmI2&r z;;ks~sZu4>m&BOrF=D#ZN0BzZ4$7esK)(36sK-W>O`BjU$ue=q1ISC5`yVfH znRVo)*G;vb-+!uBzY!UnevK4izyTBgLV7)Q%r4k3HDW}JR6&k$KT*5DRQvjUJ*8}w zgngI{JNo`>R*xsMIzE|o+?-YIzW!}wWScy5>2wn({Ko{#zm&c9MA_gc$_yu-ynbA7 zUbbp{Yr}%AzIcJPtDj7I>&c{G**bYWPrn>lw#}m|h7T^982BFpp8J=sV^4JLd7>-U z)D=tyBz#;$y5Qlzg5ZxQlYV$I=|ywWfxF}a_bI$U=@fEI3l>7l(^FU!qxXxfVR`W` zIoZ?OSfS0oR%k4>9rK0RCR2IPUE{D%iY=H!mGs8n_fR1BP$vD-s;EFLf_&yC5Zp>h)ooeLd~((o*Y5k*jwoU%p2UnA6Aq46gW~TYCNv>G|XD zr5CiihqC#ZLK&Q4H`z}N77Asr$6(zi+ktG%&xkVF&Uf|0WK6~@hV_lY3`eb*OiSpLJ;N?-}`3Gpm})r;4Q+%@#z%FTKw zx)b9QliZ1Q8zm++s#~A&a@NL~m`3H+jd#Qh;1%FD;7#Bu;EJ22rFp>oTcxE}fE{m_ zmXd2H0m}my0Gj}BKhU>Sj){!IaCniimYSUa>C5Wjr%1n5xn@EXlu9vm;R(ghDE!dk zw5abXkH#$gtkm09sbpz&OCMCFtfluYeOi@@mAk-@o;Gy0Dr28!Nefb~U2TDyjnNz% z44GZ>ewBwdcxi%uq*jKWSKFpX)OJ6)e+Tc^3BLj~A^C(;0RMc-bh62GorsI!$v=@VlsSFvNG||zLwW;%8xoDg4GAMFvzGt+Dm@G_i`VZbWLl2+>)S11 zp8g?pG2nDIEWGbB#wwt|$tT~uv>x#{1tvr+ZpWDQv+!o%Z8oi$3!rEZ-ekfW0gRUwre0`LE7I~t&DcMh_PVizZ47j?O(#!J!?o!Ea@Kx z0y{5ag@A9f(e9?$yF-)%9|WCLTp!GW>xk+`^KEA}CzhWFpWSdP)7hUN|I%W{1G}YYIIVGIh zj9=@E3^}g^r-QTc3KbcwAaW1kp|o6mqdFDlM!P#wjiM>F=R z!Nl{4h_KI;@Q%=y%x_~OmwdaL4h5h4cJ)CDV_ztaE*O@?+m|;<`af7 zc1>|mD30SZ-)8Iw$#~d!o*l#3k4D#&MTB`zG9@efUtmDa!#|YvX$-@4b4NIS#!B|5f1E2Ac8yIUO%sQ5hk6w+9E!nyD z7Gq5eCW8Ni)tVZNn^Kxtcp8Nz$OJM9c+DDSm^ zvGxWtjL)cqYq-JW@htRoG??K$s0L%t8O#X&cr#<23}z(n39~yJ%qSiK1zjZLVXyKM zTw1#tU9a)ws~F2PnAdp#g14K&jOJI?O3C<2DSWpDD1YZ&V(0*RTx6gvXNuhfI%>MgA0!6;wB%K`gvzI#fAy}v)suQSq* zsX;%XgYoLv4p)OmL4mKjVs{|2t|H<%1QAqy57OcvksDpJ5;a`Fh{-YuB1@~RB!h5SGmE@6hY6}&-R#wr=i8lDT6xeaC=A6*BzX(-sl z6U!iasu|oi=666p)1+M1AVewmcOeg$pVi$0fX70n^PnJlOZi!&OsSfioxr%Gg1iD) z?QR+gC+B7-GVU~`ZnqRNRZnT^@}RFCimxv>8=p{IrZnTJG>P#rQ=0Qs+JNzJ zQ<~?K_9aWoMTDc~_*rjK;NVgFk|pI$sl5r_il(?O;}uMCd=n|8!7#0&Db08)g=v*c zY2H&QOmmykqNh@rR@szpdn!$4yo!{1{H*7niW@Rs)f{}&lv@6QF}#{7wKp|PvsgK# z)lF%11=-gY=x{ zHS{6P{XJF45W5$L!)(q3B(GHxdP7(xkrS1@c%M`n=7v%IR68x7OG72;Pc0f{kUX$V zAybrB&{U{iC>V^4V0D^rIJ2MbiDS=E9ZP*8E47$H+3wEAtK0H8=yo|UczTeX zc=(d@7$cUTI$Itm(lVCf0jzRMR3b|vC(9Ou$bn3LJe4!{IWS`m3YsM`QW{$PQMP6A zc0^%-$3-_EKWnm?Hx^Q?mI)=re%5%O^pARwI?B+7ti_*aTV8AkJ}iX1f=p~@ENJOQ z(r{C{qOB?IMA8V~Sf8{lNh3o%hKd#G=3rhG;Q-&mjYSQ64st>ha_uE1l7uK=mrH`pgFBo&o?V_TYIr<1gbZ>&$M zk%p?KG{xsdTz;8aGl-7ET6{g*a(W@oUyTX*Knkv8TdKi3YAxqE$=}RY`=Cguae;KI ze%5uSnks#=lbIUt_!gt=e%5WKIOJ#!V+nsih;vIbtP8mgSz@V_75QWz!HT*g5S2K& zG^6Y=OKK)oZs?>BNPbp(iZR{Nnxu_P>G@Ps+McA1O=*U2Yz9f2n9@9-v>QpAn$jYl z^aYYOBdG_=ZS#qU@2yT zKIrl~X0J`qM_pd0lF@4y^jVk3n!OQ%KJD^YbFN$L%ON(=7#t<&w-`Jwh>E18I6h3! zhh836!Qhhx{gQ#l>3*$KT!LB4Gzw@O&@iBFh$RAHP>)${CB0iu<{rpuMmo4tONn?R zlA{_|j^)0=H6z=G7+vFJR~4G((=&qykgBTwPh|9(tQPyPrF?Vo`6QM%kNn@%3R<#; z?nw^|sR=8eXeZU|jJ__tGXBZ&gY@WtDDXTKE8y3G|D=D4ja_V8o9F7h-CO#Sb`^O) z{ZPA@kV|i7i9qWn?iPym(wn1%X5Cuyu-zhFvZ%ukPG@#@|D<}Oqee%&N4u+5rFO}j z?0aQO3Wrv*lpM}W57GN?b=#l$m2VYYow6~!|H$mbx{PQ&N$X3Rq(}XeT=M&r?Exh_ ziXQQ>v`#IuJ9cW>twXEq%(fj{;n&8ANp%qT{5#fv~tIfZk^h?wZ34>d0XFMeezx% zl|53=*jAzBz*esk+`iTG*%@8hc1-Q^JO(C|bbfbXeZAV4N+oan9Ice>`@M|Cn$a<{ zb=2vb$-qp zY~fY;0&iUlkBgnT4zH2wPOS-YSh3a&5fMeNK~gSI>xEoXtmT8OA!b{YJ?Aa5aCe)@ zs40pyDoj`&&cj#{E-WqF5GmH^2w^#qL%lJP!t&z=YSk($EZ1eLb~)`hYJp;nD=$J8 zyz0Gc;nn>gc7%$EVBuQetzqQ}{(q1`VUSGP4D#FW-K%;`91*5cC zXIra@@cC0nQeA`=QKPJBredvFLxkqO=-p}MF`g_Wy(kle+r0?>3zbpWhbDtMc4UG& zTj70gb#cX7UsV+R!WaKPt`IFhgJ>}dieRC*?g=((Fwrk*8k->H5hc{V;Yai}T86dU zK{V?HqT}UAPr+Pb0#E@2djq*6Sn`WRt4=4nQcAW@qju9xL>XSNf+YB5Lys`v)RW7quZftr>lHBf3G@w1v)N(|F zaCH&v82us_w##YCWGRw^GL}%=9!hkt+|!42HY}tS(RuZWmY+}bW4X)S()oTPN%EC6 zsPjTmPbbif*-nN{$S1a6n1@z6~o zy%W*d^2`oTq;_;N(bg{zT`t?P(kn%oB-tewTO!r9!G{|}LnWevcMyF;wnbBF*N{Q# zC!-`Lm?Y(ffO=SGD=`PV5j_z|bc&puBjvxyQ!iJCzQL`8=BFFjNx6FeCa| z7ow3>iRL{|^n5d-^J@?-FLznLA+?9a6ZMxt9Un#Q>C(He;8iZzpEAyt$pZ@XtRvBw zEkqx^P4o)6g?+f5=%4;Xvt&qq=cG21X2r_Pu8G@)U~6j z{bl^0m67~>2a<1mk*HfPL$^8nOr!QlY043q7q6@&iK8#kX(>cKQ)PVKl(j5Ro>Rj_>R2f& zR~@QP8?0`nL#qzd$u8FzufV*TGY;yrDLH?q2GFwO|+u#imK)j?3J6NgiK$Sr3Xv(wIjB ziRQN=`T=}^`rk*M)85xew5E{g_b(G|5lQszwnXnp2c8%~?Fi|!vd>d{l{~Ch~yWSEupzFif4!e~0tb8T{befPB6lL8Z>* zQPfw!%VXc_EdCKzR15iCR0?%AKa1E@=kV8B0E&2g0ic+FW_vV+nDGpMDGQh~J{pFxfJsEnudl#}2@9i-oqm(vlwoZk6T83UI3}Kij~q zv0NET@qg0NA3hNuTBg4WIA@th;r)qaE)~y9mau-9@wtVZD87(N)h{jNS@D&z(zllH zPzTg2mXTC@u3BoLKFUK>Hd9yzP9#&yjKP9J9Y+a_gHUJe(kj;!%gD6 zwfQo@SJnbr^}02Z#@w)OSq1pbI*mg9ckBHvfScCaQ%#MbFQTYhs%B?rFtyqs9G$4s zlY=HUp90!&N(5-?8ibZ;u|R-!N=*jMSVn2r*)x$svWuPs+P^QYGydKSpl>EXshG^K zA_l}1-f9zII*+4Nn!{I+zl(Sxm6iECmHf4Uf0Ykd#uqjOEa#Ui0xt6VwD_l7q1?F2 zzarw&lTS_ShKeEi<4EWemIuY=dr5F4szP7ZQ1Gr`x)gSP?%Fl+ueC3!S!OLm&RuK0M~>QN4Tf9PJ=TPB;PzUNBg(}w>yP6A7p==C13tAf z+V*AZX)EBGwP^|92Wxu@-3iK8^3xpUImCx3QogDKcw0HN5;`|3XR3nRs(4zao5%P- z@h8_kRI1b3kCZtffX7NTTIL_+kG6nPYHAK@yPN12phfE6||p9YD)e zC)0!R-5`7}RFU$+@hRFgN3H%BNn;YKp`G?M9dMh+2spLv0V;1DU%=_AowmP$cGsJ5 zwfaHwrwjm7|HTcUNi)c+4gREKPp(8hZCJe!w9&{4ppA3M zJxy}ggEswc6=*XjC3y4x>p)Z1k`Gfm(e_*X(hD@rZ#HPldZewDAG|19KQ01oa|byf z(tle@@Bg;(bY|^NQn75`T?g&ls3T}*h6}XEpU;85Fk&8PFXuwgmrp(Mz*2Ha#j%(p zJs+~0{M>)F3OcBkALy_lJwfxXtp*)YaVY4><5Ut}J%^EUjwfl16RnodQRsK#ut@YS zqRNnckxa>HLZR1hAQ?AMyaYP5T`=gd?&R3KI^?Y}b2#X@6Ct4EwXUY((036$qU`Wo zlb^yZIC;EI&rxA5;LYfa-{PK8!+?wU@)3Z={HFqp*~eFq9sBvd**;~p7D3?tg!UiR zlw2PF{$|jmDHLC+!H7N4@hH+p?x{-ea%fc5$bf3MT7p)0(-GHbMj2agU1QMt-6v9^CnKYC3-|ag(m+o)(1?|yy3usm$h2!%FX_;QN ziS~BS1kL`Ns&dYkbRfBoWY9jDbQFDC$uK=ksrr(Yj_Bn(?Li0pO66tX97@JPspUam zIoA<%aPDYqcpbNtV10Ex--~EgH}E$n0ygrJ6@X2A#~Q$9p1c_ow(^i>fD#@Q3)sv1 zQW9L?j!eMEeARNmCw#yJ^W-gmG=V^Q^L3L?pnt6u?FJ&gWMs^@&Vkd#5^LE4+W#8s z#u|Y2R;>_FVtup;@UFEx72%!MQ#53kb!8X8Zfi>*Ex_H`e~hd*M~;BmovHy;oEHJFbYA!QxwWwBSi)P#?f4 zMPy_9Unuh^1gJ;>R&l?Jl_e=5^y z$X`k&DwcmMVKo7Fl({Paca^eJsQ%qk%De^kq0*G%u~ex}=1&ni*_|&|(e7snZ#rO( zs2&EGE0)V$h}IM;i^W{p{W5U_M=Dl|87~0Vh{0n4YsEo2wGE>EV8CWkpG?~#vZ$DD z7p*9YJUc{#Nx%{j9Rb)S_KySX7C{uTd&Eqntk^FuQ`8?2aTKQqMKV=_L*mq0z+us= zJm82}Nh=){6{%1i6I+QpF7VBCcvO@n=bsXFC?rpdqzZr!#RshbA9=)LGWd)bSPVET z+EBSVC(e_H&WmA`1{Xvr)tQgQYjjMXh|j6oT@;6D-A~1274VtpOmCMC zc?-bLV&W*kFQNr4_^ZgIxcE&}>kjx`G^Q;4L)@kP-W11Z`Yo}b65vm9mfp>OiAA*S zzs2iS0C&VbH{h;V;GsR;6Pc8i_l1ip!~-#F7~r8;NpiZ7CXo@|A?8ii&9aI z_B2sF+!QcHeK#2}T`i&0nxR(e4air=()5|?yf{FCx|)KtP~H6!ph#^y1fZ+4dsBGL zQ{Sdwov*Il4p^Xeqipo5dnrs7sp(Xy7OU%!4q~Z#vJPOm`k4k;p`L-E>RxpO1GitT zh5gD(dfbqFpdK9!!H4SE34o8(O=|&X)XfV4XVq88x#v9UgWACJ>K9bsE~t%`13poo zTMf9V7N7))&(u5$oG(=t2>41Jl?eD+Juw{cjr#mbz-2WT6-<1qCUyZ_QT-YNuBrd{ z0e(<(>HL0F!|DQlR?ko{{h~Il1^89<%zhL2n>vU}&+lq43iLnJp_2hO)unWDx77-C zMt`Z}x&i)HS8o8^QR|KYJWvxTLLaK9qX3W8PpRfVR)3|wf7GGKZ!tle`#fNZww=;! zsy3K%aGI7$%TCu;cyfU=wAyrz`PzYsfI_VbjhU_ePL|Hm+Rq0RX@5}7D%OfN0p@GD z%>iERm)U@Y+Ojr)x3p4n_abdBd1kS8t|nlK7D?f=R2xa$GVK-0wpE%HM$EZfGkhO#aa3ECAfp-lDDD(rVx}AZ}~tXr({3knVuLv^QwT-&!VR#T~6H zX?vi3yAAMAt3uiyX#G4K*q*23ooM@(95l(6MYU$K$JQ{KYq1Kj z!M2u64%z-3 z1UPK_WCq}fZE`N<-%;C#)OpOdmQLn9n{zPWgspxW;G`{r%s*xOemUT@EsfxeEtdh# z+UnCvC;h&oG(6?kn$rKi-^ED41HaZ3Gt2$GF@UZ9yNdyb0!uW&;lQ&L2}c4aEv5WB z7Pzht*gHYdodI`)Hc|xM3;MeNu*P1F&gpG?>#l%z?0r%JYwcCD0PF05 z{Tg7dqMn^N+?d*uaD*%a zyzB5>B1?BVzFZ5~7r-8etr}pjBbut$KF4;7*~5-r}adycs6fcuVw4uA)aMtuPf9qnkyBgZN_t;ddQWYa&62-Ad(npujnPBVd*@yDp&E z*|{=cuCr4-?OuYN2z@O2AvrRC;?aa;A{G7dyYEda=}b zmJ)WEGn&F_&BF}Dd#<&4nonO)Jw>f`X0od+bxC5}m`7jz# z;ygDV@UAllLFN%VozZ0XZf95$V2^VI*BKL`z_g&ulByOZ6ILSG=am4@D| z1eoADNOn(jZAk%4ay1$TnCd$JI$)Zs?KHr27f%P|yRrpfrmJ--pukmUI$)Nolrp{0 z)sg{byN)CR=D6Od4k&h&&9)0W}a(2CCPl(ObUzzF8}QSuj{*+fVW(A zC`cE%LNfr1UB9mfEO9li30UgtPDioK^$Ugka@QD&^%brcYXMfe7SV)NuIj@9t6epw z0@k?NHv+uvsvQV;$2Htj8@Se$OVwwcYde{^-j(zYV1sKW#q37cW{S>Du4&}~TU_U; zCTw+$D*|kD%_pVXU7xxDJ6zc#041(-bO!IbF24oX>3ZoUz%JMENr2t1ILfp=uI?1$ zdtD{{=w$Y}*3$cAzia&_zyVjqd4Pkiz21ZP>1kI$}+ zrrh_n>K;ZnD>3E1uU5}C<@O+a^r-_UJG_&nSF7vxU-*?ma;gI31e7{O9}Qw@BK z5f0|0PWkw9iax?rp_#m<_b8U&wY|9n%?;>jz+eO3G@w{Q$8@elJatFhIuaLEOy3FjxVi}Bkq`^d^O!S%Hnk-!n}&!RDxOtG&O`Byu%au zQR5rC-UfB~tKRK(d0bR|HgM>`Q3G=a4}9aLezA4sx11B|#@5A`p0g7YW9ud|{C!7k z-30yU(nwGL?8FAKb>ksQj!kSxJq=Vd#e)-X1q0R)}|G>q?I$Hyj+`a~d<;Op55 zu?b`{q12X`7@L4~vVl@*V%=EM36Lri>&22rfcd@dSg8)iNo`57Qdv?gslevq8NQC) zWp{jizR-$Ss=E7BGS9K#zfIwdY0P8&qRJR25VbqEF>k{y>jS(Snn3Q0?+)IpO?Vsc z-DGa}CO747zbA>}&27pX_+^=SljU7WtnWW$cEx*@*z1iA?bp4PoACxuUdlIdO`&JB zcVIJq*m9kFW190=r!OY1<3dQ!44ZdQbDreqw3B$9M-48)eq43*Pm_-Zvw&zxM`Mp6#ui%CW9D7vNe)|KSEaHh)87bwF3| d&QxB@Z(D-Vg?XvGfqz(%!A{}cpObmT{{s_WM!o<5 diff --git a/ths_example/example.cbl b/ths_example/example.cbl index e041408..569989c 100644 --- a/ths_example/example.cbl +++ b/ths_example/example.cbl @@ -17,9 +17,9 @@ 01 INIT-SCREEN. 05 BLANK SCREEN. - 05 LINE 1 COLUMN 1 REVERSE-VIDEO VALUE IS '*******************************************'. - 05 LINE 1 COLUMN 40 VALUE IS '*******************************************'. - + 05 LINE 01 COLUMN 01 VALUE IS '**************************************************************************************'. + 05 LINE 02 COLUMN 01 VALUE IS '* Programmname (c) Dr. Thomas Sindt 2026 *'. + 05 LINE 03 COLUMN 01 VALUE IS '**************************************************************************************'. 01 INPUT-SCREEN AUTO. 05 BACKGROUND-COLOR 6 FOREGROUND-COLOR 5.