1 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
2 POKE53280,1:POKE53281,1:GOTO855
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
855 PRINT"[147]"TAB(10)"DIE INPUT-ANWEISUNG
857 [141]7:[153]"VARIABLEN WERDEN BEISPIELSWEISE ZUR
870 PRINT"EINGABE VON DATEN BENUTZT.":GOSUB7
890 PRINT"DIE INPUT-ANWEISUNG ERLAUBT DIE EINGABE
895 [153]"VON WERTEN FUER EINE -ODER MEHRERE
900 PRINT"VARIABLEN AUCH WAEHREND DES PROGRAMM-":PRINT"ABLAUFS.":GOSUB7
940 PRINT"EINE INPUT-ANWEISUNG HAT FOLGENDES":PRINT"FORMAT:
945 [153]"ZEILENNUMMERWAIT INPUT LISTE DER VARIABLENWAIT
960 GOSUB6
1000 PRINT"[147]ZUM BEISPIEL:20 INPUT N1,A,BB":PRINTTAB(13)"35 INPUT X
1040 [153][163]13)"15 INPUT Y4,I":[153]"SIND ALLES INPUT-ANWEISUNGEN,":[141]7
1070 [153]"WAEHREND:"[163]12)"10 INPUT,M":[153][163]12)"25 A,B,C INPUT"
1100 [153][163]12)"INPUT F":[153][163]12)"40 INPUT R S T":[141]7
1101 [153]"KEINE INPUT-ANWEISUNGEN SIND, DA
1120 GOSUB7:PRINT"* IN ZEILE 10 EIN UNNOETIGES KOMMA STEHT
1124 [153]"* IN ZEILE 25 DIE VARIABLEN VOR INPUT":[153]"  STEHEN":[141]7
1126 [153]"* DIE ZEILENNUMMER BEI INPUTFWAIT FEHLT":[141]7
1128 [153]"* IN ZEILE 40 DIE VARIABLEN NICHT DURCH":[153]"  KOMMA GETRENNT SIND.
1129 GOSUB6
1140 PRINT"[147]"TAB(12)"15 INPUT A0,B":PRINTTAB(12)"33 INPUT X Y Z"
1145 PRINTTAB(12)"12 INPUTAX,A1
1180 [153][163]12)"8  INPUT Q":[153]"WELCHE DER OBIGEN BEZEICHNUNGEN IST
1200 PRINT"KEINE INPUT-ANWEISUNG(15,33,12 ODER 8)";:INPUTA$:IFA$="33"THEN2310
2230 IFA$="12"THEN2285
2232 IFA$="15"ORA$="8"THEN2240
2234 PRINTQ$:GOTO1140
2240 PRINT"NEIN, DIESE INPUT-ANWEISUNG IST RICHTIG!":GOSUB7
2245 GOTO2300
2285 PRINT"NEIN, ZEILE 12 IST RICHTIG, ZWISCHEN DEM";
2286 PRINT"WORT INPUT UND DER ERSTEN VARIABLEN IST"
2287 PRINT"KEIN SPACE[146] ERFORDERLICH.":GOSUB 7
2300 PRINT"BITTE LESEN SIE DIE FORMAT-ANWEISUNG":PRINT"NOCH EINMAL.":GOSUB6
2301 GOTO855:PRINT
2310 PRINT"":FORI=1TO9:PRINT"DAS IST RICHTIG![157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
2320 PRINT"DAS IST RICHTIG![146][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:NEXT:GOSUB7
2340 PRINT"[129]VARIABLEN MUESSEN DURCH KOMMA GETRENNT":PRINT"SEIN.":GOSUB6
2345 PRINT"[147]WENN DER COMPUTER WAEHREND DER PROGRAMM-";
2370 PRINT"AUSFUEHRUNG AUF EINE INPUT-ANWEISUNG
2380 [153]"TRIFFT, ERSCHEINT DAS ZEICHENFOR ?WAIT AUF DEM
2390 PRINT"BILDSCHIRM ALS AUFFORDERUNG, DATEN ":PRINT"EINZUGEBEN."
2391 GOSUB7
2420 PRINT"DER COMPUTER WARTET NUN, BIS DIE
2430 [153]"ENTSPRECHENDEN DATEN EINGEGEBEN WORDEN
2440 PRINT"SIND, UND SETZT DANN ERST DIE PROGRAMM-":PRINT"AUSFUEHRUNG FORT.
2450 [141]7
2460 [153]"DER COMPUTER ERWARTET FUER JEDE IN DER
2470 PRINT"INPUT-ANWEISUNG AUFGEFUEHRTE VARIABLE
2475 [153]"EINE DATENEINGABE.":[141]7:[141]6
2500 [153]"LOADSO ERFORDERT DIE ANWEISUNG:":[153][163]5)"FOR15 INPUT X,Y1,ZZ"
2530 [153]"DIE EINGABE VON DREI DURCH KOMMA
2540 PRINT"GETRENNTEN ZAHLEN ALS ANTWORT AUF DAS [129]?[146]":GOSUB7
2550 PRINT"BEISPIELSWEISE SOLLEN BEI DER PROGRAMM-
2560 [153]"AUSFUEHRUNG DES OBIGEN PROGRAMMS DIE
2576 PRINT"FOLGENDEN ZAHLEN EINGEGEBEN WERDEN:":PRINT"10, 6.25, 0.011
2600 [153]"UM IN X,Y1 UND ZZ GESPEICHERT ZU WERDEN.":[141]6
2620 [153]"LOADWENN NUN AUF DIE AUFFORDERUNG:FOR":[153]
2630 [153]"     15 INPUT X,Y1,ZZ":[141]7:[153]"WENIGER ALS 3 ZAHLEN EINGEGEBEN WERDEN,
2640 PRINT"ANTWORTET DER COMPUTER MIT[129] ??[146] UM ANZU-
2645 [153]"ZEIGEN, FORDASS MEHR DATEN EINGEGEBEN WERDEN";:[153]"MUESSEN.":[141]7
2650 [153]"WENN BEISPIELSWEISE NUR DIE ZAHL 10 ":[153]"EINGEGEBEN WIRD.
2660 PRINT"WIRD DER COMPUTER MIT [129]??[146] ANTWORTEN.":GOSUB7
2670 PRINT"AN DIESER STELLE MUESSEN MEHR DATEN ":PRINT"EINGEGEBEN WERDEN: ";
2680 PRINT"";:PRINT"[129]? 10";:PRINT"[157][157][157][157][157]?? 21, 35.2":GOSUB6
3000 C$="[193]":GOSUB3
3010 PRINT""TAB(11)"ENDE VON LEKTION 2
3032 [153]"SIND SIE BEREIT SIND FUER LEKTION 3 ?"
3033 [153]"(J/N)"
3034 [153]"DRUECKEN SIE BITTE DIE"
3035 [153]"ENTSPRECHENDE TASTE."
3040 [161]A$:[139]A$[178]"N" [167]3100
3050 [139]A$[179][177]"J"[167]3040
3060 [153]"EINEN AUGENBLICK GEDULD BITTE."
3070 [147]"3/1LEKTION",8
3100 [141]3:[153]"WAIT"
3110 [153]"CLRVIELEN DANK FUER IHRE AUFMERKSAMKEIT."
3120 [153]"AUF WIEDERSEHEN BEI"
3130 [153]"LEKTION 3"
3150 [129]Z[178]1[164]600:[130]Z
3160 [158]64738