Meade LX200 Instruction Manual page 59

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$ = "x" THEN CLS : END
IF key$ = "r" THEN RUN
GO TO 20
END
senddir:
west:
IF key$ = "w" THEN a$ = "#:Mw#": PRINT #1, a$: REM GO TO west
east:
IF key$ = "e" THEN a$ = "#:Me#": PRINT #1, a$: REM GO TO east
north:
IF key$ = "n" THEN a$ = "#:Mn#": PRINT #1, a$: REM GO TO north
south:
IF key$ = "s" THEN a$ = "#:Ms#": PRINT #1, a$: REM GO TO south
GOSUB telpos
key$ = INKEY$:
IF key$ = CHR$(32) THEN GO TO end1 ELSE GO TO 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$; : 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$; : 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$; : 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$; : 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 2, 55:
PRINT USING "Sidereal 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 3, 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
RETURN
objects:
counter = 1
LOCATE 21, 25
IF key$ = "m" THEN INPUT "Enter Messier number: "; m$: o$ = "#:LM" + m$
IF key$ = "t" THEN INPUT "Enter Star number: "; m$: o$ = "#:LS" + m$
IF key$ = "c" THEN INPUT "Enter CNGC number: "; m$: o$ = "#:LC" + m$
IF key$ = "p" THEN INPUT "Enter Planet number: "; m$: o$ = "#:LS" + m$
o$ = o$ + "#"
PRINT #1, o$
LOCATE 21, 15:
PRINT "
PRINT #1, "#:LI#": info$ = INPUT$(33, 1): REM LOCATE 10, 20: PRINT info$;
- 59 -
: \\/\\/\\"; RAL$; RAM$; RAR$;
";