0 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
1 POKE53280,1:POKE53281,1:Z$=CHR$(34):GOTO16
2 Y=U1:GOSUB9:PRINT"[207]":FORI=0TOU2-U1-2:PRINT"[165]":NEXT:PRINT"[204]":RETURN
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 Y=U1:GOSUB9:FORI=0TOU2-U1:PRINT" ":NEXT:RETURN
7 GETA$:IFA$=""THEN7
8 PRINT:RETURN
9 PRINT"":FORI=0TOY-1:PRINT"";:NEXT:PRINT"[145][145]";:RETURN
13 Y=Y1:GOSUB9:FORI=1TOY2-Y1:PRINT"                                       ":NEXT
14 GOSUB9:RETURN
16 C$="#":GOSUB3:PRINT""TAB(15)"LEKTION 8"
17 PRINTTAB(12)"1. PROGRAMMBEISPIEL":PRINTTAB(12)"2. GOSUB...RETURN"
18 PRINTTAB(12)"3. ON...GOTO":PRINTTAB(12)"4. ON...GOSUB":GOSUB7
22 PRINT"[147]"TAB(11)"PROGRAMMBEISPIEL":PRINT"ES FOLGT NUN EIN PROGRAMMBEISPIEL,";
24 PRINT" DAS  DIE ZAHLEN 1 BIS 100 IN DIE EINE";
25 PRINT" REIHE  DRUCKT UND DIE QUADRATE IN DIE REIHE    DANEBEN.
26 [153]"":[153]"1 FOR I = 1 TO 100
30 PRINT"2 PRINT I, I*I":PRINT"3 NEXT":GOSUB7
34 PRINT"[147]"TAB(10)"GOSUB...RETURN":PRINT"GROESSERE PROGRAMME BENOETIGEN HAEUFIG"
36 PRINT"DIE WIEDERHOLUNG EINER GANZEN GRUPPE VON";:PRINT"BEFEHLEN[129] (SUBROUTINE)."
38 PRINT"UM DEM COMPUTER MITZUTEILEN, DASS EINE
40 [153]"FORSUBROUTINE AUSGEFUEHRT WERDEN SOLL,":[153]"WIRD DER BEFEHLFOR GOSUB BENUTZT."
42 [153]"EIN FORGOSUB-BEFEHL HAT DAS FORMAT:
44 PRINT"[129]  ZEILEN#1[146] GOSUB ZEILEN#2[146]":PRINT
45 PRINT"BEI AUSFUEHRUNG VON ZEILEN#1[146] SPRINGT":PRINT"DER COMPUTER ZU ZEILEN#2[146]"
46 PRINT"UND FUEHRT DIE ANWEISUNGEN [129]BIS ZUM
48 [153]"NAECHSTEN RETURN-BEFEHL AUS, DANACH
50 PRINT"SPRINGT DER COMPUTER ZU DEM BEFEHL, DER":PRINT"DEM[129] GOSUB-BEFEHL FOLGT."
51 GOSUB7:FORI=1TO11:PRINT:NEXT:PRINT"[145]";:GOSUB7
52 Y=14:GOSUB9:PRINT"DIE GRUPPE VON BEFEHLEN, DIE AB ZEILE#2"
54 PRINT"BIS ZUM RETURN-BEFEHL STEHT, HEISST EINE";:PRINT"[129]SUBROUTINE.
56 [153]"DERFOR RETURN-BEFEHL HAT DAS FORMAT:":[153]"FOR  ZEILEN#WAIT RETURN
58 PRINT"BETRACHTEN SIE NUN DAS FOLGENDE":PRINT"PROGRAMM:":GOSUB7
62 PRINT"[147] 2  FOR I=1 TO 100":PRINT" 4  INPUT N$, H, R":PRINT" 6  GOSUB 12":PRINT" 8  NEXT"
64 PRINT" 10 GOTO 22":PRINT" 11 REM LOHNSUMMEN-SUBROUTINE":PRINT" 12 IF H>40 THEN 18"
65 PRINT" 14 PRINT N$ "Z$" VERDIENT "Z$" H*R
66 [153]" 16 RETURN":[153]" 18 LET S= 40*R + (H-40)*1.5 * R
68 PRINT" 20 PRINT N$ "Z$"VERDIENT"Z$" S":PRINT" 21 RETURN":PRINT" 22 END"
69 GOSUB7
70 PRINT"DIESES PROGRAMM BERECHNET DEN LOHN":PRINT"FUER 100 ARBEITER."
74 GOSUB7:Y1=15:Y2=25:GOSUB13:GOSUB9
77 PRINT"IN ZEILE 4 WIRD DIE EINGABE DES NAMENS,
78 [153]"DER ARBEITSSTUNDEN UND DES GEHALTS":[153]"ERMOEGLICHT.":[141]7
80 [153]"ZEILE 6 SORGT FUER DEN SPRUNG NACH":[153]"ZEILE 12.":[141]7:U1[178]3:U2[178]7
81 [141]2
82 [141]13:Y[178]15:[141]9:[153]"IN ZEILE 12 WIRD FESTGESTELLT, OB DER
84 PRINT"ARBEITER MEHR ALS 40 STUNDEN GEARBEITET":PRINT"HAT.":GOSUB7
86 PRINT"WENN JA, SO WIRD ALS NAECHSTES IN ZEILE"
87 PRINT"18 DAS GEHALT INKLUSIVE UEBERSTUNDEN"
88 PRINT"BERECHNET UND IN S[146] GESPEICHERT.":GOSUB7:U1=8:U2=10
89 GOSUB2:Y=23:GOSUB7
90 GOSUB9:PRINT"ZEILE 20 BEWIRKT DEN DRUCK DES NAMENS"
91 PRINT"UND DES LOHNS.";:GOSUB7
92 U1=3:GOSUB6:GOSUB13:Y=16:GOSUB9:PRINT"ZEILE 21 BEWIRKT DEN SPRUNG ZURUECK
94 [153]"ZU ZEILE 8.":[141]7:U1[178]4:U2[178]12:[141]2:[141]7:[141]6
96 Y[178]16:[141]9:[153]"WENN NICHT UEBER 40 STUNDEN GEARBEITET
98 PRINT"WURDE, SO WIRD IN ZEILE 14 DAS GEHALT":PRINT"BERECHNET.":GOSUB7
100 PRINT"ZEILE 16 SORGT FUER DEN SPRUNG ZURUECK":PRINT"ZU ZEILE 8.";:GOSUB7
102 U2=9:GOSUB2:GOSUB7:GOSUB6:Y=23:GOSUB9
103 PRINT"AN DIESER STELLE WIRD DIE SCHLEIFE
104 [153]"WIEDERHOLT.";:[141]7:U1[178]1:U2[178]4:[141]2;:[141]7
105 [141]6:[141]13:Y[178]15:[141]9
106 [153]"ZEILE 10 SORGT FUER DEN SPRUNG ZU"
108 [153]"ZEILE 22, UM DAS PROGRAMM ZU BEENDEN,
109 PRINT"WENN DER 100STE NAME EINGEGEBEN IST.":GOSUB7:U1=5:U2=13
110 GOSUB2:GOSUB7
400 C$="#":GOSUB3:PRINT"ENDE VON LEKTION 8 TEIL 1
402 [153]"BITTE WARTEN SIE, BIS TEIL 2":[153]"EINGELESEN IST."
403 [153]"
850 LOAD"8/2LEKTION",8