Continuum Precision II Series User Manual

Chapter II – System Operation
2-21
C
996-0255 rev. b
3173 LASTPU$ = INPUT$(12,#1)
3174 CUSTAT$ = INPUT$(12,#1)
3176 RETURN
3180 ‘***** DISPLAY PROGRAM STATUS ***
3190 LOCATE 13,1:COLOR(15)
3195 PRINT “PROGRAM STATUS”
3196 PRINT STRING$(30,196)
3197 COLOR(15)
3200 PRINT “REP RATE :”;LEFT$(REPRATE$,10);” Hz”
3210 PRINT “Q-SW DELAY :”;LEFT$(TRIGDELAY$,10)+” uS”
3220 PRINT “PULSE DIV :”;
3226 PRINT LEFT$ (PULSEDIV$, 10); “ “
3230 PRINT “SHOT COUNTER:”;LEFT$(SHOTCOUNT$,10);” shots”
3240 PRINT “BAUD RATE :”;LEFT$(BAUDRATE$,10);” baud”
3245 PRINT “ACTIVE PARM :”;” [“+MID$(ACTPARM$,10,1)+”]”;
3251 A$=MID$(ACTPARM$,10,1)
3252 IF VAL(A$)<1 THEN PRINT” “
3253 IF A$=”1" THEN PRINT” REP RATE “
3254 IF A$=”2" THEN PRINT” Q-SWITCH “
3255 IF A$=”3" THEN PRINT” PULSE DIV “
3256 IF A$=”4" THEN PRINT” SHOT COUNT”
3257 IF A$=”5" THEN PRINT” BAUD RATE “
3258 IF A$=”6" THEN PRINT” Q-SWITCH2 “
3259 COLOR(15)
3260 PRINT “CU MODE :”; LEFT$(CUSTAT$,10)
3261 PRINT "LAST PU :”; LEFT$(LASTPU$, 10)
3265 PRINT STRING$(30,196)
3270 COLOR(7)
3300 RETURN
3500 ‘******* RECEIVE CU STATUS ********
3510 CMD=4:GOSUB 3000
3511 IF LOC(1)=0 THEN GOTO 3511
3515 BUF$=INPUT$(12,#1)
3517 RETURN
3520 ‘****** DISPLAY CU STATUS *******
3530 OS=-4: COLOR (15)
3540 LOCATE 14+OS,41:PRINT “CU601 STATUS”
3542 LOCATE 15+OS,41:PRINT STRING$(30,196)
3543 COLOR(15)
3545 LOCATE 16+OS,41:PRINT “STATUS BYTE : “;BUF$;
3550 LOCATE 17+OS,41
3560 IF MID$(BUF$,10,1)=”0" THEN PRINT”SHUTTER : CLOSED”
ELSE PRINT”SHUTTER : OPEN “
3565 LOCATE 18+OS,41
3566 IF MID$(BUF$, 1, 1) = “1” THEN PRINT “Q-SWITCH: ACTIVE
“ELSE PRINT “Q-SWITCH: NOT ACTIVE
3567 LOCATE 19+ OS, 41

Continuum Precision II Series Specifications

General

Brand	Continuum
Model	Precision II Series
Category	Measuring Instruments
Language	English