Corrupted QB45 saved program

[luke]

The best that I can recover is

Code: (Select All)

DECLARE SUB WALK () 

DECLARE SUB MAP () 

DECLARE SUB SELL () 

DECLARE SUB WOOD () 

DECLARE SUB SOR () 

DECLARE SUB FOOD () 

DECLARE SUB SAVE () 

DECLARE SUB TENT () 

DECLARE SUB INDIANS () 

DECLARE SUB STAT () 

DECLARE SUB TITLE () 

DECLARE SUB DEL () 

DECLARE SUB FILE () 

COMMON SHARED CB, D, OPG, SK, R, BET, A$, AA, AE, AX, BB, BF, BI, CC, CK, DD 

COMMON SHARED DW, FA, FT, HH, LT, LU, NH, RR, SS, SH, T$, TH, TP, WT, F, M, S 

COMMON SHARED T, W, Z, AQ$, ART, AXT, BDW, BQ$, CQ$, DWT, PAE, WCT, FM, FS 

COMMON SHARED DB, LB, SP, BK, KA, BOD, DT, KF, OD 

DIM SHARED ZZ(1 TO 4000) 

RANDOMIZE TIMER 

OPEN "RAN.DAT" FOR INPUT AS #1 

IF EOF(1) = -1 THEN 

   CLOSE #1 

   GOTO BEGINING 

END IF 

INPUT #1,KA, OD, KF, DT, BOD, OPG, SK, A$, AA, AE, AX, BB, BF, BI, CB, CC, CK, DD, DW, FA, FT, HH, LT, LU, NH, RR, SS, SH, T$, TH, TP, WT, F, M, T, W, Z, AQ$, ART, AXT, BDW, BQ$, CQ$, DWT, PAE, WCT, FM, FSDB;LB, SP