HP LaserJet 4100 HP PCL/PJL reference (PCL 5 Printer Language) - Technical Ref - Page 134
If C = 0 Then C = 2*c Else C = 2*absc+1, 200 Lprint Chr$63+c Mod 64
View all HP LaserJet 4100 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 134 highlights
''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 20-42 The Vector Group EN
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