Cuneiforth: A Forth for your Chifir

Summary

___ _ ___ _ _ / __| _ _ _ ___(_) __|__ _ _| |_| |_ | (_| || | ' \/ -_) | _/ _ \ '_| _| ' \ \___\_,_|_||_\___|_|_|\___/_| \__|_||_| --=[ A programming puzzle ]=-- You and your team of 23rd century archaeologists have been digging for days with no result, but it seems your efforts have finally been rewarded. You stand before what looks to be a rusty shipping container with large letters scratched into its side. The letters read: "The Archive of Late 20th Century Computing" Giddy with excitement, you wrench open the door and step inside. The container is filled with crumbling plastic boxes. Inspecting a few, they appear to be packed full of optical disks of some kind. Picking one such disk out at random, you see that it has a label affixed to the front. Happily you find that you can understand the text - your study of the languages of the ancients has paid off, it seems. Roughly translated, the label reads as follows... =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= "This disk contains FORTH, an early interactive environment for writing and running computer programs. "The data on this disk is engraved as a series of bits, or zeros (0) and ones (1), in a clockwise spiral, starting from the outer rim, and can be read with an optical microscope. "The first 350'208 bits on this disk contain a document, encoded as a black and white bitmap image, 684 pixels in width and 512 pixels in height. The bits correspond to pixels as follows: bits: 0 1 683 v v v +--------------------------+ | | | ... ... | | |--------------------------| 684->| | ... | |--------------------------| | | | | | | | | |--------------------------| 349524->| | ... ... | |<-350207 +--------------------------+ "That document explains how to interpret the rest of the bits." =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Intrigued, you immediately take the disk back to your field office and, using your trusty OptoScanner 5000 (tm) you extract the bits from the disk: Disk ...