10 CLS 3
   20 A=10:B=28:C=8/3:D=0.01
   30 X=1:Y=1:Z=1
   40 FOR K=0 TO 2999 STEP 0.3
   50     DX=A*(Y-X)
   60     DY=X*(B-Z)-Y
   70     DZ=X*Y-C*Z
   80     X=X+D*DX:Y=Y+D*DY:Z=Z+D*DZ
   90     IF K>100 THEN PSET(X*5+120,Z*5+10)
  100 NEXT K

新作
99BASICに突っ込んでみて