Leisure Time LX20 instruction manual Keys

61

KEYS:

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

key 13:

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