URajzol[ UC AZDMX255:MY191*D:(2);"]lltsd le a magn[t!";=D! I1 3333:CD(dD2$ 8,10,(2);"Rajzol[";(18)D<O1105:O290:R50: 1300DFX1105:Y1190:X215:Y240: 2400DHX115:Y140:X2195:Y240: 2400DKX1105:Y1190:X2nU195:Y240: 2400EM X1 200: X EPER$ 2,0,"E program segts`g`vel k|r|ket `s szaka-": "szokat rajzolhatunk a k`perny{n l}that[":"koordin}ta-rendszerbe."ET:"Szakasz: |sszek|ti az (X1,Y1) `s (X2,Y2)":" koordin}t}j_ pontokat"+FVU:"K|r : megrajzolja az (O1,O2) k|z`p-":" pont_, R sugar_ k|rt"=FZ "" 90NFd:$0,0,(6)pF X0 MX:(X,0): 100,1: XF Y0 MY:(0,Y): 100,1: YF$ 3,0,"150";:$ 7,0,"100";:$ 11,0,"50";G$ 15,7,"50";:$ 15,15,"100DU";:$15,23,"150";:$ 15,31,"200";7G,$ 0,1," "oG6$ 0,1,;: "K|rt(K) vagy szakaszt(S) rajzoljunk";G$~G@G$(G$,1)GT G$"K" G$"k" 1000Gh G$"S" G$"s" 2000G| (G$"K" G$"k" G$"S" 6UG$"s") 300%H$ 0,1," "WH$ 0,1,;: "Ugyanezen a rajzon folytassuk";G$H G$"N" G$"n" G$"NEM" G$"nem" 1500 : 300H$ 0,1," "H$ 0,10,;: "O1=";O1&UI O10 $ 0,10,"T_l kicsi!";: 300,500: 1000HI$ O1MX $ 0,10,"T_l nagy!";: 300,500: 1000~I8$ 0,1," "IL$ 0,10,;: "O2=";O2I` O20 $ 0,10,"T_l kicsi!";: 300,500: 1080It O2MY $ 0,1U0,"T_l nagy!";: 300,500: 10805J$ 0,1," "LJ$ 0,10,;: "R=";RJ R1 $ 0,10,"T_l kicsi!";: 300,500: 1160J RMY2 $ 0,10,"T_l nagy!";: 300,500: 1160J k|rJ K!0.03 6.3RJ(R!K!RuUJ2XO1R(R!):YO2R(R!)#K< XMX X0 YMY Y0 14505KF(X,Y): 20,1;KAK~KG$"":$0,1," ";: "Folytat[dj`k ez a program";G$K G$"N" G$"n" G$"NEM" G$"nem" 1560 : 100K:$8,0,(2);"Indtsd el a magn[t!":U ;(1)K"!L$ 0,1," ":L$ 0,10,;: "X1=";X1nL X10 $ 0,10,"T_l kicsi!";: 300,500: 2000L  X1MX $ 0,10,"T_l nagy!";: 300,500: 2000L $ 0,1," "L4$ U0,10,;: "Y1=";Y1%MH Y10 $ 0,10,"T_l kicsi!";: 300,500: 2080YM\ Y1MY $ 0,10,"T_l nagy!";: 300,500: 2080Mp$ 0,1," "M$ 0,10,;: "X2=";X2M X20 $ 0,10,"T_l kicsi!";: 300,500: 2160NfU  X2MX $ 0,10,"T_l nagy!";: 300,500: 2160FN$ 0,1," "_N$ 0,10,;: "Y2=";Y2N Y20 $ 0,10,"T_l kicsi!";: 300,500: 2240N Y2MY $ 0,10,"T_l nagy!";: 300,500: 2240N X1X2 Y1Y2 (U X1,Y1): 100,50: 2999gO` (X2X1) (Y2Y1) ST(X2X1)(X2X1): XX1 X2 ST:YY1(XX1)(Y2Y1)(X2X1):(X,Y): 100,1: XO (X2X1) (Y2Y1) ST(Y2Y1)(Y2Y1): YY1 Y2 ST:XX1(YY1)(X2X1)(Y2Y1):(X,Y): 100,1: YO Ъ