VMM-D3/D4 Shutter Driver
24
ELSEIF A$ = "P" OR A$ = "p" THEN
PRINT #1, CHR$(J + 2);
PRINT "Ch. 2 OPEN COMMAND SENT"
GOSUB TIMEOUT
GOTO MENU
ELSEIF A$ = "L" OR A$ = "l" THEN
PRINT #1, CHR$(J + 3);
PRINT "Ch. 2 CLOSE COMMAND SENT"
GOSUB TIMEOUT
GOTO MENU
ELSEIF A$ = "N" OR A$ = "n" THEN
PRINT #1, CHR$(J + 4);
PRINT "Ch. 3 OPEN COMMAND SENT"
GOSUB TIMEOUT
GOTO MENU
ELSEIF A$ = "E" OR A$ = "e" THEN
PRINT #1, CHR$(J + 5);
PRINT "Ch. 3 CLOSE COMMAND SENT"
GOSUB TIMEOUT
GOTO MENU
ELSEIF A$ = "A" OR A$ = "a" THEN
PRINT #1, CHR$(J + 6);
PRINT "ALL Ch.'s OPEN COMMAND SENT"
GOSUB TIMEOUT
GOTO MENU
ELSEIF A$ = "R" OR A$ = "r" THEN
PRINT #1, CHR$(J + 7);
PRINT "ALL Ch.'s CLOSE COMMAND SENT"
GOSUB TIMEOUT
GOTO MENU
ELSEIF A$ = "Q" OR A$ = "q" THEN
K = 0
PRINT "PROGRAM TERMINATED"
ELSEIF A$ = "S" OR A$ = "s" THEN
INPUT "ENTER OCTAL ADDRESS 0 - 7 or X: ", B$
GOSUB ADDRESS
GOTO MENU
ELSE GOTO START
END IF
WEND
END
TIMEOUT: FOR I = 1 TO 100: NEXT I
CLS 0
RETURN
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
