ProgrammerManual PTX‐S828
Chapter3ANSIEmulationCommands 88 260071‐001A
Basic Program Sample
100 DEFSTR
110 WIDTH
120 LPRINT
121 LPRINT
130 LPRINT
140 LPRINT
150 LPRINT
160 LPRINT
170 LPRINT
180 LPRINT
190 LPRINT
200 LPRINT
210 LPRINT
220 LPRINT
230 LPRINT
240 LPRINT
250 LPRINT
260 LPRINT
270 LPRINT
280 LPRINT
290 LPRINT
300 LPRINT
310 LPRINT
320 LPRINT
340 LPRINT
350 LPRINT
260 LPRINT
370 LPRINT
371 LPRINT
380 LPRINT
381 LPRINT
390 LPRINT
400 LPRINT
410 REM
420 LPRINT
430 REM
440 LPRINT
441 LPRINT
450 LPRINT
460 REM
470 LPRINT
471 LPRINT
480 LPRINT
490 LPRINT
500 LPRINT
510 LPRINT
520 FOR
530 LPRINT
540 NEXT
550 LPRINT
560 LPRINT
570 FOR
580 LPRINT
590 NEXT
600 LPRINT
610 LPRINT
620 END
DEFSTR
WIDTH
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
REM
LPRINT
REM
LPRINT
LPRINT
LPRINT
E:ESC=CHRS(27) ’Define Escape character
.LPT1:*,255
.FOLLOWING ARE SOME OF THIS PRINTER’S .;
.FEATURES USING THE ANSI EMULATION.
ESC;.[;72 C.;.10 CPI (PICA).
ESC;.[;60 G.;.12 CPI (ELITE).
ESC;.[;48 G.;.15 CPI.
ESC;.[;72 C.;.10 CPI.
ESC;.[6m.;.PROPOERTIONAL MODE.
ESC;.[0m.;.BACK TDO NORMAL.
ESC;.5m.;.DOUBLE-WIDE MODE.
LPRINT ESC;.0m’:.BACK TO NORMAL.
LPRINT ESC;.[1m.;.BOLD PRINTING.
LPRINT ESC;.[0m.;.BACK TO NORMAL.
LPRINT ESC;.[1m.;.BOLD PRINTING.
LPRINT ESC;.[0m.;.BACK TO NORMAL.
ESC;.L.;.PARTIAL LINE UP .;
ESC;.K.;./ .;
ESC;.L.;.BACK TO NORMAL.
ESC;.[4m.;.UNDERLINE MODE.
ESC;.[0m.;.BACK TO NORMAL.
.
123.;
’456.
.1234567890123456789012345678901234567890.;
.12345678901234567890.
ESC;.[10m.;.DRAFT PRINT MODE.
ESC;.[720;2880s.
.LEFT MARGIN NOW BEGINS AT 1 INCH AND .;
.RIGHT MARGIN NOW ENDS AT 4 INCHES.
ESC;.[0;9792S.
.LEFT MARGIN NOW BEGINS AT 0 INCH AND .;
.RIGHT MARGIN NOW ENDS AT 13.6 INCHES.
ESC;.[62m.;.LQ PRINT MODE .
ESC;.[120; G.;
[=1 TO 3
.1/6 INCH LINE FEED.
I
ESC;.[90; G.;
J=1 TO 3
.1/8 INCH LINE FEED.
J
ESC;.[120; G.;.NOW 1/6 INCH LINE FEED.
.A FORMFEED <FF> FOLLOWS THIS LINE.;CHR$(12)