Meade 12 inch Instruction Manual - Page 61

Locate 24, 42: Print Chr$219; Chr$178; Chr$176; Chr$176; Chr$178; Chr$219

Get Meade 12 inch PDF manuals and user guides View all Meade 12 inch manuals
Add to My Manuals
Save this manual to your list of manuals

Page 61 highlights

- 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 REM REM REM RETURN LOCATE BOXSTX, BOXSTY: BOX$ = CHR$(201) FOR I = 1 TO BOXWIDE: BOX$ = BOX$ + CHR$(205): NEXT PRINT BOX$; 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
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
- 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