Meade Instruments 1697 Computer Drive System For LXD 650 and LXD 750 Mounts - Part 2 - Manual (Page 26)

-
45
-
CLS
DEFINT A-X
counter = 0
OPEN "COM1:9600,N,8,1,CD0,CS0,DS0,OP0,RS,TB2048,RB2048" FOR RANDOM AS #1 hourform$ = "low "
KEY ON
KEY(1) ON
KEY 1, "GO TO":
ON KEY(1) GOSUB key1
KEY(2) ON
KEY 2, " SYNC"
ON KEY(2) GOSUB KEY2
KEY(3) ON
KEY 3, " SLEW"
ON KEY(3) GOSUB key3
KEY(4) ON
KEY 4, " FIND"
ON KEY(4) GOSUB KEY4
KEY(5) ON
KEY 5, " CNTR"
ON KEY(5) GOSUB KEY5
KEY(6) ON
KEY 6, "GUIDE"
ON KEY(6) GOSUB KEY6
KEY(7) ON
KEY 7, " H.P."
ON KEY(7) GOSUB key7
KEY(8) ON
KEY 8, "FORMAT"
ON KEY(8) GOSUB key8
KEY(9) ON
KEY 9, " PREV"
ON KEY(9) GOSUB key9
KEY(10) ON
KEY 10, " NEXT"
ON KEY(10) GOSUB key10
KEY(11) ON
ON KEY(11) GOSUB key11
KEY(12) ON
ON KEY(12) GOSUB key12
KEY(13) ON
ON KEY(13) GOSUB key13
KEY(14) ON
ON KEY(14) GOSUB key14
GOSUB statis
GOSUB key3: REM puts maker over key3
GOSUB help
20 GOSUB telpos
PRINT #1, "#:LI#": info$ = INPUT$(33, 1): REM LOCATE 10, 20: PRINT info$;
GOSUB obdraw
GOSUB TIME
50 key$ = INKEY$: IF key$ = "" THEN GOTO 20
REM KEYS
IF key$ = CHR$(119) THEN GOSUB senddir: REM a$ = "#:Mw#"
IF key$ = CHR$(101) THEN GOSUB senddir: REM a$ = "#:Me#"
IF key$ = CHR$(110) THEN GOSUB senddir: REM a$ = "#:Mn#"
IF key$ = CHR$(115) THEN GOSUB senddir: REM a$ = "#:Ms#"
IF key$ = "m" THEN GOSUB objects
IF key$ = "t" THEN GOSUB objects
IF key$ = "c" THEN GOSUB objects
IF key$ = "p" THEN GOSUB objects
IF key$ = "q" THEN GOSUB objects
IF key$ = "x" THEN CLS : END
IF key$ = "r" THEN RUN
GOTO 20
END