Diskussion:CENTER (TSB)

Beispiel

Das Beispiel (eine ein wenig für mich angepasste Version)

10 DIV: CENTRE "DEMO": S$=CHR$(221)
20 L$=DUP(CHR$(192),40)
25 PRINT AT(0,2) L$
30 PRINT AT(0,4)"STOP BY C=" AT(0,5)"SLOW DOWN BY CTRL" AT(0,6)"BREAK BY STOP"
40 PRINT AT(0,8) L$
50 FOR I=1 TO 5: PRINT AT(4,10+I)S$ AT(14,10+I)S$ AT(24,10+I)S$ AT(34,10+I)S$
60 NEXT
70 FOR I=0 TO 2: PRINT AT(5+I*10,11)"";
80 CENTRE "NR."+STR$(I+1),9
90 NEXT: PRINT AT(0,20)"";

bringt bei mir dieses Ergebnis:

DEMO ̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶ STOP BY C= SLOW DOWN BY CTRL BREAK BY STOP ̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶̶ │ │ NR. 1 │ ?SYNTAX ERROR IN 80 │ │ READY. │ │ │ │ │ │ │ │ │ │ │

--Petrus (Diskussion) 13:25, 6. Apr. 2022 (CEST)

---

Bei mir geht's! Hast du die aktuelle Version geladen? (v2.20405, mit RETRACE verifizieren) --GoDot (Diskussion) 14:52, 6. Apr. 2022 (CEST)

Nein, hatte ich nicht und daran lag es! Jetzt mit der neuen Version ist es ok. Ich habe erst vorhin beim Stöbern im Quellcode selbst entdeckt, dass ich noch garnicht die aktuelle Version v220405 habe.

Die vorige Version hatte bei CENTRE eines Strings mit einer Länge von mehr als 37 Zeichen ein Problem, das im originalen SB nicht auftrat. In der neuen TSB-Version ist das behoben. Getestet mit (l verändern):

10 l=40
20 x$=dup("+",l)
30 div:centre x$

--Petrus (Diskussion) 16:11, 6. Apr. 2022 (CEST)