HP 5961-0509 manual ‘‘260 Lprint ’’, 20-42The Vector Group

‘‘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-42The Vector Group EN