0 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
1 POKE53280,1:POKE53281,1
2 Q$="[145]                              [145][145][145][145]":Z$=CHR$(34):GOTO180
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
180 PRINT"[147]"TAB(16)"GOTO":GOSUB6
182 PRINT"[147]DER [129]GOTO-BEFEHL ERMOEGLICHT DEN [129]SPRUNG
183 [153]"ZU IRGENDEINER ZEILE DES PROGRAMMES.
184 GOSUB7:PRINT"DABEI KANN ENTWEDER ZU EINER ZEILEN# VOR";
185 PRINT"DEM GOTO-BEFEHL ODER ZU EINER ZEILEN#
186 [153]"NACH DEM GOTO-BEFEHL GESPRUNGEN WERDEN.":[141]7
187 [153]"BITTE BETRACHTEN SIE DAS FOLGENDE       PROGRAMM:
188 GOSUB6:PRINT"[147]6  PRINT "Z$"EINGABE DES ALTERS"Z$:PRINT"7  INPUT A
190 [153]"8  PRINT"Z$"ALTER IN TAGEN ODER IN MONATEN"Z$;:[153]"10 INPUT B$
192 PRINT"12 IF B$="Z$"TAGE"Z$" THEN 18"
193 PRINT"14 PRINT"Z$"SIE SIND"Z$"12*A"Z$"MONATE ALT"Z$
194 PRINT"16 GOTO20":PRINT"18 PRINT"Z$"SIE SIND"Z$"365*A"Z$"TAGE ALT"Z$:PRINT"20 END
195 [141]7:[153]"DIESES PROGRAMM BERECHNET ENTWEDER DAS
196 PRINT"ALTER IN TAGEN ODER IN MONATEN, ABER
197 [153]"NICHTWAIT BEIDES ZUSAMMEN.":[141]7
198 [153]"WENN AUF DIE FRAGE VON ZEILE 8 DER
199 PRINT"STRING TAGE[146] EINGEGEBEN WIRD, SO BEWIRKT
200 [153]"DIES EINEN SPRUNG ZU ZEILE 18."
201 [141]7:[153]"WIRD DER STRING MONATEWAIT EINGEGEBEN, SO
202 PRINT"WIRD DER BEFEHL IN ZEILE 14 AUSGEFUEHRT,";
203 PRINT"UND ZEILE 16 BEWIRKT DANN DEN SPRUNG"
204 PRINT"ZU ZEILE 20 (ZEILE 18 WIRD AUSGELASSEN).
205 [153]"FORBITTE BEACHTEN SIE,DASS DER ENDWAITFOR-BEFEHL"
206 [153]"DAS PROGRAMM IN JEDEM FALL BEENDET.";:[141]6
207 [153]"LOAD5  INPUT X":[153]"10 IF X>=50 THEN 50":[153]"20 GOTO 40
208 PRINT"30 PRINT X*10":PRINT"40 GOTO 60
209 [153]"50 PRINT X":[153]"60 END":[141]7
210 [153]"WAS WIRD DURCH DIESES PROGRAMM GEDRUCKT,";
211 [153]"WENN FUER X DER WERT 25 EINGEGEBEN WURDE
213 PRINT"1.[146] 250":PRINT"2.[146] 25":PRINT"3.[146] ES WIRD NICHTS GEDRUCKT":GOSUB7
214 PRINT"(1, 2 ODER 3)";:INPUTA$:IFVAL(A$)>3THEN216
215 ONVAL(A$)GOTO217,217,220
216 PRINTQ$:GOTO207
217 PRINT"[129]NEIN, DA DIE BEDINGUNG IN ZEILE 10 FUER":PRINT"X=25 NICHT ERFUELLT IST,";
218 PRINT" WIRD DAS":PRINT"PROGRAMM MIT ZEILE 20 FORTGESETZT.
219 [141]7:[153]"VERSUCHEN SIE ES NOCHMAL!":[141]6:[137]207
220 [153]"RICHTIG!!!  ES WIRD NICHTS GEDRUCKT.
221 PRINT"FUER X=25 WIRD ZUNAECHST ZEILE 20 AUSGE-";
222 PRINT"FUEHRT, ZEILE 40 BEWIRKT DANN DEN SPRUNG";
223 PRINT"ZU ZEILE 60 (ZEILE 50 WIRD AUSGELASSEN).":GOSUB6
224 PRINT"[147]BEVOR SIE DEN KURS MIT LEKTION 6
225 [153]"FORTSETZEN, VERSUCHEN SIE BITTTE EIN
226 PRINT"PROGRAMM ZU SCHREIBEN, DASS DEN [156]LOHN"
227 PRINT"EINES ARBEITERS BERECHNET.":GOSUB7
228 PRINT"DER ARBEITER SOLL [156] DM 8.35  PRO STUNDE
229 [153]"VERDIENEN UND FUER CLRJEDE UEBERSTUNDE DAS":[153]"EINEINHALBFACHE DES ";
230 [153]"LOHNES BEKOMMEN.":[153]"ES SOLL NACH EINGABE DER GEARBEITETEN"
232 [153]"STUNDEN DER LOHN GEDRUCKT WERDEN.":[141]7
233 [153]"CLRBITTE NOTIEREN SIE DIE AUFGABE,         WAIT
234 PRINT"BEVOR SIE EINE BELIEBIGE TASTE DRUECKEN.[146]":GOSUB6
400 C$="[255]":GOSUB3:PRINT""TAB(10)"ENDE VON LEKTION 5
402 [153]"WENN SIE BEREIT SIND FUER LEKTION 6,"
403 [153]"ANTWORTEN SIE WIE GEWOHNT MIT (J/N)"
404 [137]7000
5000 [153]"";:[129]I[178]1[164]Y1:[153]"";:[130]:[153]"ON";:[129]J[178]0[164]Y2[171]Y1
5001 [153]"                                       ":[130]:[142]
6000 [153]"";:[129]I[178]1[164]Y1:[153]"";:[130]:[153]"ON";:[142]
7000 [161]A$:[139]A$[178]"N"[167]8000
7010 [139]A$[179][177]"J"[167]7000
7020 [153]"VERSCHNAUFEN SIE EINEN MOMENT, BIS"
7030 [153]"LEKTION 6WAIT GELADEN IST."
7040 [147]"6/1LEKTION",8
8000 [153]"NUN KOENNEN SIE JA SCHON ZIEMLICH"
8010 [153]"VIEL. UEBEN SIE AUCH FUER SICH NOCH"
8020 [153]"EIN WENIG, BIS WIR UNS WIEDERSEHEN"
8030 [153]"BEI LEKTION 6."
8050 [129]Z[178]1[164]700:[130]Z
8060 [158]64738