Open write

rem program open write
nmr=1

10 cls
20 dim nmp$(50),kd$(50),nmpswt$(50),jnpswt$(50),noreg$(50)
30 input "Berapa jumlah data (max 50):",N
40 for I=1 to N
50 cls
60 data ke";1
70 locate 08,10:?"Nama Penumpang:";:input,nmp$(I)
80 locate 09,10:?"Masukkan Kode:";:input,kd$(I)

if mid$(kd$(I),4,2)="GA" then
nmpswt$(I)="Garuda Indonesia"
elseif mid$(kd$(I),4,2)="MA" then
nmpswt$(I)="Merpati Airlines"
elseif mid$(kd$(I),4,2)="LA" then
nmpswt$(I)="Lion Air"
elseif mid$(kd$(I),4,2)="BA" then
nmpswt$(I)="Bouraq Airlines"
else
nmpswt$(I)="Tidak Terdaftar"
end if

if left$(kd$(A),3)=”300” then
jn$(A)=”A300 AIRBUS”
elseif left$(kd$(A),3)=”010” then
jn$(A)=”DC10 FOKKER”
elseif left$(kd$(A),3)=”747” then
jn$(A)=”BOEING 747”
elseif left$(kd$(A),3)=”380” then
jn$(A)=”A380 AIRBUS”
elseif left$(kd$(A),3)=”777” then
jn$(A)=”BOEING 777”
elseif left$(kd$(A),3)=”235” then
jn$(A)=”D1 CN-235”
else
jn$(A)=”Tidak Terdaftar"
end if

90 noreg$(I)=right$(kd$(I),3)
next
100 open "dimproject.dat" for output as #nmr
120 write #nmr,N
for I=1 to N
write #nmr,I,nmp$(I),nmpswt$(I),kd$(I),jnpswt$(I),noreg$(I)
next:close#nmr