voici un petite programme qui nous fait des paysages aléatoires.
10 ’ Desert prive
20 DIM A(250),B(250),C(250)
30 MODE 0:NN=6:AM=30:INK 0,11
40 FOR I=0 TO 15:INK I,RND*26
50 NEXT:FOR N=1 TO NN
60 A(N)=RND*80/N:B(N)=RND*2*PI
70 C(N)=RND*15:NEXT
80 PRINT:PRINT » Desert prive »
90 FOR X=0 TO 639 STEP 4
100 PLOT X,0,0:Y=10
110 K=2*PI*X/640:FOR N=1 TO NN
120 Y=Y A(N)*(1 SIN(N*K B(N)))
130 DRAW X,Y,C(N):NEXT N,X
140 FOR I=1 TO 3000:Next:RUN