Star Micronics 8 Series Applications Manual page 105

Example: Macros
Tk
followingprogramloads and runs a macro.The macro movesan inch
and a half rightand downthreeinchesfromthe top left comer of the page,
whereit prints a 25 percentgray-scalebar. It then ejectsthe paper.
100
LPRINT CHR$(
27) ; "&f6X"
200
LPRINT CHR$(
27) ; "&fIY"
300 LPRINTCHR$ ( 27) ; "&fOX"
400 LPRINT CHR$ ( 27) ; "*p450xl 200Y";
500 LPRINTCHR$(27); "*c180h7200V" ;
600 LPRINT CHR$(27); "*c25G";
700 LPRINTCHR$(27); "*c2P" ;
800 LPRINT CHR$(12)
900 LPRINT CHR$(27);"&flX";
1000 LPRINTCHR$(27);''&f2X";
11OO
END
LinclOOclcarsanyexistingmacros,thenline200spccificsthatthis willbc
macro IDnumbcr 1. Linc300 startsdownloadingthe macro.
Linc400movestheprintpositionto a spot450dotsrightand1200dolsdown
from the top left comer of the page.
Lines500 through700 selectthe 180-dotdeep and 7200-dotwide pattern
andprintit. Line800docstheformfeedthatforcesthe actualprinting.Line
900 ends the downloadingprocess.
At [he two line we selectour macroand actuallyrun it.
97