Compuprint 4247-L03 Programmer Manua - Manual (Page 102)

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