1 ' Hypnotic
2 ' Simon Tully
3 ' Amstrad Action   December 1986
4 '
10 ENT -1,40,-1,3,40,1,3
20 ENV 1,10,-1,100,10,1,100,10,-1,100,10,1,100
30 ON BREAK GOSUB 250
40 DEFINT a,b:MODE 0:ORIGIN 320,200
50 FOR a=a TO 15:INK a,26:NEXT
60 c=0:INK 0,0:BORDER 0
70 WINDOW #1,1,1,1,25
80 WINDOW #2,40,40,1,25
90 PRINT#1,"WATCH CLOSELY AND YOU"
100 PRINT#2,"WILL SOON BE IN MY GRASP"
110 FOR k=-4 TO 2 STEP 0.5:c=c+1
120 FOR f=0 TO 4*PI STEP PI/50
130 x=20*f*COS(f-k):y=20*f*SIN(f-k)
140 IF f=0 THEN MOVE x,y
150 DRAW x,y,c
160 NEXT f,k:FOR a=0 TO c:INK a,0:NEXT
170 CLS #1:CLS #2:SQ(1) GOSUB 230
180 WHILE 1:FOR a=c TO 1 STEP -1
190 IF a=c THEN INK 1,0 ELSE INK a+1,0
200 CALL &BD19:IF a=c THEN INK 1,0
210 INK a+1,0:INK a,26
220 FOR b=1 TO 35:NEXT b,a:WEND
230 SOUND 1,500,4000,15,1,1
240 SQ(1) GOSUB 230:RETURN
250 INK 1,26:PEN 1:MODE 1