4!C :--- MER0LEGES REZGESEKET SZEMLELTET0 PROGRAM ---YC:--- KESZITETTE: GAUTIER PETER 1983.11.25. ---C 6500:SP$(17,32):HG1:SH$(64,32)C(S1$" ":S2$" ":S3$" ":S4$" "C2PI3.141:H$"*** Hibas adat ***"C<:--- Hanggenerator felprogramozasa ---3DF31,7:30,248:31,9:30,15:31,12:30,3:31,13:30,14DP:@76410,"A PROGRAM HASZNALJON KISBETUKET IS, VAGY CSUPA NAGY ":20);"BETUVEL DOLGOZZON ( K/N ) ?";DZI$: I$"N" 120Dd I$"K" 90En16414,71:16415,49::--- Kisbetuk bekapcsolasa ---!Ex: 1780: 1670 : 1110 BE:--- Rajzolo szubrutin ---bE:20);"Adatok beolvasasa"E@643, "Kerem az X rezges amplitudojat (-10...10)"E"Elozo ertek:";X;" Ha marad, < NEW LINE > ";(27);E 1620 : X F (X)10 X0: 1630 : 150 CF@643,(63,32):(27);"Az X rezges amplitudoja:";XvF: @645,"Kerem az X rezges korfrekvenciajat"F"Elozo ertek:";A1;" HA MARAD, < NEW LINE >";(27);F 1620 : A1F@644,SH$:@644,"Az X rezges korfrekvenciaja:";A1/G: "Kerem az X rezges kezdofazisat ( Radian )"lG"Elozo ertek:";B1;" Ha marad, < NEW LINE > ";(27);}G 1620 : B1G@645,SH$:@645,"Az X rezges kezdofazisa:";B1G:: "Kerem az Y rezges amplitudojat (-10...10)"%H""Elozo ertek:";Y;" Ha marad, < NEW LINE > ";(27);5H, 1620 : YYH6 (Y)10 Y0: 1630 : 280 H@@647,SH$:@647,"Az Y rezges amplitudoja:";YHJ: "Kerem az Y rezges korfrekvenciajat"HT"Elozo ertek:";A2;" Ha marad, < NEW LINE >";(27);I^ 1620 : A2=Ih@864,SH$:@648,"Az Y rezges korfrekvenciaja:";A2rIr: "Kerem az Y rezges kezdofazisat ( Radian )"I|"Elozo ertek:";B2;" Ha marad, < NEW LINE > ";(27);: 1620: B2I 690:::18);"A megadott fuggvenyek:"::10);A1$;SP$;A2$)J:"Minden rendben ( I/N P ) ?";:1620MJIS$: IS$"I" " Igen":450aJ IS$"N" 140sJ IS$"P" }J 410J: "A felosztas finomsaga (1-10)";J 1620 : DJ D1 D10 1630 : 450 JDPI36.5D K:--- Rezges kirajzolas ---K 1930;K: :--- Rajzolas megkezdese ---bK I0 12:(40,191)::(40,131)nK 690 K @897,A1$;" ";A2$K&@1564,"Magyarazat: M ( Turelmet kerek ! )";K0C1PI3:A50:E3910X:F1910YL: HG1 31,1:30,2:31,8:30,16,LD:--- Rajzolo ciklus ---uLNAA5C1D:AXE(A1AB1)40:AY20F(A2AB2):(AX,AY):(AX,AY):LXIS$: IS$"A" 620 Lb31,8:30,0: 900 : ::--- PARANCS MODBA VISSZA ---Ll IS$"M" 1470 Lv IS$"T" 1520 M IS$"P" 31,8:30,0:@M IS$"U" 31,8:30,0: 140VM IS$"E" 1800sMA5C1:C1C1PI9: 570 M:--- Fuggveny osszeallito szubrutin ---MVX: 850 :A1$"X="V$: V0 A1$A1$"0": 760 M A10 B10 A1$"X=0": 760NA1$A1$"*SIN("#NVA1: 850 @N V0 A1$A1$V$"*T"dNVB1 : 850 : V0 V$"+"V$wNA1$A1$V$")"NVY: 850 :A2$"Y="V$: V0 A2$A2$"0":N A20 B20 A2$"Y=0":N A2$A2$"*SIN("NVA2: 850 O  V0 A2$A2$V$"*T"/O*VB2 : 850 : V0 V$"+"V$BO4A2$A2$V$")"HO>mOH:--- SPACE szuro szubrutin ---OR V0 V$"":O\V$((V),((V))1)Of V0 V$"-"V$ OpOz:--- Kepernyo elmento szubrutin ---6P 1520 :@1564,(60,32);:@45,"Melyik lapra ";:@4564,"mentsem?";:1840: 1620YPIS$: IS$ "1" I1: 980 uP IS$"2" I2: 980 P IS$"3" I3: 980 P IS$"4" I4: 980P IS$"5" I5: 980P IS$"0" P 910 Q 1520:@64442,(22,32);:@64543,(21,32);";Y@76425,"*** A lap ures ***";Y" 31,2:30,50Y, "" 31,2:30,0:Y6 I0 200::@76425,SP$;SP$;:31,2:30,0: I0 200:: 1560 Z@:--- Nyomtato szubrutin ---5ZJ@55,L;".LAP";:_ZT31,2:30,100:I050::31,2:30,0:uZ^ H$:: HG0 Zh L1 3:31,2:30,50:I050::31,2:30,0ZrI0200:I:L :Z|:--- Segedlet szubrutin ---&[:" *** Szemlelteto program meroleges rezgesek abrazolasara ***":o["A program vezerlese egybetus parancsok segitsegevel lehetseges. ";[" Egy javasolt futtatas:"["'P' betu lenyomasara a program teriti a lehetseges parancsokat."\"Olvassa el figyelmesen ,majd 'U' betu leutese utan megadhatja a";:"rezgesek adatait. (Rajzolas kozben az 'M' betuvel kerhet segit-seget) . Ha elkeszult az abra, az 'A' betu leutesevel elmenthe-ti az 1-5. szamu lapra. Elmentes utan vissza";]"kerul parancs alla- potba, ahonnan ujabb rezgest vizsgalhat. Ha megteltek a lapok,parancs allapotbol az 1...5 szamok megnyomasaval lehet lapozni az abrak kozott.";^"A lapok kozti gyors valtasnak koszonhetoen jol ossza lehet hasonlitani egymassal a kulonbozo adatokkal jellem- zett rezgomozgasokat.";?^:"Ha elolvasta, nyomja meg a 'P' betut !"[^IS$: IS$"P" 1750a^^:--- Futyulo szubrutin ---^L02553:31,2:30,L::31,2:30,0:^:--- Program vege, port alaphelyzetbe ---^I013:31,I:30,0:::4_ HG1 31,2:I025515:30,I:J010:::30,0::_c_&:--- Ures lap kereso szubrutin ---_0@64442,"Szabad lapok:";_: (E3$)0 "1,";_D (F3$)0 "2,";_N (G3$)0 "3,";_X (H3$)0 "4,";_b (J3$)0 "5";`l@56443,"Abra eldobasa: 0";!`vI`:--- Rezges rajzolo szubrutin ---`:15);"A ket osszetevo idobeli lefutasa:": I3 125:(I,17):(I,38):` I9 24:(6,I):(6,21I):a@3641,"X";:@10641,"Y";:@56463,"T";:@126463,"T";:@642,"Tovabblepes: < SPACE >";;a 690:@64910,A1$;SP$;A2$;[a A10 A20 KK1: 2000a (A1)(A2) KK1(A1) : KK1(A2)aC10.8X:C2A116:C30.8Y:C4A216:D50:D610b ID5 D6KK:(I6,17C1((C2I)B1)):(I6,38C3((IC4)B2)): Ib " " 9bD5D6:D6D610: D6110 2000Mb " " 2030SbB