Filter
Top Products
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