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

Definition program 1, PRINT YOUR CHARACTER IN PICA: < < &lt

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

Definition program 1 The BASIC program below will help you translate your design into a character your LX-90 can print. Type it in now so that you can run it soon. NEW 100 DIM F(9) 110 FOR I=1 TO 9 120 PRINT "WHICH ROWS HAVE DOTS IN COLUMN";I 130 INPUT R: IF R=0 THEN 150 140 F(I)=F(I)+2^(R-1) 150 IF R=0 THEN NEXT I ELSE GOTO 130 155 PRINT CHR$(4);"PR#1" 160 PRINT CHR$(27);":";CHR$(0);CHR$(0);CHR$(0); 170 PRINT CHR$(27);"%";CHR$(1);CHR$(0); 180 PRINT 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
Definition program 1
The BASIC program below will help you translate your design into
a character your LX-90 can print. Type it in now so that you can run it
soon.
NEW
100 DIM F(9)
110 FOR I=1 TO 9
120 PRINT "WHICH ROWS HAVE DOTS IN COLUMN";I
130 INPUT R: IF R=0 THEN 150
140 F(I)=F(I)+2^(R-1)
150
IF
R=0 THEN NEXT I ELSE GOTO 130
155 PRINT CHR$(4);"PR#1"
160 PRINT CHR$(27);
":";CHR$(0);CHR$(0);CHR$(0);
170 PRINT CHR$(27);"%";CHR$(1);CHR$(0);
180 PRINT CHR$(27);"&";CHR$(0);"<<";
190 PRINT CHR$(0);
200 FOR X=1 TO 9
210 N=F(X): GOSUB 10000: NEXT X
220 PRINT CHR$(0);CHR$(0);
230 PRINT "YOUR CHARACTER IN PICA: < < <"
240 PRINT "IN EXPANDED EMPHASIZED PICA: ";
250 PRINT CHR$(27);"!*< < <"
260 PRINT CHR$(27);"!"; CHR$(0);"YOUR DATA NUMBERS:"
270 FOR K=1 TO 9: PRINT F(K);: NEXT K
300 PRINT: PRINT CHR$(4);"PR#0": END
10000 IF PEEK (49305) < > 80 THEN 10000
10010 POKE 49304,N
10020 RETURN
So that you can see how the program works, the next paragraphs
present the steps used to create the symbol for Mercury. First is the
design grid with dots drawn on it.
7
6
5
4
3
2
1
123456769
Figure 6-2. Design for character
57