*H/REASON/2AI<cr>
!<tab>19-NOV-81<tab>ADD "BV" COMMAND (LINES 20520,20550,20552,20557,<lf>
<tab><tab><tab><tab>21020,21292); VARIABLES ADDED - S1$<lf>
<esc>*H/S$/AI<cr>
<tab>S1$<tab>AUTHOR VARIABLE FOR 'BV' COMMAND<lf>
<esc>*H/20520<tab>/G/20020/V<cr>
<tab><tab>GOSUB 20020<cr>
*I<cr>
 \<lf>
<tab><tab>S1$ = ""<esc>*V<cr>
<tab><tab>S1$ = ""<cr>
*H/20550<tab>/V<cr>
20550<tab><tab>GOTO 20557 IF (S2% <> 16% AND S2% <> 17%) OR N5% = W0% \<lf>
*KI<cr>
<tab>GOTO 20557 IF S2% < 17% \<lf>
<tab><tab>GOTO 20557 IF S2% = 18% OR N5% = W0% \<lf>
<tab><tab>IF S2% = 19% THEN<lf>
<tab><tab><tab>S1$ = LEFT(S$, W1%) \<lf>
<tab><tab><tab>S$ = RIGHT(S$, W2%)<cr>
20552<esc>*V<cr>
20552<tab><tab>FOR A1% = W1% TO S3% \<lf>
*2AV<cr>
<tab><tab>IF N5% = W1% THEN<lf>
*6KI<cr>
<tab><tab>IF A2% > N1% AND A2% <= N2% THEN<lf>
<tab><tab><tab>IF N5% = W1% THEN<lf>
<tab><tab><tab><tab>A2% = A2% + W1%<lf>
<tab><tab><tab>ELSE<tab>A2% = A2% - W1% \<lf>
<tab><tab><tab><tab>PRINT "Segment";Q1%;<lf>
<tab><tab><tab><tab>  "has a branch to the segment begin deleted"<lf>
<tab><tab><tab><tab>   IF A2% = N1%<lf>
<esc>*G/20557<tab>/V<cr>
20557<tab><tab>O$ = FNA4$(S2%,S3%)+S$ \<lf>
*G/)/I/+S1$/V<cr>
20557<tab><tab>O$ = FNA4$(S2%,S3%)+S1$+S$ \<lf>
*H/21020<tab>/G/21295/V<cr>
<tab><tab>21292, 21295<cr>
*I/,21292/V<cr>
<tab><tab>21292, 21295,21292<cr>
*H/21292<tab>/G/ELSE/I/<tab>IF S2% = 17% THEN/V<cr>
<tab><tab>ELSE<tab>IF S2% = 17% THEN<lf>
*AI/<tab>/V<cr>
<tab><tab><tab><tab>H$(H1%) = "BN"<lf>
*AI<cr>
<tab><tab><tab>ELSE<tab>H$(H1%) = 'BV,'+LEFT(S$,W1%) \<lf>
<tab><tab><tab><tab>S$ = RIGHT(S$, W2%)<lf>
<esc>*EX<cr>