Epson AP-80 User Guide - Page 53

Second definition program, K=l: IF K>3 THEN A=58 ELSE A=60

Get Epson AP-80 PDF manuals and user guides View all Epson AP-80 manuals
Add to My Manuals
Save this manual to your list of manuals

Page 53 highlights

Figure 5-4. Using the bottom eight rows Second definition program Once the character looks the way you want it to, you can enter, modify, and run the next program. The program as listed creates the Mercury character, but you can use it for any characters you create if you make one or two changes, as explained after the program listing. 90 FOR P=58 TO 63: LPRINT CHR$(P);" ";: NEXT P 95 LPRINT 100 K=l: IF K>3 THEN A=58 ELSE A=60 110 LPRINT CHR$(27): ""CHR$(0)CHR$(0)CHR$(0); 120 LPRINT CHR$(27)"%"CHR$(l)CHR$(0); 130 LPRINT CHR$(27)"&"CHR$(0)CHR$(A)CHR$(A-1+K); 140 FOR Z=l TO K 150 LPRINT CHR$(128); 160 FOR X=1 TO 9 170 READ R 180 LPRINT CHR$(R);: NEXT X 190 LPRINT CHR$(0)CHR$(0); 200 NEXT Z 210 DATA 0,80,170,0,47,0,170,80,0 290 FOR P=58 TO 63: LPRINT CHR$(P);" ";: 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 5-6 User-defined Characters

  • 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
  • 123
  • 124
  • 125
  • 126
  • 127
  • 128
  • 129
  • 130
  • 131
  • 132
  • 133
  • 134
  • 135
  • 136
  • 137
  • 138
  • 139
  • 140
  • 141
  • 142
  • 143
  • 144
  • 145
  • 146
  • 147
  • 148
  • 149
Figure 5-4.
Using the
bottom eight rows
Second definition program
Once the character looks the way you want it to, you can enter,
modify, and run the next program. The program as listed creates the
Mercury character, but you can use it for any characters you create if
you make one or two changes, as explained after the program listing.
90 FOR P=58 TO
63:
LPRINT CHR$(P);" ";: NEXT P
95
LPRINT
100 K=l: IF K>3 THEN A=58 ELSE A=60
110 LPRINT CHR$(27):
""CHR$(0)CHR$(0)CHR$(0);
120 LPRINT CHR$(27)"%"CHR$(l)CHR$(0);
130 LPRINT CHR$(27)"&"CHR$(0)CHR$(A)CHR$(A-1+K);
140
FOR Z=l TO K
150 LPRINT CHR$(128);
160 FOR X=1 TO 9
170 READ R
180 LPRINT CHR$(R);: NEXT X
190 LPRINT CHR$(0)CHR$(0);
200 NEXT Z
210 DATA 0,80,170,0,47,0,170,80,0
290 FOR P=58 TO 63: LPRINT CHR$(P);" ";: 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
5-6
User-defined Characters