Epson FX-80 User Manual page 212

. NEW
1~
N=476:M=INT((N+l)/2)
2~
!.PRINT CHR$(27)"1"jCHR$(7)j
3~
P=l TO
N~6
STEP 7
4~PRINT
"PRINTING ROWS "jPj" TO "jP+6
5~
N2=INT(N/256): Nl=N-256*N2
6~
LPRINT CHR$(27)"*"CHR$(5)CHR$(Nl)CHR$(N2)j
7~
FOR C=l TO N
8~ F=~:
PRINT
Cj
9~ FOR R=P TO P+6
1~~
D=( (R-M)"2+(C-M)"2)/M('2
11~
IF
D>RND(~)
THEN F=F+2"ABS(P+6-R)
12~ NEXT R: LPRINT CHR$(F)j
13~
NEXT C: LPRINT: NEXT P
14~
LPRINT CHR$(27)"@"
Figure 15·10. Program for full·page pattern.
By
changing the value of
N
to different multiples of seven,
YOil
can
generate this pattern in different sizes. With N set to 476, be prepared
to let your computer cook for about 10 to 15 hours (no, we aren't
kidding)! See the results in Figure 15-11.
181