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

Page 28

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$
IF key$ = "q" THEN INPUT "Enter RA: (HH:MM:SS) "; m$: o$ = "#:Sr" + m$: REM d$=

INPUT$(1, 1)

IF key$ = "q" THEN INPUT "Enter RA: (HH:MM:SS) "; m$: o$ = "#:Sr" + m$: REM d$=

INPUT$(1, 1)

o$ = o$ + "#"
PRINT #1, o$
LOCATE 21, 15: PRINT " ";
PRINT #1, "#:LI#": info$ = INPUT$(33, 1): REM LOCATE 10, 20: PRINT info$;

obdraw:

counter = 1
LOCATE 6, 31: PRINT " O B J E C T I N F O R M A T I O N";
LOCATE 7, 31: PRINT "Object: "; LEFT$(info$, 9);
LOCATE 8, 31: PRINT "Rating: "; MID$(info$, 10, 7);
LOCATE 9, 31: PRINT "Magnitude: "; MID$(info$, 20, 5);
LOCATE 10, 31: PRINT "Size: "; MID$(info$, 27, 6);
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:"; : REM goto scale

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 11, 31: PRINT USING "RA :
\\:\\:\ \"; RAL$; RAM$; RAR$;

IF hourform$ = "low " THEN d$ = INPUT$(8, 1): RAL$ = LEFT$(d$, 3): RAM$ =

MID$(d$, 4, 4): LOCATE 11, 31: 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 12, 31: 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 12, 31: PRINT "DEC: "; RAL$; CHR$(248);
RAM$; "' ";

REM c$ = "#:Gr#": PRINT #1, c$; : d$ = INPUT$(8, 1): RAL$ = LEFT$(d$, 2): RAM$ =

MID$(d$, 4, 4): LOCATE 11, 31: PRINT USING "RA : \\:\ \"; RAL$; RAM$;

REM 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)

REM LOCATE 22, 20: PRINT "XXXXX"; d$; "XXXXXXX"; ASC(d$); "XXXXX";
REM LOCATE 23, 3: FOR I = 1 TO 33: PRINT ASC(MID$(d$, I, 1)); : NEXT I

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+";

CHR$(248);

IF counter = 0 THEN RETURN

LOCATE 9, 55: PRINT " "; : LOCATE 9, 55: PRINT "RA "; rad$;
LOCATE 10, 55: PRINT " "; : LOCATE 10, 55: PRINT "DEC "; decd$;

RETURN