Filter
Top Products
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