Meade 12 inch Instruction Manual - Page 60

For I = 1 To 30000: Next I: For I = 1 To 30000: Next I: For I = 1 To 30000: Next - to cm

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 60 highlights

- 60 OBDRAW: LOCATE 6, 31: PRINT " O B J E C T I N F O R M A T I O N"; LOCATE 7, 31: PRINT "Object: "; LEFT$(info$, 9); LOCATE 8, 31: PRINT "Rating: "; MID$(info$, 10, 7); LOCATE 9, 31: PRINT "Magnitude: "; MID$(info$, 20, 5); LOCATE 10, 31: PRINT "Size: "; MID$(info$, 27, 6); IF counter = 0 THEN LOCATE 11, 31: PRINT "RA:"; : LOCATE 12, 31: PRINT "DEC:"; : LOCATE 7, 60: PRINT "Distance to SLEW"; : LOCATE 9, 55: PRINT "RA"; : LOCATE 10, 55: PRINT "Dec"; : GO TO scale c$ = "#:Gr#": PRINT #1, c$; : d$ = INPUT$(8, 1): RAL$ = LEFT$(d$, 2): RAM$ = MID$(d$, 4, 4): LOCATE 11, 31: PRINT USING "RA : \\:\ \"; RAL$; RAM$; c$ = "#:Gd#": PRINT #1, c$; : d$ = INPUT$(7, 1): RAL$ = LEFT$(d$, 3): RAM$ = MID$(d$, 5, 2): LOCATE 12, 31: PRINT "DEC: "; RAL$; CHR$(248); RAM$; "'"; distbar: rad$ = "": decd$ = "" c$ = "#:D#": PRINT #1, c$: d$ = INPUT$(33, 1) FOR i = 1 TO 16 IF ASC(MID$(d$, i, 1)) = 255 THEN rad$ = rad$ + CHR$(254) NEXT i FOR i = 17 TO 33 IF ASC(MID$(d$, i, 1)) = 255 THEN decd$ = decd$ + CHR$(254) NEXT i LOCATE 7, 59: PRINT " Distance to SLEW "; scale: LOCATE 8, 59: PRINT "0"; CHR$(248); " 45"; CHR$(248); " 90"; CHR$(248); " IF counter = 0 THEN RETURN LOCATE 9, 55: PRINT " "; : LOCATE 9, 55: PRINT "RA "; rad$; LOCATE 10, 55: PRINT " "; : LOCATE 10, 55: PRINT "DEC "; decd$; RETURN 150+"; CHR$(248); status: key1: LOCATE 1, 7: PRINT "SITE" c$ = "#:Gt#": PRINT #1, c$; : d$ = INPUT$(7, 1): RAL$ = LEFT$(d$, 3): RAM$ = MID$(d$, 5, 2): LOCATE 2, 3: PRINT "Lat. : "; RAL$; CHR$ (248); RAM$; "'"; c$ = "#:Gg#": PRINT #1, c$; : d$ = INPUT$(7, 1): RAL$ = LEFT$(d$, 3): RAM$ = MID$(d$, 5, 2): LOCATE 3, 3: PRINT "Long.: "; RAL$; CHR$ (248); RAM$; "'"; BOXSTX = 2: BOXSTY = 3: BOXWIDE = 10: boxtall = 5: GOSUB drawbox RETURN PRINT #1, "#:MS#" error1$ = INPUT$(1, 1) IF error1$ = "1" OR error1$ = "2" THEN error2$ = INPUT$(33, 1) ELSE RETURN LOCATE 22, 20: PRINT error2$ GOSUB clearscr RETURN KEY2: PRINT #1, "#:CM#" sync$ = INPUT$(33, 1) LOCATE 22, 20: PRINT sync$; clearscr: FOR i = 1 TO 30000: NEXT i: FOR i = 1 TO 30000: NEXT i: FOR i = 1 TO 30000: NEXT i: FOR i = 1 TO 30000: NEXT i: FOR i = 1 TO 30000: NEXT i: FOR i = 1 TO 30000: NEXT i: LOCATE 22, 20: PRINT " "; RETURN key3: PRINT #1, "#:RS#" LOCATE 24, 1: PRINT " "; LOCATE 24, 18: PRINT CHR$(219); CHR$(178); CHR$(176); CHR$(176); CHR$(178); CHR$(219); RETURN KEY4: PRINT #1, "#:RM#:" LOCATE 24, 1: PRINT " "; LOCATE 24, 26: PRINT CHR$(219); CHR$(178); CHR$(176); CHR$(176); CHR$(178); CHR$(219); RETURN

  • 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
- 60 -
OBDRAW:
LOCATE 6, 31: PRINT "
O B J E C T
I N F O R M A T I O N";
LOCATE 7, 31: PRINT "Object:
"; LEFT$(info$, 9);
LOCATE 8, 31: PRINT "Rating:
"; MID$(info$, 10, 7);
LOCATE 9, 31: PRINT "Magnitude:
"; MID$(info$, 20, 5);
LOCATE 10, 31: PRINT "Size:
"; MID$(info$, 27, 6);
IF counter = 0 THEN LOCATE 11, 31: PRINT "RA:"; : LOCATE 12, 31:
PRINT "DEC:"; : LOCATE 7, 60: PRINT "Distance to SLEW"; :
LOCATE 9, 55: PRINT "RA"; : LOCATE 10, 55: PRINT "Dec"; : GO TO scale
c$ = "#:Gr#": PRINT #1, c$; : d$ = INPUT$(8, 1): RAL$ = LEFT$(d$, 2):
RAM$ = MID$(d$, 4, 4): LOCATE 11, 31:
PRINT USING "RA :
\\:\
\"; RAL$; RAM$;
c$ = "#:Gd#": PRINT #1, c$; : d$ = INPUT$(7, 1): RAL$ = LEFT$(d$, 3):
RAM$ = MID$(d$, 5, 2): LOCATE 12, 31:
PRINT "DEC:
"; RAL$; CHR$(248); RAM$; "'";
distbar:
rad$ = "": decd$ = ""
c$ = "#:D#": PRINT #1, c$: d$ = INPUT$(33, 1)
FOR i = 1 TO 16
IF ASC(MID$(d$, i, 1)) = 255 THEN rad$ = rad$ + CHR$(254)
NEXT i
FOR i = 17 TO 33
IF ASC(MID$(d$, i, 1)) = 255 THEN decd$ = decd$ + CHR$(254)
NEXT i
LOCATE 7, 59: PRINT " Distance to SLEW
";
scale:
LOCATE 8, 59: PRINT "0"; CHR$(248); " 45"; CHR$(248); "
90"; CHR$(248); "
150+";
CHR$(248);
IF counter = 0 THEN RETURN
LOCATE 9, 55: PRINT "
"; : LOCATE 9, 55:
PRINT
"RA
"; rad$;
LOCATE 10, 55: PRINT "
"; : LOCATE 10, 55:
PRINT "DEC "; decd$;
RETURN
status:
LOCATE 1, 7: PRINT "SITE"
c$ = "#:Gt#": PRINT #1, c$; : d$ = INPUT$(7, 1): RAL$ = LEFT$(d$, 3):
RAM$ = MID$(d$, 5, 2): LOCATE 2, 3: PRINT "Lat. : "; RAL$; CHR$ (248); RAM$; "'";
c$ = "#:Gg#": PRINT #1, c$; : d$ = INPUT$(7, 1): RAL$ = LEFT$(d$, 3):
RAM$ = MID$(d$, 5, 2): LOCATE 3, 3: PRINT "Long.: "; RAL$; CHR$ (248); RAM$; "'";
BOXSTX = 2: BOXSTY = 3: BOXWIDE = 10: boxtall = 5: GOSUB drawbox
RETURN
key1:
PRINT #1, "#:MS#"
error1$ = INPUT$(1, 1)
IF error1$ = "1" OR error1$ = "2" THEN error2$ = INPUT$(33, 1) ELSE RETURN
LOCATE 22, 20: PRINT error2$
GOSUB clearscr
RETURN
KEY2:
PRINT #1, "#:CM#"
sync$ = INPUT$(33, 1)
LOCATE 22, 20: PRINT sync$;
clearscr:
FOR i = 1 TO 30000: NEXT i: FOR i = 1 TO 30000: NEXT i: FOR i = 1 TO 30000: NEXT i:
FOR i = 1 TO 30000: NEXT i: FOR i = 1 TO 30000: NEXT i: FOR i = 1 TO 30000: NEXT i:
LOCATE 22, 20: PRINT "
";
RETURN
key3:
PRINT #1, "#:RS#"
LOCATE 24, 1: PRINT "
";
LOCATE 24, 18: PRINT CHR$(219); CHR$(178); CHR$(176); CHR$(176); CHR$(178); CHR$(219);
RETURN
KEY4:
PRINT #1, "#:RM#:"
LOCATE 24, 1: PRINT "
";
LOCATE 24, 26: PRINT CHR$(219); CHR$(178); CHR$(176); CHR$(176); CHR$(178); CHR$(219);
RETURN