Unterschiede
Hier werden die Unterschiede zwischen zwei Versionen angezeigt.
Beide Seiten der vorigen Revision Vorhergehende Überarbeitung | Letzte ÜberarbeitungBeide Seiten der Revision | ||
elektronik:z8671:handbuch [2021/12/10 07:18] – Textkorrekturen volkerp | elektronik:z8671:handbuch [2022/05/06 08:37] – [Direkte Zeichen-Ein-Ausgabe] volkerp | ||
---|---|---|---|
Zeile 477: | Zeile 477: | ||
100 PRINT "BITTE JA ODER NEIN EINGEBEN" | 100 PRINT "BITTE JA ODER NEIN EINGEBEN" | ||
110 LET N=J-1 | 110 LET N=J-1 | ||
- | 120 DRUCK " | + | 120 PRINT " |
130 INPUT N | 130 INPUT N | ||
140 IF N=J THEN PRINT " | 140 IF N=J THEN PRINT " | ||
Zeile 882: | Zeile 882: | ||
USR- oder GO@-Anweisung Binärdaten lesen und schreiben. | USR- oder GO@-Anweisung Binärdaten lesen und schreiben. | ||
- | input %8053 (ES1988, | + | input orig Z8671 %54 |
- | output %8058 (ES1988, | + | output orig Z8671 %61 |
Das folgende Beispielprogramm druckt das Hex-Äquivalent | Das folgende Beispielprogramm druckt das Hex-Äquivalent | ||
Zeile 889: | Zeile 889: | ||
10 PRINT "INPUT A CHARACTER, PLEASE"; | 10 PRINT "INPUT A CHARACTER, PLEASE"; | ||
- | 20 C = USER (%8053) | + | 20 C = USER (%54) |
30 PRINT" THE HEX VALUE OF "; | 30 PRINT" THE HEX VALUE OF "; | ||
- | 40 GO@ %8058, C | + | 40 GO@ %61, C |
50 PRINT" IS "; HEX (C);". SHALL WE DO ANOTHER?"; | 50 PRINT" IS "; HEX (C);". SHALL WE DO ANOTHER?"; | ||
- | 60 Q = USER (%8053) | + | 60 Q = USER (%54) |
70 PRINT : IF Q = %59 GOTO 10 | 70 PRINT : IF Q = %59 GOTO 10 | ||
80 REM %59 IS AN ASCII " | 80 REM %59 IS AN ASCII " |