Dart To RPG Converter

import ‘dart:io’;

void main() {
print(‘Enter numbers separated by spaces:’);
String? input = stdin.readLineSync();

if (input != null && input.isNotEmpty) {
List numberStrings = input.split(‘ ‘);
List numbers = numberStrings.map((numStr) => double.tryParse(numStr) ?? 0).toList();

double sum = numbers.reduce((a, b) => a + b);
double average = numbers.isNotEmpty ? sum / numbers.length : 0;

print(‘The average is: $average’);
} else {
print(‘No numbers entered.’);
}
}

dcl-s input varchar(255);
dcl-s numberStrings char(100) dim(100);
dcl-s numbers packed(15:5) dim(100);
dcl-s sum packed(15:5);
dcl-s average packed(15:5);
dcl-s count int(10);
dcl-s i int(10);

input = %trim(‘Enter numbers separated by spaces:’);
dsply input;

input = %trim(%scan(‘ ‘, ‘ ‘));

if %len(input) > 0;
numberStrings = %scan(‘ ‘, input);
count = %elem(numberStrings);

for i = 1 to count;
numbers(i) = %dec(numberStrings(i), 15:5);
endfor;

sum = %sum(numbers);
average = sum / %elem(numbers);

dsply (‘The average is: ‘ + %char(average));
else;
dsply ‘No numbers entered.’;
endif;

import ‘dart:io’;

class BankAccount {
String accountHolder;
double balance;

BankAccount(this.accountHolder, this.balance);

void deposit(double amount) {
if (amount > 0) {
balance += amount;
print(‘Deposited: $${amount.toStringAsFixed(2)}. New balance: $${balance.toStringAsFixed(2)}.’);
} else {
print(‘Deposit amount must be positive.’);
}
}

void withdraw(double amount) {
if (amount > 0) {
if (balance >= amount) {
balance -= amount;
print(‘Withdrew: $${amount.toStringAsFixed(2)}. New balance: $${balance.toStringAsFixed(2)}.’);
} else {
print(‘Insufficient funds. Current balance: $${balance.toStringAsFixed(2)}.’);
}
} else {
print(‘Withdrawal amount must be positive.’);
}
}

void checkBalance() {
print(‘Current balance: $${balance.toStringAsFixed(2)}.’);
}
}

void main() {
print(‘Welcome to the Simple Banking System!’);
print(‘Please enter your name:’);
String name = stdin.readLineSync()!;
BankAccount account = BankAccount(name, 0.0);

while (true) {
print(‘nMenu:’);
print(‘1. Check Balance’);
print(‘2. Deposit Funds’);
print(‘3. Withdraw Funds’);
print(‘4. Exit’);
print(‘Choose an option:’);
String? choice = stdin.readLineSync();

switch (choice) {
case ‘1’:
account.checkBalance();
break;
case ‘2’:
print(‘Enter amount to deposit:’);
double depositAmount = double.parse(stdin.readLineSync()!);
account.deposit(depositAmount);
break;
case ‘3’:
print(‘Enter amount to withdraw:’);
double withdrawAmount = double.parse(stdin.readLineSync()!);
account.withdraw(withdrawAmount);
break;
case ‘4’:
print(‘Thank you for using the banking system. Goodbye, ${account.accountHolder}!’);
return;
default:
print(‘Invalid choice. Please try again.’);
}
}
}

DCL-F accountHolder CHAR(50);
DCL-F balance DEC(10:2);
DCL-F depositAmount DEC(10:2);
DCL-F withdrawAmount DEC(10:2);
DCL-F choice CHAR(1);
DCL-F name CHAR(50);
DCL-F menuOption CHAR(1);
DCL-F message CHAR(100);

DCL-S account LIKE(accountHolder);
DCL-S currentBalance LIKE(balance);

DCL-PROC deposit;
DCL-PARM amount DEC(10:2);
IF amount > 0;
balance += amount;
message = ‘Deposited: $’ + %char(amount) + ‘. New balance: $’ + %char(balance);
DSPly message;
ELSE;
message = ‘Deposit amount must be positive.’;
DSPly message;
ENDIF;
END-PROC;

DCL-PROC withdraw;
DCL-PARM amount DEC(10:2);
IF amount > 0;
IF balance >= amount;
balance -= amount;
message = ‘Withdrew: $’ + %char(amount) + ‘. New balance: $’ + %char(balance);
DSPly message;
ELSE;
message = ‘Insufficient funds. Current balance: $’ + %char(balance);
DSPly message;
ENDIF;
ELSE;
message = ‘Withdrawal amount must be positive.’;
DSPly message;
ENDIF;
END-PROC;

DCL-PROC checkBalance;
message = ‘Current balance: $’ + %char(balance);
DSPly message;
END-PROC;

DCL-PROC main;
DSPly ‘Welcome to the Simple Banking System!’;
DSPly ‘Please enter your name:’;
// Assuming user input is processed and stored in variable `name`
// Use appropriate method to read user input here

account = name;
balance = 0.00;

DOW ‘1’ = choice;
DSPly ‘Menu:’;
DSPly ‘1. Check Balance’;
DSPly ‘2. Deposit Funds’;
DSPly ‘3. Withdraw Funds’;
DSPly ‘4. Exit’;
DSPly ‘Choose an option:’;
// Assuming user input is processed and stored in variable `choice`
// Use appropriate method to read user input here

SELECT;
WHEN choice = ‘1’;
checkBalance();
WHEN choice = ‘2’;
DSPly ‘Enter amount to deposit:’;
// Assume input is processed for depositAmount
deposit(depositAmount);
WHEN choice = ‘3’;
DSPly ‘Enter amount to withdraw:’;
// Assume input is processed for withdrawAmount
withdraw(withdrawAmount);
WHEN choice = ‘4’;
message = ‘Thank you for using the banking system. Goodbye, ‘ + account + ‘!’;
DSPly message;
LEAVEPGM;
OTHER;
DSPly ‘Invalid choice. Please try again.’;
ENDSELECT;
ENDDO;
END-PROC;

main();