Bootsrap without Package or Boot function in R

Question

i want to apply the bootstrap idea to create and plot nonparametric pointwise 95% confidence intervals of the prediction for a logistic regression model by using 100 bootstrap r