ROTACE <( ROTACE - 1P16 -MIPO- /12.3.88~: h "GLAVA":( F( ),L( ),XH(H),YH(H),V():2 AP(H,),X(, ),Y(, )< "INICIALIZACIJA" F"START"(P"CRT:M1":AI:@,"ZCO:CP:CLp)d ,0,, ,@)n,,<,, ,Lx , ,4,, ,, ,D,,0#[]\,,@", , ,6[@]\,\,"1- FUNKCE",,:\,,"2- KRESBA - PRUHLEDNA",,<\,.,"3- KRESBA - NEPRUHLEDNA",,-\,N,"H- NAVOD",,-\,n,"0- KONEC",,"TESTKEY""A$"1" :"DEFFJE":"START"AI(A$)) A$"2"A$"3":"IZRROT":"START" A$"H" :"START" A$"0" :: "START": "CHYBA ";;" V RADKU ";", "KOEFICIENTI"*6DQAP(LI,)AP(LI,)0@ DQ CZ@:"PRERR":GOT"START"OJAK(AP(LI,)AP(LI,))DQ:BK(AP(LI,)AK)DQ+TAK(AKAP(LI,))DQ:BK(BKAK)DQ^h "TESTKEY"r A$:A$"" r| "DEFFJE"*,:(P);"FUNKCE :"," 1- ZAPIS 2- VYPIS 3- VYMAZ"-" 4- GRAF 5- CLS 0- KONEC""TESTKEY"A$"1""VPISFJE": A$"2""LISTFJE": A$"3""BRISFJE": A$"4" "SLIKAFJE": A$"5": A$"H""HELP":  A$"0""START":: "VPISFJE"!"FUNKCE";A:KA:"NUM.VR."5 K K CZ:"PRERR": AK7& L(A) F(A)I:L(A)J:LII:: LIF(A)0:' +: LIH CZ:"PRERR": DN"B ";LIF(A)9X" = ";AP(LI,):KAP(LI,):"NUM.VR."bAP(LI,)K9l" ()= ";AP(LI,):KAP(LI,):"NUM.VR."vAP(LI,)K9"'()= ";AP(LI,):KAP(LI,):"NUM.VR."!AP(LI,)K:LILI"V12T1S0M4L1N16"%"- POKRACOVANI 0- KONEC""TESTKEY", A$"0"  :: A$(P) 5 LIL(A) 0 :: LIH "INSERT": 0( L(A)J L(A)LI:ILI4 L(A)F(A) L(A):F(A):II"SORT":"BRISFJE"  :"C ";A1  A A CZ:"PRERR":&L(A)CZ:"PRERR": "FRL":"O :";A1*"FRL":"D :";A24A1A1F(A):A2A2F(A):@> A1F(A) A1L(A) A2F(A) A2L(A) CZ :"PRERR":*H"FRL":"ZRUSIT FUNKCI ";A;" ? (A/N)"R"TESTKEY"\A$"N" ::“A$"A" R%f A2CZ:"PRERR":p A1A2A3A1:A1A2:A2A34z A1F(A) A2L(A)F(A):L(A): L(A)L(A)(A2A1)KA2A1KA2A1 LIA2 I"AP(LIK,)AP(LI,)"AP(LIK,)AP(LI,)"AP(LIK,)AP(LI,)  LI LI *F(LI)A2F(LI)F(LI)K:L(LI)L(LI)K  LI IIK"NUM.VR." ,"TESTKEY" $ ,. A$"/""/";K:::“ A$(P):8 A$"H""HELP":: BL"ROTDATA"V`" PARAMETRY ROTACE :""j"FUNKCE :";A:KA:"NUM.VR."5t K K CZ:"PRERR": j~AK"OSA ROTACE X,Y,FI,TH"#" X = ";X1:KX1:"NUM.VR." X1K#" Y = ";Y1:KY1:"NUM.VR." Y1K5" FI= ";FI4:KFI4:"NUM.VR." FI(K)5" TH= ";TH4:KTH4:"NUM.VR." TH(K) "KOEFICIENT ZVETSENI FP"#" FP= ";FP:KFP:"NUM.VR." FPK"POCET REZU SP"# " SP= ";SP:KSP:"NUM.VR."$SPK:SPH SP )"POCATECNI A KONCOVY UHEL ZK,KK"I(" ZK= ";(4KK4):K(4KK4):"NUM.VR."2KK((K))I<" KK= ";(4ZK4):K(4ZK4):"NUM.VR."FZK((K))P ZKKK KZK:ZKKK:KKKZ"V12T7S0M4L1N16" : 'd"- OPAKOVANI 0- KONEC"n"TESTKEY"'xA$"0" :: A$(P) n"ROTDATA""IZRROT"&:,p:,,." 1- PLOTTER 2- OBRAZOVKA 3- VYMAZ"." 4- BARVENI 5- KAZETA 0- KONEC"0"""TESTKEY":Q$A$A$"1"A$"2""ROTDATA"- L(A) CZ:"PRERR": xQ$"1""PLOTTER"::“Q$"2" ::“Q$"3"::“Q$"4""BARVE"::“Q$"0" F::“Q$"5" 2::“Q$"H""HELP"::   !K1((KKZK) {),CT(TH):ST(TH):CF(FI):SF(FI)FXAP(F(A),):DX(AP(L(A),)AP(F(A),))SP:LIF(A)" "KOEFICIENTI", JI SP:6 XAP(LI,) "INTERVAL": "KOEFICIENTI"~@YH(JI)AP(LI,)(AP(LI,)AK(XAP(LI,))BK(XAP(LI,))(XAP(LI,)))(XAP(LI,))JXH(JI)X: XXDX T JIR^ JISP:XH(JI)XH(JI)FP:YH(JI)YH(JI)FP:JI:YH()YH()FP.hK1DKKKZK:K1::DK {rTKZK:E1:E2B|STZ:KSP:DQ::ZSP:K:DQ II K1CZ(TK):SZ(TK)?X(E1,II)X1((XH(Z)CTYH(Z)CZST)CFYH(Z)SZSF)MY(E1,II)GY1((XH(Z)CTYH(Z)CZST)SFYH(Z)SZCF)Y TKTKDK  II JIZDQ K DQ TKZKV0DQ(YH(JI)YH(JIDQ))DXDQ(XH(JI)XH(JIDQ)) II K1CZ(TK):SZ(TK)BX(E2,II)X1((XH(JI)CTYH(JI)CZST)CFYH(JI)SZSF)PY(E2,II)GY1((XH(JI)CTYH(JI)CZST)SFYH(JI)SZCF)YCZ(TK~ y)+X(,II)(V0STDXCZCT) &TKTKDK 0 II:AI"HIRES"DAI"BARES"NPE1:E1E2:E2PXJI'bTTTT:TN: : l v"PLOTTER" "PLOTTER JE READY ? (A/N)""TESTKEY"A$"N"::“A$"A" TN: :GR% "BARVA PERA ";BP:BP:TT   "PLIN"0KP@:X(E1,II)KP,(GY(E1,II))KP%P,X(E1,II)KP,(GY(E1,II))KP,X(E1,II)KP,(GY(E1,II))KP,X(E2,II)KP,(GY(E2,II))KP,X(E2,II)KP,(GY(E2,II))KP,X(E1,II)KP,(GY(E1,II))KP "LIN"[P]X(E1,II),Y(E1,II),X(E1,II),Y(E1,II),X(E2,II),Y(E2,II),X(E2,II),Y(E2,II),X(E1,II),Y(E1,II)"SREDINA" A1X(E2,II)X(E1,II) A2Y(E2,II)Y(E1,II) B1X(E2,II)X(E1,II) *B2Y(E2,II)Y(E1,II) 4XA1A1A2A2:YB1B1B2B2>SA1B2A2B1:SSS HXYXY)R SXXX(E1,II):YY(E1,II):A\X(X(E1,II)X(E1,II)X(E2,II)X(E2,II))AfY(Y(E1,II)Y(E1,II)Y(E2,II)Y(E2,II))pz"INTERVAL": XAP(LI,) LIL(A)LILI:  "HIRES"TT 2 II K1:P:"LIN":II:: P'IIK1:"PLIN":II: "BARES" II K1 X(,II) , ,  P:TT"LIN"/TT"SREDINA":[]X,Y,P@:TT"LIN"  II II K1 X(,II) B , B , $ )$ P:TT"LIN"::"PLIN"/. TT"SREDINA":[]X,Y,8 P@:TT"LIN" B II: L "SORT"V L(A)` IIF(A):KL(A)j JL(A) II *t AP(J,)AP(J,) I~ A1AP(J,):A2AP(J,):A3AP(J,)% AP(J,)AP(J,)% AP(J,)AP(J,)% AP(J,)AP(J,) AP(J,)A1 AP(J,)A2 AP(J,)A3 KJ J IIK:KL(A) IIL(A) j   "INSERT" II  5 L(II)LI L(II)L(II):F(II)F(II) II III LI '( AP(II,)AP(II,)'2 AP(II,)AP(II,)'< AP(II,)AP(II,)F IIP II:L(A)LIZ d "LISTFJE" n ""x "VYPIS FUNKCE ";A:KA "NUM.VR."4 K K CZ:"PRERR": x  AK& L(A)CZ:"PRERR":* " ' " IIF(A)L(A)) ""X (@);IIF(A);();"#####.##";AP(II,);AP(II,);AP(II,) ,A "";();"";();"";(@);"";();"" II  "- VYPIS 0- KONEC" "TESTKEY", A$(P)"LISTFJE"::“A$"0"   : " "BARVE"', "BARVA POZADI";CO:KCO:"NUM.VR."86 K Kp COK::CZ@:"PRERR": , #@ "FRL":"BARVA PLOCHY";CP:KCPJ "NUM.VR."8T K Kp CPK::CZ@:"PRERR": @ -^ "FRL":"BARVA CARY ";CL:KCL:"NUM.VR."8h K Kp CLK::CZ@:"PRERR": ^ 2r CO` ,::,p| ,CO AI,CP "FRL") AI,CL::@,CL  "SLIKAFJE" ,( "";"FUNKCE ";A:KA:"NUM.VR." AK& L(A)CZ:"PRERR":J XAP(F(A),):DX(AP(L(A),)AP(F(A),))H:LIF(A) "KOEFICIENTI" JI H JI;(): XAP(LI,) "INTERVAL": "KOEFICIENTI"~ YH(JI)AP(LI,)(AP(LI,)AK(XAP(LI,))BK(XAP(LI,))(XAP(LI,)))(XAP(LI,)) XH(JI)X: XXDX & JI"0 , ,,8: JI @(D HJI,8,HJI, 0N HJI,@:"###";HJIX JIb JI 6l ,8JI ,,8JI 9v ,(4JI ):"###";JIH JI JIF(A) L(A)M AP(JI,),8AP(JI,)3333,,3333 JI JI Fh XH(JI),8YH(JI)3333,XH(JI),8YH(JI)3333 JI: "GLAVA" "CRT:M1": [@,]H, ,"ROTACE",,E [,]J,(,"ROTACE",,:""0 "" "ROTACIJE 3 V1.0* "C (C) 1986 PETAR H."$ " U : M P" ();"D 9"* ();"150 00 P 5 - K"0* "" 4 z> H "INICIALIZACIJA"\R 0,0,10,13.39,50,1.73,29.28,70.71,1,100,100,0,170.71,70.71,-1,186.6,50,-1.73,200,0,-10>\ 0,150,0,20,20,0,130,20,0,170,120,1,240,150,0,300,130,-1Lf 0,140,-.9,45,110,-.6,90,90,-.5,135,70.7,.71,180,20,1,240,60,0,300,0,1?p 0,0,.5,50,50,.5,100,100,0,130,100,-.5,180,50,-.5,230,0,0z 160,10,90,-25,1,10,0,360 II H0 AP(II,),AP(II,),AP(II,) II& F():L()@& F()`:L()@& F()P:L()& F(@) :L(@)H IP X1,Y1,FI,TH,FP,SP,KK,ZK FI(FI):TH(TH) KK((KK)) ZK((ZK)) "HELP"0:*, ,"I",,,@:M@_$" T - , ."." O ,. P , - / ."V8" P - 4 ."0B" P H ."0L,8:(P);"S "V"TESTKEY"`A$(P) Vj:" F , () '(). J 11 (0-10) - 100 ."}t" H - 0 600 . H () '() ."0~,8:(P);"S ""TESTKEY"A$(P) $:"PREHLED FUNKCI PROGRAMU :""1 - FUNKCE :"b" 1=ZAPIS : , ";(M);" ";(M);""`" 2=VYPIS : ":" 3=VYMAZ : , ";(M);""|" 4=GRAF : ":" 5=CLS : ":" 0=KONEC : ";(M);""0,8:(P);"S ""TESTKEY"A$(P) :"2,3 - KRESBA (PRUHLEDNA/NEPRUHLEDNA) :":" 1=PLOTTER : MZ-1P16":" 2=OBRAZOVKA : TV":" 3=VYMAZ : "" 4=BARVY : ":" 5=KAZETA : /1/ ";(M);" /2/ ":" 0=KONEC : ";(M);" "T"H - NAVOD : ":"0 - KONEC : "0 ,8:(P);"S ""TESTKEY"A$(P) (:2:'****** KASETA ******.<" 1- ZAPIS 2- CTENI 0- KONEC"FA$: A$"" F(P A$"1"AI n::: ::(Z A$"2"AI ::: :d A$"0":: Fn:'****** SHRANI ******x ,[,();"RECORD.PLAY"!#,"SLIKA":, II `(~,A$,A$)#,A$  II ,[,:, II `(~,A$,A$)#,A$  II #:'****** NALOZI ****** ,[,();"PLAY" " ^!,#,"SLIKA":,6K1_ : @ ,[,:,JK1_ :  T#^h:'****** INIT M/C ******]r ~,,,,,,,*,,,,,",,,,,,,,e| ~,,,H,,,,*,,,,,,,S,,,,,,,,#:'****** 255*31 ZNAKOV ******II:B$""#,A$K(A$)(B$)(A$) B$A$:  K B$B$A$(P): KB$B$A$: -K"ALI SE JE ZGODILO NEMOGOCE?" :'KONEC (B$) (~,B$)IIII(B$) B$""&IIK1 0!::'****** SHRANI HIRES ******D,,N();"RECORD.PLAY"X#,"SLIKA.HIRES"b II xl(~,A$,A$)v#,A$II #!:'****** NALOZI.HIRES ****** ,,();"PLAY"#,"SLIKA.HIRES"K1w:  # "PRERR" ER$(`)8ER$()"# CISLO FUNKCE MUZE BYT JEN 0 AZ 10 #"-ER$()"# TATO FUNKCE NEEXISTUJE #", ER$(@)"# TATO BARVA NEEXISTUJE #"9ER$()"# PREKROCEN POVOLENY POCET FUN. BODU #"' ER$( )"# NEEXISTUJICI BOD #"* I  4: ER$(CZ):z>"FRL":H: IHER$(CZ): R"FRL"1\FR$" ""f,pFR$:,: