TubesDasPro/EngisKitchen.pas at master · hansjeremia/TubesDasPro · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Program EngisKitchen;

uses uDef, sysutils, F1;
//uses F3_startSimulasi;
//uses F4_stopSimulasi;
//uses F5_beliBahan;
//uses F6_olahBahan;
//uses F7_jualOlahan;
//uses F8_jualResep;
//uses F9_makan;
//uses F10_istirahat;
//uses F11_tidur;
//uses F12_lihatStatistik;
//uses F13_lihatInventori;
//uses F14_lihatResep;
//uses F15_cariResep;
//uses F16_tambahResep;
//uses F17_upgradeInventori;
//uses B1_cekKesalahanLoading;
//uses B3_validasi;
//uses B4_restock;


var
	input: AnsiString;
	countis, energiawal, countm, NomorSim : Integer;

begin
write('> ');
readln(input);
while input <> 'exit' do
begin
	if input = 'load' then
	begin
		load(FEBahanMentah, FEBahanOlahan, FEInventoriBahanMentah, FEInventoriBahanOlahan, FEResep, FESimulasi, NBahanM, NBahanO, NInvBM, NInvBO, NResep, NSim);
		write('> ');
		readln(input);
		readln(NomorSim);
	end;

	readln(input)
end;
{exit(FEBahanMentah, FEBahanOlahan, FEInventoriBahanMentah, FEInventoriBahanOlahan, FEResep, FESimulasi, NBahanM, NBahanO, NInvBM, NInvBO, NResep, NSim);}
end.