Star Micronics Rainbow NX-1000C User Manual page 53

1
]
I
J
I
I
I
I
I
I
I
I
I
I
J
100 REM LARGE S PRINTED BY DOT GRAPHICS
110 E$=CHR$(27) :REM ESCAPE CODE
120 DIM L$(4)
130 FOR SP=l TO 4 :FOR CL=l TO 22
140 READ M
150 L$(SP)=L$(SP)+CHR$(M)
160 NEXT CL :NEXT SP
170 OPEN4,4
180 PRINTi4, E$;CHR$(65);CHR$(8);
190 FOR SP=l TO 4
200 PRINTi4. E$;CHR$(75);CHR$(22);CHR$(0);
210 PRINT*4, L$(SP)
220 NEXT SP
230 PRINTi4, E$;CHR$(64) :CLOSE4 :END
240 DATA
O. O.
0, 0, 1. 3. 7. 7
250 DATA 7. 15, 14. 14, 14. 14, 14. 7
260 DATA 7. 3, 3, 15. 15. 15
270 DATA O. O. 60.255.255.255.255.255
280 DATA 143. 15, 7, 7, 7. 7. 3. 3
290 DATA 3.131,193.241.240.240
300 DATA O. 31. 31, 3.129.128.192,192
310 DATA 192.192.192.224,224,224.224,240
320 DATA 255.255,255.255.255.127
330 DATA 0,248,248,240.224,224.112,112
340 DATA 56. 56. 56. 56, 56.120.120.240
350 DATA 240,224,224,192.128. 0
By making one change in this program you can print the same data
at different horizontal densities. Try changing CHR$(75) in line 200 to
CHR$(76), CHR$(89), or CHR$(90). This should give the following results:
s
Double density (slow)
<27> <76> ...
Double density (fast)
<27> <89> ...
s
Quadruple density
<27> <90> ...
43