Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
HELP TO RUN QBASIC CODE FROM 90s !
#5
Found an error here that differed from the printout. Its around line 77.

Code: (Select All)
GOSUB PORTSTART
INPUT "TYPE 'RUN' FOR CALCULATION OR 'NEW' FOR A DATA CHANGE: ", Z$
IF Z$ = "NEW" THEN GOTO 50

CALL PAREA(NEP, WEPM, EXHT, RTEM, RBEM, FEPRT, DEPRT)
CALL PAREA(NTP, WTPM, TRHT, RTTM, RBTM, FTPRT, DTPRT)
CALL PAREA(NIP, WIPM, INHT, RTIM, RBIM, FIPRT, DIPRT) '<---FIXED an Error Here
FTDUCT = TRAR * FTPRT
DTDUCT = SQR(4 * FTDUCT / PI)
TSV = FPISTON * HEOT
CYCV = TSV / (TCR - 1)
Reply


Messages In This Thread
HELP TO RUN QBASIC CODE FROM 90s ! - by musss1 - 06-10-2024, 08:46 AM
RE: HELP TO RUN QBASIC CODE FROM 90s ! - by Jack - 06-10-2024, 11:11 AM
RE: HELP TO RUN QBASIC CODE FROM 90s ! - by luke - 06-10-2024, 11:18 AM
RE: HELP TO RUN QBASIC CODE FROM 90s ! - by Jack - 06-10-2024, 01:26 PM
RE: HELP TO RUN QBASIC CODE FROM 90s ! - by justsomeguy - 06-10-2024, 02:38 PM
RE: HELP TO RUN QBASIC CODE FROM 90s ! - by Jack - 06-10-2024, 02:50 PM



Users browsing this thread: 5 Guest(s)