A simulator for Activision's PITFALL! for the Atari 2600. I converted the LFSR from 6502 code that David Crain wrote to generate the maps.
PROG : 16509
D-FILE: 17835
VARS : 18628
E-LINE: 18629
STKBOT: 18634
STKEND: 18634
9999 means line number
PRINT means treat as KEYWORD P
1 REM /;*PITFALL SIM**SLR/23*
30404 F?LN EúLN (?LN (INKEY$LN ;
INKEY$LN ORNDLN AT RND/PRINT
GOSUB ?9RND£CRAND $LN X÷INKEY$
RETURN ?ASN ?INKEY$RETURN ?ASN J
INKEY$RETURN ?ASN óINKEY$RETURN
5ASN JINKEY$RETURN 6ASN ?INKEY$
RETURN 7ASN ?INKEY$RETURN 8ASN ó
INKEY$RETURN AASN JINKEY$RETURN
DASN óINKEY$RETURN RASN (INKEY$
RETURN SASN ?INKEY$RETURN WASN ?
INKEY$TAN 50RNDACS ?C"ACS ?4ó
ACS
49158 òöñACS :5.RNDIACS BACS BI
ACS BACS -(INPUT TAN 50RNDACS ?C
"ACS ?CóACS
49158 òöñACS EXP 5.RNDIACS BACS B
ACS *IACS ZACS 2(GOTO TAN 50RND
ACS ?COS ACS
51403 õACS COS ACS ¶TAN 50RNDACS
?""ACS
51403 ?CöACS .RNDQCODE 7Q TAN LN
??LN DINKEY$LN SIN INKEY$5?òLN
RUN PITAN ñ£ùYP50RNDACS ?CôYPö"
ACS ?Cò:<PRINT LN CHR$ PILET ?(
ñ)?LN PRINT !U.RND?LN HPIY NOT ñ
£÷LN CHR$ PI?5 STEP ?÷÷NEW ó?J
LEN ù(UNPLOT ?ö ùLN GOSUB PIñ$ù
LN CHR$ PI????NEW ÷?50RNDACS Q
RETURN CôRETURN ñ4GACS PLOT
ACS YACS ?4úñ$"LN CHR$ PIYõ/ú
ACS RETURN ñ>"LN CHR$ PIYµNOT ñ?
"LN CHR$ PIYHNOT ñ$úLN CHR$ PI5K
??JLEN ö(UNPLOT ?ö ùLN GOSUB PI?
RETURN õ4)Y NOT ?NEW ó5G?ö ?ù÷
LN CHR$ PI?RETURN ô4=ACS ?Y CòY/
NOT ?ñ:!LN CHR$ PI??( 2 RETURN ò
C!RETURN óCôRETURN ö4ôY/NOT ?ñ$!
LN CHR$ PI?5??NEW ÷?JLEN ÷(
UNPLOT ?ö ùLN GOSUB PI?B4SIN
TAN : öñA0LN ZPIAPLOT LN ZPIö A
COPY I.G´SUNPLOT =PRINT ?(ù
RETURN 04õô?B4ñNOT LET TAN FAST
STR$ VAL E£RND7)5 ;(CLEAR ö ù6:
RNDAT SGN LPRINT TAN /SAVE 6
PRINT PILN ö?EPRINT PIF?P4PAUSE
TAN OR LN ??Kò OR TAN INT COPY
ñúòLN PRINT !5ô?LN GOSUB PIñ ô5¸
?LN ??ñ-ô5ó?LN ??ñ£?LN PRINT !5²
?LN GOSUB PIñ£)5??LN ??TAN ?7?7
M??LN CHR$ PIFAST LN GOSUB PI
LPRINT )??;ô?RETURN :4INPUT TAN
ñ"ô5)?LN ??TAN 0COPY 00
COPY 0 0COPY 0 0 0COPY
OCOPY O O OCOPY FCOPY
SCOPY VINE MSGR¸¸¹¸¸COPY ¹¸¹¸¹
COPY -(=)-COPY -<=>-COPY -CCC-
COPY (=)COPY COPY (=) COPY <=
> COPY Y T T YCOPY Y Y Y Y
COPY T T T T COPY Y T T Y COPY P
ITFALL/ SIMCOPY " ú
COPY úùúùúùúù COPY úùúùúùúù
COPY COPY
COPY COPY ¸¸¸¸¸¸¸¸
COPY COPY ºººººººº
COPY COPY ROOM COPY ú
£/ VINECOPY COPY COPY COPY O LOG
COPY COPY COPY COPY COPY 0 ROLLI
NGCOPY C CROCSCOPY COPY COPY S S
NAKECOPY COPY COPY F FIRECOPY
COPY COPY COPY ¹ HOLECOPY COPY
COPY COPY H LADDERCOPY COPY µ RI
GHTCOPY COPY COPY WALLCOPY
COPY COPY COPY õ LEFTCOPY COPY
COPY COPY WALLCOPY COPY COPY
COPY " ú-()- TARCOPY COPY COPY
PITCOPY COPY COPY COPY COPY
COPY COPY -<>- QUICKCOPY SAND
COPY COPY COPY COPY COPY COPY (
) SHIFT-COPY ING TARCOPY COPY
COPY PITCOPY COPY COPY COPY
COPY COPY COPY <> SHIFT-COPY I
NG QUICKCOPY SANDCOPY COPY
COPY COPY COPY COPY ù ôM MONEY
COPY COPY G GOLDCOPY COPY COPY S
SILVERCOPY R RINGCOPY COPY
COPY
2 RAND USR VAL "16514"