Corrupted QB45 saved program

[Cobalt]

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

yeah, that pretty much mirrors the result I was able to get. 
there is a reference to A:\Turkey.exe a little farther down, and something called pcshell.
but then it looks like more program, just can't get to it to decode anything.

[luke]

I did try to find a resynchronization point (i e. Somewhere where the QB tokens started again) by searching for instances of the new line token &H0000%. But none of them were followed by anything that looked like more valid tokens.

A lot of the file does disassemble as valid x86 code though