Operasi File - File Sequential Membaca & Menambahkan Isi File

B. Membaca Isi File
 1. > OPEN "I", #1, "ID.DAT" atau OPEN "ID.DAT" FOR INPUT AS #1
 2. > INPUT #1, nm$, tggl$, umur$
 3. > EOF(1)


 => Penjelasan
 >> Huruf "I" sebagai input, menunjukkan bahwa dile yang sudah ada/sedang dibuka dapat diproses. 
 >> INPUT #1  sebagai untuk membaca isi dari file yang berada di nomor 1
 >> EOF(1) sebagai memeriksa/mendeteksi isi file baru.

Contoh Program :
'10 format$ = "_|_##._|_#######_|_########_|_##_"
20 jdl$ = "| No. | Nama | Tanggal Lahir | Umur |"
30 I = 1: grs$ = STRING$(60, "~"): hal = 1
40 OPEN "I", #1, "ID.DAT"
50 CLS: no = 1
60 PRINT TAB(10); "Identitas Mahasiswa"
70 PRINT TAB(10); "___________________"; TAB(40); "Halaman : "; hal
71 PRINT grs$: PRINT jdl$: PRINT grs$
80 WHILE NOT EOF(1)
    85 INPUT #1, nm$(1), tggl$(1), umur$(1)
    90 PRINT "  "; no; "  "; nm$(1), "  "; tggl$(1); "        "; umur$(1): I = I + 1
    95 IF no = 5 THEN PRINT grs$: STOP: PRINT "Tekan Enter Untuk Melanjutkan": hal = hal + 1: GOTO 50
    100 no = no + 1
110 WEND
115 PRINT grs$: CLOSE #1: END




C.  Menambahkan Isi File
 1. > OPEN "A", #1, "ID.DAT" atau OPEN "ID.DAT" FOR APPEND AS #1

 => Penjelasan

 >> Huruf "A" adalah Append. Bila ingin menambahkan isi file, maka cara bukanya menggunakan huruf "A" (OPEN "A")