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