Port Disbursement Calculation

<% dim portnm(55) Sub LoadPort() portnm(0)="Ambon" portnm(1)="Arun" portnm(2)="Balikpapan" portnm(3)="Banjarmasin" portnm(4)="Banten" portnm(5)="Batam" portnm(6)="Belawan" portnm(7)="Bengkulu" portnm(8)="Benoa" portnm(9)="Biak" portnm(10)="Bitung" portnm(11)="Bontang" portnm(12)="Cirebon" portnm(13)="Dumai" portnm(14)="Jambi" portnm(15)="Jayapura" portnm(16)="Kendari" portnm(17)="Kotabaru" portnm(18)="Kuala-Enok" portnm(19)="Kuala-Tanjung" portnm(20)="Lembar" portnm(21)="Lhokseumawe" portnm(22)="Makassar" portnm(23)="Malahayati/Lhoknga" portnm(24)="Manokwari" portnm(25)="Merauke" portnm(26)="Nunukan" portnm(27)="Palembang" portnm(28)="Pangkalan-Balam" portnm(29)="Pangkalan-Susu" portnm(30)="Panjang" portnm(31)="Pantoloan" portnm(32)="Pare-pare" portnm(33)="Pekan Baru" portnm(34)="Pontianak" portnm(35)="Pulau-Bunyu" portnm(36)="Pulau-Sambu" portnm(37)="Samarinda" portnm(38)="Sampit" portnm(39)="Sei-Pakning" portnm(40)="Sorong" portnm(41)="Tanjung-Balai-Karimun" portnm(42)="Tanjung-Emas" portnm(43)="Tanjung-Intan" portnm(44)="Tanjung-Pandan" portnm(45)="Tanjung-Perak" portnm(46)="Tanjung-Periok" portnm(47)="Tanjung-Pinang/Sei-Kijang" portnm(48)="Tanjung-Uban" portnm(49)="Tanjung-Wangi" portnm(50)="Tarakan" portnm(51)="Teluk-Bayur" portnm(52)="Tembilahan" portnm(53)="Tenau" portnm(54)="Ternate" End SUB %>

Vessel Name  *
Flag  *
DWT (mt) * GRT (mt)  *
LOA (m) * Draft (m)
Port to Visit  *
Stay (days)  *

 ( *  Required Entried)