Text line break in QB64

[Kernelpanic]

Hello, how does a line break work in QB64?
The idiotic arrangement of our equally political idiots that in shops should be 30 square meters of space for each customer has led me to this little program.
Thanks!

Code: QB64: [Select]

1. 'Seitenlaenge eine Quadrats berechnen - 16. Mai 2021
2. 'Angeregt durch die idiotische Vorschrift, dass in Geschaeften
3. 'fuer jeden Kunden zuletzt 30 qm zur Verfuegung stehen sollen.
4. 'Das damit die Standardabstandsregelung von 1,5 Meter obsolet wird,
5. 'scheint offenbar Niemand bewusst zu sein.
6.  
7. 'Variablendeklaration erzwingen
8. OPTION _EXPLICIT
9.  
10. DIM Text AS STRING, Text2 AS STRING, Text3 AS STRING
11. DIM x AS SINGLE, y AS SINGLE
12. DIM quadratflaeche AS DOUBLE, seitenlaenge AS DOUBLE
13.  
14. 'Ausgabefenster bestimmen
15. SCREEN _NEWIMAGE(800, 600, 32)
16.  
17. LOCATE (CSRLIN + 2), POS(10)
18. PRINT "Berechnet die Seitenlaenge eines Quadrats"
19. PRINT "========================================="
20. PRINT
21. INPUT "Flaeche des Quadrats in qm: ", quadratflaeche
22.  
23. 'Seitenlaenge = Quadratwurzel des Flaecheninhaltes
24. seitenlaenge = SQR(quadratflaeche)
25.  
26. PRINT
27. PRINT USING "Die Seitenlaenge eines Quadrat von ###.## qm betraegt: ##.### Meter"; quadratflaeche, seitenlaenge
28.  
29. 'Neue Farbe fuer Ausgabe der Quadrate
30. COLOR _RGB32(0, 191, 255), _RGB(0, 0, 0)
31.  
32. '2 Quadrate neben einander. Die X-Koordinate legt den Abstand
33. 'vom linken Rand fest, Y die Flaeche. Daher ist die
34. 'For-Schleife fuer Y in beiden Schleifen gleich.
35. FOR x = 50 TO 150
36.   FOR y = 150 TO 250
37.     PSET (x, y)
38.   NEXT
39. NEXT
40.  
41. FOR x = 350 TO 450
42.   FOR y = 150 TO 250
43.     PSET (x, y)
44.   NEXT
45. NEXT
46.  
47. Text = "---------------------------------------"
48. 'Zeile, Spalte (Row, Column)
49. _PRINTSTRING (86, 191), Text
50.  
51. 'Die Zahl in einen String umwandeln, und die Anzahl der Nachkommastellen festlegen
52. 'Das bedeutet bei einem Double-Wert, keine Ausgabe wie: xy.12345678
53. Text = STR$(seitenlaenge)
54. _PRINTSTRING (196, 191), LEFT$(Text, 6)
55.  
56. Text2 = "Meter"
57. _PRINTSTRING (256, 191), Text2
58.  
59. 'Farbe der Ausgabe festlegen - hier Standard
60. COLOR _RGB32(255), _RGB(0, 0, 0)
61.  
62. Text3 = "Die Anordnung der Politik fuer 30 Quadratmeter pro Kunde in einem Geschaeft zeigt, " + _
63. "dass dies ohne Sinn und Verstand erfolgte. Durch dies Anordnung wird naemlich der Abstand pro " + _
64. "Person von 1,5 Meter auf ueber 5 Meter erweitert."
65. _PRINTSTRING (10, 290), Text3
66.  
67. END
68.  

[Richard Frost]

Break up the long text manually so it'll fit on the screen or:

Code: QB64: [Select]

1. 'Seitenlaenge eine Quadrats berechnen - 16. Mai 2021
2. 'Angeregt durch die idiotische Vorschrift, dass in Geschaeften
3. 'fuer jeden Kunden zuletzt 30 qm zur Verfuegung stehen sollen.
4. 'Das damit die Standardabstandsregelung von 1,5 Meter obsolet wird,
5. 'scheint offenbar Niemand bewusst zu sein.
6.  
7. 'Variablendeklaration erzwingen
8. Option _Explicit
9.  
10. Dim p As Integer
11. Dim t$
12. Dim Text As String, Text2 As String, Text3 As String
13. Dim x As Single, y As Single
14. Dim quadratflaeche As Double, seitenlaenge As Double
15.  
16. 'Ausgabefenster bestimmen
17. Screen _NewImage(800, 600, 32)
18.  
19. Locate (CsrLin + 2), Pos(10)
20. Print "Berechnet die Seitenlaenge eines Quadrats"
21. Print "========================================="
22. Print
23. Input "Flaeche des Quadrats in qm: ", quadratflaeche
24.  
25. 'Seitenlaenge = Quadratwurzel des Flaecheninhaltes
26. seitenlaenge = Sqr(quadratflaeche)
27.  
28. Print
29. Print Using "Die Seitenlaenge eines Quadrat von ###.## qm betraegt: ##.### Meter"; quadratflaeche, seitenlaenge
30.  
31. 'Neue Farbe fuer Ausgabe der Quadrate
32. Color _RGB32(0, 191, 255), _RGB(0, 0, 0)
33.  
34. '2 Quadrate neben einander. Die X-Koordinate legt den Abstand
35. 'vom linken Rand fest, Y die Flaeche. Daher ist die
36. 'For-Schleife fuer Y in beiden Schleifen gleich.
37. For x = 50 To 150
38.     For y = 150 To 250
39.         PSet (x, y)
40.     Next
41. Next
42.  
43. For x = 350 To 450
44.     For y = 150 To 250
45.         PSet (x, y)
46.     Next
47. Next
48.  
49. Text = "---------------------------------------"
50. 'Zeile, Spalte (Row, Column)
51. _PrintString (86, 191), Text
52.  
53. 'Die Zahl in einen String umwandeln, und die Anzahl der Nachkommastellen festlegen
54. 'Das bedeutet bei einem Double-Wert, keine Ausgabe wie: xy.12345678
55. Text = Str$(seitenlaenge)
56. _PrintString (196, 191), Left$(Text, 6)
57.  
58. Text2 = "Meter"
59. _PrintString (256, 191), Text2
60.  
61. 'Farbe der Ausgabe festlegen - hier Standard
62. Color _RGB32(255), _RGB(0, 0, 0)
63.  
64. Text3 = "Die Anordnung der Politik fuer 30 Quadratmeter pro Kunde in einem Geschaeft zeigt, " + _
65. "dass dies ohne Sinn und Verstand erfolgte. Durch dies Anordnung wird naemlich der Abstand pro " + _
66. "Person von 1,5 Meter auf ueber 5 Meter erweitert. "
67. '_PrintString (10, 290), Text3
68.  
69. p = 1
70. x = 10
71. y = 290
72. Do
73.     p = InStr(Text3, " ")
74.     If p = 0 Then Exit Do
75.     t$ = Left$(Text3, p)
76.     Text3 = Right$(Text3, Len(Text3) - p)
77.     If x + _PrintWidth(t$) > (_Width - 20) Then
78.         x = 10
79.         y = y + _FontHeight + 2
80.     End If
81.     _PrintString (x, y), t$
82.     x = x + _PrintWidth(t$)
83. Loop
84.  
85. End
86.  

[Kernelpanic]

Break up the long text manually so it'll fit on the screen or:

I think I do it manually. I kind of confused this with HTML. Thanks.