home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / pc_ham2 / phase1.2 < prev    next >
Encoding:
Text File  |  1985-09-28  |  3.9 KB  |  117 lines
  1. 10 REM PHASE1 Version 5.0
  2. 20 REM Simple Orbit Tracking Program
  3. 30 REM By Joe Kasser G3ZCZ
  4. 40 DIM I$(32),M9$(36)
  5. 50 M9$ = "JanFebMarAprMayJunJunAugSepOctNovDec"
  6. 60 GOTO 380
  7. 70 L9 = L9 - 1 \ IF L9 > 0 THEN 80 ELSE GOSUB 320 \ L9 = 60
  8. 80 D8 = D9
  9. 90 RESTORE 220 \ GOSUB 230
  10. 100 PRINT#P5,%5I,N9,%7I,D6,M8$,%10F4,T9,%10F2,W
  11. 110 RETURN
  12. 120 T9 = INT (S9 + M9*100 + H9*10000) / 1000000
  13. 130 RETURN
  14. 140 W = W + W2 \ IF W > 360 THEN W = W - 360
  15. 150 S9 = S9 + (P - INT(P9))/100*60
  16. 160 IF S9 < 60 THEN 170 ELSE S9 = S9 - 60 \ M9 = M9 + 1 \ GOTO 160
  17. 170 M9 = M9 + INT(P)
  18. 180 IF M9 < 60 THEN 190 ELSE M9 = M9 - 60 \ H9 = H9 + 1 \ GOTO 180
  19. 190 IF H9 < 24 THEN 200 ELSE H9 = H9 - 24 \ D9 = D9 + 1 \ GOTO 190
  20. 200 IF D9 > 365 THEN D9 = D9 - 365 \ REM NOT LEAP YEAR
  21. 210 RETURN
  22. 220 DATA 0,31,59,90,120,151,181,212,243,273,304,334
  23. 230 FOR I = 0 TO 11
  24. 240 READ Z1
  25. 250 IF Z1 >= D9 THEN EXIT 280
  26. 260 Z2 = Z1
  27. 270 NEXT
  28. 280 D6 = D9 - Z2
  29. 290 M8$ = " "+M9$((I-1)*3+1,((I-1)*3)+3)
  30. 300 RETURN
  31. 310 REM
  32. 320 PRINT#P5
  33. 330 PRINT#P5, "Equatorial crossing times for the ",I$," spacecraft"
  34. 340 PRINT#P5,M$," Orbits"
  35. 350 PRINT#P5
  36. 360 PRINT#P5,"ORBIT      DATE       TIME    XSING (W)"
  37. 370 RETURN
  38. 380 PRINTCHR$(12),"AMATEUR SATELLITE ORBIT PROGRAM"
  39. 390 PRINT
  40. 400 PRINT "Satellite selection menu "
  41. 410 PRINT "AMSAT - OSCAR 7         0"
  42. 420 PRINT "AMSAT - OSCAR 8         1"
  43. 430 PRINT "UoSAT - OSCAR 9         2"
  44. 440 PRINT "RS 3                    3"
  45. 450 PRINT "RS 4                    4"
  46. 460 PRINT "RS 5                    5"
  47. 470 PRINT "RS 6                    6"
  48. 480 PRINT "RS 7                    7"
  49. 490 PRINT "RS 8                    8"
  50. 500 INPUT "Which satellite ? ", S \ IF S<0 OR S >8 THEN 400
  51. 510 ON S+1 GOTO 520,530,540,550,560,570,580,590,600
  52. 520 RESTORE 900 \ GOTO 620
  53. 530 RESTORE 930 \ GOTO 620
  54. 540 RESTORE 960 \ GOTO 620
  55. 550 RESTORE 990 \ GOTO 620
  56. 560 RESTORE 1020 \ GOTO 620
  57. 570 RESTORE 1050 \ GOTO 620
  58. 580 RESTORE 1080 \ GOTO 620
  59. 590 RESTORE 1110 \ GOTO 620
  60. 600 RESTORE 1140 \ GOTO 620
  61. 610 REM OTHER S/C CAN BE ADDED HERE
  62. 620 READ I$,N0,D9,H9,M9,S9,W,P,W2
  63. 630 RESTORE 220 \ GOSUB 230
  64. 640 PRINT\ PRINT I$," Reference orbit is",N0," on",D6,M8$,
  65. 650 GOSUB 120
  66. 660 PRINT " at",%6F4,T9,
  67. 670 PRINT  " crossing at",W," W"
  68. 680 INPUT "What is the first orbit ? ",N1  \ IF N1 >= N0 THEN 700
  69. 690 PRINT" Reference orbit is",N0 \ GOTO 680
  70. 700 INPUT "What is the last orbit to be printed ? ",N2
  71. 710 IF N2<N1 THEN N2=N1
  72. 720 INPUT "All orbits or just Reference orbits ? ",A$ \ IF A$="" THEN 720
  73. 730 IFA$(1,1)="A"THENM$="all"ELSEIFA$(1,1)="R"THENM$="reference"ELSE720
  74. 740 INPUT "Which output device (0-7) ? ",P5
  75. 750 IF N1 = N0 THEN 770
  76. 760 FOR N9 = N0 TO N1-1 \ GOSUB 140 \ NEXT
  77. 770 N9 = N1
  78. 780 GOSUB 120
  79. 790 GOSUB 70
  80. 800 REM MAIN LOOP
  81. 810 FOR N9 = N1+1 TO N2
  82. 820 GOSUB 140
  83. 830 GOSUB 120
  84. 840 IF A$(1,1) = "R" THEN IF D8 = D9 THEN 860
  85. 850 GOSUB 70
  86. 860 NEXT
  87. 870 REM FORMAT OF DATA = SPACECRAFT NAME
  88. 880 REM ORBIT (#), DAY , EQR XSING TIME (HH,MM,SS), LONG ( DEG W)
  89. 890 REM PERIOD (MIN), LONGITUDE INCREMENT / ORBIT
  90. 900 DATA "AMSAT OSCAR 7"
  91. 910 DATA 16804,200,00,36,52,67.5
  92. 920 DATA 114.945199,28.736297
  93. 930 DATA "AMSAT OSCAR 8"
  94. 940 DATA 19370,357,01,08,10,83.77
  95. 950 DATA 103.179480,25.79703
  96. 960 DATA "UoSAT OSCAR 9"
  97. 970 DATA 01171,357,00,16,58,138.2
  98. 980 DATA 95.31353,23.82.897
  99. 990 DATA " R S 3 "
  100. 1000 DATA 0   ,018,01,05,60,231.9
  101. 1010 DATA 118.46293,29.756498
  102. 1020 DATA " R S - 4"
  103. 1030 DATA 0   ,018,00,43,23,225.9
  104. 1040 DATA 119.33912,29.97578
  105. 1050 DATA "R S - 5 "
  106. 1060 DATA 0  ,018,01,43,59,241.9
  107. 1070 DATA 119.49842,30.01562
  108. 1080 DATA " R S - 6 "
  109. 1090 DATA 0  ,018,00,23,17,221.2
  110. 1100 DATA 118.66154,29.80622
  111. 1110 DATA " R S - 7 "
  112. 1120 DATA 0  ,018,01,26,59,231.1
  113. 1130 DATA 119.14014,29.92596
  114. 1140 DATA " R S - 8 "
  115. 1150 DATA 0  ,018,01,04,18,231.1
  116. 1160 DATA 119.70890,30.06830
  117.