Precision II Operation and Maintenance Manual
C
2-20
996-0255 rev. b
GOSUB 3000
1192 IF CMD$ =“Z” THEN PRINT “DEC PROGRAM”LL CMD =
33:GOSUB 3000
1193 IF CMD$ =“K” THEN PRINT “STORE”;: CMD = 49: GOSUB 3000
1194 IF CMD$ =“L” THEN PRINT “ACTIVATE”;: CMD = 65: GOSUB
3000
1200 IF CMD$=”Q” THEN STOP
1300 GOSUB 3900 ‘KEEP ALIVE DELAY
1999 GOTO 1030
2000 ‘******* DISPLAY MENU ********
2005 CLS:COLOR 15,0
2010 PRINT”CONTINUUM - CU601 HOST INTERFACE
COMMANDS”+STRING$(26,32);
2015 COLOR 15,0
2020 PRINT STRING$(80,205)
2025 COLOR(7)
2030 PRINT”<C> CHARGE <W> ROTATE HGEN 1 CW <J>
PARM SELECT” <G> Q-SWITCH TOGGLE”
2040 PRINT “<F> FIRE <V> ROTATE HGEN 1 CCW <I>
INC PARM <S> SHUTTER TOGGLE”
2050 PRINT “<B> START AUTO MODE <Y> ROTATE HGEN 2 CW
<D> DEC PARM <A> INC PROGRAM “
2060 PRINT “<E> STOP AUTO MODE <K> ROTATE HGEN 2 CCW
<K> STORE <Z> DEC PROGRAM
2070 PRINT “<M> MANUAL/AUTO <R> RESET <L> ACTI-
VATE
2085 COLOR(15)
2090 PRINT STRING$(80,205)
2091 COLOR(7)
2095 PRINT”<Q> QUIT” <P> PROGRAM STATUS <U> CU601
STATUS”
2097 COLOR 0,7:LOCATE 25,1:PRINT “LAST
COMMAND:”+STRING$(67,32);
2098 COLOR 7,0
2099 LOCATE 11,1:COLOR 31:PRINT”PRESS REM/LOC KEY!”;
2100 RETURN
3000 ‘******* SEND BYTE RS-232 *********
3010 PRINT #1,CHR$(CMD);
3030 RETURN
3100 ‘******* RECEIVE PROGRAM STATUS ***********
3110 CMD=3:GOSUB 3000 ‘send progstat cmd
3111 IF LOC(1)=0 THEN GOTO 3110
3120 REPRATE$=INPUT$(12,#1)
3130 TRIGDELAY$=INPUT$(12,#1)
3140 PULSEDIV$=INPUT$(12,#1)
3150 SHOTCOUNT$=INPUT$(12,#1)
3160 BAUDRATE$=INPUT$(12,#1)
3170 ACTPARM$=INPUT$(12,#1)