100 BATCH/E CBA:1
 110 ^^	ASSEMBLE DA
 120 LC:1
 130 PAL BD1 BD2 BD3 BD4<PDA,DA/Q/J
 140 GET BD1:1,BD2,BD3 BD4/H