PROGRAM FILE

Uses Crt; Var JenisFile    : Text; Nama         : String; ALamat       : String; Telp         : String; Tanya        : Char; Pilihan      : ShortInt; Begin Repeat ClrScr; Writeln; Writeln('          MENU UTAMA'); Writeln(' *****************************'); Writeln(' * 1. Membuat File Data      *'); Writeln(' * 2. Memasukan Data         *'); Writeln(' * 3. Menampilkan Data       *'); Writeln(' * 0. Keluar                 *'); Writeln(' *****************************'); Write('Menu pilihan : '); Readln(Pilihan); Case  Pilihan Of 1 : Begin Assign(JenisFile,'Alamat.dat'); ReWrite(JenisFile); Close(JenisFile); Writeln('File data berhasil dibuat !'); readln; End; 2 : Begin Assign(JenisFile,'Alamat.dat'); Append(JenisFile); Repeat ClrScr; Write(' Nama         : ');Readln(Nama); Write(' Alamat       : ');Readln(Alamat); Write(' Telepon      : ');Readln(Telp); Writeln(JenisFile,Nama); Writeln(JenisFile,Alamat); Writeln(JenisFile,Telp); Writeln; Write('Apakah mau memasukan data lain (Y/T): '); Tanya := Readkey; Until UpCase(Tanya) = 'T'; Close(JenisFile); Writeln('Data telah dimasukan !'); readln; End; 3 : Begin Assign(JenisFile,'Alamat.dat'); Reset(JenisFile); Repeat Readln(JenisFile,Nama); Readln(JenisFile,Alamat); Readln(JenisFile,Telp); ClrScr; Writeln(' Nama         : ',Nama); Writeln(' ALamat       : ',ALamat); Writeln(' Telepon      : ',Telp); Writeln; If Nama = '' Then Tanya := 'T' Else Begin Write('Apakah ingin melihat data berikut (Y/T) : '); Tanya := ReadKey; End;       Until UpCase(Tanya) = 'T'; Close(JenisFile); End; Else End; Until Pilihan=0; End.