"": 53280,(53281)J"TRANSFER DATA (Y/N) ";I$[I$"Y"2640q(U$(14):D$(15)2T8$(16)"08"<T1$(16)"10"FT2$(16)"20"PT3$(16)"30"ZT4$(16)"40"dT5$(16)"50"nT6$(16)"60" xT7$(16)"70" T9$(16)"46") T(11,4)_ SP$(1)" ":SP$(2)" ":SP$(3)" ":SP$(4)" "} F20:C11:A41:V5:R3500 "" "CALCULATE BALLISTIC COEFF. (Y/N) ";I$ F0 (I$,1)"Y"F1 "INGALL'S OR BRITISH TABLES (I/B) ";I$ F10 (I$,1)"I"F118 T359F1:P129.53.47F1a "WIND SPEED (MPH) ";W1 "CROSS WIND ANGLE (DEG) ";A1 W2W1(A11.74533E02)8860 I$"W"670 "C1$"":"CARTRIDGE";C$ ,(C$)38F30:390 6M21(C$)21 @(C$,M2,1)" "340+ JF31:M1M2J T(C$,(C$)M2,1)" "360_ ^F32:M1(C$)M2e h| rC1$(C$,(C$)M1) |C$(C$,M11) "WEIGHT (GRAINS) ";W WW7000 "CALIBER ";D F1490 "BALLISTIC COEFFICIENT ";C. C0460V "FORM FACTOR ";Ii C0CWDDI| I0IWDDC C1C "NON-STANDARD CONDITIONS (Y/N) ";I$:F20 (I$,1)"Y"670 F21 "TEMPERATURE (DEG. F) ";T3$ "PRESSURE (IN. HG) ";P1M "ALTITUDE (FEET) ";A2g &T459(.003566)A2F1 0P229.53(8.581E04)A2(8.602E09)A2A2.47F1 :A31(3.073E05)A2(6.731E10)A2A2 DA4A3(2P1P2)(T3459.4)(T4459.4) NCC1A4 XF16308b" (MODIFIED C = ";(1000C)1000;")"Al660NvT359F1bP129.53.47F1kA20yIWDDCF1710"RANGE (YARDS) ";R3"NUMBER OF INTERVALS (1-10) ";UR3R3500"MUZZLE VELOCITY (FPS) ";V1V2V1V:R20I"CALCULATE FREE RECOIL (Y/N) ";I1$`(I1$,1)"Y"790"POWDER WEIGHT (GRAINS) ";W9W9W97000"GUN WEIGHT (LBS) ";W8 R9(WV14700W9)264.345W8F0850  "RANGE (YDS) ";R1&*R1R13O4"FINAL VELOCITY (FPS) ";V4[>I1:C1eH1260RF91:4:"OUTPUT TO PRINTER,"\" DISK, OR SCREEN (P/D/S) ";I$:I$"S"F90:910 fI$"P"4,4:910 pI$"D"850zZ$"0:":"FILENAME ";F$:F$"TEMP"Z$"@0:"HF$Z$F$",S,W":15,8,15:4,8,4,F$:2690aTA((802(C$))2)}TA$((TA),((TA))1)TA10TA$"0"TA$F902750:12604,(14)(16)TA$C$(15)TA((802(C1$))2)TA$((TA),((TA))1)TA10TA$"0"TA$6F304,(14)(16)TA$C1$(15)A4," "L4," "W4," "4,T8$"BULLET WEIGHT"U$T9$;(W70000.5)10;D$T6$"GRAINS"4,T8$"CALIBER"U$T9$;D;D$4,T8$"BALLISTIC COEFF."U$T9$;(C1000.5)1000;D$$4,T8$"FORM FACTOR"U$T9$;(I1000.5)1000;D$9.F114,T8$"('INGALS' ";^8F114,T8$"('BRITISH 1909' ";~B4,"BALLISTIC TABLES USED)"L4,T8$"WIND"U$T9$;W1;D$T6$"MILES PER HOUR"V4,T8$"AT ANGLE OF"U$T9$;A1;D$T6$"FROM BROADSIDE"(`4,T8$"FOR CROSSWIND"U$T9$;(W210.5)10;D$T6$"FEET PER SECOND"`jF214,T8$"(NON-STANDARD ATMOSPHERIC CONDITIONS)"t4,T8$"TEMPERATURE"U$T9$;T3;D$T6$"DEGREES FAHRENHEIT"~4,T8$"ATMOS. PRESS."U$T9$;(100P1.5)100;D$T6$"INCHES OF MERCURY"4,T8$"ALTITUDE"U$T9$;A2;D$T6$"FT ABOVE SEA LEVEL"%4," "8I1$"Y"12004,T8$"FREE RECOIL IN";W8;" LB GUN"U$T9$;(R9100.5)100;D$T6$"FT. LBS4," ":4," "S$" RANGE VEL. ENERGY MAX HT. DROP DRIFT TIME"4,T8$S$=S$" YDS. F/S FT-LBS IN. IN. IN. SEC."J4,T8$S$U4," "aK2CVoV2V22VF112460 F112310S1SSSK(AV2(M1))(T1T2TTK(AV2M)<F1V2V41370FF1SR21510P1270!ZSS1(SS1)(V2VV4)(2V)1dC(R1S)A4?nIWDDCNxF11450T"BALLISTIC COEFF. = ";(1000C)1000"FORM FACTOR = ";(1000I)1000C1C:F0:21504," "4,T8$"BALLISTIC COEFF. = "U$T4$;(1000C)1000;D$84,T8$"FORM FACTOR = "U$T4$;(1000I)1000;D$AC1CIF0S2150^OV3V3V3(V2V)2V(R2S1)(SS1)OV301580(OV3V3)OV3.011580" ** POSSIBLE DRIFT ERROR **""INTERVAL VELOCITY DIFFERENCE = ";(10000(OV3V3)OV3)100;"%"O""CONTINUE (Y/N) ";I$:I$"N"2170d,EV3V3W64.3456T2T1(TT1)(R2S1)(SS1)@T((R2(1500UR3)1.5),1)R23JD1(110.382.7V3V1)T2T2TT((R2(1500UR3)1.5),2)D1^W312W2(T2R2V1)hW3016704r" ** DRIFT ERROR **"k|"CONTINUE (Y/N) ";I$:I$"N"2170F902860:17104,T1$;(R23.5);T2$;(V3.5);T3$;(E.5);4,T4$;(4800T2T2.5)100;T5$;(100D1.5)100;4,T6$;(100W3.5)100;T7$;(1000T2.5)1000.R2R21500UR3HF0R21500R31740R1270dF904," "}"SIGHT ON AT ";R4"SIGHT HEIGHT";HF902980:21504," "4,T8$"SIGHT ON AT"U$;R4;D$"YARDS"4,T8$"SIGHT HEIGHT ="U$;H;D$"INCHES ABOVE BORE"4," ",T(1,4)99999&X1U10T(X,3)T((R4(500UR3)1.5),2)T(X,1)R4T(X,2)H(R4T(X,1))R4:X11870DT(X,4)T(X,3)(1.0472T(X,1)100)NX4,T8$"RANGE ";bX1U1lT(X,I)10001940vT(X,1)10019604,T(X,1);" ";#197024,T(X,1);<1970S4," ";T(X,1);" ";Yp4:4,T8$"TRAJ. ";}X1U1M(10T(X,3))10:M$(M)(M)99.9M$" ***"M0M$"+"(M$,(M$)1)4,M$;SP$(6(M$));4:4,T8$"M.O.A."; X1U12M(10T(X,4))10:M$(M)P M0M$"+"(M$,(M$)1)i*(M)99.9M$" ***"44,M$;SP$(6(M$));>H4," "R4," "\F902980fS0pT0z"";)" WIND ATMOSPHERE RESTART PROGRAM QUIT ";a" SIGHTS CLOSE TRANSFER NEW RANGE ";" "; I$:I$""2210 I$"W"250I$"A"520I$"R":40 I$"S"1750I$"Q"2630" I$"C"4,"####":4:15:21703 I$"T"2640I I$"N"V30:670S 2210e  V226002450w  V220002440  V214602430 $ V211902420 . V210402410 8 V28402400 B V202390 L V A7.4422E4:M1.6:!` A5.9939E8:M3:!j A2.3385E18:M6.45:1!t A9.5408E8:M3:I!~ A5.9814E4:M1.8:a! A5.8495E3:M1.5:z! A1.5366E3:M1.67:! V236002620! V226002610! V218002600! V213702590! V212302580! V29702570! V27902560" V202550 " "" A4.67617E5:M2:8" A5.9353E8:M3:P" A6.33681E14:M5:g" A9.56978E8:M3:~" A1.31601E4:M2:"( A1.24795E3:M1.7:"2 A4.06488E3:M1.55:"< A4.05E3:M1.551:"F 5:4:"":"P 15:4:5:4,4,#Z "FILENAME ";F$:F$"0:"F$",S,R":15,8,15:5,8,5,F$:26906#d 5,I$X#n I$"####"4:4:5:15:2170h#x 4,I$:2660}# 15,AA,BB$,CC,DD# AA20 # " ** DISK ERROR **"# EE$(AA)" "BB$" "(CC)" "(DD)# "";(40(EE$))2);EE$;""$ 15:4:5:2170K$ " CROSSWIND";(W210.5)10;"FEET PER SECOND"~$ F21"(NON-STANDARD ATMOSPHERIC CONDITIONS)"$ I1$"Y"2800$ " FREE RECOIL IN";W8;" LB GUN"$ " ";(R910.5)10;"FT. LBS"$ % S$"RANGEVELENERGYMX HTDROPDRIFTTIME"'% S$W% S$" YDS.F/SFT-LBS IN. IN. IN. SEC."_% S$g%" :x%, (R23.5);%6 5);(V3.5);%@ 11);(E.5);%J 48T2T21017);(480T2T2.5)10;:2910%T 17);(48T2T2.5); &^ D11022);(D1.5);:2930$&h 22);(10D1.5)10;E&r W31028);(W3.5);:2950_&| 28);(10W3.5)10;& T2135);(10T2.5)10;:2970& 34);(100T2.5)100& & & T(1,4)9999& X1U1' T(X,3)T((R4(500UR3)1.5),2)T(X,1)R4T(X,2)H(R4T(X,1))R4' X13040C' T(X,4)T(X,3)(1.0472T(X,1)100)I' T' "R ";a' X1U1x' T(X,I)10003110' T(X,1)1003130' T(X,1);" ";' 3140'& T(X,1);'0 3140': " ";T(X,1);" ";'D 'N :"T ";'X X1U1(b M(10T(X,3))10:M$(M)+(l (M)99.9M$" ***"I(v M0M$"+"(M$,(M$)1)_( M$;SP$(6(M$));e( r( :"M ";( X1U1( M(10T(X,4))10:M$(M)( M0M$"+"(M$,(M$)1)( (M)99.9M$" ***"( M$;SP$(6(M$));( ( :(