| 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 |