Epson LX-90 User Manual - IBM PC Jr. 8690 PIC for LX-90 - Page 48

NLQ definition program 2, READ C: LPRINT CHR$C

Get Epson LX-90 - Impact Printer PDF manuals and user guides View all Epson LX-90 manuals
Add to My Manuals
Save this manual to your list of manuals

Page 48 highlights

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 36 70 READ C: LPRINT CHR$(C); 80 NEXT X 90 LPRINT "YOUR CHARACTER IN PICA: < <

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
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
36
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
(36
for
each character).
43