beautypg.com

Meade Instruments LX200 Classic User Manual

Page 61

background image

- 61 -

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

key11:

key$ = "n"
GOSUB north
RETURN

key12:

key$ = "w"
GOSUB west

RETURN

key13:

key$ = "e"
GOSUB east
RETURN

key14:

key$ = "s"
GOSUB south

RETURN

drawbox:
REM

LOCATE BOXSTX, BOXSTY:

REM

BOX$ = CHR$(201)

REM

FOR I = 1 TO BOXWIDE: BOX$ = BOX$ + CHR$(205): NEXT

REM

PRINT BOX$;

RETURN

help:

LOCATE 14, 10: PRINT "E W N S keys move telescope. SPACE BAR stops.";
LOCATE 15, 10: PRINT "M key to enter Messier object.";
LOCATE 16, 10: PRINT "T key to enter sTar.";
LOCATE 17, 10: PRINT "P key to enter Planet (900 + orbit #).";
LOCATE 18, 10: PRINT "C key to enter Cngc object.";
LOCATE 19, 10: PRINT "X to End program.";

RETURN

END