0 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
1 POKE53280,1:POKE53281,1
2 Q$="[145]                                     [145][145][145]":Z$=CHR$(34):GOTO20
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
8 GOSUB7:PRINT"VERSUCHEN SIE ES NOCHMAL!":GOSUB6:RETURN
9 PRINT"[145][145][145][207]";:FORI=1TO37:PRINT"[163]";:NEXT:PRINT"[208]":PRINT"[165]"TAB(38)"[167]":PRINT"[165]"TAB(38)"[167]
10 [153]"(null)";:[129]I[178]1[164]37:[153]"TO";:[130]:[153]"SQR":[142]
20 [153]"LOAD"[163]10)"HIERARCHIE":[153][163]5)"(FORTSETZUNG VON 4.3)":[141]6
442 [153]"LOADANGENOMMEN FUER DIE VARIABLEN R, S, T
443 PRINT"WERDEN FOLGENDE WERTE EINGEGEBEN:":GOSUB7:PRINTTAB(12)"R = 4
444 [153][163]12)"S = 7":[153][163]12)"T = 9":[141]7
446 [153]"UND ES SOLL DER TERM (S+3+2*R)/T+1WAIT
447 PRINT"BERECHNET WERDEN.":PRINT:PRINT"WIE LAUTET IHRER MEINUNG NACH DAS
448 [153]"ERGEBNIS (SOLLTEN SIE ES NICHT WISSEN,":[153]"GEBEN SIE BITTE 0WAIT EIN.)"
450 [133]A:[153]:[139] A[178]3 [137] 470
451 [139]A[178]0[137]458
452 [153]A"FOR IST NICHT RICHTIG!":[141]7:[153]"WOLLEN SIE DIE RICHTIGE ANTWORT SEHEN,
453 PRINT"DANN GEBEN SIE R[146] EIN.":PRINT"WOLLEN SIE ES NOCHMAL VERSUCHEN, DANN"
454 PRINT"GEBEN SIE V[146] EIN.":PRINT"(R ODER V)";:INPUTA$
455 IFA$="V"THEN442
456 IFA$="R"THEN458
457 PRINTQ$:PRINT"[147]":GOTO452
458 PRINT"[147]DAS ERGEBNIS VON (S+3+2*R)/T+1[146] IST 3,"
459 PRINT"SIE ERHALTEN DIESES ERGEBNIS FOLGENDER-":PRINT"MASSEN:
460 [141]7:[153][163]8)"  2*RWAIT  ERGIBT  8WAIT ,UND ":[141]7:[153][163]6);
461 [153]"(S+3+8)WAIT  ERGIBT 18WAIT ,UND":[141]7:[153][163]8)" 18/TWAIT  ERGIBT  2WAIT ,UND"
462 [141]7:[153][163]8)"  2+1WAIT  ERGIBT  3":[141]6
464 [137]500
470 [153]"RICHTIG - DAS ERGEBNIS IST 3!":[141]6
500 [153]"LOAD"[163]15)" LET WAIT":[141]7
502 [153]"EIN FORLET-BEFEHL ERMOEGLICHT DIE FORZUORDNUNG";
503 [153]"EINER ZAHL ODER EINES STRINGS ZU EINER":[153]"VARIABLEN.":[141]7
504 [153]"EINIGE BEISPIELE:":[141]7:[153][163]8)"15 LET A=4
506 PRINTTAB(8)"25 LET R$=";Z$;"ALLES KLAR ?";Z$:PRINTTAB(8)"30 X=X+1"
508 PRINTTAB(8)"55 Z$=P$":GOSUB6
510 PRINT"[147]EIN [129]LET-BEFEHL HAT FOLGENDES FORMAT:":GOSUB7
512 PRINT"[129]ZEILEN#[146] LET VARIABLE[146] = TERM[146] ODER STRING[146]
514 [141]7:[153]"DAS WORT FOR L E T WAIT KANN AUCH WEGGELASSEN  WERDEN.":[141]7
518 [153]"BEM.:DAS ZEICHEN =WAIT BEDEUTET ERSETZTWAIT":[153][163]5)"DURCHWAIT UND NICHT ";
520 [153]"GLEICHWAIT.":[141]7:[153]"DER BEFEHL:":[153][163]8)"30 LET X=X+1"
521 [141]7
522 [153]"BILDET DIE SUMME X+1, UND SPEICHERT DAS
523 PRINT"ERGEBNIS IN DER VARIABLEN X.":GOSUB6
524 PRINT"[147]WELCHE DER FOLGENDEN ANWEISUNGEN IST":PRINT"KEIN[146] LET-BEFEHL:":GOSUB7
526 PRINT"535 LET 4=E":PRINT"720 LET G=2*G+H":PRINT"340 F$=";Z$;"JA";Z$:PRINT"270 I=J"
528 INPUT"(535, 720, 340, ODER 270)";A$:IFVAL(A$)=535GOTO550
529 IFVAL(A$)=720GOTO540
530 IFVAL(A$)=340ORVAL(A$)=270THEN532
531 PRINTQ$"":GOTO524
532 PRINT"[129]NEIN, DER BEFEHL IST RICHTIG!":GOSUB7:PRINT"DAS WORT L E T DARF";
534 PRINT" WEGGELASSEN WERDEN.":GOSUB8:GOTO524
540 PRINT"[129]NEIN, DER BEFEHL IST RICHTIG!":GOSUB7
541 PRINT"ZU DEM PRODUKT G*2 WIRD H ADDIERT, UND"
542 PRINT"DAS ERGEBNIS WIRD IN G GESPEICHERT.":GOSUB8
544 GOTO524
550 PRINT"RICHTIG!
554 [153]"FORLINKS NEBEN DEM ZEICHEN =WAIT MUSS EINE":[153]"FORVARIABLE STEHEN."
560 [141]7:[153]"BEVOR SIE MIT LEKTION 5 WEITERMACHEN,
561 PRINT"VERSUCHEN SIE VIELLEICHT, FOLGENDES ":PRINT"PROGRAMM ZU SCHREIBEN."
562 GOSUB6
570 PRINT"[147]BITTE SCHREIBEN UND RECHNEN SIE EIN
572 [153]"PROGRAMM, DAS DEN DURCHSCHNITTLICHEN
574 PRINT"BENZINVERBRAUCH (DBV) VERSCHIEDENER":PRINT"AUTOS BERECHNET.":PRINT
576 PRINT"(DBV = 100*(LITER BENZIN DIVIDIERT DURCH";
577 PRINT"        GEFAHRENE KILOMETER))":GOSUB7
578 PRINT"HIERBEI SOLLEN FOLGENDE DATEN EINGEGEBEN";:PRINT"WERDEN:
580 [153][163]7)"FORKFZ-KENNZEICHEN":[153][163]7)"VERBRAUCHTES BENZIN IN LITER
582 PRINTTAB(7)"GEFAHRENE KILOMETER":PRINT:PRINT"DER COMPUTER SOLL DAS KFZ-KENNZEICHEN "
584 PRINT"UND DEN DURCHSCHNITTLICHEN BENZINVER-":PRINT"BRAUCH FUER 100KM AUSDRUCKEN.
585 [153]:[153]"BITTE SCHREIBEN SIE DIE AUFGABE AB,     "
586 [153]"BEVOR SIE EINE BELIEBIGE TASTE DRUECKEN.":[141]6
600 C$[178]"(null)":[141]3:[153]""[163]10)"ENDE VON LEKTION 4
610 PRINT"SIND SIE BEREIT FUER LEKTION 5 ?"
615 PRINT"DRUECKEN SIE WIE BISHER"
618 PRINT"EINE DER TASTEN"
620 PRINT"J = JA, ODER"
630 PRINT"N = NEIN"
640 GETA$:IFA$="N"THEN700
645 IFA$<>"J"THEN640
650 PRINT"[147]IN WENIGEN SEKUNDEN FOLGT"
660 PRINT"LEKTION 5[146]"
670 LOAD"5/1LEKTION",8
700 GOSUB3
710 PRINT"SIE HABEN SCHON DIE 1. HAELFTE[146]"
720 PRINT"DES KURSES ERFOLGREICH BESTANDEN.[146]"
730 PRINT"SEIEN SIE WEITER SO EIFRIG DABEI AB"
740 PRINTTAB(15)"LEKTION 5[146]"
760 FORZ=1TO700:NEXTZ
770 SYS64738