bumpgen.bas
5 DEF SEG=&HB800 10 SCREEN 2:CLS 15 LINE (0,0)-(639,199),1,BF 20 DIM Y(639):FOR Z=0 TO 639:Y(Z)=999:NEXT Z 25 C=9.800000E-03:B=25:F=9.850000E-03 30 FOR Z=200 TO 0 STEP -3 40 FOR X=0 TO 639:A=A+C:J=Z+SIN(A)*B:IF J>Y(X) THEN 1000 50 Y(X)=J:PSET (X,J),0 1000 NEXT X:B=B*8.999999E-01:C=C+F:NEXT Z
