0 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
1 POKE53280,1:POKE53281,1
2 Z$=CHR$(34):Q$="[145]                                      [145][145][145]":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
9 GOSUB7:PRINT"TRY AGAIN!":GOSUB6:RETURN
10 Z$=CHR$(34)
14 PRINT"":FORI=1TOU-1:PRINT:NEXT:FORI=1TO24-U
15 PRINT"                                       ":NEXT:PRINT"":FORI=1TOU-1:PRINT:NEXT
16 RETURN
20 PRINT"[147]"TAB(10)"TERME":PRINTTAB(5)"(FORTSETZUNG VON 4.2)":GOSUB7
358 PRINT"EINIGE BEISPIELE FUER TERME:":GOSUB7
360 PRINTTAB(10)"   X+2          ":PRINTTAB(10)"   A*365        "
362 PRINTTAB(10)"   R^2+A2/B3    ":PRINTTAB(10)"   N-K9*Q       "
364 PRINTTAB(10)" (2*M-N)/(2*M+N)":GOSUB7
370 PRINT"DA FUER JEDE VARIABLE EINE ZAHL
372 [153]"GESPEICHERT IST, REPRAESENTIERT EIN
373 PRINT"BERECHNETER TERM EINEN NUMERISCHEN WERT.":GOSUB6:GOSUB5000:GOSUB6
374 PRINT"[147]"TAB(12)"1.  S-.1*H*R":PRINTTAB(12)"2.  73/(Q*S*T)":PRINTTAB(12)"3.  B+365A"
375 GOSUB7:PRINT"WELCHER DER OBIGEN TERME IST IN BASIC
376 [153]"NICHTWAIT RICHTIG GESCHRIEBEN(1,2 ODER 3)";:[133]A$
377 [139][197](A$)[177]3[167]379
378 [145][197](A$)[137]380,380,395
379 [153]Q$:[137]374
380 [153]"FORNEIN DIESER TERM IST RICHTIG!":[141]7
382 [153]"NATUERLICH MUSS FUER JEDE VARIABLE EINE
383 PRINT"ZAHL GESPEICHERT WORDEN SEIN, BEVOR DER
384 [153]"COMPUTER DEN WERT DES TERMS BERECHNET.
385 GOSUB7:PRINT"VERSUCHEN SIE ES NOCHEINMAL!":GOSUB6:GOTO374
395 PRINT"":FOR I=1TO15:PRINT"RICHTIG!!![157][157][157][157][157][157][157][157][157][157][146]RICHTIG!!![145]":NEXT:GOSUB7
397 PRINT"DIESER TERM IST IN BASIC NICHT RICHTIG":PRINT"GESCHRIEBEN, DA DAS MULT";
398 PRINT"IPLIKATIONS-" :PRINT"ZEICHEN ZWISCHEN 365[146] UND A[146] FEHLT.":GOSUB7
399 PRINT"KORREKT IST DIE FORM:    B+365*A":GOSUB6
400 PRINT"[147]"TAB(8)"[129]HIERARCHIE VON OPERATIONEN":GOSUB7
402 PRINT"MANCHMAL KANN BEI DER BERECHNUNG EINES
403 [153]"TERMES DIE REIHENFOLGE DER AUSFUEHRUNG ":[153]"DER OPERATIONEN UNKLAR SEIN.
404 GOSUB7:PRINT"ZUM BEISPIEL HAENGT BEI DEM TERM:":GOSUB7
405 PRINTTAB(14)"B + 365*A":GOSUB7:PRINT"DAS ERGEBNIS VON DER REIHENFOLGE DER
407 [153]"AUSFUEHRUNG DER OPERATIONEN AB.":[141]7
410 [153]"ANGENOMMEN, FUER AWAIT WURDE DER WERT 10
411 PRINT"UND FUER B[146] DER WERT 9 GESPEICHERT, SO
412 [153]"KOENNTE NUN BERECHNET WERDEN:":[141]7
413 [153]"  9 + 365 = 374, UND   374*10 = 3740"
414 [153]"ODER":[153]"  365*10 = 3650, UND 9 + 3650 = 3659":[141]6
416 [153]"LOADUM SOLCHE MEHRDEUTIGKEITEN AUSZU-":[153]"SCHLIESSEN GILT DIE REGEL:
417 PRINT"DER COMPUTER FUEHRT OPERATIONEN IN DER":PRINT"FOLGENDEN REIHENFOLGE AUS:"
418 GOSUB7:PRINT" 1. POTENZIEREN [146]"TAB(33)" ^ [146]
420 [153]" 2. MULTIPLIKATION UND DIVISION WAIT"[163]33)"* /
422 PRINT" 3. ADDITION UND SUBTRAKTION [146]"TAB(33)"+ -":GOSUB7
424 PRINT"FERNER GILT:":PRINT"OPERATIONEN DER GLEICHEN PRIORITAET
425 [153]"WERDEN NACHEINANDER VON LINKS NACH ":[153]"RECHTS AUSGEFUEHRT.":[141]7
426 [153]"ZUM BEISPIEL:":[141]7
428 [153][163]14)"20/5*2":[141]7:[153]"HAT DEN WERT 8, UND NICHT 2.":[141]6
430 [153]"LOADEINE WEITERE MOEGLICHKEIT ZUR FEST-
431 PRINT"LEGUNG DER REIHENFOLGE BIETET DIE ":PRINT"[129]KLAMMERUNG.":GOSUB7
434 PRINT"DAZU EINIGE BEISPIELE:":GOSUB7:PRINTTAB(14)"(A+B)*2":
435 PRINTTAB(14)"(X+2)*(X-2)
436 [153][163]14)"F-(G1-HH)
4000 GOSUB6:C$="[216]":GOSUB3:PRINT"[129]ENDE VON LEKTION 4 TEIL 3
4002 [153]"BITTE WARTEN SIE,BIS TEIL 4
4004 PRINT"EINGELESEN IST."
4006 LOAD"4/4LEKTION",8
5000 PRINT"[129](BEACHTEN SIE BITTE, DASS DIE DIVISION"
5010 PRINT"DURCH DAS ZEICHEN /[146] DARGESTELLT WIRD.)"
5020 RETURN