Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- elektronik:z8671:handbuch [2021/12/10 07:18] – Textkorrekturen volkerp
+++ elektronik:z8671:handbuch [2024/02/14 11:13] (aktuell) – [Mastermind] volkerp
@@ Zeile 477: / Zeile 477: @@
 PRINT "BITTE JA ODER NEIN EINGEBEN"
 LET N=J-1
- DRUCK "VERSTEHEN SIE";
+ PRINT "VERSTEHEN SIE";
 INPUT N
 IF N=J THEN PRINT "GUT!"
@@ Zeile 882: / Zeile 882: @@
 USR- oder GO@-Anweisung Binärdaten lesen und schreiben.
-  input 	%8053	(ES1988, orig Z8671  %54)
+  input 	orig Z8671  %54
-  output	%8058	(ES1988, orig Z8671  %61)
+  output	orig Z8671  %61
 Das folgende Beispielprogramm druckt das Hex-Äquivalent
@@ Zeile 889: / Zeile 889: @@
 PRINT "INPUT A CHARACTER, PLEASE";
-C = USER (%8053)
+C = USER (%54)
 PRINT" THE HEX VALUE OF ";
-GO@ %8058, C
+GO@ %61, C
 PRINT" IS "; HEX (C);". SHALL WE DO ANOTHER?";
-Q = USER (%8053)
+Q = USER (%54)
 PRINT : IF Q = %59 GOTO 10
 REM %59 IS AN ASCII "Y".
@@ Zeile 903: / Zeile 903: @@
 Erläuterungen
   * Zeile 20 initialisiert den Zähler T2 für Zufallszahlen
-  * Zeile 30 erzeugt 4 Zufasllzahlen. Dazu ist 4x eine beliebige Taste zu drücken (USR(84) = char input)
+  * Zeile 30 erzeugt 4 Zufallszahlen. Dazu ist 4x eine beliebige Taste zu drücken (USR(84) = char input)
   * ^10+2 = YY22 Pointer auf Variable A
   * THEN, LET, PRINT vor "", GOTO vor Zahl nach IF, Leerzeichen können entfallen,\\ Für Tempo und Lesbarkeit sollten sie stehen.
@@ Zeile 910: / Zeile 910: @@
 <code>
 REM MASTERMIND
-@243=7:@242=10:@241=14
+@243=7:@242=10:@241=14				Init Timer
-X=USR(84):A=@242-1:X=USR(84):B=@242-1:X=USR(84):C=@242-1:X=USR(84):D=@242-1
+X=USR(84):A=@242-1:X=USR(84):B=@242-1:		jeweils Warten auf Tastendruck, A..D=Zufallszahl 0..9
-"":I=0
+   X=USR(84):C=@242-1:X=USR(84):D=@242-1
-"GUESS ",:IN E,F,G,H
+"":I=0						I=Anzahl Versuche
+"GUESS ",:IN E,F,G,H				Eingabe 4 Werte (kommagetrennt)
 I=I+1
-J=^10+2:K=J+8
+J=^10+2:K=J+8					J zeigt auf A, K zeigt auf E
-L=0
+L=0							L Zähler 1..4
-R=0:P=0
+R=0:P=0						R Zähler richtige Zahl, P Zähler richtiger Platz
-IF ^J=^K LET P=P+1
+IF ^J=^K LET P=P+1					Test auf gleiche Zahl, gleicher Platz
-J=J+2:K=K+2:L=L+1:IF 4>L GOTO 310
+J=J+2:K=K+2:L=L+1:IF 4>L GOTO 310			nächste Plätze (J zeigt auf B , K auf F etc.), next L
-J=^10+2:K=J+8
+J=^10+2:K=J+8					J zeigt auf A, K zeigt auf E
-L=0
+L=0							L Zähler 1..4
-IF ^J=^K LET R=R+1:^J=^J+10:L=3
+IF ^J=^K LET R=R+1:^J=^J+10:L=3			Wenn A=E, dann Zähler richtige Zahl +1, A=A+10 setzen (ausblenden),L auf Ende
-J=J+2
+J=J+2						nächste Plätze
-L=L+1: IF 4>L GOTO 340
+L=L+1: IF 4>L GOTO 340				next L
-J=^10+2
+J=^10+2						J zeigt auf A
-L=0
+L=0							L Zähler
-K=K+2:IF ^10+17>K GOTO 340
+K=K+2:IF ^10+17>K GOTO 340				nächster Platz K auf F etc., next
-J=^10+2:K=J+8
+J=^10+2:K=J+8					J zeigt auf A, K zeigt auf E
-IF ^J>9 LET ^J=^J-10
+IF ^J>9 LET ^J=^J-10				ggf. wieder 10 abziehen
-J=J+2
+J=J+2						nächster Platz
-IF ^10+9>J GOTO 366
+IF ^10+9>J GOTO 366					Ende nach D
-Y=1:N=0
+Y=1:N=0						Yes/No-Abfrage init.
-"RIGHT ";R;" PLACE ";P
+"RIGHT ";R;" PLACE ";P				Anzeige Auswertung
-IF 4>P GOTO 100
+IF 4>P GOTO 100					wenn weniger als 4 am richtigen Platz, weiter raten
-X=0:Y=1
+X=0:Y=1						Yes/No-Abfrage vorbereiten
-"RIGHT IN ";I;" GUESSES;";"PLAY ANOTHER Y/N":INPUT X
+"RIGHT IN ";I;" GUESSES;";"PLAY ANOTHER Y/N":	Anzeige Anzahl Versuche
-IF X=Y GOTO 10
+    INPUT X						Eingabe Variablenname Y oder N
+IF X=Y GOTO 10					Wenn Eingabe == 1 (Wert von Y), dann neues Spiel
+:RUN
+						Zufallszahlen init
+GUESS   ? 1,2,3,4
+RIGHT 2 PLACE 0
+...
+GUESS   ? 3,7,1,0
+RIGHT 4 PLACE 4
+RIGHT IN 15 GUESSES;PLAY ANOTHER Y/N
+? N
+:
 </code>