Merge & Enhance QuickBASIC Scripts in QB64

I have two QuickBASIC scripts that need to be merged into QB64. These scripts are designed for calculating pressure in a pipe and an engine respectively. I've attempted to do this myself, but was unsuccessful.

I've attached the following files:
1) Prog2_1.bas - This file calculates the pressure in a pipe.
2) Prog5_2.bas - This file calculates the pressure in an engine.
3) tEST_pIPE.bas - This is my own attempt to merge the files.
4) Result of Prog2_1 with "TYPE IN TRIP ANGLE" = 360 ; "TYPE IN TRIP CYCLE" = 3 - A picture of the results from file no. 1.

The ultimate goal is to divide the pipe into several pieces in tEST_pIPE (using LP01 + LP12 instead of LEM and DEP1 + DEP2 instead of DEP).

I have specific features in mind for the merged script:
- Enhanced error handling

I am not looking to spend much on this project, as the program is intended to be free software.

Ideal skills for this project include:
- Proficiency in QuickBASIC and QB64
- Experience in script merging and debugging
- Ability to implement enhanced error handling in scripts
- Creative thinking for adding specific features

Your understanding and expertise in this field will help in accomplishing this project successfully. Thank you.