2 ! DELETES VENDORS FROM VENDOR BOOK!
5 ! PROGRAM NAME:"DLTVBK" - BY JAC
10 DIM T(100%)
15 OPEN "DK1:ACCPAY.VBK" AS FILE 1%:DIM #1%,V$(3500%)=128%,V%(0%)
20 PRINT "ENTER THE VENDOR NUMBERS OF THE VENDORS TO BE DELETED."
25 PRINT "INPUT A -1 TO HALT INPUT.":PRINT:PRINT:I%=0%
30 INPUT "VENDOR NUMBER";V:IF V<>-1% THEN I%=I%+1%:T(I%)=V:GOTO 30
32 INPUT "ARE DELETIONS CORRECT? - Y OR N";A$:IF A$<>"Y" THEN 20
35 FOR K%=1% TO I%-1%:IF T(K%)<=T(K%+1%) THEN 55
40 T=T(K%+1%):T(K%+1%)=T(K%)
45 FOR J%=K% TO 2% STEP -1%:IF T(J%-1%)<=T THEN T(J%)=T:GOTO 55
50 T(J%)=T(J%-1%):NEXT J%:T(1%)=T
55 NEXT K%:N%,L%=1%:M%=V%(0%)
60 FOR K%=1% UNTIL N%>M%
65 GOTO 70 IF L%>I%:IF T(L%)<VAL(LEFT(V$(N%),6%)) THEN L%=L%+1%:GOTO 65
67 IF T(L%)=VAL(LEFT(V$(N%),6%)) THEN L%=L%+1%:N%=N%+1%:IF N%>M% THEN 75 ELSE 65
70 V$(K%)=V$(N%):N%=N%+1%:NEXT K%
75 V%(0%)=K%-1%:CLOSE 1%:PRINT "UPDATING OF VENDOR BOOK COMPLETE":PRINT:PRINT
80 END