Skip to content

Commit

Permalink
fix old bug in lunar.fc
Browse files Browse the repository at this point in the history
  • Loading branch information
mdoege committed Jun 15, 2024
1 parent a08c7d1 commit 4849524
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 2 deletions.
2 changes: 1 addition & 1 deletion README.md
Original file line number Diff line number Diff line change
Expand Up @@ -97,7 +97,7 @@ The "auto" monitor command auto-types a text file into the terminal. If you are

Several FOCAL source code files are included:

* lunar.fc ([Lunar Lander](https://en.wikipedia.org/wiki/Lunar_Lander_(video_game_genre)))
* lunar.fc ([Lunar Lander](https://en.wikipedia.org/wiki/Lunar_Lander_(video_game_genre))) with the [2024 bug fix](https://martincmartin.com/2024/06/14/how-i-found-a-55-year-old-bug-in-the-first-lunar-lander-game/)
* ham.fc ([Hamurabi](https://en.wikipedia.org/wiki/Hamurabi_(video_game)))
* mand.fc ([Mandelbrot set](https://en.wikipedia.org/wiki/Mandelbrot_set))
* fib.fc ([Fibonacci numbers](https://en.wikipedia.org/wiki/Fibonacci_number))
Expand Down
2 changes: 1 addition & 1 deletion lunar.fc
Original file line number Diff line number Diff line change
Expand Up @@ -38,7 +38,7 @@
07.10 I (S-.005)5.1;S S=2*A/(V+FSQT(V*V+2*A*(G-Z*K/M)))
07.30 D 9;D 6;G 7.1

08.10 S W=(1-M*G/(Z*K))/2;S S=M*V/(Z*K*(W+FSQT(W*W+V/Z)))+.05;D 9
08.10 S W=(1-M*G/(Z*K))/2;S S=M*V/(Z*K*(W+FSQT(W*W+V/(2*Z))));D 9
08.30 I (I)7.1,7.1;D 6;I (-J)3.1,3.1;I (V)3.1,3.1,8.1

09.10 S Q=S*K/M;S J=V+G*S+Z*(-Q-Q^2/2-Q^3/3-Q^4/4-Q^5/5)
Expand Down

0 comments on commit 4849524

Please sign in to comment.