Nlq Definition Program 2 - Epson Printer Interface Cartridge Operation Manual

NEW
10 LPRINT CHR$(27)"x"CHR$(1)
20 LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0);
30
LPRINT CHR$(27)"%"CHR$(1)CHR$(0);
40
LPRINT CHR$(27)"&"CHR$(~)~((";
50 LPRINT CHR$(0)CHR$(12)CHR$(0);
60
FOR X=1 TO
70 READ C: LPRINT CHR$(C);
80
NEXT X
90 LPRINT "YOUR CHARACTER IN PICA: < < <"
100 LPRINT "IN EXPANDED EMPHASIZED PICA: ";
110 LPRINT CHR$(27)"!*< < <"
120 LPRINT CHR$(27)"!" CHR$(0)
130
DATA 0, 1, 0, 0, 3, 0, 128, 0, 3, 128, 7, 255, 0
140
DATA 4, 128, 0, 4, 128, 0, 4, 130, 0, 4, 135, 0
150 DATA 4, 135, 0, 7, 253, 0, 0, 0, 0, 0, 0, 0
YOUR CHARACTER IN PICA:
IN EXPANDED EMPHASIZED PICA:
When you run this program for your own character, you find out
whether or not it looks right. If it doesn't, move the dots as needed,
recalculate and change the data numbers, and run the program again.

NLQ definition program 2

When you are satisfied with the character you have created, enter
and run the next program. Use your data numbers instead of the ones
in lines 130 - 150. If you want to define more than one character,
change line 10 so that J equals the total number of characters you are
defining (the maximum is six) and enter the extra data numbers
each character).
36
for
(36
43