I970KEY COM?970KEY ZZ0 l``CLEAR COM"pCLEAR Z80# MYTERM ZZ0&@`TVI970-1FOR9e G[?21h G|1;1;66;48;58;59;68;13 G|17;1;67;48;58;59;68;13 G|2;1;84;89;80;69;32;42;46;68;79;67;13 G|18;1;84;89;80;69;32;42;46;70;79;82;13 G|3;1;84;89;80;69;32;42;46 G|19;1;83;67;65;78;32;42;46 G|4;1;78;85;76;85;32;45;79;32 G|5;1;32;45;81;32;42;46;42;32;45;88;59;85;78;67;82;32;42;46;63;90;63;59;85;78;67;82;32;42;46;63;89;63 G|21;1;59;69;82;65;32;42;46;63;90;63;59;69;82;65;32;42;46;63;89;63;59;68;13 G|6;1;58;59;68;13 G|7;1;77;79;86;69;32;66;58 G|23;1;88;68;73;82;32;42;46;76;66;82;32;47;85;13 G|8;1;88;68;73;82;32;47;85;13 G|24;1;58;59;88;68;73;82;32;47;85;13 G|15;1;68;69;80;13 G|16;1;79;84;72;82;13 G\24;19 G\26;24 G\27;5 G\28;4 G\16;1 G\18;18 G\19;3 G\20;6 G\36;3 G\37;18 G G G ᗆ#_Gv970KEY.Z80C$|L1G YYϻl=y|۶iԷω nSբ |/*$\$ܧ"_F΁֜FԺewakԻudcFǤ||1 |oJl@{J`BAx [|ut]N?@nMW|~I~&H)c~ۙuȿ>_4dOXjn%  C,$Qcj1Aye+Jkk|I%VUzR';Sbkg5&P kr3otx=#~K5;(~GD \A~YLkq|u#J8  訦'W ;,~Yla=OYY$i E+V1vy,=< {OAT1)0 C~R5Ե Ja $+ " bz X$BnN 1{Aј  KAB I 1qğĻҧ =!SgOwT!"w#G' pKi![Qjw!HJcZ% [A/"ɖo9ej벹)91s zG‰)+.f0dLI7顓1OloNBk־΍M*.*ֲmA\u|| J kԳwXK$V%m=|X g|*O-'uV#y-ω,e6g!ϥ_c DtSwWzs J_6I K%?R/MmJHlUXǎQAWT5xRkOty:5K +F΃FPD~+e5.#= {z IgțV;q)m_ Y0kR־4` 9{ cx=n_9˽|!d|9eΉ,<<}kXkҪ. r6Ixzn9n1un^K7@u>:ޝ||Xb?ZRKBݭ.m_ԑFyD%GH$Jck bCn97Cakgy\J%eFK֞(ƿk#AgM_BӫmbN!j@ r} Y 9}1Dgj:#A'ytj-нoceFHh'6 ҸR;=0 U|$%R,DcMſ @6nIԿR!In0з# e\@ [LS/JOXRɟ"Nbi lַ2U@9Xv_&=k>a۫5T-̷q+񤖸5->Z=$ͯ'jX)\sRH(:i>6bQ,nRGR M/:KՉ:i \U.qm"&FXCmO_ƓOw`t)8tעǴD>ڐO)*/PrL?)k񱐬(QMf}c>cxI*!̀K]c> E-T|UJGH1!~qu.w^=+ 줝ql[ЂRg953$m¥3 1}RiJd=DX'Ax12i2~ŅrХ&mF65mj?Vp*WPkX*>r7JbQ,nWS΁d3cQ+Hr!"@ղ>|rJnw]OXW-Rm(3 A6Z7W 9!QY=[(Bf "bQ58户ǭ}AysՓ<&{s^dKrjxrvzrb01rQ B1U6_$1{%9GWYW ;)JbNH,V+3_3Oυ&f1*Q_;%Jan9î|BkgB Z*a 3π C5$44+Nb 淺%+NkrzN+"zd-+RBK!N>O-*LV7u Q3Ē J$u5+ a8;wT:yu)N{R"wu"Ad ᗆ#_ ORG 100H LD DE,1AH PUSH HL PUSH BC LD C,2 ; Output string to console CPM FN CALL 5 POP BC POP HL ; CALL SPMSG DEFB 1BH,'[2;y',0dh,0 JP 0000 SPMSG: POP HL SUB A ADD A,(HL) INC HL PUSH HL RET Z LD C,2 LD E,A CALL 5 JP SPMSG DEFS 10H STACK: END vMYTERM.Z80C$|u+ @Bϝ)'ϫV!|"&$HN HFEn e ~Kh |Xxm,|+[mԽD^F7Ϫ|kF;'Ͽkm=/Լ =g1m_آ*~|- =ԹԷ.kb>${#RY|I!4;Y|<1|ҿMҰ x霪"\ Rg_rAR SZr "n1\1Gϙb|84Wϝ|$sI Kk {k`y ed|=d )+ NwѢ. |8|LȣgJ$Ҭ{m=V쓎ԽKCʕr,=K`h ,V`D l6K NK9;丑j|yYk=} {, zi8-VɊ%+ _8|CgI霍#g ' >kֽͭ*Ό\$("eE OE/~ OY Ni{RPO&Y8!-JAے4Y߱Qx%JiTcG[ L= $̬$!W,V|r&{!谄(KdÄO4Q-9 ]_>3@ |@O@p|H>3{xNN." CZPJIYF \dI .Iky۸a>>Y5<"N=`J`_~<= ϝۤC;a3Yv;#g$2`O%PL$J0 !z>wBE$R ؂%+>R^-EtJ媒v6l*Lڕ"!N^Ƀ[S505*;EN]|$ރ'S1q MȦTcD6`io|h8E# Ca)PC-e5%zI$ 8UlkfW`@ޒIrZ;F1-|HdW4R$򠇖g*nʦxUք U&j9hy\PL6)ibDtZ$ RkҭΊ0~ ] ş{$ E&ֻ3i 3d떩nymG$1syw7@F@/{gQN8m k'廤߿= G7.n-cd{׾)|+QT~<$n[Ӳ"Dē[vs=;5~1q*8$1qvZ?>YAYcr 7eMDMDuxuݾ[cUwޮ+Ӊ 5,MI'ejM˷V;Y>BꗉDݾ,a ^rQN~5zo`:9Rɝ1EzCXkacGd~|}S]G\krVDcDaHB+ $\Lxӿ;DRdb|H95\buQӄBFdo΅o7{#R9ρ;Zsf!>Q=n`6<%̌C"|ZW>$>jͭƻaHMkn5nN5 [Nv=JchSsD|ҠMK)LS5COo^7)1 4vԶIO=TCAP4D for the Televideo 970 Terminal. An "F" key programming program. A clear program to return to default settings when things get barfed ! This TCAP uses the hash block for the solid block and the "*" for the hashed block. Tests OK for ZDE16,SCAN24,QTERM,type and BOX. TCAP cannot fit both "RC:" Read current cursor position, and "CDO:" Cursor OFF into space. "RC:" is required to run BOX sucessfully!