:ClrHome
:Disp "(1-5)
:Input "STEEPNE[errorSS]:",S
:Disp "(1-100)
:Input "VOLATILITY:",T
:~T+100->T
:Disp "(10-60)
:Input "HEIGHT:",Q
:Disp "(1-100)
:Input "TREE RARITY:",U
:Disp "1=YES, 0=NO
:Input "CAVE:",R
:AxesOff
:ClrDraw
:For(I,1,92
: randInt(1,T->A
: randInt(~S,S->B
: If X=1
: 2B->B
: Q+B->Q
: If Q>59
: 59->Q
: For(J,1,Q
: Pxl-On(63-J,I
: End
: If randInt(1,U)=1
: Then
: 63-J->W
: Pxl-On(W,I
: Pxl-On(W-1,I
: Pxl-On(W-2,I
: Pxl-On(W-3,I-1
: Pxl-On(W-3,I+1
: Pxl-On(W-4,I-1
: Pxl-On(W-4,I+1
: Pxl-On(W-4,I
: Pxl-On(W-3,I
: End
:End
:If not(R
:Goto 2
:For(I,1,90
: randInt(1,2->R
: If Q>54
: Q-1->Q
: Q+(R)randInt(~1,1->Q
: For(J,Q-4,Q+3
: Pxl-Off(J,I
: End
:End
:Lbl 2
:50->Y
:40->X
:Pxl-On(Y,X
:0->W
:While 1
: Pxl-On(Y,X
: If W=1
: Pxl-Off(Y,X
: getKey->theta
: If theta=26
: X+1->X
: If theta=25
: Y-1->Y
: If theta=24
: X-1->X
: If theta=34
: Y+1->Y
: If theta=105
: (W=0)->W
:End