7B : 1000CR1 3::S0 100:S?C@56410,(50,42);:@96410,(50,42);~C(@76412,"AZ e/m -M @ R @ S S Z I M U L ] C I O J A ";C2T0 400:T:RC<@146415,"K@RSZ INFORM]CIOT? ";CFV$: V$"I" 80 : V$"N" 130 : 70DP:" T ] J @ K O Z T A T O A PROGRAM A FAJLAGOS T\LT@S M@R@SENEK EGY LEHETS@GES MODJ]T MUTATJA BE. A KATODSUG]RCSOBEN GYORSITOTT ELEKTRONT A SEBESS@G IR]NY]RA"[EZ"MER\LEGES M]GNESES T@RBE VEZETJ^K.(A B VEKTOR IR]NYA ME- R\LEGES A MONITOR SIKJ]RA.) A GYORSITO FESZ^LTS@G,A M]GNESES INDUKCIO @S AZ ELT@R^L@S M@RT@K@B\L A FAJLAGOS T\LT@S KISZ]MITHATO" Fd"T]J@KOZTATO ADATOK A M@R@SHEZ: U KILOVOLT NAGYSAGREND^, B 1E-7 NAGYS]GREND^ A PROGRAM M]SODIK R@SZE A M@R@S KI@RT@KEL@S@RE SZOLG]L. (TOV]BB:SPACE BILLENTY^)"CFn:"KESZITETTE:Farkas Gyula TAPOLCA,Bats}nyi Gimn.";bFxV$: V$" " 130 : 120lF:N1F Y(100): U(100): B(100)F:31,7:30,248:31,8:30,15F@19,"** AZ e/m-M@R@S SZIMUL]CIOJA **";F K4 14F I32 63 5G@K64I,(46);G I: K+G I25 37MG(1,I):(2,I):(40,I):(41,I)UG IdG I1 15{G(I,37):(41I,37)G IG I25 35:(0,I): IG I0 3G" K0 3G,(40I,29K)G6 K: IG@ I0 64:(I,25):(I,35): I*HJY20:Y10: I64 112:Y1.18Y1:Y2Y2.265HHT(I,25Y2):(I,35Y1): IVH^ I0 5tHh(15,37I):(25,37I): IHr I12 42H|(110,I):(111,I):(112,I): IH@449,"katod";:@467,"anod";:@890,"erny|";H@65,"ADD MEG A GYORSITO FESZ.-T!";0I U(N): U(N)900 U(N)2E4 420 : 430IR1 3:@65,(55,32): Z0 300: Z:@65,"NEM JO ADAT!!!";: I0 400:M:R:400I@903,"U=";U(N);"V"I@65,(35,32)I@65,"ADD MEG A"; (34);"B";(34);"@RT@K@T!!";J B(N): (B(N))1E5 470 : B(N)0 480 : 490|J I1 3:@65,(55,32): K0 100:K:@65,"TUL NAGY ADAT!!";: R0 300: R: I: 450J@65,"M]GNESES T@R N@LK^L NINCS @RTEME M@RNI!!!": I0 1000: I:@65,(60,32): 450J@350,"B=";B(N);"N/A.m";K@65,(35,32)*K@65,"INDULHAT A MERES?(I) "IKV$: V$"I" 530 : 520gKY30:X0:V00:D39:T1E7yK@65,(30,32)K& I1 4K0A1.759E11U(N)D: X40 570 : 580K:A0KDV1ATKNVV0V1KXX1(V0V)2TKbXXX1:CLlV0V: I:(X,Y):31,0:30,94: WW0 5: WW:31,0:30,0: X64 640 : 630MLv 550aLVXV0:VY0:Y30oL I1 2LAX1.759E11B(N)VYLAY1.759E11B(N)(VX)LV1AXT:V2AYTLV3VXV1:V4VYV2LX1(VXV3)2T:Y1(VYV4)2TMXXX1:YYY1MVXV3:VYV4M I4M X110 790 : 750pM B(N)0 760 : 35Y25(X64).265 820 : 770M Y335(X65).18 810 : 770MY(N)(100(31Y))100:(X,Y):31,0:30,94: WW0 5: WW:31,0:30,0:@115,"Y=";(100(31Y))100N  6500N:IF Y>=40 OR Y<=5 THEN 790 ELSE 770N NN1:Q0 20: I120 121 1:(111,Y):(111,Y):31,0:30,I: I:31,0:30,0:Q:@65,"OLVASDD LE AZ ELTERULEST!(1 SET=1m)":840DO* Q0 20:(X,35(X65).18):31,0:30,94:W0 5: W:(X,35(X65).18):31,0:30,0: Q:@65,"H]T EZ NEM TEKINTHET\ M@R@SNEK!!!";:840O4 Q0 20:(X,25(X65).265):31,0:30,94: W0 5: W:(X,25(X65).265):31,0:30,0: Q:@65,"H]T EZ NEM TEKINTHET\ M@R@SNEK!!!!";: 840O>@65,"NEM MEGFELELO ADATOK!!"PH@961,"AKARSZ UJABB MEREST?(I/N)";OPRV$: V$"I" 150 : V$"N" 860 : 850YP\::tPf"A MEREST BEFEJEZTED"|Pp:Pz " A SZAMITAST MAGAD VEGZED,VAGY A GEPRE BIZOD?(M/G) "PV$: V$"M" 910 : V$"G" 930 : 900P Q ::" V E G E ": Q)Q"M@RESI ADATOK:"9Q Z1 N1eQ Z4 Z7 Z10 Z13 970 : 1000Q"TOV]BB: SPACE BILLENTY^"Q " " 990 : 980QQZ;". MERES FESZULTSEGE:";U(Z)QZ;". MERES MAGNESES TERE:";B(Z)RZ;". MERESNEL AZ ELTERULES:";Y(Z)ER: Z:"AZ ANOD-KATOD T]VOLS]GA: 39 EGYS@G"KRlR"KEZD\DHET A SZ]MIT]S? "R$V$: V$"I" 1070 : 1060R.:@56420,"S Z ] M O L O K ! !": N1 Z1R8X46RBR(N)(X2Y(N)2)(2Y(N)) SLF(N)(2U(N))(R(N)2B(N)2)SV N:S0%S` N1 Z16SjSSF(N): NdStAS(Z1): N1 Z1: E(N)(AF(N)): NS~ N1 Z1:G0:GGE(N): N:DG(Z1):WDA100SS" MERESI EREDMENYEK:"SS N1 Z1SN;". MERES:";F(N)S NT"ATLAG:";A,T"A MERES RELATIV HIBAJA:";(W);"%"YT:"AZ IRODALMI @RT@K: 1.7588E+11 C/kg "_TzT"UJABB MERESEK?(I/N)"TV$: V$"I" 130 : V$"N" 910 : 1270