Lexmark 248X, 249X manual Wend

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

Section 1: Introduction 17