in Linux 3 lines
in Windows 1 line
Wy???
Code: Select all
Global Text.s = "line_1"+Chr(10)+
"line__2"+Chr(10)+
"line___3 it was a long, very long string, so we will transfer it"+Chr(10)+
"line_4"+#CRLF$+
"line__5"+#LF$
If OpenWindow(0, 0, 0, 220, 620, "CanvasGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CanvasGadget(0, 10, 10, 200, 600)
If StartDrawing(CanvasOutput(0))
Box(0,0,OutputWidth(), OutputHeight(), $FFFFFF)
DrawText(10,10,Text.s, $000000, $FFFFFF)
StopDrawing()
EndIf
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIf