0 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
1 POKE53280,1:POKE53281,1:Q$="[145][145]                                     [145][145]":GOTO18
2 PRINT"[129][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":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 GETA$:IFA$=""THEN6
7 PRINT:RETURN
9 GOSUB7:PRINT"VERSUCHEN SIE ES NOCHEINMAL!":GOSUB7:PRINT"[147]
10 Z$[178][199](34)
12 [129]I[178]1[164]1200:[130]:[142]
14 [153]"";
15 [129]I[178]1[164]U[171]1:[153]:[130]:[129]I[178]U[164]W
16 [153]"                                       ";
17 [130]:[153]"";:[129]I[178]1[164]U[171]1:[153]:[130]:[142]
18 Z$[178][199](34)
100 [153]"LOAD       STRING-VARIABLEN ":[141]7
225 [153]"SIE ERINNERN SICH, DASS VARIABLEN DAS"
226 [153]"SPEICHERN VON ZAHLEN ERMOEGLICHEN.":[153]"(LEKTION 2.1)":[141]7
230 [153]"FORSTRING-VARIABLEN ERMOEGLICHEN NUN DAS ":[153]"FORSPEICHERN VON STRINGS.":[141]7
235 [153]"EINE FORSTRING-VARIABLE WIRD WIE EINE"
236 [153]"GEWOEHNLICHE VARIABLE MIT HINZUFUEGUNG":[153]"DES ZEICHENS FOR$WAIT GEBILDET."
240 [141]7:[153]"EINIGE BEISPIELE FUER STRING-VARIABLEN:"
241 [153]"    A$ ODER AC$ ODER Z8$
244 GOSUB7
245 PRINT"EINE [129]STRING-VARIABLE KANN MIT DEM":PRINT"FOLGENDEN BEFEHL GESPEICHERT";
246 PRINT" WERDEN:"
250 PRINTTAB(15)"INPUT A$[146]":GOSUB7
255 PRINT"ODER MIT FOLGENDEM BEFEHL AUFGERUFEN":PRINT"WERDEN:";
256 PRINTTAB(15)"PRINT A$[146]":GOSUB6
260 PRINT"[147]10 PRINT"Z$"EINGABE DES NAMENS UND ALTERS"Z$"
265 [153]"20 PRINT ";Z$;"(DURCH KOMMA GETRENNT)";Z$:[153]"40 INPUT N$,A
270 PRINT"80 PRINT N$ ";Z$;"IST";Z$;" 365*A ";Z$;"TAGE ALT";Z$
280 GOSUB7 :GOSUB7
290 PRINT"BETRACHTEN SIE DAS OBIGE PROGRAMM."
295 PRINT"KOENNEN SIE SICH VORSTELLEN, WAS BEIM"
300 PRINT"PROGRAMMABLAUF GESCHIEHT (JA ODER NEIN)":INPUTA$
302 IFA$="NEIN"THEN308
306 IF A$="JA"GOTO324
307 PRINTQ$:GOTO260
308 PRINT"[129]EINE STRINGVARIABLE ERMOEGLICHT NICHT-
309 [153]"NUMERISCHE DATEN - WIE NAMEN, ADRESSEN,"
310 [153]"WORTE, USW. - FORIN DEN COMPUTER EINZULESEN";
312 [141]7:[153]"ENTHAELT EIN INPUTBEFEHL EINE STRING-
314 PRINT"VARIABLE - WIE A$ - SO TEILT DIESE DEM
316 [153]"COMPUTER MIT, DASS NICHTNUMERISCHE DATEN":[153]"EINGELESEN WERDEN SOLLEN."
317 [141]7:[153]"ENTHAELT EIN PRINTBEFEHL STRINGVARIABLEN";
318 [153]"- WIE A$ - SO TEILEN DIESE DEM COMPUTER"
319 [153]"MIT, DASS NICHTNUMERISCHE DATEN"
320 [153]"GEDRUCKT WERDEN SOLLEN.":[141]6:U[178]6:W[178]25:[141]14
322 [141]2:[137]325
324 U[178]6:W[178]25:[141]14:[141]2:[153]"FORGUT ! ";
325 [153]"DAS PROGRAMM DRUCKT ALSO DEN NAMEN":[153]"UND DAS ALTER IN TAGEN AUS."
327 [141]7:[153]"SEHEN SIE NUN, WAS BEIM PROGRAMMABLAUF  ";
330 [153]"PASSIERT.(BITTE GEBEN SIE NAME UND ALTER";:[153]"IN DER ANGEGEBENEN";
331 [153]" REIHENFOLGE EIN!):":[141]7
332 [153]"EINGABE DES NAMENS UND ALTERS":[153]"(DURCH KOMMA GETRENNT)":[133]N$,A
334 [153]N$" IST"365[172]A"TAGE ALT";:[141]6
340 [153]"LOAD"[163]18)"TERME"
342 [153]"NUMERISCHE DATEN WERDEN BEI BERECHNUNGEN";:[153]"BENUTZT.":[141]7
344 [153]"DIE GRUNDRECHENARTEN WERDEN IN FOR BASIC WAIT":[153]"DURCH VERBINDUNG DES ENTSPR";
346 [153]"ECHENDEN":[153]"RECHENZEICHENS MIT ZAHLEN (KONSTANTEN)
347 PRINT"UND/ODER VARIABLEN AUSGEFUEHRT.
348 [141]7:[153]"RECHENZEICHEN (OPERATOREN) SIND:":[141]7
350 [153][163]8)"+WAIT    FUER DIE ADDITION":[153][163]8)"-WAIT    FUER DIE SUBTRAKTION
352 PRINTTAB(8)"*[146]    FUER DIE MULTIPLIKATION":PRINTTAB(8)"/[146]    FUER DIE DIVISION
354 [153][163]8)"^WAIT    FUER DAS POTENZIEREN
356 PRINTTAB(8)"( )[146]  FUER KLAMMERRECHNUNG
400 [141]6:C$[178]"(null)":[141]3:[153]"FORENDE VON LEKTION 4 TEIL 2
404 PRINT"BITTE WARTEN SIE, BIS TEIL 3":PRINT"EINGELESEN IST.
406 [153]"
410 LOAD"4/3LEKTION",8