10 REM THIS PROGRAM CALCULATES THE ENERGIES AND WIRE LENGTH FACTORS FOR
   20 REM A TUNED LINEAR ACCELERATOR. WRITTEN BY MIKE FINERTY 4-10-84
   30 REM                     IN NEVADA BASIC 12 DIGIT PRECISSION
   40 INPUT "STARTING ENERGY",S1
   50 INPUT "ENDING ENERGY",S2
   60 INPUT "NUMBER OF ACCELERATING STEPS",N
   70 PRINT "AVERAGE ACCELERATING ENERGY ";(S2-S1)/N;" ELECTRON VOLTS"
   80 FOR E=S1 TO S2 STEP (S2-S1)/N
   90 LET C=2.99792458E8
  100 LET E0=5.110041E5
  110 LET B=4*(E/E0)^2*C^2
  120 LET D=4*(E/E0)^2*C^4
  130 LET A=1
  140 LET V2=-B/2+(B^2+4*D)^.5/2
  150 LET V=V2^.5
  160 LPRINT "ENERGY","ELECTRON VELOCITY","V/C%"
  170 LPRINT E,V,TAB(42);V/C*100
  180 IF V=0 THEN 210
  190 LPRINT "DELTA = ";C/V-INT(C/V)
  200 LPRINT 
  210 NEXT