1 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
2 POKE53280,1:POKE53281,1:Z$=CHR$(34):Q$="[145]                          [145][145][145][145]":GOTO168
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=1TO8:PRINT">";:FORI=1TO50:NEXT:PRINT"[157] [157]";:FORK=1TO50:NEXT:NEXT:RETURN
13 Y=Y1:GOSUB9:FORI=0TO24-Y1:PRINT"                                       ":NEXT
14 GOSUB9:RETURN
168 PRINT"[147]"TAB(8)"FOR...NEXT (FORTSETZUNG)":GOSUB7
170 PRINT"[147]WELCHER DER FOLGENDEN BEFEHLE IST NICHT[146]":PRINT"RICHTIG:
172 [153]"":[153]"1.WAIT 12 FOR K=1 TO 100":[153]"   14 PRINT K
174 PRINT"   16 NEXT":PRINT"2.[146] 1 A=10":PRINT"   3 B=3":PRINT"   5 FOR X=A TO B STEP -1
176 [153]"   7 INPUT R(X)":[153]"   9 NEXT":[153]"3.WAIT 9  FOR Y+Z=1 TO 10
178 PRINT"   11 PRINT Y,Z":PRINT"   13 NEXT":INPUT"(1, 2 ODER 3)";A$
180 ONVAL(A$)GOTO184,190,200
183 PRINTQ$:GOTO178
184 PRINT"[129]NEIN, DIESER FOR...NEXT-BEFEHL IST":PRINT"KORREKT.":GOSUB7
185 Y1=21:GOSUB13:Y=21:GOSUB9
186 PRINT"ES WERDEN DIE ZAHLEN 1 BIS 100 IN EINER REIHE GEDRUCKT.
188 [153]"UEBERLEGEN SIE NOCHMAL!":[141]7:[137]170
190 [153]"FORNEIN, DIESER BEFEHL IST KORREKT!
191 PRINT"VARIABLEN UND TERME KOENNEN  START-":PRINT"UND ENDWERT SEIN.[145][145]"
193 GOSUB7:Y1=21:Y=21:GOSUB13:GOSUB9
194 PRINT"DER WERT DER SCHRITTLAENGE KANN NEGATIV":PRINT"SEIN.":GOSUB7
196 GOSUB13:GOSUB9:PRINT"DER INPUT-BEFEHL WIRD ZUNAECHST MIT DEM
198 [153]"WERT X=10, DANN MIT X=9, USW. BIS ":[153]"SCHLIESSLICH MIT X=3 AUSGEFUEHRT.
199 GOSUB7:GOSUB13:GOSUB9:PRINT"UEBERLEGEN SIE NOCHMAL!":GOSUB7:GOTO170
200 PRINT"JA, RICHTIG!":PRINT"TERME (WIE Y+Z[146]) DUERFEN NICHT LINKS
202 [153]"VON DEM ZEICHEN =WAIT STEHEN.ONON":[141]7
204 [153]"LOADES IST ZULAESSIG, UND HAEUFIG AUCH
205 PRINT"NUETZLICH,[129] MEHRERE FOR...NEXT-SCHLEIFEN":PRINT"INEINANDER ZU SCHACHTELN."
206 PRINT"IM FOLGENDEN BEISPIEL WIRD DIESE PRAKTIK";:PRINT"ILLUSTRIERT:
208 [153]"  10 FOR I=1 TO 5":[153]"  20 FOR J=1 TO 3":[153]"  30 INPUT M(I,J)":[153]"  40 NEXT J
210 PRINT"  50 NEXT I":PRINT"DIESES PROGRAMM ERLAUBT DIE EINGABE VON"
212 PRINT"15 ZAHLEN IN DIE MATRIX M.
214 [153]"BITTE BEACHTEN SIE, DASS FUER DIE
215 PRINT"AUESSERE SCHLEIFE DIE VARIABLE I
216 [153]"BENUTZT WIRD, WAEHREND DIE VARIABLE
217 PRINT"FUER DIE INNERE SCHLEIFE J HEISST.":GOSUB7
218 Y=8:GOSUB9:PRINT"[207][163][157][157][165][157][165][157][165][157][204][164]":Y=9:GOSUB9:PRINT"[207][157][165][157][204]":GOSUB7:Y1=14
219 GOSUB13
220 PRINT"DA J DIE WERTE 1, 2, 3 FUER JEDES I AN-
221 [153]"NIMMT, SIEHT DIE MATRIX M FOLGENDER-":[153]"MASSEN AUS.
222 PRINT"":PRINT"M(1,1)":PRINT"M(1,2)":PRINT"M(1,3)":PRINT"M(2,1)
224 [153]"M(2,2)":[153]"USW.":[141]7
226 [153]"LOAD"[163]12)"REM-BEFEHL":[153]"DER FORREM-BEFEHL ERMOGLICHT ES, BEMER-"
228 [153]"KUNGEN IN DAS PROGRAMM ZU SCHREIBEN."
230 [153]"SIE KOENNENFOR REM-BEFEHLE BENUTZEN, UM
231 PRINT"DAS PROGRAMM VERSTAENDLICHER ZU MACHEN.":PRINT"DAZU NUN EIN BEISPIEL:"
232 PRINT" 10 REM DIESES PROGRAMM DRUCKT HALLO":PRINT" 20 PRINT "Z$"HALLO"Z$
234 PRINT"JEDE AUSSAGE NACH EINEM [129]REM-BEFEHL
235 [153]"WIRD VOM COMPUTER NICHT BEACHTET. ":[141]7
300 [153]"LOADBEVOR SIE MIT LEKTION 8 FORTFAHREN,
301 PRINT"VERSUCHEN SIE BITTE, EIN PROGRAMM ZU":PRINT"SCHREIBEN UND ZU RECHNEN,";
302 PRINT"DAS DIE ZAHLEN 1 BIS 100 IN DIE EINE REIHE";
303 PRINT" DRUCKT UND":PRINT"IN DIE REIHE DANEBEN IHRE QUADRATE.
304 [153]"(ZUM BEISPIEL IST DAS QUADRAT VON 5 ":[153]" 5*5=25)
306 PRINT"[156]BITTE NOTIEREN SIE DIE AUFGABE,         [146]"
307 PRINT"BEVOR SIE EINE BELIEBIGE TASTE DRUECKEN.[146]
308 [141]7
910 C$[178]" WAIT":[141]3:[153]""[163]10)"ENDE VON LEKTION 7
917 PRINT"WENN SIE BEREIT SIND FUER LEKTION 8,
918 [153]"ANTWORTEN SIE BITTE MIT J (=JA)"
919 [153]"SONST MIT N (=NEIN)"
920 [161]A$:[139]A$[178]"N"[167]1000
930 [139]A$[179][177]"J"[167]920
940 [153]"LOAD"
950 [153]"CLR     DER ENDSPURT BEGINNT !"
960 [147]"8/1LEKTION",8
1000 [153]"LOAD"
1010 [153]"CLR    SIE HABEN SICH EINE KLEINE PAUSE"
1020 [153]"    REDLICH VERDIENT !"
1040 [129]I[178]1[164]700:[130]I
1050 [158]64738