https://github.com/susam/may4
Celebrating Star Wars Day with some Forth code! May the Forth be with you!
https://github.com/susam/may4
forth gforth star-wars yoda
Last synced: 5 months ago
JSON representation
Celebrating Star Wars Day with some Forth code! May the Forth be with you!
- Host: GitHub
- URL: https://github.com/susam/may4
- Owner: susam
- License: mit
- Created: 2021-05-04T12:47:46.000Z (over 4 years ago)
- Default Branch: master
- Last Pushed: 2023-05-04T08:01:32.000Z (over 2 years ago)
- Last Synced: 2025-03-26T13:39:03.440Z (6 months ago)
- Topics: forth, gforth, star-wars, yoda
- Language: Forth
- Homepage:
- Size: 12.7 KB
- Stars: 40
- Watchers: 2
- Forks: 3
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- License: LICENSE.md
Awesome Lists containing this project
README
May the Forth Be With You
=========================
This project celebrates the [Star Wars Day] with the [Forth]
programming language.
[![View Source][Source SVG]](may4.fs)
[![View Output][Output SVG]](may4.txt)
[![MIT License][License SVG]](LICENSE.md)
[![Mastodon][Mastodon SVG]][Mastodon URL]
[![Twitter][Twitter SVG]][Twitter URL]
[Source SVG]: https://img.shields.io/badge/view-source-brightgreen
[Output SVG]: https://img.shields.io/badge/view-output-brightgreen
[License SVG]: https://img.shields.io/badge/license-MIT-%233a3
[Mastodon SVG]: https://img.shields.io/badge/mastodon-%40susam-%2355f
[Mastodon URL]: https://mastodon.social/@susam
[Twitter SVG]: https://img.shields.io/badge/twitter-%40susam-%2329e
[Twitter URL]: https://twitter.com/susam
May 4 is the Star Wars Day. The date (May the fourth) is a pun on the
popular Star Wars catchphrase, "May the Force be with you." Forth, the
programming language, is named so as a shortened form of the word
"Fourth". The name stood for "fourth generation". Quoting from
[Forth - The Early Years][HOPL]:
> The file holding the interpreter was labeled FORTH, for 4th (next)
> generation software - but the operating system restricted file names
> to 5 characters.
So this repository consisting of Forth source code to print a slightly
altered Star Wars catchphrase using ASCII stars (asterisks) is like a
double pun! Or is that a triple pun?
Also, if Yoda were a programmer, I think Forth would be his most
favourite programming language. Yoda would say, "A Forth programmer I
am. Hrmmm," and he would add two and two with, `2 2 +`. It just makes
a lot of sense to celebrate May the 4th with some Forth code.
[Star Wars Day]: https://en.wikipedia.org/wiki/Star_Wars_Day
[Forth]: https://en.wikipedia.org/wiki/Forth_(programming_language)
[HOPL]: https://web.archive.org/web/20160409083846/http://www.colorforth.com/HOPL.html
Source
------
[[may4.fs](may4.fs)]
```forth
: stars
0 do [char] * emit loop ;
: lines
0 do cr loop ;
: print
dup 40 > if 40 - lines else
dup 20 > if 20 - spaces else
stars
then then ;
: start
0 do print loop ;
41 11 37 11 36 5 28 41 5 27 5
31 5 27 5 33 5 28 41 5 31 5 27
5 31 5 31 5 28 41 5 33 5 25 5
33 5 30 5 28 41 5 35 5 23 5 35 5
29 5 28 41 5 35 5 23 5 35 5 27 9
26 41 5 35 5 23 5 35 5 26 5 21 5
25 41 5 35 5 23 5 35 5 25 5 23 5 24
41 5 35 5 24 5 33 5 25 5 25 5 23 41
5 35 5 25 5 31 5 25 5 27 5 22 41 5
35 5 27 5 27 5 26 5 29 5 21 41 5 35
5 30 11 28 5 31 5 43 2 24 2 25 2 25
2 26 1 26 1 28 8 23 7 33 41 2 24 2
25 2 25 2 25 3 24 3 33 2 22 1 25 2
33 41 8 25 2 25 2 24 2 21 2 22 2 21
2 29 5 23 7 33 41 2 24 2 25 2 25 2
23 2 24 3 23 2 31 2 22 1 25 2 33 41
2 24 2 22 8 22 2 22 2 26 1 25 2 24
8 23 7 22 11 43 3 27 3 27 3 26 3 28
3 26 8 35 3 41 3 27 3 27 3 27 3 27
3 24 3 26 3 33 3 41 3 27 3 27 3 28
3 26 3 23 3 28 3 32 3 41 3 27 3 27
3 29 3 25 3 22 3 30 3 31 3 41 13
27 3 29 11 22 3 30 3 25 9 41 13 27 3 27 13 22 3 30 3 25 9
41 3 27 3 27 3 26 3 28 3 22 3 30 3 31 3 41 3 27 3 27 3 26
3 28 3 23 3 28 3 32 3 41 3 27 3 22 13 22 13 24 4 25 3 23 13
41 3 27 3 22 13 24 11 26 8 25 13 43 11 22 8 22 2 24 2 25 2
30 2 23 2 25 2 22 2 23 1 23 2 41 2 22 2 24 2 25 2 30 2 24 7
23 2 22 3 22 2 41 5 22 8 25 2 29 4 24 2 21 2 24 2 21 2 21 2
21 2 41 2 22 2
24 2 25 2 28 2 22
2 24 3 25 4 23 4
41 8 22 2 24 2
22 8 24 2 24 2 24
1 26 3 25 3 473
start
bye
```
Output
------
[[may4.txt](may4.txt)]
```
*** *** * ** ** ******** ** ** ********
**** **** *** ** ** ** ** ** **
** ** ** ** ** ** **** ** ******** *****
** *** ** ******* ** ** ** ** **
** * ** ** ** ** ** ** ** ******** ***********
************* ******** *********** ************* *** ***
************* *** **** ************* ************* *** ***
*** *** *** *** *** *** *** ***
*** *** *** *** *** *** *** ***
********* *** *** ************* *** *************
********* *** *** *********** *** *************
*** *** *** *** *** *** *** ***
*** *** *** *** *** *** *** ***
*** *** *** *** *** *** *** ***
*** ******** *** *** *** *** ***
*********** ******* ******** ** * ** ** ******** ** **
** * ** ** *** ** ** ** ** **
******* ***** ** ** ** ** ** ** ********
** * ** *** *** ** ** ** **
******* ******** * * ** ** ** **
***** ***** *********** ***** *****
***** ***** ***** ***** ***** *****
***** ***** ***** ***** ***** *****
***** ***** ***** ***** ***** *****
***** ***** ***** ***** ***** *****
***** ***** ***** ***** ***** *****
********* ***** ***** ***** *****
***** ***** ***** ***** *****
***** ***** ***** ***** *****
***** ***** ***** ***** *****
***** ***** ***** ***** *****
***** *********** ***********
```
How to Run
----------
1. Install GForth.
On macOS, enter the following command if you have [Homebrew]:
```sh
brew install gforth
```
On Debian, Ubuntu, or another Debian-based Linux system, enter the
following command:
```
sudo apt-get install gforth
```
For other systems, see .
2. Run the Forth program in this repository:
```sh
gforth may4.fs
```
3. Enjoy!
[Homebrew]: https://brew.sh/
You can also run it online [on Replit here][Replit]:
[Replit]: https://replit.com/@susam/MayTheForthBeWithYou
Thank You
---------
Thank you for visiting this project. I hope this encourages you to
[learn a little bit of Forth][Starting Forth].
[Follow me on Mastodon][Mastodon URL].
[Follow me on Twitter][Twitter URL].
[Starting Forth]: https://www.forth.com/starting-forth/