SPEX 270M - Page 82

270M Rapid Scanning Imaging Spectrograph
350 LOCATE 8, 1
360 INPUT "DEVICE NUMBER. ......... ", B 'B = DEVICE NUMBER
F370 LOCATE 10, 1
380 PRINT •A) ABSOLUTE MOVE" 'PRINT OPTIONS
390 PRINT •B) RELATIVE MOVE"
400 LOCATE 13, 1
410 INPUT ·sE~CTION: ", C$ 'GET OPTION
420 IF C$ = "A" OR C$ = "a" THEN GOSUB 460 'ABSOLUTE MOVE
430 IF cs = ·B· OR cs = ·b· THEN GOSUB 500 'RELATIVE MOVE
440 GOSUB 540 'QUERY DEVICE
450 RETURN
460 '****************** MOVE ABSOLUTE ************************************
470 INPUT "ABSOLUTE POSITION ...... ", D 'D = POSITION
480 PRINT# 1, "A
11
; B; D; ";"; 'SEND MOVE ABSOLUTE STRING
490 RETURN
500 '****************** MOVE RELATIVE ************************************
510 INPUT "RELATIVE POSITION ..... . ■, D 'D = POSITION
520 PRINT# 1, "R "; B; D; •;
0
; 'SEND MOVE RELATIVE STRING
530 RETURN
540 '****************** QUERY DEVICE *************************************
550 PRINT# 1, "Q
0
; a;
0
;
0
; 'QUERY DEVICE
560 CLOSE #1 'CLOSE AS OUTPUT DEVICE
570 OPEN •sPEXOOOO" FOR INPUT AS #1 'OPEN AS INPUT DEVICE
590 INPUT# 1, F 'READ REPLY FROM DEVICE
600 LOCATE 24, 1
610 PRINT ·cuRRENT POSITION IS •; F 'SHOW REPLY
620 CLOSE #1 'CLOSE AS INPUT DEVICE
630 OPEN "SPEXOOOQ• FOR OUTPUT AS #1 'RESTORE AS OUTPUT DEVICE
640 RETURN
Revised Nov..,,._ 24, 1992
73
Leica Microsystems, Inc.'s Ex. 1033
Page 82 of 89