Continuum Precision II Series User Manual

Chapter II – System Operation
2-19
C
996-0255 rev. b
1000 CLS
1010 OPEN “COM1:9600,N,8,1” FOR RANDOM AS #1
1020 GOSUB 2000 ‘DISPLAY MENU
1025 GOSUB 3100:GOSUB 3180:GOSUB 3500:GOSUB 3520 ‘GET STA-
TUS/CU STATUS
1027 LOCATE 11,1:PRINT” “;
1030 LOCATE 11,1:COLOR(15)
1031 PRINT”ENTER COMMAND”;
1032 COLOR(15+16):PRINT”>”
1041 COLOR 15:LOCATE 11,15:PRINT CMD$;
1042 IF CMD$<>”” THEN IF ASC(CMD$)>90 THEN
CMD$=CHR$(ASC(CMD$)-32) ‘CONVERT TO UPPER CASE
1045 LOCATE 25,15:COLOR 0,7
1050 IF CMD$=”S” THEN PRINT”TOGGLE SHUTTER
“;:CMD=19:SOUND 1200,.2:GOSUB 3000
1060 IF CMD$=”C” THEN PRINT”CHARGE LASER
“;:CMD=51:SOUND 1200,.2:GOSUB 3000
1070 IF CMD$=”F” THEN PRINT”FIRE LASER “;:CMD=67:SOUND
1200,.2:GOSUB 3000
1080 IF CMD$=”B” THEN PRINT”BEGIN AUTO FIRE
“;:CMD=52:SOUND 1200,.2:GOSUB 3000
1090 IF CMD$=”E” THEN PRINT”END AUTO FIRE
“;:CMD=68:SOUND 1200,.2:GOSUB 3000
1100 IF CMD$=”M” THEN PRINT”AUTO/MANUAL MODE
“;:CMD=36:SOUND 1200,.2:GOSUB 3000
1110 IF CMD$=”G” THEN PRINT”Q-SWITCH ON/OFF
“;:CMD=20:SOUND 1200,.2:GOSUB 3000
1120 IF CMD$=”R” THEN PRINT”RESET “;:CMD=66:SOUND
500,.5:GOSUB 3000
1130 IF CMD$=”W” THEN PRINT”ROTATE HGEN 1 CW
“;:CMD=21:GOSUB 3000
1135 IF CMD$=”Y” THEN PRINT”ROTATE HGEN 2 CW
“;:CMD=53:GOSUB 3000
1140 IF CMD$=”V” THEN PRINT”ROTATE HGEN 1 CCW
“;:CMD=37:GOSUB 3000
1145 IF CMD$=”K” THEN PRINT”ROTATE HGEN 2 CCW
“;:CMD=69:GOSUB 3000
1150 IF CMD$=”P” THEN PRINT”PROGRAM STATUS “;:SOUND
1000,.5:GOSUB 3100:GOSUB 3180
1160 IF CMD$=”U” THEN PRINT”CU 601 STATUS “;:SOUND
1000,.5:GOSUB 3500:GOSUB 3520
1170 IF CMD$=”J” THEN PRINT”PARM SELECT
“;:CMD=50:SOUND 1200,.2:GOSUB 3000
1180 IF CMD$=”I” THEN PRINT”INC PARAMETER
“;:CMD=18:GOSUB 3000
1190 IF CMD$=”D” THEN PRINT”DEC PARAMETER
“;:CMD=34:GOSUB 3000
1191 IF CMD$ =“A” THEN PRINT “INC PROGRAM”;: CMD = 17:

Continuum Precision II Series Specifications

General

Brand	Continuum
Model	Precision II Series
Category	Measuring Instruments
Language	English