Epson FX-185 User Manual - Page 180
Three-Dimensional Program, IF N>=0 THEN LPRINT CHR$N;: GOT0 610 - fx 850
View all Epson FX-185 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 180 highlights
l00 LPRINT CHR$(27)"1" 590 FOR K=1 TO 6 600 LPRINT CHR$(27)"L"CHR$(60)CHR$(0); 610 READ N: IF N=128 THEN 650 620 IF N>=0 THEN LPRINT CHR$(N);: GOT0 610 630 READ P,R: FOR J=1 TO -N: LPRINT CHR$(P)CHR$(R);: NEXT J 640 GOT0 610 650 LPRINT: NEXT K: LPRINT CHR$(27)"@": END 799 ' > 800 DATA 0,1,2,4,11,18,36,72,-16,16, 64,8,64,8,32,16,0,-7,0,0,128 810 DATA 0,126,1,0,126,1,-5,0,0,1,2,4,11, 18,36,-16,8,32,4,32,4,16,8,0,128 820 DATA 0,0,0,64,32,16,72,36,-3,16,4,34, 65,0,0,65,34,-8,16,4,18,11,4,2,1,0,-9,0,0,123 830 DATA -8,0,0,64,32,16,72,36,16,-7, 4,16,36,65,0,0,1,66,36,16,-3, 4,16,4,18,11,4,2,1,-2,0,0,128 840 DATA 0,32,16,64,8,64,-15,8,32,72,16,32,64,-6, 0,0,0,127,0,0,127,0,0,0,128 850 DATA -7,0,0,0,8,4,16,2,16,-15, 2,8,18,36,72,16,32,64,-2,0,0,128 Figure 12-3. STRATA program We have you use this logo as part of a larger program in Chapter 17. Three-Dimensional Program Using a little imagination and creativity, you can do a lot with dot graphics. Take a look at the three-dimensional design of Figure 12-4, which spells but the name of your favorite printer. In this section we work through an FX-80 design; if you own an FX-100, do not think that we have forgotten you. As we go along we note which lines will differ for you, and at the close of the section we show you a complete FX-100 program. 163