Yes , more strange and weird effects, this time from David Eccleston of Birmingham. Enter a number from 1 to 100 for a curvaceous matrix to ripple into being 10 'Pink Shells
20 'David Eccleston
30 'Amstrad Action June 88
40 MODE 1
50 INPUT "Choose a number from 1-100";s
60 IF s<1 OR s>100 THEN 50
70 MODE 1:INK 0,0:INK 1,8:INK 2,16:INK 3,7:BORDER 0:c=1
80 x=320:y=200:ORIGIN x,y:MOVER 85,0
90 FOR a=0 TO 20 STEP PI/35
100 IF a>7.5 THEN c=2:IF a>12.5 THEN c=3
110 b=a*s:d=a/s
120 MOVE 200*SIN(a),100*COS(a)
130 DRAW 10*COS(b),200*SIN(d),c
140 NEXT
150 GOTO 50AA#33 | ★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser... |
|
|
