Meade LX200 Instruction Manual page 57

status:
LOCATE 1, 7: PRINT "SITE"
c$ = "#:Gt#": PRINT#1, c$; : d$ = INPUT$(7, 1): RAL$ = LEFT$(d$, 3):
RAM$ = MID$(d$, 5, 2): LOCATE 2, 3: PRINT "Lat. : "; RAL$; CHR$ (248); RAM$; "'";
c$ = "#:Gg#": PRINT#1, c$; : d$ = INPUT$(7, 1): RAL$ = LEFT$(d$, 3):
RAM$ = MID$(d$, 5, 2): LOCATE 3, 3: PRINT "Long.: "; RAL$; CHR$ (248); RAM$; "'";
BOXSTX = 2: BOXSTY = 3: BOXWIDE = 10: boxtall = 5: GOSUB drawbox
RETURN
key1:
PRINT #1, "#:MS#"
error1$ = INPUT$(1, 1)
IF error1$ = "1" OR error1$ = "2" THEN error2$ = INPUT$(33, 1) ELSE RETURN
LOCATE 22, 20: PRINTerror2$
GOSUB clearscr
RETURN
KEY2:
PRINT #1, "#:CM#"
sync$ = INPUT$(33, 1)
LOCATE 22, 20: PRINT sync$;
clearscr:
FOR i = 1 TO 30000: NEXT i: FOR i = 1 TO 30000: NEXT i: FOR i = 1 TO 30000: NEXT i:
FOR i = 1 TO 30000: NEXT i: FOR i = 1 TO 30000: NEXT i: FOR i = 1 TO 30000: NEXT i:
LOCATE 22, 20: PRINT "
RETURN
key3:
PRINT #1, "#:RS#"
LOCATE 24, 1: PRINT "
LOCATE 24, 18: PRINT CHR$(219); CHR$(178); CHR$(176); CHR$(176); CHR$(178); CHR$(219);
RETURN
KEY4:
PRINT #1, "#:RM#:"
LOCATE 24, 1: PRINT "
LOCATE 24, 26: PRINT CHR$(219); CHR$(178); CHR$(176); CHR$(176); CHR$(178); CHR$(219);
RETURN
KEY5:
PRINT #1, "#:RC#"
LOCATE 24, 1: PRINT "
";
LOCATE 24, 34: PRINTCHR$(219); CHR$(178); CHR$(176); CHR$(176); CHR$(178); CHR$(219);
RETURN
KEY6:
PRINT #1, "#:RG#"
LOCATE 24, 1: PRINT "
";
LOCATE 24, 42: PRINT CHR$(219); CHR$(178); CHR$(176); CHR$(176); CHR$(178); CHR$(219);
RETURN
key11:
key$ = "n"
GOSUB north
RETURN
key12:
key$ = "w"
GOSUB west
RETURN
key13:
key$ = "e"
GOSUB east
RETURN
key14:
key$ = "s"
GOSUB south
RETURN
- 57 -
";
";
";