+ :Programme der Stoffsammlung (Kopf)8: :h"Das Programm -PROGSTOF.BAS- enthlt alle"("in der Stoffsammlung mit -PROGSTOF.BAS-"ǀ2:"und der laufenden Nr. gekennzeichneten"ۀ<:"Programme."F::"Das LISTEN der Programme erfolgt durch:"::"bei Prog. 1 durch LIST 100- 190":"bei Prog. 2 durch LIST 200- 290":"bei Prog. 3 durch LIST 300- 390":"bei Prog. 22 durch LIST 2200-2290 USW."ځK:"Der Aufruf der Programme erfolgt durch"L"Eingabe der laufenden Nr. !":+N" ---Ende der Arbeiten mit Nr.41---"hP:::"Geben Sie die gewnschte Programmnummer ein!";KZZ KZ d,,,,,,X,, ,,,L,,,x,,@,,,l,,4,,,` , ,( , , ,T , , , , ,H , ,,t,,<,,Td: programm nr. 1 "formatierung von festkommazahlen"xn: "Geben Sie eine Zahl ein !"x A A )"0.00": xB (A)Ӄ B ? B N  B  I :: I (((B))) I)A:xC "Festkommadarstellung nicht mglich !": xI|: programm nr. 2 "vervielfachen von zeichen" "Zeichen eingeben:";A$ "Faktor N :"; N N ̈́(N,A$)ބ::2: "Auerhalb meines Bereiches!": 1,: programm nr. 3 "abrunden"I6"ZAHL EINGEBEN:";AX@B (A)lJC d (A B)TD (C @P) d^:"GERUNDETE ZAHL=";BDh:r6ㅐ: programm nr. 4 "alphabetisch ordnen":"ZWEI WRTER EINGEBEN:";A$,B$7 (A$B$) X$ A$ : A$ B$ : B$ X$=M:,"1.";A$]:,"2.";B$e:k: programm nr. 5 "wahrheitsgehalt"†:"BELEGUNG DER LOG. FUNKTIONEN Y=X1^X2":"X1 UND X2 SIND MIT 1 ODER 0 ZU BELEGEN!"::"X1=";X1# X1  X1  1&"X2=";X2O0 X2  X2  &{: X1  X2  ,"Y=1":: ,"Y=0"DX: programm nr. 6 "men mit unterprogrammen"·b:"VOLUMENBERECHNUNG"g:"KUGEL 1"l"QUADER 2"q"KEGEL 3"v W-{ W ,,3P:"UNTERPROGRAMM KUGEL"Vt:"UNTERPROGRAMM QUADER"z:"UNTERPROGRAMM KEGEL"Ɉ:: programm nr. 7 "kreise zeichnen"Ԉ : "Schrittweite=";S : RRRS ) R c = (,d),R,J  PV| : programm nr. 8 "zhlschleife"*A4 , : A> 2HAARA :: 4\: programm nr. 9 "in. und u.schleife" A   B   # A B,+ B3 A9c: programm nr. 10 "kugeloberflche"rPI A1AP FO (R)  PI R R "RADIUS:";RĊ:"R =";R, "FO ="; FO (R)ʊԊ$ ڊ.L: programm nr. 11 "bildung neuer zeichenketten""VA$ "MAMAIA"+`,A$m: programm nr. 13 "arbeit mit datazeilen{ NA$,WO$( NA$2 WO$<FI I : I  nP Z HERBERT SACHS,BERLIN,EVA BERGER,POTSDAMd BERND FRIEDRICH, HALLE n7x: programm nr. 14 "tastaturabfrage"PA$ : A$"" | A$ "1" "TASTE 1 WURDE BETTIGT" A$ "2" "TASTE 2 WURDE BETTIGT"퍠 A$ "1" A$ "2" "ES WURDE EINE ANDERE TASTE BETTIGT" 9: programm nr. 15 "demonstration der anweisung CLEAR"b:"EINGABE DER WERTE FR X UND Y":o "X=";X| "Y=";YS X Y:"SUMME=";S"D X YƎ,:"DIFFERENZ=";DЎ6:: @: programm nr. 16 "arbeit mit der PRINT-anweisung""JA  : B d: C 1T:A, B, C9^:Ih A: B: CQr:_| A; B; Cg:m:PIA1@: programm nr.17 "sinus und cosinustabelle"̏:" X" )" SIN X")" COS X""---------------------------------"  X  PI X;.  );"##.##";(X);H );"##.##";(X)P XV: programm nr.18 "quadrat- und kubikzahlen" A  Q A&K A0Q,KĐ: AʐDl: programm nr. 19 "flcheninhalte" v A    B   -F A BF);A; );B;);FN BV A\: programm nr. 20 "die GOTO-anweisung" "x=";XY X"x=";X,"y=";YǑ: ͑ 4: programm nr. 21 "ON-GOTO-anweisung" 9, :"Men">, :"===="'C::@H"1=DATEN SORTIEREN"[M"2=KURVENDARSTELLUNG"lR"3=DRUCKEN"W"4=PROGRAMMENDE"\:: "MENNUMMER:";XŒa X X "NICHT IM MEN": \ߒf X k,u,z,k: "DATEN SORTIEREN"pd:4,u: "KURVENDARSTELLUNG":d:4Gz: "DRUCKEN":d:4c: "PROGRAMMENDE": di: programm nr. 22 "die GOSUB-anweisung""DAS IST EIN HAUPTPROGRAMM"“ ᓶ"WIEDER IM HAUPTPROGRAMM" "NOCH EINMAL DAS HAUPTPROGRAMM""SCHLUSS"%I" HIER IST UNTERPROGRAMM 1"Os" HIER IST UNTERPROGRAMM 2"y: programm nr. 23 "matrix" A (,)̔ A(,): A(,): A(,) I  : J  $ A(I,J),. J: I8 6` : programm nr. 24 "WINDOW bei screen 2"@j :Vt (,) (2,2)k~ (,) (2,2)s 2 (,) (2,2) d : programm nr. 25 "PSET-anweisung"ʕ :ٕ (d,2), (2,), ( : programm nr. 26 "PRESET-anweisung")2 :8< X dFF (X,2),NP XWZ dfd X drn (X,2)zx X : : programm nr. 27 "linie und rechteck" :Ж (2,2)(d,2),閪 (2,F)(d,Z),,B (, )(,d),,BF  9 : programm nr. 28 "interferenzbild"C :X I   m (,) (I,) (,) (,I)" I, 6 ̗T : programm nr. 29 "LINE mit relativkoordinaten"֗^ :h "X=";Xr "Y=";Y| : (X,Y)(2,),:2& (,2),:2< (2,),:2N (,2),V : : programm nr. 30 "CIRCLE-anweisung" : (,), , (F,x),,,,Ș (,P),(,,,,Ҙ : I 2  (I,dI),I, (I,dI),I,# (I,dI),I,8 (I,dI),I,@ IF L p : programm nr. 31 "ausfllen"y& :0 ( , )(,x),,B: (, ),D (,d),(,™N (,d),șX Ιb : programm nr. 32 "DRAW-anweisung" : (2,),& "u90e45f45d90l90", 2 h : programm nr. 33 "DRAW kombiniert mit S und X"q : (2,), B$"u10e5f5d10l10" I (  "S=I;XB$;"š IȚ* Κ4 H : programm nr. 34 "POINT-anweisung"R :W (h,h)(,),,BF)\ I AFa ( I, I)(,),,BFcf ( I, I)(,),,BFvk T((I,(I)p T z u Iz I A (hI,hI)(,),,BFכ (hI,hI)(,),,BFߛ I囎 뛘 # : programm nr. 35 "zeichenausgabe im grafikmodus", :D ( ,d)(,,d),[ (, )(,),p X   (X,c(X)), X "grp:" AS #:(,):#,"Y=SIN(X)"Ȝ #М:: programm nr. 36 "lschen von zeichen im grafikmodus(variante 1)"":<$(d,d)(2,2),,Be."grp:" AS #:(d,):#,"VIERECK"m82B(d,),:#,"VIERECK"L #V`t: programm nr. 37 "lschen von zeichen im grafikmodus(variante 2)"~:(,d),,*"grp:" AS #:(,2):#,"KREIS"3 2P(,2)(,),,BFY #_e: programm nr. 38 "INPUT$-anweisung"Ş"grp:" AS #:(,),:#,"xa=";ӞP: (P,),:#,"ya=";P:  #(XA,YA)(2,2),,B- d: 3:9 :W: *** WERTEEINGABE ***eX$"":ArH$$() H$( ) . H$"0" H$"9" "#,H$;&X$X$H$ԟ*AA: A . P XA(X$):: YA(X$)2<: programm nr. 39 "VOGEL"\F()()()($)(Z)()()()()P()()()()()()()()()ܠZ()()(B)($)()()()()()dn B  x B,B,: (): % B,B: (): < B,B: (): U B,B:" ": : B:t: programm nr. 40 "ball"~ :  ,:"Der Computer zeichnet im Hintergrund !"١  , :"*** Moment bitte ! ***"硳 I   ,I,, : :(,A)(+,A)% I K@P:: KE(nI,xI),,,,,KT (,),f I n I| I  ,I,, : :(,A)(+,A)(I,d(I)),,΢ (,),Ԣݢ d I ,I: I  ::  I! I  / ,I: 7 IA Gq"grp:" AS #:(l,l):#,"\\\ ///"y:"menue.bas"I! I  / ,I: 7 IA Gq"grp:" AS #:(l,l):#,"\\\ ///"y:"m