cI13 ;PROGRAMMEREN FUNKTIE-TOETSEN FALCO 5220e ;%I13; [ 02/22/00  11:23 AM ]
 ;
 ;lijnlabel = 'F'_funktietoets
 ;veldje 1  = kode van de funktietoets
 ;veldje 2  = uit te voeren funktie (max. 127 karakters)
 ;
 ;~ = Ascii-waarde 13 (CR)
 ;
F6 ;06;R Q~
F7 ;07;W !!,*27,"#3",K,!,*27,"#4",K,!~
F8 ;08;`l[<3l
F9 ;09;`l[<3h
F10 ;10;MGR:~W $ZU($ZV'["MSM"*5)~
F11 ;11;X ^cWIJZ~
F12 ;12;D ^cQDSMSW~
F13 ;13;D ^cA604,^cA605~S F70=^cDEV("VIF70"),F71=^("VIF71")~
F14 ;14;D ^cA604,^cA605~R F70,F71~W !!~W !!~
FHELP ;15;D ^cQDSMXX~
FDO ;16;D ^cTM~
F17 ;01;D ^cA604~
F18 ;02;D ^cA508~
F19 ;03;D ^cA314~
F20 ;04;D ^cA105,^cA106 W !,DT,?10,DD_DM_DJ#$H,?20,DD_DM_DJ#$H\2~
FFIND ;LI;D ^cRSE~
FINSERT ;IN;X ^c~
FREMOVE ;CL;D ^cRDEL~
FSELECT ;LD;D ^cRSEL~
FPRSCR ;PS;D ^c
FNESCR ;NS;
FUP ;UP;^~
FLEFT ;LF;-~
FRIGHT ;RG;.~
FDOWN ;DN;,~
FLINEF ;NL;
 ;
1 S A="0123456789ABCDEF" F I=2:1 S T=$T(+I) Q:$E(T)="F"
11 S B=$P(T,";",3,99),K="" I $L(B)>127!'$L(B) G 14
12 F J=1:1:$L(B) S C=$A(B,J),C=$S(C=126:13,1:C),K=K_$E(A,C\16+1)_$E(A,C#16+1)
13 W *27,"P<|",$P(T,";",2),"/",K,*27,"\" ;programmeer toets
14 S C=$P(T," ",1),C=$E(C,C'?1"F".N+1,9) W !,C,?8," --> ",B I $L(B)>127 W "  <-- Too long !!!",*7
15 S I=I+1,T=$T(+I) I $E(T)="F" G 11
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 13.03.00 - 17 u 31 * V7.3