0 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
1 POKE53280,1:POKE53281,1
2 Q$="[145][145]                                     [145]":GOTO18
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"UEBERLEGEN SIE NOCHMAL!":GOSUB6:PRINT"[147]
10 [142]
12 [142]
13 Z$[178][199](34)
14 [129]I[178]1[164]42:[153]"CMD CMD";:[130]:[153]"ON":[129]I[178]1[164]U
15 [153]"                                       ON ON";:[130]:[153]:[142]
18 Z$[178][199](34)
20 C$[178]"(null)":[141]3:[153]""[163]12)"LEKTION 4":[153][163]12)"1.ZAHLEN
30 PRINTTAB(12)"2.STRINGS":PRINTTAB(12)"3.TERME":PRINTTAB(12)"4.HIERARCHIE
40 [153][163]12)"5.LET-BEFEHL
42 PRINTTAB(12)"6.BEISPIEL
50 [141]6:[153]"LOAD":[153]"DER COMPUTER KANN EINE GROSSE MENGE
55 PRINT"DATEN VERARBEITEN.":GOSUB7
60 PRINT"ABER, WAS SIND (IN BASIC) DATEN?":PRINT:PRINT"ES GIBT [129]ZWEI ARTEN VON DATEN:"
65 GOSUB7:PRINTTAB(9)"ZAHLEN UND STRINGS[146]":GOSUB7
67 PRINT"ZAHLEN SIND KONSTANTEN, ENTWEDER MIT":PRINT"ODER OHNE DEZIMALPUNKT.
70 [141]7:[153]"ZUM BEISPIEL:":[153][163]15)"15":[153][163]15)"1129.92"
75 [153][163]15)"0.0012":[153][163]15)"-101":[153][163]15)"-1.25"
80 [141]7:[153]"BEM.:IN BASIC WIRD EIN DEZIMALPUNKT UND"
81 [153]"     KEIN DEZIMALKOMMA GESCHRIEBEN.":[153]
82 [153][163]5)"0,1 IST FALSCH, ES HEISST 0.1 ":[141]6:[153]"LOAD"
83 [153][163]12)"A. -10111":[153]:[153][163]12)"B.  .129":[153]:[153][163]12)"C. DM24.75"
84 [153]:[153][163]12)"D. 2001":[153]
85 [153]"WELCHE DER OBIGEN ZAHLEN WIRD IN BASIC":[153]"NICHTWAIT AKZEPTIERT";
86 [153]"(A,B,C ODER D)";
95 [133]A$:[153]:[139] A$[178]"B"[137]110
96 [139]A$[178]"D"[137]125
97 [139]A$[178]"C"[137]135
98 [139]A$[178]"A"[167]100
99 [153]Q$:[153]"LOAD":[137]83
100 [153]"FORNEIN, DIE ZAHL -10111 IST RICHTIG!":
102 [153]"ES HANDELT SICH UM EINE NEGATIVE ZAHL.":[141]9:[137]83
110 [153]"FORNEIN, DIE ZAHL .129 IST EINE RICHTIG":[153]"GESCHRIEBENE DEZIMALZAHL."
111 [141]7:[153]"ANDERE MOEGLICHE FORMATE SIND:"
112 [153]"     0.129 ODER 0.1290 ODER  .1290":[141]7
114 [153]"(NULLEN VOR DEM KOMMA UND ANGEHAENGTE
115 PRINT" NULLEN WERDEN VOM COMPUTER VERNACH-":PRINT" LAESSIGT.)"
116 GOSUB9:GOTO83
125 PRINT"[129]NEIN, DIE ZAHL 2001 IST RICHTIG.":GOSUB9:GOTO83
135 PRINT"GANZ RECHT, DM DARF IN EINER ZAHL NICHT":PRINT"VORKOMMEN.":GOSUB7
137 PRINT"DM24.75 IST EIN BEISPIEL FUER EINEN":PRINT"STRING."
150 GOSUB6:PRINT"[147]"TAB(15)"STRINGS":PRINT"STRINGS SIND ZEICHENKETTEN BESTEHEND"
155 PRINT"AUS KOMBINATIONEN VON BUCHSTABEN, ZAHLEN";
156 PRINT"UND SONDERZEICHEN.
160 [141]7:[153]"HIER EINIGE BEISPIEL FUER STRINGS:":[153]:[153][163]12)"$":[141]7
165 [153][163]12)"EINGABE DES ALTERS IN JAHREN";:[141]7
166 [153][163]12)"DAS GEHALT BETRAEGT $":[153]
170 [153][163]12)"R2D2 AND C3P0":[141]12:[153]:[141]7
175 [153]"STRINGS ERMOEGLICHEN DIE EINGABE VON
177 PRINT"NICHT-NUMERISCHEN INFORMATIONEN IN DEN":PRINT"COMPUTER.":GOSUB6:PRINT"[147]"
180 PRINT"WELCHE DER FOLGENDEN AUSSAGEN IST":PRINT"RICHTIG:":GOSUB7:PRINT"1. 12345"TAB(25);
185 PRINT"-IST EINE ZAHL":PRINT:PRINT"2. ALLES KLAR ?"TAB(25)"-IST EIN STRING"
190 PRINT"3.27.MAERZ 1978 BLN"TAB(25)"-IST EIN STRING":PRINT"4. 12345"TAB(25);
195 PRINT"-IST EIN STRING":PRINT"5. ALLE OBIGEN AUSSAGEN SIND RICHTIG.
196 [153]"(1, 2, 3, 4 ODER 5)";:[133]A$:[153]
197 [139][197](A$)[177]5[167]199
198 [145][197](A$)[137]202,202,202,202,210
199 [153]Q$:[137]196
202 [153]"RICHTIG, ABER ES GIBT EINE BESSERE":[153]"ANTWORT!":[141]9:[137]180
210 [153]"DAS IST RICHTIG!":[153]"VIELLEICHT SIND SIE ERSTAUNT, DASS 12345WAIT";
215 [153]"SOWOHL EINE ZAHL ALS AUCH EIN STRING IST
220 PRINT"ES KOMMT DABEI GANZ DARAUF AN, WIE 12345[146]";:PRINT"PROGRAMMIERT WURDE.
230 [141]7:[153]"IN EINEM STRING KOENNEN ALLE AUF DEM
235 PRINT"TASTENFELD VORKOMMENDEN ZEICHEN STEHEN.":GOSUB6 :PRINT"[147]
345 [153][163]25);
400 C$[178]"(null)":[141]3:[153]"FORENDE VON LEKTION 4 TEIL 1
402 PRINTTAB(2)"DER COMPUTER LAEDT JETZT TEIL 2
403 [153][163]2)"NACH,FOR BITTE WARTEN.
410 LOAD"4/2LEKTION",8