!oh,pf1a,pf1bu,pf1cu,pf2,pf3,pf4,pf5u,pf1al,pf1bl,pf1cl,pf2l,pf3l,pf4l,pf5l

!data -20.899314,5.8287819,1.4617848,1.0141403,1.5114646,-14.377851,10.234908,-30.672053,6.891385,2.6312859,7.2064168,19.629863,7.1909805,10.234908,-30.672053,0



!OH,PF1AU,PF1BU,PF1CU,PF2U,PF3U,PF4,PF5,PF1AL,PF1BL,PF1CL,PF2L,PF3L,PF4,PF5

data -24,-2.9578,0.815966667,1.488955556,-1.9827,-11.0755,3.8868,-25.6919,-2.9578,0.815966667,1.488955556,-1.9827,-11.0755,3.8868,-25.6919

data 0,-2.5595,0.955122222,1.7869,3.6933,-9.1063,3.8953,-24.7705,-2.5595,0.955122222,1.7869,3.6933,-9.1063,3.8953,-24.7705

data 24,-2.1536,1.092911111,2.082488889,9.3747,-7.1338,3.9045,-23.8537,-2.1536,1.092911111,2.082488889,9.3748,-7.1338,3.9045,-23.8537

data -24,-0.4262,0.606233333,0.932288889,-2.6592,-10.6756,2.4569,-24.9496,-0.4262,0.606233333,0.9323,-2.6592,-10.6757,2.4569,-24.9496

data 0,-0.1303,0.7882,1.297455556,2.7355,-8.6682,2.4365,-24.0183,-0.1303,0.7882,1.297455556,2.7355,-8.6682,2.4365,-24.0183

data 24,0.1918,0.964277778,1.653288889,8.1553,-6.6299,2.4222,-23.1111,0.1918,0.964277778,1.653288889,8.1553,-6.6299,2.4222,-23.1111

data -24,1.4846,0.266033333,0.306011111,-1.2822,-10.6214,0.8897,-24.1115,1.4846,0.266033333,0.306011111,-1.2822,-10.6214,0.8897,-24.1115

data 0,1.7135,0.488122222,0.713244444,3.8562,-8.5554,0.8334,-23.1711,1.7135,0.488122222,0.713244444,3.8562,-8.5554,0.8334,-23.1711

data 24,1.9414,0.708488889,1.1186,9.016,-6.4969,0.7627,-22.2167,1.9414,0.708488889,1.1186,9.016,-6.4969,0.7627,-22.2167

data -24,2.7066,-0.238422222,-0.215322222,1.9602,-10.984,-1.0426,-23.001,2.7066,-0.238422222,-0.215322222,1.9602,-10.984,-1.0426,-23.001

data 0,2.9986,-0.060688889,0.145855556,7.5287,-8.784,-1.1952,-22.1203,2.9986,-0.060688889,0.145855556,7.5287,-8.784,-1.1952,-22.1203

data 24,3.1435,0.230222222,0.598177778,12.2616,-6.6665,-1.2794,-21.1586,3.1435,0.230222222,0.598177778,12.2616,-6.6665,-1.2794,-21.1586

data -24,3.0926,-0.587333333,-0.396277778,4.2457,-11.2351,-2.2452,-22.383,3.0926,-0.587333333,-0.396277778,4.2457,-11.2351,-2.2452,-22.383

data 0,3.2548,-0.296111111,0.043222222,9.0681,-9.0524,-2.3824,-21.4289,3.2548,-0.296111111,0.043222222,9.0681,-9.0524,-2.3824,-21.4289

data 24,3.4068,-0.003066667,0.486066667,13.8922,-6.9524,-2.5265,-20.3977,3.4068,-0.003066667,0.486066667,13.8922,-6.9524,-2.5265,-20.3977

data -24,-2.9578,0.815966667,1.488955556,-1.9827,-11.0755,3.8868,-25.6919,-2.9578,0.815966667,1.488955556,-1.9827,-11.0755,3.8868,-25.6919

data 0,-2.5595,0.955122222,1.7869,3.6933,-9.1063,3.8953,-24.7705,-2.5595,0.955122222,1.7869,3.6933,-9.1063,3.8953,-24.7705

data 24,-2.1536,1.092911111,2.082488889,9.3747,-7.1338,3.9045,-23.8537,-2.1536,1.092911111,2.082488889,9.3748,-7.1338,3.9045,-23.8537

data -24,3.9711,-0.625522222,-0.746633333,5.497,-6.1077,-14.1922,-17.8765,3.9711,-0.625522222,-0.746633333,5.497,-6.1077,-14.1922,-17.8765

data 0,4.2174,-0.407344444,-0.348533333,10.7375,-4.0736,-14.2387,-16.9027,4.2174,-0.407344444,-0.348533333,10.7375,-4.0736,-14.2387,-16.9027

data 24,4.4448,-0.187444444,0.051677778,15.9704,-2.0329,-14.2755,-15.9578,4.4448,-0.187444444,0.051677778,15.9704,-2.0329,-14.2755,-15.9578

data -24,3.5434,-0.467811111,-0.547388889,4.7142,-8.0795,-7.0031,-21.2214,3.5434,-0.467811111,-0.547388889,4.7142,-8.0795,-7.0031,-21.2214

data 0,3.7023,-0.227533333,-0.122044444,9.8235,-6.1139,-6.936,-20.3298,3.7023,-0.227533333,-0.122044444,9.8235,-6.1139,-6.936,-20.3298

data 24,3.8799,0.008277778,0.297766667,14.963,-4.1197,-6.9155,-19.4123,3.8799,0.008277778,0.297766667,14.963,-4.1197,-6.9155,-19.4123

data -24,2.8056,-0.128611111,-0.138255556,2.3288,-9.439,-1.577,-23.7238,2.8056,-0.128611111,-0.138255556,2.3288,-9.439,-1.577,-23.7238

data 0,3.0445,0.080466667,0.248188889,7.6306,-7.3864,-1.6232,-22.7966,3.0445,0.080466667,0.248188889,7.6306,-7.3864,-1.6232,-22.7966

data 24,3.2784,0.294855556,0.6408,12.8905,-5.3314,-1.6674,-21.8706,3.2784,0.294855556,0.6408,12.8905,-5.3314,-1.6674,-21.8706

data -24,1.9496,0.353877778,0.418433333,-1.9393,-9.957,3.1461,-25.9573,1.9496,0.353877778,0.418433333,-1.9393,-9.957,3.1461,-25.9573

data 0,2.1871,0.568033333,0.810333333,3.3347,-7.9272,3.0963,-25.0001,2.1871,0.568033333,0.810333333,3.3347,-7.9272,3.0963,-25.0001

data 24,2.4283,0.776377778,1.194944444,8.6424,-5.8647,3.0824,-24.1182,2.4283,0.776377778,1.194944444,8.6424,-5.8647,3.0824,-24.1182

data -24,1.0789,0.8943,1.029,-7.13,-9.4452,4.9402,-26.8315,1.0789,0.8943,1.029,-7.13,-9.4452,4.9402,-26.8315

data 0,1.3237,1.104377778,1.4148,-1.811,-7.4056,4.9395,-25.9338,1.3237,1.104377778,1.4148,-1.811,-7.4056,4.9395,-25.9338

data 24,1.5639,1.316044444,1.8027,3.4991,-5.4081,4.8935,-24.9568,1.5639,1.316044444,1.8027,3.4991,-5.4081,4.8935,-24.9568

data -24,7.4542,0,0,-7.5001,0.6649,0,-28.2347,2.6744,0,0,3.4365,-6.4573,0,-28.2347

data 0,9.1551,0,0,-3.6758,3.4,0,-27.3783,3.7113,0,0,10.2989,-4.5532,0,-27.3783

data 24,10.7397,0,0,0.4085,5.925,0,-26.5483,4.7162,0,0,17.1555,-2.6405,0,-26.5483

data -24,6.931,0,0,-6.1222,-1.411,0,-27.6834,3.3913,0,0,1.5446,-6.6805,0,-27.6834

data 0,8.7066,0,0,-2.2691,1.4114,0,-26.877,4.4573,0,0,8.6453,-4.7566,0,-26.877

data 24,10.3488,0,0,1.7942,4.0573,0,-26.1075,5.4812,0,0,15.7353,-2.822,0,-26.1075

data -24,6.2143,0,0,-5.09,-3.4967,0,-27.0251,3.4492,0,0,-0.0699,-6.9773,0,-27.0251

data 0,8.1853,0,0,-1.3437,-0.3596,0,-26.3457,4.5116,0,0,7.2776,-4.8299,0,-26.3457

data 24,9.821,0,0,2.9455,2.1068,0,-25.5428,5.4799,0,0,14.8922,-3.1559,0,-25.5428

data -24,5.2608,0,0,-4.3717,-5.4638,0,-26.2869,3.1034,0,0,-1.3498,-7.4285,0,-26.2869

data 0,7.2445,0,0,-0.2745,-2.5936,0,-25.5771,4.0499,0,0,6.6852,-5.5581,0,-25.5771

data 24,9.0296,0,0,3.9729,0.1666,0,-24.9228,4.9235,0,0,14.6952,-3.661,0,-24.9228

data -24,4.4422,0,0,-3.9408,-6.6066,0,-25.7886,2.625,0,0,-2.5179,-7.2982,0,-25.7886

data 0,6.5521,0,0,0.2023,-3.6425,0,-25.1756,3.4322,0,0,6.13,-5.3836,0,-25.1756

data 24,8.4784,0,0,4.4583,-0.9805,0,-24.4773,4.2168,0,0,14.8827,-3.7562,0,-24.4773

data -24,7.783,0,0,-12.1254,7.3491,-10,-24.4579,4.2187,0,0,0.6896,-1.8143,-10,-24.4579

data 0,9.5008,0,0,-8.4188,10.1282,-10,-23.5911,5.2493,0,0,7.5533,0.079,-10,-23.5911

data 24,11.0591,0,0,-4.2997,12.5884,-10,-22.7769,6.2574,0,0,14.3625,2.0467,-10,-22.7769

data -24,7.1663,0,0,-10.5994,4.8913,-10,-23.819,4.4769,0,0,-0.9398,-2.1063,-10,-23.819

data 0,8.9595,0,0,-6.8525,7.7407,-10,-22.9989,5.5392,0,0,6.1698,-0.1932,-10,-22.9989

data 24,10.6714,0,0,-2.9894,10.489,-10,-22.2105,6.5799,0,0,13.2512,1.7549,-10,-22.2105

data -24,6.3859,0,0,-9.6209,2.5034,-10,-23.0809,4.1955,0,0,-2.4105,-2.4969,-10,-23.0809

data 0,8.2905,0,0,-5.7793,5.4333,-10,-22.3208,5.2431,0,0,5.0652,-0.5496,-10,-22.3208

data 24,10.0423,0,0,-1.808,8.2309,-10,-21.5996,6.2394,0,0,12.5278,1.4007,-10,-21.5996

data -24,5.4834,0,0,-9.2448,0.3608,-10,-22.2319,3.6193,0,0,-3.6526,-3.034,-10,-22.2319

data 0,7.4799,0,0,-5.1946,3.2926,-10,-21.5351,4.577,0,0,4.3874,-1.1294,-10,-21.5351

data 24,9.2596,0,0,-1.0472,6.1401,-10,-20.9036,5.4546,0,0,12.3817,0.8253,-10,-20.9036

data -24,4.3885,0,0,-9.1048,-1.4973,-10,-21.3512,2.9384,0,0,-4.5418,-3.71,-10,-21.3512

data 0,6.3846,0,0,-4.7635,1.2993,-10,-20.6906,3.7329,0,0,4.1896,-1.9727,-10,-20.6906

data 24,8.4518,0,0,-0.64,4.1141,-10,-19.9615,4.5631,0,0,12.9624,-0.309,-10,-19.9615

data -24,2.8205,0,0,0.3295,-14.2302,0,-20.8852,2.8205,0,0,0.3295,-14.2302,0,-20.8852

data 0,3.6065,0,0,9.2957,-12.9902,0,-19.9531,3.6065,0,0,9.2957,-12.9902,0,-19.9531

data 24,4.3933,0,0,18.2522,-11.7318,0,-19.0456,4.3933,0,0,18.2522,-11.7318,0,-19.0456

data -24,2.7196,0,0,-0.1215,-13.1304,0,-21.6232,2.7196,0,0,-0.1215,-13.1304,0,-21.6232

data 0,3.5286,0,0,8.8016,-11.843,0,-20.7208,3.5286,0,0,8.8016,-11.843,0,-20.7208

data 24,4.3077,0,0,17.7464,-10.4965,0,-19.8455,4.3077,0,0,17.7464,-10.4965,0,-19.8455

data -24,2.6245,0,0,-1.8056,-9.3784,0,-24.1431,2.6245,0,0,-1.8056,-9.3784,0,-24.1431

data 0,3.4504,0,0,6.9854,-7.8184,0,-23.3665,3.4504,0,0,6.9854,-7.8184,0,-23.3665

data 24,4.2843,0,0,15.7831,-6.2581,0,-22.6014,4.2843,0,0,15.7831,-6.2581,0,-22.6014

data -24,2.7253,0,0,-3.2757,-6.2843,0,-26.194,2.7253,0,0,-3.2757,-6.2843,0,-26.194

data 0,3.5991,0,0,5.3686,-4.4886,0,-25.5205,3.5991,0,0,5.3686,-4.4886,0,-25.5205

data 24,4.4643,0,0,14.0105,-2.7226,0,-24.857,4.4643,0,0,14.0105,-2.7226,0,-24.857

data -24,2.915,0,0,-4.7723,-3.3474,0,-27.9678,2.915,0,0,-4.7723,-3.3474,0,-27.9678

data 0,3.8132,0,0,3.7694,-1.4357,0,-27.3679,3.8132,0,0,3.7694,-1.4357,0,-27.3679

data 24,4.685,0,0,12.3592,0.4301,0,-26.7632,4.685,0,0,12.3592,0.4301,0,-26.7632

data -24,3.2129,0,0,-6.7113,0.2864,0,-30.2732,3.2129,0,0,-6.7113,0.2864,0,-30.2732

data 0,4.1343,0,0,1.7185,2.3456,0,-29.7707,4.1343,0,0,1.7185,2.3456,0,-29.7707

data 24,5.0147,0,0,10.1204,4.3313,0,-29.2355,5.0147,0,0,10.1204,4.3313,0,-29.2355

data -24,6.018,-0.302044444,-0.384088889,-2.6329,-10.9359,0.4938,-23.4115,6.018,-0.302044444,-0.384088889,-2.6329,-10.9359,0.4938,-23.4115

data 0,6.2392,-0.088777778,-0.029733333,2.7974,-8.8228,0.2373,-22.3694,6.2392,-0.088777778,-0.029733333,2.7974,-8.8228,0.2373,-22.3694

data 24,6.4512,0.123144444,0.3232,8.2352,-6.6745,-0.0003,-21.3805,6.4512,0.123144444,0.3232,8.2352,-6.6745,-0.0003,-21.3805

data -24,4.6065,-0.255666667,-0.268833333,-0.3669,-11.3705,1.2626,-23.8481,4.6065,-0.255666667,-0.268833333,-0.3669,-11.3705,1.2626,-23.8481

data 0,4.785,-0.0107,0.123044444,4.9737,-9.3896,1.1622,-22.8413,4.785,-0.0107,0.123044444,4.9737,-9.3897,1.1622,-22.8413

data 24,4.9662,0.207555556,0.488844444,10.4313,-7.2332,1.0112,-21.9347,4.9662,0.207555556,0.488844444,10.4313,-7.2332,1.0112,-21.9347

data -24,3.6404,-0.155177778,-0.148566667,0.1775,-11.5091,1.8392,-24.1548,3.6404,-0.155177778,-0.148566667,0.1775,-11.5091,1.8392,-24.1548

data 0,3.8093,0.092422222,0.250911111,5.4286,-9.4162,1.7699,-23.2519,3.8093,0.092422222,0.250922222,5.4286,-9.4162,1.7699,-23.2519

data 24,3.9882,0.333811111,0.6449,10.7275,-7.2878,1.712,-22.3831,3.9882,0.333811111,0.6449,10.7275,-7.2878,1.712,-22.3831

data -24,2.8761,-0.025755556,-0.056377778,-0.4941,-11.1898,1.9087,-24.2664,2.8761,-0.025755556,-0.056377778,-0.4941,-11.1898,1.9087,-24.2664

data 0,3.0543,0.239022222,0.365488889,4.5441,-9.0202,1.8419,-23.3933,3.0543,0.239022222,0.365488889,4.5441,-9.0202,1.8419,-23.3933

data 24,3.2264,0.505977778,0.790288889,9.5689,-6.9233,1.7596,-22.4437,3.2264,0.505977778,0.790288889,9.5689,-6.9233,1.7596,-22.4437

data -24,2.2738,0.0828,-0.033022222,-1.456,-10.612,1.6033,-24.2497,2.2738,0.0828,-0.033011111,-1.456,-10.612,1.6033,-24.2497

data 0,2.4632,0.357611111,0.404922222,3.3607,-8.4436,1.4621,-23.2843,2.4632,0.357611111,0.404922222,3.3607,-8.4436,1.4621,-23.2843

data 24,2.6563,0.628977778,0.840733333,8.1972,-6.27,1.3323,-22.3332,2.6563,0.628977778,0.840733333,8.1972,-6.27,1.3323,-22.3332



let infile$="termcur.txt"

let outfile$="PFcur.txt"

let PFSet$="Ron's"

let PFSet$="Design Point"



when error in

!OPEN #1: name infile$, create newold

use

end when

when error in

unsave outfile$

use

end when

OPEN #2: name outfile$, create newold





dim pfturn(33),pfcur(33,10)

dim d$(20),dd(20)

for j=11 to 20

let k=k+1

read oh,pf1au,pf1bu,pf1cu,pf2u,pf3u,pf4u,pf5u,pf1al,pf1bl,pf1cl,pf2l,pf3l,pf4l,pf5l

let ip=0.0

if PFSET$="Design Point" then

            !OH

let OHTurns=245+242+240+236

let PFturn(1)=245

let PFturn(2)=242

let PFturn(3)=240

let PFturn(4)=236

let pfcur(1,k)=oh*pfturn(1)

let pfcur(2,k)=oh*pfturn(2)

let pfcur(3,k)=oh*pfturn(3)

let pfcur(4,k)=oh*pfturn(4)

            !PF1au

let PF1aUTurns=120

let pfturn(5)=120

let pfcur(5,k)=PF1aU*pfturn(5)

            !PF1bu

let pf1buturns=180

let pfturn(6)=180

let pfcur(6,k)=pf1bu*pfturn(6)



let pf1cuTurns=162

let pfturn(7)=162

let pfcur(7,k)=pf1cu*pfturn(7)



let pf2uturns=28

let pfturn(8)=14

let pfturn(9)=14

let pfcur(8,k)=pf2u*pfturn(8)

let pfcur(9,k)=pf2u*pfturn(9)



let pf3uturns=30

let pfturn(10)=7

let pfturn(11)=8

let pfturn(12)=7

let pfturn(13)=8

let pfcur(10,k)=pf3u*pfturn(10)

let pfcur(11,k)=pf3u*pfturn(11)

let pfcur(12,k)=pf3u*pfturn(12)

let pfcur(13,k)=pf3u*pfturn(13)

let pf4uturns=17

let pfturn(14)=4

let pfturn(15)=4

let pfturn(16)=9

let pfcur(14,k)=pf4u*pfturn(14)

let pfcur(15,k)=pf4u*pfturn(15)

let pfcur(16,k)=pf4u*pfturn(16)



let pf5uturns=24

let pfturn(20)=12

let pfturn(21)=12

let pfcur(20,k)=pf5u*pfturn(20)

let pfcur(21,k)=pf5u*pfturn(21)



let pf5lturns=24

let pfturn(22)=12

let pfturn(23)=12

let pfcur(22,k)=pf5l*pfturn(22)

let pfcur(23,k)=pf5l*pfturn(23)



let pf4lturns=17

let pfturn(17)=4

let pfturn(18)=5

let pfturn(19)=8

let pfcur(17,k)=pf4l*pfturn(17)

let pfcur(18,k)=pf4l*pfturn(18)

let pfcur(19,k)=pf4l*pfturn(19)



let pf3lturns=30

let pfturn(24)=8

let pfturn(25)=7

let pfturn(26)=7

let pfturn(27)=8

let pfcur(24,k)=pf3l*pfturn(24)

let pfcur(25,k)=pf3l*pfturn(25)

let pfcur(26,k)=pf3l*pfturn(26)

let pfcur(27,k)=pf3l*pfturn(27)



let pf2lturns=28

let pfturn(28)=14

let pfturn(29)=14

let pfcur(28,k)=pf2l*pfturn(28)

let pfcur(29,k)=pf2l*pfturn(29)



let pf1clturns=162

let pfturn(30)=162

let pfcur(30,k)=pf1cl*pfturn(30)



let pf1blturns=180

let pfturn(31)=180

let pfcur(31,k)=pf1bl*pfturn(31)



let pf1alturns=120

let pfturn(32)=120

let pfcur(32,k)=pf1cl*pfturn(32)



let Plasmaturns=1

let pfturn(33)=1

let pfcur(33,k)=ip*pfturn(33)

end if



if PFSET$="Ron's" then

            !OH

let OHTurns=245+242+240+236

let PFturn(1)=245

let PFturn(2)=242

let PFturn(3)=240

let PFturn(4)=236

let pfcur(1,k)=oh*pfturn(1)

let pfcur(2,k)=oh*pfturn(2)

let pfcur(3,k)=oh*pfturn(3)

let pfcur(4,k)=oh*pfturn(4)

            !PF1au

let PF1aUTurns=28

let pfturn(5)=28

let pfcur(5,k)=PF1aU*pfturn(5)

            !PF1bu

let pf1buturns=10

let pfturn(6)=10

let pfcur(6,k)=pf1bu*pfturn(6)



let pf1cuTurns=10

let pfturn(7)=10

let pfcur(7,k)=pf1cu*pfturn(7)



let pf2uturns=28

let pfturn(8)=14

let pfturn(9)=14

let pfcur(8,k)=pf2u*pfturn(8)

let pfcur(9,k)=pf2u*pfturn(9)



let pf3uturns=30

let pfturn(10)=7

let pfturn(11)=8

let pfturn(12)=7

let pfturn(13)=8

let pfcur(10,k)=pf3u*pfturn(10)

let pfcur(11,k)=pf3u*pfturn(11)

let pfcur(12,k)=pf3u*pfturn(12)

let pfcur(13,k)=pf3u*pfturn(13)

let pf4uturns=17

let pfturn(14)=4

let pfturn(15)=4

let pfturn(16)=9

let pfcur(14,k)=pf4u*pfturn(14)

let pfcur(15,k)=pf4u*pfturn(15)

let pfcur(16,k)=pf4u*pfturn(16)



let pf5uturns=24

let pfturn(20)=12

let pfturn(21)=12

let pfcur(20,k)=pf5u*pfturn(20)

let pfcur(21,k)=pf5u*pfturn(21)



let pf5lturns=24

let pfturn(22)=12

let pfturn(23)=12

let pfcur(22,k)=pf5l*pfturn(22)

let pfcur(23,k)=pf5l*pfturn(23)



let pf4lturns=17

let pfturn(17)=4

let pfturn(18)=5

let pfturn(19)=8

let pfcur(17,k)=pf4l*pfturn(17)

let pfcur(18,k)=pf4l*pfturn(18)

let pfcur(19,k)=pf4l*pfturn(19)



let pf3lturns=30

let pfturn(24)=8

let pfturn(25)=7

let pfturn(26)=7

let pfturn(27)=8

let pfcur(24,k)=pf3l*pfturn(24)

let pfcur(25,k)=pf3l*pfturn(25)

let pfcur(26,k)=pf3l*pfturn(26)

let pfcur(27,k)=pf3l*pfturn(27)



let pf2lturns=28

let pfturn(28)=14

let pfturn(29)=14

let pfcur(28,k)=pf2l*pfturn(28)

let pfcur(29,k)=pf2l*pfturn(29)



let pf1clturns=10

let pfturn(30)=10

let pfcur(30,k)=pf1cl*pfturn(30)



let pf1blturns=10

let pfturn(31)=10

let pfcur(31,k)=pf1bl*pfturn(31)



let pf1alturns=28

let pfturn(32)=28

let pfcur(32,k)=pf1cl*pfturn(32)



let Plasmaturns=1

let pfturn(33)=1

let pfcur(33,k)=ip*pfturn(33)

end if

next j



print#2: "irdt"

print#2: "2"

print#2: "pfcu"

print#2: "33,10,1,1.0"

for i=1 to 33

print#2: i;",";pfcur(i,1)/1e3;",";pfcur(i,2)/1e3;",";pfcur(i,3)/1e3;",";pfcur(i,4)/1e3;",";pfcur(i,5)/1e3;",";pfcur(i,6)/1e3;",";pfcur(i,7)/1e3;",";pfcur(i,8)/1e3;",";pfcur(i,9)/1e3;",";pfcur(i,10)/1e32

next i

!1,0,5.88,0,0,0,0,0

!2,0,5.808,0,0,0,0,0

!3,0,5.76,0,0,0,0,0

!4,0,5.664,0,0,0,0,0

!5,0,0,0.200823308,0.2014887,0.202552448,0.205752344,0.208660312

!6,0,0,-0.0564957,-0.0476301,-0.0362847,-0.02330574,-0.00946462

!7,0,0,-0.04921995,-0.04013918,-0.02935855,-0.01755,-0.00516827

!8,0,0,0.125551272,0.12059446,0.110337836,0.095230772,0.077619892

!9,0,0,0.125551272,0.12059446,0.110337836,0.095230772,0.077619892

!10,0,0,-0.029615425,-0.039940985,-0.046347357,-0.048155422,-0.0473242

!11,0,0,-0.0338462,-0.04564684,-0.052968408,-0.055034768,-0.0540848

!12,0,0,-0.029615425,-0.039940985,-0.046347357,-0.048155422,-0.0473242

!13,0,0,-0.0338462,-0.04564684,-0.052968408,-0.055034768,-0.0540848

!14,0,0,-0.05730444,-0.028394432,-0.004934352,0.01172252,0.022145796

!15,0,0,-0.07163055,-0.03549304,-0.00616794,0.01465315,0.027682245

!16,0,0,-0.11460888,-0.056788864,-0.009868704,0.02344504,0.044291592

!17,0,0,-0.05730444,-0.028394432,-0.004934352,0.01172252,0.022145796

!18,0,0,-0.07163055,-0.03549304,-0.00616794,0.01465315,0.027682245

!19,0,0,-0.11460888,-0.056788864,-0.009868704,0.02344504,0.044291592

!20,0,0,-0.161950344,-0.208335624,-0.246687492,-0.276989664,-0.298078476

!21,0,0,-0.161950344,-0.208335624,-0.246687492,-0.276989664,-0.298078476

!22,0,0,-0.161950344,-0.208335624,-0.246687492,-0.276989664,-0.298078476

!23,0,0,-0.161950344,-0.208335624,-0.246687492,-0.276989664,-0.298078476

!24,0,0,-0.029615425,-0.039940985,-0.046347357,-0.048155422,-0.0473242

!25,0,0,-0.0338462,-0.04564684,-0.052968408,-0.055034768,-0.0540848

!26,0,0,-0.029615425,-0.039940985,-0.046347357,-0.048155422,-0.0473242

!27,0,0,-0.0338462,-0.01141171,-0.052968408,-0.055034768,-0.0540848

!28,0,0,0.125551244,0.120594446,0.110337808,0.095230744,0.077619864

!29,0,0,0.125551244,0.120594446,0.110337808,0.095230744,0.077619864

!30,0,0,-0.04921993,-0.04013915,-0.02935852,-0.01754997,-0.00516822

!31,0,0,-0.05649566,-0.04763005,-0.03628465,-0.0233057,-0.00946456

!32,0,0,0.200823308,0.2014887,0.202552448,0.205752344,0.208660312

!33,0,0,2,2,2,2,2





!line input #1: line$

!print line$

!CALL comint(" ",line$,d$(),dd())

!if dd(1)>0 then

!print dd(1);",";dd(2);",";dd(3);",";dd(4)

!end if



!let line$=ucase$(trim$(line$))

!let b$=line$

!  DO    ! loop which splits up input by $

!   LET pcs=pos(b$,"$")

!   IF pcs=0 then LET a$=b$

!   IF pcs>0 then LET a$=b$[1:pcs-1]

!   IF pcs>0 then LET b$=b$[pcs+1:80]

!   CALL comint(",",a$,d$(),dd())

!

!

!print line$

!let l=len(a$)

!if d$(1)="N"  then 

!print "n"

!print a$[3:l]

!print#1: "n"

!print#1: a$[3:l]

!print#1: dd(2);",";dd(3);",";dd(4);",";dd(5)

!end if

!if d$(1)="F"then 

!F, 1,FX, -.28809E+07 $F, 1,FY, .18805E-01 $F, 1,FZ, .25462E+06

!print#1: "fa  "

!if d$(3)="FX" then print#1: dd(2);",";dd(4);",0,0"

!if d$(3)="FY" then print#1: dd(2);",0,";dd(4);",0"

!if d$(3)="FZ" then print#1: dd(2);",0,0,";dd(4)

!end if

!if d$(1)="E"then 

!print#1: "e"

!print#1: a$[3:l]&",0,0,0,0,0,0"

!print#1: dd(2);",";dd(3);",";dd(4);",";dd(5);",";dd(6);",";dd(7);",";dd(8);",";dd(9)

!print a$[3:l]&",0,0,0,0,0,0"

!end if

!

!if d$(1)="MAT" then 

!print#1: "mat"

!print#1: dd(2)

!end if

!

!if d$(1)="REAL" then 

!print#1: "real"

!print#1: dd(2)

!end if

!

!if d$(1)="TYPE" then 

!print#1: "type"

!print#1: dd(2)

!end if

!if pcs=0 then exit do



!use

print#2:"exit"

close #1

close #2

!end when

END 



 SUB comint(del$,a$,d$(),dd())

  FOR q=1 TO 12

   LET D$(Q)=""

   LET dd(q)=0

  NEXT Q

  LET a$=ucase$(a$)

  IF del$=" " then

   DO

   LET lbs=len(a$)

   LET pob=pos(a$,"  ")

   IF pob>0 then LET a$=a$[1:pob]&a$[pob+2:lbs]

   LOOP while pob>0

   LET lbs=len(a$)

   IF a$[1:1]=" " then LET a$=a$[2:lbs]

  END IF

  LET i=0

  DO

   LET i=i+1

   IF pos(a$,del$)=0 then EXIT DO

   LET pc=pos(a$,del$)

   LET d$(i)=a$[1:pc-1]

   LET a$=a$[pc+1:100)

  LOOP

  LET d$(i)=a$

  Let t=i

  for i=1 to t

  let d$(i)=trim$(d$(i))

when error in

  let dd(i)=val(d$(i))

use

  let dd(i)=0

end when

  next i

  ! End of data parsing

 END SUB