1 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
2 POKE53280,1:POKE53281,1:Z$=CHR$(34):GOTO110
3 PRINT"[147]":FORI=1TO39:PRINTC$;:NEXT:FORI=1TO22:PRINT"[157]"C$;:NEXT:PRINT"[157]";
4 FORI=1TO38:PRINT"[157]"C$"[157]";:NEXT:PRINTC$
5 FORI=1TO23:PRINT"[145]"C$"[157]";:NEXT:RETURN
7 GETA$:IFA$=""THEN7
8 PRINT:RETURN
9 PRINT"":FORI=0TOY-1:PRINT"";:NEXT:PRINT"[145][145]";:RETURN
11 FORJ=1TO15:PRINT">";:FORI=1TO40:NEXT:PRINT"[157]>[146][157]";:FORK=1TO20:NEXT:NEXT:PRINT" ":RETURN
13 Y=Y1:GOSUB9:FORI=0TOY2-Y1:PRINT"                                       ":NEXT
14 GOSUB9:RETURN
110 PRINT"[147]"TAB(10)"FOR...NEXT-BEFEHLE ":GOSUB7
112 PRINT"DER [129]FOR...NEXT-BEFEHL WIRD BENUTZT,
114 [153]"WENN EINE BESTIMMTEFOR ANZAHL VON SCHLEIFENAUSGEFUEHRT WERDEN SOLLEN.
116 GOSUB7:PRINT"DAS FOLGENDE PROGRAMM SOLL DIE WERTE
118 [153]"EINES VEKTORS ZUNAECHST EINLESEN UND":[153]"DANN DRUCKEN.":[141]7
120 [153]" 2 FOR I=1 TO 10":[153]" 4 READ A(I)":[153]" 6 PRINT A(I)":[153]" 8 NEXT I
122 PRINT" 9 DATA 3.1,1.4,8,9.4,2,5,7,8.6,3,14.7":GOSUB7:PRINT"DER [129]FOR[146]-BEFEHL"
123 Y=11
124 GOSUB9:GOSUB11:GOSUB7:Y=17:GOSUB9:PRINTTAB(15)"BEWIRKT DIE WIEDERHOLUNG
126 [153]"DER ANWEISUNGEN,DIE VOR DEM FORNEXTWAIT-BEFEHL":Y[178]14:[141]7:[141]9
127 [141]11:[141]7:Y[178]19:[141]9:[153]"STEHEN, SOLANGE BIS DER ENDWERT FUER
128 PRINT"DIE VARIABLE I (I=10) ERREICHT IST.":PRINT
130 PRINT"DIE ANWEISUNGEN WERDEN ALSO FUER I=1,
131 [153]"FUER I=2, USW BIS I=10 AUSGEFUEHRT.
132 GOSUB7:Y1=17:Y2=23:GOSUB13:GOSUB9:PRINT"BEM.:ZU JEDEM FOR[146]-BEFEHL GEHOERT EIN
133 [153]"     NEXTWAIT-BEFEHL.
135 GOSUB7:PRINT"[147]EINE SEHR NUETZLICHE ERGAENZUNG ZUM
136 [153]"FORFORWAIT-BEFEHL IST DIE FORSTEPWAIT-ANWEISUNG.":[153]:[153]
137 [153]"MIT DERFOR STEPWAIT-ANWEISUNG LEGEN SIE DIE
138 PRINT"[129]SCHRITTWEITE IM FOR...NEXT[146]-BEFEHL FEST.
139 [153]"HIER EIN BEISPIEL:":[141]7
140 [153]" 2  FOR I=1 TO 6
142 PRINT" 4  READ A(I)":PRINT" 6  NEXT I":PRINT" 8  FOR I=6 TO 1 STEP -1":PRINT" 10 PRINT A(I)
144 [153]" 12 NEXT I":[153]" 14 DATA 3.2, 2, 5.1, 0.1, 66, .7":[141]7
146 [153]"ZUNAECHST WERDEN DIE DATEN IM VEKTOR A  GESPEICHERT.":Y[178]11:[141]7
148 [141]9:[129]M[178]1[164]20:[153][163]9)"A(I)ON":[153][163]9)"A(I)ON":[129]L[178]1[164]60:[130]:[130]
150 Y[178]20:[141]9:[153]"UND DANN WERDEN DIE DATEN IN DER ZWEITEN";
151 [153]"SCHLEIFE (ZEILE 8 BIS 12)":[141]7
152 [129]Y[178]12[164]14:[141]9:[141]11:[130]:Y[178]21:[141]9
153 [153]:[153]"IN UMGEKEHRTER REIHENFOLGE GEDRUCKT.":[141]7
154 [153]"DA DIE SCHRITTWEITE -1 BETRAEGT, HAT IWAIT
156 PRINT"ZUNAECHST DEN WERT 6, DANN I=5 USW BIS":PRINT"SCHLIESSLICH GILT: I=1.
157 [141]7:[153]:[153]"WENN KEINE SCHRITTWEITE ANGEGEBEN IST
158 PRINT"[129](STEP[146] WURDE WEGGELASSEN), DANN WIRD
159 [153]"DIE FORSCHRITTWEITE 1 FESTGELEGT.
160 GOSUB7:PRINT"[147]DER [129]FOR...-BEFEHL HAT DAS FORMAT:":GOSUB7
162 PRINT"[129]ZEILEN#[146] FOR VARIABLE[146] = Y[146] TO Z[146] STEP S":GOSUB7
164 PRINT"WOBEI Y, Z, UND S[146] ZAHLEN, VARIABLEN ":PRINT"ODER TERME SEIN KOENNEN."
165 GOSUB7
166 PRINT"DER[129] NEXT-BEFEHL HAT DAS FORMAT:":GOSUB7
168 PRINT"[129]ZEILEN#[146] NEXT VARIABLE":GOSUB7
170 PRINT"WOBEI DIE GLEICHE VARIABLE[146] WIE IM":PRINT"[129]FOR-BEFEHL BENUTZT WERD
175 [141]7
210 C$[178]" ":[141]3:[153]"ENDE VON LEKTION 7 TEIL 2
212 PRINT"BITTE WARTEN SIE, BIS TEIL 3":PRINTTAB(7)"EINGELESEN IST.
213 [153]"
240 LOAD"7/3LEKTION",8