19 lines
314 B
Plaintext
19 lines
314 B
Plaintext
LOAD calc_credit_debt 150
|
|
RELOAD calc_credit_debt
|
|
CATCH api_failure flag_api_call_error 1
|
|
MAP calc_credit_debt
|
|
MOUT pay_debt 1
|
|
MOUT deposit 2
|
|
MOUT get_mpesa 3
|
|
MOUT send_mpesa 4
|
|
MOUT back 0
|
|
MOUT quit 9
|
|
HALT
|
|
INCMP ^ 0
|
|
INCMP pay_debt 1
|
|
INCMP pool_deposit 2
|
|
INCMP get_mpesa 3
|
|
INCMP send_mpesa 4
|
|
INCMP quit 9
|
|
INCMP . *
|