REM Hypnotiser Demo
REM 
REM ********************************
REM  +++ WARNING STROBE EFFECTS +++
REM ********************************
REM
REM Originally from OPSM2 10
REM Genericity adaptation by Jacob Busby

REM Change your message with the variable below

Message$ = "SUBLIMINAL MESSAGES?"

REM Screen variables: Change according to screen size

SCREENHEIGHT = 512
SCREENWIDTH = 640
PAUSELENGTH = 0.06

REM The demo itself...

MaxRadius = int(sqrt(((SCREENWIDTH / 2) * (SCREENWIDTH / 2)) + ((SCREENHEIGHT / 2) * (SCREENHEIGHT / 2)))) + 1
TextLength = len(Message$)
open window SCREENWIDTH, SCREENHEIGHT
label NewColour
setrgb 1, ran(255), ran(255), ran(255)
fill circle (SCREENWIDTH/2), (SCREENHEIGHT/2), ran(MaxRadius)
text (SCREENWIDTH/2)-((TextLength*10)/2), (SCREENHEIGHT/2), Message$
pause PAUSELENGTH
goto NewColour