äî I#1:‰ 5$œBY GERD SICHERT8 œSEPTEMBER 1987>œRÝ0,31,0,39:à7:™lÝ3,28,3,36:â0,4:™:ž:ž•ž" VOM STRUKTOGRAMM ZUM PROGRAMM":žÅ#ž"**********************************":ž:ž:žè(ž" Menue: 1 = SEQUENZ":ž-ž" 2 = ALTERNATIVE":ž12ž" 3 = ZYKLUS":žY7ž" 4 = STRUKTOGRAMM":žƒ<ž" 5 = PROGRAMM":ž ¡>ž" 6 = ENDE"ÉAžá(25,5);" Ihre Wahl:":Z$´"":Z$´ÕÚBŠZ$´"1"©ˆ200ëCŠZ$´"2"©ˆ400üDŠZ$´"3"©ˆ600 EŠZ$´"4"©ˆ800FŠZ$´"5"©ˆ1000?GŠZ$´"6"©Ý0,31,0,39:â7,7:™:€SHŠZ$´""©ˆ65:Ôˆ80xKŽ: ON Z GOTO200,400,600,800,1000¢Pž:ž" F A L S C H E E I N G A B E !"ÔUž"==================================":Û20:ˆ25ÚZ€ûÈ™:ž:ž:ž" SEQUENZ"+Íž:ž"**********************************":ž:ž7ÒŒ 10000Q×X$´"":X$´Õ:ŠX$´""©215Üžá(13,6);"ANWEISUNG":žá(15,6);"ANWEISUNG"­ážá(17,6);"ANWEISUNG":žá(19,6);"ANWEISUNG"Ûæžá(20,10);":":žá(21,10);":":žá(22,10);":"ûëžá(23,10);":":žá(24,10);":"ðžá(25,6);"ANWEISUNG".õX$´"":X$´Õ:ŠX$´""©245HúÝ12,26,27,35:â0,6:™:ž|ÿž" Eine":ž:ž" SEQUENZ":ž:ž" ist eine":ž" Folge"§ž:ž" von An-":ž:ž" weisun-":ž:ž" gen."¿ žá(28,28);""ÚX$´"":X$´Õ:ŠX$´"" ˆ270âˆ25è€ ™:ž:ž:ž" ALTERNATIVE"7 •ž:ž"=================================="B šŒ10000M ŸŒ10100g ¤X$´"":X$´Õ:ŠX$´""©420 ©žá(13,11);"BEDINGUNG"› ®X$´"":X$´Õ:ŠX$´""©430À ³žá(10,5);"z.B.:I=0,I<>0,I<=0..."Ú ¸X$´"":X$´Õ:ŠX$´""©440ÿ ½žá(14,5);"WENN,":žá(15,5);"DANN" ÂX$´"":X$´Õ:ŠX$´""©450G Çžá(17,6);"ANWEISUNG":žá(19,6);"ANWEISUNG"| Ìžá(21,6);"ANWEISUNG":žá(22,10);":":žá(23,10);":"£ Ñžá(24,10);":":žá(25,6);"ANWEISUNG"½ ÖX$´"":X$´Õ:ŠX$´""©470ç Ûžá(14,21);"WENN":žá(15,18);"NICHT,D."ý àò207,159,207,39,0 åX$´"":X$´Õ:ŠX$´""©485G êžá(17,16);"ANWEISUNG":žá(19,16);"ANWEISUNG"} ïžá(21,16);"ANWEISUNG":žá(22,20);":":žá(23,20);":"¥ ôžá(24,20);":":žá(25,16);"ANWEISUNG"¿ ùX$´"":X$´Õ:ŠX$´""©505× þÝ12,26,27,35:â0,6:™ ž:ž:ž"Eine AL-":ž"TERNATIVEist eine". ž"Auswahl":ž"zwischen":ž"Verarbei-tungs-"X ž"moeglich-keiten":ž"(Verzwei-gung)."p žá(28,28);""Š X$´"":X$´Õ:ŠX$´""©535’ ˆ25˜ !€º X™:ž:ž:ž" ZYKLUS":žä ]ž"=================================="ï bŒ10000ú gŒ10200 lX$´"":X$´Õ:ŠX$´""©620. qžá(13,11);"BEDINGUNG"H vX$´"":X$´Õ:ŠX$´""©630k {žá(10,5);"z.B.: FOR I=0 TO 10"… €X$´"":X$´Õ:ŠX$´""©640µ …žá(16,10);"ANWEISUNG":žá(18,10);"ANWEISUNG"ì Šžá(20,10);"ANWEISUNG":žá(21,14);":":žá(22,14);":" "žá(23,14);":":žá(24,14);":":žá(25,10);"ANWEISUNG"<”X$´"":X$´Õ:ŠX$´""©660T™Ý12,26,27,35:â0,6:™„žž:ž:ž"Ein":ž"ZYKLUS":ž"ist eine":ž"Wieder-"¼£ž"holung":ž"von Ver-":ž"arbei-":ž"tungsvor-gaengen"Ô¨ž"(Schlei-":ž"fe)."ì­žá(28,28);""²X$´"":X$´Õ:ŠX$´""©690·ˆ25¼€, Ý1,30,1,38:â0,4:™:žP%ž:ž" STRUKTOGRAMM":ž~*ž"======================================"‰/Œ10300£4X$´"":X$´Õ:ŠX$´""©820º9Ý7,20,25,37:â0,6:™ø>ž:ž"Ein STRUKTO- GRAMM gibt":ž"den Ablauf ineinem infor-"2Cž"mationsverar-beitendem":ž"System in Ab-haengigkeit"lHž"von den je-":ž"weils vorhan-denen Daten":ž"wieder."„Mžá(28,28);""¤Rß6:„" ";X$ :ß0 ¬Wˆ20²\€ÈèÝ1,30,1,38:â0,4:™åíž:ž:ž" PROGRAMM"òž"====================================="÷Œ103008üX$´"":X$´Õ:ŠX$´""©1020kâ0,7:žá(5,4);"KREISFLAECHE":žá(6,4);"A=PI*R*R"†X$´"":X$´Õ:ŠX$´""©1030 â0,7:žá(10,8);"R="¸X$´"":X$´Õ:ŠX$´""©1040Ížá(13,11);"R<=0"èX$´"":X$´Õ:ŠX$´""©1050žá(16,4);"NEUE":žá(18,4);"EINGABE"*$X$´"":X$´Õ:ŠX$´""©1060B)žá(23,8);"A=PI*R*R"].X$´"":X$´Õ:ŠX$´""©1070o3žá(27,8);"A="Š8X$´"":X$´Õ:ŠX$´""©1080¡=Ý2,28,25,37:â0,6:™¼BX$´"":X$´Õ:ŠX$´""©1090ÑGžá(4,26);"10CLS"ìLX$´"":X$´Õ:ŠX$´""©1100'Qžá(6,26);"20?";Ì(34);"KREIS-":žá(7,28);"FLAECHE";Ì(34)BVX$´"":X$´Õ:ŠX$´""©1110e[žá(9,26);"30INPUT";Ì(34);"RA-"†`žá(10,28);"DIUS=";Ì(34);";R"¡eX$´"":X$´Õ:ŠX$´""©1125Ðjžá(13,26);"40IF R<=0" ëoX$´"":X$´Õ:ŠX$´""©1135tžá(17,28);"THEN 30"yX$´"":X$´Õ:ŠX$´""©11459~žá(22,26);"50A=PI*R*R"TƒX$´"":X$´Õ:ŠX$´""©1155‘ˆžá(25,26);"60?";Ì(34);"FLAE-":žá(26,28);"CHE=";Ì(34);";A¬X$´"":X$´Õ:ŠX$´""©1165Â’žá(28,26);"70END"Ñ—Z$´"":„ Z$øœé0,0:„"(RUN)";Z$:Š Z$µ³"RUN" ©1180¡™:ž:ž:ž:ž"KREISFLAECHE"5¦ž:ž:„"RADIUS=";R:žá(10,10);RF«Š Rµ´0 ©1190i°A´Ç®R®R:ž:ž:ž" FLAECHE=":ž:žAyµžá(27,10);A‘ºžá(28,28);""¬¿X$´"":X$´Õ:ŠX$´""©1215´Äˆ20ºÉ€Ð'ò39,159,207,159,0ä'ò39,39,207,39,0ø$'ò39,159,39,39,0.'ò207,159,207,39,08'*t'ò39,127,207,127,0@~'ò123,127,123,39,0Vˆ'ò39,159,123,127,0m’'ò120,127,207,159,0sœ'‰Ø'ò71,135,207,135,0â'ò71,135,71,39,0£ì'¹<(ò23,199,191,199,0ÍF(ò23,23,191,23,0áP(ò23,199,23,23,0÷Z(ò191,199,191,23,0 d(ò23,159,191,159,0#n(ò23,135,191,135,07x(ò23,95,191,95,0K‚(ò23,55,191,55,0Q¥(ŽWª(Ž]¯(Ž~´(žá(13,3);"W.,":žá(14,3);"D."„¹(ŽŠÃ(Ž Œò23,159,107,135,0·–(ò191,159,107,135,0Í (ò107,135,107,95,0é¥(X$´"":X$´Õ:ŠX$´""©10405ª(žá(8,4);"EINGABETEIL:" ¯(X$´"":X$´Õ:ŠX$´""©10415A´(žá(13,3);"W.,":žá(14,3);"D."f¶(žá(13,21);"W.":žá(14,18);"N.,D."‚¹(X$´"":X$´Õ:ŠX$´""©10425¤¾(žá(21,4);"VERARBEITUNGSTEIL:"ÀÃ(X$´"":X$´Õ:ŠX$´""©10435ÝÈ(žá(26,4);"AUSGABETEIL:" ãÒ(‚¹(X$´"":X$´Õ:ŠX$´""©104