1 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128:POKE53280,1:POKE53281,1
2 Q$="[145]                                       [145][145]":GOTO100
3 PRINT"[147]":FORI=1TO39:PRINTCHR$(30)C$;: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
100 C$="[193]":GOSUB3:PRINT""TAB(15)"LEKTION 2":PRINTTAB(15)"1. LIST
110 [153][163]15)"2. RUN":[153][163]15)"3. VARIABLEN":[153][163]15)"4. INPUT":[141]6
120 [137]2682
235 [153]"LOAD"[163]15)"VARIABLEN":[141]7
240 [153]"SEHEN WIR UNS NOCHMAL DAS PROGRAMM AUS":[153]"LEKTION 1 AN:
260 PRINT"10 PRINT"CHR$(34)"EINGABE DES ALTERS IN JAHREN"CHR$(34)
265 PRINT"20 INPUT A
280 [153]"30 PRINT"[199](34)"SIE SIND"[199](34)" 365*A"[199](34)"TAGE ALT"[199](34)
290 [141]7:[153]"DER BUCHSTABE AWAIT BEZEICHNET EINE VARIABLE":[141]7
330 [153]"EINE VARIABLE ERMOEGLICHT ES, DATEN ZU
335 PRINT"SPEICHERN UND SIE SPAETER ABZURUFEN.":GOSUB7
340 PRINT"DER NAME EINER VARIABLEN (ZUM BEISPIEL
350 [153]"A) IST NUR EINE BEZEICHNUNG FUER EINEN":[153]"SPEICHERPLATZ.":[141]7
390 [153]"DER BEFEHL IN ZEILE 20 SPEICHERT EINE":[153]"ZAHL(AUF PLATZ A).":[141]7
420 [153]"DER BEFEHL IN ZEILE 30 BENUTZT DIESE":[153]"ZAHL FUER EINE BERECHNUNG.
430 GOSUB6:PRINT"[147]
460 C[178]C[170]1:[153]"VARIABLEN SIND:
461 PRINT"EIN BUCHSTABE (A)
462 [153]"EIN BUCHSTABE GEFOLGT VON EINER ZAHL(A7)";:[153]"ZWEI BUCHSTABEN (AA)
470 GOSUB7:PRINT"ZUM BEISPIEL:
480 [153][163]6)"A":[153][163]6)"TS":[153][163]6)"R4":[153][163]6)"Q"
481 [153][163]6)"R2":[153][163]6)"D2
570 PRINT"SIND ALLES BEZEICHNUNGEN FUER VARIABLEN":GOSUB7
590 PRINT"WAEHREND:":PRINTTAB(6)"3Z":PRINTTAB(6)"3CPO":PRINTTAB(6)"5
591 [153]"KEINE VARIABLEN SIND."
650 [141]6:[153]"LOAD":[153][163]6)"1. HH":[153][163]6)"2. X5":[153][163]6)"3. 7F":[153][163]6)"4. Y
710 PRINT"WELCHE DER OBIGEN BEZEICHNUNGEN IST":PRINT"KEINE VARIABLE?(1,2,3 ODER 4)
740 [133]A$:[145][197](A$)[137]750,750,810,750
745 [153]Q$:[137]710
750 [153]"NEIN,DAS IST EINE VARIABLE.":[141]7:[139]C[177]2[167]822
760 [153]"LESEN SIE DIE DEFINITION FUER VARIBLEN"
761 [153]"BITTE NOCH EINMAL!":[141]6:[153]"LOAD":[141]460
810 [153]:[129]I[178]1[164]20:[153]"DAS IST RICHTIG!CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
820 [153]"DAS IST RICHTIG!WAITCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";:[130]
821 [141]7
822 [153]"7F IST KEINE VARIABLE, WEIL DAS ERSTE
824 PRINT"ZEICHEN EINER VARIABLEN EIN BUCHSTABE":PRINT"SEIN MUSS!":GOSUB7
826 PRINT"NUN SOLL GEZEIGT WERDEN, WIE VARIABLEN":PRINT"BENUTZT WERDEN.":GOSUB3000
2682 PRINT"[147]"TAB(17)"LIST":GOSUB7:PRINT"GEWOEHNLICH SIND BEI ERSTELLUNG EINES
2684 [153]"PROGRAMMES KORREKTUREN NOTWENDIG.":[141]7
2686 [153]"UM EINE AUFLISTUNG DES GESPEICHERTEN"
2687 [153]"PROGRAMMES ZU ERHALTEN, WIRD DER BEFEHL":[153]" L I S T WAITBENUTZT.
2688 GOSUB7:PRINT"SIE TIPPEN EINFACH DEN BEFEHL  L I S T [146]"
2690 PRINT"EIN, UND EINE AUFLISTUNG DES PROGRAMMES":PRINT"ERSCHEINT.":GOSUB7
2692 PRINT"[156][207]";:FORI=1TO38:PRINT"[163]";:NEXT:PRINT"[208]";
2694 PRINT"[157][167][157][167][157][186]";:FORI=1TO38:PRINT"[157][157][164]";:NEXT:PRINT"[157][157][204]";
2696 PRINT"[157][145][165][157][145][165]";
2698 PRINT"BEM.:L I S T IST EIN SYSTEMKOMMANDO
2699 [153]"FN     UND BENOETIGT KEINE ZEILENNUMMER.":[141]6
2700 [153]"LOADWENN DIE AUFLISTUNG EINES PROGRAMMTEILS
2701 PRINT"ERFORDERLICH IST, WIRD EINER DER
2702 [153]"FOLGENDEN BEFEHLE GEGEBEN:":[141]7:[141]7
2703 [153]"LIST -L"[163]10)"AUFLISTUNG BIS ZEILE L":[141]7
2704 [153]"LIST L-M"[163]8)"  AUFLISTUNG VON ZEILE L":[153][163]10)"BIS ZEILE M"
2705 [141]7
2706 [153]"LIST L-"[163]10)"AUFLISTUNG VON ZEILE L":[153][163]10)"BIS SCHLUSS
2707 GOSUB7
2708 PRINT"LIST L"TAB(10)"AUFLISTUNG VON ZEILE L":GOSUB6
2710 PRINT"[147]"TAB(18)"RUN":GOSUB7:PRINT"NACHDEM EIN PROGRAMM IM COMPUTER
2712 [153]"GESPEICHERT IST UND ALLE FEHLER
2713 PRINT"KORRIGIERT SIND, KANN ES AUSGEFUEHRT":PRINT"WERDEN.":GOSUB7:GOSUB7
2714 PRINT"DER ENTSPRECHENDE BEFEHL HEISST:  R U N [146]":GOSUB7:GOSUB7
2718 PRINT"[156][207]";:FORI=1TO38:PRINT"[163]";:NEXT:PRINT"[208]";
2720 PRINT"[157][167][157][167][157][186]";:FORI=1TO38:PRINT"[157][157][164]";:NEXT:PRINT"[157][157][204]";
2722 PRINT"[157][145][165][157][145][165]";
2724 PRINT"BEM.:R U N  IST EIN SYSTEMKOMMANDO
2725 [153]"FN     UND BENOETIGT KEINE ZEILENNUMMER.":[141]6
2730 [137]235
3000 [141]6:C$[178]"ATN":[141]3
3010 [153]""[163]7)"FORENDE VON LEKTION 2 TEIL 1
3030 PRINT"[149]BITTE WARTEN SIE, BIS DER COMPUTER
3032 [153]"TEIL 2 EINGELESEN HAT.
3034 FORI=1TO12:PRINT:NEXT
3040 LOAD"2/2LEKTION",8