1000 REM LOGISTIC EQUATION (5th Previous Iterate)
1020 DIM XS(499)
1040 PREV% = 5                  'Plot versus fifth previous iterate

1580 P% = 0

2210 XS(P%) = X
2220 P% = (P% + 1) MOD 500
2230 I% = (P% + 500 - PREV%) MOD 500
2300 PSET (XS(I%), XNEW)                'Plot point on screen