1 REM ----------- DELIRIUM ------------ 2 REM -- Disque d'Infinie Repetition -- 3 REM ------ R.LAPORTE - 28/9/85 ------ 10 MODE 1 20 ORIGIN 320,180:DEG:FOR b=0 TO 15 30 FOR a=1 TO 1500 40 x=81 50 y=250 60 INK 2,0,26:PEN 2:LOCATE 17,2:PRINT"DELIRIUM" 70 ENV 1,17*RND(a),1,29*RND(a):ENT 1,19*RND(a),-2,27*RND(a):SOUND 1,0,5,15,0,0,15*RND(a) 80 INK 0,26,0:BORDER 26,0:INK 1,30*RND(a),26:PEN 1:SPEED INK 0.5,0.5 90 DRAW y*COS(500*RND(b)),x*SIN(500*RND(b)):z=z+5 100 IF z>5000 THEN GOTO 130 110 NEXT a 120 NEXT b 130 SOUND 129,1600,-32000,14,0,0,0:SOUND 130,1620,-32000,14,0,0,0:FOR a=1 TO 360:ORIGIN 320,180:INK 1,0,26:PEN 3:DRAW 250*COS(a),80*SIN(a):NEXT a 140 RUN 150 REM --- Cest FINI: 708 octets ! ---