https://www.php-resource.de/en/developer/qbasic78_47251