Meade Instruments 1697 Computer Drive System For LXD 650 and LXD 750 Mounts - Part 2 User Manual

Page 30

Text mode
Original mode

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 "Q key to enter Planet (900 + orbit #).";
LOCATE 20, 10: PRINT "X to End program.";

RETURN

END