View source for WSFN (programming language)

'''WSFN''' ('''Which Stands for Nothing''')<ref>{{cite book|title=The Blue Book for the Atari Computer |url=https://books.google.com/books?id=cu66AAAAIAAJ&q=WSFN+%22Which+Stands+for+Nothing%22 |date=1983 |publisher=WIDL Video|isbn = 9780684179216}}</ref> is an [[Interpreter (computing)|interpreted]] [[programming language]] for controlling [[robot]]s created by [[Li-Chen Wang]]. It was designed to be as small as possible, a "tiny" language,{{sfn|Wang|1977|p=334}} similar to Wang's earlier effort, [[Tiny BASIC|Palo Alto Tiny BASIC]].<ref>{{Cite journal|last=Wang |first=Li-Chen |authorlink=Li-Chen Wang |title=Palo Alto Tiny BASIC |journal=Dr. Dobb's Journal |volume=1 |issue=5 |pages=12–25 |date=May 1976}}</ref><ref>{{cite magazine |url=http://www.bitsavers.org/pdf/interfaceAge/197612/092-108.pdf |magazine=Interface Age |first=Robert |last=Rauskolb |title=Dr. Wang's Palo Alto Tiny BASIC |date=December 1976 |pages=92–108}}</ref> WSFN was first published in ''[[Dr. Dobb's Journal]]'' in September 1977.

The language consists primarily of single-letter commands to tell a robot to move in certain directions, while other commands perform tests or basic mathematical operations. These can be grouped into named [[Macro (computer science)|macros]] to produce more complex programs. The original version also included code that simulated the robot as a cursor on the [[VDM-1]] display, or graphically on a [[Cromemco Dazzler]] display. This is similar to the [[turtle graphics]] added to the [[Logo (programming language)|Logo]] programming language in 1969.

'''Extended WSFN''' is an implementation created for the [[Atari 8-bit computers]] written by Harry Stewart and published by the [[Atari Program Exchange]]<ref>[http://www.atariarchives.org/APX/showinfo.php?cat=20026 APX listing at atariarchives.org]</ref> in 1981. In addition to supporting turtle graphics, it adds a number of commands to control the graphics and sound capabilities of that platform. It was offered as a "beginner's language with emphasis on [[Computer graphics|graphics]]".{{citation needed|date=June 2018}}

==Syntax==
WSFN consists of a number of single-letter commands to control the movement of a [[Turtle graphics|turtle]] or robot. Any of these commands can be repeated by prefixing it with a number.{{sfn|Wang|1977|p=334}} For instance, {{code|F}} moves the turtle Forward one step, while {{code|25F}} moves 25 steps. {{code|R}} and {{code|L}} make the turtle turn one unit to the Right or Left, respectively, and it can also be reset to point {{code|N}}orth. The step sizes and turn units are defined by the robot hardware, but are set to one pixel and 45 degrees in the turtle graphics versions. Missing in the robot versions, in the computer versions {{code|H}} returns the turtle Home in the center of the screen and {{code|C}} Clears any previous drawing. Thus, one can draw a square with the string:{{sfn|Stewart|1982|p=4}}

 BCWHN25F2R25F2R25F2R25F

These instructions set the drawing color to Black, Clears the screen (which fills with the current color), sets the color to White, Homes the turtle, resets the turtle to point North, then draws a series of four lines 25 steps long, rotating 90 degrees to the Right between each line. The result is a white square with its lower-left corner in the center of the screen.{{sfn|Stewart|1982|p=4}}

Lists of commands can be surrounded with parentheses to create macros. For instance, the same square can be drawn by placing the code to draw one side of the square inside the parentheses, and then calling it four times:{{sfn|Stewart|1982|p=4}}

 BCWHN4(25F2R)

Macros can be called within other macros. For instance, this code draws a series of eight squares, each offset by 45 degrees, rotating around the center of the screen:{{sfn|Stewart|1982|p=4}}

 BCWHN8(4(25F2R)R)

Macros can be assigned a name using the {{code|D}}efine command (Extended WSFN used {{code|{{=}}}} instead). This code defines a macro named "X" to clear the screen and reset the drawing, and another "Z" that draws a square. It then uses these to draw the same rotating square as the example above:{{sfn|Wang|1977|p=345}}

 DX(BCWHN)
 DZ4(25F2R)
 X8(ZR)

WSFN has rudimentary math capabilities consisting of a single [[Accumulator (computing)|accumulator]] {{code|A}} that can be incremented and decremented with {{code|+}} and {{code|-}}. The letter {{code|A}} can be placed anywhere a number could appear. One can make the series of squares grow larger by incrementing the accumulator 5 times between each step:{{sfn|Wang|1977|p=334}}

 DX(BCWHN)
 25A
 DZ4(AF2R)
 X8(Z5+AR)

A side-effect of the syntax is that {{code|A-}} would set the accumulator to zero, because it performs the decrement instruction by the number in A. Likewise, {{code|A+}} doubles the value in the accumulator.{{sfn|Wang|1977|p=334}}

Program control is equally rudimentary, consisting of a number of commands that handled [[Conditional (computer programming)|IF/THEN/ELSE]] structures. The most basic form is the {{code|T}}est command, which follows one of two paths if the accumulator was greater or equal to zero. For instance, this command causes the turtle to turn 90 degrees left if the accumulator is non-zero, or 45 to the right if it is zero:{{sfn|Wang|1977|p=334}}

 T(2L)R

Variations on the {{code|T}} branching construct include {{code|?}}, which randomly jumps to the first or second branch 50% of the time, and {{code|S}}ensor, which tests if the contact sensor on the robot has been triggered.{{sfn|Wang|1977|p=334,335}} Extended WSFN modified the {{code|S}} to return the color in front of the turtle, allowing hit detection on previous drawing, and added the {{code|E}}dge test, which jumps to the right side macro if the turtle hit the edge of the drawing area.{{sfn|Stewart|1982|p=10}} The original WSFN lacks an equivalent of {{code|E}}, and instead wraps the drawing area so the turtle re-appears on the opposite side of the screen.{{sfn|Wang|1977|p=334}} Extended WSFN supports this style of playfield wrapping as an option.{{sfn|Stewart|1982|p=3}}

Because it uses one-letter commands and recursive syntax, WSFN code is exceedingly cryptic. For example, this is a WSFN program to draw [[Sierpiński curve]]s:{{sfn|Wang|1977|p=336}}

 DIT(-I2FI5RG5RI2FI+)2R
 DG4F
 DY (HN63F2R61FRC4 (2FI))

Note that the definition of the macro "I" includes calls to I within it. This is a key aspect of the WSFN concept; the language is highly [[Recursion (computer science)|recursive]] in nature, which makes programming self-similar patterns like [[fractal]]s easy to accomplish in a few lines of code.{{sfn|Wang|1977|p=336}}

A key concept of Extended WSFN is that the keyboard is always active, even while macros are running. This allows keyboard input to interrupt running programs. Using this technique, one can make macros for moving the turtle in certain ways, assign them to letters on the keyboard, and then perform these movements by pressing different keys in succession. This can be aided by adding the {{code|W}}ait command in places to give the user time to respond as the drawing takes place.{{sfn|Stewart|1982|p=5}}

==Keywords==
From the original ''Dr. Dobbs'' article.{{sfn|Wang|1977}}
{| style="border: 1px solid darkgray;" class="wikitable collapsible"
|+ WSFN keywords
! Keyword !! Description
|-
| style="font-weight:bold; text-align:right" | A || align="left" | Loops by the value of the accumulator (A- sets it to zero, A+ doubles it)
|-
| style="font-weight:bold; text-align:right" | B || align="left" | Set the drawing color to black
|-
| style="font-weight:bold; text-align:right" | C || align="left" | Clear screen (fill with current color)
|-
| style="font-weight:bold; text-align:right" | D || align="left" | Define macro
|-
| style="font-weight:bold; text-align:right" | F || align="left" | Move the turtle forward
|-
| style="font-weight:bold; text-align:right" | H || align="left" | Return the turtle to the home position
|-
| style="font-weight:bold; text-align:right" | L || align="left" | Rotate the turtle to the left
|-
| style="font-weight:bold; text-align:right" | N || align="left" | Point the turtle north (up)
|-
| style="font-weight:bold; text-align:right" | R || align="left" | Rotate the turtle to the right
|-
| style="font-weight:bold; text-align:right" | S || align="left" | Test contact sensor on the robot (IF/THEN/ELSE)
|-
| style="font-weight:bold; text-align:right" | T || align="left" | Test for non-zero accumulator (IF/THEN/ELSE)
|-
| style="font-weight:bold; text-align:right" | W || align="left" | Set the drawing color to white
|-
| style="font-weight:bold; text-align:right" | = || align="left" | Define a macro name
|-
| style="font-weight:bold; text-align:right" | ? || align="left" | Random test, like T but follows each branch 50% of the time
|-
| style="font-weight:bold; text-align:right" | + || align="left" | Increment accumulator
|-
| style="font-weight:bold; text-align:right" | - || align="left" | Decrement accumulator
|}

From the Extended WSFN manual.{{sfn|Stewart|1982}}
{| style="border: 1px solid darkgray;" class="wikitable collapsible"
|+ Additional/Redefined Extended WSFN keywords
! Keyword !! Description
|-
| style="font-weight:bold; text-align:right" | B || align="left" | Beep
|-
| style="font-weight:bold; text-align:right" | D || align="left" | Pen down
|-
| style="font-weight:bold; text-align:right" | E || align="left" | Tests if the turtle is at the screen edge
|-
| style="font-weight:bold; text-align:right" | P || align="left" | Set the pen color to the value in the accumulator
|-
| style="font-weight:bold; text-align:right" | S || align="left" | Set the accumulator to the color in front of the turtle (Sense, as in the original version)
|-
| style="font-weight:bold; text-align:right" | U || align="left" | Pen up
|-
| style="font-weight:bold; text-align:right" | W || align="left" | Wait one jiffy ({{frac|30}} of a second)
|-
| style="font-weight:bold; text-align:right" | = || align="left" | Define macro
|-
| style="font-weight:bold; text-align:right" | =# || align="left" | Define variable
|-
| style="font-weight:bold; text-align:right" | # || align="left" | Loops by the value in a variable
|-
| style="font-weight:bold; text-align:right" | * || align="left" | Adding * to the directional commands, *L or *R, changed the angle to 22.5 degrees instead of 45
|-
| style="font-weight:bold; text-align:right" | $ || align="left" | Test joystick against selected direction (IF/THEN/ELSE)
|-
| style="font-weight:bold; text-align:right" | % || align="left" | Read value of paddle controller into accumulator
|-
| style="font-weight:bold; text-align:right" | & || align="left" | Write value in accumulator to selected color register
|-
| style="font-weight:bold; text-align:right" | ; || align="left" | Read the direction of the turtle, 0 through 7, into the accumulator
|-
| style="font-weight:bold; text-align:right" | @ || align="left" | Set the accumulator to zero (same as A- in WSFN)
|}

==References==
{{reflist}}

===Bibliography===
* {{cite magazine
  |last = Wang
  |first = Li-Chen
  |author-link = Li-Chen Wang
  |title = An Interactive Programming Language for Control of Robots
  |magazine = Dr. Dobb's Journal
  |volume = 2
  |issue = 8
  |date=September 1977
  |pages=334–345
  |url=https://archive.org/stream/dr_dobbs_journal_vol_02_201803/dr_dobbs_journal_vol_02#page/n335
 }}
* {{cite book
 |url=https://data.atariwiki.org/DOC/APX_Extended_WSFN-OCR-Print.pdf
 |first=Harry |last=Stewart 
 |title=Extended WSFN
 |publisher=APX
 |date=1982
 }}

[[Category:Atari 8-bit computer software]]
[[Category:Atari Program Exchange software]]
[[Category:Robot programming languages]]
[[Category:Programming languages created in 1977]]
[[Category:1977 in robotics]]