HP PCL/PJL reference (PCL 5 Printer Language) - Technical Reference Manual Part II

20-42 The Vector Group EN
‘‘130 ’Convert coordinate data to base 64 ’’
‘‘140 FOR J = 1 to 6 ’’
‘‘150 READ C ’’
‘‘160 C = C * (2^A) ’’
‘‘170 C = INT(C) ’’
‘‘180 IF C = 0 THEN C = 2*C ELSE C = 2*ABS(C)+1 ’’
‘‘190 WHILE C = 64 ’’
‘‘200 LPRINT CHR$(63+(C MOD 64)) ’’
‘‘210 C = C64 ’’
‘‘220 WEND ’’
‘‘230 C = 191+C ’’
‘‘240 LPRINT CHR$(C) ’’
‘‘250 NEXT J ’’
‘‘260 LPRINT ";"; ’’
‘‘270 LPRINT CHR$(27);"%0A"; ’Enter PCL Mode ’’
‘‘280 LPRINT CHR$(27);"E"; ’Reset to eject page.’’
‘‘290 DATA 10.58,0,-5.58,10.67,-5,-10.67 ’’
‘‘300 END ’’
Figure 20-19