1 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
2 POKE53280,1:POKE53281,1:GOTO16
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
15 FORI=1TO1000:NEXT:RETURN
16 Z$=CHR$(34):C$="[166]":GOSUB3:PRINT""TAB(12)"LEKTION 7"
17 PRINTTAB(9)"1. SCHLEIFEN
18 [153][163]9)"2. FOR...NEXT-BEFEHLE":[153][163]9)"3. REM-ANWEISUNG
19 PRINTTAB(9)"4. PROGRAMMBEISPIEL":GOSUB7
20 PRINT"[147]"TAB(12)"SCHLEIFEN":GOSUB7:PRINT"EINE DER NUETZLICHSTEN EIGENSCHAFTEN
22 [153]"IHRES CBM 64 IST DIE MOEGLICHKEIT, SICH"
23 [153]"OFT WIEDERHOLENDE VORGAENGE EINFACH
24 PRINT"UND SCHNELL AUSZUFUEHREN.":GOSUB7
32 PRINT"[147]ES SOLL NUN AN EINEM PROGRAMM ZUR
33 [153]"BERECHNUNG VERSCHIEDENER ARBEITSLOEHNE"
34 [153]"DER GEBRAUCH VON FORSCHLEIFEN ILLUSTRIERT ":[153]"WERDEN:"
36 [141]7:[153]" 95  READ N$,R,H":[153]" 100 IF N$="Z$"ENDE"Z$" THEN 755
38 PRINT" 110 PRINT"Z$"DER LOHN FUER"Z$"N$"Z$"BETRAEGT"Z$"R*H";
39 PRINT" 115 GOTO 95
40 [153]" 120 DATA "Z$"R. BRAUN"Z$", 3.50, 40":[153]" 125 DATA "Z$"K. BLAU"Z$",3.75, 20
42 PRINT" 130 DATA "Z$"HANS DAMPF"Z$", 4.00, 38
44 [153]" 140 DATA "Z$"ANNA ROS"Z$", 4.10, 40":[153]" 199 DATA "Z$"ENDE"Z$", 0, 0
46 PRINT" 755 END":GOSUB7:PRINT"DAS OBIGE PROGRAMM WIEDERHOLT DIE
47 [153]"BEFEHLE DER ZEILEN 95 BIS 115,
48 GOSUB7:FORY=6TO9:GOSUB9:GOSUB11:NEXT:Y=18:GOSUB9
50 PRINTTAB(31)"SOLANGE":PRINT"BIS IN ZEILE 199 ENDE[146] UND DIE WERTE 0,"
51 PRINT"0 EINGELESEN WORDEN SIND.":GOSUB7
52 Y=14:GOSUB9:GOSUB11:GOSUB7:Y=22:GOSUB9:PRINT"DIE[129] SCHLEIFE WIRD DURCH DEN ";
53 PRINT"GOTO[146]-BEFEHL":PRINT"IN ZEILE 115 GESCHLOSSEN.
54 [141]7:Y[178]9:[141]9:[141]11:[141]7
55 Y1[178]17:Y2[178]23:[141]13:Y[178]17:[141]9
56 [153]"DER IF-BEFEHL IN ZEILE 100 BEENDET DIE":[153]"FORSCHLEIFE,SOBALD ENDEWAIT";
58 [153]" EINGELESEN WURDE.":[141]7:Y[178]7:[141]9:[141]11:[141]7:Y[178]20:[141]9
60 [153]"DER EIGENTLICHE WERT DIESES PROGRAMMES
61 PRINT"WIRD ERST OFFENSICHTLICH, WENN ES FUER
62 [153]"VIELE ARBEITER DURCHGEFUEHRT WIRD.":[141]7:Y2[178]24:[141]13:[141]9
64 [153]"UM DAS PROGRAMM FUER MEHR ARBEITER AUS-
65 PRINT"ZUFUEHREN,MUESSEN NUR MEHR DATA-BEFEHLE"
66 PRINT"GEGEBEN WERDEN (FUER JEDEN ARBEITER":PRINT"EINER).[145]":GOSUB7
72 GOSUB13:GOSUB9:PRINT"[156]EIN QUIZ!":GOSUB7:C=0:GOSUB13
74 PRINT"WIE OFT FUEHRT DER COMPUTER BEFEHL 95":PRINT"AUS":Y=6
75 GOSUB9:GOSUB11:Y=18:GOSUB9:INPUT"(1, 4 ODER 5) MAL ";A$
76 IFA$<>"1"ANDA$<>"4"ANDA$<>"5"THENPRINTQ$:PRINT"[145][145][145][145]":GOTO74
77 GOSUB13:Y=17:GOSUB9:IFA$="5"ANDC=0THEN98
78 IFA$="5"ANDC=1THEN100
79 IFA$="5"THEN104
80 IFA$="4"THEN92
82 C=C+1:PRINT"[129]NEIN, DENKEN SIE DARAN, DASS DER
83 [153]"FORGOTOBEFEHL DIE WIEDERHOLUNG DER BEFEHLE"
84 [153]"IN DEN ZEILEN 95 BIS 115 BEWIRKT.":[141]7
85 [153]"DERFOR IFBEFEHL BEENDET DIE SCHLEIFE ERST,"
86 [153]"WENN DURCH DEN BEFEHL IN ZEILE 199 ENDEWAIT":[153]"EINGELESEN WURDE.
88 GOSUB7:Y=14:GOSUB9:GOSUB11:GOSUB7:GOSUB13
90 Y=17:GOSUB9:PRINT"VERSUCHEN SIE ES NOCHMAL!":GOSUB7:GOSUB13:Y=17
91 GOSUB9:GOSUB74
92 PRINT"[129]NEIN, 4 MAL IST NICHT RICHTIG."
93 PRINT"BEACHTEN SIE, DASS ZEILE 95 FUER JEDEN
94 [153]"DATA-BEFEHL EINSCHLIESSLICH ZEILE 199":[153]"EINMAL AUSGEFUEHRT WIRD.
95 GOSUB7:PRINT"VERSUCHEN SIE ES NOCHMAL!":C=C+1:GOSUB7
96 GOSUB13:Y=17:GOSUB9:GOTO74
98 PRINT"AUF ANHIEB RICHTIG!!":GOSUB7:GOTO106
100 PRINT"BEIM ZWEITEN VERSUCH RICHTIG!":GOSUB7:GOTO106
104 PRINT"RICHTIG.
106 [153]"DER READ-BEFEHL WIRD 5 MAL AUSGEFUEHRT,"
107 [153]"FUER JEDEN DATEN-BEFEHL EINMAL.
210 GOSUB7:C$=" ":GOSUB3:PRINT"ENDE VON LEKTION 7 TEIL 1
211 [153]"BITTE WARTEN SIE, BIS TEIL 2
212 PRINT"EINGELESEN IST.
214 [147]"7/2LEKTION",8