User`s manual

CHAPTER 4 PROGRAMMING TECBNIQUES 41
4. PROGRAMMING TECBNIQUES
4.1. Interactive Data Transfer
10 'FILE NAME : EXAMPLE.1
20 'Program Example : INTERACTIVE DATA TRANSFER
40 'Purpose : This program outputs data strings entered by
50 users and enters data from the IEEE-488 bus.
70 '
80 'Initialization
90'
100 LIN.Y=1 : KEY OFF : CLS
110 DEF SEG=&BD000
120 ABORT%=9 : OUTPUTi=3 : ENTER%=6 : STATUS%=42
130 CALL ABORT’
140 '
150 'Command entry point
160
170 KEY(1) ON : KEY(2) ON : KEY(3) ON : KEY(4) ON : KEY(5) OFF
180 KEY(6) OFF: KEY(7) OFF: KEY(8) OFF: KEY(9) OFF: KEY(10) OFF
190 KEY 1 CLS .KEY 2 0UTPUT ¥KEY
200 KEY 5 .KEY 6.KEY 73 ENTER KEY 4 EXIT
210 KEY 9,” “:KEY 10,”
220 ON KEY(1) GOSUB 390
230 ON REY(2) GOSUB 440
240 ON KEY(3) GOSUB 560
250 ON KEY(4) GOSUB 810
260 '
270 GOSUB 330
280 KEY ON
290 GOTO 290 ‘Loop here waiting function key
310 'Display message
320 '
330 COLOR 15,7:LOCATE 22,1,0:PRINT “ “;SPACE$(79):LOCATE 22,1
340 PRINT “Select function key l”:COLOR 7,0:LOCATE 1,1
350 RETURN
360 '
370 'Clear Screen
380 '
390 CLS:GOSUB 330
400 RETURN
410 '