Meade 2080/LX6 Manual de instrucciones descargar pdf (Pagina 61)

- 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

1 2 ... 56 57 58 59 60 61 62 63 64

Sin comentarios

Meade 2080/LX6 Manual de instrucciones Pagina 61