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\255!)\000SEARCH-ORDER-EXT\005\011\016M\255\255!)\000WORDLISTS\030\011\009M\008\000!)\000BL\247\009\002M \000!)\000FALSE;\011\005M\000\000!)\000TRUEI\011\004M\255\255!)\000(source)V\011\008M\000\001!)\000>INg\011\003M\004\001!)\000SOURCE-IDs\011\009M\006\001!)\000BASE\133\011\004M\008\001!)\000STATE\146\011\005M\010\001!)\000LATEST\160\011\006M\012\001!)\000SPAN\175\011\004M\016\001!)\000(here)\188\011\006M\018\001!)\000LT\203\011\002M\020\001!)\000#TIB\214\011\004M\022\001!)\000TIB\227\011\003M\024\001!)\000'NUMBER\239\011\007M\160\001!)\000NEW-WORDLIST\255\011\012M\162\001!)\000CW\020\012\002M\164\001!)\000NWORDER\031\012\007M\166\001!)\000WORDLISTS/\012\009M\176\001!)\000FORTH-WORDLISTA\012\014M\176\001!)\000ENVDICOX\012\007M\178\001!)\000WORDERh\012\006M\208\001!)\000CHARSw\012\133*\020\004\000ALIGN\133\012\133*\020\004\000ALIGNED\145\012\135*\020\004\000CELL+\159\012\005*\031\004\002\000\196\005\020\004\000CELL-\171\012\005*\031\004\002\000\206\005\020\004\000CHAR+\189\012\005*\021\007\020\004\000CELLS\207\012\005*\184\006\020\004\000EMIT\221\012\004*,\004\006\000screen\215\008\031\004\002\000+\005\031\004\002\000\031\004\001\000\227\008\020\004\000RECEIVE\234\012\007*\031\004\128\000\176\008\020\004\0002!\020\013\002*X\004\130\004+\005\171\012+\005\020\004\0002@#\013\002*M\004\171\012>\005X\004>\005\020\004\000SOURCE6\013\006*g\0116\013\020\004\000S>DM\013\003*M\004C\006\020\004\000MAX[\013\003*\181\004\213\007\153\005x\013\159\004\137\005z\013\235\004\020\004\000MINi\013\003*\181\004\213\007\153\005\146\013\235\004\137\005\148\013\159\004\020\004\000D+\131\013\002*d\004\196\005s\004\157\007d\004\196\005\020\004\000HEX\156\013\003*\031\004\016\000\146\011+\005\020\004\000DECIMAL\178\013\007*\031\004\010\000\146\011+\005\020\004\000TUCK\200\013\004*X\004\130\004\020\004\000ABS\219\013\003*M\004C\006\153\005\244\013\246\007\020\004\000(marker)\233\013\008*\175\011+\005\203\011+\005\020\004\000TYPE\002\014\004*M\004M\006\153\0056\014\130\004\196\005X\004\019\0082\014'\008H\005\234\012R\008(\014\137\0058\014\170\004\020\004\000RSTR\021\014\004*\021\007M\004\031\004\002\000\196\005H\005\031\004\127\000S\005\219\013\206\005X\004\020\004\000CRB\014\002*\031\004\010\000\234\012\020\004\000SPACEc\014\005*\031\004 \000\234\012\020\004\000SPACESu\014\006*M\004M\006\153\005\163\014\031\004\000\000\003\008\159\014u\014R\008\153\014\137\005\165\014\159\004\020\004\000STR=\136\014\004*\031\004\000\000\003\008\218\014\130\004H\005\130\004H\005]\006\153\005\206\014D\008\170\004I\011\020\004X\004\021\007X\004\021\007R\008\184\014\170\004V\011\020\004\000IMMEDIATE\175\014\009*\175\011>\005\031\007M\004H\005\031\004\128\000^\005X\0045\005\020\004\000HERE\237\014\004*\203\011>\005\020\004\000[\012\015\129*I\011\160\011+\005\020\004\000]\024\015\001*V\011\160\011+\005\020\004\000ALLOT&\015\005*\203\011\217\005\020\004\000,8\015\001*\012\015+\005\031\004\002\0008\015\020\004\000C,D\015\002*\012\0155\005\031\004\001\0008\015\020\004\000SKIP-WHITEW\015\010*M\004H\005\031\004!\000\187\007\153\005\145\015\021\007\181\004o\006\153\005\141\015\020\004\137\005s\015\020\004\000EXIT-IF-ENDr\015\011*M\013\235\004s\011>\005o\006\153\005\189\015M\013\196\005\031\004\000\000\026\005\159\004\020\004\000PARSE-LIMITS\162\015\012*M\013\130\004\196\005X\004s\011>\005\196\005\020\004\000>IN-END\207\015\007*M\013\235\004s\011+\005\020\004\000COUNTED-STRING\235\015\014*M\004\012\0155\005\012\015\021\007s\004\130\004\196\005X\004\003\008-\016'\008H\005\130\0045\005\021\007R\008\031\016\159\004\012\015\020\004\000PARSE-WORD\008\016\010*\162\015\207\015r\015\181\004o\006\153\005Z\016\235\015\159\004\031\004\000\000\020\004M\004\017\005M\004H\005\031\004 \000\213\007\153\005\136\016\021\007\181\004o\006\153\005\132\016\235\015\159\004#\005\206\005\026\005X\004\020\004\137\005^\016\235\004M\004M\013\159\004\206\005\021\007s\011+\005#\005\206\005\026\005X\004\020\004\000PARSEA\016\005*M\013\235\004s\011>\005o\006\153\005\198\016\159\004M\013\196\005\031\004\000\000\020\004\207\015M\004\017\005d\004\017\005M\004H\005#\005]\006\153\005\252\016\021\007\181\004o\006\153\005\248\016\026\005\159\004\235\015\159\004#\005\206\005\026\005X\004\020\004\137\005\208\016\026\005\159\004\235\004M\004M\013\159\004\206\005\021\007s\011+\005#\005\206\005\026\005X\004\020\004\000WORD\171\016\004*M\013\235\004s\011>\005o\006\153\005?\017\159\004\031\004\000\000\012\0155\005\012\015\020\004\207\015M\004\017\005d\004\017\005M\004H\005#\005]\006\153\005u\017\021\007\181\004o\006\153\005q\017\026\005\159\004\235\015\159\004#\005\206\005\026\005X\004\020\004\137\005I\017\026\005\159\004\235\004M\004M\013\159\004\206\005\021\007s\011+\005#\005\206\005\026\005X\004\008\016\020\004\000HEADER\034\017\006*A\016\219\013\031\004\000\000W\015\130\004\196\005X\004\003\008\190\017'\008H\005W\015R\008\180\017\175\011>\005D\015W\015\020\004\000:\159\017\001*\159\017\012\015M\004\214\011+\005\031\004*\000W\015&\015\020\004\000:CODE\205\017\005*\159\017\012\015M\004\214\011+\005\020\004\000UNUSED\235\017\006*\012\015\246\007\020\004\000NCHAR\002\018\005*M\004H\005M\004\031\004:\000\187\007\153\005-\018\031\0040\000\206\005\137\005I\018M\004\031\004a\000\187\007\153\005C\018\031\0047\000\206\005\137\005I\018\031\004W\000\206\005\020\004\000>NUMBER\018\018\007*M\004\017\005\031\004\000\000\003\008\179\018\018\018M\004\146\011>\005\187\007\130\004C\006y\005S\005\153\005\161\018\196\004\146\011>\005\230\005\031\004\000\000X\004d\004\146\011>\005\020\006\156\013d\004\031\004\000\000\156\013d\004\021\007\137\005\175\018\159\004'\008D\008\026\005X\004\206\005\020\004R\008c\018\026\005\159\004\031\004\000\000\020\004*\031\004\000\000\031\004\000\000\196\004\130\004H\005\031\004-\000o\006\153\005\240\018X\004\021\007X\004\031\007V\018\196\004\159\004\246\007\031\004\001\000\196\004\137\005\252\018V\018d\004\159\004\031\004\001\000s\004\020\004\000NUMBERV\018\006*\255\011>\005.\007\020\004\000SAVE-INPUT\008\019\010*s\011>\005\031\004\001\000\020\004\000RESTORE-INPUT\031\019\013*M\004\031\004\001\000o\006\153\005T\019\159\004s\011+\005I\011\137\005d\019\031\004\000\000\019\008b\019\159\004R\008\092\019V\011\020\004\000COUNT;\019\005*M\004\021\007X\004H\005\020\004\000CHARo\019\004*A\016\159\004H\005\020\004\000FILL\130\019\004*s\004M\004M\006\153\005\182\019\130\004\196\005X\004\003\008\178\019M\004'\0085\005R\008\168\019\137\005\184\019\170\004\159\004\020\004\000ERASE\147\019\005*\031\004\000\000\147\019\020\004\000(\197\019\129*\031\004)\000\171\016\170\004\020\004\000.(\211\019\130*\031\004)\000\171\016\021\014\020\004\000\092\228\019\129*\031\004\010\000\171\016\170\004\020\004\000THEN\244\019\132*\012\015X\004+\005\020\004\000BEGIN\007\020\133*\012\015\020\004\000FIND-WORD-DICO\025\020\014*X\004\017\005M\004\031\004\004\000\206\005B\014#\005o\006\153\005a\020\031\004\002\000\143\004#\005\175\014\153\005]\020\235\004\026\005\159\004\020\004\137\005c\020\159\004\031\004\003\000\206\005>\005M\004 \006\153\0055\020\235\004\026\005\159\004\020\004\000GET-WL-LATEST0\020\013*M\004\031\012>\005o\006\153\005\163\020\159\004\175\011>\005\137\005\165\020>\005\020\004\000FIND-WORD\140\020\009*w\012/\012>\005\184\006\196\005w\012\003\008\223\020'\008>\005\140\0200\020\004\005\153\005\215\020D\008\020\004\031\004\002\000l\008\197\020\031\004\000\000\020\004\000'\180\020\001*A\016\180\020\020\004\000POSTPONE\234\020\136*\234\020M\004\031\007H\005\031\004\128\000S\005\153\005\022\021D\015\137\005$\021\031\004\031\004D\015D\015\031\004D\015D\015\020\004\000LITERAL\253\020\135*\031\004\031\004D\015D\015\020\004\000NLITERAL1\021\136*M\004\017\005\031\004\000\000\003\008e\021\031\004\031\004D\015\031\004\000\000D\015R\008U\021\026\005\031\004\000\000\003\008\135\021\012\015\031\004\002\000\206\005'\008\031\004\004\000\230\005\206\005+\005R\008o\021\020\004\000DOES>H\021\005*\031\004A\004\175\011>\005\021\007+\005\026\005\175\011>\005\031\004\005\000\196\005+\005\020\004\000[']\146\021\131*\234\0201\021\020\004\000[COMPILE]\182\021\137*\234\020D\015\020\004\000;\202\021\129*\031\004\020\004D\015\175\011+\005\024\015\020\004\000CODE;\214\021\005*\031\004)\000W\015\175\011+\005\020\004\000[CHAR]\238\021\134*\130\0191\021\020\004\000CREATE\005\022\006*\159\017\012\015\175\011+\005\031\004*\000W\015\012\015\031\004\006\000\196\0051\021\031\004\020\004D\015\020\004\000VARIABLE\022\022\008*\022\022\031\004\002\0008\015\020\004\000CONSTANTC\022\008*\159\017\012\015\175\011+\005\031\004M\000W\015D\015\031\004!\000W\015\031\004)\000W\015\020\004\000MARKERZ\022\006*\012\015\159\017\012\015X\004\031\004*\000W\0151\021\175\011>\0051\021\031\004\002\014D\015\031\004\020\004D\015\175\011+\005\020\004\000IF\131\022\130*\031\004\153\005D\015\012\015\031\004\000\000D\015\020\004\000ELSE\178\022\132*\031\004\137\005D\015\012\015X\004\031\004\000\000D\015\012\015X\004+\005\020\004\000UNTIL\203\022\133*\031\004\153\005D\015D\015\020\004\000REPEAT\237\022\134*\031\004\137\005D\015D\015\012\015X\004+\005\020\004\000WHILE\002\023\133*\031\004\153\005D\015\012\015X\004\031\004\000\000D\015\020\004\000CASE\028\023\132*\031\004\000\000\020\004\000ENDCASE7\023\135*\031\004\159\004D\015M\0043\006\153\005b\023\012\015X\004+\005\137\005P\023\159\004\020\004\000OFI\023\130*\031\004\130\004D\015\031\004o\006D\015\031\004\153\005D\015\012\015\031\004\000\000D\015\031\004\159\004D\015\020\004\000ENDOFl\023\133*\031\004\137\005D\015\012\015\031\004\000\000D\015\012\015d\004+\005\020\004\000SLITERAL\152\023\136*\031\004,\004D\015M\004D\015\130\004\196\005X\004\019\008\218\023'\008H\005W\015R\008\208\023\020\004\000S\034\187\023\130*\031\004\034\000\171\016\187\023\020\004\000PAD\226\023\003*\012\015\031\004$\000\196\005\020\004\000VALUE\244\023\005*\159\017\012\015\175\011+\005\031\004M\000W\015D\015\031\004!\000W\015\031\004)\000W\015\020\004\000TO\008\024\130*A\016\180\020\021\007\160\011>\005\153\005H\0241\021\031\004+\005D\015\137\005J\024+\005\020\004\000COMPILE,-\024\008*D\015\020\004\000AGAINX\024\133*\031\004\137\005D\015D\015\020\004\000ABORTf\024\005*\152\006\131\029\020\004\000COMPILE-WORDz\024\012*\181\004\241\006\180\020\004\005\153\005\190\024\253\006\170\004M\004\031\007H\005\031\004\128\000S\005\153\005\184\024.\007\137\005\186\024D\015\137\005\242\024\009\007\008\019 \006\153\005\212\024\159\004\253\006\170\004H\021\137\005\242\024\159\004\031\004\000\000\019\008\228\024\159\004R\008\222\024\253\006\021\014u\014\031\004?\000\234\012z\024\020\004\000COUNT\145\024\005*M\004\021\007X\004H\005\020\004\000RECURSE\253\024\135*\214\011>\005D\015\020\004\000:NONAME\019\025\007*\012\015M\004\214\011+\005\031\004*\000W\015\175\011>\005&\015\020\004\000>BODY'\025\005*\031\004\007\000\196\005\020\004\000ENVIRONMENT?G\025\012*h\012>\0050\020M\004\153\005q\025.\007V\011\020\004\000D0=`\025\003*^\005 \006\020\004\000HOLDz\025\004*\012\015>\005\031\007M\004\012\015+\0055\005\020\004\000#\137\025\001*\146\011>\005\174\007d\004M\004\031\004\009\000\213\007\153\005\190\025\031\0047\000\196\005\137\005\196\025\031\0040\000\196\005\137\025\020\004\000#S\159\025\002*\159\025\181\004z\025\153\005\207\025\020\004\000.\034\206\025\130*\226\023\031\004\021\014D\015\020\004\000C\034\225\025\130*\031\004\034\000\171\016\031\004\137\005D\015\012\015\031\004\000\000D\015s\004\012\015s\004M\004W\015\130\004\196\005X\004\019\008%\026'\008H\005W\015R\008\027\026X\004\012\015X\004+\0051\021\020\004\000<#\242\025\002*\244\023\012\015+\005\020\004\000#>7\026\002*\170\004\012\015>\005\244\023\130\004\206\005\020\004\000SIGNF\026\004*C\006\153\005j\026\031\004-\000\137\025\020\004\000CONVERT]\026\007*\031\004\255\255V\018\159\004\020\004\000MOVEw\026\004*M\004 \006\153\005\153\026\159\004\170\004\020\004s\004\181\004\252\005\153\005\197\026d\004\031\004\000\000\003\008\193\026\130\004H\005\130\0045\005\021\007X\004\021\007X\004R\008\173\026\137\005\243\026\031\004\002\000\143\004\219\013\196\005s\004\196\005X\004d\004\031\004\000\000\003\008\243\026\031\007X\004\031\007X\004\130\004H\005\130\0045\005R\008\223\026\170\004\020\004\000.\138\026\001*M\004\017\005\233\013\031\004\000\0007\026;\011\137\025\206\025\026\005]\026F\026\021\014\020\004\000U.\252\026\002*\031\004\000\0007\026;\011\137\025\206\025F\026\021\014\020\004\000.R\031\027\002*\017\005M\004\017\005\233\013\031\004\000\0007\026;\011\137\025\206\025\026\005]\026F\026\026\005\130\004\206\005\136\014\021\014\020\004\000U.R8\027\003*\017\005\031\004\000\0007\026;\011\137\025\206\025F\026\026\005\130\004\206\005\136\014\021\014\020\004\000WITHINf\027\006*\130\004\206\005\017\005\206\005\026\005\241\005\020\004\000DO\141\027\130*\031\004\003\008D\015\012\015\031\004\000\000D\015\012\015\020\004\000?DO\162\027\131*\031\004\019\008D\015\012\015\031\004\000\000D\015\012\015\020\004\000LOOP\188\027\132*\031\004R\008D\015D\015\012\015X\004+\005\020\004\000+LOOP\215\027\133*\031\004l\008D\015D\015\012\015X\004+\005\020\004\000ACCEPT\241\027\006*,\004\006\000screen\196\008,\004\006\000screen\031\004\016\000\176\008M\004C\006\153\0059\028\159\004\146\008\137\005\025\028\131\013\219\013\031\004\016\000s\004\138\026\020\004\000EXPECT\012\028\006*\012\028\188\011+\005\020\004\000QUERYQ\028\005*\031\004\000\000s\011+\005\031\004\000\000\133\011+\005\239\011M\004\031\004P\000\012\028u\014g\011#\013\020\004\000REFILLc\028\006*\133\011>\005\153\005\159\028I\011\137\005\185\028\031\004\000\000s\011+\005\239\011M\004\031\004P\000\012\028u\014g\011#\013V\011\020\004\000INTERPRET-WORD\144\028\014*\181\004\241\006\180\020\004\005\153\005\228\028\253\006\170\004.\007\137\005\022\029\009\007\008\019 \006\153\005\248\028\170\004\253\006\170\004\137\005\022\029\159\004\031\004\000\000\019\008\008\029\159\004R\008\002\029\253\006\021\014u\014\031\004?\000\234\012z\024\020\004\000EVALUATE\205\028\008*M\013\241\006s\011>\005\017\005\133\011>\005\017\005\031\004\255\255\133\011+\005\031\004\000\000s\011+\005g\011#\013A\016\004\005\153\005e\029\160\011>\005\153\005_\029\145\024\137\005a\029\205\028\137\005I\029\159\004\026\005\133\011+\005\026\005s\011+\005\253\006g\011#\013\020\004\000QUIT$\029\004*\137\006c\014\144\028\153\005\192\029A\016\004\005\153\005\170\029\160\011>\005\153\005\164\029\145\024\137\005\166\029\205\028\137\005\142\029\159\004u\014\031\004O\000\234\012\031\004K\000\234\012c\014\137\005\136\029\020\004\000(abort\034)\131\029\008*d\004\153\005\217\029\021\014z\024\170\004\020\004\000ABORT\034\206\029\134*\226\023\031\004\206\029D\015\020\004\000DABS\231\029\004*M\004C\006\153\005\025\030\130\004\246\007d\004\153\005\021\030X\004y\005\137\005\025\030X\004\246\007\020\004\000D.\250\029\002*M\004\017\005\250\0297\026;\011\137\025\206\025\026\005]\026F\026\021\014\020\004\000SM/REM!\030\006*\130\004\017\005\181\004j\005\017\005\233\013\017\005\250\029\026\005\127\007\026\005C\006\153\005c\030\246\007X\004\026\005C\006\153\005o\030\246\007X\004\020\004\000OND\030\002*\215\008,\004\002\000on\227\008\020\004\000OFFy\030\003*\215\008,\004\003\000off\227\008\020\004\000IO@\141\030\003*\020\013\031\004\003\000\187\007\020\004\000LOADPKG\162\030\007*\031\004\000\000\031\004\030\0015\005A\016\031\004\026\001#\013\031\004\026\0016\013\215\008\031\004\030\001\031\004\001\000\227\008\031\004\030\001H\005\021\007\031\004\030\0015\005\031\004\026\0016\013\031\004\016\000\176\008\031\004\016\000H\005\153\005\013\031\031\004\016\000X\004$\029\137\005\203\030\159\004\020\004\000FORMSPEC-BUFFER\184\030\015M\000\240!)\000TAG-END$\031\007M\000\000!)\000TAG-LIST4\031\008M\001\000!)\000IS-ADDR-LISTE\031\012*M\004\017\005>\005\031\004\003\000\143\004o\006\153\005\197\031\031\004\003\000\143\004#\005\031\004\002\000\196\005#\005>\005\175\014\153\005\189\031#\005>\005\026\005\196\005\031\004\002\000\196\005M\004\017\005>\005\130\004o\006\153\005\181\031\130\004#\005\031\004\002\000\196\005#\005>\005\175\014\137\005\185\031\031\004\000\000\137\005\193\031\031\004\000\000\137\005\201\031\031\004\000\000\026\005\159\004\020\004\000GET-LIST-ADDRZ\031\013*\017\005#\005H\005\153\005/ #\005#\005\021\007>\005#\005H\005X\004\017\005E\031o\006\153\005# \031\004\004\000\196\005Z\031\153\005# \026\005\159\004\159\004\159\004\159\004\159\004\026\005\031\004\255\255\020\004\026\005\026\005\159\004\017\005\137\005\227\031\026\005\159\004\159\004\159\004\159\004\159\004\031\004\000\000\020\004\000GET-ELEM-ID\224\031\011*\031\004\003\000\196\005H\005\020\004\000GET-LIST-IDP \011*\224\031\153\005w P \137\005{ \031\004\255\255\020\004\000GET-INV-IDj \010*\017\005,\004\014\000current_player,\004\004\000main\026\005j \020\004\000GET-CRAFT-ID\139 \012*\017\005,\004\014\000current_player,\004\005\000craft\026\005j \020\004\000GET-CRAFT-OUTPUT-ID\190 \019*\017\005,\004\014\000current_player,\004\012\000craftpreview\026\005j \020\004\000MOVE-ITEM\249 \009*\031\004\254\255+\005\031\004\252\255+\005\031\004\249\2555\005\031\004\250\255+\005\031\004\248\2555\005\031\004\248\255\247\009\020\004\000GET-CURRENT1!\011*\031\012>\005\020\004\000SET-CURRENTg!\011*\175\011>\005\031\012>\005+\005M\004\031\012+\005>\005\175\011+\005\020\004\000WORDLIST}!\008*\020\012>\005M\004\171\012\020\012+\005\020\004\000DEFINITIONS\162!\011*w\012>\005}!\020\004\000GET-ORDER\192!\009*w\012/\012>\005\031\007\184\006\196\005\019\008\243!'\008>\005\031\004\254\255l\008\231!/\012>\005\020\004\000SET-ORDER\214!\009*M\004/\012+\005w\012\031\004\000\000\019\008!\034\219\013+\005\171\012R\008\023\034\159\004\020\004\000ALSO\006\034\004*w\012M\004\171\012/\012>\005\184\006\138\026/\012\031\004\002\000\217\005\020\004\000FORTH-\034\005*X\012w\012+\005\020\004\000ONLYO\034\004*O\034\031\004\001\000/\012+\005\020\004\000ORDER`\034\005*w\012/\012>\005\184\006\196\005w\012\003\008\149\034'\008>\005\252\026\031\004\002\000l\008\135\034c\014\031\012>\005\020\004\000PREVIOUSv\034\008*w\012\171\012w\012/\012>\005\031\007\184\006\138\026/\012\031\004\254\255\217\005\020\004\000SEARCH-WORDLIST\169\034\015*\140\0200\020M\004\153\005\254\034M\004\031\007H\005\031\004\128\000S\005\153\005\250\034\031\004\001\000\137\005\254\034\031\004\255\255\020\004\000FIND\215\034\004*M\004\253\024w\012/\012>\005\184\006\196\005w\012\003\008?#\181\004'\008>\005\215\034\004\005\153\0057#\241\006\170\004\159\004\253\006D\008\020\004\031\004\002\000l\008\029#\170\004\031\004\000\000\020\004\000DUMP\008#\004*\215\008\031\004\000\001\031\004\000\000\003\008\130#'\008\031\004@\000\230\005\244\023\021\007\031\004@\000\138\026'\008\244\0235\005\244\023\031\004A\000\227\008R\008^#\020\004\000SAVE-STATEO#\010*,\004\004\000bootO#\020\004\000COLD\146#\004*,\004\019\000Computer is ready (\021\014\002\018\031\027,\004\011\000bytes free)\021\014\131\029\020\004"..string.rep(string.char(0),7206)..""
end