Epson RX-80 User Manual - Page 50

If R=0 Then Next I Else Goto 130, Print Which Rows Have Dots In Column; 1

Page 50 highlights

the dots as large as you see them in the example on the left in Figure 5-2. If you draw them smaller, you may have overlapping dots without realizing it. Figure 5-2. Correct and incorrect designs overlapping dots dot on horizontal line If you do accidentally overlap dots, don't worry. The program will still work, but only one of the dots will be printed. First definition program Once you have drawn your dots on the grid, type in the following BASIC program and run it. If you are using Applesoft™ BASIC, see Appendix C. 100 DIM F(9) 110 FOR I=1 TO 9 120 PRINT "WHICH ROWS HAVE DOTS IN COLUMN"; 1 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 160 LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0); 170 LPRINT CHR$(27)"%"CHR$(1)CH$(0); 180 LPRINT CHR$(27)"&"CHR$(0)CHR$(60)CHR$(60); 190 LPRINT CHR$(128); User-defined Characters 5-3

  • 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

the dots as large as you see them in the example on the left in Figure
5-2. If you draw them smaller, you may have overlapping dots without
realizing it.
Figure 5-2.
Correct and
incorrect designs
overlapping dots
dot on horizontal line
If you do accidentally overlap dots, don’t worry. The program will
still work, but only one of the dots will be printed.
First definition program
Once you have drawn your dots on the grid, type in the following
BASIC program and run it. If you are using Applesoft™ BASIC, see
Appendix C.
100 DIM F(9)
110 FOR I=1 TO 9
120 PRINT "WHICH ROWS HAVE DOTS IN COLUMN"; 1
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
160 LPRINT CHR$(27)
“:“CHR$(0)CHR$(0)CHR$(0);
170 LPRINT CHR$(27)"%"CHR$(1)CH$(0);
180 LPRINT CHR$(27)"&"CHR$(0)CHR$(60)CHR$(60);
190 LPRINT CHR$(128);
User-defined Characters
5-3