User manual

58
SAMPLE BASIC PROGRAM FOR SENDING AND RECEIVING STATUS FROM PRINTER.
5 ON ERROR GOTO 140
10 CLS:PRINT "WHICH OF THE FOLLOWING PORTS IS YOUR PRINTER CONNECTED TO?"
20 PRINT:PRINT "1=LPT1:":PRINT "2=LPT2:":PRINT "3=COM1:":PRINT "4=COM2:"
30 PRINT:INPUT "ENTER NUMBER 1-4";PN$:PN=VAL(PN$)
40 IF PN < 1 OR PN > 4 THEN CLS:GOTO 10
50 ON PN GOTO 60,70,80,90
60 OPEN "LPT1:" AS #1:WIDTH #1,255:GOTO 100
70 OPEN "LPT2:" AS #1:WIDTH #1,255:GOTO 100
80 OPEN "COM1:9600,N,8,1,RS,DS60000" AS #1:GOTO 100
90 OPEN "COM2:9600,N,8,1,RS,DS60000" AS #1:GOTO 100
100 CLS
110 PRINT: INPUT "PRESS RETURN FOR STATUS !",N
120 PRINT#1,"<S2>"
130 FOR Q=1 TO 1000:NEXT Q
140 X=LOC(1)
150 IF X<1 THEN GOTO 140
160 B$=INPUT$(LOC(1),#1)
170 FOR Q=1 TO LEN(B$)
180 Z$=(MID$(B$,Q,1))
190 PRINT Z$; " ";
200 NEXT Q
210 GOTO 140
220 END