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

-
49
-
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