7000 OPEN "I",#1,"CHRvsI,D/DAT" 7001 u = 1.8E-5 7002 U=5*12*.0254 7003 R=.109*.5*.0254+2E-3 7004 E=1.6022E-19 7005 RA=8*.0254 7006 VO=45E3 7008 PI=3.14159 7010 FOR N=1 TO 100 7020 INPUT #1,A 7030 V(I,D)=-U-A*E*VO/3/PI/u/R/D/LOG(RA/RP) IVEN I'd110:Z$ Z1$(Z$,Z,1):250:Z(+(Z1$)253(>Z1$"":250:(VZ1$">"Z1$(10)(hZ1$""270( THIS IS THE ONLY PRINT STMT(#1,Z1$:(* SEND SYNC BYTE("Z1$(254):200('* SEND EOF BYTE(,Z1$(255):200()****110,4Z$Z$">"Z1$,6 200,(8 NN,9:I9:D1E8I,B; I;,M< 110,X>Z$Z1$,?I152.41.6022E19M33.141591.8E5(.109.5.02542E3)D.04095,@ I;,B 110,`Z$Z$">"Z1$,a200,jP0:M0,lIIII1,t II10 1042-  *************************)= USER PROGRAM LOGIC STARTS HERE)`*****************************)z:"GENERATING CHART")"O",#1,"CHGvsI,D/DEF": DEFINE THE BASICS: ) "I",#2,"CHLvsI,D/DAT"*+Z$"6 300: SEND EOF BYTE- #2-( #1-.-5:-<:-Z:EXTRAPOLATION ALGORITHM-z:BURDEN, FAIRES & REYNOLDS-:(C) 1983 BY J. E. DRUMMOND-:-:INITIALIZE:-NK(1)2:NK(2)3:NK(3)4:NK(4)6:NK(5)8:NK(6)12:NK(7)16:NK(8)18. &% :*** CHLvsI,D/BAS ***10/1/83 &1 2000&:THIS PROGRAM CREATES A POINT CHART SHOWING SPEED OF A PARTICLE ENTERING THE CORONA PLASMA VERSUS PARTICLE DIAMETER AND CORONA CURRENT &4 1000&6:'<:OUTPUT ROUTINE FSPEED vs DIAMETER & CURRENT>479>800>": 200*Z$"SPEED, CM/S>DIAMETER, MICRO-METERS>81": 200: GENERATE 81 POINT CHART *II1:M0:P0* NN0 10* #2,B(NN)* B(NN);* MB(NN) MB(NN):.R082.54.V45E3.,E08.854E12.CRC.109.52.54.2.T E1.6022E19.cPI3.14159.o*ER1E5.w4P8.>HM.1.HHL1E4.RHHM/\ N(N)(.40894N.5(.40894N1.429E3N2RD2(.40894N1.429E3N2RD2))117.03D2R)(1. OR A NUMBER GIVEN I',d110:Z$Z1$:200'Oi*EDIT I INTO THE STRING, Z1$'ZnZ1$""'zsI1(I10):I2II110:II1'xZ1$(I248)Z1$'I0115''* OUTPUT ROUTINE FOR TEXT'* GIVEN:Z$ (">" INDICATES DOWN-ARROW'ȀZ1(Z$)(+ NN+ NN0 10+6 B(NN)0 PP1: 1080+T B(NN)M PP1: 1080+vINNP1: + I;+D1E8I+$ 110+.Z$Z1$+0I152.41.6022E19B(NN)33.141591.8E5(.109.5.02542E3)D.04095+1 I;,2 u &5 :FOR N=33 TO 127:PRINT#-2,CHR$(N);:NEXT N:STOP&@:STOP&: "DATAPLOT" &(#2,(18):#2,"A":#2,(18)&2#2,"Q0"&< "CHART TITLE";CT$&FCT(CT$)&PCT(37015CT)270'ZCM$"M"(CT)",0"'\#2,CM$')]#2,"S2"':^#2,"P"CT$'M`#2,"M70,-21"'hd "ABSCISSA TITLE";AB$'wnAB(AB$)'xAB(37010AB)2'AM$"M"(AB)",-42"'#2,"S1"'#2,"X0,-123,8"'#2,"I"'#2,AM$'#2,"P"AB$(ȇ#2,"H"(҇#2,"X1,123,3"()܇#2,"M-15,-21"(9#2,"P0.0"(M#2,"M108,-21"(]#2,"P0.5"(q#2,"M231,-21"(#2,"P1.0"(#2,"M362,-21"("#2,"P1.5"(, Y0 4 .5(6#2,"M-45,"(246Y7)(@#2,"P";(J#2, "#.#";Y(T Y) ^ Y(37))-h "ENTER Y VALUES FOR EACH X")<r X0 37)K| "X =";X,)\ "Y =";Y(X))d X)#2,"M0,"(10Y(37))) X36 0 1)X$(37010X))Y$(10Y(X)))#2,"D"X$","Y$)‹ X)̑)և#2,"P 0"*#2,"M309,-56"*#2,"P 5"*(#2,"M399,-56"*8#2,"P 10"*H#2,"R7,0"*b#2,"J0,5,0,-10,0,5"*v#2,"X1,-90,4"*,"R180,0"*0#2,"I"*:#2,"H"*D#2,"X0,-100,8"*N#2,"R0,-10"*X#2,"Px"*b#2,"M0,0"*l#2,"M-35,5"+v#2,"P0"+#2,"M-35,-90"+*#2,"P10"+?#2,"M-35,-190"+N#2,"P20"+c#2,"M-35,-290"+r#2,"P30"+#2,"M-35,-390"+Ƈ#2,"P40+Ї#2,"M-35,-490"+ڇ#2,"P50"+#2,"M-35,-590"+#2,"P60"+#2,"M-35,-690",#2,"P70", #2,"M-35,-790",%#2,"P80",1 FT.005,V*KM2:Q650FTKMKM:DK.1272KM,f4#2,"M0,0",q> 990,H N0 800,RE0,\ R0 10,fEEA(R)(.1N(2RDK))B(R)(.1N(2RDK)),p R,z#2,"D"((18E))","(N)- N- - AM(500)-2"I",#1,"PLASMAMP.DAT"-Q N25 500:#1,AM(N): N-Z #1-`-fʑ-: HETEROGENEOUS MATHIEU EQ. "MATHIEU": -C(0)1-D(0)1-TP(.5QPI)2-X1TP(1.020678221TP).NU(1.570 8(X(1XX)))PI.CR1.*NUCRNU.>$T2.25Q(NU1).g. K0 40 2:W(K)(NUK)(NUK)Q.8V(K)(KNU)(KNU)Q: K.BM0.L 1350.VERG(0)H(0)1.` NU;ER,.j (ER).001 CR1.1ER : 1150.t 1050.~ M0 20 2 /  1350/; M0 D(M)H(M2)D(M2):C(M)G(M)C(M2)/C M/R R0 10/]A(R)0/hB(R)0/yĀ S20 20/΅ (SR)20 1290/؅ SR0 C1D(RS) : C1C(SR)/ (SR)20 1290/ SR0 C2D(SR) : C2C(SR)0A(R)A (R)C1C2(NURSDK)04B(R)B(R)C1C2(NUSRDK)0< S0[FC.5NU(1Q(1NUNU))20lA(R)A(R)FC0}(B(R)B(R)FC02 R0<1FG(M)1(V(M)1(V(M2)1(V(M4)1(V(M6)1(V(M8)1(V(M10)1(V(M12)1(V(M14)1(V(M16)1(V(M18)1V (M20)))))))))))1PH(M)1(W(M2)1(W(M4)1(W(M6)1(W(M8)1(W(M10)1(W(M12)1(W(M14)1(W(M16)1(W(M18)1(W(M20)))))))))))1Z1(V(M)1(V(M2)1(V(M4)1(V(M6)1(V(M8)1(V(M10)1(V(M12)1(V(M14)1(V(M16)1(V(M18)1V CE ONLY PREVIOUS ROW OF TABLE IS SAVED.2- n:25 tJK2R ~VAY(1):SAVE Y(K-1,K-1)2Y :2j J2 24702q :2 Y(J1)Y(J)(Y(J)Y(J1))(Q(K1,J1)1):EXTRAPOLATION TO COMPUTE Y(J-1)=Y(K,K-J+2)3 :Y(J-1)=(H(J-1)^2*Y(J)-H(J)^2*Y(J-1))/(H(J-1)^2-H(K)^2)3 JJ13 :3$ 24403Y (Y(1)VA)ER FL1:Y(1) ACCEPTED AS NEW N3` :3j KK13v 22903} :3 KK13 :3 T FL1 29403 V:3 ^H.5H:NEW VALUES FOR N REJECTED; DECREASE H)3 `:4 q HHL "MINIMUM H EXCEEDED, METHOD FAILS.":4 {:4C |N0Y(1):NEW VALUE FOR N ACCEPTED4O R0R0H4Y MM14i R0;N0;H;M4{ A(I,100D)N04 K3 H.5HM H2H:INCREASE H IF POSSIBLE4 22604 I4 ‹ D4 ̊4:TEST PROGRAMS4:5  N(N)NN2RD2D2R5! "R, D, N";R,D,M5- N(M)59 40105UX "I",#1,"CHRvsI,D/DAT"5dYu 1.8E55uZU512.02545.109.5.02542E35\E1.6022E195]RA8.02545^VO45E35`PI3.141595b N1 1005l #1,A6vV(I,D)UAEVO3PIuRD(RARP) "R, D, N";R,D,M5- N(M)59 40105UX "I",#1,"CHRvsI,D/DAT"5dYu 1.8E55uZU512.02545.109.5.02542E35\E1.6022E195]RA8.02545^VO45E35`PI3.141595b N1 1005l #1,A6vV(I,D)UAEVO3PIu &5:FOR N=33 TO 127:PRINT#-2,CHR$(N);:NEXT N:STOP& : AMPLITUDE OF DRIVEN PLASMA OSCILLATIONS: "PLASMAMP" &PI3.14159& V(40),G(20),H(20),W(40),C(20),D(20),A(20),AM(500)'d#2,(18):#2,"A":#2,(18)'f#2,"Q0"'9n#2,"D479,0,479,-749,0,-749,0,0"'Mx#2,"M125,-35"'[z#2,"S1"'}#2,"PPeak amplitude, MV/cm"'#2,"M444,-240"'#2,"Q1"'#2,"PE'' - 2qcos(k"'#2,"R-7,0"'#2,"Pm"'#2,"R7,0"( #2,"Px)E = So exp(-iDkx)"(#2,"M39,-56"(/#2,"P 0 "(C#2,"M111,-56"(Vȇ#2,"P1,000 "(j҇#2,"M183,-56"(}܇#2,"P2,000 "(#2,"M255,-56"(#2,"P3,000 "(#2,"M327,-56"(#2,"P4,000 "(#2,"M399,-56"(#2,"P5,000 ")#2,"R7,0")#2,"J0,5,0,-10,0,5")0,#2,"X1,-72,5")=.#2,"I")R0#2,"D-5,0,0,0")g@#2,"X0,-100,5")yJ#2,"R0,-10")L#2,"Pk")N#2,"R-7,0")P#2,"Pm")R#2,"R7,0")T#2,"P, rad/")U#2,"J-5,0,5,0":#2,"Pu")^#2,"M-21,5"*h#2,"P0"*r#2,"M-21,-90"*+|#2,"P10"*@#2,"M-21,-190"*O#2,"P20"*d#2,"M-21,-290"*s#2,"P30"*#2,"M-21,-390"*#2,"P40"*‡#2,"M-21,-490"*̇#2,"P50"*FT.005*KM20:Q65000FTKMKM:DK.12720KM* 1190+AM(KM)360AM(KM)5000+?#2,"M"((AM(KM)))","(20)+Q KM21 500+$Q65000FTKMKM:DK1.272KM: 1190: KM+. KM21 500:AM(KM)360AM(KM)5000+8 AM(KM)360 D$"D"(360)","(KM): 1100,BD$"D"((AM(KM)))","(KM),L#2,D$,N, V KM,&`,4j AM(500),Ot"I",#1,"PLASMAMP.DAT",n~ N25 500:#1,AM(N): N,w #1,},C(0)1,D(0)1,TP(.5QPI)2,X1TP(1.020678221TP),NU(1.5708(X(1XX)))PI,CR1,NUCRNU-T2.25Q(NU1)-9 K0 40 2:W(K)(NUK)(NUK)Q-WV(K)(KNU)(KNU)Q: K-_ M0-k 1560-~ERG(0)H(0)1-( NU;ER,-2 (ER).001 CR1.1ER : 1350-< 1250-F M0 20 2-P 1560. Z M0 D(M)H(M2)D(M2):C( M)G(M)C(M2).d M."nAM(KM)0.1x R0 10.<A(R)0.GB(R)0.X S20 20.p (SR)20 1500. SR0 C1D(RS) : C1C(SR). (SR)20 1500. SR0 C2D(SR) : C2C(SR).A(R)A(R)C1C2(NURSDK)/B(R)B( R)C1C2(NUSRDK)/܋ S/?AM(KM)AM(KM)(A(R))(B(R))/G R/fFC.5NU(1Q(1NUNU))2/{AM(KM)AM(KM)FC/0G(M)1(V(M)1(V(M2)1(V(M4)1(V(M6)1(V(M8)1(V(M10)1(V(M12)1(V(M14)1(V(M16)1(V(M18)1V(M20))))) ))))))0"H(M)1(W(M2)1(W(M4)1(W(M6)1(W(M8)1(W(M10)1(W(M12)1(W(M14)1(W(M16)1(W(M18)1(W(M20)))))))))))0,1(V(M)1(V(M2)1(V(M4)1(V(M6)1(V(M8)1(V(M10)1(V(M12)1(V(M14)1(V(M16)1(V(M18)1V(M20))))) 01 3.02440376 1.43932365 1.96000011 0 2.45511847 0 .120239276 .270427409 .51918127 .812001239 3.2407785 1.14844899 1.5488872 2.10011042 0 2.6432979 0 .127606952 .286935987 .551706262 3.43870723 .845512643 1.21888119 1.71445169 2.21 348602 0 2.80540271 0 .134086341 .301517354 3.61224631 .580281637 .888279552 1.26641849 1.80207563 2.32546727 0 2.921713 0 .13980758 3.74401458 .314502852 .605818844 .926328211 1.320324 1.88001985 2.4249658 0 3.04624498 0 3.88159904 602 0 2.80540271 0 .134086341 .301517354 3.61224631 .580281637 .888279552 1.26641849 1.80207563 2.32546727 0 2.921713 0 .13980758 3.74401458 .314502852 .605818844 .926328211 1.320324 1.88001985 2.4249658 0 3.04624498 0 3.881599"GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIR/hYVV(1): N1 1680/&r K2 N/A|Q1: L1 K1:QQXV/V:YVYVV(K)Q:/k"Y=";YV: 1620/|Ѕ N1 2020/V(1)R(1)A(1,1):/ K1 N1:IK1/LK/Q(A(I,K))(A(L,K))/ Q0 LI/ IN II1: 20400 L708(X(1XX)))PI'dCR1',nNUCRNU'@xT2.25Q(NU1)'i K0 40 2:W(K)(NUK)(NUK)Q'V(K)(KNU)(KNU)Q: K'M0' 1040'ERG(0)H(0)1' ER' (ER).001 CR1ER : 210'ȁ 110'Ҁ M0 20 2(܁K 21100 JK N:QA(K,J)0<*A(K,J)A(L,J):A(L,J)Q:0X4QR(K):R(K)R(L):R(L)Q0b>IK10HQA(I,K)A(K,K):A(I,K)00R JK1 N0\A(I,J)A(I,J)QA(K,J):0fR(I)R(I)QR(K)0p IN II1: 21200z0V(N)R(N)A(N,N)1  IN1 1 11Q0: JI1 N13QQA(I,J)V(J)1NV(I)(R(I)Q)A(I,I):1V:1bp 8,8:HQA(I,K)A(K,K):A(I,K)00R JK1 N0\A(I,J)A(I,J)QA(K,J):0fR(I)R(I)QR(K)0p IN II1: 21200z0V(N)R(N)A(N,N)1  IFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAF FE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "G G&E : HETEROGENEOUS MATHIEU EQ. "MATHIEU" &TPI3.14159& V(40),G(20),H(20),W(40),C(20),D(20),A(20)&(C(0)1&2D(0)1&<:FOR Q=.01 TO .9 STEP .01&>Q.05&FTP(.5QPI)2&PX1TP(1.020678221TP)'ZNU(1.5 708(X(1XX)))PI'dCR1',nNUCRNU'@xT2.25Q(NU1)'i K0 40 2:W(K)(NUK)(NUK)Q'V(K)(KNU)(KNU)Q: K'M0' 1040'ERG(0)H(0)1' ER' (ER).001 CR1ER : 210'ȁ 110'Ҁ M0 20 2(܁  1040(4 M0 D(M)H(M2)D(M2):C(M)G(M)C(M2)(< M(#2, " PEAK MAGNITUDE AND PRINCIPAL MODE NUMBER"(#2:#2,"q =";Q,"S = 1"(#2,"DK","MAX AMP","FC ","PRINC. N","+/-"( DK0 .1 .001(AM0:PN0:X0:Y0)   R0 10)A(R)0) B(R)0)1 S20 20)H (SR)20 310)m SR0 C1D(RS) : C1C(SR)) (SR)20 310) SR0 C2D(SR) : C2C(SR))"A(R)A(R)C1C2(NURSDK)),B(R)B(R)C1C2(NUSRDK))6 S*AMAM(A(R))(B(R))*1 X(A(R)) X(A(R)):PMR*T Y(B(R)) Y(B(R)):PPR*\ R*z XY SG$"+/-": 1019* XY SG$"+":PMPP: 1019*SG$"-"*FC.5NU(1Q(1NUNU))2*AMAMFC+#2, ".###";DK,:#2," ",AM,FC,PM,SG$+  DK++G(M)1(V(M)1(V(M2)1(V(M4)1(V(M6)1(V(M8)1(V(M10)1(V(M12)1(V(M14)1(V(M16)1(V(M18)1V(M20))))))))))),H(M)1(W(M2)1(W(M4)1(W(M6)1(W(M8)1(W(M10)1(W(M12)1(W(M14)1(W(M16)1(W(M18)1(W(M20))))))))))),$,F. M0 D(M)H(M2)D(M2):C(M)G(M)C(M2)1(V(M10)1(V(M12)1(V(M14)1(V(M16)1(V(M18)1V(M20))))))))))),H(M)1(W(M2)1(W(M4)1(W(M6)1(W(M8)1(W(M10)1(W(M12)1(W(M14)1(W(M16)1(W(M18)1(AFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFuR8 \:8f CHNO$,20 PDTO$,3 CAT$,5 AMT$7A7JBA07] RE1 (1)7j #1,REC7} BABA(AMT$)7* RE74 #17> "BALLANCE = ";7H "$######.##";BA7J "PRESS enter TO RETURN TO THE"7L "SELECTION LIST.";R$8FE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE " "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIR 1354POSTMASTER OTH8-22-83 1355BIG BEAR FOD3338-23-83 1356HEALTH SCIENCE FOD]8-23-83 1357FRASER FARMS FODzH8-23-83 1358ON-SITE TAPING DON{8-23-83 1359JIM HARNAN FOD8-23-83 1153LIB.OF SCIEN CE BUS8-24-83 1361WOMEN'S AGLOW DON8-24-83 DEAN WITTER BUS8-24-83 1361R.T.C.INC. MED8-26-83 WESTERN RESEARCH SAL8-27-83 1152DEAN WITTER BUS^{8-26-83 1362MAY CO. OTHQ 8-26-83 1363CASH OTH8-26-83 1364BIG BEAR FOD\8-26-83 1365BIG BEAR FODzFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "G IRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFE" "GIRAFFEu)/ * #1,REC/ 4BABA(AMT$)/=8D$(DATE$,(DATE$)1)/9 (D$,1)"/" (D$,1)"-" M(DATE$) : M10(DATE$)(D$)/< A$"M" MMN 1030/H/R (AMT$)0 930/\ @ 64, "DATE OF CHECK:": @ 84, DATE$0f "CHECK NUMBER:": @ 116,CHNO$0.p "PAID TO:": @ 148, PDTO$0Tz @ 160, "CATAGORY:": @ 180,CAT$0 "AMOUNT OF CHECK:": @211, "$ ######.##";(AMT$)0 "BALANCE:": @ 243, "$ ######.##";BA0 9800:: "DATE OF DEPOSIT:": @ 85,DATE$1 "DEPOSIT SLIP NUMBER:": @ 117,CHNO$1: "PAID BY:": @ 148,PDTO$1` @ 160, "CATAGORY:": @ 180,CAT$1 "AMOUNT OF DEPOSIT:": @ 211, "$ ######.##";(AMT$)1 "BALANCE:": @ 243, "$ ######.##";BA1ԇ @288, "PRESS enter FOR NEXT RECORD OR r"2և @ 320, "TO RETURN TO SELECTIONS"2*AN$2= AN$"" 9902U AN$(13) 10302j AN$"R" 10402u 9902~ RE2 #1222$:2:2:*** PRINTOUT ***2":2, "D", #1, "CHECKS/DAT",4036 #1,8 DATE$,4 CHNO$,20 PDTO$,3 CAT$,5 AMT$3#@3FJ @ 256,"WHAT MONTH(mm)";: MN3OTBA03V "TURN ON THE PRINTER. PRESS enter WHEN READY"3W R$3X #2,"CHECKING ACCOUNT ACTIVITY FOR MONTH ";MN3\ #24] #2," DATE # PAID BY/FOR CATAGORY AMOUNT BALANCE"4/^ RE1 (1)4;h #1,RE4ej RE;DATE$;CHNO$;PDTO$;CAT$;(AMT$);4xrBABA(AMT$)4t BA;4|D$(DATE$,(DATE$)1)4~ D$;4 (D$,1)"/" (D$,1)"-" M(DATE$) : M10(DATE$)(D$)4 M5  MMN 19005% (AMT$)0 18005\ #2, DATE$;" ";CHNO$;" ";PDTO$;CAT$;" ";5 #2, " $######.##";(AMT$);BA;5 #2," CHECK"5 19005 #2, DATE$;" ";CHNO$;" ";PDTO$;CAT$;" ";6 #2, " $######.##";(AMT$);BA;6 #2," DEPOSIT"6#l RE6Kp "PRESS ENTER WHEN PRINTER IS OFF"6Tv #16tx "PLEASE TURN OFF PRINTER"6z "PRESS enter WHEN PRINTER IS OFF"6| R$66:66:6:***BALANCE CALCULATOR ***6ڙ "D",#1,"CHECKS/DAT",407;  #1,8 DATE$,4 CHNO$,20 PDTO$,3 CAT$,5 AMT$7A7JBA07] RE1 (1)7j #1,REC7} BABA(AMT$)7* RE74 #17> "BALLANCE = ";7H "$######.##";BA7J "PRESS enter TO RETURN TO THE"7L "SELECTION LIST.";R$8  FOD >7-29-83 1288WELLS FARGO MC OTHDz7-29-83 12891ST INTERSTATE INTH8-1-83 1296KINNEYS OTH=p7-29-83 1290B OF A MC INT8-1-83 1300BIG BEAR FODڣ 8-2-83 1049BOEING SALH 8-4-83 1306CASH OTH7-28-83 1286TRAVELERS INS. INS䙙8-3-83 1303LAKESHORE GARDENS HSEǮ8-4-83 1307SEARS OUTLET OTH=p8-4-83 1305BIG BEAR FOD8-1-83 1299COMM.MKT. FOD8-4-83 1308KEMC OA OF CAL OTHQ8-4-83 1302M.C.I. OTHȳ338-1-83 1295WOLWORTH'S OTH8-6-83 1249JADE COMPUTERS BUS8-4-83 1304COMM.MKT. FOD\8-9-83 1257HADLEY'S FOD\(8-10-83 1312BIG BEAR  FOD7-29-83 CORRECTION FOD7-29-83 1291IEEE BUS8-9-83 1309WHITE MEMORIAL HSE\8-10-83 1910COMM.MKT. FODG8-9-83 1911COMM.MKT FOD\8-11-83 13131ST ASSEMBLY DON8-14-83 13141ST ASSEMBLY DON8-15-83 1315COMM.MKT. FOD8-15-83 1318RON DRUMMOND DONz8-15-83 1319B.OF A. M.C. INT8-15-83 1320B.OF A.VISA INT1-15-83 1321PAC.TEL. OTHL8-15-83 1321PAC.TEL  DON =p1-15-83 1323FINANCIAL TRANS. OTH8-12-83 1051WESTERN RES. SAL 8-16-83 1330VET'S ADM. INS8-16-83 1331B.DALTON OTHᙙ8-16-83 1332SEARS OTHG8-16-83 1335 OTHҏ\*8-16-83 1334COMM.MKT. FOD=p8-17-83 1335SAN DUIGETO N.B. OTH8-17-83 1336BEAUTY SUPPLY OTH8-17-83 1337BEUATY SUPPLY OTH >8-17-83 1338BIG BEAR FOD(8-17-83 1339HADLEY'S FOD8-18-83 13401ST ASSEMBLY DON8-18-83 1341COMM.MKT. FOD8-18-83 1342COMM.MKT. FOD8-18-83 1343BIG BEAR FOD3338/18/83 1344CASH OTH8/19/83 LUCIDYNE CONz8-20-83 1348HADLEY'S FODz8-12-83 BIG BEAR FOD8-20-83 1350B.OF A.VISA OTH08-20-83 1349PLASTIC SURGERY MED8-21-83 1351JIM L.DRUMMOND DON8-21-83 13521ST ASSEMBLY DON8-22-83 1353COMM.MKT. FODQ8-22-83 u7-15-83 0000BAL. FORWARD OTH'3337-15-83 1046WESTERN RES. SALm7-18-83 1045LUCIDYNE CONA6-14-83 1185CARLSBAD J. OTH7-13-83 1254BIG BEAR FODǮ7-12-83 1246REMCO BUS7-13-83 1251SAV-ON OTH =q7-11-83 1242R.T.S. OTH7-14-83 12551ST ASSEMBLY DON7-13-83 1253COMMUNITY MKT. FODR7-18-83 1079MAY CO. OTHzH7-18-83 1080MAY CO. OTH7-18-83 1078B. DALTON OTH3337-14-83 1256COMM. MKT. FOD(7-19-83 1261MAY CO. OTH7-18-83 1262KINNEY SHOE OTH3337-19-83 1265BIG BEAR FODƣ 7-18-83 1077J.C.PENNEY OTHfff7-21-83 1266J.L.DRUMMOND DON7-15-83 1259FIRESTONE TIRE CAR:H7-19-83 1260J.C.PENNEY OTHp7/21/83 1044 t7-22-83 1270BANK OTH7-19-83 1263COMM.MKT. FOD7-19-83 1264COMM.MKT. FODfff7-16-83 1152CHRISTIAN WRITER OTH7-22-83 1271WALTER SCOTT OTHp7-21-83 12671ST ASSEMBLY DON7-21-83 12681ST ASSEMBLY DON7-24-83 12741ST ASSEMBLY DON7-22-83 1082COMPUTER POST BUS7-24-83 1275BIG BEAR FODfff7-25-83 1277HADLEYS FOD7-5-83 1231JIM HARNON OTHG7-4-83 1230JIM HARNON FOD >7-27-83 1276COMM.MKT. FOD\7-21-83 1081K.U.G BUS7-29-83 1282CASH OTH7-27-83 1279JENNY HARNON FODfff7-27-83 CORRECTION FODRfff7-28-83 1084RADIO SHACK BUS:H7-23-83 1273EAGLESON'S OTHp7-28-83 1281R.T.S.INC. MED7-29-83 BANK OTH17-29-83 1047WESTERN RES. SALz8-1-83 1298CASH OTH7-27-83 1278LLOYD WOFFORD MED8-1-83 BANK OTH7-22-83 1269HEALTH SCI.CENTER MED7-30-83 1292FOOD BASKET FOD7-30-83 1283COMM.MKT. FOD7-29-83  1284COMM.MKT. FOD=p7-29-83 1285BIG BEAR FODR7-31-83 12941ST ASSEMBLY DON7-31-83 12931ST ASSEMBLY DON7-28-83 1280STEVEN SNEDEKER OTH7-28-83 1287PACIFIC TEL. OTH =q8-1-83 1297K-MART  &! :*** CHECKBOOK PROGRAM ***&/ :8-19-83&6:&] "THIS PROGRAM PROVIDES A RECORD"&( "OF OUR CHECKS, DEPOSITS AND"&2 "BALANCES. THE CHECKS CAN BE"&<"LABELED TO SHOW THE EXPENSE"&F "CATAGORY SUCH AS MEDICAL(med),"'P "HOUSE A ND LOT(hse), FOOD(fod),"'>Z "BUSINESS (bus), INTEREST(int),"'bf "DONATIONS(don), TAXES(tax),"'h "CAR(car), INSURANCE(ins), ETC."'n "NOT ONLY WILL THIS PROVIDE A"'p "CONTINUALLY UPDATED RECORD, BUT"'r "IT WILL BALANCE THE CHECKBOOK,"( $t "AND PRINT THE RESULT. IT WILL"(Kv "KEEP TRACK OF ITEMS FOR INCOME"(qx "TAX DEDUCTIONS AT YEAR'S END."(y "READY (ENTER 'Y' OR 'N')";(zA$({ A$"" 122(| A$"Y" "BYE":(:( 1000(( @ 107,"SELECTIONS:")%  @ 162,"1) RECORD CHECKS & DEPOSITS")Q @ 194,"2) LIST CHECKS, DEPOSITS, AND")gȇ @ 229,"BALANCE") @ 258,"3) PRINT MONTHLY SUMMARY") @ 290,"4) FIND BALANCE ONLY") @394,"(1, 2, 3, OR 4)")AN$) AN$"" 250* (AN$) 310,700,1560,2000* 160*!":*;6:*** DATA INPUT: ****XJ "D",#1,"CHECKS/DAT",40*T #1,8 DATE$, 4 CHNO$, 20 PDTO$, 3 CAT$, 5 AMT$*^REC(1)*hRECREC1*r*| @ 64, "CHECK OR DEPOSIT(c OR d)"*AN$+ AN$"D"  430+ AN$"C" 490+" 390+F "DEPOSIT DATE (mm/dd/yy) ";D$+p "DEPOSIT SLIP NUMBER (4 DIGITS)";N$+‰ "PAID BY ";P$+̇ "CATAGORY: SALARY(sal), INTEREST"+· "(int), LOAN(lon), REFUND(rfd),"+Љ "CONSULTING(con), OR OTHER(oth) ";C$,։ "AMOUNT OF DEPOSIT";AM,& 550,= "CHECK DATE ";D$,V "CHECK NUMBER ";N$,j "PAID TO ";P$, "CATAGORY: med, hse, fod, bus,", "int, don, tax, ins, oth, car ";C$, "AMOUNT OF CHECK ";AM,AMAM,& DATE$D$,0 CHNO$N$- : PDTO$P$-D CAT$C$--N AMT$(AM)-:X #1,REC-Zb @ 416, "MORE INPUT(y/n)";-elAN$-yv AN$"N" 660- AN$"Y" 360- 620- #1--:-:*** BALANCE AND OUTPUT ***-:-Й "D", #1, "CHECKS/DAT", 40.: #1, 8 DATE$, 4 CHNO$, 20 PDTO$, 3 CAT$, 5 AMT$.@.m @ 160, "DO YOU WANT A LISTING FOR THE". @ 192, "MONTH OR FOR THE YEAR? (m/y) ".A$. A$"" 770. A$"M" @ 238,"WHAT MONTH(mm) ": MN.BA0/ RE1 (1u c&d: CURVE&8n:(C) 1981, PHIL FELDMAN AND TOM RUGG&B 200&MMX500&XEF999&aMD5&sȌ X(MX),Y(MX)&QMD1: A(Q,Q),R(Q),V(Q)&QMD2: P(Q)&,:"-LEAST SQUARES";&6" CURVE FITTING -"&J:"ENTER A DATA";'L" PAIR IN RESPONSE"'T"TO EACH QUESTION";'1^" MARK. EACH"'Lh"PAIR IS AN X VALUE";'\r" AND A Y"'v|"VALUE SEPARTED BY";'" A COMMA.":'"WHEN ALL DATA IS";'" ENTERED, TYPE"' EF;",";EF'"AFTER THE LAST";'" QUESTION MARK."(‡:"THE PROGRAM IS";(%̇" CURRENTLY SET"(Aև"TO ACCEPT A MAXIMUM";(O" OF";MX(b"DATA PAIRS."(l:J0(JJ1:"X,Y=";X(J),Y(J)( X(J)EF 550( Y(J)EF 550(JJ1: 600(& JMX 510(0"** NO MORE DATA";(:" ALLOWED **") D 6000)XNPJ:)'b NP0 650)Dl"** - FATAL ERROR - **")av"** NO DATA ENTERED **")o 6000:) NP;"DATA PAIRS";)" ENTERED"):"DEGREE OF";)Ƈ" POLYNOMIAL TO BE")Љ"FITTED";D:)څ D0 780)"** ERROR **"*"** DEGREE MUST BE";*"" >= 0 **"*5 6000: 700*N D(D): DNP 820*a"** ERROR **"*~ "** NOT ENOUGH DATA **"** 6000: 700*4D22D: DMD 860*>"** ERROR **"*H"** DEGREE TOO HIGH **"*R 6000: 700*\ND1+  J1 D2:P(J)0+  K1 NP:Q1+9 L1 J:QQX(K):+MP(J)P(J)Q::+kP(0)NP:R(1)0: J1 NP+R(1)R(1)Y(J):+ N1 1020+ʀ J2 N:R(J)0+Ԁ K1 NP:Q1+ހ L1 J1+QQX(K):+R(J)R(J)Y(K)Q::,  J1 N: K1 N,!A(J,K)P(JK2)::,- 2000,3L,CV"X POWER",,V`"COEFFICIENT",dj J1 N,yt" ";J1,V(J):,~Q0:T0: J1 NP,QQY(J)::MQNP:G0, J1 NP:Q0, K1 N:Z1,K1K1: K10 1210- L1 K1:ZZX(J):-QQV(K)Z:--TT(Y(J)Q)(Y(J)Q)-IGG(Y(J)M)(Y(J)M):-a؅ G0 T1: 1260-mT1TG-s-"GOODNESS OF FIT=";T-:"HIT ANY KEY";- " TO CONTINUE"-Q$- Q$"" 1300-x-"CONTINUATION OPTIONS". "  1) DETERMINE";.%" SPECIFIC POINTS".>" 2) FIT ANOTHER";.M" DEGREE".e" 3) END PROGRAM".x"WHAT NEXT";Q.Q(Q): Q3 .҅ Q2 700.܅ Q1 1400.@:"ENTER";EF;.J"TO LEAVE THIS MODE".T:"X=";XV.^ XVEF 1400 0/w:/ x:DATA FOR D=0.5 UM:/'y:/ 0,51,111,181,263,360,473,606,763,947,1165,1422,1726,2086,2513,3022,3627,4349,5212,6246,7287,8978/:/:DATA FOR 0.1 UM DIAMETER:/:/ 51,79,109,139,171,203,237,271,307,344,382,422,463,505,5480  593,640,687,737,788,840,895,951,1009,1068,1130,1194,1260,1328,1398,1470,1545,1622,1701,1783,1868,1956,2046,2139,2236,2335,2438,2544,2654/:/:DATA FOR 0.1 UM DIAMETER:/:/ 51,79,109,139,171,203,237,271,307,344,382,422,463,505,5480   o0,-168,0"//M#2,"J10,0,5,5,10,-10,10,10,10,-10,10,10,10,-10,5,5,10,0"/S30,0,15,10,10,-10,-10,10,-10,-10,10,66,0".ʐ.: RESISTOR:/އ#2,"J0,20,5,5,-10,10,10,10,-10,10,10,10,-10,10,10,10,-5,5,0,2  3 6 0 0 2 7 5 38 0 0 2 6 7 4 0 0 0 2 6 9 40 0 2 7 4 4  0 2 72 4 6 0 0 2 7 6 8 0 0 2 7 5 50 0 8 2 7 0 0 9AMCNAA!Р Ӏ ``CP Ӏ0S` 4 0 0 2 8 4 6 6 0 0 2 8 5 6 8 0 0 2 8 6 7 0 0 0 2 8 7 7 2 0 0 2 8 8 7 4 0 0 2 8 9 7 6 0 0 2 9 0 7 8 0 0 2 9 0 8 0 0 0 2 9 1 8 2 0 0 2 9 2 8 4 0 0 2 9 3 8 6 0 0 2 9 4 8 8 0 0 2 9 4 9 0 0 0 2 9 5 9 2 0 0 2 9 6 9 4 0 0 2 9 6 9 6 0 0 2 9 7 9 8 0 0 2 9 8 1 0 0 0 0 2 9 8 0 9 0 2 0 0 1 9 9 4 0 0 2 8 0 6 0 0 3 4 4 8 0 0 3 9 7 1 0 0 0 4 4 3 1 2 0 0 4 7 5 1 4 0 0 5 1 8 1 6 0 0 5 5 0 1 8 0 0 5 7 8 2 0 0 8 3 : 5 0 0 0 8 6 8  5 2 0 0 8 5 9 5 4 0 0 8 6 9 5 6 0 0 8 7 9 5 8 0 0 8 8 9 6 0 0 0 8 9 9 6 2 0 0 9 0 8 6 4 0 0 9 1 7 6 6 0 0 9 2 6 6 8 0 0 9 3 4 7 0 0 0 9 4 2 7 2 0 0 9 5 0 7 4 0 0 9 5 8 7 6 0 0 9 6 5 7 8 0 0 9 7 3 8 0 0 0 9 8 0 8 2 0 0 9 8 7 8 4 0 0 9 9 4 8 6 0 0 1 0 0 0 8 8 0 0 1 0 0 0 9 0 0 0 1 0 0 0 9 2 0 0 1 0 0 0 9 4 0 0 1 0 0 0 9 6 0 0 1 0 0 0 9 8 0 0 1 0 0 0 1 0 0 0 0 1 0 0 0 0 9 0 1 1 4  & ***BALIS883/BAS***&7* PROGRAM THAT CREATES A&`* LINE CHART FOR BALLISTIC CHARGING&(*****************************&21000&<* OUTPUT ROUTINE FOR A NUMBER&F* GIVEN: I&d110:Z$Z1$:200&i*EDIT I INTO THE STRING, Z1$' nZ1$""'&sI1(I10):I2II110:II1'<xZ1$(I248)Z1$'II0115'O'n* OUTPUT ROUTINE FOR TEXT'* GIVEN:Z$ (">" INDICATES DOWN-ARROW'ȀZ1(Z$)'Z1$(Z$,Z,1):250:Z'(Z1$)253'Z1$"":250:(Z1$">"Z1$( 10)(Z1$""270(6 THIS IS THE ONLY PRINT STMT(D#1,Z1$:(Z* SEND SYNC BYTE(p"Z1$(254):200('* SEND EOF BYTE(,Z1$(255):200((*****************************( USER PROGRAM LOGIC STARTS HERE) **************** $R$R$*Z "0"R4 :200 4Z$"1":200: 1052*IZ$"2"R0$:200*^Z$"3"R4$:200*sZ$"4"R4$:200*Z$"5"R4$:200*Z$"6"R4$:200*Z$"7"R4$:200*Z$"8"R4$:200*Z$"9"R4$:200:Z$"0": 200*Z$">8>>2":200 + generate 51 pt line:+":+.$N050+A&I200N: 110+L(X$Z1$+v.I(32.4(16.12203.282N)): 110+`Z$X$">"Z1$: Z$;+a200+b N+c N0 50+dI200N: 110+eX$Z1$+l I: 110+mZ$X$">"Z1$: Z$;+n200 . 800,812,825,836,848.3 859,869,879,889,899.M 908,917,926,934,942.g 950,958,965,973,980. 987,994,1000,1000,1000. 1000,1000,1000,1000,1000.:.:DATA FOR D=0.1 UM:.:/( 0,114,271,489,794,1223,1830,2696,3941,5745,838 u%$ '12o5+ '2҆ !1$ POINT CHART yVALUES FOR POINT # HORIZONTAL [00001] VERTICAL [00001] POINT SIZE [1] COLOR [0] 2b33O292ug4i9=*+=*;i*$i1&1fi 0/,c,c,chp焽,cgp焦f,, d,b,a,g'gid9%9b=%=a5%52d3b3O2o"J&L$"=?&&4X???" =??(?(9&2k~0Ȟ2Zd,c=& 2Za,;3&3D ')c,d.3K1&,a.3B3K 1&3^0 Ȧc,d.",a.2k"$=4&&5("=4V"$=2" =4((2b9& "=4291&b$A4b0O"Z329&0 3 1 8' 202d9;9 2bO25V(9c,d.3K1&,a.3B3K        T&% : RE-STRIKE CONTROLLER: &?#2,(18):GRAPHICS&S#2,"S2":SIZE&k(#2,"A":TEXT MODE&2#2," FIG. 1&<#2," RE-STRIKE CONTROLLER"&F#2&P#2," -o"&Z#2,(18)&d#2,"R45,45"&n 960: DIODE'xYM1 0' 590: CAPACITOR' R15'2 820: COIL'D#2,"J0,-96"'O 680'\#2,"I"'m#2,"J72,0"'ȁ 980: RESISTOR'ɇ#2,"J0,24"'ʇ#2,"R0,-24"'ˁ 960'́ 270'҇#2,"R84,-65"'܇#2,"S1"'#2,"PR"'#2,"R0,-10"(  #2,"S0"(#2,"P1"(&#2,"H"(9#2,"D-200,0"(D" 760(Q,#2,"I"(]6 1010(n@#2,"J0,75"({J#2,"H"(T#2,"J0,75"(^#2,"R0,-153"(h#2,"J-70,0"(r#2,"I":#2,"R25,48")|#2,"S1":#2,"PC":#2,"S0":#2,"R0,-10":# 2,"P3")#2,"R70,50")R#2,"S1":#2,"PR":#2,"S0":#2,"R0,-10":#2,"P2")#2,"R-100,30":#2,"S1":#2,"PD":#2,"R0,-10":#2,"S0":#2,"P1")#2,"R70,10":#2,"S1":#2,"PC":#2,"R0,-10":#2,"S0":#2,"P2")#2,"R50,10"*0#2 ,"S1":#2,"PL":#2,"R0,-10":#2,"S0":#2,"P2"*N‡#2,"R10,-75":#2,"PC3"*ḣ#2,"H":#2,"R0,-10*և#2,"S2":#2,"A"*#2,(11);*#2," +o"*#2,(18)*#2,"J479,0,0,350,-479,0,0,-350"*+:  PARABOLA:+#2,"I"++& Y0 YM+:0X.05Y2+O:#2,"J";X;",";Y+WD Y+N: CAPACITOR:+X 650+b#2,"R10,0"+l 650+v#2,"J48,0"+,: VERTICAL L INE:,#2,"J0,15,0,-30,0,15",%,0 730,B#2,"R0,-10",M 730,_Ƈ#2,"J0,-48",eА,: HORIZONTAL LINE:,#2,"J15,0,-30,0,15,0",,#2,"J0,48", 740, #2,"R0,10", 740-  #2,"J0,20"-*-A4: COIL:-X>#2,"R";R;",";"0"-eH#2,"I"-{R#2,"R-";R;",";0-\PI3.14159-f A0 50-pTH.1API-zXR((THPI).5THPI)-YR(THPI)-#2,"D";X;",";Y- A.#2, "J48,0". .=: DIODE:.#2,"J30,0,0,15,0,-30,0,15,10,10,-10,-10,10,-10,-10,10,66,0".ʐ.: RESISTOR:/އ#2,"J0,20,5,5,-10,10,10,10,-10,10,10,10,-10,10,10,10,-5,5,0,2