'--MINIMUF/CBM64/ALAN MEMLY,KE6UY- ;53281,11I53280,11R""[1""a2ynM$(37),A$(4),M(12)x31,28,31,30,31,30,31,31,30,31,30,31X112:M(X):M$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"R0180P12 R1180 P02 ""; "XMTR AT HOME (Y/N):";Q$J "":::Z Q$"N"190s X141.9:Y187.6:270 "XMTR LAT, LONG :";X1,Y1 X190212 220 X190240 "INVALID LATITUDE. MUST BE IN RANGE" "OF -90 TO 90 DEGREES" 190 Y1360250+ Y13602504 270l "INVALID LONGITUDE. MUST BE IN RANGE -360 TO +360"u 190 "RECEIVER LAT, LONG";X2,Y2 "X290300 #X290300 $320 ,"INVALID LATITUDE. MUST BE IN RANGE" -"OF -90 TO 90 DEGREES" .270 @Y2360330- AY23603306 C350n J"INVALID LONGITUDE. MUST BE IN RANGE -360 TO +360"w K270 ^"DATE (DAY,MONTH):";D6,M0 rM012 400 |"INVALID MONTH. MUST BE IN RANGE 1-12" 350 M(M0)D60410 430 "INVALID DAY" 3503 "SOLAR FLUX NUMBER:";SFR "GRAPH OR TABLE(G/T):";C$` SF0460 S9(0.73((.73)24(.0008)(65SF)))(2.0008) S9(S9) 480 "INVALID. MUST BE NON-NEGATIVE":430 "" 3000 A$(M$,3M02,3) C$"G"600& "";"DATE:";D6;A$E " TRANSMITTER LOCATION:"o 7)"LATITUDE";X1;22);"LONGITUDE";Y1 " RECEIVER LOCATION:" 7)"LATITUDE";X2;22);"LONGITUDE";Y2 !" DISTANCE =";DX;"MILES" &" SUNSPOT NUMBER = ";S9 +&04)"HOUR";11)"MUF";21)"HOUR";28)"MUF",N9XL1X1R0FbW1Y1R0SlL2X2R0`vW2Y2R0q{C$"G"2000CO0:""T5023COCO11000J9J910J9(J9)J9J910CO2665""4)T5;10)J9670"":21)T5;27)J9CO0%T5.""Q"PERFORM NEXT CASE (Y/N):";B$Z""jB$"Y"175s""y-MINIMUF 3.5K7(L1)(L2)(L1)(L2)(W2W1)K711050K711070K711070$K71.G1(K7(K7K71))28K61.59G1.BK6111107LK61CVK51K6N`J9100vjK11(2K6)11(2K6)0.99991K6tK511160~K50.5P(L2)Q(L2)A((L1)P(G1))(Q(G1))BG1K1CP(B)Q(B)AD((B)CP)(Q(1C2))D11250!D1+1270:D11270BD1\D(D(DD1))2tW0W2((W1W2))D W001310W0W0P1W0P11330(W0W0P12C11360<C1F1380PC11380ZC1dL0P0((C(CC1))2))nY10.172(10(M01)30.4D6)<xY20.409(Y1)gK83.82W0120.13((Y1)1.2(2Y1))K8K812(1(K824))((K824))(L0Y2)0.261520K90G00M92.5G1K5M9P01490M9P0M9(M9)M912.5M9(M9)1770AK9(0.26(Y2)(L0))((Y2)(L0)1.0E3)hK912(K9((1K9K9)))7.639437TK8K9212(1(K8K92))((K8K92))T4K8K9212(1(K8K9224))((K8K9224))C0((L0Y2))"T99.7C09.6,T90.11600 6T90.1@M92.5G1K5.JM9P016308TM9P0E^M9(M9)[hM912.5M9(M9)jrT4T1680|(T5T)(T4T5)016901820(T5T4)(TT5)01820T6T512(1(TT5))((TT5))G9(T6T)K9G8T9K9U(TT6)T9,G0C0((G9)G8((U)(G9)))(1G8G8)`G7C0(G8((K9T9)1))((K924)2)(1G8G8)qG0G71770{G0G7G2(1S9250)M9(658(G0))G2G2(10.1((K924)3))G2G2(1(1(L1)(L2))0.1)G2G2(10.1(1(((L0))(L0))))18807T6T512(1(T4T5))((T4T5))F&G8T9K9V0U(T4T6)2d:U1K9T9DG0C0(G8((U1)1))(U)(1G8G8)N1770XG2J91900bJ9G2lK1vJ9.93J9{""::::"" "";9)" "X118-"";9)" ";34)" "4X]"";9)" "10)"";"0";14)"4";18)"8";22)"12";26)"16";30)"20"19)"";"HOUR" "";"";""X38102*"";6)X"------------------------"X 4X398)"8------------------------8"[>8)"6------------------------6"C8)"4------------------------4"H""RX14:"":\""p" ";3)"MUF"z"""";"";"";"";"XMTR"X1;"/"Y1 X15:""::"RCVR"X2;"/"!Y2G"";11)"DISTANCE =";DX"MILES"f12)"SUNSPOT NUMBER =";S9o""y2700T50231000 "" J9(J9):J9J92:J9(J9):J92J9 J9382350$ 2360. J9388 "";L SS(38J9)2 V X0SSX "";[ X&` "";5t XJ942Dy J942440X~ "";T510)" "_ Xg T5q ::{ ""; "PERFORM NEXT CASE (Y/N)";N$ V21,0 N$"Y"10 "": V53248:V21,1:2040,13 V39,4 N062:Q:832N,Q: V0,170:V1,1000 V29,1:V23,1r 0,3,248,0,0,128,0,31,240,0,2,0,0,4,0,1,255,192,0,24,0,0,40,0 31,255,0,0,8,0,0,28,0,0,20,0,0,28,0,0,20,0,0,28,0,0,20,0,0,28,0,0,20,0 0,28,0,0,20,0,0,28,0  RA3956.75 X7RA((90X1)180)(Y1180); Y7RA((90X1)180)(Y1180)V Z7RA((90X1)180)w DE((X72)(Y72)(Z72)).5 CAX7DE:CBY7DE:CCZ7DE X8RA((90X2)180)(Y2180) Y8RA((90X2)180)(Y2180) Z8RA((90X2)180)  DG((X82)(Y82)(Z82)).5? CDX8DG:CEY8DG:CFZ8DGh CT((X7X8)(Y7Y8)(Z7Z8))(DGDE) CT0CT.000000000001 DI((RA2)(RA2)2RARACT).5 DI5656.854253065 SI(1(CT2)).5 TASICT:T(TA)180:3075 SI1(1(CT2)).5. TASICT:T180(TA)180G DX69.055T:DX(DX)M