Star Micronics Rainbow NX-1000C User Manual page 45

1
)
I
I
I
I
I
I
I
I
I
J
J
J
100 REM NLQ PRINT DEMONSTRATION (32 WAYS)
110 E$=CHR$(27) :REM ESCAPE CODE
120 DATA COURIER. SANSERIF
130 DATA ORATOR WITH SMALL CAPS
140 DATA ORATOR WITH LOWER CASE
150 T$(l)=E$+CHR$(107)+CHR$(O) :READ TN$(l)
160 T$(2)=E$+CHR$(107)+CHR$(l) :READ TN$(2)
170 T$ (3) =E$+CHR$ (107) +CHR$ (2) : READ TN$ (3)
180 T$(4)=E$+CHR$(107)+CHR$(3) :READ TN$(4)
190 DATA PICA. ELITE
200 DATA CONDENSED PICA. CONDENSED ELITE
210 P$(1)=E$+CHR$(80) :READ PN$(l)
220 P$(2)=E$+CHR$(77) :READ PN$(2)
230 P$(3)=P$(1)+E$+CHR$(15) :READ PN$(3)
240 P$(4)=P$(2)+E$+CHR$(15) :READ PN$(4)
250 DATA FIXED SPACING, PROPORTIONAL SPACING
260 S$(1)=E$+CHR$(112)+CHR$(48) :READ SN$(l)
270 S$(2)=E$+CHR$(112)+CHR$(49) :READ SN$(2)
280 OPEN4,4.7 :REM BUSINESS CHARACTER SET
290 PRINTi4. E$;CHR$(93);CHR$(48); : REM CMDORE
300 PRINTi4. E$;CHR$(120);CHR$(49); :REM NLQ
310 INPUT "WHAT SHALL I PRINT";L$
320 FOR P=l TO 4 :FOR T=l TO 4 :FOR S=l TO 2
330 PRINTi4, T$(T);P$(P);S$(S);
340 PRINTi4. L$;": ";
350 PRINTi4. TN$(T);". ";PN$(P);", ";SN$(S)
360 NEXT S :NEXT T
370 PRINTi4
380 NEXT P
390 PRINTi4. E$;CHR$(64) :CLOSE4 :END
The first eight lines of the printout are shown at actual size below.
The word "test printing" were entered as text.
test printing: courier, pica, fixed spacing
test printing: courier. pica. proportional spacing
test printing: sanserif, pica, fixed spacing
test printing: sanserif, pica, proportional spacing
TEST PRINTING: ORATOR WITH SMALL CAPS, PICA.
TEST PRINTING: ORATOR WITH SMALL CAPS, PICA, PROPORTI
test printing: orator with lower case, pica,
test printing: orator with lower case, pica, proportior
35