Epson LX-90 User Manual - Parallel 8620 PIC for LX-90 - Page 53

NLQ Definition Program 2, LPRINT YOUR CHARACTER IN PICA: <<&lt

Page 53 highlights

NEW 10 LPRINT CHR$(27)"x"CHR$(l) 20 LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0); 30 LPRINT CHR$(27)"%"CHR$(l)CHR$(0); 40 LPRINT CHR$(27)"&"CHR$(0)"

  • 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
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119
  • 120
  • 121
  • 122

NEW
10 LPRINT CHR$(27)"x"CHR$(l)
20 LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0);
30
LPRINT CHR$(27)"%"CHR$(l)CHR$(0);
40
LPRINT CHR$(27)"&"CHR$(0)"<<";
50 LPRINT CHR$(0)CHR$(l2)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,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).
51