FPC test

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp, crt
  { you can add units after this };

type

  { TMyApplication }

  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
  end;

{ TMyApplication }

var
    Total, Gaji, Tunjangan: real;
    Jumlahanak: integer;
    Keterangan : string[25];
    Y: char;

 //Label ulang;

{
 procedure ulang;
 begin
 Write('Masukkan Gaji: ');
    read(Gaji);
    Write('Masukkan jumlah anak: ');
    read(Jumlahanak);
    Tunjangan := 0.25 * Gaji + Jumlahanak * 30000;
    Total := Gaji + Tunjangan;
    Keterangan := 'Karyawan Teladan';
    Writeln('Gaji bulanan= Rp.', Gaji);
    Writeln('Tunjangan = Rp. ', Tunjangan);
    Writeln ('Total gaji = Rp. ', Total);
    Writeln('Keterangan = ', Keterangan );
    Write(' Mau menghitung lagi? [Y/T]', #10#13, '>>>');
    Y := readkey;
if upcase(y) = 'Y' then
    ulang;
    Readln;
 end;
}

procedure TMyApplication.DoRun;
var
  ErrorMsg: String;
Begin
    //Ulang:
    clrscr(); //clear screen
    textcolor($0a);
    Write('Masukkan Gaji: ');
    read(Gaji);
    Write('Masukkan jumlah anak: ');
    read(Jumlahanak);
    Tunjangan := 0.25 * Gaji + Jumlahanak * 30000;
    Total := Gaji + Tunjangan;
    Keterangan := 'Karyawan Teladan';
    Writeln('Gaji bulanan= Rp.', Gaji);
    Writeln('Tunjangan = Rp. ', Tunjangan);
    Writeln ('Total gaji = Rp. ', Total);
    Writeln('Keterangan = ', Keterangan );
    Write(' Mau menghitung lagi? [Y/T]', #10#13, '>>>');
    Y := readkey;
    //read(y);
if (UpCase(Y) = 'Y') or (LowerCase(Y) = 'y') then
    // goto Ulang; //ini error
    //gotoxy(1, 1); //ini error
    dorun(); //panggil main prosedur
    Readln;

  // ulang; //utk panggil prosedur ulang

  // stop program loop
  Terminate;
end;

var
  Application: TMyApplication;
begin
  Application:=TMyApplication.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  Application.Free;
end.