Open input

rem program open-input

10 cls
20 dim nmp$(50),kd$(50),nmpswt$(50),jnspswt$(50),noreg$(50)
30 nmr=1
40 open "dimproject.dat" for input as #nmr
60 for I=1 to N
input #nmr,I,nmp$(I),kd$(I),nmpswt$(50),jnspswt$(I),noreg$(I)
next

70 locate 03,04:?" DIM TOUR N TRAVEL"
80 locate 04,04:?"-----------------------------"
90 locate 05,04:?"No"
100 locate 05,08:?"Kode"
111 locate 05,17:?"Nama Penumpang"
112 locate 05,36:?"Nama Pesawat"
113 locate 05,52:?"Jenis Pesawat"
114 locate 05,68:?"No. Registrasi"
115 locate 06,04:?"-----------------------------"
120 ? tab(3);I;tab(20);kd$(I);tab(30);nmp$(I);tab(40);nmpswt$(I);tab(50);noreg$(I)
end