10 DEFINT a-y:MODE 0:FOR c=0 TO 29:b=7*c MOD 30:x=b MOD 5:y=b\5:FOR a=0 TO 7:p=1+p MOD 13:o=2+ABS((14*-((x+y)MOD 2=0))-14+p):ORIGIN 0,0,x*128+a*8,x*128+120-a*8,391-y*64-a*4,329-y*64+a*4:CLG o:NEXT a,c:CALL &BB9F,1:LOCATE 2,13:PRINT"SCEANCE  D'HYPNOSE"
20 WHILE INKEY(47):t=9+5*RND*5:m=2+RND*24:p=2+RND*24:m=m+(p=m):INK 0,m,p:BORDER m,p:z=TIME:WHILE 999+z>TIME:INK 1,m,p:FOR b=2 TO 8:INK b,p:INK b+7,m:FOR r=1 TO t:NEXT:SOUND 3,b\3,1,8:NEXT:c=p:p=m:m=c:WEND:WEND:MODE 1:CALL &BBFF:PRINT,"DEBOUT SOLDAT !"