Lexmark Dot Matrix Technical Reference - Page 19

Introduction, IFI$ >= a AND I$ <= fTHEN N= ASCI$- 87: RETURN

Get Lexmark Dot Matrix PDF manuals and user guides View all Lexmark Dot Matrix manuals
Add to My Manuals
Save this manual to your list of manuals

Page 19 highlights

1050 IF(I$ "") THEN RETURN 1190 GOSUB 1250: N1 = N 1200 IF EOF(1) GOTO 1290 1210 I$ = INPUT$(1,#1): GOSUB 1250 1220 PRINT #2,CHR$((N1 * 16) + N); 1230 WEND 1240 RETURN 1250 hex digit conversion 1260 IF(I$ >= "0") AND (I$ = "A") AND (I$ = "a") AND (I$

  • 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
  • 150
  • 151
  • 152
  • 153
  • 154
  • 155
  • 156
  • 157
  • 158
  • 159
  • 160
  • 161
  • 162
  • 163
  • 164
  • 165
  • 166
  • 167
  • 168
  • 169
  • 170
  • 171
  • 172
  • 173
  • 174
  • 175
  • 176
  • 177
  • 178
  • 179
  • 180
  • 181
  • 182
  • 183
  • 184
  • 185
  • 186
  • 187
  • 188
  • 189
  • 190
  • 191
  • 192
  • 193
  • 194
  • 195
  • 196
  • 197
  • 198
  • 199
  • 200
  • 201
  • 202
  • 203
  • 204
  • 205
  • 206
  • 207
  • 208
  • 209
  • 210
  • 211
  • 212
  • 213
  • 214
  • 215
  • 216
  • 217
  • 218
  • 219
  • 220
  • 221
  • 222
  • 223
  • 224
  • 225
  • 226
  • 227
17
Section 1: Introduction
1050
IF(I$ <> "<")THEN PRINT #2,I$;: GOTO 1090
1060
I$ = INPUT$(1, #1)
1070
IF(I$ = "x")OR (I$ = "X") THEN GOSUB 1130: GOTO 1090
1080
IF(I$ = "<")THEN PRINT#2,I$;: GOTO 1090 ELSE GOTO 1290
1090 WEND
1100 CLOSE #1: CLOSE #2:
1110 SHELL "copy prtrout.bin/b lpt1 >nul"
1120 END
1130 '--------------------process hex mode data-------------
1140 WHILE EOF(1) = 0
1150
I$ = INPUT$(1, #1)
1160
IF(I$ = " ")OR(I$ = CHR$(10))OR(I$ = CHR$(13))THEN GOTO 1230
1170
IF(I$ = "-")THEN GOSUB 1300: GOTO 1230
1180
IF(I$ = ">") THEN RETURN
1190
GOSUB 1250: N1 = N
1200
IF EOF(1) GOTO 1290
1210
I$ = INPUT$(1,#1): GOSUB 1250
1220
PRINT #2,CHR$((N1 * 16) + N);
1230 WEND
1240 RETURN
1250 '--------------------hex digit conversion--------------
1260 IF(I$ >= "0") AND (I$ <= "9")THEN N= ASC(I$)-48:RETURN
1270 IF(I$ >= "A") AND (I$ <= "F") THEN N= ASC(I$)-55:RETURN
1280 IF(I$ >= "a") AND (I$ <= "f")THEN N= ASC(I$)- 87: RETURN
1290 PRINT "Invalid hexadecimal data - [" + I$ + "]": STOP
1300 '----------------comments bypass subroutine------------
1310 WHILE EOF(1) = 0
1320
I$ = INPUT$(1, #1)
1330
IF (I$ = CHR$(10)) OR (I$ = CHR$(13)) THEN RETURN
1340 WEND
1350 GOTO 1100