diff --git a/00_Alternate_Languages/78_Sine_Wave/MiniScript/README.md b/00_Alternate_Languages/78_Sine_Wave/MiniScript/README.md new file mode 100644 index 00000000..f52e8746 --- /dev/null +++ b/00_Alternate_Languages/78_Sine_Wave/MiniScript/README.md @@ -0,0 +1,3 @@ +Original source downloaded from [Vintage Basic](http://www.vintage-basic.net/games.html). + +Conversion to [MiniScript](https://miniscript.org). diff --git a/00_Alternate_Languages/78_Sine_Wave/MiniScript/sinewave.ms b/00_Alternate_Languages/78_Sine_Wave/MiniScript/sinewave.ms new file mode 100644 index 00000000..da3e99a7 --- /dev/null +++ b/00_Alternate_Languages/78_Sine_Wave/MiniScript/sinewave.ms @@ -0,0 +1,15 @@ +print " "*30 + "SINE WAVE" +print " "*15 + "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" +print; print; print; print; print +// Remarkable program by David Ahl, ported +// from BASIC to MiniScript by Joe Strout + +B = 0 +// start long loop +for t in range(0, 40, 0.25) + A = floor(26 + 25*sin(t)) + print " "*A, "" + if not B then print "CREATIVE" else print "COMPUTING" + B = not B + wait 0.01 +end for