HELP TO RUN QBASIC CODE FROM 90s !

[luke]

On line 752:

Code: (Select All)

CALL FPORT(HTDC, HIOT, INHT, FIPRT, FIPRT, AKI, CCI)

FIPRT is set to 0 because it is never assigned a value. This leads to a division by 0 in FPORT which sets AKI to "not a number" which later on breaks the array access.

Perhaps the code was copied from the PDF wrongly? I had a quick look and couldn't see any FIPRT assignment though.