1@x 2@d my_name=='pdvitype' 3@d banner=='This is pDVItype, Version 3.6-p0.4' 4@y 5@d my_name=='updvitype' 6@d banner=='This is upDVItype, Version 3.6-p0.4-u1.20' 7@z 8 9@x procedure initialize 10 print (banner); 11 print_ln (version_string); 12@y 13 print (banner); 14 print (' ('); 15 print (conststringcast(get_enc_string)); 16 print (')'); 17 print_ln (version_string); 18@z 19 20@x procedure out_kanji 21 if text_ptr>=line_length-3 then flush_text; 22 c:=toBUFF(fromDVI(c)); 23 incr(text_ptr); text_buf[text_ptr]:= Hi(c); 24 incr(text_ptr); text_buf[text_ptr]:= Lo(c); 25@y 26 if text_ptr>=line_length-5 then flush_text; 27 c:=toBUFF(fromDVI(c)); 28 if BYTE1(c)<>0 then begin incr(text_ptr); text_buf[text_ptr]:=BYTE1(c); end; 29 if BYTE2(c)<>0 then begin incr(text_ptr); text_buf[text_ptr]:=BYTE2(c); end; 30 if BYTE3(c)<>0 then begin incr(text_ptr); text_buf[text_ptr]:=BYTE3(c); end; 31 incr(text_ptr); text_buf[text_ptr]:=BYTE4(c); 32@z 33 34@x 35 usage_help (PDVITYPE_HELP, nil); 36@y 37 usage_help (UPDVITYPE_HELP, nil); 38@z 39 40