: ROBOTERSTEUERUNG$ :O : D. BERNDT BBS"W.I. LENIN" VEB EKNz( : ---------------------------------2 :< :F : STEUERMODULP :Z , ǀd , Հn A( ,)xN:C:DDB W  A(W,) : A(W,) W; :,,,':,,:l:" DEMONSTRATION EINER INDUSTRIEROBOTER-"" -------------------------------------"" STEUERUNG"" ---------" ,:"SIMULATION EINES PROZESSES - 1"#:" STEUERUNG EINES REALEN PROZESSES - 2"h ,,,&:,,:::" WAEHLEN SIE EINE KENNZAHL ! ";AU$"":AU$: AU$"" AU$"1" AU$"2"  ,,,':,,:" ,:" DIE GEWUENSCHTE POSITION KANN ALS",:" ZAHLENWERT UEBER TASTATUR ODER IM"K6:" TEACH-IN-VERFAHREN EINGEGEBEN WER-"Z@:" DEN"pJ ,,,':,:T ,,,':O,:^,,,':,:" weiter mit >STOP<";:ȃc "" cӃh,:r::" Waehlen Sie eine Eingabevariante !"/|" ----------------------------------"X,:"Variante 1 : Tastatureingabe"y:" Variante 2 : Teach In" ,,,&:,:::" GEBEN SIE EIN (1/2) ! ";ɄVA$: VA$""  VA$"1" VA$"2" :: VA$"1" :/: AUFRUF MODUL "TASTATUREINGABE"Q::AUFRUF MODUL TEACH INZp,,,':,: (AU$) B ,: :AUFRUF MODUL PROZESSSTEUERUNG,,,':ą::" Steuerung wiederholen ? (J) :"ST$""ST$: ST$"" A& ST$"J" ST$"j" (AU$) B ,:G0Q:::|D " Programm nochmal starten ? (N) :"NPR$: PR$"" NX PR$"N" PR$"n"b:: xӆb,,,':,,:: نlv:: ENDE "STEUERMODUL": :,: MODUL "TASTATUREINGABE"4:J,,,':,:T::"Anzahl der Zwischenhalte (0<=N<=10):";N N N ҇,:"Beachten Sie ! ----(0<=N<=10)"ۇ Z ""   N I : ; ,:"Zwischenhalt Haltezeit"d*,:" (Max.:16) (Max.:60 S)"4,:"____________________________"HINRI,: "";A(I,)ڈ\ A(I,) I,:" ":RfI,: "";A(I,)p A(I,)< I,:" ":f'z IDI ,:"Stop :";A(I,)j A(I,) I ,:" ":wA(I,)} : : ENDE MODUL "TASTATUREINGABE" : :؉ : MODUL "TEACH IN" :,,,':,: ,:"Tastaturbeschreibung:">,:"-----------------------"c,:"Zwischenhalt : H-Taste"  ,:"Weiterlauf : L-Taste ,:"Stopp : S-Tasteߊ$,: "Anz. der Zwischenhalte : 0<=N<=10".,:,:" weiter mit >STOP<";:3 "" 3&8,:@B AU$"1" :_L ,:"Zwischenhalt :"V ,: "Haltezeit(in s) :"`  ,: "Stopp :"j,: "Zaehler :"׋t,,,:,:~::" STEUERUNG STARTET DURCH":" TASTE 'STOP'";+ "" C ,,,': ,:O ,XX$j X$"H" x ,, ,, X$"S" CC ,ό N ,:" " ,: C,: N,:" "(NN)2A(N,)CCZC1< C1:C2C2Td "L" x]ndxA(N,)2: ,: 2 : , ,: C (A(N,)C:: ENDE MODUL "TEACH IN"::: MODUL "PROZESSSTEUERUNG":/,,,':,:X,:"Zwischenhalte Haltezeiten",:"____________________________"",,,:,:,::" STEUERUNG STARTET DURCH"֎6:" TASTE 'STOP'";܎@B "" BD ,,,':,:J N Z : )T Z N>^ Z,: A(Z,)ShZ,: A(Z,)Yra| Zg| Z,: A(Z,) N ,: " "C P N P,,: "->";֏ CA(P,)  , ,, ,,CC:,: C< H ,X A(P,)2j P,: " " P & ,0 P,: "STOP";: ƐD̐NԐX:b: ENDE MODUL "PROZESSSTEUERUNG"l: v:0: MODUL "TEACH IN - SIMULATION"8:i,:"0 2 4 6 8 10 12 14 16":,:"Ĵ" ,,,":,:ґ::" STEUERUNG STARTET DURCH"ꑼ:" TASTE 'STOP'"; "" #,,,':,::,,,'T  ,: "Zhler Zwischenhalt Haltezeit" ,: "_________________________________"X: N: V :T  ,X,: "X"ђ*X$:X$"h" X$"H" p4T: ,X,: " ">XVHXV/RVXX@P:T ::XX@P:TH\X$"s" X$"S"Qf kp,:,X,: "*"zN ,:,:" W= ";X;" ";:A(N,)X:NNՓ,:N ,,: N: N , : A(N,)ݓS ER2 ER  "l" "L" .ER : 8SSQ,: ,:S;" s "WfA(N,)S,: N ,: A(N,) A(N,)X:,X: "*":NNΔ,:,:"W= ";X;" STOP"ޔ "" ,: "STOP: ";X:,:"weiter mit >STOP<":& ""  < ,,,':,:B J :q$ : ENDE MODUL "TEACH IN - SIMUL."y. :8 :B : MODUL"PROZESSSTEUERUNG - SIMUL."L :ȕV ,,,':,:X ,:"0 2 4 6 8 10 12 14 16":'` ,:"Ĵ"3 X:TJ  ,,,":,:n ::" STEUERUNG STARTET DURCH" :" TASTE 'STOP'"; ""  ,,,':,::,,,'  ,: "Zwischenhalt Haltezeit"  ,: "________________________" NZ:2 + ZNA Z ,: A(Z,)X Z ,: A(Z,)`( Zv2 Z ,: A(Z,)F Z NP Z ,: "->"d ,:,:" W= ";A(Z,)֗n ,:,A(Z,),: "*"x ,X,: "X" Z ,,: "->" (XA(Z,))  # S9 ER2  F ER | SA(Z,) Z ,: " ":ER :  ::  SS ,:,: S;" s "; И T: ,X: " ": Z ,: " " XA(Z,) T:XX@P:: XX@P:T x  Z+ ,: , : "STOP";8 NZR Z ,,: "STOP";z ,:,:"weiter mit >STOP<";: ""   ,,,':,: " :֙, : ENDE MODUL "PROZESSSTEUERUNG -6 : SIMULATION"