turtle/forth_floppy.lua

function create_forth_floppy()
	return ""..string.rep(string.char(0),264).."\010\000\000\000\167#\000\000\000\000\218#"..string.rep(string.char(0),140).."\189\018\180\001\176\001\001"..string.rep(string.char(0),9).."\167#0\011"..string.rep(string.char(0),28).."\176\001"..string.rep(string.char(0),558).."M\000\002\024M\000\003\025M\167#\026\000EXIT\000\000\004()\000(lit)\020\004\005+!)\000(slit)\031\004\006+E\011!\034\012D\027)\000(dodoes),\004\008+!+\027)\000DUPA\004\0030!)\000SWAPM\004\00412!\034)\000ROTX\004\003123\034!#)\000-ROTd\004\004123!#\034)\000OVERs\004\00420\034!)\000PICK\130\004\0042D\012\008\013\007\034)\000DROP\143\004\0041)\0002DROP\159\004\00511)\0002DUP\170\004\00420\034!\034)\0002SWAP\181\004\005123\0033\034!#\019#)\0002OVER\196\004\0053\003320\034#\019#!\034)\000NIP\216\004\0031 )\000TUCK\235\004\00412!\034!)\000?DUP\246\004\00409\001\000)!)\000>R\004\005\0021\001)\000R>\017\005\002\017!)\000R@\026\005\002\016!)\000!#\005\00121&)\000C!+\005\002216)\000@5\005\0010\004 )\000C@>\005\0020\020 )\000ANDH\005\00320, )\000ORS\005\00220- )\000XOR^\005\00320. )\000INVERTj\005\0060/ )\000(branch)y\005\008+\027)\000(0branch)\137\005\0092+:\001\000\027)\000ROLL\153\005\0042AKD\012\008\013\005!1DJJ\007%IIEH;\245\255)\000+\168\005\00121\012\034)\000-\196\005\00121\013\034)\000+!\206\005\0022A\0071\012B%)\000*\217\005\00121\014\034)\000U<\230\005\00220\013 )\000U>\241\005\00212\013!)\000M*\252\005\00221\015\034!)\000UM*\007\006\00321\014\034!)\0000=\020\006\00209\003\000/ )M\000\000 )\0000<> \006\00309\001\000)M\255\255 )\0000<3\006\0022?!)\0000>C\006\0022:\002\000\034)?/!)\000<>M\006\00220\013:\002\000 )M\255\255 )\000=]\006\00120\013:\005\000M\255\255 )M\000\000 )\000EMPTYRo\006\006M\000\003\025)\000EMPTYS\137\006\006M\000\002\024)\000DEPTH\152\006\005\008N\000\002\013DN\001\000=!)\0002*\166\006\002N\001\0000> )\0002/\184\006\002N\001\0000= )\000RSHIFT\197\006\00620< )\000LSHIFT\214\006\00620> )\0002>R\229\006\00321\001\002)\0002R>\241\006\003\018\017!\034)\0002R@\253\006\003\018\016\002!\034)\0001+\009\007\0020I )\0001-\021\007\0020F )\000EXECUTE\031\007\0071\026\000*/MOD.\007\005321\015\031#\034)\000*/9\007\002321\015\031\034)\000/MODG\007\00432?\031#\034)\000/V\007\00132?\031\034)\000MODb\007\00332?\031#)\000UM/MODo\007\006312\030#\034)\000FM/MOD\127\007\006312\031#\034)\000O+\144\007\00221\012\034!)\000UDM/MOD\157\007\007312\030#\034!)\000<\174\007\0012?A2\034.E?/9\004\0002?!)1C\013!)\000>\187\007\00112!?A2\034.E?/9\004\0002?!)1C\013!)\000NEGATE\213\007\0060/I )\000(do)\246\007\004+\00123\003\002)\000(?do)\003\008\005+\00121\001\002\013:\004\000\018\018\017\027)\000I\019\008\001\016!)\000J'\008\001\019\018\034\018\016\0022\002\003!)\000UNLOOP/\008\006\018\018\018)\000(loop)D\008\006\018J\016\002\013+:\004\000\018\018\018)\027)\000(+loop)R\008\007\018A1\012\016F\002C@\013?!B\018\002\013?2.E+:\002\000\027)\018\018\018)\000WAITl\008\004\000)\000LEAVE\146\008\005\017\017\017\027)\000RECEIVE-AT\157\008\010320R )\000DELETE-MSG\176\008\01021S)\000SET-CHANNEL\196\008\01121U)\000SEND\215\008\00421T)\000FW\227\008\002`!)\000BW\237\008\002a!)\000UP\246\008\002b!)\000DN\255\008\002c!)\000TL\008\009\002d)\000TR\017\009\002e)\000DT\025\009\0021h!)\000DT-UP!\009\0051i!)\000DT-DN.\009\0051j!)\000DIG;\009\003p)\000DIG-UPF\009\006q)\000DIG-DNR\009\006r)\000PLACE^\009\005t)\000PLACE-UPi\009\008u)\000PLACE-DNw\009\008v)\000REFUEL\133\009\00621\128!)\000SELECT\145\009\0061\129)\000GET-ENERGY\160\009\010\130\034!)\000OPEN-INV\177\009\008\136)\000GET-FORMSPEC\193\009\0121\137)\000GET-STACK\211\009\009321\138)\000(move_item)\227\009\0111\139)\000/COUNTED-STRING\000\000\015M\000\001!)\000/HOLD\013\010\005M\034\000!)\000/PAD\027\010\004MT\000!)\000ADRESS-UNIT-BITS(\010\016M\008\000!)\000COREA\010\004M\255\255!)\000CORE-EXTN\010\008M\255\255!)\000FLOORED_\010\007M\255\255!)\000MAX-CHARo\010\008M\255\000!)\000MAX-N\128\010\005M\255\127!)\000MAX-U\142\010\005M\255\255!)\000RETURN-STACK-CELLS\156\010\018M\128\000!)\000STACK-CELLS\183\010\011M\128\000!)\000MAX-UD\203\010\006M\255\255!M\255\255!)\000MAX-D\218\010\005M\255\255!M\255\127!)\000SEARCH-ORDER\236\010\012M\255\25
end