*HEADING
 EARTHQUAKE ANALYSIS (B23) VIA MULTIPLE BASE MOTION  
 A TIME SHIFT IS APPLIED TO THE AMP RECORD FOR THE RIGHT END
*NODE
1 ,300.
21, 
*NSET,NSET=ENDS
1,21
*NSET,NSET=NOUT
1,11,21
*NGEN
 1,21
*ELSET,ELSET=PR
10, 
*ELEMENT,TYPE=B23
1,1,2
*ELGEN,ELSET=EALL
1,20
*MATERIAL,NAME=A1
*ELASTIC
30.E6, 
*DENSITY
 .000728, 
*BEAM SECTION,SECTION=RECT,MATERIAL=A1,ELSET=EALL
1. , 2.
** AMPLITUDE CURVE DATA FROM FIRST 2 SEC OF 3-1-2-I
*AMPLITUDE,VALUE=RELATIVE,NAME=EQ,INPUT=QUAKE01.AMP
** AMPLITUDE CURVE DATA FROM FIRST 2 SEC OF 3-1-2-I WITH TIME SHIFT = .25 SEC
*AMPLITUDE,VALUE=RELATIVE,NAME=EQ2,INPUT=QUAKE21.AMP
*RESTART,WRITE,FREQUENCY=25
*BOUNDARY
 1, 1,
 1, 6,
21, 1,
21, 6,
*STEP,INC=1000
 EARTHQUAKE INPUT WITH .24sec SHIFT FOR RIGHT END SUPPORT
*DYNAMIC,ALPHA=0.0,DIRECT
.01 , 2.0
**.01 , 5.05
*BOUNDARY,TYPE=ACCELERATION,AMPLITUDE=EQ
 1,  2,2,  386.09
*BOUNDARY,TYPE=ACCELERATION,AMPLITUDE=EQ2
21,  2,2,  386.09
*PRINT,RESIDUAL=NO,FREQUENCY=10
*EL PRINT,ELSET=PR,FREQUENCY=50
S,E
*NODE PRINT,FREQUENCY=10
U,
*NODE FILE,NSET=NOUT
U,V,A
*ENERGY FILE,FREQUENCY=1
*OUTPUT,HIST
*ENERGY OUTPUT,VAR=PRESELECT
*NODE OUTPUT,NSET=NOUT
U,V,A
*OUTPUT,FIELD
*NODE OUTPUT
U, 
*END STEP