Leisure Time LX20 - Manual (Page 58)

59
REM KEYS
IFkey$ = CHR$(119)THEN GOSUB senddir: REM a$ = "#:Mw#"
IFkeyS = 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$ = "tt:Ms#": PRINT #1, a$: REM GO TO south
GOSUB telpos key$ = INKEYS:
IF key$ = CHR$(32) THEN GO TO endl ELSE GO TO senddir endl:
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):
RAMS = 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):
RAMS = MID$(d$, 5, 2): LOCATE 8, 10: PRINT "DEC: "; RAL$; CHR$(248); RAMS; "'"; c$
= "#:GA#": PRINT #1, c$; : d$ = INPUT$(7, 1): RALS = LEFT$(d$, 3):
RAMS = MID$(d$, 5, 2): LOCATE 9, 10: PRINT "ALT: "; RALS; CHR$(248); RAMS; ""'; c$ =
"#:GZ#": PRINT #1, c$; : d$ = INPUT$(7, 1): RALS = LEFT$(d$, 3):
RAM$ = MID$(d$, 5, 2): LOCATE 10, 10: PRINT "AZ :"; RAL$; CHR$(248); RAMS; '"";
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):
RAMS = MID$(d$, 4, 2): RARS = MID$(d$, 7, 2): LOCATE 2, 55:
PRINT USING "Sidereal Time: \\:\\:\\"; RALS; RAM$; RAR$; C$ = "#:GL#":
PRINT #1, c$; : d$ = INPUT$(9, 1): RALS = LEFT$(d$, 2):
RAMS = MID$(d$, 4, 2): RAR$ = MID$(d$, 7, 2): LOCATE 3, 55:
PRINT USING "Local (24hr) : \Y\Y\\"; RALS; RAM$; RARS;
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):
RAMS = MID$(d$, 4, 2): RAR$ = MID$(d$, 7, 2): LOCATE 2, 25:
PRINT USING "Date : \\A\A\"; RALS; RAM$; RARS;
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#": infoS = INPUT$(33, 1): REM LOCATE 10, 20: PRINT info$;