Program Gotoxy Final

Uses crt;

Var

Nama, NIM, Alamat, Jurusan, Jenjang, SPP; String;

Begin

Clrscr;

Gotoxy (10, 2); write ( 'Masukkan Nama/NIM:'); Readln (nama);

Gotoxy (50, 2); write ( '/'); readln (nim);

Gotoxy (10, 4); write ( 'Alamat:'); readln (alamat);

Gotoxy (10, 6); write ( 'Jenjang/Jurusan:'); readln (jurusan);

Gotoxy (30, 6); write ( '/'); readln (jenjang);

Gotoxy (10, 8); write ( 'spp:Rp.'); readln (spp);

Gotoxy (10, 8); writeln ( '--------------------------------------');

Gotoxy) (10,9); writeln ( 'Nama Mahasiswa:', nama);

Gotoxy (10,11); writeln ( 'NIM:', nim);

Gotoxy (10,13); writeln ( 'Alamat;', alamat);

Gotoxy (10,15); writeln ( 'Jenjang:', jenjang);

Gotoxy (10, 17); writeln ( 'Jurusan:', jurusan);

Gotoxy (10, 19); writeln ( 'SPP:', spp);

Gotoxy (10, 21); writeln ( '-------------------------------------');

End.