270M
Rapid
Scanning Imaging Spectrograph
Appendix
F:
Program Examples for SPEX.SYS:
These program listings are offered free of charge
as
examples to help you get started.
Although they have been tested, please understand that they are not supported or
guaranteed
to
the extent that our for-sale optional software packages are.
1 Sample BASIC Program:
10
KEY
OFF
'TURN FUNCTION
KEYS
OFF
20
OPEN
"SPEXOOOO"
FOR
OUTPUT
AS
#1 'OPEN DEVICE
30
WHILE
A$
< >
"Du
AND
A$
< >
•d
11
'WHILE
NOT EXIT
KEY
40
CLS 'CLEAR
SCREEN
50
PRINT
"A)
INITIALIZE
SYSTEM"
'PRINT OPTIONS
60
PRINT
11
8) SET FREQUENCIES"
70
PRINT
"C)
MOVE DEVICE"
80 PRINT
"D)
QUlr'
90 LOCATE
6,
1
100 INPUT "SELECTION :
",A$
'GET
OPTION
110 IF
A$
=
"A"
OR
A$ =
"a"
THEN GOSUB 200 'INITIALIZE
SYSTEM
120 IF
A$=
"8
11
OR
A$=
11
b
11
THEN GOSUB 260 'SET FREQUENCIES
130 IF
A$=
"C"
OR
A$=
"c" THEN GOSUB 340 'MOVE DEVICE
140 INPUT "<ENTER>•,
K$
150 WEND
160 CLOSE 1
170
CLS
180
KEY
ON.
190 END
'GET NEXT OPTION
'CLOSE DEVICE
'CLEAR
SCREEN
'TURN
ON
FUNCTION
'END OF
PROGRAM
KEYS
200 '****************** INITIALIZE
SYSTEM
********************************
210 PRINT "INITIALIZE
SYSTEM•
220 B =
384061
230 C = 1120
240 PRINT"' 1
"I
7"·
B·
C·
"·"·
~
' ' ' ' ' '
250
RETURN
'INITIALIZE MAX MONO
STEPS
'INITIALIZE MAX SLIT
STEPS
'SEND INITIALIZATION
STRING
260 •••~••••*********** SET FREQUENCIES **********************************
. 270 LOCATE
8,
1
280 INPUT "MONO FREQUENCY .........
",
B 'GET FREQUENCIES
290 INPUT "SLIT FREQUENCY .........
•,
C
300 INPUT "SHUTTER FREQUENCY ......
•,
D
310
-INPUT
"DC FREQUENCY ...........
",
E
320 PRINT#
1,
"F
";
B;
C;
D;
E;
";•; 'SEND FREQUENCY
STRING
330
RETURN
340 '****************** MOVE DEVICE **************************************
7 2
Revilled
November
24.
1992
Leica Microsystems, Inc.'s Ex. 1033
To Next Page
Loading...