0 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
1 POKE53280,1:POKE53281,1
2 Q$="[145]               [145][145][145]":Z$=CHR$(34):GOTO12
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
12 C$="[216]":GOSUB3:PRINT""TAB(15)"LEKTION 6":
13 PRINTTAB(12)"1. PROGRAMMBEISPIEL
14 [153][163]12)"2. READ(null)DATA-BEFEHLE   ":[153][163]12)"3. MATRIZEN":[141]7
16 [153]"LOAD"[163]11)"FORPROGRAMMBEISPIEL":[153]
18 [153]"HIER EIN PROGRAMM, DAS DEN LOHN EINES"
20 [153]"ARBEITERS BERECHNET:":[153]"2  INPUT H
24 PRINT"6  IF H>40 THEN 12":PRINT"8  PRINT "Z$"DER ARBEITER BEKOMMT DM"Z$"8.35*H";
25 PRINT"10 GOTO 16
26 [153]"12 LET S=8.35*40+(H-40)*8.35*1.5"
27 [153]"14 PRINT "Z$"DER ARBEITER BEKOMMT DM"Z$"S":[153]"16 END
28 PRINT"SOLLTE ES IHNEN SCHWERFALLEN SOLCH EIN
29 [153]"PROGRAMM ZU SCHREIBEN, LESEN SIE BITTE
30 PRINT"LEKTION 5 NOCHEINMAL.":GOSUB7
32 PRINT"[147]"TAB(15)"[129]READ[206]DATA":PRINT"SIE KENNEN JETZT SCHON 2 METHODEN,
33 [153]"DATEN IN DEN COMPUTER EINZUGEBEN:"
34 [153]:[153]"CLR1. INPUT-BEFEHL Z.B. 4 INPUT KWAIT"
36 [153]"CLR2. LET-BEFEHL   Z.B. 8 LET H=9":[153]
38 [153]"NUN SOLL IHNEN EINE CLRDRITTE METHODE VOR- GESTELLT WERDEN.
39 PRINT:PRINT"ZUNAECHST EIN BEISPIEL:":GOSUB7:PRINT"[147]  2  READ A$,H
40 [153]"  4  PRINT A$,H":[153]"  6  READ B$,R":[153]"  8  PRINT B$,R
42 PRINT" 10  DATA "Z$"TAGE"Z$", 40, "Z$"PREIS"Z$:PRINT" 12  DATA 4.75":GOSUB7
44 PRINT"DIE IN DEN[129] READ-BEFEHLEN STEHENDEN      VARIABLEN";:Y=1:GOSUB7
46 GOSUB900:GOSUB910:Y=3:GOSUB900:GOSUB910:GOSUB7:Y=9:GOSUB900
48 PRINTSPC(9)" ERHALTEN IHRE WERTE AUS DEN IN";
49 PRINT"DEN [129]DATA-BEFEHLEN GESPEICHERTEN DATEN.":GOSUB7
50 Y=5:GOSUB900:GOSUB910:Y=6:GOSUB900:GOSUB910:GOSUB7
52 Y=12:GOSUB900:PRINT"IM OBIGEN BEISPIEL WIRD:":PRINT
54 PRINT"    DER STRING "Z$"TAGE"Z$"[146] IN A$[146],":PRINT
56 PRINT"    DIE ZAHL 40[146] IN H[146],":PRINT
58 PRINT"    DER STRING "Z$"PREIS"Z$"[146] IN B$[146] ":PRINT
60 PRINT"    UND DIE ZAHL 4.75[146] IN R[146]  GESPEICHERT. "
61 PRINT"UM ALLE BENOETIGTEN WERTE ZU SPEICHERN,"
62 PRINT"KANN MEHR ALS EIN DATA-BEFEHL GEGEBEN":PRINT"WERDEN. ";:GOSUB7
63 Y1=12:Y2=24:GOSUB920;:Y =12:GOSUB900
66 PRINT"DER VORTEIL EINES READ/DATA-BEFEHLS     GEGENUEBER EINEM INPUT-BEFEHL";
68 PRINT" IST DIE   [129]SPEICHERUNG DER DATEN WAEHREND DES      ";
69 PRINT"GESAMTEN PROGRAMMABLAUFS.":GOSUB7
70 PRINT"[147]1.[146] 15 READ X,Y,Z":PRINT"   18 DATA 10,20
74 [153]"2.WAIT 11 READ M":[153]"   20 DATA "Z$"JA"Z$:[153]"3.WAIT 16 READ P
75 PRINT"   18 READ N":PRINT"   20 DATA 16, 29.7"
77 PRINT"WELCHER DER OBIGEN READ/DATA-BEFEHLE":INPUT"IST RICHTIG (1, 2 ODER 3)";A$
78 ONVAL(A$)GOTO84,94,102
80 PRINTQ$:GOTO70
84 PRINT"[129]NEIN, SCHLIESSLICH MUESSEN GLEICH VIELE WERTE IM DATA-BEFEHL ";
86 GOSUB7:Y=2:GOSUB900:PRINTTAB(2);:GOSUB910:GOSUB7
88 Y=15:GOSUB900:PRINTSPC(21)"WIE VARIABLEN IM   READ-BEFEHL STEHEN.";
90 GOSUB7:Y=1:GOSUB900:PRINTTAB(2);:GOSUB910:GOSUB7:Y=18:GOSUB900
92 PRINT"BITTE, VERSUCHEN SIE ES NOCHMAL!":GOSUB7:GOTO70
94 PRINT"[129]NEIN, DER WERT IM DATA-BEFEHL IST EIN   STRING,"
95 GOSUB7:Y=5:GOSUB900:PRINT"";:GOSUB910:GOSUB7:Y=15:GOSUB900
96 PRINTSPC(8)"WAEHREND DIE VARIABLE IM READ-  BEFEHL":GOSUB7:Y=4
98 GOSUB900:PRINT"";:GOSUB910:GOSUB7:Y=16:GOSUB900:PRINTTAB(7);
100 PRINT"EINE NUMERISCHE VARIABLE IST.":PRINT:GOTO92
102 PRINT"RICHTIG!":PRINT"BEI 1[146] SIND ZU WENIGE WERTE IM DATA-":PRINT"BEFEHL."
103 PRINT"BEI 2[146] STIMMEN ART DES WERTES UND ART"
104 PRINT"DER VARIABLEN NICHT UEBEREIN."
210 GOSUB7:C$="[216]":GOSUB3:PRINT"ENDE VON LEKTION 6 TEIL 1
212 [153]"BITTE WARTEN SIE, BIS TEIL 2":[153]"EINGELESEN IST.
213 PRINT"":GOTO930
900 PRINT"":FORI=0TOY-1:PRINT"";:NEXT:PRINT"[145][145]";:RETURN
910 FORJ=1TO15:PRINT">";:FORI=1TO40:NEXT
915 PRINT"[157]>[146][157]";:FORK=1TO25:NEXT:NEXT:PRINT" ":RETURN
920 Y=Y1:GOSUB900:FORI=0TOY2-Y1:PRINT"                                        ";
921 NEXT
922 GOSUB900:RETURN
930 LOAD"6/2LEKTION",8