rem First program - OpenDBC tutorial (DarkBASIC Classic)
sync on
sync rate 60

name$ = "OpenDBC"
x = 0

do
   cls rgb(16, 20, 40)
   ink rgb(255, 210, 90), 0
   text 20, 20, "Hello from " + name$ + "!"
   ink rgb(120, 220, 255), 0
   text x, 240, "DarkBASIC runs again"
   x = x + 2
   if x > screen width() then x = -200
   sync
loop