Leisure Time LX20 instruction manual Keyi

6 0

OBDRAW:

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"; : GO TO scale c$ = "#:Gr#": PRINT#1,c$; :d$ = INPUT$(8, 1): RAL$ = LEFT$(d$, 2):

RAMS = MID$(d$, 4, 4): LOCATE 11, 31:

PRINT USING "RA :		\\:\ \"; RAL$; RAMS;
c$ = "#:Gd#": PRINT #1, c$; : d$ = INPUT$(7, 1): RAL$ = LEFT$(d$, 3):
RAMS = MID$(d$, 5,2): LOCATE 12,31:
PRINT "DEC:	"; RAL$; CHR$(248); RAMS;
distbar:
rad$ = "": decd$ = ""
c$ = "#:D#": PRINT #1,c $ :d $ = INPUT$(33, 1)
FORi = 1 T O 1 6
IFASC(MIDS(d$, i, 1)) = 255 THEN rad$ = rad$ + CHR$(254)
NEXT i
FOR i = 17 TO 33
IFASC(MID$(d$, i, 1)) = 255THEN decd$ = decd$ + CHR$(254)
NEXTi
LOCATE 7, 59: PRINT " Distance to SLEW "; scale:
LOCATE 8, 59: PRINT "0"; CHRS(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

status:

LOCATE 1, 7: PRINT "SITE"

c$ = "#:Gt#": PRINT #1,c$; : d$ = INPUT$(7, 1): RAL$ = LEFT$(d$, 3):

RAMS = MID$(dS, 5, 2): LOCATE 2, 3: PRINT Tat. : "; RAL$; CHRS (248); RAMS; "'"; c$ = "#:Gg#": PRINT #1, c$; : d$ = INPUT$(7, 1): RAL$ = LEFT$(d$, 3):

RAMS = MID$(d$, 5, 2): LOCATE 3, 3: PRINT "Long.: "; RALS; CHRS (248); RAMS; ""'; BOXSTX = 2: BOXSTY = 3: BOXWIDE = 10: boxtall = 5: GOSUB drawbox

RETURN

keyi:

PRINT #1, "#:MS#" error1$ = INPUT$(1, 1)

IF errorl $ = "1" OR errorl $ = "2" THEN error2$ = INPUT$(33, 1) ELSE RETURN LOCATE 22, 20: PRINT error2$

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