Epson LX-90 User Manual - Apple IIc 8699 PIC for LX-90 - Page 61

Definition program 2, K=1: IF K>3 THEN A=58 ELSE A=60

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 61 highlights

Definition program 2 Once the character looks right, type in the next program. The pro- gram as listed creates the symbol for Mercury, but you can use it for any characters you create if you make one or two changes explained after the program listing. NEW 5 PRINT CHR$(4);"PR#1" 90 FOR P=58 TO 63: PRINT CHR$(P);: NEXT P 95 PRINT 100 K=1: IF K>3 THEN A=58 ELSE A=60 110 PRINT CHR$(27);":"; CHR$(0);CHR$(0);CHR$(0); 120 PRINT CHR$(27);"%";CHR$(1);CHR$(0); 130 PRINT CHR$(27);"&";CHR$(0);CHR$(A);CHR$(A-1+K); 140 FOR Z=1 TO K 150 PRINT CHR$(0); 160 FOR X=1 TO 9 170 READ R 180 PRINT CHR$(R);: NEXT X N=R: GOSUB 10000: NEXT X 190 PRINT CHR$(0);CHR$(0); 200 NEXT Z 210 DATA 0,80,42,0,47,0,42,80,0 290 FOR P=58 TO 63: PRINT CHR$(P);: NEXT P 300 PRINT: PRINT CHR$(4);"PR#0": END 10000 IF PEEK (49305) < > 80 THEN 10000 10010 POKE 49304,N 10020 RETURN To use program 2 for your own character or characters, change the DATA numbers in line 210 by substituting the numbers generated by program 1. If you have created more than one character, put the DATA numbers for each character on separate lines as you see in the example on the next page. 210 DATA 112,8,0,10,116,10,0,8,112 220 DATA 58,68,2,0,0,0,2,68,58 Check your work by making sure that there are nine numbers in each DATA line and that the numbers are separated by commas. To define more than one character, use the total number of characters you are defining instead of the 1 in line 100. (You can define as many as six characters at a time. Just run program 1 several times and enter all the DATA numbers in program 2.) 59

  • 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
Definition program 2
Once the character looks right, type in the next program. The pro-
gram as listed creates the symbol for Mercury, but you can use it for
any characters you create if you make one or two changes explained
after the program listing.
NEW
5
PRINT CHR$(4);"PR#1"
90 FOR P=58 TO
63:
PRINT CHR$(P);: NEXT P
95
PRINT
100 K=1: IF K>3 THEN A=58 ELSE A=60
110 PRINT CHR$(27);":";
CHR$(0);CHR$(0);CHR$(0);
120 PRINT CHR$(27);"%";CHR$(1);CHR$(0);
130 PRINT CHR$(27);"&";CHR$(0);CHR$(A);CHR$(A-1+K);
140 FOR Z=1 TO K
150 PRINT CHR$(0);
160 FOR X=1 TO 9
170 READ R
180 PRINT CHR$(R);:
NEXT X N=R: GOSUB 10000: NEXT X
190 PRINT CHR$(0);CHR$(0);
200 NEXT Z
210 DATA 0,80,42,0,47,0,42,80,0
290 FOR P=58 TO 63: PRINT CHR$(P);: NEXT P
300 PRINT: PRINT CHR$(4);"PR#0": END
10000 IF PEEK (49305) < > 80 THEN 10000
10010 POKE 49304,N
10020 RETURN
To use program 2 for your own character or characters, change the
DATA numbers in line 210 by substituting the numbers generated by
program 1. If you have created more than one character, put the
DATA numbers for each character on separate lines as you see in the
example on the next page.
210 DATA 112,8,0,10,116,10,0,8,112
220 DATA 58,68,2,0,0,0,2,68,58
Check your work by making sure that there are nine numbers in
each DATA line and that the numbers are separated by commas.
To define more than one character, use the total number of charac-
ters you are defining instead of the
1
in line
100. (You
can define as
many as six characters at a time. Just run program
1
several times and
enter all the DATA numbers in program
2.)
59