:  30000 ::4152,320 5:: 5:8="PRINT"J(""2" DER BEFEHL PRINT FORDERT DEN COMPUTER ZUM AUSDRUCK AUF DEM";<" BILDSCHIRM AUF."F" ES KOENNEN WERTE FUER VARIABLEN UND"P" TEXTE ANGEZEIGT WERDEN"%Z" ZEICHENKETTEN MUESSEN IN ANFUEHRUNGS-"Ed" ZEICHEN GESETZT WERDEN."hn(23,15);"WEITER MIT >ENTER<"rx 5:}20200 20000:" 10 A=45"" 20 ? A "" 30 ? B """ 40 ?''TEXT''", 8:@ZZ1: 20100T20100 h4 r(3,25);" 45"( 84 20100< 4N(4,25);" 0"V 8b 20100j 4(5,25);" TEXT"8 20100 8,23,0,39: 2:: 1:" IN ZEILE 10 WIRD DER VARIABLEN A DER"&" WERT 45 ZUGEWIESEN."(0" IN DER NAECHSTEN ZEILE WIRD DER WERT"D:" FUER A AUSGEDRUCKT."sD" IN ZEILE 30 SOLL DER WERT FUER B GE-"N" DRUCKT WERDEN.DA FUER B KEINE EINGABE" X" GEMACHT WURDE,IST B=0 ,WAS DANN AUSGE-"b" DRUCKT WIRD."l" IN DER NAECHSTEN ZEILE WIRD DER STRING"2v" 'TEXT' AUSGEDRUCKT."< 2:D 1g(23,15);"WEITER MIT >ENTER<"s 20200{: 5:: 5:8" ES IST AUCH MOEGLICH , DEN AUSDRUCK AN"" BESTIMMTEN STELLEN DES BILDSCHIRMS ER-" " SCHEINEN ZU LASSEN."  5:: 87 (23,15);"WEITER MIT >ENTER<"C  20200O  20000W p:r z" 10 ?TAB(3);''**''" " 20 ?AT(13,32);''HALLO''" 8::2 ZZ1: 20100  4 (2,26);"**"  8 20100  4 (13,32);"HALLO"  8  20100*  15,23,0,39: 2:: 10 ^ $"IN ZEILE 10 ERFOLGT DIE AUFFORDERUNG,"; ."DIEZEICHEN'**'3 STELLEN VOM LINKEN RAND"; 8" BE-GINNEND AUSZUDRUCKEN." B"ZEILE 20 BESAGT , DASS DAS WORT HALLO"; L" INDER ZEILE 13 UND AB DER SPALTE 32";- V" GE-DRUCKT WERDEN SOLL."P `(23,15);"WEITER MIT >ENTER<"Y j2:e t 20200q  5: 8y : "DER BEFEHL PRINT WIRD AUCH ZUM RECHNEN" "MIT DEM COMPUTER BENOETIGT." ::: " WEITER MIT >ENTER<":5:  20200  20000#  8+ (:: 2" 10 B=6"I <" 20 C=2"Y F" 30 ?B+C"i P" 40 ?B-C"y Z" 50 ?B*C" d" 60 ?B/C" i" 70 ?''B^C='';B^C" n8: s2 xZZ1:20100  20100 20100  4:(4,26);"8" 8: 20100  4:(5,26);"4"! 8: 201006 4:(6,26);"12"E 8: 20100Y ,4:(7,26);"3"h @8: 20100 T4:(8,25);"B^C= 36" h8: 20100 |10,23,0,39:2:1:  "IN DER ZEILE 10 WIRD DER VARIABLEN B "; "DIEZAHL 6 ZUGEWIESEN . IN DER ZEILE 20 ";9" ER-HAELT DIE VARIABLE C DEN WERT2.";j"DIE WERTEVON B UND C WERDEN IN DER ";"ZEILE 30ADDIERT UND DAS ERGEBNIS AUS";"GEDRUCKT.INDEN ZEILEN 40 - 60 WIRD";" SUBTRAHIERT,MUL-TIPLIZIERT BZW. DIVIDIERT UND";&" DIE ERGEB-NISSE WERDEN ANGEZEIGT.";S"IN ZEILE 70 SOLLB^C= UND DAS ERGEB";"NIS DIESER RECHNUNG GEDRUCKT WERDEN." "+ PLUS;- MINUS;* MAL;/ DURCH;^ HOCH" (23,16);"WEITER MIT >ENTER<" 2: 202000,23,0,39:5:8 &"LET"0"" I:"IN DEN VORHERIGEN PROGRAMMBEISPIELEN"~D"HABEN WIR VARIABLEN ZAHLEN ODER ZEICHEN" N"ZUGEORDNET.DIESE ZUORDNUNGEN ENTSPRE-";" CHEN ";X"DEM BEFEHL LET. BEI MANCHEN COMPU-";" TERN ";b"BEWIRKT LET EIN SCHNELLERES ARBEI-";" TEN"Dc(23,16);"WEITER MIT >ENTER<":5:Pd 20200\l 20000|8:::" 10 A=13" " 20 LETB=1"" 30 PRINTA"" 40 PRINTB"8:ZZ1:20100 20100201004:(ZZ,26);"13" 8:20100 "4:(ZZ,26);"1"78:20100 N2:1:7,23,0,39:T " IN DEN ZEILEN 10 UND 20 WERDEN DEN" " VARIABLEN A BZW. B DIE WERTE 13 BZW. 1"*" ZUGEWIESEN."4" DAS GESCHIEHT EINMAL MIT UND EINMAL"$>" OHNE LET . DIE ERGEBNISSE ZEIGEN,DASS"SH" SOWOHL MIT ALS AUCH OHNE LET DIE"R" WERTE DEN VARIABLEN ZUGEWIESEN WERDEN";" KOENNEN."\" BEIM KC 87 TRITT BEIM WEGLASSEN VON"f" LET KEINE ZEITVERZOEGERUNG AUF , BEIDE"p" VARIANTEN SIND GLEICH SCHNELL."7z(23,20);"WEITER MIT >ENTER<"@2:L 20200Z:5:8:r" DIE FARBBEFEHLE"" "" DER KC 87 color BIETET 8 VERSCHIEDENE"" FARBEN. DIESE SIND ALS VORDERGRUND-,"" HINTERGRUND-UND RANDFARBE VERWENDBAR."H" DIE FARBEN WURDEN DEN ZIFFERN 1 BIS 8"v" ZUGEORDNET.FOLGENDE FARBEN EXISTIEREN"" 1=SCHWARZ":" 2=ROT":" 3=GRUEN" :" 4=GELB" :" 5=BLAU" :" 6=PURPUR"$ :" 7=ZYAN". :" 8=WEISS"(8 8,8,15,25: 1:@B 10,10,15,25: 2:XL 12,12,15,25: 3:pV 14,14,15,25: 4:` 5:(16,15);""j (17,15);""t 18,18,15,25: 6:~ 20,20,15,25: 7: 22,22,15,25: 8::5 (23,20);"WEITER MIT >ENTER<"% 202006 3,23,0,39:d " UM FARBAENDERUNGEN ZU ERREICHEN, GIBT"| " ES DREI BEFEHLE. " 1. PAPER....HINTERGRUNDFARBE" " 2. INK......VORDERGRUNDFARBE" " 3. BORDER...RANDFARBE" " HINTER JEDEN DIESER BEFEHLE WIRD DANN"@ " DIE NUMMER DER GEWAEHLTEN FARBE GE-"O " SETZT." :" DIE ANWENDUNG IN PROGRAMMEN WIRD BEI" " DER ERKLAERUNG DES BEFEHLS WINDOW GE-" " ZEIGT." (23,20);"WEITER MIT >ENTER<"# 5:( 202002 : 5::8< " WINDOW"!F " "'P VZ " DER BEFEHL WINDOW BEGRENZT DIE GROESSE"d " DES BILDSCHIRMS . ER HAT FOLGENDES"n " FORMAT:WINDOW ZA,ZE,SA,SE. ZA UND ZE"x " BEDEUTEN ZEILENANFANG UND -ENDE,SA UND" " SE SPALTENANFANG UND SPALTENENDE.DAZU"A " MUESSEN WIR WISSEN, DASS DER MAXIMALE"p " BILDSCHIRM 24 ZEILEN (0 BIS 23) UND 40" " SPALTEN BESITZT (0 BIS 39). " ALLES,WAS AUSGEDRUCKT WERDEN SOLL,WIRD" " IM AKTUELLEN WINDOW(FENSTER) GEDRUCKT."  " NUR DER BEFEHL PRINTAT SETZT SICH"= " UEBER WINDOW HINWEG."I 5::8l (20,15);"WEITER MIT >ENTER<"x 20200 20000 8:::" 10 BORDER 6" " 20 WINDOW 3,11,26,39:" " PAPER 7:CLS " 30 WINDOW 4,7,27,35:" " PAPER 1:CLS"% " 40 WINDOW 5,8,28,36:"< " PAPER 2:CLS"Y " 50 WINDOW 6,9,29,37:"p " PAPER 4:CLS" " 60 INK2:?''WINDOW''", " 70 PRINTAT(5,25);"6 " ''PRINTAT''"@ 8::ZZ1:20100J 6:8:"":20100 M 3,11,26,39:7::7::: 8-N 20:(ZZ,0);" ":ZZZZ1:20103KT 4,7,27,35:1::1:::8o^ 20:(ZZ,0);" ":ZZZZ1:20103h 5,8,28,36:2::2:::8r 20:(ZZ,0);" ":ZZZZ1:20103 | 6,9,29,37:4::4: 8:20:(ZZ,0);" ":ZZZZ1:20103  2:4:(6,29);"WINDOW":4::8" 201009 (5,25);"PRINTAT"F 20100:^ 14,23,0,39:2:1: "IN ZEILE 10 WIRD EIN FENSTER FESTGELEGT" "DEM FENSTER WIRD EINE HINTERGRUNDFARBE" "ZUGEWIESEN.DANACH WIRD ES MITTELS CLS "GELOESCHT UND DADURCH EINGEFAERBT.DAS"D "WIEDERHOLT SICH IN ZEILE 20 BIS 50 " s "BEI UNTERSCHIEDL.LAGE UND FARBE.IN ZEI-" "LE 60 WIRD IN DAS GELBE FENSTER WINDOW"  "GESCHRIEBEN.ZULETZT WIRD MIT PRINTAT "& "DAS WORT 'PRINT AT'AUSGEDRUCKT" + 0 (23,13);"WEITER MIT >ENTER<":2:" ";:20200< : 5:8:5::Q D "RUN":"" ~ N " MIT 'RUN' WERDEN IN BASIC PROGRAMME" X " GESTARTET." b ::13)"WEITER MIT >ENTER<":5: l 20200::8 v "LIST":""! " MIT LIST KANN MAN SICH DAS IM SPEI-" ENTER<":5:s! 20200::8! "STOP":""! "EIN PROGRAMM KANN MIT'STOP' ANGEHALTEN"! "WERDEN.DABEI WIRD DIE ZEILENNUMMER,DIE"" "GERADE ABGEARBEITET WURDE,ANGEZEIGT."3" :::13)"WEITER MIT >ENTER<"H" 5::20200::8^" "PAUSE":""" "MIT PAUSE KANN MAN EIN PROGRAMM ANHAL-"" "TEN,IM GEGENSATZ ZU STOP(UNTERBRECHUNG)"" (15,13);"WEITER MIT >ENTER<":5:" 20200::8# "CONT":"" 6# "MIT CONT KANN EIN PROGRAMM FORTGEETZT "c#* "WERDEN.GEHT NICHT MEHR NACH EDIT UND "#4 "NACH EINER FEHLERMELDUNG."#> (15,13);"WEITER MIT >ENTER<"#H 5::20200:#R 8:"ENTER":""$\ "MIT ENTER WERDEN BEFEHLE AUSGEFUEHRT." )$f (15,13);"WEITER MIT >ENTER<":5:9$p 20200::8O$z "INPUT":""~$ "INPUT IST EIN ABFRAGEBEFEHL.ES KOENNEN "$ "ZEICHEN EINGEGEBEN WERDEN.DIE EINGABE "$ "MUSS MIT 'ENTER'ABGESCHLOSSEN WERDEN."% "DIE ZEICHEN WERDEN EINER VARIABLEN ZU-"3% "GEWIESEN,WELCHE HINTER 'INPUT'STEHT."^% "ZUR NAEHEREN BESTIMMUNG DER EINGABE"% "KANN EIN TEXT IN ANFUERUNGSZEICHEN"% "ZWISCHEN INPUT UND VARIABLEN EINGEFUEGT"% "WERDEN.ABER ES MUSS EIN SEMIKOLON FOL-":"GEN."& (15,13);"WEITER MIT >ENTER<":5: & 20200+& 20000<& ::" A=10"R&" INPUT''B='';B"d&" PRINT A+B"m&8:}&ZZ1:20100&$20100:A10&.0,23,25,39:4::::"B=";B&34::8&820100:4:(4,25);AB:8&B&L8,23,0,39:2:1:#'V:"IN ZEILE 10 WIRD DER VARIABLEN A DER"O'`"WERT 10 ZUGEWIESEN.IN DER NAECHSTEN "}'j"ZEILE WIRD DER WERT FUER B ERFRAGT.UND"'t"IN DER LETZTEN ZEILE STEHT DER BEFEHL"'~"ZUM ANZEIGEN DER SUMME AUS A UND B."'(16,13);"WEITER MIT >ENTER<"(2: (20200(5:8::I("FOR-NEXT-SCHLEIFE":"" x(:"MIT DER FOR-NEXT-SCHLEIFE KOENNEN BE-"("FEHLE IN BESTIMMTER ANZAHL WIEDERHOLT" ("ODER ZAHLEN GLEICHMAESSIG ERHOEHT WER-("DEN.ES KANN AUCH GEZAEHLT WERDEN." )"BEFEHLAUFBAU: "Z):"FOR=TO STEP" k)"BEFEHL(E)")"NEXT()")(15,13);"WEITER MIT >ENTER<")5:)20200)20000)::" 10 FOR I=0 TO 2:PRINT I:") " NEXT"*" 20 FOR I=0 TO 2 STEP2:"3*" PRINT I:NEXT I"<*(8:L*2ZZ1:20100m*<4:I02:(2,26);I:5::8*A(ZZ,0);" ":ZZZZ1*20100*4:I0 2 2:(4,26);I:5::8*(ZZ,0);" ":ZZZZ1*20100*7,23,0,39*1:2:)+:" IN BEIDEN ZEILEN IST EINE PROGRAMM-" W+" SCHLEIFE.BEIDEMALE IST DER ANFANGS-" +" WERT 0 UND DER ENDWERT 2 JEDOCH MIT"+" UNTERSCHIEDLICHEN SCHRITTWEITEN.IN "+" ZEILE 10 WIRD DIE STANDARTSCHRITTWEI- " ," TE 1 BENUTZT.IN ZEILE 20 IST DIE " ," SCHRITTWEITE 2.C,"(21,14);"WEITER MIT >ENTER<"L,,2:W,620200n,@0,23,0,39:8:5:,J"DIE IF-THEN-ANWEISUNG":"",T"MIT DIESER ANWEISUNG KOENNEN ENTSCHEI-",^"DUNGEN GETROFFEN WERDEN.WENN DAS ,WAS"+-h"HINTER 'IF' STEHT ZUTRIFFT,DANN WIRD"Z-r"DER BEFEHL ,WELCHER HINTER 'THEN' STEHT"-|"AUSGEFUEHRT.BEI MANCHEN COMPUTERN GIBT"-"ES NOCH DAS ZUSATZWOERTCHEN 'ELSE'."-"BEI NICHT ZUTREFFEN DES 'IF'-TEILS " ."WIRD DER BEFEHL HINTER 'ELSE'AUSGE-"."FUEHRT."1.:"BEFEHLSAUFBAU:" b.:"IF THEN:(ELSE)".::" WEITER MIT >ENTER<".5:: 20200.20000.1.::" 10 X=10"." 20 Y=10"." 30 Z=5"." 40 IF X=Y THEN PRINTX,Y"/" 50 IF X=Z THEN PRINTX,Z"%/8:5/ZZ1:20100@/&20100K/020100V/:20100q/D2:(5,26);"10,10":1|/N20100/X20100/b8,23,0,39:2:1/l"IN DEN ERSTEN DREI ZEILEN WERDEN DEN"/v"VARIABLEN X,Y UND Z WERTE ZUGEWIESEN,"#0"DIE DANN IN DEN ZEILEN 40 UND 50 VER-" P0"GLICHEN WERDEN.DURCH DEN VERGLEICH IN"~0"ZEILE 40 WERDEN DIE WERTE FUER X UND Y"0"AUSGEDRUCKT."0:::"WEITER MIT >ENTER<"02:02020000,23,0,3908:50"GOTO":"" 1"'GOTO' IST EIN SPRUNGBEFEHL.MAN KANN"L1"MIT IHM AN VERSCHIEDENE STELLEN DES_"f1"PROGRAMMS SPRINGEN.1(15,15);"WEITER MIT >ENTER<"1 5:1202001 200001*114::" 10 GOTO40"1>" 20 PRINT''21''"1H" 30 GOTO60"2R" 40 PRINT''20''"2\" 50 GOTO20-2f" 60 PRINT''22''"42N Y2 N***********UP WINDOW***********~2!N*******************************2%N: 8:2*N 0,23,25,39: 4:24N 8: 1:(0,1);"PROGRAMM-BSP."2>N 4: 1:(0,26);"ERGEBNIS":8:2HN3N***********UP SPRUNG***********:3N*******************************B3N20V3N8:(ZZ,0);" "b3NZZZZ1w3N2:(ZZ,0);"" }3N3N***********UP ENTER***********3N*******************************3NZY$3N ZY$"" 202104O ZY$(13) :20210'40u***********UP BASIC************ L41u*******************************`45u: 1: 1: 1:t46u: 3: 5: 6:47u0,0,0,39:6:48u23,23,0,39:49u4;u I7 1345u(10,I);"":1D5uS5u I8 10h5u(10,I);" ": 1}5u(10,I);"": 15u5u I11 125u(I,11);"": 15u5u I10 8 15u(13,I);"": 15u5v I8 135 v(I,13);"": 16v6 v I14 16)6*v(7,I);"": 1/64v>6>v I8 13S6Hv(I,17);"": 1Y6Rvi6\v I14 16~6fv(10,I);"": 16pv6zv(8,23);"": 16v I22 20 16v(7,I);"": 16v6v I8 96v(I,19);"": 16v6v I20 227v(10,I);"": 17v*7v I11 12?7v(I,23);"": 1E7vY7v I22 20 1n7w(13,I);"": 1t7w7w(12,19);"": 17$w I7 137.w(I,25);"": 178w7Bw(8,31);"":17Lw I30 28 17Vw(7,I);"":17`w8jw I8 128tw(I,27);"": 1 8~w08w I28 30E8w(13,I);"": 1K8wa8w(12,31);"": 1{8w1,5,1,38: 4:5:5:8w 8w" EIN PROGRAMM ZUM ERLERNEN DER"8w" PROGRAMMIERSPRACHE": 8w 16,22,1,38::9w" VON UWE ZIMMERMANN":59w" UND":V9x" HENDRIK LANGE"m9 x:3: 3:: 31000s9x9y*************UP BLINK***********9"y********************************9,y I1 20096yX09@yX((1)81):Ay((X3)(X4)(X7)) X2:Jy X6:Ty(7,7);" "^:^y(8,7);" ":hy(9,7);" ":ry(10,7);" ":|y(11,7);" ":y(12,7);" ";y(13,7);" "#;y);yN;PÜ**********UP HINWEISE**********t;ZÜ******************************* ;dÜDas Programm >>B A S I C<< ist;nÜspeziell fuer d. Kleincomputer;xÜZ 9001,KC 85/1 und KC 87 ,aber<Üauch weitestgehend fuer andere(<ÜKleincomputer anwendbar*******L<Ü******************************p<ÜEs arbeitet mit mehreren Unter<Üprogrammen:WINDOW:20000;SPRUNG<Ü20100;ENTER :20200;BASIC:30000<ÜBLINK:31000 und HINWEISE:50000=Ü******************************$=ÜFolgende Variablen wurden be-H=Ünutzt:I;X;ZY;ZZ***************l=8ǜ******************************=Bǜ******************************=Lǜ** HAUS DER JUNGEN PIONIERE **=Vǜ******* "FRITZ WEINECK" ******=`ǜ******** WALLSTRASSE 3 ******* >jǜ*********** BAUTZEN **********D>tǜ************ 8600 ************h>~ǜ******************************>ǜ******************************>`AA$: AA$D>tǜ************ 8600 ************h>~ǜ******************************>ǜ******************