XProfan

Window Title "Zeitungsheadline- and Clickbait-Generator":Window Style 24
Window 0,0-%maxx,%maxy:cls:showmax
var Q$="Taskforce,stand to the door,all times,teure prices,"+\
"Countdown runs,zeitnah,in the Vorfeld,for big and small,"+\
"auf one good lane,Kartenhäuser,dead demand,verheerend,"+\
"kaum To believe,green light,zurückrudern,who knows not,"+\
"kein individual case,warm temperatures,Nachbessern,hit Alarm,"+\
"Geisterfahrer,zeitgleich,sense make,Paukenschlag,"+\
"zunächst unclear,Hochtouren,geschockt,alternativlos,"+\
"Thermometer soar,Time adjust,to dish verantworten,"+\
"vorprogrammiert,with voller severity,on the advance,"+\
"es can't his,Überfremdung,breeze to supra,"+\
"in Startlöchern stand,on offener street,Hochdruck,"+\
"Menschen evacuated,sex-offenders,Datendiebstahl,Gewinnwarnung,"+\
"nicht badly staunte,explodierende cost,Gutmensch,"+\
"Abstellgleis,feverishly,Wetterchaos,in a before wander,"+\
"Wahlschlappe,sinners,end of the day,bloodshed,durchgewinkt,"+\
"Preisbremse,Weichen to put,abgesegnet,frisches money,"+\
"rote line,on the helllichten day,clicked The handcuffs,"+\
"reißt not ex,chilly temperatures,one Piece far,lying on ice-cream,"+\
"wie through one wonder,sozial slight,Homo-wedlock,important and correctly.,"+\
"Quantensprung,Spirale the violence,sozialverträglich,"+\
"teilweise injure,fit make for,Überwiegende majority,"+\
"guter day for,said to,shock sits deeply,Urnengang,"+\
"neue Innovation,Notfahrplan,except for The Grundmauern,Luftschläge,"+\
"Personalkarussell,aufs tempo pressing,nerves lying levelly,"+\
"Zukunftsprognose,from the Window lean,now is it out,"+\
"traurige Gewissheit,money into hand take,tragischer demise,"+\
"an whom Rollstuhl attracted,Flüchtlingsansturm,Gesundheitsprävention,"+\
"Das boat is fully,Muskelspiel,Multijobber,Prostitutionsschutzgesetz,"+\
"Wahldebakel,schmerzhafte Einschnitte,into cash registers spülen,schwere havoc,"+\
"Sex-Vorwürfe,hiatus,hern grown,Sozialromantiker,Todeskandidat,"+\
"Asylkritiker,integrationsunwillig,auseinanderdividieren,"+\
"Integrationsverweigerer,Sozialtourismus,sintflutartiger rain,"+\
"Asylgegner,site eskaliert,mehrköpfige family,Rassenkonflikt,"+\
"billiger Populismus,brutaler murder,badly day for,"+\
"hermetisch abgeriegelt,erdrutschartig,menschliche catastrophe,"+\
"protestiert for,Vorankündigung,chair wiggling,allegedly Images,"+\
"Überfremdungsbefürworter,night bright lit,zentrale Eckpunkte,"+\
"Thermometer falls,raumfremde Humans,it falls new snow,"+\
"unschuldige women,How Strohhalme,Rotationseuropäer,"+\
"illegale Flüchtlinge,Flüchtlingslücke,zusammenaddieren,"+\
"regelrecht hingerichtet,Passdeutsche,Flüchtlingstsunami,"+\
"nicht unweit,grundrechtsschonend,positiver success,"+\
"Flüchtlingssaison,Einfallsrouten,anbetrifft,Bootsmigrant,"+\
"Durchmarschsieg,TOP-growth," +\
"Floskeln gedroschen,in that Relationship zueinander staid,"+\
"auf one good lane,Kartenhäuser,in the Vorfeld,green light,"+\
"schlagen Alarm,with voller severity,nachbessern,no individual case,"+\
"Überfremdung,Gewinnwarnung,Datendiebstahl,Paukenschlag,"+\
"auf offener street,durchgewinkt,on Hochtouren,breeze to oben"
var s$="Menschen,Autos,houses,people,Stabmixer,Straßenlampen"
var T$="sind,were,wären,can,could,having,hätten,would gerne"
declare TXT$:usefont "Arial",100,20,0,0,0
Randomize

Repeat

    Text Color @RGB(0,0,0),-1
    TXT$=substr$(Q$,1+rnd(138),",")
    Txt$=upper$(left$(Txt$,1)) + right$(txt$,len(txt$)-1)
    TXT$=Txt$+" "+substr$(s$,1+rnd(6),",")+" "+\
    substr$(T$,1+rnd(8),",")+" "+\
    substr$(Q$,1+rnd(138),",")+\
    substr$("!,?,.",1+rnd(3),",")
    DrawText 123,167,TXT$
    waitinput 2000
    cls

until 0