Code source d’une démo en Hollywood 6.0 (une partie du scrolltext) :
/*
** Important! Check if the used Hollywood version is at least
** version 6.0!
*/
@VERSION 6,0

/**************************************************************
Since this part is time-critical because needs computation
power it's fine to preload stuff.
It's also right because you need these resources all at the
same time.
**************************************************************/
@BRUSH 1, "font.png", {Transparency = #BLACK}
@BRUSH 22, "warmup.png",  {Transparency = $FF0000}
@BRUSH 3, "bottombar.png"
@BRUSH 6, "gaston.png", {Transparency = #BLACK}
@BRUSH 7, "info.png", {Transparency = #BLACK}
@BRUSH 23, "captain2.png", {Transparency = #RED}
@MUSIC 1, "blaizer.mod"

/* prepare the background gradient and the color bars */
Function p_CreateBG()

	; this is the gradient effect for the sine scroller
	CreateBrush(10, 480, 100)
	SelectBrush(10)
	SetFillStyle(#FILLGRADIENT, #LINEAR, $ef65ce, $ef)
	Box(0, 0, 640, 18)
	SetFillStyle(#FILLGRADIENT, #LINEAR, $ef, $bdba42)
	Box(0, 18, 640, 18)
	SetFillStyle(#FILLGRADIENT, #LINEAR, $bdba42, $ef65ce)
	Box(0, 36, 640, 18)
	SetFillStyle(#FILLGRADIENT, #LINEAR, $ef65ce, $ef)
	Box(0, 54, 640, 18)
	SetFillStyle(#FILLGRADIENT, #LINEAR, $ef, $bdba42)
	Box(0, 72, 640, 18)
	SetFillStyle(#FILLGRADIENT, #LINEAR, $bdba42, $ef65ce)
	Box(0, 90, 640, 18)
	EndSelect

	CopyBrush(1, 4)
	CopyBrush(1, 5)

	ReplaceColors(4, {#WHITE, $8cefff})
	ReplaceColors(5, {#WHITE, $65ad})

EndFunction

/* init the sine scroller */
Function p_InitScroll()

	Local f$ = " !\"§$%&'()*+,-./0123456789:;<=>?#ABCDEFGHIJKLMNOPQRSTUVWXYZ"   ; format of font.iff
	Local x, y

	chars = {}

	; create lookup table chars{}
  /************************************************************
 Using local variables in For/Next loops is faster!
 Also you should make use of Disable/Enable Line Hooks.
 ************************************************************/
  DisableLineHook()
	For Local y = 0 To 2
		For Local x = 0 To 19
			chars[Asc(MidStr(f$, y * 20 + x, 1))] = {x = x * 16, y = y * 16}
		Next
	Next

	Local t$ = "                            "..
	"                HELLO, WARMUP IS AN ASSOCIATION OF MORPHOS USERS, AN ALTERNATIVE. " ..
	"OPERATING SYSTEM, LIGHT AND VERY REACTIVE. THE ASSOCIATION OFFERS A " ..
	"FREE SOFTWARE PACK AND A  MAP OF MORPHOS USERS. GREETING TO LAIRE, " ..
	"STEFKOS, FAB, TCHEKO, BIGFOOT, PIRU, KIERO, TOKAI, PEGA-1, JACADCAPS, HENES, KRASHAN, "..
	"GEIT, RZOOKOL,  DAFF, OFFSET, JPV, HAK, GLAMES, SIXK, YOMGUI, TEMPLARIO, THE BUCHERON, "..
	"MAAG-DA, TUBBRAIN, NERUMO, BRUMIGA, HIGHLANDER, CAPUCIN, LEIF SALOMONSON, "..
	"CARSTEN SIEGNER, YOGIOFVM, PEG4A, BATTEMAN, POLYMERE, HUNO, AMIDARK, ACHIM KERN, "..
	"KORNI, NATMEG, KEITO, YASU, SCR33TCH, PATBEST, INTUITION, PAN1K, AMIGADAVE, SERGIO, SERGIUS, "..
	"L OURS, ABSOLEM, CRAF, JOSEMRM, JEGOUGOU, JEFFR3Y, ZBYSIUK, THOMAS IGRACKI, CHERRY DARLING, "..
	"JAMES JACOBS, STEFAN HAUBENTHAL, ONYXSOFT, AMIGAFIL, PEGASOS, RMAIS96, JAMBALAH, SAYASUPACREW, "..
	"CRISTONGATE, FOGG-80, AMIXPEG, DAKE, GENERALTOM, ROSCHMYR, MIC, CAPJP, ANALOGKID, ELIOT, "..
	"DRAKO-LM, OTTI, MARAUDER, STEVO, CLS2086, GURUMAN, TIREDOF, NUMBER-ONE, OVE, BOUVELLE2000, "..
	"CPTBLOOD, RUUD, CAIUS, MATTHIJS JANSEN, TOM, QWERT44, XYPHOID, DEBASER, ZYLESEA, SENEX, "..
	"MANDY, BEWORLD, COR VAN LONDEN, QUAINT, MRZOON, BIGDAN, DRAGSTER, DJCOLLINS, AMIGAJOE, "..
	"PAMPERS, INSURGENT, RAJINDER, RUSBACK, LHOMME QUI TOMBE A PIC, OSCO, PHX, MAVERICK, "..
	"SAIB0T, JULIEN, WEIXING3D, GAZ GOD, MFILOS, FALCON-11, FAZIOR, AMIADES, JCMARCOS, FENRIX, "..
	"KJB, BONBONPEG, DRZARKOV, MABO, MIKY060, MADMAN, AMIGA-USER, GEOKM, JIM, OEPABAKKES, "..
	"DANI, KRAG, HOLGER, OMARBLUNT, DIVINA, POLLUKS, THEKANEB, CONDOR, WALDIAMIGA, "..
	"BLASTERREAL, CRUMB, DISK DOCTOR, PPTIET, MIXUNIX, PALMIGA, WEGURU, KRIZ, MDW, BIFFORD, "..
	"DORAEMONPPC, BOOT-WB, DARTH-X, JIMH54, DEEZ, THEMAGICM, XRAY, ARAMON, CREOLS, "..
	"SAMURAI-CROW, WEISEB, REDRUMLOA, KR1ST0, BSZILI, ZZD10H, VALWIT, FRAGGLE, CAVER99, "..
	"TAKEMEHOMEGRANDMA, MAURENSEN, KWINT, ZOURIS, DANISHAMIGAMORPH, PUPPY, VOODOO, "..
	"TJH132, RAMZEY, NEBULUS, CEGO, DEKANYZ, MAZINKAESAR, AJUS, NEWSENSE, MOS-G5, MURIANI, "..
	"OLAHUGHSON, EASTONE, SAT0RI, CLR666, BASH64, MOTOSAMPY, SA, DFRENICHE, ABSOLEM, KRIS, "..
	"KATOS1, KARNER, ACILL, TOLKIEN, PSEUDAXOS, GA-SFRIEND, GET27, CROMAGNON, MEGANDER, HONKYBEAR, "..
	"MADOS, AMIFONE, MHONEY-WORK, HENRIK JOHANSSON, SOVIET, IKE, RONTECH, TROLLO, DIEZI7, ANCHOR, "..
	"CODEVARK, TLOSM, DOFFO, ACN128, BERESFORD, ACE, GOTHOR, SKRZYP, AVARTHARV, HAMMERD, WALKERO, "..
	"DEUTEROS, BIFORD, DOC, MUSA, RAVI ABBOTT, WIZARD, AMIGAGEEK, NEOMAN, KUYAMARC, TOMKERIC, "..
	"REVBARABBAS, LOOZEE, TGR, FABRICE, GURU, SHEEVA, HOTBLACKDESIATO, EMECK, IFRODO, "..
	"AUSPPC AND THE OTHERS. MORPHOS POWER !!!"
	
  scrolltextlen = StrLen(t$)
	scrolltext = StrToArray(t$)
  
  EnableLineHook()
EndFunction