Sabtu, 17 Maret 2012

Liburan Dengan Hal Yang Bermanfaat


Liburan semester 3 akhirnya tiba, setelah beberapa minggu menghadapi UAS dan Ujian Utama saatnya lah untuk menyegarkan otak sejenak. Jujur saja liburan semester kali ini tidak sesibuk liburan semester kemarin yang sedikit-sedikit pergi hang-out sama teman-teman. Liburan kali ini saya lebih focus membantu bunda saya karena  beliau buka usaha kecil-kecilan yang hasilnya ya lumayan lah untuk memberi saya uang jajan. Saya membantu membeli barang belanjaan bersama bunda dan terkadang bersama kakak (pas libur kerja).
 Suatu hari ada teman yang memberi kabar bahwa ada workshop tentang overclocking, saya langsung buka studentsite yang memang pada saat itu nilai ip sudah keluar, saya langsung daftar namun kuota sudah penuh, alhasil saya gagal ikut workshop. Sore harinya saya cek studentsite lagi, ternyata ada Talkshow tentang “IT Competency For Industries” saya langsung daftar secara online, kemudian tidak lama kemudian ada pengumuman peserta yang ikut Talkshow, namun nama saya tidak ada di daftar peserta. Saya segera lapor ke panitia, dan dianjurkan untuk daftar secara on the spot. Tepat tanggal 18 februari 2012, saya sudah bersiap-siap pergi ke kampus D, dari rumah naik anguktan umum seperti biasa angkot 97 dan 112. Sesampai di kampus D saya langsung menuju gedung 4 lantai 6, disitu saya langsung daftar dan masuk ruangan. Tidak lama menunggu acara pun mulai. Dan pembicara mulai  memberikan banyak informasi mengenai teknologi computer. Selain mendatangkan pembicara yang luar biasa diadakan juga lomba rakit computer yang pesertanya berasal dari SMK, lomba overclocking yang diikuti oleh beberapa universitas, dan demo tentang peralatan computer. Yang paling seru ada sesi tanya jawab, dimana setiap penanyanya atau penjawab bisa mendapatkan hadiah berupa perangkat computer ataupun voucher dari avira. Wahhh pokoknya acaranya seru, selain bisa nambah ilmu disini kita bisa memborong banyak peralatan computer jika kita aktif bertanya ataupun menjawab pertanyaan.
Begitulah hari libur saya di semester 3, menghabiskan waktu dengan membantu bunda saya dan mengikuti Talkshow. Tidak ada ruginya kok kalo liburan kita habiskan dengan bantu orang tua, malahan disini kita bisa merasakan  bagaimana susahnya mencari uang. Dan tidak ada ruginya juga kalau liburan kita diselingi dengan mengikuti workhop atupun talkshow karena itu akan menambah informasi/ ilmu untuk kita. Jadi isi lah hari liburan kalian dengan hal yang bermanfaat.

KRESNA

Kresna adalah salah satu dewa yang dipuja oleh umat hindu, berwujud pria berkulit gelap atau biru tua, memakai dhoti kuning dan mahkota yang dihiasi bulu merak. Dalam seni lukis dan arca, umumnya ia digambarkan sedang bermain seruling sambil berdiri dengan kaki yang ditekuk ke samping. Legenda hindu dalam kitab purana dan mahabharata menyatakan bahwa ia adalah putra kedelapan Basudewa dan Dewaki, bangsawan dari kerajaan Surasena, kerajaan mitologis di india utara. Secara umum, ia dipuja sebagai inkarnasi dewa wisnu kedelapan di antara sepuluh awatara wisnu. Ia dimuliakan sebagai kepribadian Tuhan, dalam bhagawatapurana ia digambarkan sebagai pengembala yang mahir bermain seruling, dalam wiracarita mahabrata ia dikenal sebagai sosok pemimpin yang bijaksana, sakti, dan berwibawa. Selain itu ia dikenal pula sebagai tokoh yang memberikan ajaran filosofis.

Ketika muda, Kresna bernama Narayana. Ia kemudian menjadi raja di Dwarawati. Kresna adalah lambang pria yang ramah, mudah bergaul, banyak kawan, dan suka bercanda (humor). Ketika memberi fatwa, ia menggunakan berbagai sindiran yang begitu lembut, sehingga yang dinasihati tidak merasa sakit hati. Kresna banyak didatangi sahabat tua-muda dan pria-wanita, untuk sharing atau konsultasi. Kresna memiliki karier yang sulit ditandingi, terlebih di bidang politik. Di mata sesamanya, Kresna memiliki wibawa yang sangat tinggi dan pengaruh yang luar biasa. Dedikasi dan loyalitasnya sangat baik, karena itulah semua anak buah Kresna patuh kepadanya. Dalam rumah tangga, Kresna tidak mengecewakan. Walaupun beristeri banyak, Kresna sangat adil. Nasihat yang terkenal dari Kresna kepada  para istrinya adalah agar mereka mengedepankan rasa kemanusiaan dan mengesampingkan busana glamour.

Selasa, 06 Maret 2012

Kewajiban Warga Negara Indonesia

Sebagai warga negara indonesia yang baik kita harus melaksanakan kewajiban kita sebagai seorang warga negara. Sebelum membahas tentang kewajiban warga indonesia, kita akan membahas mengenai pengertian dari kewajiban itu sendiri. Kewajiban adalah pembatasan atau beban yang timbul karena hubungan dengan sesama atau dengan negara, dalam hal ini kita dituntut untuk melakukan sesuatu yang memang harus kita lakukan untuk negara. Berikut adalah kewajiban warga negara Indonesia.

·      Setiap warga negara memiliki kewajiban untuk berperan serta dalam membela, mempertahankan kedaulatan negara indonesia dari serangan musuh.

·      Setiap warga negara wajib membayar pajak dan retribusi yang telah ditetapkan oleh pemerintah pusat dan pemerintah daerah (pemda). Sebagai contoh: seorang warga negara yang memiliki rumah harus membayarkan PBB, atau seorang warga negara yang memiliki harta seperti kendaraan motor juga wajib membayar pajak.

·   Setiap warga negara wajib mentaati serta menjunjung tinggi dasar negara, hukum dan pemerintahan tanpa terkecuali, serta dijalankan dengan sebaik-baiknya. 

·   Setiap warga negara berkewajiban taat, tunduk dan patuh terhadap segala hukum yang berlaku di wilayah negara indonesia. Sebagai contoh: tidak merokok di sembarang tempat karena dalam hal ini pemerintah telah mengeluarkan UU tentang larangan merokok, dan jika kita melanggarnya maka wajib kena hukuman.

·  Setiap warga negara berhak dan wajib ikut serta dalam upaya pembelaan Negara

·   Setiap orang wajib menghormati hak asasi manusia orang lain. Contohnya adalah seorang majikan yang memperlakukan pembantunya dengan baik.

            Itulah contoh kewajiban warga Negara Indonesia yang harus kita laksanakan dengan sebaik-baiknya agar tujuan Negara kita bisa berjalan dengan baik pula sesuai perkembangan jaman.


Hak Warga Negara Indonesia

Sebagai warga negara indonesia yang baik kita harus melaksanakan kewajiban kita sebagai seorang warga negara. Sebelum membahas tentang kewajiban warga indonesia, kita akan membahas mengenai pengertian dari kewajiban itu sendiri. HAK adalah kepentingan yang dilindungi oleh hukum yang memberikan keleluasaan kepada seseorang untuk melaksanakannya atau sesuatu yang kita peroleh secara bebas. Berikut adalah contoh hak warga Negara Indonesia :

Hak Warga Negara Indonesia
·        Setiap warga negara berhak mendapatkan perlindungan hukum
·        Setiap warga negara berhak atas pekerjaan dan penghidupan yang layak
·        Setiap warga negara bebas untuk memilih, memeluk dan menjalankan agama dan kepercayaan masing-masing yang dipercayai. Dalam hal ini setiap orang bebas memilih agama yang diyakininya, tidak ada paksaan kalu kita harus memilih agama hanya sbg contoh “islam saja”.
·        Setiap warga negara berhak memperoleh pendidikan dan pengajaran. Contohnya: seseorang wajib bersekolah, setidaknya minimal 9 tahun.
·        Setiap warga negara memiliki hak sama dalam kemerdekaan berserikat, berkumpul mengeluarkan pendapat secara lisan dan tulisan sesuai undang-undang yang berlaku. Contohnya: seseorang di usia 17 tahun punya hak melaksanakan pemilihan umum.
·        Hak untuk membentuk keluarga dan melanjutkan keturunan melalui perkawinan yang sah (pasal 28B ayat 1).
·        Hak untuk mempunyai hak milik pribadi Hak untuk hidup, hak untuk tidak disiksa, hak kemerdekaan pikiran dan hati nurani,hak beragama, hak untuk tidak diperbudak, hak untuk diakui sebagai pribadi di hadapan hukum, dan hak untuk tidak dituntut atas dasar hukum yang berlaku surut adalah hak asasi manusia yang tidak dapat dikurangi dalam keadaan apapun  (pasal 28I ayat 1).

Itulah contoh hak warga Negara Indonesia yang memang harus diperoleh oleh masing-masing warga Negara Indonesia, namun nyatanya hak tersebut tidak sepenuhnya diterima oleh mereka contohnya, seorang anak yang hanya mencuri sepasang sandal jepit sampai dibawa ke meja hijau bahkan sampai dijatuhi hukuman yang lumayan berat, tetapi para koruptor yang mencuri begitu banyak kekayaan Negara sampai saat ini belum bisa diatasi bahkan mereka bebas melakukan hal tersebut padahal telah dibentuk KPK, dan entah akan diberi hukuman berat atau ringan.

Jumat, 06 Januari 2012

PROGRAM MULTI LIST


uses crt;
type
filebio = record
     npm:string[8];
     nirm:string[3];
     nama:string[15];
     alamat:string[10];
     end;
filenirm = record
     nirm2:string[3];
     masuk:string[10];
     akhir:string[10];
     end;
var
biodata :array[1..10] of filebio;
tglnirm :array[1..10] of filenirm;
isi:text;
a,x,y:integer;


Procedure tbio;
begin
a:=5;
assign(isi,'biodata2.dat');
reset(isi);
writeln('Biodata Mahasiswa');
writeln('############################################################');
writeln('*    NPM     * Nirm  *         NAMA        *      ALAMAT   *');
writeln('############################################################');
for x:=1 to 10 do
begin
readln(isi,biodata[x].npm);
readln(isi,biodata[x].nirm);
readln(isi,biodata[x].nama);
readln(isi,biodata[x].alamat);
write('*  ',biodata[x].npm,'  *  ',biodata[x].nirm,'  *   ',biodata[x].nama,'   *    ',biodata[x].alamat:5);
gotoxy(60,a);
writeln('*');
a:=a+1;
end;
close(isi);
writeln('############################################################');
readln;
end;

procedure tnirm;
begin
assign(isi,'filenirm.dat');
reset(isi);
writeln('File NIRM');
writeln('#####################################################');
writeln('* Nirm   *    Tanggal Masuk    *    Tanggal Akhir   *');
writeln('#####################################################');
for x := 1 to 10 do
begin
readln(isi,tglnirm[x].nirm2);
readln(isi,tglnirm[x].masuk);
readln(isi,tglnirm[x].akhir);
writeln('*  ',tglnirm[x].nirm2,'   *     ',tglnirm[x].masuk,'      *     ',tglnirm[x].akhir,'     *');
end;
writeln('#####################################################');
close(isi);
readln;
end;


procedure daftarmahasiswa;
begin
a:=5;
gotoxy(1,30);writeln('Daftar Mahasiswa');
writeln('#######################################################################');
writeln('* No *    NPM   * Nirm *       NAMA       *  Tgl masuk  *  Tgl Akhir  *');
writeln('#######################################################################');
for x := 1 to 10 do
begin
write('* ',x,'  * ',biodata[x].npm,' * ',biodata[x].nirm,'  * ',biodata[x].nama,'  *','             *','             *');
for y := 1 to 10 do
if biodata[x].nirm = tglnirm[y].nirm2 then
begin
gotoxy(46,a);
writeln(tglnirm[y].masuk);
gotoxy(60,a);
writeln(tglnirm[y].akhir);
a:=a+1;
end;
end;
writeln('######################################################################');
readln;
end;

begin
clrscr;tbio;
clrscr;tnirm;
clrscr;daftarmahasiswa;
end.


                               









































Senin, 05 Desember 2011

M-COMMERCE


PENDAHULUAN

M-Commerce (Mobile-Commerce) adalah sistem perdagangan elektronik (e-Commerce) dengan menggunakan peralatan portabel/mobile. Pada saat pengguna komputer berpindah dari satu tempat ke tempat lain (sewaktu berada dalam mobil, misalnya), pengguna komputer tersebut dapat melakukan transaksi jual beli produk di internet dengan menggunakan sistem m-commerce ini.  

PEMBAHASAN

M-Commerce lahir setelah e-commerce yang pada umumnya dilakukan melalui media internet. Kelahiran m-Commerce tersebut terutama dipicu oleh tingginya tingkat penetrasi handphone di seluruh dunia. Dibandingkan sistem e-commerce lainnya, kelebihan m-Commerce adalah sebagai berikut:
  • Ubiquity   : pengguna dapat mengakses dari mana saja dan kapan saja.
  • Security    : pada umumnya handset dilengkapi dengan smart card reader dansmart caranya itu sendiri.  Sehingga dapat digunakan sebagai secret authentication key.
  • Localization  : memungkinkan diterapkannya location based services.
  • Convenience : ukuran dan berat dari handset membuat pengguna nyaman dalam bertransaksi.
  • Personalization: handphone merupakan perangkat yang bersifat personal, sehingga memungkinkan untuk menawarkan layanan / produk yang bersifat personal.
Namun demikian, diantara beberapa kelebihan seperti yang telah disebutkan di atas, m-Commerce juga memiliki beberapa kekurangan:
  • Keterbatasan perangkat.
  • Tingkat keberagaman perangkat, jaringan dan operating sistem yang sangat tinggi, membutuhkan standardisasi platform antar vendor. Antara lain telah diatasi oleh J2ME(Java 2 Micro Editian)
  • Tingginya tingkat kehilangan / pencurian handphone.
  • Bertambahnya tingkat kerawanan terhadap security ketika data ditransfer melalui air interface

Sistem m-Commerce
Terdapat sejumlah besar payment sistem untuk e-commerce dan m-commerce. Beragamnya sistem tersebut disebabkan oleh faktor-faktor sebagai berikut:

1.Waktu Pembayaran
Perbedaan yang terletak pada waktu pembayaran yang dilakukan oleh pengguna relatif terhadap waktur transaksi, yaitu apakah dilakukan pada saat transaksi, sebelum transaksi dilakukan atau setelah transaksi dilakukan.

2.Jumlah Pembayaran
Pada dasarnya dapat dibagi menjadi dua, yaitu transaksi dengan jumlah pembayaran besar, dan kecil. Terdapat perbedaan yang signifikan antara transaksi besar dan kecil. Pada transaksi dengan nilai yang besar, perlu dilakukan authentikasi melalui institusi finansial yang terpercaya. Sedangkan untuk transaksi kecil, authentikasi cukup hanya dilakukan pada level jaringan operator, antara lain melalui SIM Card.

3.Isu Anonim
Anonim berarti indentitas pengguna / pelanggan tidak dapat diketahui oleh merchant. Terdapat sistem yang sepenuhnya anonym, anonym parsial atau bahkan tidak anonym. Masing-masing sifat tersebut dibutuhkan untuk transaksi yang berbeda-beda.

4.Validasi yang dilakukan secara online atau offline
Selain keempat isu utama tersebut, beragamnya sistem e-commerce dan m-commerce juga dipengaruhi oleh isu lainnya:
  • Biaya instalasi yang timbul di sisi customer dan merchant.
  • Performansi (respon time).
  • Biaya per transaksi.
  • Terjaminnya ACID (Atomicity, Consistency, Isolation, Durability).
  • Sistem yang berjalan di tingkat nasional atau internasional.

Pada transaksi m-Commerce, tahap-tahap transaksi pada dasarnya adalah mirip dengan yang terjadi pada transaksi konvensional. Hanya saja pada kasus remote payment, pengiriman detail informasi transaksi dilakukan melalui jaringan seluler. Sehingga keamanan jaringan seluler juga menjadi perhatian khusus. Selain itu, proses pengiriman informasi transaksi juga melibatkan protocol browser, yang berupa WAP (Wireless Application Protocol), atau protocol sistem messaging seperti SMS (Short Message  Service) dan USSD (Unstructured Supplementary Service Data). Keamanan dari setiap service tersebut juga harus diperhatikan untuk dapat mendukung sistem m-commerce yang aman. Selain transaksi yang bersifat remote, m-Commerce juga dapat dilakukan untuk transaksi lokal, yang pada umumnya menggunakan koneksi Bluetooth, infrared atau RFID. ecara umum, tahapan proses pada m-commerce dapat dibedakan menjadi 4 tahap sebagai berikut:

1.Set-up dan Konfigurasi
Proses ini termasuk instalasi aplikasi khusus pada handset yang akan digunakan pada m-commerce. Selain itu, untuk beberapa sistem m-commerce proses ini juga melibatkan proses pembelian atau penambahan nilai uang pada aplikasi tersebut.

2.Inisiasi Pembayaran
Pada tahap ini informasi pembayaran dikirimkan melalui jaringan seluler atau protokol wireless lainya kepada merchant.

3.Authentikasi
Tahap ini merupakan tahap yang paling penting pada transaksi. Pada tahap ini diperiksa apakah pengguna memang berhak melakukan transaksi, serta memenuhi persyaratan finansial tertentu. Pada sebagian sistem pembayaran, proses ini melibatkan authentikasi berdasarkan SIM Card.

4.Penyelesaian Pembayaran
Proses ini dilakukan ketika pengguna telah berhasil di-authentikasi, demikian juga transaksi itu sendiri telah berhasil di-authentikasi. Analoginya pada proses transaksi konvensional adalah dengan dicetaknya bukti pembayaran.

Security
Pihak-pihak yang terkait dalam transaksi mobile payment adalah pengguna (pembeli), operator jaringan, institusi financial dan merchant (penyedia produk / jasa yang akan dibeli pengguna). Seluruh pihak tersebut memiliki kebutuhan akan jaminan security sebagai berikut:
  • Pengguna, menuntut dijaminnya security pada account-nya, dan juga privacy, sehingga pihak lainnya sedapat mungkin tidak mengetahui identitas pribadi pengguna.
  • Operator jaringan seluler, merupakan fasilitator dari m-commerce, memiliki perhatian khusus dalam menyampaikan informasi transaksi secara aman melalui jaringannya.
  • Institusi financial, memiliki perhatian khusus pada integritas dari system pembayaran, sehingga dapat mengurangi resiko terjadinya fraud atau bad-debt.
  • Merchant, menuntut agar proses pembayaran menjadi mudah disisi pengguna, sehingga akan membangkitkan transaksi. Selain itu merchant juga menuntut agar pembayaran dari institusi financial dapat berlangsung dengan sempurna.

Security memegang peranan penting dalam m-commerce. Karena hanya dengan jaminan security m-commerce dapat dijamin cost effective sehingga layak untuk diselenggarakan. Elemen-elemen security yang perlu diperhatikan dalam m-commerce adalah sebagai berikut:
  • Authentikasi, yang memungkinkan pihak fasilitator pembayaran (antara lain institusi keuangan) untuk memastikan bahwa pihak yang menggunakan sitem pembayaran adalah pihak yang berhak.
  • Confidentiality, yang memastikan bahwa pihak lain yang tidak berhak tidak dapat mengakses data pembayaran.
  • Data Integrity, yang memastikan bahwa data pembayaran tidak berubah setelah pengguna menyetujui seluruh detail transaksi.
  • Non-repudiation, yang mengikat seluruh pihak yang terlibat sehingga tidak dapat menyangkal seluruh proses yang telah dilakukannya.

Transaksi m-commerce pada umumnya berlangsung melalui media transport yang disediakan oleh jaringan seluler. Namun demikian, terdapat beberapa keterbatasan yang diakibatkan oleh:
  • Koneksi yang bersifat dinamik, melalui beberapa jaringan akses yang terkadang tidak aman atau tidak dapat dipercaya.
  • Keterbatasan yang ditimbulkan oleh protokol komunikasi, antara lain bandwidth dan latency.
  • Keterbatasan perangkat, antara lain daya dan kinerjanya.
  • Belum matangnya teknologi client.

Model bisnis E-Commers
  1. Layanan Keuangan
·         Perbankan
·         Wireless Payment
·         Micropayment
·          Wireless Wallet
·          Bill Payment Service
·         Money Transfer

  1. Belanja
·      Anywhere wireless

  1. Iklan

  1. Mobile Portal
·                        Berita
·                        Olahraga
·                        E-mail
·                        Informasi Perjalanan

  1. Mobile B2B
·      Pemesanan jasa secara mobile
·      Mengecek ketersediaan barang
·       Melakukan pemesanan produk tertentu
·      Melayani keamanan akses
·      Mengurangi kesalahan petugas

  1. Mobile B2C
·      Transaksi antara organisasi bisnis dengan pelanggan
·      Personalisasi notifikasi barang dagangan
·       Mobile games
·       Pelayanan hotel

Aplikasi dalam Layanan Finansial


Mobile banking
Di banyak negara, bank sudah memberikan layanan akses mobile. Berbagai aplikasi seperti transfer uang, mengecek saldo dapat dilakukan

Sistem Pembayaran Elektronik Nirkabel
Dengan sistem ini, ponsel bisa menjadi alat pembayaran yang aman, dan menjadi alat pembayaran yang sah di jaringan sellular. Misalnya, di italy ada sistem pembayaran parkir dengan menggunakan ponsel. Di Jepang dan di indonesia juga sudah ada pembelian tiket bioskop melalui ponsel

Micropayment
Hampir sama dengan sistem pembayaran elektronik nirkabel di atas, Micropayment juga memfungsikan ponsel menjadi alat pembayaran. Namun aplikasinya dilakukan hanya pembayaran yang sifatnya kecil (biasanya kurang dari 10 dolar)

Dompet Nirkabel (m-wallets)
Adalah teknologi yang memungkinkan pemegang kartu untuk melakukan pembelian dengan hanya memencet satu tombol di perangkat nirkabel mereka. Salah satu contohnya adalah Nokia wallet. Aplikasi ini menyimpan data seperti kode kartu kredit, dan bisa mengesahkan pembelian secara digital. Microsoft juga memiliki m-wallet yang dikenal dengan “Microsoft Password” untuk digunakan di lingkungan nirkabel.

Wireless Bill Payments
Beberapa perusahaan kini menyediakan layanan pembayaran tagihan via ponsel. Ada sistem yang disebut dengan smartpay system. Sistem ini membantu pembayaran hanya dengan memasukan kode rahasia untuk mengesahkan pembayaran dari bank.
KESIMPULAN

M-Commerce (Mobile-Commerce) adalah sistem perdagangan elektronik (e-Commerce) dengan menggunakan peralatan portabel/mobile. M-commerce memiliki kelebihan namun disamping itu juga memiliki kekurangan, salah satunya layanan dasar dari jaringan GSM / GPRS yang saat ini dioperasikan di Indonesia tidak cukup aman untuk digunakan sebagai media transaksi. Sehingga untuk memberikan layanan m-Commerce yang aman perlu melibatkan layanan tambahan yang dapat didukung oleh GSM / GPRS, seperti aplikasi SIM Tool Kit atau aplikasi J2ME.

DAFTAR PUSTAKA



Senin, 28 November 2011

FLOWCHART & PROGRAM FILE DATA SEKUENSIAL





















PROGRAM FILE DATA SEKUENSIAL


10    CLS
20    A$ = "Y": B$ = "T": I = O
30    OPEN "O", #1, "C:SISWA.DAT", 28
40    DO WHILE A$ = "y" OR A$ = "Y"
50    I = I + 1: B$ = "T": CLS
60    LOCATE 3, 10: PRINT "MASUKAN DATA"
70    LOCATE 4, 10: PRINT "----------------"
80    LOCATE 6, 5: PRINT "DATA KE:", I
90    WHILE B$ = "T" OR B$ = "t"
100  LOCATE 7, 5: INPUT "NPM:", NPMI$
110  LOCATE 8, 5: INPUT "NAMA:", NMI$
120  LOCATE 9, 5: INPUT "KELAS:", KLS$
125  LOCATE 10, 5: INPUT "ALAMT:", ALM$
130  LOCATE 11, 5: INPUT "DATA SUDAH BENAR[Y/T]?:"; B$
140  WEND
150  WRITE #1, NPM$(I), NM$(I), KLS$(I)
160  LOCATE 13, 5: INPUT "MASIH ADA DATA LAGI[Y/T]:", A$
170  LOOP
180  CLOSE #1
190  FORMAT$ = "|##|########|#########################|#####|"
200  JDL$ = "|NO|   NPM  |          NAMA           |KELAS|        |ALAMAT|"
210  I = 1: GRS$ = STRING$(45, "~"): HAL = 1
220  OPEN "I", #1, "C:SISWA.DAT"
230  CLS : NO = 1
240  PRINT TAB(10); "DAFTAR MAHASISWA"
250  PRINT TAB(10); "******************"; TAB(10); "HALAMAN:"; HAL
260  PRINT GRS$: PRINT JDL$: PRINT GRS$
270  WHILE NOT EOF(1)
280  INPUT #1, NPM$(I), NM$(I), KLS$(I), ALAMAT$(I)
290  PRINT USING FORMAT$; NO(I); NPM$(I); NM$(I); KLS$(I); I = I + 1; ALAMAT(I)
300  IF NO = 5 THEN PRINT GRS$: STOP: PRINT "TEKAN ENTER UNTUK LANJUT"
310  HAL = HAL + 1: GOTO 230
320  NO = NO + 1
330  WEND
340  PRINT GRS$: CLOSE #1: END
350  END