Meade LX200 Instruction Manual page 56

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: PRINTUSING "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$;
OBDRAW:
LOCATE 6, 31: PRINT "
LOCATE 7, 31: PRINT"Object:
LOCATE 8, 31: PRINT "Rating:
LOCATE 9, 31: PRINT "Magnitude: "; MID$(info$, 20, 5);
LOCATE 10, 31: PRINT"Size:
IF counter = 0 THEN LOCATE 11, 31: PRINT "RA:"; : LOCATE 12, 31:
PRINT "DEC:"; : LOCATE 7, 60: PRINT "Distance to SLEW"; :
LOCATE 9, 55: PRINT"RA"; : LOCATE 10, 55: PRINT"Dec"; : GO TO scale
c$ = "#:Gr#": PRINT #1, c$; : d$ = INPUT$(8, 1): RAL$ = LEFT$(d$, 2):
RAM$ = MID$(d$, 4, 4): LOCATE 11, 31:
PRINT USING "RA:
c$ = "#:Gd#": PRINT #1, c$; : d$ = INPUT$(7, 1): RAL$ = LEFT$(d$, 3):
RAM$ = MID$(d$, 5, 2): LOCATE 12, 31:
PRINT "DEC: "; RAL$; CHR$(248); RAM$; "'";
distbar:
rad$ = "": decd$ = ""
c$ = "#:D#": PRINT #1, c$: d$ = INPUT$(33, 1)
FOR i = 1 TO 16
IF ASC(MID$(d$, i, 1)) = 255 THEN rad$ = rad$ + CHR$(254)
NEXT i
FOR i = 17 TO 33
IF ASC(MID$(d$, i, 1)) = 255 THEN decd$ = decd$ + CHR$(254)
NEXT i
LOCATE 7, 59: PRINT " Distance to SLEW ";
scale:
LOCATE 8, 59: PRINT "0"; CHR$(248); " 45"; CHR$(248); " 90"; CHR$(248); " 150+";
IF counter = 0 THEN RETURN
LOCATE 9, 55: PRINT "
PRINT "RA "; rad$;
LOCATE 10, 55: PRINT "
PRINT "DEC "; decd$;
RETURN
- 56 -
: \\/\\/\\"; RAL$; RAM$; RAR$;
";
O B J E C T I N F O R M A T I O N";
"; LEFT$(info$, 9);
"; MID$(info$, 10, 7);
"; MID$(info$, 27, 6);
\\:\ \"; RAL$; RAM$;
"; : LOCATE 9, 55:
"; : LOCATE 10, 55:
CHR$(248);