I don't understand what is wrong with the Quick Basic 4.5 code.
Code: Select all
#Lang "QB"
DECLARE SUB READ.LINK.DAT()
'LINK.DAT GLOBAL VARIABLES
COMMON SHARED TDir$, Year1$, DR$, RE$
'*** "VERIFY" GLOBAL VARIABLES ***
COMMON SHARED COL(), ROW(), V$(), D$(), I$(), R$()
COMMON SHARED SP2, SP2$, V, CLOR1, CLOR2, P, L
DIM COL(5), ROW(5), V$(5), D$(5), I$(5), R$(5, 1)
CALL READ.LINK.DAT
SLEEP: SYSTEM
ErrorHandler:
IF ERR = 53 THEN
CALL LINK.DAT
RESUME
END IF
IF ERR = 14 THEN
PRINT "ErrorHandler: ERROR- Out of String Space"
SYSTEM
ELSE
'some other error, so print message and abort
PRINT "ErrorHandler: Unrecoverable error--"; ERR
'ON ERROR GOTO 0
STOP: RESUME
END IF
ErrorHandler2:
IF ERR = 53 THEN
RESUME NEXT
END IF
IF ERR = 14 THEN
PRINT "ErrorHandler2: ERROR- Out of String Space"
SYSTEM
ELSE
'some other error, so print message and abort
PRINT "ErrorHandler2: Unrecoverable error--"; ERR
'ON ERROR GOTO 0
STOP: RESUME
END IF
SUB LINK.DAT
'PURPOSE: TO PASS VARIABLE VALUES TO A CHAINED PROGRAM.
'PASSED VARIABLES: TRACKDIR$,DR$
'*** SET DIRECTORY TO NONE IF NOT CHOSEN YET ***
IF DR$ = "" THEN DR$ = "NONE": RACE$ = "01"
'*** OPEN FILE ***
OPEN "LINK.DAT" FOR OUTPUT LOCK WRITE AS #1
WRITE #1, TDir$, Year1$, DR$, RE$, R$(3, 1), R$(4, 1)
CLOSE #1
END SUB
SUB READ.LINK.DAT
'PURPOSE: TO READ LINK.DAT. A FILE THAT PASSES VARIABLE VALUES TO THIS
' CHAINED PROGRAM
'*** READ FILE ***
ON ERROR GOTO ErrorHandler
OPEN "LINK.DAT" FOR INPUT LOCK WRITE AS #1
INPUT #1, TDir$, Year1$, DR$, RE$, R$(3, 1), R$(4, 1)
CLOSE #1
SHELL "Cd D:\Hre\" + TDir$ + Year1$
ON ERROR GOTO ErrorHandler2
'*** SET DIRECTORY TO NULL IF NOT CHOSEN YET ***
IF DR$ = "NONE" THEN DR$ = ""
END SUB
D:\QB45\FBIDETEMP.c: In Function 'READ$LINK$DAT:
C: 154:2 LABEL$7 used but not defined
C: 138:2 LABEL$2 used but not defined
There is only 81 lines of code so I don't know what 154 and 138 mean.