home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 439.FINDSAT5.BAS < prev    next >
BASIC Source File  |  1993-05-27  |  3KB  |  108 lines
  1.     CLS
  2.     REM                           FINDSAT5.BAS
  3.     REM
  4.     REM               (c)1992,1993 by John W. Gardner, Jr.
  5.     REM
  6.     REM                 AN ELEMENT FILE BUILDING PROGRAM
  7.     REM                     ( selectable parameters )
  8.     REM
  9.     rem                    'QBASIC  Microsoft ver 1.0
  10.     SCREEN 0
  11.     COLOR 15, 1
  12.     CLS
  13.     ON ERROR GOTO 970
  14.     INPUT "Enter name of your NORAD element file to extract parameters "; Z$
  15.     OPEN "NEWSET.SZN" FOR APPEND AS #2
  16. 160 OPEN Z$ FOR INPUT AS #1
  17.     LOCATE 4, 6
  18.     PRINT "MARISAT 3     NAME  ( first four characters or FULL name must be used )"
  19.     LOCATE 5, 6
  20.     PRINT "03029U        satellite ID number  ( full ID & the U must be specified )"
  21.     LOCATE 6, 6
  22.     PRINT "92240.427...  EPOCH date   ( minimum of first 2 digits must be specified )"
  23.     LOCATE 7, 6
  24.     PRINT "10.1248       INCLINATION  ( first 3 characters must be specified )"
  25.     LOCATE 8, 6
  26.     PRINT "13.353...     MEAN MOTION  ( first 3 characters must be specified )"
  27.     LOCATE 12, 4
  28.     PRINT "Type the parameter for which new element set file will be determined."
  29.     LOCATE 14, 4
  30.     PRINT "HINT: The more complete the specification, the more restricted the results"
  31.     LOCATE 16, 4
  32.     PRINT "Selectable parameters are limited to satellite name, ID number,"
  33.     LOCATE 17, 4
  34.     PRINT "epoch, inclination or mean motion.  Enter per examples shown above."
  35.     LOCATE 20, 4
  36.     PRINT "IF your using a control file containing sorted pre-selected NORAD IDs for"
  37.     PRINT "   input, press  0  key.  Else type parameter to continue OR press ENTER "
  38.     INPUT "   to abort program. "; T$
  39.     IF T$ = "0" THEN 410
  40.     IF T$ = "" THEN 970 ELSE 490
  41. 410 LOCATE 24, 4
  42.     INPUT "Enter control file to extract specified element sets "; W$
  43.     OPEN W$ FOR INPUT AS #3
  44.     CLS
  45.     X = 0
  46. 460 IF EOF(3) THEN 800
  47.     LINE INPUT #3, U$
  48.     T$ = MID$(U$, 1, 6)
  49.     GOTO 500
  50. 490 CLS
  51. 500 IF EOF(1) THEN 800
  52.     LOCATE 1, 6
  53.     PRINT "Searching file "; Z$; " for "; T$ ; " data.  One moment please."
  54.     INPUT #1, G$
  55.     INPUT #1, H$
  56.     INPUT #1, I$
  57.     Q = LEN(T$)
  58.     A$ = MID$(G$, 1, Q)
  59.     B$ = MID$(H$, 3, Q)
  60.     C$ = MID$(H$, 19, Q)
  61.     D$ = MID$(I$, 9, Q)
  62.     M$ = MID$(I$, 10, Q)
  63.     E$ = MID$(I$, 53, Q)
  64.     N$ = MID$(I$, 54, Q)
  65.     IF A$ <> T$ THEN 650 ELSE 690
  66. 650 IF B$ <> T$ THEN 660 ELSE 690
  67. 660 IF C$ <> T$ THEN 670 ELSE 690
  68. 670 IF D$ <> T$ AND M$ <> T$ THEN 680 ELSE 690
  69. 680 IF E$ <> T$ AND N$ <> T$ THEN 500 ELSE 690
  70. 690 PRINT #2, G$
  71.     PRINT #2, H$
  72.     PRINT #2, I$
  73.     LOCATE 6, 1
  74.     PRINT G$; SPC(16);
  75.     PRINT H$
  76.     PRINT I$
  77.     LOCATE 23, 21
  78.     PRINT "Data written to disk as file NEWSET.SZN"
  79.     X = X + 1
  80.     IF LEN(W$) > 1 THEN 460 ELSE 500
  81. 800 L = LOF(2)
  82.     IF L < 5 THEN 820 ELSE 860
  83. 820 CLS
  84.     LOCATE 10, 18
  85.     PRINT "No element set matching parameter "; T$; " found"
  86.     GOTO 1000
  87. 860 BEEP
  88.     LOCATE 13, 4
  89.     PRINT ; X; "element sets appended to NEWSET.SZN based on parameter "; T$
  90.     LOCATE 15, 17
  91.     INPUT "Do you wish to select more satellites ( Y/N ) "; O$
  92.     IF O$ = "Y" OR O$ = "y" THEN 920 ELSE 950
  93. 920 CLOSE #1
  94.     CLS
  95.     GOTO 160
  96. 950 CLS
  97.     GOTO 1000
  98. 970 CLS
  99.     LOCATE 10, 9
  100.     PRINT "Program aborted with no input by user OR bad file name/path used"
  101. 1000 CLOSE #1
  102.      CLOSE #2
  103.      LOCATE 12, 25
  104.      PRINT "Type  CLS  to clear screen colors"
  105.      BEEP
  106.      SYSTEM
  107.      END
  108.