Tugas Bu Abi Prog.. End..

Tugas dari bu Abi ini masih acak-acakan. silahkan dirapikan sendiri ya pren...

Program xxx; uses wincrt; var x:char;     a,b,c,d:string;     i,j,k:integer; Label awal,lanjut; {GNU licence, By d12x} procedure buatkotak; begin     gotoxy(1,1);writeln('*************************************************');     for i:= 2 to 15 do     begin     gotoxy(1,i);writeln('*                                               *');     end;     gotoxy(1,3);writeln('*************************************************');     gotoxy(1,16);writeln('*************************************************');     gotoxy(5,2);write  ('   NEW(N)     /     RUN(R)     = ');  end; procedure bersih; begin     for i:=4 to 7 do gotoxy(3,i);writeln('              '); end; begin awal: buatkotak; a:=''; b:=''; c:=''; d:=''; lanjut: gotoxy(40,2); writeln('  '); gotoXY(40,2); Readln(x); if (Upcase(x)='N') then goto awal; if (Upcase(x)='R') then gotoXY(3,4); readln(a); gotoxy(3,5); readln(b); gotoxy(3,6); readln(c); gotoxy(3,7); readln(d); if not (a='Prog..') then begin      gotoxy(2,9);      writeln('Error 1 : salah ketik'); end; if not (d='End..') then begin      gotoxy(2,12);      writeln('Error 2 : salah ketik'); end; if not (b='') then begin      gotoxy(2,10);      writeln(copy(b,pos('[',b)+1,length(b)-pos('[',b))); end; if not (c='') then begin      gotoxy(2,11);      writeln(copy(c,pos('[',c)+1,length(c)-pos('[',c))); end; goto lanjut; end.