User`s manual

CHAPTER 4 PROGRAMMING TECBNIQUES 43
4.2. Set IEEE-488 Printer
10 'FILE NAME : EXAMPLE.2
20 ' Program Example : SET IEEE-488 PRINTER
30 '
40 'Purpose : This program converts an IEEE-488 printer to a
50 'PC system printer
70 '
80 'Initialization
90
100 CLS
110 DEF SEG=&HD000
120 DEVICE%=57
130
140
150 Enter the IEEE-488 printer setting
170 INPUT “Enter the IEEE-488 printer address ? “,ADDR%
180 IF ADDR&<0 OR ADDR~~>30 THEN PRINT “Bad entry.” ~ GOTO 170
190 INPUT “Enter the printer port ? (1/LPT1 2/LPT2;) “,N%\ -
200 IF N%<>1 OR N%<>2 TuEN PRINT “Bad entry.’ . GOTO 19
220 '
230 'Setting the IEEE-488 printer
250 CALL DEVICE%(ADDR%,N%)
260 PRINT
270 PRINT “IEEE-488 printer is ready to use.”
290 '
300 'Check the IEEE-488 printer function
320 PRINT
330 INPUT “Send string to printer ? (Y/N) “,Y$
340IF Y$<>”y” AND Y$<>”Y” THEN END
350 LINE INPUT “Enter the string : “;D$
360 LPRINT D$
370 GOTO 320
380 '
390 END