*************************************************************************** * This file was created at Tue Jan 18 18:54:20 2000 * Here is a residual program of the last supercompilation by the SCP4. * A task from DI.mst was supercompiled. * The residual program is in Refal5. * You have to change the parametrs of the calls of DI with data, * as well as to choose a call to run. * Please, be carefull: * a) the order of the parametrs can be incorrect; *************************************************************************** $EXTERN XML_REF1 ; $ENTRY Go { = <Prout <DI1 >> ; } * InputFormat: <DI1 > DI1 { , <XML_REF1 >:e.101 = <F8 e.101 > ; } * InputFormat: <F340 e.102 > F340 { s.234 e.102 = <F340 e.102 > ; e.102 = <F314 e.102 > ; } * InputFormat: <F314 e.102 > F314 { = ; ((s.223 ) e.221 ) e.102 = <F11 e.221 s.223 > <S1 e.102 s.223 > ; s.226 e.102 = <F340 e.102 > ; } * InputFormat: <F248 e.102 > F248 { = ; ((s.195 ) e.193 ) e.102 = <F11 e.193 s.195 > <S2 e.102 s.195 > ; s.198 e.102 = (FALSE ) ; } * InputFormat: <F146 e.102 > F146 { = ; ((s.166 ) e.164 ) e.102 = <F11 e.164 s.166 > <S3 e.102 s.166 > ; s.169 e.102 = (FALSE ) ; } * InputFormat: <F102 e.102 > F102 { = ; ((s.142 ) e.140 ) e.102 = <F11 e.140 s.142 > <S4 e.102 s.142 > ; s.145 e.102 = (FALSE ) ; } * InputFormat: <F35 e.102 > F35 { = ; ((s.117 ) e.115 ) e.102 = <F11 e.115 s.117 > <S5 e.102 s.117 > ; s.120 e.102 = (FALSE ) ; } * InputFormat: <F11 e.102 s.104 > F11 { DOC = (FALSE ) ; ((s.110 ) e.108 ) e.102 DOC = <F11 e.108 s.110 > <S6 e.102 s.110 > ; s.113 e.102 DOC = (FALSE ) ; CHAPTER = (FALSE ) ; ((s.135 ) e.133 ) e.102 CHAPTER = <F11 e.133 s.135 > <S7 e.102 s.135 > ; s.138 e.102 CHAPTER = (FALSE ) ; SECTION = (FALSE ) ; ((s.188 ) e.186 ) e.102 SECTION = <F11 e.186 s.188 > <S8 e.102 s.188 > ; s.191 e.102 SECTION = (FALSE ) ; e.102 TITLE = <F314 e.102 > ; e.102 PARA = <F314 e.102 > ; e.102 NOTE = <F314 e.102 > ; e.102 EMPH = <F314 e.102 > ; e.102 s.104 = (FALSE ) ; } * InputFormat: <F8 e.101 > F8 { ((s.104 ) e.102 ) e.101 = <F11 e.102 s.104 > <F8 e.101 > ; = ; } * InputFormat: <S8 e.102 s.188 > S8 { e.102 TITLE = <F248 e.102 > ; e.102 s.188 = (FALSE ) ; } * InputFormat: <S7 e.102 s.135 > S7 { e.102 TITLE = <F102 e.102 > ; e.102 s.135 = (FALSE ) ; } * InputFormat: <S6 e.102 s.110 > S6 { e.102 TITLE = <F35 e.102 > ; e.102 s.110 = (FALSE ) ; } * InputFormat: <S5 e.102 s.117 > S5 { e.102 CHAPTER = <F35 e.102 > ; e.102 s.117 = (FALSE ) ; } * InputFormat: <S4 e.102 s.142 > S4 { e.102 NOTE = <F102 e.102 > ; e.102 PARA = <F102 e.102 > ; e.102 SECTION = <F146 e.102 > ; e.102 s.142 = (FALSE ) ; } * InputFormat: <S3 e.102 s.166 > S3 { e.102 SECTION = <F146 e.102 > ; e.102 s.166 = (FALSE ) ; } * InputFormat: <S2 e.102 s.195 > S2 { e.102 NOTE = <F248 e.102 > ; e.102 PARA = <F248 e.102 > ; e.102 s.195 = (FALSE ) ; } * InputFormat: <S1 e.102 s.223 > S1 { e.102 EMPH = <F314 e.102 > ; e.102 s.223 = (FALSE ) ; } ****************************** The End ************************************