hmm... 20 lines, one commande a line ...
... it's illegal in my country, so don't tell anybody I made a such program
set display mode 640,480,32
set text size 50
SYNC ON
SYNC RATE 24
backdrop on
randomize timer()
DO
r = rnd(200)+15
g = rnd(200)+15
b = rnd(200)+15
ink rgb(r,g,b),0
box 0,0,640,480
ink rgb(r-05,g-05,b-05),0
a = rnd(3)
if a = 0 then center text rnd(640),rnd(480),"Give me a beer"
if a = 1 then center text rnd(640),rnd(480),"Get naked and run in the street"
if a = 2 then center text rnd(640),rnd(480),"Eat bugs"
if a = 3 then center text rnd(640),rnd(480),"Smell your toes"
SYNC
LOOP
The sleeper must awaken !