0 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
1 POKE53280,1:POKE53281,1
2 Q$="[145]                                   [145][145][145]":GOTO10
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
10 Z$=CHR$(34)
100 C$="#":GOSUB3:PRINT""TAB(14)"LEKTION 3":PRINTTAB(12)"1. PRINT
110 [153][163]12)"2. LEERSTELLE"
120 [153][163]12)"3. TAB FUNKTION":[141]6
235 [153]"LOAD"[163]15)"FORPRINT":[141]7:[137]2900
2900 [153]"DER FORPRINT-BEFEHL ERMOEGLICHT DIE UEBER-
3000 PRINT"TRAGUNG VON GESPEICHERTEN DATEN AUF DEN":PRINT"BILDSCHIRM.":GOSUB7
3030 PRINT"EIN [129]PRINT-BEFEHL HAT FOLGENDES FORMAT:":PRINT:PRINT
3040 PRINT"[129]   ZEILENNUMMER[146]  PRINT  AUSGABE-LISTE[146]":PRINT:GOSUB6:PRINT"[147]
3045 [153]"IN DER AUSGABE-LISTE STEHEN :":[153]:[141]7
3050 [153]"FOR  ZAHLEN    (Z.B.: 5.87, .23)":[141]7:[153]"FOR  VARIABLEN (Z.B.: A, D2, TS)"
3055 [141]7:[153]"FOR  TERME     (Z.B.: A+D/TS)":[141]7
3056 [153]" FOR STRINGS   (Z.B.: "Z$"NEIN"Z$","Z$"JA"Z$" )
3060 GOSUB7:PRINT"[129]  STRING-VARIABLEN (Z.B.:A$, S$)":PRINT:PRINT:GOSUB7
3070 PRINT" BEM.: STRING-VARIABLEN WERDEN SPAETER
3075 [153]"       NOCH ERKLAERT. ":[141]7
3080 [153]"NUN EINIGE BEISPIELE FUER PRINT-BEFEHLE:":[141]6:[153]"LOAD12 PRINT A, C
3100 PRINT"13 PRINT"Z$"HALLO"Z$
3110 PRINT"15 PRINT"Z$"SIE SIND"Z$" 365*A "Z$" TAGE ALT"Z$
3120 GOSUB7:PRINT"BEI AUSFUEHRUNG VON ZEILE 12 WERDEN DIE
3150 [153]"IN DEN VARIABLEN A UND C GESPEICHERTEN"
3160 [153]"DATEN GEDRUCKT.":[141]7
3180 [153]"BEI AUSFUEHRUNG VON ZEILE 13 WIRD DAS ":[153]"WORT -HALLO- GEDRUCKT."
3200 [141]7:[153]"ALLGEMEIN WIRD JEDE INNERHALB VON
3210 PRINT"ANFUEHRUNGSZEICHEN STEHENDE ZEICHENKETTE";:PRINT"GEDRUCKT.
3220 [141]7:[153]"BEI AUSFUEHRUNG VON ZEILE 15 WIRD, FALLS";
3250 [153]"DIE ZAHL 10 IN A GESPEICHERT WURDE,":[141]7
3270 [153]"  "Z$"SIE SIND 3650 TAGE ALT"Z$"    GEDRUCKT.":[141]7
3280 [153]:[153]"FORARITHMETISCHE AUSDRUECKE (TERME) "
3290 [153]"DUERFEN INNERHALB DES PRINT-BEFEHLS
3295 PRINT"BENUTZT WERDEN.":GOSUB6
3310 PRINT"[147]
3350 [153]"505 PRINT C":[153]"723 PRINT IHR GUTHABEN BETRAEGT $C
3365 Z$=CHR$(34)
3370 PRINT"18  PRINT"Z$"  IHR GUTHABEN  BETRAEGT $"Z$"C
3380 [153]"442 PRINT"Z$"$"Z$" C+D "Z$"BETRAEGT IHR GUTHABEN"Z$ :[141]7
3385 [153]"WELCHER DER OBIGEN BEFEHLE IST NICHTWAIT
3390 PRINT"RICHTIG (505, 723, 18 ODER 442)";:INPUTA$
3420 IFA$="723"THEN3750
3430 IFA$="442"THEN3630
3440 IFA$="18"THEN3520
3442 IFA$="505"THEN3450
3445 PRINTQ$:GOTO3310
3450 PRINT"[129]NEIN,ZEILE 505 IST RICHTIG!
3460 [153]:[153]"ANGENOMMEN, FUER C WURDE DER WERT 102.5
3470 PRINT"GESPEICHERT, SO WIRD FOLGENDES GEDRUCKT:
3490 [153][163]5)"102.5":[141]7:[153]"VERSUCHEN SIE ES NOCHMAL!":[141]6:[137]3310
3520 [153]"FORNEIN, ZEILE 18 IST RICHTIG!
3530 PRINT:PRINT"ANGENOMMEN FUER C WURDE DER WERT 102.55
3540 [153]"GESPEICHERT, SO WIRD FOLGENDES GEDRUCKT:
3550 PRINT"  IHR GUTHABEN BETRAEGT $102.55":GOSUB7
3551 PRINT"VERSUCHEN SIE ES NOCHMAL!":GOSUB6:GOTO3310
3630 GOSUB7:PRINT"[129]NEIN, ZEILE 442 IST RICHTIG!
3640 [153]:[153]"ANGENOMMEN,FUER C UND D WURDEN DIE WERTE";
3650 [153]"100 UND 10 GESPEICHERT,SO WIRD FOLGENDES";:[153]"GEDRUCKT:
3660 PRINT"   $ 110 BETRAEGT IHR GUTHABEN":GOSUB7
3690 PRINT"DER TERM C+D WIRD BERECHNET (110) UND
3695 [153]"DAS ERGEBNIS WIRD GEDRUCKT.":[141]7
3700 [153]"VERSUCHEN SIE ES NOCHMAL!":[141]6:[137]3310
3750 [153]"SEHR GUT!  DER FEHLER IST GAR NICHT SO":[153]"LEICHT ZU SEHEN.":[141]7
3752 [153]"IN ZEILE 723 FEHLEN DIE ANFUEHRUNGS-":[153]"ZEICHEN.
9002 GOSUB6:C$="#":GOSUB3
9010 PRINT""TAB(7)"[129]ENDE VON LEKTION 3 TEIL 1"
9012 PRINTTAB(2)"BITTE WARTEN SIE, BIS DER COMPUTER
9013 [153][163]2)"TEIL 2 EINGELESEN HAT.
9030 FORI=1TO12:PRINT:NEXT
9040 LOAD"3/2LEKTION",8