,75,21,237,75,13,10,75,10,247,75,13VA10,75,17,103,75,13,10,75,11,158,75,13,10,75,19,137,75,13,10,75,11,158B75,13,10,75,16,109,75,13,10,75,11,158,75,13,10,75,16,109,75,13,10,75,10C247,75,13,10,75,17,103,75,13,10,75,8,180,300,1,1,1500,-1,-1,0M96kofMM6kٮjgyM6ky6wٮsfM6kٮoTMntwٮsfM6kٮjdofM6wٮkfigyM96kofMM6kٮjgyM+[5)3M6kٮjgyMy6k96wٮsfM6ifjg9jf6kfjvkeٮM)J -BEFEHL NACHLADEN:"<2"11/2LEKTION : BALLBEWEGUNGEN"j<"11/3LEKTION : ABSCHREIBUNGSPROGRAMM"F"11/4LEKTION : ADRESSENLISTE"P"11/5LEKTION : MITTELWERT UND":14)"STANDARDABWEICHUNG"Z"11/6LEKTION : WORTSPIEL"d"6)"STOP-TASTE UND GEBEN EIN."Z"UND NUN VIEL SPASS BEIM BETRACHTEN DER""BEISPIELE UND IHREN ERSTEN EIGENEN""PROGRAMMIERVERSUCHEN."A$:A$""200"":10)"BITTE LADEN SIE!"Z1700:Z 0,2,5:4,2,28 "  << ZUORDNUNG >>"i"DIESES PROGRAMM ORDNET BIS ZU 100 NAMEN""NACH DER GROESSE DER ZUGEORDNETEN WERTE.";"ZUM BEISPIEL: BERGE NACH HOEHEN"2 N$(100), S(100), PT(100)< "WIEVIELE EIUNG ZU SEHEN.\ ES WIRD DER INDEX DES GROESSTEN WERTES IN PT GESPEICHERT, DANN DER INDEX DES NAECHSTGROESSTEN, USW. I 1 NM 99999 J 1 N S(J) M 230M S(J)IS JPT3 "M"STANDARDABWEICHUNG IST"Sݹ+rIve)2\e/9R*J:IvR*Jm]eJJW7)KLUsvR]_w={ϒeuܷIw)rWyv]*R.NRRӷ.Nܥ'i˔tJmW7KNܹ;r=w-]*RRәs)JVs۔RsJw]s|)|*J)J? X20:SC25:""DI15:"":((1)40))"*"::(27)"W"ZSCSC1:SC9080o(4031X)4270(4031X,81:A$:A$"M"X39XX12A$"Z"X0XX1<20F"CRASH!!!!! PUNKTE:";SCKP"SEHR GUT!!!": (142)(8):" THIS MUSIK DEMO IS WRITTEN BY"k " " " " " óɫɫɫ "" " " 0:53281,0N SI54272:FLSI:FHSI1:TLSI2:THSI3:WSI4:ASI5:HSI6:LSI24v L,15:TH,13:TL,15:A,31615:H,9 X:Y:D X133 X121 FH,X:FL,Y W,65 T1D1.3: W,0 25 !I1D::257 "10,247,75,13,75,13,10,75,11,158,75,13,10,75f &16,109,75,13,10,75,8,180,75,13,10,75,17,103,75,13,10,75,8,55,75,13,10,75 '19,137,75,13,10,75,8,180,75,13,10,75,21,237,75,13,10,75,10,247,75,13,10 (75,17,103,75,13,10,75,11,158,75,13,10,75,19,137,75,13,10,75,15,11,158,75,13,10,75,19,137,75,13,10,75,9,196,75,13,10,75,16,109~-75,13,10,75,10,247,75,13,10,75,17,103,75,13,10,75,11,158,75,13,10,75.16,109,75,13,10,75,8,180,75,13,10,75,17,103,75,13,10,75,8,55,75,13,10,75/19,137,75,13,10,75,8,180,75,13,1 75,16,109,75,13,10O375,10,247,75,13,10,75,17,103,75,13,10,75,8,180,75,13,10,75,21,237,75,13410,75,8,55,75,13,10,75,23,59,75,13,10,75,8,180,75,13,10,75,21,237,75513,10,75,13,10,75,16,109,75,26,20,75,16,109,75,11,158,75,13,10,75,1616109,711/7LEKTION : ZUORDNUNG"(iA$:A$""1051k""^n"BEM.: HABEN SIE DAS PROGRAMM GE-"x6)"LADEN, SO KOENNEN SIE ES MIT ";" STARTEN.":6)"MOECHTEN SIE DAS PROGRAMMLISTING"6)"SEHEN, SO DRUECKEN SIE DANN DIE "'5,13,10,75,10,247,75,13,10,75,17,103,75,13,10,75,11,158,75,13,10,75{719,137,75,13,10,75,8,180,75,13,10,75,21,237,75,13,10,75,10,247,75,13810,75,17,103,75,13,10,75,11,158,75,13,10,75,19,137,75,13,10,75,11,158975,13,10,75,16,109,75,13,10,75,1NGABEN WERDEN GEMACHT?"F NHP"EINGABE VON "N" NAMEN UND WERTEN"Z"(DRUECKE NACH JEDEM NAMEN,WERT-PAAR":"DIE RETURN-TASTE.)"d I 1 Nn N$(I),S(I)x BITTE TIPPEN SIE LIST -74 EIN, UM DEN ANFANG DER AUFLIST(I) ISS(IS) S(IS)$""C "RANG NAME WERT"S" I 1 Na,K PT(I)6 I;" "N$(K);" ";S(K)@J"WEITERE EINGABEN JA/NEIN ":A$TA$"JA"^A$"NEIN"h330 "DER MITTELWERT IST 1,158,75,13,10,75,16,109,75,13,10,75,10E:247,75,13,10,75,17,103,75,13,10,75,8,180,300;7,193,75,13,10,75,16,109,75,13,10,75,11,158,75,13,10,75,16,109,75,13,10<75,10,247,75,13,10,75,17,103,75,13,10,75,8,180,75,13,10,75,21,237,75,13)=10,75,8,55,75,13,10,75,23,59,75,13,10,75,8,180,75,13,10,75,21,237,75s>13,10,75,13,10,75,16,109,75,26,20,75,16,109,75,11,158,75,13,10,75,16?109,75,13,10,75,10,247,75,13,10,75,17,103,75,13,10,75,11,158,75,13,10,75 @19,137,75,13,10,75,8,180,75,13,10 "C " GREETINGS TO:"g " D-SOFT,A-SOFT" " EAGLE-SOFT, TRAID, SEVEN ELEVEN" " AND... D-SOFT, NEXT TIME, DON'T DRAW" " FROM MY MODEL!"  53280,3,10,75,17,103,75,13,10,75,11,158,75,13,10,75,19,137,75,13,10 #75,8,180,75,13,10,75,21,237,75,13,10,75,10,247,75,13,10,75,17,103,75 $13,10,75,11,158,75,13,10,75,19,137,75,13,10,75,9,196,75,13,10,75,16,109 %75,13,10,75,10,247,75,13,10,75,17,10 1,158,75,13O )10,75,16,109,75,13,10,75,10,247,75,13,10,75,17,103,75,13,10,75,8,180,300 *10,247,75,13,10,75,17,103,75,13,10,75,11,158,75,13,10,75,19,137,75,13,10 +75,8,180,75,13,10,75,21,237,75,13,10,75,10,247,75,13,10,75,17,103,754,13,10,7 0,75,21,237,75,13,10,75,10,247,75,13,10g075,17,103,75,13,10,75,11,158,75,13,10,75,19,137,75,13,10,75,11,158,75,13110,75,16,109,75,13,10,75,10,247,75,13,10,75,17,103,75,13,10,75,8,180,30027,193,75,13,10,75,16,109,75,13,10,75,11,158,75,13,10,3:1323,13:239,5uMRvdRVws\mv]WzRrj2yM٪z6wfךMR\J)ךMkM79jfzr٦rys)6r)J  (8)(142):15ւ20,2,7:4,2,5:50DA$:A$""30L(:2""14)"LEKTION 10/9":12)"MEHRFARBENGRAFIK":17)"TEIL 1":30:"ARBEITET MAN MIT DER HOCHAUFLOESENDEN":"GRAFIK, SO KANN MAN OHNE EINSCHRAENKUN-"n DIE AUFLOESUNG IN":"HORIZONTALER RICHTUNG VON":"320 AUF 160 PUNKTE AB.":30:"DER MEHRFARBENMODUS WIRD MIT DEM"C" GRAPHIC-BEFEHL  EINGESCHALTET.":"IN ANALOGIE ZUM HOCHAUFLOESUNGS-MODUS":"KANN AUCH HIER MIT":" GRAPHIC3,X  DER GANZEEN"6"X=1: DER GRAFIKBILDSCHIRM WIRD":"GELOESCHT":30:"DIE FARBEN VON BILDSCHIRM UND ZEICHEN":"KOENNEN WIE BISHER MIT":"COLOR0 UND";:" COLOR1":"GEWAHLT WERDEN.";Ch"ZUSAETZLICH KOENNEN":"JEDOCH MIT":"COLOR230:4,11,1:1,80,80,35,2,6,1:2,30,15,125,120H3,9,2:3,5,100140,14030:500520:30:"DAS GLEICHE IM MEHRFARBENMODUS"::30:0:"":1,6,15,"ENDE VON LEKTION 10 TEIL 9":ޜ:FI$"10/10LEKTION"T11000::0,7,0:4,7,0:1,7,0 (8)(142)15 ւ0(8)(142)860J(A$:A$""40P2Y<3,1gF0,1:4,1rP1,7,2}Z2,6,4d3,5,2i1,14,8,"LEKTION 10/10"n3,12,10,"MEHRFARBENGRAFIK"x1,17,12,"TEIL 2"3,80,80,70,703,80,80,65,BEN"1"IST EIN BEISPIEL FUER MEHRFARBENGRAFIK."W@"DIE TITELBUCHSTABEN WURDEN"J"VERGROEBERT DARGESTELLT, DA DIE AUFLOE-"T"SUNG IM MEHRFARBENMODUS GERINGER ALS IM"^"TEXT- ODER HOCHAUFLOESUNGSMODUS IST."c"(HORIZONTAL NUR 12)"COLOR-BEFEHLE"40-0,1:4,164,1P1,6,2:2,7,2:3,12,2"IM MEHRFARBENMODUS KOENNEN MIT COLOR1,"K11021,80,80,3.5K,7040"COLOR2";&K01002,80,80,35,7K:D40IK")"KOENNEN NUR DIE FARBEN GEAENDERT WERDEN,"X"DIE DURCH COLOR3 DEFINIERT WURDEN.":`40i770t40:0{ޜ"":4)" ENDE VON LEKTION 10 ""DIE FOLGENDEN LEKTIONEN 11/1 BIS 11/7""LADEN SIE B ECKEN GEZEICHNET (PW=360/N)."630:"NICHT BENUTZTE PARAMETER MUESSEN DURCH":"KOMMATA ERSETZT WERDEN, WENN EIN WEI-":"TERER PARAMETER RECHTS DAVON EINGEGEBEN":"WIRD.":"BEISPIEL EINES CIRCLE-BEFEHLS MIT"h"DW ALS LETZTER EINGABE"80X,2X,813X::30:0:"":1,6,15,"ENDE VON LEKTION 10 TEIL 6 "ޜ:FI$"10/7LEKTION":T11000::0,7,0:4,7,0:1,7,0:"LOAD"(34)FI$(34)",1":0,9,5,"ES WIRD NACHGELADEN":0,12,9,"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,210,10,1:4,10,1 C$""R "":I139:C$;::I122:""C$;::"";o I138:""C$"";::C$I123:""C$"";:""13)"LEKTION 11"A$:A$""25"":"FOLGENDE BEISPIELE KOENNEN SIE MIT DEM"("LOAD"GEN NUR ZWEI FARBEN VERWENDEN.":"VERSCHIEDENFARBIGE KURVEN FAERBEN Z.B.":"IN DER UMGEBUNG VON SCHNITTPUNKTEN AUF-":"EINANDER AB.":"IM  MEHRFARBEN-MODUS  IST ES MOEGLICH,"r"4 FARBEN BELIEBIG EINZUSETZEN. ALLER-":"DINGS SINKT DABEI  BILDSCHIRM":"UND MIT":" GRAPHIC4,X  DER OBERE BILDSCHIRMBEREICH""IN DEN GRAFIK-MODUS UMGESCHALTET WERDEN.":"DIE UNTERSTEN 5 ZEILEN KOENNEN AUCH HIER":"ZUM AUSDRUCK VON TEXT BENUTZT WERDEN.":"X=0: DER GRAFIKBILDSCHIRM BLEIBT":"ERHALT";:" UND COLOR3":"ZWEI WEITERE FARBEN VER";:"WENDET WERDEN.":30:2,1Y1,1:1,160,80,70u1,6,1:1,60,15,250,1201,4,2:1,10,100280,14030:1,1:410430:30:"UEBERLAGERUNG VERSCHIEDENER FARBEN"IM HOCHAUFLOESUNGSMODUS"::"LOAD"(34)FI$(34)",1"[0,9,5,"ES WIRD NACHGELADEN":0,12,9,"MOMENT BITTE !":1,7,0:1319,191320,13:1321,82:1322,213:1323,13:239,5mv]WzJ)sݗ6Je)gYٓ)JkYjs\mv]WzRRirj2yM٪z6wfךMu)J651,80,80,60,60&1,80,80,55,5593,80,80,50,50L3,80,80,45,45_2,80,80,40,40r2,80,80,35,353,80,12:1,80,22:3,80,32:2,80,44407704000,2,5:4,2,5"DER VORSPANN, DEN SIE EBEN GESEHEN HA160 STATT 320 PUNKTE)."Bh"NOCH EINMAL DEN VORSPANN? (J/N)"UrA$:A$""370d|A$"J"60uA$"N"370"DER FARBWECHSEL WURDE SO PROGRAMMIERT:"1,3,1:77085040"ZUM SCHLUSS NOCH EINE KLEINE DEMO DER"N" UND COLOR3 DIE FARBEN EINER">X"GRAFIK FESTGELEGT WERDEN."Xb3,80,80,40,40,53,307rl3,80,80,57,57,25,337v3,80,80,35,70,290,3193,80,80,35,70,43,703,80,130400,1:4,1"IN EINER BEREITS AUSGEDRUCKTEN GRAFITTE SELBST MIT LOAD NACH" X216+ Y0763,X,YD K130:R*Y701]43,X,Yk>K140:qHwR}\zJs\mv]WzJ+2)v,RZֵkZֵv\)u\]w=ޒ5vewzJVk'e󒦹UIJWzRe'5szJ|ݗ>Jt)J :"CIRCLE1,40,50,23,45,,,45":30:"ZUR ERINNERUNG HIER NOCH EINMAL DAS":"FORMAT DES CIRCLE-BEFEHLS.":"CIRCLE1,XM,YM,RX,RY,AW,EW,DW,PW "830:2,1:4,2,3:1,1:"10 FORX=1TO27":"20 CIRCLE1,8*X,80-X,2*X,81-3*X":"30 NEXT":X127:1,8X,  (8)(142):15ւ20,2,7:4,2,5:80"":I139:C$;::I122:""C$;::"";:I138:""C$"";::C$:I123:""C$"";::<A$:A$""60F:\PZ$(34):C$"":30:""14)"LEKTION 10/4":12)"HOCHAUFLOESEND "DIESE KOORDINATEN KOENNEN NATUERLICH""AUCH VARIABLEN IN EINER FORMEL SEIN.":"DADURCH LASSEN SICH GRAPHEN KOMPLIZIER-":"TER FUNKTIONEN AUF EINFACHE WEISE":"ZEICHNEN.":"SO LAESST SICH SELBST DIE RELATIV""KOMPLIZIERTE ZEIT-AMPLITUDEN-G ESE FORMEL.""A$:A$""290,0,1:4,1:2,1:"WIR HABEN JETZT MIT GRAPHIC 2,1 EINEN":"SPLIT-SCREEN ERZEUGT. IM OBEREN BILD-":"TEIL ERSCHEINT DIE GRAFIK ,IM UNTEREN":"BEREICH DIE ZUGEHOERIGE FORMEL."^A$:A$""350h"10 FORX=0T͜:FI$"10/5LEKTION":T11000::0,7,0:4,7,0:1,7,0:"LOAD"(34)FI$(34)",1":0,9,5,"ES WIRD NACHGELADEN":0,12,9,"MOMENT BITTE !":1,7,01319,19:1320,13:1321,82:1322,213:1323,13:239,5ٮoe'=s)u])sݷu]*kv\*n)Jz)J (8)(142):15ւ20,2,7:4,2,5:80"":I139:C$;::I122:""C$;::"";:I138:""C$"";::C$:I123:""C$"";::<A$:A$""60F:{PZ$(34):C$"":30:""14)"LEKTION 10/5":12)"HOCHAUFLOESENDTTE":1,3,2:1,22,12,"(160,100)":1,7,2:X0131:1,165X,103(.625X):K13:::1,28,24,"RECHTS UNTEN":1,3,21,28,23,"(319,199)":1,7,2:K1500::1,0,24,"LINKS UNTEN":1,3,2:1,0,23,"(0,199)":1,7,1:X0279:1,28X,182(.625X):X130X136ETE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5JRgYٓ)JkYsݷu]JzJkӦjz6wfכM^kgy6jIs\75rIg9Y֝gfN֛y&sJM%*o]ʚMIOs9)v_':JwMu5szRM)6ye%=u]={I{e)J EINE GERADE MITEINAN-":"DER ZU VERBINDEN, BENUTZT MAN DEN BEFEHL" " DRAW1,X1,Y1TOX2,Y2 ":"EIN POLYGON, DESSEN ECKEN DURCH DIE ":"KOORDINATEN (X1,Y1),(X2,Y2),(X3,Y3)...":"FESTGELEGT SIND,LAESST SICH ZEICHNEN MIT":"DRAW1,X1,Y1TOX9*SIN(2**X/630),0TO319-X,160":"30 NEXT":X53155:1,319(2X630),0319X,160::60::"10 FORX=5TO315STEP5":"20 DRAW1,0,XTO319-X,0"c"30 NEXT":X53155:1,0,X319X,0::60:"10 FORX=4TO56STEP4":"20 DRAW1,190-X,100-XTO190+X,100TO190+X,1)FI$(34)",1":0,9,5,"ES WIRD NACHGELADEN":0,12,9,"MOMENT BITTE !":1,7,0{1319,19:1320,13:1321,82:1322,213:1323,13:239,5vewj=sdJ̥)9zu;rU={Uޔܦ:kzL^jgy6jyM٪z6wf953s]W-Δy&s)J (8)(142):15ւ20,2,7:4,2,5:50DA$:A$""30L(:%2""14)"LEKTION 10/6":12)"HOCHAUFLOESENDE":17)"GRAFIK":17)"TEIL 5":30:"DER  CIRCLE-BEFEHL ":"UM KREISE ODER ELLIPSEN ZU ZEICHNEN,":"BENUE":17)"GRAFIK":17)"TEIL 3":60:0:4,2,5:"MIT DEM BEFEHL  DRAW1,X,Y  KOENNEN SIE"$"AN DER DURCH DIE KOORDINATEN (X,Y)":"GEGEBENEN POSITION EINEN PUNKT ZEICHNEN,":"DESSEN FARBE SIE VORHER MIT DEM":"COLOR-BEFEHL FESTGELEGT HABEN.":LEICHUNG":"EINER GEDAEMPFTEN SCHWINGUNG LEICHT":"DARSTELLEN.":"DIE GLEICHUNG DER GEDAEMPFTEN SCHWINGUNG":"LAUTET: Y=A*EXP(-B*X)*SIN(2**X). DAS""PROGRAMM, MIT DEM MAN DIE ZUGEHOERIGE":"KURVE ZEICHNEN KANN, IST NICHT VIEL":"LAENGER ALS DIO6STEP.02":"20 Y=80+70*EXP(-0.4*X)*SIN(2**X)":"30 DRAW1,INT(50*X),INT(Y)":"40 NEXT":1,2,7:X06.02:Y8070(0.4X)(2X):1,(50X),(Y)::1,3,2:1,10,0,"WEITER MIT BELIEBIGER TASTE !"60:0:"":1,6,15,"ENDE VON LEKTION 10 TEIL 4 ":TZT MAN DEN CIRCLE-BEFEHL. IN SEINER"x"ALLGEMEINSTEN FORM SIEHT ER SO AUS:":" CIRCLE1,XM,YM,RX,RY,AW,EW,DW,PW ":30:"XM,YM : POSITION DES MITTELPUNKTES DES":"KREISES BZW. DER ELLIPSE.":"RX,RY : WAAGRECHTER UND SENKRECHTER""HALBE":17)"GRAFIK":17)"TEIL 4":60:"DER  DRAW-BEFEHL  (FORTSETZUNG)":"MIT DEM DRAW-BEFEHL KOENNEN AUCH GERADEN"A"UND SOGAR VIELECKE (POLYGONE) GEZEICHNET":"WERDEN":"UM DIE PUNKTE IN DEN POSITIONEN (X1,Y1)":"UND (X2,Y2) DURCHK13:::1,29,0,"RECHTS OBEN":1,3,2:1,29,1,"(319,0)":60:0:"":1,6,15,"ENDE VON LEKTION 10 TEIL 3 "::ޜ:FI$"10/4LEKTION":T11000::0,7,0:4,7,0:1,7,0:"LOAD"(34)FI$(34)",1"50,9,5,"ES WIRD NACHGELADEN":0,12,9,"MOMENT BITMESSER DER ELLIPSE. LAESST MAN RY":"WEG, SO WIRD EIN KREIS MIT DEM RADIUS RX":"GEZEICHNET.":"AW,EW : ERLAUBT DAS ZEICHNEN EINES":"ELLIPSEN- ODER KREISSEKTORS. AW GIBT"l"DEN ANFANGSWINKEL, EW DEN ENDWINKEL":"AN. DIE ANGABE E2,Y2TOX3,Y3TO...""AUF TASTENDRUCK FOLGEN EINIGE BEISPIELE":60:2,1:4,2,3:1,1:"10 DRAW1,0,0TO319,100":1,0,0319,100:60::"10 DRAW1,319,100TO160,0TO0,10TO319,100":1,319,100160,00,10319,100@60::"10 FORX=5TO315STEP5":"20 DRAW1,31 00+XTO190,100+XTO190-X,100-X":"30 NEXT":X4564:1,190X,100X190X,100190X,100X190,100X190X,100XB:60:1,0:K11500::0:"":1,6,15,"ENDE VON LEKTION 10 TEIL 5 "::ޜ:FI$"10/6LEKTION":T11000::0,7,0:4,7,0:1,7,0:"LOAD"(34 RFOLGT IN GRAD. 0 GRAD":"IST OBEN,GEZAEHLT WIRD IM UHRZEIGERSINN.":"DW : GIBT DEN WINKEL AN, UM DEN DIE""ELLIPSE (IM UHRZEIGERSINN) GEDREHT WIRD.":"PW : GIBT MAN HIER EINEN WERT EIN, SO":"WIRD EIN REGELMAESSIGES POLYGON MIT":"N  (8)(142):15ւ20,2,7:4,2,5:80"":I139:C$;::I122:""C$;::"";:I138:""C$"";::C$:I123:""C$"";::<A$:A$""60F:fPC$"":30:""14)"LEKTION 10/2":60:1,1:1,3,2:1,12,11," OGRAMM,"Q"DAS SIE AUF BAND NEHMEN WOLLEN, HEISSEN":"SOLL. (ZUM BEISPIEL: JOHN)"NACHDEM SIE DAS ENTSPRECHENDE BAND EIN-":"GELEGT HABEN,";"TIPPEN SIE EIN:":" SAVE"Z$"JOHN"Z$"":"UND DRUECKEN DIE RETURN-TASTE"-"DER COMPUTER IPPEN SIE:"K" SAVE"Z$"JOHN"Z$",8":"EIN UND DRUECKEN DIE RETURN-TASTE.""SOLLTE BEREITS EIN PROGRAMM MIT":"GLEICHEM NAMEN AUF DER DISKETTE EXIS-""TIEREN, SO MELDET DER COMPUTER:":" FILE EXISTS""SIE KOENNEN DANN DIESES @"COMPUTERS EINLESEN, DANN TIPPEN SIE"JJ"(FALLS ERFORDERLICH NACH RUECKSPULEN"]T"DES BANDES)"^"LOAD ";Z$;"JOHN";Z$:"EIN UND DRUECKEN DIE RETURN-TASTE."h"DER COMPUTER FORDERT SIE NUN MIT:"::" PRESS PLAY ON TAPE"/ ";9)"ENDE VON LEKTION 9="";1)"SIND SIE BEREIT FUER LEKTION 10 ?"O16)"(J/N)"cA$:A$"N"480tA$"J"440:1,6,15,"ES FOLGEN DIE FORTGESCHRITTENEN":"UEBUNGEN!":2000"":"AB DER NAECHSTE19:1320,13:1321,82:1322,213:1323,13:239,5^z]vdRVks\mv]WzRRUUҷrj2RiyM٪z6wfךMR\J)ךMkM%)J EN KOENNEN.":"JEDES DIESER ZEICHEN IST AUS EINER"J"8X8-MATRIX AUFGEBAUT, DIE ALSO 64 PUNKTE":"(SOGENANNTE PIXEL) ENTHAELT.":20)". . . . . .":20)". . . .":"RECHTS SEHEN"20)". . . ."|"SIE DEN BUCH-"20)" IE EINZELNEN":"PIXEL ANGESPROCHEN WERDEN KOENNEN":"ZU DIESEM ZWECK MUSS JEDOCH ZUERST DER""GRAFIK-BILDSCHIRM EINGESCHALTET WERDEN":"DAZU DIENT DER BEFEHL  GRAPHIC X,Y ":"X=1 : DER GESAMTE BILDSCHIRM WIRD ZUM":"GRAFIK-BILDSCHIRM.": :"WIRD GELOESCHT.":ޜ:60:"":1,6,15,"ENDE VON LEKTION 10 TEIL 2 "::FI$"10/3LEKTION":T11000::0,7,0:4,7,0:1,7,0:"LOAD"(34)FI$(34)",1":0,9,5,"ES WIRD NACHGELADEN":0,12,9,"MOMENT BITTE !":1,7,01319,19:1320,13:1321,82:132  (8)(142):15ւ20,2,7:4,2,5:80"":I139:C$;::I122:""C$;::"";:I138:""C$"";::C$:I123:""C$"";::<A$:A$""60F:vPZ$(34):C$"":30:""14)"LEKTION 10/3":12)"HOCHAUFLOESEND "IN DER LEKTION 10/1 KENNENGELERNT HABEN.""FARBE UND HELLIGKEIT DER GRAFIK WERDEN":"MIT  COLOR 1,F,H  GEWAEHLT":"ABGESCHALTET WIRD DER GRAFIK-BILDSCHIRM":"MIT  GRAPHIC 0 .":"WENN SIE JETZT EINE TASTE DRUECKEN, WIRD"" HOCHAUFLOESENDE":1,3,2:1,17,13,"GRAFIK":1,3,2:1,17,15,"TEIL 1":1,6,2:X24122:1,160,100,6X,4X/:60:0:0,2,5:4,2,5:"DER BILDSCHIRM IHRES COMPUTERS BESTEHT":"AUS 1000 POSITIONEN (25X40), DIE JEWEILS":"MIT EINEM ZEICHEN BELEGT WERD WIRD SIE MIT:"::" PRESS PLAY AND RECORD ON TAPE"p:"AUFFORDERN, AUFNAHME- UND PLAY-TASTE":"DES RECORDERS";" ZU DRUECKEN.";60:"2. SPEICHERN AUF DISKETTE: ""NACH EINLEGEN DER ENTSPRECHENDEN DIS-":"KETTE IN DIE FLOPPY T  PROGRAMM UEBER-":"SCHREIBEN MIT:"9"  SAVE"Z$"@:JOHN"Z$",8"~"ODER DAS PROGRAMM UNTER EINEM ANDEREN":"NAMEN ABSPEICHERN.""60:""15)"LOAD","WOLLEN SIE DAS PROGRAMM "Z$"JOHN"Z$" VON"6"DER KASSETTE IN DEN SPEICHER DES" r:"AUF, DIE PLAY-TASTE DES RECORDERS ZU":"DRUECKEN. "?|60:"""WOLLEN SIE DAS PROGRAMM VON EINER":"DISKETTE LADEN, SO TIPPEN SIE EIN:"" LOAD"Z$"JOHN"Z$",8":"UND DRUECKEN DIE RETURN-TASTE.":60 C$"":30:" N LEKTION BEGINNEN DIE"1" UEBUNGEN FUER FORTGESCHRITTENE"AZ1700:ZI:_FI$"10/1LEKTION"oT11000:0,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":"MOMENT BITTE !":1,7,0:1319,1IHNEN GEZEIGT, WELCHEN KOORDINATEN DIE":"ECKEN UND DER MITTELPUNKT DES GRAFIK-":"BILDSCHIRMS ENTSPRECHEN":60:4,2,3:1,7,2:1,1:1,0,0,"LINKS OBEN":1,3,2:1,0,1,"(0,0)":1,7,2i6X0131:1,24X,18(.625X):K13:::1,160,100,3:1,23,11,"MI . .":"STABEN A IN"20)". . . .":"DIESER MATRIX-"20)". . . .":"DARSTELLUNG."20)". . . .":20)". . . . . . . ."U60:"DER C-16 UND PLUS/4 ENTHALTEN SPEZIELLE":"GRAFIK-BEFEHLE, MIT DENEN D "X=2 : DER OBERE TEIL DES BILDSCHIRMS""WIRD ZUM GRAFIK-BILDSCHIRM. IM UNTEREN":"TEIL BLEIBEN 5 ZEILEN FUER TEXT":"(SPLIT SCREEN).":"Y=0 : DER INHALT DES GRAFIK-BILDSCHIRMS":"BLEIBT ERHALTEN.":"Y=1 : DER INHALT DES GRAFIK-BILDSCHIRMS"2,213:1323,13:239,5gYٓ)JkYsݷu]JzJkӦjz6wfכM^kgy6jIs\75rIg9Y֝gfN֛y&sJM)ʚMIOs9)v_':JwMu5szRM)6ye%=u]={I{>J)ךM]w^lkM79jfzr٦rys)J E":17)"GRAFIK":17)"TEIL 2":60:"DIE FARBE DES BILDSCHIRMS UND DES":"BILDSCHIRMRANDES, SOWIE DIE FARBE DER"'"GRAFIK, DIE SIE AUF DEM BILDSCHIRM DAR-":"STELLEN, KOENNEN SIE MIT HILFE DES":" COLOR-BEFEHLS  VERAENDERN, DEN SIE JA": EN, VARIABLEN ":"ODER TERME SEIN KOENNEN."!60N"DER NEXT-BEFEHL HAT DAS FORMAT:":60t"ZEILEN# NEXT VARIABLE":60"WOBEI DIE GLEICHE VARIABLE WIE IM":"FOR-BEFEHL BENUTZT WIRD.60&:1,7,7,"ENDE VON LEKTION 7 TEIL 2>1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5RUgfNܥ)U={Uޔztܦ:kzL9{Zko^jgy6jyM٪z6wf953s]W-ΔRZֵ}_W}_W}SJ}ݗΒ-r]w=r=ޔRZֵkZֵk_W}_W}_W}w]Wuw)v^ϒJz)J  (8)(142)15 ւW0,2,7:4,2,5:Q$" ":80"":I139:C$;::I122:""C$;::"";(I138:""C$"";::C$2I123:""C$"";::<A$:A$""60F:P""4)"GOSUB (FORTSETZU ,2 ODER 3)";A$:(A$)160,190,200)Q$:90X"NEIN, SIE HABEN NICHT DARAN GEDACHT,""DASS DER GOSUB-BEFEHL IN ZEILE 4 DEN":"SPRUNG ZU ZEILE 10 BEWIRKT."UEBERLEGEN SIE NOCHMAL!":60:90"NEIN, DER RETURN-BEFEHL FEHLT!":180 EN SPRUNG ZU EINER SPEZIELLEN ZEILEH"WAEHREND DES PROGRAMMABLAUFS BEWIRKT.z"DER ON...GOTO-BEFEHL BEWIRKT DEN SPRUNG"ZU EINER ZEILE, DEREN NUMMER DURCH DEN""WERT EINER VARIABLEN ODER EINES TERMS,"BESTIMMT WIRD.&6"HIER E NDEREN WERT, SO WIRD";h"DIE ZEILE HINTER ZEILE 80 AUSGEFUEHRT.":60xr"DER ON...GOTO-BEFEHL HAT DAS FOLGENDE":"FORMAT:"|"ZEILEN# ON X GOTO LISTE VON ZEILEN#"WOBEI X EINE VARIABLE ODER EIN TERM SEIN":"KANN.:"ZWEI 20, 50 ODER 70)";A$:A$"70"510"A$"50"5303A$"20"480DQ$"":440t"NEIN, DIESER BEFEHL IST NICHT RICHTIG!"IN DER LISTE DER ZEILENNUMMERN DUERFEN":"KEINE VARIABLEN STEHEN."UEBERLEGEN SIE NOCHMAL!":60:420" REKT, DA X, Y "8:"IN EINEM ON...GOTO-BEFEHL NICHT STEHEN":"DARF.":60|D""13)"ON...GOSUB":"EIN DEM ON...GOTO SEHR AEHNLICHER "N"BEFEHL IST DER ON...GOSUB-BEFEHL."X"DER ON...GOSUB-BEFEHL BEWIRKT DEN"b"SPRUNG ZU E S"!"GLEICHE WIE IM GOSUB-BEFEHL.":60:"BEISPIEL:<"7 ON E GOSUB 5, 2v"DER ON...GOSUB-BEFEHL HAT FOLGENDES":"FORMAT:""ZEILEN# ON X GOSUB LISTE VON ZEILEN#"WOBEI X EINE VARIABLE ODER EIN TERM SEIN":"KANN.": 800!*"  BEIM NAECHSTEN MAL "P4" WERDEN WIR ENDGUELTIG ">" DEN GIPFEL ERSTUERMEN. "HI12700:IR:FI$"9/1LEKTION"T15000:g0,7,0:4,7,0:1,7,0:"LOAD":  (8)(142)15 ւ60,2,7:4,2,5:80h"":I139:C$;::I122:""C$;::"";(I138:""C$"";::C$2I123:""C$"";::<A$:A$""60F:PZ$(34):C$"":30:""15)"LEKTION 9"Z12)"1 "D0"BITTE WARTEN SIE, BIS TEIL 3":"EINGELESEN IST."U:O14000:OjFI$"7/3LEKTION"zT11000:$0,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":"MOMENT BITTE !": . SAVE":12)"2. LOAD":60.d"":12)"SAVE"wn"DER COMPUTER BIETET IHNEN DIE MOEGLICH-":"KEIT, PROGRAMME AUF";x" EINER KASSETTE ODER":"DISKETTE ZU SPEICHERN.""1. SPEICHERN AUF KASSETTE: ""UEBERLEGEN SIE SICH, WIE DAS PR NG VON 8.1)":60:""Z""[d" 2 LET A=1":" 4 GOSUB10":" 6 PRINT A":" 8 GOTO12}n" 10 LET A=A*10":" 12 END"x"WAS WIRD BEI DER AUSFUEHRUNG DES OBIGEN":"PROGRAMMS GEDRUCKT?""1. 1 2. 10 3. NICHTS"(1 ("GANZ GENAU, ES WIRD NICHTS GEDRUCKT.R"WENN A GEDRUCKT WERDEN SOLL, MUSS"DEM PROGRAMM DIE FOLGENDE ZEILE HINZU-"GEFUEGT WERDEN:":" 11 RETURN":60""13)"ON...GOTO":"SIE WISSEN SCHON, DASS DER GOTO-BEFEHL"D IN BEISPIEL FUER EINEN":"ON...GOTO-BEFEHL:r@" 80 ON J GOTO 10, 90":"HAT J DEN WERT 1, SO WIRD DER SPRUNG ZUR"J"ZEILE 10 AUSGEFUEHRT."T"HAT J DEN WERT 2, SO WIRD DER SPRUNG ZUR" ^"ZEILE 90 AUSGEFUEHRT.":"HAT J IRGENDEINEN A WEITERE BEISPIELE:F"2 ON F GOTO 5, 5, 6":"14 ON V+2 GOTO 33, 10, 2, 2":60"WELCHER DER FOLGENDEN ON...GOTO-BEFEHLE":"IST RICHTIG?:"20 ON K-2 GOTO 10, J, 30":"50 ON (U-V)/L GOTO 68, 55, 2, 88"70 ON X,Y GOTO 89,66":"( NEIN, DIESER BEFEHL IST NICHT RICHTG!"Y"IN EINEM ON...GOTO-BEFEHL DARF NICHT":"X, Y STEHEN.":500l"RICHTIG!!"ZEILE 20 IST NICHT KORREKT, DA EINE&"VARIABLE IN DER LISTE DER ZEILENNUMMERN":"STEHT.0"ZEILE 70 IST NICHT KOR INER SUBROUTINE, DIE DURCH"Il"DEN WERT EINER VARIABLEN ODER EINES":"TERMS BESTIMMT WIRD.|v"NACH DEM RETURN-BEFEHL WIRD DAS PROGRAMM";"IN DER ZEILE NACH DEM ON...GOSUB-BEFEHL":"FORTGESETZT."DER RETURN-BEFEHL BEWIRKT ALSO DA 60C$"#":30:""10)"ENDE VON LEKTION 8L""3)"SIND SIE BEREIT FUER LEKTION 9 ?"^16)"(J/N)"rA$:A$"N"810A$"J"740 "1,8,11,"AUF ZUR LETZTEN RUNDE ! ":2000 "ES WIRD NACHGELADEN":"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5)Nyj'eJWSgIJWWu;rVks\mv]WzRRUҷrj2RuiyM٪z6wfךMR\"ZU ARBEITEN !!"6H"LASSEN SIE MICH NICHT LANGE"bR"WARTEN, BIS ZU UNSERER NAECHSTEN "\"SITZUNG BEI  LEKTION 7"fZ12700:Zp:FI$"7/1LEKTION"T11000: 0,7,0:4,7,0:1,7,0  (8)(142)15 ւ@0,2,7:4,2,5:Z$(34):120r"":I139:C$;::I122:""C$;::"";(I138:""C$"";::C$2I123:""C$"";::<A$:A$""60F:P"":I0Y1:"";::"";: ZJ115:">";:I1 HRT WERDEN SOLLEN.=60:"DAS FOLGENDE PROGRAMM SOLL DIE WERTE~"EINES VEKTORS ZUNAECHST EINLESEN UND":"DANN DRUCKEN.":60" 2 FOR I=1 TO 10":" 4 READ A(I)":" 6 PRINT A(I)":" 8 NEXT I " 9 DATA 3.1,1.4,8,9.4,2,5,7,8.6,3,14.7":60:" #"DIE ANWEISUNGEN WERDEN ALSO FUER I=1,M"FUER I=2, USW BIS I=10 AUSGEFUEHRT.60:Y117:Y223:100:80:"BEM.:ZU JEDEM FOR-BEFEHL GEHOERT EIN" NEXT-BEFEHL.60:"EINE SEHR NUETZLICHE ERGAENZUNG ZUM""FOR-BEFEHL IS NT A(I)6^" 12 NEXT I":" 14 DATA 3.2, 2, 5.1, 0.1, 66, .7":60|h"ZUNAECHST WERDEN DIE DATEN IM VEKTOR A GESPEICHERT.":Y11:60r80:M120:9)"A(I)":9)"A(I)":L160::|Y20:80:"UND DANN WERDEN DIE DATEN IN DER ZWEITEN";" SCHRITTWEITE ANGEGEBEN IST9"(STEP WURDE WEGGELASSEN), DANN WIRD`"DIE SCHRITTWEITE 1 FESTGELEGT.60:"DER FOR...-BEFEHL HAT DAS FORMAT:":60"ZEILEN# FOR VARIABLE = Y TO Z STEP S":60"WOBEI Y, Z, UND S ZAHL Y14:660:18):I120:"C(2)";:J140::"C(2)";;T"";O^K150:::60hY23:660:"BITTE BEACHTEN SIE: DIE ERSTE VARIABLEr"DES VEKTORS HAT DEN INDEX 0.":60|"WIE DIE ELEMENTE EINER MATRIX ANGEORDNET";"SIND, WIR  ̤̤̤̤;" ϣϣϣϣd" C(2,0) C(2,1) C(2,2) C(2,2)" ̤̤̤̤"WIEDER TEILT DER INDEX DEM DATENSPEICHER";"DIE POSITION DER VARIABLE IN DER MATRIX G) SETZT DIE MAXIMALE GROESSE70"EINES VEKTORS ODER EINER MATRIX FEST.c:"ZUM BEISPIEL BESAGT DIE ANWEISUNG:"D" 30 DIM A(20), C$(15,3)N"DASS EIN VEKTOR, GENANNT A,X"21 ELEMENTE HABEN SOLL (INDIZES 0-20)" b"UND DAS 10)"ENDE VON LEKTION 6":700*"":I0Y1:"";::"";:\J120:">";:I150::" ";:K150:::YY1:660:I0Y2Y1:" ":660:"LEKTION 7 USW. BEFINDET SICH AUF":"DER SONST MIT N (=NEIN)"A$:A$"N"790-A$"J"7403`1,6,15,"DANN WEITERHIN VIEL VERGNUEGEN"j 2000v"" I115:" "*K110::4"SCHADE! ES MACHT F:"LOAD":9)"ES WIRD NACHGELADENV "BITTE PLAY TASTE AM DATASETTE DRUECKEN":12)"MOMENT BITTE ! 1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5yVks\mv]WzRRu׺Uҷrj2R)iyM٪z6wfךM)J 40::">";:K120:::" ":edYY1:80:I0Y2Y1:" ":on80:x""10)"FOR...NEXT-BEFEHLE ":60"DER FOR...NEXT-BEFEHL WIRD BENUTZT,"WENN EINE BESTIMMTE ANZAHL VON SCHLEIFENAUSGEFUE DER FOR-BEFEHL"Y11N80:90:60:Y17:80:15)"BEWIRKT DIE WIEDERHOLUNG"DER ANWEISUNGEN,DIE VOR DEM NEXT-BEFEHL":Y14:60:8090:60:Y19:80:"STEHEN, SOLANGE BIS DER ENDWERT FUER"DIE VARIABLE I (I=10) ERREICHT IST.": T DIE STEP-ANWEISUNG."::C,"MIT DER STEP-ANWEISUNG LEGEN SIE DIEu6"SCHRITTWEITE IM FOR...NEXT-BEFEHL FEST.@"HIER EIN BEISPIEL:":60J" 2 FOR I=1 TO 6T" 4 READ A(I)":" 6 NEXT I":" 8 FOR I=6 TO 1 STEP -1":" 10 PRI SCHLEIFE (ZEILE 8 BIS 12)":600Y1214:80:90::Y21:80b:"IN UMGEKEHRTER REIHENFOLGE GEDRUCKT.":60"DA DIE SCHRITTWEITE -1 BETRAEGT, HAT I"ZUNAECHST DEN WERT 6, DANN I=5 USW BIS":"SCHLIESSLICH GILT: I=1. 60::"WENN KEINE  (8)(142)15 ւ20,2,7:4,2,5\Q$" ":Z$(34):90("":I139:C$;::I122:""C$;::"";2I138:""C$"";::C$<I123:""C$"";::FA$:A$""70P: ZC$"":40:""15)" 12":"8 PRINT "Z$"DER ARBEITER BEKOMMT DM"Z$"8.35*H";C"10 GOTO 16k"12 LET S=8.35*40+(H-40)*8.35*1.5""14 PRINT "Z$"DER ARBEITER BEKOMMT DM"Z$"S":"16 END"SOLLTE ES IHNEN SCHWERFALLEN SOLCH EIN"PROGRAMM ZU SCHREIBEN, LESEN SI EN EINE DRITTE METHODE VOR- GESTELLT WERDEN.^:"ZUNAECHST EIN BEISPIEL:":70:" 2 READ A$,H" 4 PRINT A$,H":" 6 READ B$,R":" 8 PRINT B$,R"" 10 DATA "Z$"TAGE"Z$", 40, "Z$"PREIS"Z$:" 12 DATA 4.75":70#,"DIE IN DEN READ IRD:":/h" DER STRING "Z$"TAGE"Z$" IN A$,":Vr" DIE ZAHL 40 IN H,":|" DER STRING "Z$"PREIS"Z$" IN B$ ":"  UND DIE ZAHL 4.75 IN R  GESPEICHERT. ""UM ALLE BENOETIGTEN WERTE ZU SPEICHERN, GRAMMABLAUFS.":702"1. 15 READ X,Y,Z":" 18 DATA 10,20q"2. 11 READ M":" 20 DATA "Z$"JA"Z$:"3. 16 READ P" 18 READ N":" 20 DATA 16, 29.7""WELCHER DER OBIGEN READ/DATA-BEFEHLE":"IST RICHTIG (1, 2 ODER 3)";A$ VERSUCHEN SIE ES NOCHMAL!":70:460I:"NEIN, DER WERT IM DATA-BEFEHL IST EIN STRING,"tD70:Y5:680:"";:690:70:Y15:680N8)"WAEHREND DIE VARIABLE IM READ- BEFEHL":70:Y4X680:"";:690:70:Y16:680:7);b"EINE NUMERISC EN SIE, BIS TEIL 2":"EINGELESEN IST.+"":2000N"":I0Y1:"";::"";:jJ115:">";:I140:">";:K125:::" ":YY1:680:I0Y2Y1:" ";680:  IST.l"v20003"";:I1Y1:"";::"";:J0Y2Y1f" "::"";:I1Y1:"";::"";:FI$"5/3LEKTION"T11000:W0,7,0:4,7,0:1,7,0:"LOAD":"ES WI  (8)(142)15 ւ?0,2,7:4,2,5:Z$(34):80q"":I139:C$;::I122:""C$;::"";(I138:""C$"";::C$2I123:""C$"";::<A$:A$""60F:P""13)"MATRIZEN":"ZUSAETZLICH ZU DEN OBEN ERWA N, ZWEI ODER MEHR":"INDIZES BENUTZEN.":60g"HIER EINIGE BEISPIELE FUER INDIZIERTE":"VARIABLEN:"" A(6)":" R$(4)":" R1(21,7)":" FF$(K)":" U$(R,C)" M(2*I+3)"EINE INDIZIERTE VARIABLE IST EINE"VARIABLE U SDRUECKE INNERHALB DER KLAMMERNc"(INDIZES) GEBEN DIE POSITION DER":"VARIABLEN IN DER MATRIX AN.""IN DER FOLGENDEN GRAPHIK WIRD GEZEIGT,""WIE DIE INDIZIERTEN VARIABLEN EINES ":"VEKTORS ANGEORDNET SIND:" " ϣϣϣ LEKTION 6":-d12)"1. PROGRAMMBEISPIELgn12)"2. READDATA-BEFEHLE ":12)"3. MATRIZEN":70x""11)"PROGRAMMBEISPIEL":"HIER EIN PROGRAMM, DAS DEN LOHN EINES""ARBEITERS BERECHNET:":"2 INPUT H2"6 IF H>40 THEN E BITTE""LEKTION 5 NOCHEINMAL.":70e""15)"READDATA":"SIE KENNEN JETZT SCHON 2 METHODEN,"DATEN IN DEN COMPUTER EINZUGEBEN:":"1. INPUT-BEFEHL Z.B. 4 INPUT K""2. LET-BEFEHL  Z.B. 8 LET H=9":&"NUN SOLL IHN -BEFEHLEN STEHENDEN VARIABLEN";:Y1:70L6680:690:Y3:680:690:70:Y9:680w@9)" ERHALTEN IHRE WERTE AUS DEN IN";J"DEN DATA-BEFEHLEN GESPEICHERTEN DATEN.":70TY5:680:690:Y6:680:690:70^Y12:680:"IM OBIGEN BEISPIEL W "1"KANN MEHR ALS EIN DATA-BEFEHL GEGEBEN":"WERDEN. ";:70RY112:Y224:710;:Y 12:680"DER VORTEIL EINES READ/DATA-BEFEHLS GEGENUEBER EINEM INPUT-BEFEHL";" IST DIE SPEICHERUNG DER DATEN WAEHREND DES ";"GESAMTEN PRO (A$)520,570,620Q$:460W"NEIN, SCHLIESSLICH MUESSEN GLEICH VIELE WERTE IM DATA-BEFEHL ";w70:Y2:680:2);:690:70Y15:680:21)"WIE VARIABLEN IM READ-BEFEHL STEHEN.";&70:Y1:680:2);:690:70:Y18:6800"BITTE, HE VARIABLE IST."::560Jl"RICHTIG!":"BEI 1 SIND ZU WENIGE WERTE IM DATA-":"BEFEHL."yv"BEI 2 STIMMEN ART DES WERTES UND ART""DER VARIABLEN NICHT UEBEREIN."70::1,6,15,"ENDE VON LEKTION 6 TEIL 1":"BITTE WARTFI$"6/2LEKTION"T11000:0,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5*J*J*JJ{RuT%+[{I=zOmꝵ)JuRD NACHGELADEN":"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5%Rze,RJVީWu;rVss\mv]WzRRշUҷrj2RuiyM٪z6wfךMR\ GROESSER ALS":" < KLEINER ALS9" :80:80("DIE BEDINGUNG IST EIN TEST.":80e"IST DIE BEDINGUNG ERFUELLT, SO WIRD IM NAECHSTEN ";"PROGRAMMSCHRITT DER BEFEHL IN":"ZEILEN#2 AUSGEFUEHRT.":80"IST DIE BEDINGUNG NICHT ERFUELLT, SO WIRD ALS ";-"NAECHSTES "1 IF A=2*B+CC THEN 10":"2 IF P*3+U/1.5 > THEN 18"MT"3 IF A$="Z$"NEIN"Z$" THEN 100^:"WELCHE DER OBIGEN ANWEISUNGEN IST KEIN ZULAESSIGER ";h"IF...THEN-BEFEHL (1, 2 ODER 3)";:X$::r(X$)390,440,420|Q$:330 "NEIN, DI  UND EINER STRINGVARIABLEN IST ZULAESSIG." :410k"GANZ GENAU! ZEILE 2 IST FALSCH,DA RECHTSNEBEN DER RELATION KEIN";" AUSDRUCK STEHT.":70:500"MOECHTEN SIE DEN ABSCHNITT UEBER":"IF..THEN-BEFEHLE NOCH EINMAL""LESEN (JA ODER NE  DER ";."BEFEHL DER ZEILE NACH ZEILEN# AUSGEFUEHRT.":80z"IST DIE BEDINGUNG NICHT ERFUELLT, WIRD BEFEHL AUSGELASSEN UND ";&"DAS PROGRAMM WIRDMIT DER ZEILE NACH ZEILEN# FORTGESETZT.":800"EINIGE BEISPIELE:":80:" 45 IF X ER TERM IST RICHTIG!":80@""NATUERLICH MUSS FUER JEDE VARIABLE EINEn,"ZAHL GESPEICHERT WORDEN SEIN, BEVOR DER6"COMPUTER DEN WERT DES TERMS BERECHNET.@80:"VERSUCHEN SIE ES NOCHEINMAL!":70:220 J"": I115:"RICHTIG!!! "|"MANCHMAL KANN BEI DER BERECHNUNG EINESp"TERMES DIE REIHENFOLGE DER AUSFUEHRUNG ":"DER OPERATIONEN UNKLAR SEIN.80:"ZUM BEISPIEL HAENGT BEI DEM TERM:":8014)"B + 365*A":80:"DAS ERGEBNIS VON DER REIHENFOLGE DER "AUSFUEHRUN 9":70="UM SOLCHE MEHRDEUTIGKEITEN AUSZU-":"SCHLIESSEN GILT DIE REGEL:"DER COMPUTER FUEHRT OPERATIONEN IN DER":"FOLGENDEN REIHENFOLGE AUS:"80:" 1. POTENZIEREN "33)" ^ " 2. MULTIPLIKATION UND DIVISION "33)"* /" HT 2.":70":"EINE WEITERE MOEGLICHKEIT ZUR FEST-`D"LEGUNG DER REIHENFOLGE BIETET DIE ":"KLAMMERUNG.":80N"DAZU EINIGE BEISPIELE:":80:14)"(A+B)*2":X14)"(X+2)*(X-2)b14)"F-(G1-HH)l70::1,6,15,"ENDE VON LEKTION 4 TEILOAD":"ES WIRD NACHGELADEN":"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,55{|zY]e%+W^I>RUgfNܥ)U={Uޔ{tܦ:kzLmZko^jgy6jyM٪z6wf9)J ":10)"IF...THEN-BEFEHL":11)"(FORTSETZUNG)":70hd"DER IF...THEN-BEFEHL ERMOEGLICHT EINEn"BEDINGTE AENDERUNG DER REIHENFOLGE DERx"PROGRAMMSCHRITTE, IN ABHAENGIGKEIT VON DER ERFUELLUNG EINER BEDINGUNG.80:"EINE BEDING  >= GROESSER ALS ODER GLEICH":" <= KLEINER";r"ALS ODER GLEICH":" <> NICHT GLEICH":70Y19:Y222:640:660:80"EIN IF...THEN-BEFEHL HAT FOLGENDES ":"FORMAT:"ZEILEN#1 IF BEDINGUNG THEN ZEILEN#2" DER BEFEHL IN DER":"ZEILE NACH ZEILEN#1 AUSGEFUEHRT.570j""EINIGE BEISPIELE FUER IF...THEN-BEFEHLE:":80,"2 IF A=0 THEN 10":80:"4 IF X<=99 THEN 2":806"6 IF R+W>P-T+1 THEN 55":80159@"8 IF A$="Z$"NEIN"Z$"THEN 88":70)J ESER BEFEHL IST KORREKT!":Z"EINE RELATION ZWISCHEN EINER VARIABLEN UND EINEM TERM IST ZULAESSIG.:"BITTE, VERSUCHEN SIE ES NOCHEINMAL!":70:"":330"NEIN, DIESER BEFEHL IST KORREKT!"::"EINE RELATION ZWISCHEN EINEM"; " STRING IN)";A$:A$"JA"100A$"NEIN"600"Q$:460q"NOCH EINE ANDERE FORM DES IF...THEN- BEFEHLS IST MOEGLICH, NAEMLICH:80:" ZEILEN# IF BEDINGUNG THEN BEFEHL":80"IST DIE BEDINGUNG ERFUELLT, SO WIRD DER BEFEHL UND DANN >12 THEN PRINT "Z$"JA"Z$:N:" 65 IF A$="Z$"NEIN"Z$" THEN INPUT B$"::" 8 IF R=T THEN V=V+1":qD" 7 IF L>=100 THEN END";:70zN460X:1,6,15,"ENDE VON LEKTION 5 TEIL 2":b"  BITTE WARTEN SIE, BIS TEIL 3":" EINGELESEN RICHTIG!!!"::80WT"DIESER TERM IST IN BASIC NICHT RICHTIG":"GESCHRIEBEN, DA DAS MULT";^"IPLIKATIONS-" :"ZEICHEN ZWISCHEN 365 UND A FEHLT.":80h"KORREKT IST DIE FORM:  B+365*A":70r""8)"HIERARCHIE VON OPERATIONEN":80 G DER OPERATIONEN AB.":809"ANGENOMMEN, FUER A WURDE DER WERT 10g"UND FUER B DER WERT 9 GESPEICHERT, SO"KOENNTE NUN BERECHNET WERDEN:":80" 9 + 365 = 374, UND 374*10 = 3740""ODER":" 365*10 = 3650, UND 9 + 3650 = 365  (8)(142)15 ւf0,2,7:4,2,5:Q$" ":160"":("":I139:C$;::I122:""C$;::"";2I138:""C$"";::C$<I123:""C$""; -VARIABLEN ":80:"SIE ERINNERN SICH, DASS VARIABLEN DAS"y"SPEICHERN VON ZAHLEN ERMOEGLICHEN.":"(LEKTION 2.1)":80"STRING-VARIABLEN ERMOEGLICHEN NUN DAS ":"SPEICHERN VON STRINGS.":80"EINE STRING-VARIABLE WIRD WIE EINE"C EN:"15)"INPUT A$":80P""ODER MIT FOLGENDEM BEFEHL AUFGERUFEN":"WERDEN:";k,15)"PRINT A$":706"10 PRINT"Z$"EINGABE DES NAMENS UND ALTERS"Z$"@"20 PRINT ";Z$;"(DURCH KOMMA GETRENNT)";Z$:"40 INPUT N$,AJ"80 PRINT N$ ";460A$"2"420Q$:380C"NEIN, DAS WUERDE OHNE DIE TAB-FUNKTION"GEDRUCKT WERDEN.":80:"ZEILE 1. IST RICHTIG, DA VOR DEM WORT"MICKEY UND VOR DEM WORT MAUS LEER-":"STELLEN SIND.70:500"DAS IST RICHTIG!!!!=3)"SIND SIE BEREIT FUER LEKTION 4 ?":/15)"(J/N)"S5)"DRUECKEN SIE BITTE WIEDER"s&7)"DIE ZUGEHOERIGE TASTE"|0A$:A$"N"2000D""10)"GLEICH GEHTS WEITER"X40b""12)"AUF WIEDERSEHEN"::l13)"TRINGVARIABLE ERMOEGLICHT NICHT-D"NUMERISCHE DATEN - WIE NAMEN, ADRESSEN,"v"WORTE, USW. - IN DEN COMPUTER EINZULESEN";80:"ENTHAELT EIN INPUTBEFEHL EINE STRING-"VARIABLE - WIE A$ - SO TEILT DIESE DEM#"COMPUTER MIT, DASS NIU6:W25:120:30:"GUT ! ";Z"DAS PROGRAMM DRUCKT ALSO DEN NAMEN":"UND DAS ALTER IN TAGEN AUS."80:"SEHEN SIE NUN, WAS BEIM PROGRAMMABLAUF ";&"PASSIERT.(BITTE GEBEN SIE NAME UND ALTER";:"IN DER ANGEGEBENEN";0" REIHENFOLGE EI"DURCH VERBINDUNG DES ENTSPR";Cl"ECHENDEN":"RECHENZEICHENS MIT ZAHLEN (KONSTANTEN)iv"UND/ODER VARIABLEN AUSGEFUEHRT.80:"RECHENZEICHEN (OPERATOREN) SIND:":808)"+ FUER DIE ADDITION":8)"- FUER DIE SUBTRAKTION1GELESEN IST."FI$"4/3LEKTION"(T11000:0,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,59}_W=w)J (8)(142)15 ւ20,2,7:4,2,5tZ$(34):Q$" ":140("":I139:C$;::I122:""C$;::"";2I138:""C$"";::C$<I123:""C$"";::FA$:A$""70P:ZX+2 ":10)" A*365 "Y10)" R^2+A2/B3 ":10)" N-K9*Q "z10)" (2*M-N)/(2*M+N)":80"DA FUER JEDE VARIABLE EINE ZAHL"GESPEICHERT IST, REPRAESENTIERT EIN"BERECHNETER TERM EINEN NUMERISCHEN WERT.::FA$:A$""70P:MZ80:"VERSUCHEN SIE ES NOCHEINMAL!":80:"ZdZ$(34)lnI11200::vx"";I1U1:::IUW" ";:"";:I1U1:::Z$(34) " STRING"GEWOEHNLICHE VARIABLE MIT HINZUFUEGUNG":"DES ZEICHENS $ GEBILDET."v80:"EINIGE BEISPIELE FUER STRING-VARIABLEN:"" A$ ODER AC$ ODER Z8$80"EINE STRING-VARIABLE KANN MIT DEM":"FOLGENDEN BEFEHL GESPEICHERT";" WERDZ$;"IST";Z$;" 365*A ";Z$;"TAGE ALT";Z$)T8 0:80T^"BETRACHTEN SIE DAS OBIGE PROGRAMM."h"KOENNEN SIE SICH VORSTELLEN, WAS BEIM"r"PROGRAMMABLAUF GESCHIEHT (JA ODER NEIN)":A$|A$"NEIN"410 A$"JA"520Q$:310"EINE S"DIE ERSTE TAB-FUNKTION BEWIRKT DEN":"VERSCHUB DES WORTES MICKY ZU";z" SPALTE 5,":"UND DIE ZWEITE TAB-FUNKTION BEWIRKT DEN"VERSCHUB DES WORTES MAUS ZU SPALTE 20.":70:500C$"#":40""10)"ENDE VON LEKTION 3"BEI LEKTION 4" vI1700:I:)FI$"4/1LEKTION"9T11000:0,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5Y)JCHTNUMERISCHE DATEN":"EINGELESEN WERDEN SOLLEN."Z80:"ENTHAELT EIN PRINTBEFEHL STRINGVARIABLEN";"- WIE A$ - SO TEILEN DIESE DEM COMPUTER""MIT, DASS NICHTNUMERISCHE DATEN""GEDRUCKT WERDEN SOLLEN.":70:U6:W25:12030:530N!):":80=:"EINGABE DES NAMENS UND ALTERS":"(DURCH KOMMA GETRENNT)":N$,A_DN$" IST"365A"TAGE ALT";:70vN""18)"TERME"X"NUMERISCHE DATEN WERDEN BEI BERECHNUNGEN";:"BENUTZT.":80 b"DIE GRUNDRECHENARTEN WERDEN IN  BASIC ":8)"* FUER DIE MULTIPLIKATION":8)"/  FUER DIE DIVISIONY8)"^  FUER DAS POTENZIEREN8)"( )  FUER KLAMMERRECHNUNG70::1,6,15,"ENDE VON LEKTION 4 TEIL 2":"BITTE WARTEN SIE, BIS TEIL 3":"EIN ":70:660:70L""12)"1. S-.1*H*R":12)"2. 73/(Q*S*T)":12)"3. B+365A"}80:"WELCHER DER OBIGEN TERME IST IN BASIC"NICHT RICHTIG GESCHRIEBEN(1,2 ODER 3)";:A$(A$)3270(A$)280,280,330Q$:220"NEIN DIES 80:"TRY AGAIN!":70:!dZ$(34)An"":I1U1:::I124Ux" "::"":I1U1::""10)"TERME":5)"(FORTSETZUNG VON 4.2)":80"EINIGE BEISPIELE FUER TERME:":80#10)"   (8)(142)15 ւ20,2,7:4,2,5sZ$(34):Q$" ":90("":I139:C$;::I122:""C$;::"";2I138:""C$"";::C$<I123:""C$"";::FA$:A$""70P:Z *"LEERSTELLE IN DIESELBE ZEILE GEDRUCKT.X"DURCH SEMIKOLON VONEINANDER GETRENNTE"STRINGS ODER STRINGVARIABLEN WERDEN"OHNE ZWISCHENRAUM NACHEINANDER GEDRUCKT."ZUM BEISPIEL BEWIRKT DER BEFEHL:" 4 PRINT 2.2;-4;0.75;" "ZEHN STELLEN AUFGETEILT."W"DIESE ZONEN BEGINNEN IN DEN SPALTEN":"1, 11, 21 UND 31."_80""WIRD IN DER AUSGABELISTE EIN KOMMA,"BENUTZT, SO WIRD DER DEM KOMMA FOLGENDE6"AUSDRUCK IN DIE NAECHSTE ZONE GEDRUCKT."3@"ZUFI$"3/1LEKTION"0,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5#%ER DAS MINUS (-)":"ZEICHEN FREIGELASSEN.Qr70:"IST DAS LETZTE ZEICHEN DER AUSGABELISTE|"EIN SEMIKOLON, SO WIRD DER ZEILENVOR-""SCHUB UNTERDRUECKT.":80"D.H. DER NAECHSTE PRINT-BEFEHL WIRD IN" DERSELBEN ZEILE AUSGEFUE PRINT"Z$" UND HUNDE"Z$:80:"ANGENOMMEN, DIE VARIABLE A";e" HAT DEN WERT 16: WELCHE DER FOLGENDEN ZEILEN WIRD|"DANN GEDRUCKT?""1. 16 KATZEN":" UND HUNDE"2. 16"13)"KATZEN UND HUNDE":"3. 16KATZEN"14)"UND HUNDEX""8)" ";:I150:"A";:"";(b"A";:"";:I;lA$:A$""620Tv""SORGT DAFUER, DASS DAS WORT KATZEN ""ERST AB SPALTE 11 GEDRUCKT WIRD.";:70I14:"";::I14:" "BITTE WARTEN SIE BIS TEIL 3,":5)"EINGELESEN IST."2FI$"3/3LEKTION"BT11000:0,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13: (8)(142)15 ւ20,2,7:4,2,5kQ$" ":90("":I139:C$;::I122:""C$;::"";2I138:""C$"";::C$<I123:""C$"";::FA$:A$""70P:ZZ$(34)N, BIETET DIE TAB-FUNKTION IM"0"PRINT-BEFEHL.a80:"JEDE ZEILE BESTEHT AUS 40 STELLEN, DIE"VON 0 BIS 39 DURCHNUMERIERT SIND.":80"TAB(X) BEWIRKT, DASS DER FOLGENDE""AUSDRUCK BEGINNEND MIT DER STELLE""X GESCHRIEBEN WIR"VARIABLEN ANZAHL VON LEERSTELLENZ"ERMOEGLICHT.":"SIE SCHREIBEN INNERHALB DER KLAMMERN""STATT DER ZAHL EINFACH EINE VARIABLE,"ODER EINEN TERM (SIEHE LEKTION 4).680:"ZUM BEISPIEL:@"5 PRINT TAB(X)"Z$"ZUM DONNER"Z$"TAB(Y)"""10)"LEERSTELLEN":70Md"UM AUSDRUECKE IN DER AUSGABELISTE VON-n"EINANDER ZU TRENNEN, WERDEN KOMMATA (,)":"BZW. SEMIKOLA (;) BENUTZT."x"DURCH SEMIKOLON VONEINANDER GETRENNTE"ZAHLEN ODER VARIABLEN WERDEN MIT EINERZ$"ABC"Z$";"Z$"DEF"Z$I80:"DAS SCHREIBEN VON:":" 2.2 -4 .75 ABCDEF":80O}"BITTE BEACHTEN SIE: LINKS VON DER ZAHL"WIRD IMMER EINE STELLE FUER DAS ZEICHEN":"(-) FREIGELASSEN.:70"JEDE ZEILE IST IN VIER ZONEN ZU JE "M BEISPIEL BEWIRKT DER BEFEHL:":"7 PRINT 18,-12,"Z$"GRAD"Z$iJ"DEN DRUCK VON:":" 18"10)"-12"20)"GRAD":80T"123456789012345678901234567890123456789":"^"10)"^"20)"^^"BITTE BEACHTEN SIE: LINKS VON DER ZAHLh"WIRD EINE STELLE FUZ$"WETTER"Z$:80J1102T"WAS WIRD BEI DEM BEFEHL:"g^"2 PRINT TAB(5)"Z$"MICKEY"Z$"TAB(X)"Z$"MAUS"Z$h80:"WENN X DEN WERT 20 HAT GEDRUCKT?":80r"1. MICKEY"23)"MAUS|"2. MICKEYMAUS":"(1 ODER 2)";:A$A$"1"HRT.""ZUM BEISPIEL BEWIRKT DER BEFEHL:c" 8 PRINT "Z$"ZUM DONNER"Z$";":" 9 PRINT "Z$"WETTER"Z$80:"DEN DRUCK VON:":" ZUM DONNERWETTER":70"BETRACHTEN SIE NUN FOLGENDE BEFEHLE:""5 PRINT A,"Z$"KATZEN"Z$";,"7 "(1, 2 ODER 3)";:A$:(A$)35504(A$)560,580,560A&Q$:520f0"NEIN, DAS IST NICHT RICHTIG!"::"BITTE VERSUCHEN SIE ES NOCHMAL!":70: 450D"DAS IST RICHTIG!!!!N"DAS KOMMA NACH DER VARIABLEN A IN ZEILE 5":70 " :I15:"";:?"DAS SEMIKOLON NACH DEM STRING "Z$"KATZEN"Z$"y"SORGT DAFUER, DASS DER STRING "Z$"UND HUNDE"Z$" ""IN DIE GLEICHE ZEILE GESCHRIEBEN WIRD. "1,8,15,"ENDE VON LEKTION 3 TEIL 2":5) 239,5ܥ)U={UޔImtܦ:kzL5mZko^jgy6jyM٪z6wf953s]W-ΔRZֵ}_W}_W}SJ}ݗΒ-r]w=r=ޔRZֵkZֵk_W}_W}_W}w]Wuw)v^ϒJz6wf79yfzrٮsys6ik)Mzrٮse)J d140Un"ANGENOMMEN, X HAT DEN WERT 8 UND Y HAT":"DEN WERT 25,SO WIRD ";ox"FOLGENDES GEDRUCKT:80:8)"ZUM DONNER"25)"WETTER":70:340""10)"TAB-FUNKTION"::"EINE WEITERE MOEGLICHKEIT, LEER";"STELLEN":"ZU DRUCKE D.""SO ERGIBT DER BEFEHL:"\"5 PRINTTAB(5)"Z$"ZUM DONNER"Z$"TAB(20)"Z$"WETTER"Z$:80"DEN DRUCK VON:":5)"ZUM DONNER"20)"WETTER":70"DER BESONDERE VORTEIL DER TAB-FUNKTION"BESTEHT DARIN, DASS SIE DEN DRUCK EINER 709(30)"10 PRINT"Z$"EINGABE DES ALTERS IN JAHREN"Z$:"20 INPUT An"30 PRINT"Z$"SIE SIND"Z$" 365*A "Z$"TAGE ALT"Z$I139:(31)"";::80:"DIESES PROGRAMM ERRECHNET IHR ALTER"IN TAGEN(NAEHERUNGSWEISE).":80"SEHEN SIE NUN, WAS "";::80%"MOECHTEN SIE DEN PROGRAMM-ABLAUF NOCHL"EINMAL SEHEN(JA ODER NEIN)";:A$gA$"JA"A$"NEIN"550tQ$:510&A$"JA"5700410:(156)"UND NOCH EIN PROGRAMM-BEISPIEL":80D(30)"10 PRINT"Z$"EINGABE VON GRAD FAH v1"EINGABE VON GRAD FAHRENHEIT":F:"GRAD CELSIUS="5(F32)9II139:"";::80u"MOECHTEN SIE DEN PROGRAMM-ABLAUF NOCH"EINMAL SEHEN(JA ODER NEIN)";:A$:A$"JA"A$"NEIN"690Q$:660A$"JA":710"":580 HBITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5%{*[z]+{)N橪j%)*[{]vdRYsݷu]IJզ6wfכM^kgy6jIs\75rJze%kZ}_W}_W=||)r7%s-sJze%kZֵkZֵ}_W}_W}_Wuw\y)J 0,2,7:4,2,5# (8)(142)+152ւ:80l"":I139:C$;::I122:""C$;::"";(I138:""C$"";::C$2I123:""C$"";::<A$:A$""60F:P""10)"DIE INPUT-ANWEISUNGZ70:"VARIABLEN WERDEN BFORMAT:6"ZEILENNUMMER INPUT LISTE DER VARIABLEN>60x"ZUM BEISPIEL:20 INPUT N1,A,BB":13)"35 INPUT X13)"15 INPUT Y4,I":"SIND ALLES INPUT-ANWEISUNGEN,":70"WAEHREND:"12)"10 INPUT,M":12)"25 A,B,C INPUT" ILE 40 DIE VARIABLEN NICHT DURCH":" KOMMA GETRENNT SIND.:60l""12)"15 INPUT A0,B":12)"33 INPUT X Y Z"12)"12 INPUTAX,A1"12)"8 INPUT Q":"WELCHE DER OBIGEN BEZEICHNUNGEN IST,"KEINE INPUT-ANWEISUNG(15,33,12 ODER 8)";:A$:ICH.": 70?"BITTE LESEN SIE DIE FORMAT-ANWEISUNG":"NOCH EINMAL.":60I80:"":I19:"DAS IST RICHTIG!";"DAS IST RICHTIG!";::70"VARIABLEN MUESSEN DURCH KOMMA GETRENNT":"SEIN.":60 SPRECHENDEN DATEN EINGEGEBEN WORDENV"SIND, UND SETZT DANN ERST DIE PROGRAMM-":"AUSFUEHRUNG FORT.^70"DER COMPUTER ERWARTET FUER JEDE IN DER"INPUT-ANWEISUNG AUFGEFUEHRTE VARIABLE&"EINE DATENEINGABE.":70:600"SO ERFORDERGEGEBEN WERDEN:":"10, 6.25, 0.011Dl"UM IN X,Y1 UND ZZ GESPEICHERT ZU WERDEN.":60nv"WENN NUN AUF DIE AUFFORDERUNG:":" 15 INPUT X,Y1,ZZ":70:"WENIGER ALS 3 ZAHLEN EINGEGEBEN WERDEN,"ANTWORTET DER COMPUTER MIT ?? UM ANZU"";:"? 10";:"?? 21, 35.2":60"C$"":30G""10)"ENDE VON LEKTION 2u"SIND SIE BEREIT FUER LEKTION 3 ?""(J/N)""DRUECKEN SIE BITTE DIE""ENTSPRECHENDE TASTE." DIESES PROGRAMM<"BEWIRKT:"::(30)"BITTE GEBEN SIE IHR ALTER EIN UND"DRUECKEN SIE DIE ";(28)" RETURN ";(30)"-TASTE"(31):80I139:"";::80"EINGABE DES ALTERS IN JAHREN":A"SIE SIND "365A" TAGE ALT":80:I139:RENHEIT"Z$:"20 INPUT F"9N"30 PRINT"Z$"GRAD CELSIUS = "Z$"5*(F-32)/9":80zXI139:(31)"";::80:"SEHEN SIE NUN WAS DIESES PROGRAMMb"BEWIRKT:"::(30)"BITTE GEBEN SIE EINEN WERT FUER DIEl"TEMPERATUR EIN!":80:I139:(31)"";:1,6,10,"ENDE VON LEKTION 1 TEIL 1":<"BITTE WARTEN SIE, BIS DER COMPUTER["TEIL 2 EINGELESEN HAT.kT11000:FI$"1/2LEKTION"*0,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":"MOMENT A$ A$"N"2000 *30:""N48)"VIELEN DANK FUER IHRE":11)"AUFMERKSAMKEIT."n>9) "AUF WIEDERSEHEN BEI"H13)"LEKTION 3"RZ16000:Z\:"":1,4,11,"EINEN AUGENBLICK GEDULD BITTE !":T15000:EISPIELSWEISE ZUR5d"EINGABE VON DATEN BENUTZT.":70fn"DIE INPUT-ANWEISUNG ERLAUBT DIE EINGABEx"VON WERTEN FUER EINE -ODER MEHRERE"VARIABLEN AUCH WAEHREND DES PROGRAMM-":"ABLAUFS.":70"EINE INPUT-ANWEISUNG HAT FOLGENDES":"12)"INPUT F":12)"40 INPUT R S T":70H"KEINE INPUT-ANWEISUNGEN SIND, DA{70:"* IN ZEILE 10 EIN UNNOETIGES KOMMA STEHT"* IN ZEILE 25 DIE VARIABLEN VOR INPUT":" STEHEN":70"* DIE ZEILENNUMMER BEI INPUTF FEHLT":702"* IN ZEA$"33"4106A$"12"360*@A$"15"A$"8"3407JQ$:270mT"NEIN, DIESE INPUT-ANWEISUNG IST RICHTIG!":70v^390h"NEIN, ZEILE 12 IST RICHTIG, ZWISCHEN DEM";r"WORT INPUT UND DER ERSTEN VARIABLEN IST"|"KEIN SPACE ERFORDERL"WENN DER COMPUTER WAEHREND DER PROGRAMM-";K"AUSFUEHRUNG AUF EINE INPUT-ANWEISUNG}"TRIFFT, ERSCHEINT DAS ZEICHEN ? AUF DEM"BILDSCHIRM ALS AUFFORDERUNG, DATEN ":"EINZUGEBEN."70"DER COMPUTER WARTET NUN, BIS DIE"ENT T DIE ANWEISUNG:":5)"15 INPUT X,Y1,ZZ"A:"DIE EINGABE VON DREI DURCH KOMMAxD"GETRENNTEN ZAHLEN ALS ANTWORT AUF DAS ?":70N"BEISPIELSWEISE SOLLEN BEI DER PROGRAMM-X"AUSFUEHRUNG DES OBIGEN PROGRAMMS DIEb"FOLGENDEN ZAHLEN EIN -."ZEIGEN, DASS MEHR DATEN EINGEGEBEN WERDEN";:"MUESSEN.":70n"WENN BEISPIELSWEISE NUR DIE ZAHL 10 ":"EINGEGEBEN WIRD."WIRD DER COMPUTER MIT ?? ANTWORTEN.":70"AN DIESER STELLE MUESSEN MEHR DATEN ":"EINGEGEBEN WERDEN: ";  :0,2,6:4,2,5% (8)(142)-154ւ=750s"":I139:(28)C$;::I122:""C$;::"";(I138:""C$"";::C$2I123:""C$"";::<I13000::F"P27) " "Z27)"  230)(31)""9)" ΑΑ2410A"Q"  "f"   ""  ";:(28)" ߒ"(31)"  ""  ""(30)"  ","  CBM "6"  "@"  UTER ! ",11) " ͤ"460d"";:I17:11)" ":tI11000:"":I112:"";:(28)26)"ѝѝѝѝѝ"I1200:"14)" Σ14)" "bI11000:3l""9)" ΑΑcv""3)" Σ3)" ICH MUSS WOHL ERST BASIC LERNEN, 3)" UM MIT MEINEM COMMODORE-COMPUTER 3)" SPRECHEN ZU KOENNEN ?!  E I N F U E H R U N G":(31);D17)" ":17)"  ":17)" ";l (28)17)" ߒ":(31)17)" "x60:70 (31)"BEM.: DER COMPUTER WIRD IHNEN*"GELEGENTLICH ZEIT ZUM LESEN4"DES TEXTES"#z(31)" 1...EINLEITUNG, ZEILENNUMMERNM" 2...LIST, RUN, VARIABLEN, INPUTt" 3...PRINT, TAB, LEERZEICHEN"" 4...ZAHLEN, STRINGS, TERME," HIERARCHIE, LET, BEISPIEL"" 5...IF...THEN, GOTO, BEISPIEL"GEN TASTE""BEGINNEN WIR MIT DER LEKTION 1."$C$""8A$:A$""1040>q$1,3,20,"BITTE WARTEN SIE, BIS DER COMPUTER":.3)"LEKTION "1" IN SEINEN SPEICHER83)"EINGELESEN HAT."BI11000:FI$"1/1LEKTION"0,7,0:4 0,2,7:4,2,5# (8)(142)+152ւ?Z$(34)vQ$" ":230((30)"":I139:C$;::I122:""C$;::"";2I138:""C$"";::C$<I123:""C$"";::FA$:A$""70P:R ANTWORT DRUECKEN"M"SIE BITTE DIE TASTE ";(28)"  RETURN ";(31)".":::"SOLLTEN SIE VERSEHENTLICH ";(28)" RETURN ";(31)"OHNE ANGABE VON DATEN DRUECKEN,""SO WIEDERHOLT DAS PROGRAMM DIE FRAGE""SOLANGE BIS SIE NACH DER INFACHE SPRACHE, DIE";"ES IHNEN ERMOEGLICHT, MIT DEM COMPUTER"S"ZU SPRECHEN.":80"(30)"BASIC";(31)" LERNEN SIE WIE JEDE ANDERE","SPRACHE - SIE MUESSEN DIE VOKABELN":"UND REGELN KENNEN.":80 6"DIESER EINFUEHRUNGS-KURS SOLL IHNENLUNG EINES PROGRAMMS"Tr"BESTEHT AUS ZWEI PHASEN:"::"1. SCHREIBEN EINER LISTE VON BEFEHLEN"w|"  UND":"2. AUSFUEHRUNG DER BEFEHLE DURCH":" DEN COMPUTER ."::::: 80:"UND NUN EIN PROGRAMM-BEISPIEL:":  "d27)"  "0n27)"  "Gx27)"  "\27)" "b23)"CBM"23)" "23)" "23)" "23)" "60:"J"  "*T(144)"  "<^"  "Ph"   "dr"   "x|"   "(30)"   ߒ"60:210""12)"Σ"11)" HALLO "11) " COMP 2 INPUT A$ >14)" 4IFA$<>"(34)"BASIC"(34)"THENSTOPb&14)" 6 GO TO 2 014)" ͤ:60D(31)"";:I16:14)" ":N"":I112:"";:X26)" " ͤ"60;"":I112:"";:F29);`I120:(28)"JAA!";nJ150:"JAA!";:60:"":800C$"":30:(31)""7)"B A S I C M I T C B M(28)""3)"E I N E  LASSEN..>8)"WENN SIE BEREIT SIND WEITER":8)"ZU MACHEN,cH8)"DRUECKEN SIE EINE":8)"BELIEBIGE TASTE"R8)"GENAU WIE JETZT!"\A$:A$""860f"LEKTION TITEL ";:(28)" INHALTSVERZEICHNIS "p" " 6...READDATA, MATRIZEN"<" 7...SCHLEIFEN, FOR...NEXT, BEISPIEL"d" 8...GOSUB, ONGOTO, ONGOSUB"~" 9...SAVE, LOAD"" 10...FARBSTEUERUNG, GRAPHIK"" 11...BEISPIELE"::(28)"NACH DRUECKEN EINER BELIEBI,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5SNse'=ww=s7=ޒ-%)[]%9+vw)N橪j%+[z]vdRYsݷu]IJLզ6wfכ5)J!Z"IN DIESER UND DEN FOLGENDEN"Jd"LEKTIONEN WIRD IHNEN DER COMPUTER"hn"FRAGEN STELLEN."::130px90"DER COMPUTER WIRD EIN ";(28)" ? ";(31)" DRUCKEN,":"UND AUF DIE EINGABE IHRER ANTWORT":"WARTEN.":"NACH EINGABE IHRE EINGABE"2"VON ZAHLEN  RETURN  GEDRUECKT HABEN."?70:250C$"*":40:""14)(31)"LEKTION 1":12)"1. EINLEITUNG"12)"2. ZEILENNUMMERN":70:"":120""14)(156)" EINLEITUNG "::: (30)"BASIC";(31)" IST EINE E ":"DABEI HELFEN.":808@"WIE IMMER BEIM LERNEN EINER SPRACHE,"nJ"MACHT AUCH HIER NUR DIE UEBUNG DEN":"MEISTER."T70:"SIE SPRECHEN MIT DEM COMPUTER,INDEM"^"SIE IHM EIN ";(156)" PROGRAMM ";(31)" VORSCHREIBEN." h80:"DIE ENTWICKA l DIRR DISC 015BB2AEINLEITUNG1/1LEKTION1/2LEKTION2/1LEKTION2/2LEKTION3/1LEKTION 3/2LEKTION3/3LEKTION 4/1LEKTION4/2LEKTION  4/3LEKTION 4/4LEKTION 5/1LEKTION 5/2LEKTION5/3LEKTION 6/1LEKTION 6/2LEKTION7/1LEKTION 7/2LEKTION 7/3LEKTION 8/1LEKTION 8/2LEKTION 9/1LEKTION 10/1LEKTION 10/2LEKTION 10/3LEKTION10/4LEKTION10/5LEKTION 10/6LEKTION10/7LEKTION10/8LEKTION10/9LEKTION10/10LEKTION 11/1LEKTION11/2LEKTION11/3LEKTION11/4LEKTION11/5LEKTION 11/6LEKTION11/7LEKTIONSEHR GUTW  0,2,6:4,2,5# (8)(142)+152ւ:80LA$:A$""30T(:2I139:(30)C$;::I122:""C$;::"";:I138:""C$"";<:C$:I123:""C$"";::F)P""12)(156)"ZEILENNUMMER":40Z(31)"EIN BASIC T EINGABE DER ANWEISUNG IST DERENW"POSITION IM PROGRAMM DURCH DIE ";(156)" ZEILEN-"|"NUMMER ";(31)" FESTGELEGT."40:40"AM FOLGENDEN PROGRAMM SOLL NUN DIE"BEDEUTUNG DER ";(156)" ZEILENNUMMER ";(31)" ILLUSTRIERT" IN MONATEN BERECHNET":"WERDEN,L40:"DANN GEBEN SIE FOLGENDE ANWEISUNG EIN:":"(30)"35 PRINT"(34)"SIE SIND"(34)"12*A "(34)"MONATE ALT,:(31)"DIES ERGIBT AUTOMATISCH:"6I138:"";:I:: @(30)"10 PRINT"(34)"EINGABE DES ALT C"BITTE TIPPEN SIE IHR ALTER EIN."38)"v"̤":40:(31)"EINGABE DES ALTERS IN JAHREN ":A"SIE SIND"365A" TAGE ALT"SIE SIND"12A" MONATE ALT"::30"LL.":403(156)" ZEILENNUMMER ";(31)" KANN JEDE ZAHL VON 0"N"BIS 63999 SEIN.":40"DIE ";(156)" ZEILENNUMMER ";(31)" ERMOEGLICHT DAS ""AENDERN ODER LOESCHEN VON GEGEBENEN":"ANWEISUNGEN.":30"ANGENOMMEN, DIE ZEILE 145 I145 PRINT"(34)"DIE SUMME IST"(34)"A+B":40Dl(31)"DAS ABGEAENDERTE PROGRAMM SIEHT`v"FOLGENDERMASSEN AUS:"yI138:"";:I::(30)"135 PRINT"(34)"EINGABE VON ZWEI ZAHLEN"(34)"140 INPUT A,B"145 PRINT"(34)"DIE SUMME ISTFUER EIN"NEUES PROGRAMM FREI ZU MACHEN),]40:"TIPPEN SIE DEN BEFEHL ";(28)" N E W ";(31)"EIN.":40:40(28)"";:I137:"";::"""38)"":""38)"":"";:I137:"";::""; "BEM.:N E W IST EIN SYSTEMKON FUER NEIN\A$:A$"J"900!fA$"N"860Up(30)"AUF WIEDERSEHEN BEI"z(28)" LEKTION 2"::Z11000:ZFI$"2/1LEKTION"Q0,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD 0,2,7:4,2,5# (8)(142)+152ւjQ$" ":80"":I139:(30)C$;::I122:""C$;::"";(I138:""C$"";::C$2I123:""C$"";::<A$:A$""60F:+PC$"":EN"(34)"20 INPUT AU"30 PRINT"(34)"SIE SIND"(34)" 365*A"(34)"TAGE ALT"(34)70:"DER BUCHSTABE A BEZEICHNET EINE VARIABLE":70"EINE VARIABLE ERMOEGLICHT ES, DATEN ZU"SPEICHERN UND SIE SPAETER ABZURUFEN.":70""-PROGRAMM BESTEHT AUS EINERCd"LISTE VON ANWEISUNGEN, DIE NACHEIN-n"ANDER DER ";(156)" ZEILENNUMMER ";(31)" ENTSPRECHEND"x"AUSGEFUEHRT WERDEN.":40"JEDE ANWEISUNG MUSS EINE ";(156)" ZEILENNUMMER "(31)"HABEN.":40"MI"WERDEN.":30E(30)"10 PRINT"(34)"EINGABE DES ALTERS IN JAHREN"(34)V"20 INPUT A"30 PRINT"(34)"SIE SIND"(34)"365*A"(34)"TAGE ALT"(34):I139:(31)"";:I:40"ANGENOMMEN, ES SOLL DAS ALTER SOWOHL IN"TAGEN ALS AUCHERS IN JAHREN"(34)J"20 INPUT AYT"30 PRINT"(34)"SIE SIND"(34)"365*A"(34)"TAGE ALT"(34)^"35 PRINT"(34)"SIE SIND"(34)"12*A "(34)"MONATE ALTh30:(31)"SEHEN SIE NUN, WAS DAS NEUE PROGRAMM"r"BEWIRKT:":40:40|(30)"ϣSICHERLICH FRAGEN SIE SICH,WARUM DIEQ(156)" ZEILENNUMMERN ";(31)" IM ORIGINALPROGRAMM~"IMMER EIN VIELFACHES VON 10 SIND.":40"DIES ERMOEGLICHT DAS EINSCHIEBEN VON"NEUEN ANWEISUNGEN, FALLS DAS PROGRAMM"VERAENDERT WERDEN SOM FOLGENDEN$&"PROGRAMM SOLL GEAENDERT WERDEN.":40]0(30)"135 PRINT"(34)"EINGABE VON ZWEI ZAHLEN"(34)q:"140 INPUT A,BD"145 PRINT"(34)"DAS PRODUKT IST"(34)"A+B":NI138:(31)"";:I::40X"NUN WIRD EINGETIPPT:b(30)""(34)"A+B":40;(31)"(BEACHTEN SIE DIE VERAENDERUNG IN":" ZEILE 145!)":30h"EINE ANWEISUNG WIRD DURCH EINGABE DER(156)" ZEILENNUMMER ";(31)" GELOESCHT.":40"UM ALLE ZEILEN EINES PROGRAMMS ZU"LOESCHEN (D.H. DEN SPEICHER MMANDO"UND ERFORDERT KEINE ZEILENNUMMER":303 C$"":"":50U*""11)"ENDE VON LEKTION 14(31)"SIND SIE BEREIT FUER LEKTION 2 ?">(28)"DRUECKEN SIE BITTE DIE TASTE"H"J FUER JA"R"s NACHGELADEN":"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5{Uޒ,RRR%.Tҷrj2~]~O7Yٓ)Jrf5vew%)]VךM^ngy6jyM٪ze%sUs)9k_W}_W}_T=wesU)J 30:""15)"LEKTION 2":15)"1. LISTeZ15)"2. RUN":15)"3. VARIABLEN":15)"4. INPUT":60nd460n""15)"VARIABLEN":70x"SEHEN WIR UNS NOCHMAL DAS PROGRAMM AUS":"LEKTION 1 AN:"10 PRINT"(34)"EINGABE DES ALTERS IN JAHR DER NAME EINER VARIABLEN (ZUM BEISPIELh"A) IST NUR EINE BEZEICHNUNG FUER EINEN":"SPEICHERPLATZ.":70"DER BEFEHL IN ZEILE 20 SPEICHERT EINE":"ZAHL(AUF PLATZ A).":70"DER BEFEHL IN ZEILE 30 BENUTZT DIESE":"ZAHL FUER EINE BERECHNUNG. N FUER VARIABLEN":70:6"WAEHREND:":6)"3Z":6)"3CPO":6)"5Y@"KEINE VARIABLEN SIND."J60:"":6)"1. HH":6)"2. X5":6)"3. 7F":6)"4. YT"WELCHE DER OBIGEN BEZEICHNUNGEN IST":"KEINE VARIABLE?(1,2,3 ODER 4)^A:A370,370,4 70'"7F IST KEINE VARIABLE, WEIL DAS ERSTEf"ZEICHEN EINER VARIABLEN EIN BUCHSTABE":"SEIN MUSS!":70"NUN SOLL GEZEIGT WERDEN, WIE VARIABLEN":"BENUTZT WERDEN.":60:760""17)"LIST":70:"GEWOEHNLICH SIND BEI ERSTELLUNG EINE OGRAMMES":"ERSCHEINT.":70*"";:I138:"";::"";V"";:I138:"";::"";e"";&"BEM.:L I S T IST EIN SYSTEMKOMMANDO0" UND BENOETIGT KEINE ZEILENNUMMER.":60:"WENN DIE AUFLISTUNG EINES PROGRAM":10)"BIS SCHLUSS705"LIST L"10)"AUFLISTUNG VON ZEILE L":60p""18)"RUN":70:"NACHDEM EIN PROGRAMM IM COMPUTER"GESPEICHERT IST UND ALLE FEHLER"KORRIGIERT SIND, KANN ES AUSGEFUEHRT":"WERDEN.":70:70"DER ENTSPREC,"ENDE VON LEKTION 2 TEIL 1":3 "BITTE WARTEN SIE, BIS DER COMPUTERS"TEIL 2 EINGELESEN HAT.c T11000:x*FI$"2/2LEKTION""0,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":"MOMENT BITTE  (8)(142)15 ւ20,2,7:4,2,5gQ$" ":90("":I139:C$;::I122:""C$;::"";2I138:""C$"";::C$<I123:""C$"";::FA$:A$""70P:ZZ$(34)3dC":805"EIN PRINT-BEFEHL HAT FOLGENDES FORMAT:"::q" ZEILENNUMMER PRINT AUSGABE-LISTE"::70:""IN DER AUSGABE-LISTE STEHEN :"::80" ZAHLEN  (Z.B.: 5.87, .23)":80:" VARIABLEN (Z.B.: A, D2, TS)"80:" TET-BEFEHLE:":70:"12 PRINT A, C4"13 PRINT"Z$"HALLO"Z$j"15 PRINT"Z$"SIE SIND"Z$" 365*A "Z$" TAGE ALT"Z$80:"BEI AUSFUEHRUNG VON ZEILE 12 WERDEN DIE""IN DEN VARIABLEN A UND C GESPEICHERTEN","DATEN GEDRUCKT.":80.6"BEI AUSFUE,":804h" "Z$"SIE SIND 3650 TAGE ALT"Z$" GEDRUCKT.":80`r:"ARITHMETISCHE AUSDRUECKE (TERME) "|"DUERFEN INNERHALB DES PRINT-BEFEHLS"BENUTZT WERDEN.":70""505 PRINT C":"723 PRINT IHR GUTHABEN BETRAEGT $CZ$(60:"!CC1:"VARIABLEN SIND:9"EIN BUCHSTABE (A)"EIN BUCHSTABE GEFOLGT VON EINER ZAHL(A7)";:"ZWEI BUCHSTABEN (AA)70:"ZUM BEISPIEL:6)"A":6)"TS":6)"R4":6)"Q""6)"R2":6)"D2 ,"SIND ALLES BEZEICHNUNGE00,370hQ$:3409r"NEIN,DAS IST EINE VARIABLE.":70:C4430h|"LESEN SIE DIE DEFINITION FUER VARIBLEN""BITTE NOCH EINMAL!":60:"":240:I120:"DAS IST RICHTIG!";"DAS IST RICHTIG!";:S"PROGRAMMES KORREKTUREN NOTWENDIG.":70J"UM EINE AUFLISTUNG DES GESPEICHERTEN""PROGRAMMES ZU ERHALTEN, WIRD DER BEFEHL":" L I S T BENUTZT.70:"SIE TIPPEN EINFACH DEN BEFEHL  L I S T " "EIN, UND EINE AUFLISTUNG DES PRMTEILSD"ERFORDERLICH IST, WIRD EINER DERCN"FOLGENDEN BEFEHLE GEGEBEN:":70:70tX"LIST -L"10)"AUFLISTUNG BIS ZEILE L":70b"LIST L-M"8)" AUFLISTUNG VON ZEILE L":10)"BIS ZEILE M"l70v"LIST L-"10)"AUFLISTUNG VON ZEILE LHENDE BEFEHL HEISST: R U N ":70:702"";:I138:"";::"";^"";:I138:"";::"";m"";"BEM.:R U N IST EIN SYSTEMKOMMANDO" UND BENOETIGT KEINE ZEILENNUMMER.":601101,7,15B!":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5\^R5JTҷrj2RZTgfNܥ)U={UޔI~Zko^jgy6jyM٪z6wf953s]W-ΔRZֵ}_W}_W}SJ}ݗΒ-r]w=r=ޔRZֵkZֵk_W}_W}_W}w]Wuw)v^ϒ)J$"#":40:""14)"LEKTION 3":12)"1. PRINTLn12)"2. LEERSTELLE"kx12)"3. TAB FUNKTION":70""15)"PRINT":80:140"DER PRINT-BEFEHL ERMOEGLICHT DIE UEBER-"TRAGUNG VON GESPEICHERTEN DATEN AUF DEN":"BILDSCHIRM.RME  (Z.B.: A+D/TS)":80K" STRINGS (Z.B.: "Z$"NEIN"Z$","Z$"JA"Z$" )80:" STRING-VARIABLEN (Z.B.:A$, S$)":::80" BEM.: STRING-VARIABLEN WERDEN SPAETER" NOCH ERKLAERT. ":80"NUN EINIGE BEISPIELE FUER PRIN EHRUNG VON ZEILE 13 WIRD DAS ":"WORT -HALLO- GEDRUCKT."Z@80:"ALLGEMEIN WIRD JEDE INNERHALB VONJ"ANFUEHRUNGSZEICHEN STEHENDE ZEICHENKETTE";:"GEDRUCKT.T80:"BEI AUSFUEHRUNG VON ZEILE 15 WIRD, FALLS";^"DIE ZAHL 10 IN A GESPEICHERT WURD 34)("18 PRINT"Z$" IHR GUTHABEN BETRAEGT $"Z$"Cg"442 PRINT"Z$"$"Z$" C+D "Z$"BETRAEGT IHR GUTHABEN"Z$ :80"WELCHER DER OBIGEN BEFEHLE IST NICHT"RICHTIG (505, 723, 18 ODER 442)";:A$A$"723"680A$"442"610A$" 8 IST RICHTIG!-::"ANGENOMMEN FUER C WURDE DER WERT 102.55\D"GESPEICHERT, SO WIRD FOLGENDES GEDRUCKT:N" IHR GUTHABEN BETRAEGT $102.55":80X"VERSUCHEN SIE ES NOCHMAL!":70:400b80:"NEIN, ZEILE 442 IST RICHTIG!l:"ANGENO ":70:400?"SEHR GUT!  DER FEHLER IST GAR NICHT SO":"LEICHT ZU SEHEN.":80|"IN ZEILE 723 FEHLEN DIE ANFUEHRUNGS-":"ZEICHEN.":701,6,15,"ENDE VON LEKTION 3 TEIL 1":2)"BITTE WARTEN SIE, BIS DER COMPUTER2)"TE  (8)(142)15 ւ20,2,7:4,2,5iQ$" ":150("":I139:C$;::I122:""C$;::"";2I138:""C$"";::C$<I123:""C$"";::FA$:A$""70P:Z80:"UEBER12)"4.HIERARCHIE#12)"5.LET-BEFEHL812)"6.BEISPIELk70:"":"DER COMPUTER KANN EINE GROSSE MENGE"DATEN VERARBEITEN.":80"ABER, WAS SIND (IN BASIC) DATEN?"::"ES GIBT ZWEI ARTEN VON DATEN:"80:9)"ZAHLEN UND STRINGS":SCHRIEBEN.":8"5)"0,1 IST FALSCH, ES HEISST 0.1 ":70:""s,12)"A. -10111"::12)"B. .129"::12)"C. DM24.75"6:12)"D. 2001":@"WELCHE DER OBIGEN ZAHLEN WIRD IN BASIC":"NICHT AKZEPTIERT";J"(A,B,C ODER D)";TA$:: A$0:"ANDERE MOEGLICHE FORMATE SIND:"G" 0.129 ODER 0.1290 ODER .1290":80s"(NULLEN VOR DEM KOMMA UND ANGEHAENGTE" NULLEN WERDEN VOM COMPUTER VERNACH-":" LAESSIGT.)"90:300"NEIN, DIE ZAHL 2001 IST RICHTIG.":90:300/DERZEICHEN.980:"HIER EINIGE BEISPIEL FUER STRINGS:"::12)"$":80f12)"EINGABE DES ALTERS IN JAHREN";:80&12)"DAS GEHALT BETRAEGT $":012)"R2D2 AND C3P0":110::80:"STRINGS ERMOEGLICHEN DIE EINGABE VON D"NICHT-NUMERI+l"-IST EIN STRING":"5. ALLE OBIGEN AUSSAGEN SIND RICHTIG.Mv"(1, 2, 3, 4 ODER 5)";:A$:^(A$)5660}(A$)670,670,670,670,680Q$:630"RICHTIG, ABER ES GIBT EINE BESSERE":"ANTWORT!":90:590"DAS IST RICHTIG!":"VIEHEN.":A$:25);*1,6,15,"ENDE VON LEKTION 4 TEIL 1":X2)"DER COMPUTER LAEDT JETZT TEIL 2w2)"NACH, BITTE WARTEN.FI$"4/2LEKTION"T11000:F0,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":18"560 A$"505"520Q$:400;"NEIN,ZEILE 505 IST RICHTIG!l:"ANGENOMMEN, FUER C WURDE DER WERT 102.5"GESPEICHERT, SO WIRD FOLGENDES GEDRUCKT:&5)"102.5":80:"VERSUCHEN SIE ES NOCHMAL!":70:4000"NEIN, ZEILE 1MMEN,FUER C UND D WURDEN DIE WERTE";Mv"100 UND 10 GESPEICHERT,SO WIRD FOLGENDES";:"GEDRUCKT:w" $ 110 BETRAEGT IHR GUTHABEN":80"DER TERM C+D WIRD BERECHNET (110) UND"DAS ERGEBNIS WIRD GEDRUCKT.":80"VERSUCHEN SIE ES NOCHMAL!IL 2 EINGELESEN HAT.FI$"3/2LEKTION"!T11000:0,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5|{,SIs5)JLEGEN SIE NOCHMAL!":70:"d%n2xZ$(34)TI142:" ";::"":I1U" ";:::Z$(34)C$"":40:""12)"LEKTION 4":12)"1.ZAHLEN 12)"2.STRINGS":12)"3.TERME":80F"ZAHLEN SIND KONSTANTEN, ENTWEDER MIT":"ODER OHNE DEZIMALPUNKT.y80:"ZUM BEISPIEL:":15)"15":15)"1129.92"15)"0.0012":15)"-101":15)"-1.25"80:"BEM.:IN BASIC WIRD EIN DEZIMALPUNKT UND"" KEIN DEZIMALKOMMA GE"B"410 ^A$"D"470hA$"C"480-rA$"A"390?|Q$:"":300k"NEIN, DIE ZAHL -10111 IST RICHTIG!":"ES HANDELT SICH UM EINE NEGATIVE ZAHL.":90:300"NEIN, DIE ZAHL .129 IST EINE RICHTIG":"GESCHRIEBENE DEZIMALZAHL."8"GANZ RECHT, DM DARF IN EINER ZAHL NICHT":"VORKOMMEN.":80g"DM24.75 IST EIN BEISPIEL FUER EINEN":"STRING."70:""15)"STRINGS":"STRINGS SIND ZEICHENKETTEN BESTEHEND""AUS KOMBINATIONEN VON BUCHSTABEN, ZAHLEN";"UND SONSCHEN INFORMATIONEN IN DEN":"COMPUTER.":70:""jN"WELCHE DER FOLGENDEN AUSSAGEN IST":"RICHTIG:":80:"1. 12345"25);X"-IST EINE ZAHL"::"2. ALLES KLAR ?"25)"-IST EIN STRING"b"3.27.MAERZ 1978 BLN"25)"-IST EIN STRING":"4. 12345"25); ELLEICHT SIND SIE ERSTAUNT, DASS 12345";D"SOWOHL EINE ZAHL ALS AUCH EIN STRING IST"ES KOMMT DABEI GANZ DARAUF AN, WIE 12345";:"PROGRAMMIERT WURDE.80:"IN EINEM STRING KOENNEN ALLE AUF DEM"TASTENFELD VORKOMMENDEN ZEICHEN STd"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5 ( #   (8)(142)15 ւ20,2,7:4,2,5sQ$" ":Z$(34):120("":I139:C$;::I122:""C$;::"";2I138:""C$"";::C$<I123:""C$"";::FA$:A$""70P:#Z8 LGENDE WERTE EINGEGEBEN:":80:12)"R = 4H12)"S = 7":12)"T = 9":80u"UND ES SOLL DER TERM (S+3+2*R)/T+1"BERECHNET WERDEN."::"WIE LAUTET IHRER MEINUNG NACH DAS"ERGEBNIS (SOLLTEN SIE ES NICHT WISSEN,":"GEBEN SIE BITTE 0  "130 A$"R"270Q$:"":210T"DAS ERGEBNIS VON (S+3+2*R)/T+1 IST 3,""SIE ERHALTEN DIESES ERGEBNIS FOLGENDER-":"MASSEN:"80:8)" 2*R ERGIBT 8 ,UND ":80:6); ,"(S+3+8) ERGIBT 18 ,UND":80:8)" 18/T0%r"EINIGE BEISPIELE:":80:8)"15 LET A=4`|8)"25 LET R$=";Z$;"ALLES KLAR ?";Z$:8)"30 X=X+1"x8)"55 Z$=P$":70"EIN LET-BEFEHL HAT FOLGENDES FORMAT:":80"ZEILEN# LET VARIABLE = TERM ODER STRING)80:"DGEBNIS IN DER VARIABLEN X.":70V"WELCHE DER FOLGENDEN ANWEISUNGEN IST":"KEIN LET-BEFEHL:":80"535 LET 4=E":"720 LET G=2*G+H":"340 F$=";Z$;"JA";Z$:"270 I=J""(535, 720, 340, ODER 270)";A$:(A$)535600(A$)720560(RD IN G GESPEICHERT.":90N480X"RICHTIG!fb"LINKS NEBEN DEM ZEICHEN = MUSS EINE":"VARIABLE STEHEN."l80:"BEVOR SIE MIT LEKTION 5 WEITERMACHEN,v"VERSUCHEN SIE VIELLEICHT, FOLGENDES ":"PROGRAMM ZU SCHREIBEN."70OLLEN FOLGENDE DATEN EINGEGEBEN";:"WERDEN:P7)"KFZ-KENNZEICHEN":7)"VERBRAUCHTES BENZIN IN LITER7)"GEFAHRENE KILOMETER"::"DER COMPUTER SOLL DAS KFZ-KENNZEICHEN ""UND DEN DURCHSCHNITTLICHEN BENZINVER-":"BRAUCH FUER 100KM AUSDRUCKEEINE DER TASTEN" "J = JA, ODER"2*"N = NEIN";4A$L>A$"J"870xH:1,6,15,"IN WENIGEN SEKUNDEN FOLGT":R"LEKTION 5"\2000f40p"SIE HABEN SCHON DIE 1. HAELFTE"iEN":"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5~uԕ?&zԧJN^Wu;rVks\mv]WzRR׺Uҷrj2R)iyM٪z6wfךMR\d"DER GOTO-BEFEHL ERMOEGLICHT DEN SPRUNGin"ZU IRGENDEINER ZEILE DES PROGRAMMES.x80:"DABEI KANN ENTWEDER ZU EINER ZEILEN# VOR";"DEM GOTO-BEFEHL ODER ZU EINER ZEILEN#"NACH DEM GOTO-BEFEHL GESPRUNGEN WERDEN.":2*A"Z$"MONATE ALT"Z$W"16 GOTO20":"18 PRINT"Z$"SIE SIND"Z$"365*A"Z$"TAGE ALT"Z$:"20 END80:"DIESES PROGRAMM BERECHNET ENTWEDER DAS"ALTER IN TAGEN ODER IN MONATEN, ABER"NICHT BEIDES ZUSAMMEN.":80"WENN AUF DIE FRAGE VO ILE 20 (ZEILE 18 WIRD AUSGELASSEN).L6"BITTE BEACHTEN SIE,DASS DER END-BEFEHL"|@"DAS PROGRAMM IN JEDEM FALL BEENDET.";:70J"5 INPUT X":"10 IF X>=50 THEN 50":"20 GOTO 40T"30 PRINT X*10":"40 GOTO 60^"50 PRINT X":"60 END":  (8)(142)15 ւ70,2,7:4,2,5:130i"":I139:C$;::I122:""C$;::"";(I138:""C$"";::C$2I123:""C$"";::<A$:A$""60F:P"":I0Y1:"";::"";:ZJ115:">";:I140::" 9)"4. PROGRAMMBEISPIEL":60b""12)"SCHLEIFEN":60:"EINE DER NUETZLICHSTEN EIGENSCHAFTEN"IHRES COMMODORE-COMPUTERS BESTEHT IN DER""MOEGLICHKEIT, VORGAENGE DIE SICH WIEDER-""HOLEN, EINFACH UND SCHNELL AUSZUFUEHREN.":60# EGT"Z$"R*H";" 115 GOTO 95h" 120 DATA "Z$"R. BRAUN"Z$", 3.50, 40":" 125 DATA "Z$"K. BLAU"Z$",3.75, 20" 130 DATA "Z$"HANS DAMPF"Z$", 4.00, 38"" 140 DATA "Z$"ANNA ROS"Z$", 4.10, 40":" 199 DATA "Z$"ENDE"Z$", 0, 0," 755 END":60: FE WIRD DURCH DEN ";<h"GOTO-BEFEHL":"IN ZEILE 115 GESCHLOSSEN.Tr60:Y9:80:90:60r|Y117:Y223:100:Y17:80"DER IF-BEFEHL IN ZEILE 100 BEENDET DIE":"SCHLEIFE,SOBALD ENDE";" EINGELESEN WURDE.":60:Y7:80:90:60:Y20ANGELEGT WERDEN (FUER JEDEN ARBEITER":"EINE).":60M100:80:"EIN QUIZ!":60:C0:100"WIE OFT FUEHRT DER COMPUTER BEFEHL 95":"AUS":Y680:90:Y18:80:"(1, 4 ODER 5) MAL ";A$A$"1"A$"4"A$"5"Q$:"":480 1-";$"FUEHRT, ZEILE 40 BEWIRKT DANN DEN SPRUNG";X"ZU ZEILE 60 (ZEILE 50 WIRD AUSGELASSEN).":70"BEVOR SIE DEN KURS MIT LEKTION 6"FORTSETZEN, VERSUCHEN SIE BITTTE EIN"PROGRAMM ZU SCHREIBEN, DASS DEN LOHN""EINES ARBEITERS"BITTE NOTIEREN SIE DIE AUFGABE, OD"BEVOR SIE EINE BELIEBIGE TASTE DRUECKEN.":70NC$"":40:""10)"ENDE VON LEKTION 5XV8O1000:V8:660b"";:I1Y1:"";::"";:J0Y2Y1l"  MIT J (=JA)"%"SONST MIT N (=NEIN)"8A$:A$""770Q A$"J"""::2000aA$"N":j 770FI$"6/1LEKTION")0,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":"MOMENT BE SCHLEIFE ERST,"DN"WENN DURCH DEN BEFEHL IN ZEILE 199 ENDE":"EINGELESEN WURDE.bX60:Y14:80:90:60:100bY17:80:"VERSUCHEN SIE ES NOCHMAL!":60:100:Y17l80:480v"NEIN, 4 MAL IST NICHT RICHTIG.""BEACHTEN SIE, DASS "RICHTIG.#"DER READ-BEFEHL WIRD 5 MAL AUSGEFUEHRT,"I"FUER JEDEN DATEN-BEFEHL EINMAL.\ "ENDE", 0, 060::1,6,15,"ENDE VON LEKTION 7 TEIL 1":"BITTE WARTEN SIE, BIS TEIL 2"EINGELESEN IST.FI$"7/2LEKTIO>";:K120:::" ":\dYY1:80:I0Y2Y1:" ":fn80:xxI11000::Z$(34):C$"":30:""12)"LEKTION 7"9)"1. SCHLEIFEN9)"2. FOR...NEXT-BEFEHLE":9)"3. REM-ANWEISUNG"AN EINEM PROGRAMM ZUR BERECHNUNG VON"K"ARBEITSLOEHNEN SOLL IM FOLGENDEN""DER GEBRAUCH VON SCHLEIFEN ILLUSTRIERT ":"WERDEN:"60:" 95 READ N$,R,H":" 100 IF N$="Z$"ENDE"Z$" THEN 755" 110 PRINT"Z$"DER LOHN FUER"Z$"N$"Z$"BETRA"DAS OBIGE PROGRAMM WIEDERHOLT DIE@6"BEFEHLE DER ZEILEN 95 BIS 115,b@60:Y69:80:90::Y18:80J31)"SOLANGE":"BIS IN ZEILE 199 ENDE UND DIE WERTE 0,"T"0 EINGELESEN WORDEN SIND.":60 ^Y14:80:90:60:Y22:80:"DIE SCHLEI:80#"DER EIGENTLICHE WERT DIESES PROGRAMMESP"WIRD ERST OFFENSICHTLICH, WENN ES FUER"VIELE ARBEITER DURCHGEFUEHRT WIRD.":60:Y224:100:80"UM DAS PROGRAMM FUER MEHR ARBEITER AUS-"ZUFUEHREN,MUESSEN NUR MEHR DATA-ZEILEN"$"00:Y17:80:A$"5"C0680A$"5"C1690-A$"5"700=A$"4"630l&CC1:"NEIN, DENKEN SIE DARAN, DASS DER0"GOTOBEFEHL DIE WIEDERHOLUNG DER BEFEHLE":"IN DEN ZEILEN 95 BIS 115 BEWIRKT.":60D"DER IFBEFEHL BEENDET DI BERECHNET.":80-"DER ARBEITER SOLL DM 8.35 PRO STUNDEw"VERDIENEN UND FUER JEDE UEBERSTUNDE DAS":"EINEINHALBFACHE DES ";&"LOHNES BEKOMMEN.":"ES SOLL NACH EINGABE DER GEARBEITETEN"0"STUNDEN DER LOHN GEDRUCKT WERDEN.":80: "::v"";:I1Y1:"";::"";:+A$:A$"N"690<A$"J"640o1,3,10,"VERSCHNAUFEN SIE EINEN MOMENT, BIS":"LEKTION 6 GELADEN IST.""WENN SIE BEREIT SIND FUER LEKTION 6,""ANTWORTEN SIE BITTEGITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5ӷ.Nܥ'zRRRJTәwmwYٓ)Jvf5vew%*Y_VךM^ngy6jyM٪ze%sUs)9k_W}_W}_T=wesytܗ]s\9w)9kZֵkZ}_W}_W}_]UsJt)J ZEILE 95 FUER JEDENH"DATA-BEFEHL EINSCHLIESSLICH ZEILE 199":"EINMAL AUSGEFUEHRT WIRD.w60:"VERSUCHEN SIE ES NOCHMAL!":CC1:60100:Y17:80:480"AUF ANHIEB RICHTIG!!":60:710"BEIM ZWEITEN VERSUCH RICHTIG!":60:710N"T11000:0,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5  (8)(142)15 ւe0,2,7:4,2,5:Z$(34):Q$" ":120"":I139:C$;::I122:""C$;::"";(I138:""C$"";::C$2I123:""C$"";::<A$:A$""60F: P"":I0Y1:" ":"1. 12 FOR K=1 TO 100":" 14 PRINT Ks" 16 NEXT":"2. 1 A=10":" 3 B=3":" 5 FOR X=A TO B STEP -1" 7 INPUT R(X)":" 9 NEXT":"3. 9 FOR Y+Z=1 TO 10" 11 PRINT Y,Z":" 13 NEXT":"(1, 2 ODER 3)";A$(A$)2 9"VARIABLEN UND TERME KOENNEN START-":"UND ENDWERT SEIN."U60:Y121:Y21:100:80"DER WERT DER SCHRITTLAENGE KANN NEGATIV":"SEIN.":60100:80:"DER INPUT-BEFEHL WIRD ZUNAECHST MIT DEM""WERT X=10, DANN MIT X=9, USW. BIS ":"SRERE FOR...NEXT-SCHLEIFEN":"INEINANDER ZU SCHACHTELN."n^"IM FOLGENDEN BEISPIEL WIRD DIESE PRAKTIK";:"ILLUSTRIERT:h" 10 FOR I=1 TO 5":" 20 FOR J=1 TO 3":" 30 INPUT M(I,J)":" 40 NEXT Jr" 50 NEXT I":"DIESES PROGRAMM ERLAUBT DI80:"":60:Y114100?"DA J DIE WERTE 1, 2, 3 FUER JEDES I AN-y"NIMMT, SIEHT DIE MATRIX M FOLGENDER-":"MASSEN AUS."":"M(1,1)":"M(1,2)":"M(1,3)":"M(2,1)"M(2,2)":"USW.":60 ""12)"REM-BEFEHL":"DER REMZ$"HALLO"Z$%"JEDE AUSSAGE NACH EINEM REM-BEFEHLT&"WIRD VOM COMPUTER NICHT BEACHTET. ":600"BEVOR SIE MIT LEKTION 8 FORTFAHREN,:"VERSUCHEN SIE BITTE, EIN PROGRAMM ZU":"SCHREIBEN UND ZU RECHNEN,";D"DAS DIE ZAHLEN 1 BIS 100 I30:""10)"ENDE VON LEKTION 7<"WENN SIE BEREIT SIND FUER LEKTION 8,f"ANTWORTEN SIE BITTE MIT J (=JA)""SONST MIT N (=NEIN)"A$:A$"N"730A$"J"6801,6,15,"DER ENDSPURT BEGINNT !"VMOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,13:239,5uRTRRUgfNܥ)U={Uޔ}tܦ:kzL~Zko^jgy6jyM٪z6wf953s]W-ΔRZֵ}_W}_W}SJ}ݗΒ-r]w=r=ޔRZֵkZֵk_W}_ee)J  (8)(142)15 ւ@0,2,7:4,2,5:Z$(34):130nYU1:100:"":I0U2U12:""::"":("":I139:C$;::I122:""C$;::"";2I138:""C$"";::C$<I123:""C$"";::FYU1:100:I0U2U1:" ":: PA$:A$""80Z:7d"":I0Y1:"";::"";:}nYY1:100:I1Y2Y1:" ":x100:C$"#":40:""15)"LEKTION 8"12)"1. PROGRAMMBEISPIEL":12)"2. GOSUB...RETURN"12)"3. ON";::"";:=ZJ18:">";:I150::" ";:K150:::dYY1:80:I024Y1:" ":n80:x""8)"FOR...NEXT (FORTSETZUNG)":60"WELCHER DER FOLGENDEN BEFEHLE IST NICHT":"RICHTIG:)"00,240,310Q$:170N"NEIN, DIESER FOR...NEXT-BEFEHL IST":"KORREKT.":60fY121:100:Y21:80"ES WERDEN DIE ZAHLEN 1 BIS 100 IN EINER REIHE GEDRUCKT."UEBERLEGEN SIE NOCHMAL!":60:130"NEIN, DIESER BEFEHL IST KORREKT!CHLIESSLICH MIT X=3 AUSGEFUEHRT.K,60:100:80:"UEBERLEGEN SIE NOCHMAL!":60:1306"JA, RICHTIG!":"TERME (WIE Y+Z) DUERFEN NICHT LINKS@"VON DEM ZEICHEN = STEHEN.":60J"ES IST ZULAESSIG, UND HAEUFIG AUCH,T"NUETZLICH, MEHE EINGABE VON""|"15 ZAHLEN IN DIE MATRIX M.J"BITTE BEACHTEN SIE, DASS FUER DIEq"AUESSERE SCHLEIFE DIE VARIABLE I"BENUTZT WIRD, WAEHREND DIE VARIABLE"FUER DIE INNERE SCHLEIFE J HEISST.":60Y8:80:"ϣ̤":Y9:-BEFEHL ERMOGLICHT ES, BEMER-":"KUNGEN IN DAS PROGRAMM ZU SCHREIBEN."g"SIE KOENNEN REM-BEFEHLE BENUTZEN, UM"DAS PROGRAMM VERSTAENDLICHER ZU MACHEN.":"DAZU NUN EIN BEISPIEL:"" 10 REM DIESES PROGRAMM DRUCKT HALLO":" 20 PRINT "N DIE EINE REIHE";5N" DRUCKT UND":"IN DIE REIHE DANEBEN IHRE QUADRATE.nX"(ZUM BEISPIEL IST DAS QUADRAT VON 5 ":" 5*5=25)b"BITTE NOTIEREN SIE DIE AUFGABE, "l"BEVOR SIE EINE BELIEBIGE TASTE DRUECKEN.v60 C$" ":2000""0" SIE HABEN SICH EINE KLEINE PAUSE"N" REDLICH VERDIENT !"_I11700:Ig:|FI$"8/1LEKTION"T11000:60,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":"  (8)(142)15 ւ60,2,7:4,2,5:80h"":I139:C$;::I122:""C$;::"";(I138:""C$"";::C$2I123:""C$"";::<A$:A$""60F:PZ$(34):C$"":30:""13)"LEKTION 10"*Z10)" ...GOTO":12)"4. ON...GOSUB":80f""11)"PROGRAMMBEISPIEL":"ES FOLGT NUN EIN PROGRAMMBEISPIEL,";" DAS DIE ZAHLEN 1 BIS 100 IN DIE EINE";" REIHE DRUCKT UND DIE QUADRATE IN DIE REIHE DANEBEN."":"1 FOR I = 1 TO 100" HRT WERDEN SOLL,":"WIRD DER BEFEHL GOSUB BENUTZT."X"EIN GOSUB-BEFEHL HAT DAS FORMAT:" ZEILEN#1 GOSUB ZEILEN#2":"BEI AUSFUEHRUNG VON ZEILEN#1 SPRINGT":"DER COMPUTER ZU ZEILEN#2""UND FUEHRT DIE ANWEISUNGEN BIS Z E";:"SUBROUTINE.KT"DER RETURN-BEFEHL HAT DAS FORMAT:":" ZEILEN# RETURN^"BETRACHTEN SIE NUN DAS FOLGENDE":"PROGRAMM:":80h" 2 FOR I=1 TO 100":" 4 INPUT N$, H, R":" 6 GOSUB 12":" 8 NEXT"r" 10 GOTO 22":" 11 REM L:"FUER 100 ARBEITER."$80:Y115:Y225:110:100T"IN ZEILE 4 WIRD DIE EINGABE DES NAMENS,"DER ARBEITSSTUNDEN UND DES GEHALTS":"ERMOEGLICHT.":80"ZEILE 6 SORGT FUER DEN SPRUNG NACH":"ZEILE 12.":80:U13:U2730 110:Y21030:Y23:805100:"ZEILE 20 BEWIRKT DEN DRUCK DES NAMENS"P&"UND DES LOHNS.";:800U13:70:110:Y16:100:"ZEILE 21 BEWIRKT DEN SPRUNG ZURUECK:"ZU ZEILE 8.":80:U14:U212:30:80:70DY16:100:"WENN NICHT UEBER 40 SU24:30;:80 70:110:Y15:1007"ZEILE 10 SORGT FUER DEN SPRUNG ZU"e"ZEILE 22, UM DAS PROGRAMM ZU BEENDEN,"WENN DER 100STE NAME EINGEGEBEN IST.":80:U15:U21330:80:1,6,15,"ENDE VON LEKTION 8 TEIL 1":" 3:239,5ReYsݷu]IJtWJkӦjJWզ6wfכM^kgy6jIs\75rJze%kZ}_W}_W=||)r7%s-sJze%kZֵkZֵ}_W}_W}_Wuw\y'e{*K^kgy6jys6kgk)M979kfzrkk)Mڕ)J IRMRAND,"A"FUER DEN HINTERGRUND UND FUER DIE":"ZEICHEN. ";c"JEDE DIESER FARBEN KANN IN""8 HELLIGKEITSSTUFEN DARGESTELLT WERDEN."" 1.PRINT-BEFEHL: ":"DIE ZEICHENFARBE KOENNEN SIE GANZ EIN-","FACH DURCH BETAETIGEN DER CTRL- BZW.":"DER C=-TASTE UND EINER";N" ZIFFERNTASTE":"WECHSELN.""GESCHIEHT DIES WAEHREND EINES PRINT-":"BEFEHLS, SO ERSCHEINEN DIE";" FARBSTEUER-":"ZEICHEN ALS GRAFISCHE ZEICHEN AUF DEM""BILDSCHIRM."60:"1. FARBSTEUERUNG":10)"2. HOCHAUFLOESENDE"@d13)"GRAFIK":60an"":12)"FARBSTEUERUNG"x"MIT DEM C-16 ODER PLUS/4 KOENNEN SIE""VERSCHIEDENE FARBKOMBINATIONEN AM ""BILDSCHIRM AUSWAEHLEN:":"JE 16 FARBEN FUER DEN BILDSCH2 PRINT I, I*I":"3 NEXT":80a""10)"GOSUB...RETURN":"GROESSERE PROGRAMME BENOETIGEN HAEUFIG""DIE WIEDERHOLUNG EINER GANZEN GRUPPE VON";:"BEFEHLEN (SUBROUTINE).""UM DEM COMPUTER MITZUTEILEN, DASS EINE-"SUBROUTINE AUSGEFUEUM#""NAECHSTEN RETURN-BEFEHL AUS, DANACHo,"SPRINGT DER COMPUTER ZU DEM BEFEHL, DER":"DEM GOSUB-BEFEHL FOLGT."680:I111:::"";:80@Y14:100:"DIE GRUPPE VON BEFEHLEN, DIE AB ZEILE#2"J"BIS ZUM RETURN-BEFEHL STEHT, HEISST EINOHNSUMMEN-SUBROUTINE":" 12 IF H>40 THEN 18"H|" 14 PRINT N$ "Z$" VERDIENT "Z$" H*R}" 16 RETURN":" 18 LET S= 40*R + (H-40)*1.5 * R" 20 PRINT N$ "Z$"VERDIENT"Z$" S":" 21 RETURN":" 22 END"80"DIESES PROGRAMM BERECHNET DEN LOHN"15:100:"IN ZEILE 12 WIRD FESTGESTELLT, OB DER["ARBEITER MEHR ALS 40 STUNDEN GEARBEITET":"HAT.":80"WENN JA, SO WIRD ALS NAECHSTES IN ZEILE""18 DAS GEHALT INKLUSIVE UEBERSTUNDEN""BERECHNET UND IN S GESPEICHERT.":80:U18:UTUNDEN GEARBEITET<N"WURDE, SO WIRD IN ZEILE 14 DAS GEHALT":"BERECHNET.":80X"ZEILE 16 SORGT FUER DEN SPRUNG ZURUECK":"ZU ZEILE 8.";:80bU29:30:80:70:Y23:100l"AN DIESER STELLE WIRD DIE SCHLEIFEv"WIEDERHOLT.";:80:U11:BITTE WARTEN SIE, BIS TEIL 2":"EINGELESEN IST."2FI$"8/2LEKTION"BT11000:0,7,0:4,7,0:1,7,0:"LOAD":"ES WIRD NACHGELADEN":"MOMENT BITTE !":1,7,0:1319,19:1320,13:1321,82:1322,213:1323,1"@"BEISPIEL:":"DER BEFEHL":"10 PRINT"Z$" S P E K T R U M"Z$~" ^ ^ ^ ^ ^ ^ ^ ^":" CTRL 1 2 3 4 5 6 7 8""ERSCHEINT MIT GRAFIK-ZEICHEN AUF":"DEM BILDSCHIRM:""10 PRINT''ВSEP\EߒKܒT^R_UM''"9 2  BRAUN C= 2"H^"ROT CTRL 3  GELBGRUEN C= 3"h"TUERKIS CTRL 4  ROSA C= 4"r"VIOLETT CTRL 5  BLAUGRUEN C= 5"|"GRUEN CTRL 6  HELLBLAU C= 6"$ Z.B. DER BEFEHL: PRINTCHR$(30)"Z$"GRUEN"Z$U"SCHREIBT DAS WORT'GRUEN' AUF DEN":"BILDSCHIRM.""ES FOLGEN DIE CHR$-CODES DER VERSCHIEDE-":"NEN FARBEN60:""1550" 3.POKE-BEFEHL: ":"MIT JE EINEM POKE-BEFEHL"; "DIE FARBCODES DUERFEN ZWISCHEN 0 UND":"255 LIEGEN."Y&"HOHE ZAHLENWERTE (BIS 127) ENTSPRECHEN"0"HELLEN FARBEN. AB 128 WERDEN DIE ZEICHEN":"BLINKEND DARGESTELLT."DA$:A$""580NX07:2888X,130:X60:""b"BE EN""POKE 3047,Y SPEICHERADRESSE FUER?15)"FARBSPEICHER RECHTS UNTEN"m"X SIND ZEICHEN-CODES, Y FARB-CODES."60:"":"NACH DRUECKEN EINER BELIEBIGEN TASTE""FOLGT EINE  D E M O .":"DIESE DEMO POKED VERSCHIEDENE";24"# 7)"30 POKE J,INT(255*RND(1)+1)":7)"40 NEXT:GOTO 10"060:""E I30723072999X*I,90:JI1024m4J,(255(1)1)s>{H60R" 4. COLOR-BEFEHL: "\"MIT DIESEM BEFEHL KOENNEN SIE DIE FARBEN"f"DES BILDS "B = 0 : BILDSCHIRMHINTERGRUND"' "B = 4 : BILDSCHIRMRAND"D "B = 1 : ZEICHEN":60b "COLOR B,F,H"p 2143,130 "F LIEGT ZWISCHEN 1 UND 16 UND ENT-" "SPRICHT DEN 16 FARBEN IN DER VORHER":"GEZEIGTEN TABLEN ERZEUGT HABEN, PROGRAM-":"MIEREN ";F"8"WIR JETZT MIT HILFE VON COLOR-":"UND PRINT-BEFEHLEN."N"B60"L"DAS ZUGEHOERIGE PROGRAMM SIEHT SO AUS:""V"10 PRINT"(34)(211)(34)":COLOR0,1:COLOR4,1":3281,211"`"20 FORX=0 TO 998"T DEM CHR$-CODE":"191 WIRD AUSGEDRUCKT"($"DEMO STARTET NACH TASTENDRUCK"0$60D$"";:0,1:4,1S$X0 998r$F(16(1))1:H(7(1))}$1,F,H$(191);$$A$:A$""1280$  F2 16$H0 7$4,F,H$(0,F,H""UND WIRD FOLGENDERMASSEN AUSGEFUEHRT:":"SPEKTRUM"F,60:""t6"FARBE TASTE FARBE TASTE"@""J"SCHWARZ CTRL 1  ORANGE C= 1"T"WEISS CTRL BEWIRKT, SIEHT"&"FOLGENDERMASSEN AUS:":60&"80 FOR F=2 TO 16"5&"90 FOR H=0 TO 7"K&"100 COLOR4,F,H"a&"110 COLOR0,F,H"&"120 FOR K=1 TO 100:NEXT"&"130 NEXT:NEXT"&"ZEILE 70: F=1 WURDE WEGGELASSEN, DA ES"&"VON"BLAU CTRL 7  DUNKELBLAUC= 7"["GELB CTRL 8  HELLGRUEN C= 8"" 2.FARB-CHR$-CODES: ":"DIE FARB-CHR$-CODES KOENNEN IM ZUSAM-""MENHANG MIT DEM PRINT-BEFEHL DIREKT":"BENUTZT WERDEN.""" KOENNEN SIE"G"BELIEBIGE ZEICHEN IN JEDE BELIEBIGE":"BILDSCHIRM-SPEICHERSTELLE";" SCHREIBEN.":"ODER JEDE BELIEBIGE FARBE IN JEDE""BELIEBIGE FARB-SPEICHERADRESSE.""AUCH DIE HELLIGKEIT KOENNEN SIE DAMIT":"FESTLEGEN")ISPIELE:""l"POKE 3072,X SPEICHERADRESSE FUERFv15)"BILDSCHIRM LINKS OBEN"s"POKE 4071,X SPEICHERADRESSE FUER15)"BILDSCHIRM RECHTS UNTEN""POKE 2048,Y SPEICHERADRESSE FUER15)"FARBSPEICHER LINKS OB" FARBEN":"IN VERSCHIEDENEN HELLIGKEITEN">"IN ALLE BILDSCHIRMSPEICHERSTELLEN.""DABEI WERDEN DIE FARBCODES DURCH DIE":"ZUFALLSFUNKTION ERZEUGT.""PROGRAMM-LISTING:"7)"10 FOR I=3072 TO 3072+999":7)"20 POKE I,90:J=I-10CHIRMHINTERGRUNDS"p"DES BILDSCHIRMRANDES")z"DER ZEICHEN"9"AENDERN"DER COLOR-BEFEHL HAT FOLGENDES FORMAT":"COLOR B,F,H"602660,130"B GIBT DEN BEREICH AN, DER EINGEFAERBT":"WERDEN SOLL:":2768,130ELLE" 2248,130:60;!2143,2:2145,130:"H KANN WERTE ZWISCHEN 0 UND 7 ANNEHMEN"!"DAMIT WIRD DIE FARBHELLIGKEIT GESTEUERT":2248,70:2488,130!60!$2488,70:2145,2:"EINE FARBDEMO, WIE WIR SIE EBEN MIT":"POKE";"."-BEFEH#j"30 F=INT(16*RND(1))+1:H=INT(7*RND(1))"#t"40 COLOR1,F,H"3#~"50 PRINTCHR$(191)"G#"60 NEXT":60z#"ZEILE 10: DER BILDSCHIRM WIRD GELOESCHT"#"HINTERGRUND UND RAHMEN WERDEN SCHWARZ":"EINGEFAERBT"$"ZEILE 50: DAS ZEICHEN MI $2K1100:$<:$F0,2,5:4,2,5/%P"ZUM SCHLUSS HABEN WIR IHNEN NOCH DIE"[%Z"16 FARBEN VON BILDSCHIRM UND RAHMEN"%d"IN ALLEN HELLIGKEITSSTUFEN VORGEFUEHRT"%n"DAS ERGAENZUNGSPROGRAMM ZUM FARBDEMO-"%x"PROGRAMM, DAS DIES  DER ZUGEHOERIGEN FARBE (SCHWARZ)""'"KEINE VERSCHIEDENEN HELLIGKEITEN GIBT."X'60:"":1,6,15,"ENDE VON LEKTION 10 TEIL 1 ":b'2000'" TABELLE FUER FARB-CHR$-CODES: "'"CHR$(5) :WEISS CHR$(151):ROSA "'""CHR$(28) :ROT :GELB")^"CHR$(150):GELBGRUEN CHR$(159):TUERKIS")h60:"")r+)FI$"10/2LEKTION";)T11000:)0,7,0:4,7,0:1,7,0:"LOAD"(34)FI$(34)",1":1,2,7:0,9,5,"ES WIRD NACHGELADEN":0,12,9,"MOMENT BITTE !":1,7,0:1319,19:1320,13:13  (8)(142)15 ւ60,2,7:4,2,5:50HA$:A$""30P(:v2""14)"LEKTION 10/7"<12)"HOCHAUFLOESENDE"F17)"GRAFIK":17)"TEIL 6"P30Z"WEITERE BEISPIELE FUER DEN CIRCLE-BEFEHL""d"IM  302,1:4,2,3:1,13"10 FORX=4TO160STEP2"]"20 CIRCLE1,0,0,1.5*X,X,90,90+X*0.5""30 CIRCLE1,319,0,1.5*X,X,270-X*.5,270""40 NEXT"X416021,0,0,1.5X,X,90,90X0.51,319,0,1.5X,X,270X.5,27030&L FUER DEN CIRCLE-"7h"BEFEHL WERDEN WIR EINIGE POLYGONE"Ir"ZEICHNEN."S|30:g1,3,1:410430r1,6,2}X381,160,80,8X,,,,,360X30"DER PAINT-BEFEHL  DIENT DAZU, FLAECHEN" "BIS ZUR BEGRENZENDEN 6,1 &1,160,80,100,75030/:1,3,1:580600:1,6,1>DX24414TN1,1601.5X,80XZXl30:0:"":1,6,15,"ENDE VON LEKTION 10 TEIL 7 ":ޜFI$"10/8LEKTION":T11000::0,7,0:4,7,0:1,7,0 "LOAD"(34)FI$(34)",1":0,9 (8)(142)15 ւ60,2,7:4,2,5:50HA$:A$""30P(:v2""14)"LEKTION 10/8"<12)"HOCHAUFLOESENDE"F17)"GRAFIK":17)"TEIL 7"P30Z"DER  BOX-BEFEHL " d"HILFT BEIM ZEICHNEN VON RECSSE DES RECHTECKS":"FESTGELEGT."M"DW : DREHWINKEL (ANGABE IN GRAD), WIE"u"BEIM CIRCLE-BEFEHL IST 0 OBEN""LA : LEGT FEST, OB EIN RECHTECK LEER""(LA=0) ODER AUSGEFUELLT (LA=1) IST.304,2,3:1,13,12,1  CHAR-FUNKTION  WIRD BENUTZT, UM"N|"TEXTE AUF DEM GRAFIK-BILDSCHIRM AUSZU-"{"DRUCKEN. DIE POSITION DES TEXTES MUSS""DURCH ZEILE UND SPALTE ANGEGEBEN WERDEN."302,11,11,20,140200,140:1,200,137200,143207,140200,13711,20,14020,20:1,17,2023,2020,1317,20n1,20,140160,100:1,156,99164,101167,99158,98156,99y1,3,1301,20,16,"X-ACHSE"1,15,10,"Y-ACHSE"1,4,2,"Z-ACHSE"30:49051030:0."":1,6,15,"E CHR$(152):BLAUGRUEN"(,"CHR$(30) :GRUEN CHR$(153):HELLBLAU"K(6"CHR$(31) :BLAU CHR$(154):DUNKELBLAU"{(@"CHR$(129):ORANGE CHR$(155):HELLGRUEN"(J"CHR$(144):SCHWARZ CHR$(156):VIOLETT"(T"CHR$(149):BRAUN CHR$(158)$21,82:1322,213:1323,13:239,5Vrs\mv]WzRRgUҷrj2ReiyM٪z6wfךMR\< I 1 39 F(153)"  $ << ABSCHREIBUNGSPROGRAMM >>H DIESES PROGRAMM BERECHNET DIEf JAEHRLICHE ABSCHREIBUNGx#0,2,7:4,2,7((5)" ABSCHREIBUNG"2"EINGABE DES NENNWERTS"< IF "EINGABE DER LAUFZEIT (IN JAHREN)"P NZ"EINGAB 0,9,2:4,9,2_ " << ADRESSENLISTE >>":" MIT DIESEM PROGRAMM KOENNEN SIE NAMEN,""ADRESSEN & TELEFONNUMMERN SPEICHERN UND":"SIE JEDERZEIT WIEDER ";"AUFRUFEN."("BEI EINGABE EINES IN DER LISTE GESPEI-"-"CHERTEN NAMENS 00Z L$)d L$ "ENDE DER LISTE" 330:n A1$,A2$,T$Nx L$ N$ 90W""_N$s "ADRESSE:"" "A1$A2$"T.:"T$70------------------------------- NEUE NAMEN KOENNEN JEDERZEIT DER LI") "COMMODORE-DEUTSCHLAND","LYONER STR.38"E "6000 FRANKFURT/M 71"Z " (069)6638/0"" "COMMODORE","901 CALIFORNIA AVE.", "PALO ALTO, CA 94304"6 "(415) 326-4000"@ "ENDE DER LISTE"JN$T"STEHT NICHT IN DER LISTE"0,2,7:4,2,7:1,1,0c " << MITTELWERT >> UND ":10)"STANDARDABWEICHUNG""DAS PROGRAMM BERECHNET MITTELWERT UND""STANDARDABWEICHUNG VON BIS ZU 255 ZAHLEN";:"(DATENWERTEN)."("--ENDE DURCH EINGABE VON <0>--"NG DER AUFLISTUNG ZU SEHEN, TIPPEN SIE BITTE< LIST -73 EIN.FM 0U ADDITIONe I 1 NvM M X(I)| DIVISION DER SUMME DURCH ANZAHL DER WERTE.M MNS 0 SUMME DER QUADRATISCHEN ABWEICHUNGEN. I Q CRSR RUNTERE "" BEDEUTET CRSR HOCH, "]" CSR RECHTS UND "" CRSR LINKS.9IJ̗95Ke'9|u{=}*JZ'uJ9Ke%{yr'9tw=tܗue{IRRәjRήRҥ)N[-5-wzeۗ_=tܗ=ޒ'RvJz'e{Iu%͒'=s{%)J 2 BESTIMMUNG DER HINTERGRUND- U. RAHMENFARBED0,4,6:4,4,0i " << WORTSPIEL >>""DIESES PROGRAMM KANN ZUM LERNEN VON""VOKABELN BENUTZT WERDEN.""NEUE WORTE KOENNEN HINZUGEFUEGT UND"#"BEREITS GELERNTE VOKABELN GELOESCHT WER-";:"DEN.""< N0F I1 N<P W$,NSMZ K 1 NSYd S$(K)_nx "UEBERSETZE DAS WORT "W$;"" R$ R$ "HILFE" 230 K 1 NS R$ S$(K) 210"NEIN! UEBERLEGE NOCH EINMAL ѝ";:Z025:ZP9Z BEWEGT DEN BALL NACH LINKS <===Jd I 1 39cn" ѝ";:Z025:Zix| WIEDERHOLUNG 60URyM^nf+iZ+99IJVJMdI}]=ޒ'-sdytܙ)s7%|}g*Z)++r+N9JWVYJ[y&k9fR)JE DES GESCHAETZTEN SCHROTTWERTS"+d S:""Hn"JAHR ABSCHR. BUCHWERT"PxBI_ K 1 N DER BUCHWERT WIRD UM DIE JAEHRLICHE ABSCHREIBUNG VERMINDERTB B(IS)N:0)K;:6)(IS)N;:13)B)RRIv]]t)JWERDEN DIE ADRESSE UND"72"DIE TELEFONNUMMER GEDRUCKT.d4"(WOLLEN SIE DAS PROGRAMM BEENDEN, SO"6"GEBEN SIE ALS NAMEN EIN.)"<"GEBEN SIE Z.B.: COMMODORE-DEUTSCHLAND EIN."F "EINGABE DES NAMENS:":P N$RN$"ENDE"5STE HINZUGEFUEGT WERDEN.^ ES MUESSEN DAZU NUR GENUEGEND DATABEFEHLE FUER JEDE EINGABE DER LISTE ,DIE NAMEN, STRASSE, STADT UND TELEFONNUMMER ENTHALTEN, GESCHRIEBEN WERDEN. ------------------------------"^70Y|UݒyRRiR9*RvevVjnJ7Uw]W9|JMk7-v]gUw.Jrg>^nTJ-ud-{Y6Jtܹ*y9nnJk*sivnRRչR9*Rs9ϒ=e{IJiK]9JKe%{%er^)w9|5|>RR)J2 X(255)3< "WIEVIELE DATEN WERDEN EINGEGEBEN";F NHKN0500P "EINGABE DER DATEN (DRUECKE NACH JEDER EINGABE RETURN)."Z I 1 Nd DIE DATEN WERDEN ZUNAECHST IN DER MATRIX X GESPEICHERT.n X(I)x( UM DEN ANFA1 NS S (X(I) M)2R WURZEL AUS DER DIVISION DER SUMME S DURCH N-1iS (S(N 1)).5r""","DER MITTELWERT IST "M6"STANDARDABWEICHUNG IST"S@60 DAS GRAPHIK-ZEICHEN "Q" IM PRINT-BEFEHL BEDEUTET ODER":"SCHREIBE 'HILFE'!"g TIPPEN SIE LIST -125 EIN, UM DEN ANFANG DER LISTE ZU SEHEN.q 130 "RICHTIG!!" 270"";:W$" BEDEUTET:" K1 NS S$(K) I UM EIN NEUES WORT HINZUZUFUEGENZUNG=@ SELBST NOTWENDIG SIND.(BENUTZEN SIE ZEILEN# > 330)EJ 2gT GOAL,3,ZIEL,TOR,MAL (NARBE)^ HIT,3,STOSS,TREFFER,SCHLAGER$$$$$eRvRY)u]-s5v\)w-sd9|t]*J*J)sww=ޒyΒeϒ=s'{)J WIRD IN DEN DATA-BEFEHL INg" ZEILE 330 DIE NEUE ANZAHL DER WORTE GESCHRIEBEN, UND DANN, WERDEN SOVIELE DATA-BEFEHLE GESCHRIEBEN, WIE FUER DIE6 VOKABEL,DIE ANZAHL DER UEBER- SETZUNGEN UND DIE UEBERSET