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

