Meade Instruments 1697 Computer Drive System For LXD 650 and LXD 750 Mounts - Part 2 User Manual

Page 27

senddir:
west:

IF key$ = "w" THEN a$ = "#:Mw#": PRINT #1, a$: REM GOTO west

east:

IF key$ = "e" THEN a$ = "#:Me#": PRINT #1, a$: REM GOTO east

north:

IF key$ = "n" THEN a$ = "#:Mn#": PRINT #1, a$: REM GOTO north

south:

IF key$ = "s" THEN a$ = "#:Ms#": PRINT #1, a$: REM GOTO south
GOSUB telpos
key$ = INKEY$:
IF key$ = CHR$(32) THEN GOTO end1 ELSE GOTO senddir

end1:

B$ = "#:Qe#": PRINT #1, B$
B$ = "#:Qw#": PRINT #1, B$
B$ = "#:Qn#": PRINT #1, B$
B$ = "#:Qs#": PRINT #1, B$

RETURN

telpos:

LOCATE 6, 7: PRINT "TELESCOPE POSITION";
c$ = "#:GR#": PRINT #1, c$;

IF hourform$ = "high" THEN d$ = INPUT$(9, 1): RAL$ = LEFT$(d$, 3): RAM$ =
MID$(d$, 4, 2): RAR$ = MID$(d$, 7, 2): LOCATE 7, 10: PRINT USING "RA :
\\:\\:\ \"; RAL$; RAM$; RAR$;
IF hourform$ = "low " THEN d$ = INPUT$(8, 1): RAL$ = LEFT$(d$, 3): RAM$ =
MID$(d$, 4, 4): LOCATE 7, 10: PRINT USING "RA : \\:\ \ "; RAL$; RAM$;

c$ = "#:GD#": PRINT #1, c$;

IF hourform$ = "high" THEN d$ = INPUT$(10, 1): RAL$ = LEFT$(d$, 3): RAM$ =
MID$(d$, 5, 2): RAR$ = MID$(d$, 8, 2): LOCATE 8, 10: PRINT "DEC: "; RAL$;
CHR$(248); RAM$; "'"; RAR$; CHR$(34);
IF hourform$ = "low " THEN d$ = INPUT$(7, 1): RAL$ = LEFT$(d$, 3): RAM$ =
MID$(d$, 5, 2): LOCATE 8, 10: PRINT "DEC: "; RAL$; CHR$(248); RAM$; "'
";

c$ = "#:GA#": PRINT #1, c$;

IF hourform$ = "high" THEN d$ = INPUT$(10, 1): RAL$ = LEFT$(d$, 3): RAM$ =
MID$(d$, 5, 2): RAR$ = MID$(d$, 8, 2): LOCATE 9, 10: PRINT "ALT: "; RAL$;
CHR$(248); RAM$; "'"; RAR$; CHR$(34);
IF hourform$ = "low " THEN d$ = INPUT$(7, 1): RAL$ = LEFT$(d$, 3): RAM$ =
MID$(d$, 5, 2): LOCATE 9, 10: PRINT "ALT: "; RAL$; CHR$(248); RAM$; "'
";

c$ = "#:GZ#": PRINT #1, c$;

IF hourform$ = "high" THEN d$ = INPUT$(10, 1): RAL$ = LEFT$(d$, 3): RAM$ =
MID$(d$, 5, 2): RAR$ = MID$(d$, 8, 2): LOCATE 10, 10: PRINT "AZ : "; RAL$;
CHR$(248); RAM$; "'"; RAR$; CHR$(34);
IF hourform$ = "low " THEN d$ = INPUT$(7, 1): RAL$ = LEFT$(d$, 3): RAM$ =
MID$(d$, 5, 2): LOCATE 10, 10: PRINT "AZ : "; RAL$; CHR$(248); RAM$; "'
";

RETURN

TIME:

LOCATE 1, 32: PRINT "DATE"; : LOCATE 1, 64: PRINT "TIME";
c$ = "#:GS#": PRINT #1, c$; : d$ = INPUT$(9, 1): RAL$ = LEFT$(d$, 2): RAM$ = MID$(d$,

4, 2): RAR$ = MID$(d$, 7, 2): LOCATE 3, 55: PRINT USING "Siderial Time:
\\:\\:\\"; RAL$; RAM$; RAR$;

c$ = "#:GL#": PRINT #1, c$; : d$ = INPUT$(9, 1): RAL$ = LEFT$(d$, 2): RAM$ = MID$(d$,

4, 2): RAR$ = MID$(d$, 7, 2): LOCATE 2, 55: PRINT USING "Local (24hr) :
\\:\\:\\"; RAL$; RAM$; RAR$;

c$ = "#:GG#": PRINT #1, c$; : d$ = INPUT$(4, 1): RAL$ = LEFT$(d$, 3):

LOCATE 3, 25: PRINT USING "GMT Offset: \ \ Hours"; RAL$;

c$ = "#:GC#": PRINT #1, c$; : d$ = INPUT$(9, 1): RAL$ = LEFT$(d$, 2): RAM$ = MID$(d$,

4, 2): RAR$ = MID$(d$, 7, 2): LOCATE 2, 25: PRINT USING "Date : \\/\\/\\";
RAL$; RAM$; RAR$;

RETURN