22
PRINT "SHUTTER OPEN COMMAND SENT"
GOSUB
TIMEOUT
GOTO
MENU
ELSEIF A$ = "C" THEN
#1,CHR$(J
+
2);
"SHUTTER
CLOSE
COMMAND
SENT"
GOSUB
TIMEOUT
GOTO
MENU
ELSEIF A$ = "T" THEN
#1,CHR$(J
+
3);
PRINT "CONTROL TRIGGER COMMAND SENT"
GOSUB
TIMEOUT
GOTO
MENU
ELSEIF A$ = "R" THEN
#1,CHR$(J
+
4);
"CONTROL
RESET
COMMAND
SENT"
GOSUB
TIMEOUT
GOTO
MENU
ELSEIF A$ = "Q" THEN
L = 0
"PROGRAM
TERMINATED"
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