<SP0>
     G;MEMO/1;S;G;MEMO/6;CPR;S5,E;4;P;6;G;7;CPR;S5;4;CU;;" ";"";;;
     LET V1=[4,1];LET X1=INSTR(1,V1,"2");LET V1=RIGHT$(V1,X1);
     LET X2=INSTR(1,V1,"ФN");LET X3=INSTR(1,V1,"МО");
     LET X4=INSTR(1,V1,"У·");LET X5=(X3-1)-(X2+1);
     IF X5=1 THEN GOTO $МО;GOTO $У·;
$МО:LET V2=MID$(V1,7,3);LET V3='"'+V2+'"';LET V4='"'+"0"+V2+'"';
     CU;;%V3;%V4;;;
$У·: LET X6=(X4-1)-(X3+1);IF X6=2 THEN GOTO $PUT;
     LET V5=RIGHT$(V1,10);LET V6='"'+V5+'"';LET V7='"'+"0"+V5+'"';
     CU;;%V6;%V7;;;
$P:Б@LET V21=[4,1];LET V21=RIGHT$(V21,X1);LET V22=LEFT$(V21,4);
     LET V23=MID$(V21,7,2);LET V24=MID$(V21,11,2);
     LET V25="JINJI"+V22+V23+V24;
     G;MEMO/6;P;%V25/N;G;MEMO/6;DR;A;;P;*;
$EX: STOP