Epson FX-1050 User Manual - Page 90

90 FOR P=58 TO 63: LPRINT CHR$(P);" "j: NEXT P 95 LPRINT 100 K=l: IF K)3 THEN A=58 ELSE A=60 110 LPRINT CHR$(27~:f'eCHR$(~)CHR$(~)CHR$(~); 120 LPRINT CHR$(27)"%"CHR$(l)CHR$(@); 130 LPRINT CHR$(27)"&"CHR$(~)CHR$(A)CHR$(A-l+K); 140 FOR Z=l TO K 15a LPRINT CHR$(128); 160 FOR X=1 TO 9 170 READ R 180 LPRINT CHR$(R);: NEXT X 190 LPRINT CHR$(@)CHR$(@); 200 NEXT Z 210 DATA 0,80,170,0,47,0,170,80,0 290 FOR P=58 TO 63: LPRINT CHR$(P);" "j: NEXT P To use this program for your own character or characters, change the DATA numbers in line 210 by substituting the numbers generated by the first program when you created your own character. If you have created more than one character, put the DATA numbers for each character on a separate line as you see in the example below: 210 DATA 112,8,~,138,116,138,8,8,112 220 DATA 56,68,146,40,13jiY,40,130,68,56 Check your work by making sure that there are nine numbers in each line and that the numbers are separated by commas. Also make the change in line 100 explained below. This program is designed for defining up to 6 characters. Line 100 states K=l, but to define more than one character, use the total number of characters you are defining instead of the 1 in that line. You can actually define as many as 256 characters, but if you define more than six characters, you have to change a few lines in the program. Using Software and Graphics 4-25