0 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
1 POKE53280,1:POKE53281,1
2 Q$="[145]                                      [145][145]":Z$=CHR$(34):GOTO10
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
6 GETA$:IFA$=""THEN6
7 PRINT:RETURN
10 PRINT"[147]":PRINTTAB(10)"IF...THEN-BEFEHL":PRINTTAB(11)"(FORTSETZUNG)":GOSUB6
120 PRINT"[147]DER IF...THEN-BEFEHL ERMOEGLICHT EINE
121 [153]"BEDINGTE AENDERUNG DER REIHENFOLGE DER
122 PRINT"PROGRAMMSCHRITTE, IN ABHAENGIGKEIT VON  DER [129]ERFUELLUNG EINER BEDINGUNG.
123 [141]7:[153]"EINE FORBEDINGUNG HAT DIE FORM:":[141]7
124 [153]"FOR    AUSDRUCKWAIT RELATION AUSDRUCKWAIT":[141]7
125 [153]"WOBEI FOGENDE RELATIONEN ZULAESSIG":[153]"SIND:
126 PRINT"[129]     RELATION[146] BEDEUTUNG[146]":PRINT:PRINT"        =     GLEICH
127 [153]"        >     GROESSER ALS":[153]"        <     KLEINER ALS
128 PRINT"        >=    GROESSER ALS ODER GLEICH":PRINT"        <=    KLEINER";
129 PRINT"ALS ODER GLEICH":PRINT"        <>    NICHT GLEICH":GOSUB6
130 Y1=9:Y2=22:GOSUB5000:GOSUB6000:GOSUB7
132 PRINT"EIN IF...THEN-BEFEHL HAT FOLGENDES ":PRINT"FORMAT:
136 [153]"FORZEILEN#1WAIT IF BEDINGUNGWAIT THEN ZEILEN#2WAIT":[141]7:[141]7
142 [153]"DIE BEDINGUNG IST EIN TEST.":[141]7
144 [153]"IST DIE FORBEDINGUNG ERFUELLT, SO WIRD IM  NAECHSTEN ";
146 [153]"PROGRAMMSCHRITT DER BEFEHL IN":[153]"ZEILEN#2WAIT AUSGEFUEHRT.":[141]7
148 [153]"IST DIE FORBEDINGUNG NICHT ERFUELLT, SO    WIRD ALS ";
149 [153]"NAECHSTES DER BEFEHL IN DER":[153]"ZEILE NACH ZEILEN#1WAIT AUSGEFUEHRT.
150 GOSUB6
156 PRINT"[147]EINIGE BEISPIELE FUER IF...THEN-BEFEHLE:":GOSUB7
158 PRINT"2 IF A=0 THEN 10":GOSUB7:PRINT"4 IF X<=99 THEN 2":GOSUB7
159 PRINT"6 IF R+W>P-T+1 THEN 55":GOSUB7LIST159-
160 PRINT"8 IF A$="Z$"NEIN"Z$"THEN 88":GOSUB6
163 PRINT"[147]1 IF A=2*B+CC THEN 10":PRINT"2 IF P*3+U/1.5 > THEN 18"
164 PRINT"3 IF A$="Z$"NEIN"Z$" THEN 100
165 [153]:[153]"WELCHE DER OBIGEN ANWEISUNGEN IST KEINWAIT  ZULAESSIGER ";
166 [153]"IF...THEN-BEFEHL (1, 2 ODER 3)";:[133]X$:[153]:[153]
167 [145][197](X$)[137]169,174,172
168 [153]Q$:[137]163
169 [153]"FORNEIN, DIESER BEFEHL IST KORREKT!":[153]
170 [153]"EINE RELATION ZWISCHEN EINER VARIABLEN  UND EINEM TERM IST ZULAESSIG.
171 PRINT:PRINT"BITTE, VERSUCHEN SIE ES NOCHEINMAL!":GOSUB6:PRINT"[147]":GOTO163
172 PRINT"[129]NEIN, DIESER BEFEHL IST KORREKT!":PRINT:PRINT"EINE RELATION ZWISCHEN EINEM";
173 PRINT" STRING UND EINER STRINGVARIABLEN IST ZULAESSIG." :GOTO171
174 PRINT"GANZ GENAU! ZEILE 2 IST FALSCH,DA RECHTSNEBEN DER RELATION KEIN";
175 PRINT" AUSDRUCK STEHT.":GOSUB6:GOTO200
176 PRINT"[147]MOECHTEN SIE DEN ABSCHNITT UEBER":PRINT"IF..THEN-BEFEHLE NOCH EINMAL"
178 INPUT"LESEN (JA ODER NEIN)";A$:IFA$="JA"THEN120
179 IFA$="NEIN"THEN400
180 PRINTQ$:GOTO176
200 PRINT"[147]NOCH EINE ANDERE FORM DES IF...THEN-    BEFEHLS IST MOEGLICH, NAEMLICH:
202 [141]7:[153]"FOR  ZEILEN#WAIT IF BEDINGUNGWAIT THEN BEFEHL":[141]7
204 [153]"IST DIEFOR BEDINGUNG ERFUELLT, SO WIRD DER BEFEHLWAIT UND DANN DER ";
205 [153]"BEFEHL DER ZEILE    NACH ZEILEN#WAIT AUSGEFUEHRT.":[141]7
207 [153]"IST DIE FORBEDINGUNG NICHT ERFUELLT, WIRD  BEFEHLWAIT AUSGELASSEN UND ";
208 [153]"DAS PROGRAMM WIRDMIT DER ZEILE NACH ZEILEN#WAIT FORTGESETZT.":[141]7
209 [153]"EINIGE BEISPIELE:":[141]7:[153]"  45 IF X>12 THEN PRINT "Z$"JA"Z$:[153]
210 [153]"  65 IF A$="Z$"NEIN"Z$" THEN INPUT B$":[153]:[153]"  8 IF R=T THEN V=V+1":[153]
212 [153]"  7 IF L>=100 THEN END";:[141]6
250 [137]176
400 C$[178]"(null)":[141]3:[153]""[163]7)"ENDE VON LEKTION 5 TEIL 2
402 PRINT"  BITTE WARTEN SIE, BIS TEIL 3":PRINT"  EINGELESEN IST.
403 [153]"
404 GOTO7000
5000 PRINT"";:FORI=1TOY1:PRINT"";:NEXT:PRINT"[145]";:FORJ=0TOY2-Y1
5001 PRINT"                                       ":NEXT:RETURN
6000 PRINT"";:FORI=1TOY1:PRINT"";:NEXT:PRINT"[145]";:RETURN
7000 LOAD"5/3LEKTION",8