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.