cTU26 ;INSTALLATIE UTILI-DATA MS-DOS ;%TU0;
 G 1
 ;
T1 ;0;FORMATEN;07.02.89;
T2 ;1;1;
T3 ;101;NUMMER;4;2;;4;21;;;5;[] = automatisch volgnummer   -[] = einde programma;K?.N&(K'?1"0".N);1;;;1;101;;;;;;1;;
T4 ;102;NAAM;5;2;;5;21;;;20;;$L(K);;;;;102;;;;;;1;;
T5 ;103;OMSCHRIJVING;6;2;;6;21;;;28;;;;;;;105;;;;;;1;;
T6 ;104;BEGINLIJN 1;8;2;;8;21;;;60;;;;;;;108;;;;;;1;;
T7 ;105;BEGINLIJN 2;9;2;;9;21;;;60;;;;;;;109;;;;;;1;;
T8 ;106;BEGINLIJN 3;10;2;;10;21;;;60;;;;;;;201;;;;;;1;;
T9 ;107;VELDLENGTE;12;2;;12;21;;$P("variabel\vast",D,K+1);1;[] = variabele lengte   1[] = vaste lengte;1[K;1;7;;$P(B(2),D,4);103;;;;;;1;;
T10 ;108;VELDSEPARAT.;13;2;;13;21;;;16;[] = er is geen veldseparator;;;;;;104;;;;;;1;;
T11 ;109;REC.LENGTE;14;2;'$P(B(1),D,3);14;21;;;3;enkel indien er geen recordseparator is;K<256;1;;;'$P(B(1),D,3)!$L($P(B(1),D,6));204;;;;;;1;;
T12 ;110;RECORDSEPAR.;15;2;$P(B(2),D,4);15;21;;;16;[] = er is geen recordseparator;;1;;;$P(B(2),D,4);106;;;;;;1;;
T13 ;111;EINDLIJN 1;17;2;;17;21;;;60;;;;;;;202;;;;;;1;;
T14 ;112;EINDLIJN 2;18;2;;18;21;;;60;;;;;;;203;;;;;;1;;
T16 ;52;1;OPENEN FORMAAT\4\3\FO^cA700\D\FO^cA700\\\\;
T17 ;52;2;WIJZIGEN FORMAAT\5\3\FW^cA700\D\FW^cA700\\\\;
T18 ;52;3;RAADPLEGEN FORMAAT\6\3\FR^cA700\D\FR^cA700\\\\;
T19 ;52;4;VERWIJDEREN FORMAAT\7\3\FV^cA700\D\FV^cA700\\\\;
T20 ;52;5;KONTROLELIJST FORMATEN\8\3\FL^cA700\D\FL^cA700\\\\;
T21 ;81;22;OPMAKEN MS-DOS BESTAND\6\43\^cTU24\D\^cTU24\\\;
 ;
1 F I=1:1:14 S K=$T(@("T"_I)),@("^"_Q_"FORM(0,$P(K,U,2))")=$P(K,U,3,99)
3 F I=16:1:21 S K=$T(@("T"_I)),@("^"_Q_"BA(""MENU"",$P(K,U,2),$P(K,U,3))")=$P(K,U,4)
4 S @("^"_Q_"BA(49)")=1
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 11.01.90 - 12 u 26