Meade Instruments 1697 Computer Drive System For LXD 650 and LXD 750 Mounts - Part 2 - Manual (Page 29)

-
48
-
statis:
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: PRINT LEFT$(error2$, 32)
GOSUB clearr
RETURN
KEY2:
PRINT #1, "#:CM#"
sync$ = INPUT$(33, 1)
LOCATE 22, 20: PRINT sync$;
clearr: 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: PRINT CHR$(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
key7:
PRINT #1, "#:P#"
notice$ = INPUT$(14, 1): LOCATE 4, 15: PRINT notice$
RETURN
key8:
PRINT #1, "#:U#"
IF hourform$ = "high" THEN hourform$ = "low " ELSE hourform$ = "high"
LOCATE 4, 40: PRINT "Number Format= "; hourform$
RETURN
key9:
PRINT #1, "#:LN#"
PRINT #1, "#:LI#": info$ = INPUT$(33, 1): REM LOCATE 10, 20: PRINT info$;
GOSUB obdraw
RETURN
key10:
PRINT #1, "#:LB#"
PRINT #1, "#:LI#": info$ = INPUT$(33, 1): REM LOCATE 10, 20: PRINT info$;
GOSUB obdraw
RETURN