1 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
2 POKE53280,1:POKE53281,1:Q$="[145]                         [145]":GOTO9
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"[147]"TAB(4)"GOSUB (FORTSETZUNG VON 8.1)":GOSUB7:PRINT"[147]"
111 PRINT"[147]"
112 PRINT" 2  LET A=1":PRINT" 4  GOSUB10":PRINT" 6  PRINT A":PRINT" 8  GOTO12
114 [153]" 10 LET A=A*10":[153]" 12 END"
115 [153]"WAS WIRD BEI DER AUSFUEHRUNG DES OBIGEN":[153]"PROGRAMMS GEDRUCKT?"
116 [153]"1.WAIT 1       2.WAIT 10        3.WAIT NICHTS
118 INPUT"(1,2 ODER 3)";A$:ONVAL(A$)GOTO124,130,140
119 PRINTQ$:GOTO111
124 PRINT"[129]NEIN, SIE HABEN NICHT DARAN GEDACHT,"
125 PRINT"DASS DER GOSUB-BEFEHL IN ZEILE 4 DEN":PRINT"SPRUNG ZU ZEILE 10 BEWIRKT.
126 [153]"UEBERLEGEN SIE NOCHMAL!":[141]7:[137]111
130 [153]"FORNEIN, DER RETURN-BEFEHL FEHLT!":[137]126
140 [153]"GANZ GENAU, ES WIRD NICHTS GEDRUCKT.
142 PRINT"WENN A[146] GEDRUCKT WERDEN SOLL, MUSS
143 [153]"DEM PROGRAMM DIE FOLGENDE ZEILE HINZU-
144 PRINT"GEFUEGT WERDEN:":PRINT" 11 RETURN":GOSUB7
146 PRINT"[147]"TAB(13)"ON...GOTO":PRINT"SIE WISSEN SCHON, DASS DER GOTO-BEFEHL
148 [153]"DEN SPRUNG ZU EINER SPEZIELLEN ZEILE
150 PRINT"WAEHREND DES PROGRMMABLAUFS BEWIRKT.
152 [153]"DER FORON...GOTOWAIT-BEFEHL BEWIRKT DEN SPRUNG
153 PRINT"ZU EINER ZEILE, DEREN NUMMER DURCH DEN
154 [153]"WERT EINER VARIABLEN ODER EINES TERMS
155 PRINT"BESTIMMT WIRD.
156 [153]"HIER EIN BEISPIEL FUER EINEN":[153]"FORON...GOTOWAIT-BEFEHL:
158 PRINT"  80 ON J GOTO 10, 90":PRINT"ANGENOMMEN, J HAT DEN WERT 1, SO BEWIRKT";
159 PRINT"DIES DEN SPRUNG ZU ZEILE 10.
160 [153]"ANGENOMMEN, J HAT DEN WERT 2, SO BEWIRKT";
161 [153]"DIES DEN SPRUNG ZU ZEILE 90.":[153]"CLRHAT J IRGENDEINEN ANDEREN WERT, SO WIRD"
162 [153]"DIE ZEILE NACH ZEILE 80 AUSGEFUEHRT.":[141]7
164 [153]"LOADDER FORON...GOTO-BEFEHL HAT DAS FOLGENDE":[153]"FORMAT:"
166 [153]"FORZEILEN#WAIT ON XWAIT GOTO LISTE VON ZEILEN#
168 PRINT"WOBEI X[146] EINE VARIABLE ODER EIN TERM SEIN":PRINT"KANN.:
170 [153]"ZWEI WEITERE BEISPIELE:
172 PRINT"2  ON F GOTO 5, 5, 6":PRINT"14 ON V+2 GOTO 33, 10, 2, 2":GOSUB7
176 PRINT"[147]WELCHER DER FOLGENDEN ON...GOTO-BEFEHLE":PRINT"IST RICHTIG?:
178 [153]"20 ON K-2 GOTO 10, J, 30":[153]"50 ON (U-V)/L GOTO 68, 55, 2, 88
180 PRINT"70 ON X,Y GOTO 89,66":INPUT"(20, 50 ODER 70)[146]";A$:IFA$="70"THEN190
181 IFA$="50"THEN200
182 IFA$="20"THEN184
183 PRINTQ$"[145][145]":GOTO180
184 PRINT"[129]NEIN, DIESER BEFEHL IST NICHT RICHTIG!
185 [153]"IN DER LISTE DER ZEILENNUMMERN DUERFEN":[153]"KEINE VARIABLEN STEHEN.
186 PRINT"UEBERLEGEN SIE NOCHMAL!":GOSUB7:GOTO176
190 PRINT"[129]NEIN, DIESER BEFEHL IST NICHT RICHTG!"
191 PRINT"IN EINEM ON...GOTO-BEFEHL DARF NICHT":PRINT"X, Y[146] STEHEN.":GOTO186
200 PRINT"RICHTIG!!
202 [153]"ZEILE 20 IST NICHT KORREKT, DA EINE
203 PRINT"VARIABLE IN DER LISTE DER ZEILENNUMMERN":PRINT"STEHT.
204 [153]"ZEILE 70 IST NICHT KORREKT, DA X, YWAIT "
205 [153]"IN EINEM ON...GOTO-BEFEHL NICHT STEHEN":[153]"DARF.":[141]7
206 [153]"LOAD"[163]13)"ON...GOSUB":[153]"EIN DEM FORON...GOTO SEHR AEHNLICHER "
207 [153]"BEFEHL IST DER FORON...GOSUBWAIT-BEFEHL."
208 [153]"DER FORON...GOSUBWAIT-BEFEHL BEWIRKT DEN"
209 [153]"FORSPRUNG ZU EINER SUBROUTINE, DIE DURCH"
210 [153]"DEN WERT EINER VARIABLEN ODER EINES":[153]"TERMS BESTIMMT WIRD.
212 PRINT"NACH DEM [129]RETURN-BEFEHL WIRD DAS PROGRAMM";
214 PRINT"IN DER ZEILE NACH DEM [129]ON...GOSUB[146]-BEFEHL":PRINT"FORTGESETZT.
216 [153]"CLRDER RETURN-BEFEHL BEWIRKT ALSO DAS"
218 [153]"GLEICHE WIE IM GOSUB-BEFEHL.":[141]7:[153]"LOADBEISPIEL:
220 PRINT"7 ON E GOSUB 5, 2
222 [153]"DERFOR ON...GOSUB-BEFEHL HAT FOLGENDES":[153]"FORMAT:"
224 [153]"FORZEILEN#WAIT ON XWAIT GOSUB LISTE VON ZEILEN#
226 PRINT"WOBEI X[146] EINE VARIABLE ODER EIN TERM SEIN":PRINT"KANN.":GOSUB7
400 C$="#":GOSUB3:PRINT""TAB(10)"ENDE VON LEKTION 8
402 [153]""[163]1)"SIND SIE BEREIT SIND FUER LEKTION 9 ?"
403 [153][163]16)"(J/N)"
405 [161]A$:[139]A$[178]"N"[167]500
410 [139]A$[179][177]"J"[167]405
420 [153]"CLR                         "
430 [153]" AUF ZUR LETZTEN RUNDE ! "
440 [153]"                         "
450 [147]"9/1LEKTION",8
460 [137]460
500 [153]"        BEIM NAECHSTEN MAL         "
510 [153]"        WERDEN WIR ENDGUELTIG        "
520 [153]"        DEN GIPFEL ERSTUERMEN.       "
540 [129]I[178]1[164]700:[130]I
550 [158]64738