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

N=p: Gosub 10000;: N=r;: Gosub 10000;: Next J, If D>=0 Then N=d: Gosub 10000;: Got0 140

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

64 32 16 8 4 2 1 8 10 8 8 8 8 8 8 4 2 1 0 0 0 0 0 0 0 0 0 23 4 1 0 0 0 4 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 8 2 0 0 0 Figure 7-5. First line of arrow figure The numbers for the second and third lines were calculated in the same manner. Once the numbers for the pin patterns are calculated, they go in DATA statements, separated by commas. First is the whole program and its printout, then an explanation of two techniques not used before: NEW 5 PRINT CHR$(4);"PR#1" 100 PRINT CHR$(9);"Z" 110 PRINT CHR$(27);"A";CHR$(7) 120 FOR K=1 TO 3 130 PRINT CHR$(27);"Y";CHR$(50);CHR$(0); 140 READ D: IF D=128 THEN 190 150 IF D>=0 THEN N=D: GOSUB 10000;: GOT0 140 160 READ P,R: FOR J=1 TO -N 170 N=P: GOSUB 10000;: N=R;: GOSUB 10000;: NEXT J 180 GOT0 140 190 PRINT: NEXT K: PRINT CHR$(27);"@" 200 PRINT CHR$(4);"PR#0": END 800 DATA 8,4,10,1,-6,8,0,4,0,2,0,1,-9,0,0,0 810 DATA 23,8,4,2,1,-2,0,0,0,128 820 DATA 0,0,0,0,64,32,17,10,4,0,-6,0,0,-10 830 DATA 64,0,0,0,0,64,32,17,10,4,128 840 DATA 2,4,10,16,34,64,-5,2,0,4,0,8,0,16 850 DATA 0,-9,32,0,61,2,4,8,16,32,64,0,0,0,128 10000 IF PEEK (49305) < > 80 then 10000 10010 POKE 49304,N 10020 RETURN 51

  • 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
64
32
16
8
4
2
1
8 10 8 8 8 8 8 8 4 2 1 0 0 0 0 0 0 0 0 0 23 4 1 0 0 0
4 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 8 2 0 0 0
Figure 7-5. First line of arrow figure
The numbers for the second and third lines were calculated in the
same manner. Once the numbers for the pin patterns are calculated,
they go in DATA statements, separated by commas.
First is the whole program and its printout, then an explanation of
two techniques not used before:
NEW
5 PRINT CHR$(4);"PR#1"
100 PRINT CHR$(9);"Z"
110 PRINT CHR$(27);"A";CHR$(7)
120 FOR K=1 TO 3
130 PRINT CHR$(27);"Y";CHR$(50);CHR$(0);
140 READ D: IF D=128 THEN 190
150 IF D>=0 THEN N=D: GOSUB 10000;: GOT0 140
160 READ P,R: FOR J=1 TO -N
170 N=P: GOSUB 10000;: N=R;: GOSUB 10000;: NEXT J
180 GOT0 140
190 PRINT: NEXT K: PRINT CHR$(27);"@"
200 PRINT CHR$(4);"PR#0": END
800
DATA
8,4,10,1,-6,8,0,4,0,2,0,1,-9,0,0,0
810 DATA 23,8,4,2,1,-2,0,0,0,128
820
DATA
0,0,0,0,64,32,17,10,4,0,-6,0,0,-10
830
DATA
64,0,0,0,0,64,32,17,10,4,128
840 DATA 2,4,10,16,34,64,-5,2,0,4,0,8,0,16
850
DATA
0,-9,32,0,61,2,4,8,16,32,64,0,0,0,128
10000 IF PEEK (49305) < > 80 then 10000
10010 POKE 49304,N
10020 RETURN
51