turtle/forth_floppy.lua

function create_forth_floppy()
	return ""..string.rep(string.char(0),264).."\010\000\000\000a#\000\000\000\000\148#"..string.rep(string.char(0),140).."\171\018\180\001\176\001\001"..string.rep(string.char(0),9).."a#\030\011"..string.rep(string.char(0),28).."\176\001"..string.rep(string.char(0),558).."M\000\002\024M\000\003\025Ma#\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/COUNTED-STRING\000\000\015M\000\001!)\000/HOLD\251\009\005M\034\000!)\000/PAD\009\010\004MT\000!)\000ADRESS-UNIT-BITS\022\010\016M\008\000!)\000CORE/\010\004M\255\255!)\000CORE-EXT<\010\008M\255\255!)\000FLOOREDM\010\007M\255\255!)\000MAX-CHAR]\010\008M\255\000!)\000MAX-Nn\010\005M\255\127!)\000MAX-U|\010\005M\255\255!)\000RETURN-STACK-CELLS\138\010\018M\128\000!)\000STACK-CELLS\165\010\011M\128\000!)\000MAX-UD\185\010\006M\255\255!M\255\255!)\000MAX-D\200\010\005M\255\255!M\255\127!)\000SEARCH-ORDER\218\010\012M\255\255!)\000SEARCH-ORDER-EXT\243\010\016M\255\255!)\000WORDLISTS\012\011\009M\008\000!)\000BL\227\009\002M \000!)\000FALSE)\011\005M\000\000!)\000TRUE7\011\004M\255\255!)\000(source)D\011\008M\000\001!)\000>INU\011\003M\004\001!)\000SOURCE-IDa\011\009M\006\001!)\000BASEs\011\004M\008\001!)\000STATE\128\011\005M\010\001!)\000LATEST\142\011\006M\012\001!)\000SPAN\157\011\004M\016\001!)\000(here)\170\011\006M\018\001!)\000LT\185\011\002M\020\001!)\000#TIB\196\011\004M\022\001!)\000TIB\209\011\003M\024\001!)\000'NUMBER\221\011\007M\160\001!)\000NEW-WORDLIST\237\011\012M\162\001!)\000CW\002\012\002M\164\001!)\000NWORDER\013\012\007M\166\001!)\000WORDLISTS\029\012\009M\176\001!)\000FORTH-WORDLIST/\012\014M\176\001!)\000ENVDICOF\012\007M\178\001!)\000WORDERV\012\006M\208\001!)\000CHARSe\012\133*\020\004\000ALIGNs\012\133*\020\004\000ALIGNED\127\012\135*\020\004\000CELL+\141\012\005*\031\004\002\000\196\005\020\004\000CELL-\153\012\005*\031\004\002\000\206\005\020\004\000CHAR+\171\012\005*\021\007\020\004\000CELLS\189\012\005*\184\006\020\004\000EMIT\203\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\216\012\007*\031\004\128\000\176\008\020\004\0002!\002\013\002*X\004\130\004+\005\153\012+\005\020\004\0002@\017\013\002*M\004\153\012>\005X\004>\005\020\004\000SOURCE$\013\006*U\011$\013\020\004\000S>D;\013\003*M\004C\006\020\004\000MAXI\013\003*\181\004\213\007\153\005f\013\159\004\137\005h\013\235\004\020\004\000MINW\013\003*\181\004\213\007\153\005\128\013\235\004\137\005\130\013\159\004\020\004\000D+q\013\002*d\004\196\005s\004\157\007d\004\196\005\020\004\000HEX\138\013\003*\031\004\016\000\128\011+\005\020\004\000DECIMAL\160\013\007*\031\004\010\000\128\011+\005\020\004\000TUCK\182\013\004*X\004\130\004\020\004\000ABS\201\013\003*M\004C\006\153\005\226\013\246\007\020\004\000(marker)\215\013\008*\157\011+\005\185\011+\005\020\004\000TYPE\240\013\004*M\004M\006\153\005$\014\130\004\196\005X\004\019\008 \014'\008H\005\216\012R\008\022\014\137\005&\014\170\004\020\004\000RSTR\003\014\004*\021\007M\004\031\004\002\000\196\005H\005\031\004\127\000S\005\201\013\206\005X\004\020\004\000CR0\014\002*\031\004\010\000\216\012\020\004\000SPACEQ\014\005*\031\004 \000\216\012\020\004\000SPACESc\014\006*M\004M\006\153\005\145\014\031\004\000\000\003\008\141\014c\014R\008\135\014\137\005\147\014\159\004\020\004\000STR=v\014\004*\031\004\000\000\003\008\200\014\130\004H\005\130\004H\005]\006\153\005\188\014D\008\170\0047\011\020\004X\004\021\007X\004\021\007R\008\166\014\170\004D\011\020\004\000IMMEDIATE\157\014\009*\157\011>\005\031\007M\004H\005\031\004\128\000^\005X\0045\005\020\004\000HERE\219\014\004*\185\011>\005\020\004\000[\250\014\129*7\011\142\011+\005\020\004\000]\006\015\001*D\011\142\011+\005\020\004\000ALLOT\020\015\005*\185\011\217\005\020\004\000,&\015\001*\250\014+\005\031\004\002\000&\015\020\004\000C,2\015\002*\250\0145\005\031\004\001\000&\015\020\004\000SKIP-WHITEE\015\010*M\004H\005\031\004!\000\187\007\153\005\127\015\021\007\181\004o\006\153\005{\015\020\004\137\005a\015\020\004\000EXIT-IF-END`\015\011*;\013\235\004a\011>\005o\006\153\005\171\015;\013\196\005\031\004\000\000\026\005\159\004\020\004\000PARSE-LIMITS\144\015\012*;\013\130\004\196\005X\004a\011>\005\196\005\020\004\000>IN-END\189\015\007*;\013\235\004a\011+\005\020\004\000COUNTED-STRING\217\015\014*M\004\250\0145\005\250\014\021\007s\004\130\004\196\005X\004\003\008\027\016'\008H\005\130\0045\005\021\007R\008\013\016\159\004\250\014\020\004\000PARSE-WORD\246\015\010*\144\015\189\015`\015\181\004o\006\153\005H\016\217\015\159\004\031\004\000\000\020\004M\004\017\005M\004H\005\031\004 \000\213\007\153\005v\016\021\007\181\004o\006\153\005r\016\217\015\159\004#\005\206\005\026\005X\004\020\004\137\005L\016\235\004M\004;\013\159\004\206\005\021\007a\011+\005#\005\206\005\026\005X\004\020\004\000PARSE/\016\005*;\013\235\004a\011>\005o\006\153\005\180\016\159\004;\013\196\005\031\004\000\000\020\004\189\015M\004\017\005d\004\017\005M\004H\005#\005]\006\153\005\234\016\021\007\181\004o\006\153\005\230\016\026\005\159\004\217\015\159\004#\005\206\005\026\005X\004\020\004\137\005\190\016\026\005\159\004\235\004M\004;\013\159\004\206\005\021\007a\011+\005#\005\206\005\026\005X\004\020\004\000WORD\153\016\004*;\013\235\004a\011>\005o\006\153\005-\017\159\004\031\004\000\000\250\0145\005\250\014\020\004\189\015M\004\017\005d\004\017\005M\004H\005#\005]\006\153\005c\017\021\007\181\004o\006\153\005_\017\026\005\159\004\217\015\159\004#\005\206\005\026\005X\004\020\004\137\0057\017\026\005\159\004\235\004M\004;\013\159\004\206\005\021\007a\011+\005#\005\206\005\026\005X\004\246\015\020\004\000HEADER\016\017\006*/\016\201\013\031\004\000\000E\015\130\004\196\005X\004\003\008\172\017'\008H\005E\015R\008\162\017\157\011>\0052\015E\015\020\004\000:\141\017\001*\141\017\250\014M\004\196\011+\005\031\004*\000E\015\020\015\020\004\000:CODE\187\017\005*\141\017\250\014M\004\196\011+\005\020\004\000UNUSED\217\017\006*\250\014\246\007\020\004\000NCHAR\240\017\005*M\004H\005M\004\031\004:\000\187\007\153\005\027\018\031\0040\000\206\005\137\0057\018M\004\031\004a\000\187\007\153\0051\018\031\0047\000\206\005\137\0057\018\031\004W\000\206\005\020\004\000>NUMBER\000\018\007*M\004\017\005\031\004\000\000\003\008\161\018\000\018M\004\128\011>\005\187\007\130\004C\006y\005S\005\153\005\143\018\196\004\128\011>\005\230\005\031\004\000\000X\004d\004\128\011>\005\020\006\138\013d\004\031\004\000\000\138\013d\004\021\007\137\005\157\018\159\004'\008D\008\026\005X\004\206\005\020\004R\008Q\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\222\018X\004\021\007X\004\031\007D\018\196\004\159\004\246\007\031\004\001\000\196\004\137\005\234\018D\018d\004\159\004\031\004\001\000s\004\020\004\000NUMBERD\018\006*\237\011>\005.\007\020\004\000SAVE-INPUT\246\018\010*a\011>\005\031\004\001\000\020\004\000RESTORE-INPUT\013\019\013*M\004\031\004\001\000o\006\153\005B\019\159\004a\011+\0057\011\137\005R\019\031\004\000\000\019\008P\019\159\004R\008J\019D\011\020\004\000COUNT)\019\005*M\004\021\007X\004H\005\020\004\000CHAR]\019\004*/\016\159\004H\005\020\004\000FILLp\019\004*s\004M\004M\006\153\005\164\019\130\004\196\005X\004\003\008\160\019M\004'\0085\005R\008\150\019\137\005\166\019\170\004\159\004\020\004\000ERASE\129\019\005*\031\004\000\000\129\019\020\004\000(\179\019\129*\031\004)\000\153\016\170\004\020\004\000.(\193\019\130*\031\004)\000\153\016\003\014\020\004\000\092\210\019\129*\031\004\010\000\153\016\170\004\020\004\000THEN\226\019\132*\250\014X\004+\005\020\004\000BEGIN\245\019\133*\250\014\020\004\000FIND-WORD-DICO\007\020\014*X\004\017\005M\004\031\004\004\000\206\0050\014#\005o\006\153\005O\020\031\004\002\000\143\004#\005\157\014\153\005K\020\235\004\026\005\159\004\020\004\137\005Q\020\159\004\031\004\003\000\206\005>\005M\004 \006\153\005#\020\235\004\026\005\159\004\020\004\000GET-WL-LATEST\030\020\013*M\004\013\012>\005o\006\153\005\145\020\159\004\157\011>\005\137\005\147\020>\005\020\004\000FIND-WORDz\020\009*e\012\029\012>\005\184\006\196\005e\012\003\008\205\020'\008>\005z\020\030\020\004\005\153\005\197\020D\008\020\004\031\004\002\000l\008\179\020\031\004\000\000\020\004\000'\162\020\001*/\016\162\020\020\004\000POSTPONE\216\020\136*\216\020M\004\031\007H\005\031\004\128\000S\005\153\005\004\0212\015\137\005\018\021\031\004\031\0042\0152\015\031\0042\0152\015\020\004\000LITERAL\235\020\135*\031\004\031\0042\0152\015\020\004\000NLITERAL\031\021\136*M\004\017\005\031\004\000\000\003\008S\021\031\004\031\0042\015\031\004\000\0002\015R\008C\021\026\005\031\004\000\000\003\008u\021\250\014\031\004\002\000\206\005'\008\031\004\004\000\230\005\206\005+\005R\008]\021\020\004\000DOES>6\021\005*\031\004A\004\157\011>\005\021\007+\005\026\005\157\011>\005\031\004\005\000\196\005+\005\020\004\000[']\128\021\131*\216\020\031\021\020\004\000[COMPILE]\164\021\137*\216\0202\015\020\004\000;\184\021\129*\031\004\020\0042\015\157\011+\005\006\015\020\004\000CODE;\196\021\005*\031\004)\000E\015\157\011+\005\020\004\000[CHAR]\220\021\134*p\019\031\021\020\004\000CREATE\243\021\006*\141\017\250\014\157\011+\005\031\004*\000E\015\250\014\031\004\006\000\196\005\031\021\031\004\020\0042\015\020\004\000VARIABLE\004\022\008*\004\022\031\004\002\000&\015\020\004\000CONSTANT1\022\008*\141\017\250\014\157\011+\005\031\004M\000E\0152\015\031\004!\000E\015\031\004)\000E\015\020\004\000MARKERH\022\006*\250\014\141\017\250\014X\004\031\004*\000E\015\031\021\157\011>\005\031\021\031\004\240\0132\015\031\004\020\0042\015\157\011+\005\020\004\000IFq\022\130*\031\004\153\0052\015\250\014\031\004\000\0002\015\020\004\000ELSE\160\022\132*\031\004\137\0052\015\250\014X\004\031\004\000\0002\015\250\014X\004+\005\020\004\000UNTIL\185\022\133*\031\004\153\0052\0152\015\020\004\000REPEAT\219\022\134*\031\004\137\0052\0152\015\250\014X\004+\005\020\004\000WHILE\240\022\133*\031\004\153\0052\015\250\014X\004\031\004\000\0002\015\020\004\000CASE\010\023\132*\031\004\000\000\020\004\000ENDCASE%\023\135*\031\004\159\0042\015M\0043\006\153\005P\023\250\014X\004+\005\137\005>\023\159\004\020\004\000OF7\023\130*\031\004\130\0042\015\031\004o\0062\015\031\004\153\0052\015\250\014\031\004\000\0002\015\031\004\159\0042\015\020\004\000ENDOFZ\023\133*\031\004\137\0052\015\250\014\031\004\000\0002\015\250\014d\004+\005\020\004\000SLITERAL\134\023\136*\031\004,\0042\015M\0042\015\130\004\196\005X\004\019\008\200\023'\008H\005E\015R\008\190\023\020\004\000S\034\169\023\130*\031\004\034\000\153\016\169\023\020\004\000PAD\208\023\003*\250\014\031\004$\000\196\005\020\004\000VALUE\226\023\005*\141\017\250\014\157\011+\005\031\004M\000E\0152\015\031\004!\000E\015\031\004)\000E\015\020\004\000TO\246\023\130*/\016\162\020\021\007\142\011>\005\153\0056\024\031\021\031\004+\0052\015\137\0058\024+\005\020\004\000COMPILE,\027\024\008*2\015\020\004\000AGAINF\024\133*\031\004\137\0052\0152\015\020\004\000ABORTT\024\005*\152\006q\029\020\004\000COMPILE-WORDh\024\012*\181\004\241\006\162\020\004\005\153\005\172\024\253\006\170\004M\004\031\007H\005\031\004\128\000S\005\153\005\166\024.\007\137\005\168\0242\015\137\005\224\024\009\007\246\018 \006\153\005\194\024\159\004\253\006\170\0046\021\137\005\224\024\159\004\031\004\000\000\019\008\210\024\159\004R\008\204\024\253\006\003\014c\014\031\004?\000\216\012h\024\020\004\000COUNT\127\024\005*M\004\021\007X\004H\005\020\004\000RECURSE\235\024\135*\196\011>\0052\015\020\004\000:NONAME\001\025\007*\250\014M\004\196\011+\005\031\004*\000E\015\157\011>\005\020\015\020\004\000>BODY\021\025\005*\031\004\007\000\196\005\020\004\000ENVIRONMENT?5\025\012*V\012>\005\030\020M\004\153\005_\025.\007D\011\020\004\000D0=N\025\003*^\005 \006\020\004\000HOLDh\025\004*\250\014>\005\031\007M\004\250\014+\0055\005\020\004\000#w\025\001*\128\011>\005\174\007d\004M\004\031\004\009\000\213\007\153\005\172\025\031\0047\000\196\005\137\005\178\025\031\0040\000\196\005w\025\020\004\000#S\141\025\002*\141\025\181\004h\025\153\005\189\025\020\004\000.\034\188\025\130*\208\023\031\004\003\0142\015\020\004\000C\034\207\025\130*\031\004\034\000\153\016\031\004\137\0052\015\250\014\031\004\000\0002\015s\004\250\014s\004M\004E\015\130\004\196\005X\004\019\008\019\026'\008H\005E\015R\008\009\026X\004\250\014X\004+\005\031\021\020\004\000<#\224\025\002*\226\023\250\014+\005\020\004\000#>%\026\002*\170\004\250\014>\005\226\023\130\004\206\005\020\004\000SIGN4\026\004*C\006\153\005X\026\031\004-\000w\025\020\004\000CONVERTK\026\007*\031\004\255\255D\018\159\004\020\004\000MOVEe\026\004*M\004 \006\153\005\135\026\159\004\170\004\020\004s\004\181\004\252\005\153\005\179\026d\004\031\004\000\000\003\008\175\026\130\004H\005\130\0045\005\021\007X\004\021\007X\004R\008\155\026\137\005\225\026\031\004\002\000\143\004\201\013\196\005s\004\196\005X\004d\004\031\004\000\000\003\008\225\026\031\007X\004\031\007X\004\130\004H\005\130\0045\005R\008\205\026\170\004\020\004\000.x\026\001*M\004\017\005\215\013\031\004\000\000%\026)\011w\025\188\025\026\005K\0264\026\003\014\020\004\000U.\234\026\002*\031\004\000\000%\026)\011w\025\188\0254\026\003\014\020\004\000.R\013\027\002*\017\005M\004\017\005\215\013\031\004\000\000%\026)\011w\025\188\025\026\005K\0264\026\026\005\130\004\206\005v\014\003\014\020\004\000U.R&\027\003*\017\005\031\004\000\000%\026)\011w\025\188\0254\026\026\005\130\004\206\005v\014\003\014\020\004\000WITHINT\027\006*\130\004\206\005\017\005\206\005\026\005\241\005\020\004\000DO{\027\130*\031\004\003\0082\015\250\014\031\004\000\0002\015\250\014\020\004\000?DO\144\027\131*\031\004\019\0082\015\250\014\031\004\000\0002\015\250\014\020\004\000LOOP\170\027\132*\031\004R\0082\0152\015\250\014X\004+\005\020\004\000+LOOP\197\027\133*\031\004l\0082\0152\015\250\014X\004+\005\020\004\000ACCEPT\223\027\006*,\004\006\000screen\196\008,\004\006\000screen\031\004\016\000\176\008M\004C\006\153\005'\028\159\004\146\008\137\005\007\028q\013\201\013\031\004\016\000s\004x\026\020\004\000EXPECT\250\027\006*\250\027\170\011+\005\020\004\000QUERY?\028\005*\031\004\000\000a\011+\005\031\004\000\000s\011+\005\221\011M\004\031\004P\000\250\027c\014U\011\017\013\020\004\000REFILLQ\028\006*s\011>\005\153\005\141\0287\011\137\005\167\028\031\004\000\000a\011+\005\221\011M\004\031\004P\000\250\027c\014U\011\017\013D\011\020\004\000INTERPRET-WORD~\028\014*\181\004\241\006\162\020\004\005\153\005\210\028\253\006\170\004.\007\137\005\004\029\009\007\246\018 \006\153\005\230\028\170\004\253\006\170\004\137\005\004\029\159\004\031\004\000\000\019\008\246\028\159\004R\008\240\028\253\006\003\014c\014\031\004?\000\216\012h\024\020\004\000EVALUATE\187\028\008*;\013\241\006a\011>\005\017\005s\011>\005\017\005\031\004\255\255s\011+\005\031\004\000\000a\011+\005U\011\017\013/\016\004\005\153\005S\029\142\011>\005\153\005M\029\127\024\137\005O\029\187\028\137\0057\029\159\004\026\005s\011+\005\026\005a\011+\005\253\006U\011\017\013\020\004\000QUIT\018\029\004*\137\006Q\014~\028\153\005\174\029/\016\004\005\153\005\152\029\142\011>\005\153\005\146\029\127\024\137\005\148\029\187\028\137\005|\029\159\004c\014\031\004O\000\216\012\031\004K\000\216\012Q\014\137\005v\029\020\004\000(abort\034)q\029\008*d\004\153\005\199\029\003\014h\024\170\004\020\004\000ABORT\034\188\029\134*\208\023\031\004\188\0292\015\020\004\000DABS\213\029\004*M\004C\006\153\005\007\030\130\004\246\007d\004\153\005\003\030X\004y\005\137\005\007\030X\004\246\007\020\004\000D.\232\029\002*M\004\017\005\232\029%\026)\011w\025\188\025\026\005K\0264\026\003\014\020\004\000SM/REM\015\030\006*\130\004\017\005\181\004j\005\017\005\215\013\017\005\232\029\026\005\127\007\026\005C\006\153\005Q\030\246\007X\004\026\005C\006\153\005]\030\246\007X\004\020\004\000ON2\030\002*\215\008,\004\002\000on\227\008\020\004\000OFFg\030\003*\215\008,\004\003\000off\227\008\020\004\000IO@{\030\003*\002\013\031\004\003\000\187\007\020\004\000LOADPKG\144\030\007*\031\004\000\000\031\004\030\0015\005/\016\031\004\026\001\017\013\031\004\026\001$\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\001$\013\031\004\016\000\176\008\031\004\016\000H\005\153\005\251\030\031\004\016\000X\004\018\029\137\005\185\030\159\004\020\004\000FORMSPEC-BUFFER\166\030\015M\000\240!)\000TAG-END\018\031\007M\000\000!)\000TAG-LIST\034\031\008M\001\000!)\000IS-ADDR-LIST3\031\012*M\004\017\005>\005\031\004\003\000\143\004o\006\153\005\179\031\031\004\003\000\143\004#\005\031\004\002\000\196\005#\005>\005\157\014\153\005\171\031#\005>\005\026\005\196\005\031\004\002\000\196\005M\004\017\005>\005\130\004o\006\153\005\163\031\130\004#\005\031\004\002\000\196\005#\005>\005\157\014\137\005\167\031\031\004\000\000\137\005\175\031\031\004\000\000\137\005\183\031\031\004\000\000\026\005\159\004\020\004\000GET-LIST-ADDRH\031\013*\017\005#\005H\005\153\005\029 #\005#\005\021\007>\005#\005H\005X\004\017\0053\031o\006\153\005\017 \031\004\004\000\196\005H\031\153\005\017 \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\209\031\026\005\159\004\159\004\159\004\159\004\159\004\031\004\000\000\020\004\000GET-ELEM-ID\206\031\011*\031\004\003\000\196\005H\005\020\004\000GET-LIST-ID> \011*\206\031\153\005e > \137\005i \031\004\255\255\020\004\000GET-INV-IDX \010*\017\005,\004\014\000current_player,\004\004\000main\026\005X \020\004\000GET-CRAFT-IDy \012*\017\005,\004\014\000current_player,\004\005\000craft\026\005X \020\004\000GET-CRAFT-OUTPUT-ID\172 \019*\017\005,\004\014\000current_player,\004\012\000craftpreview\026\005X \020\004\000GET-CURRENT\231 \011*\013\012>\005\020\004\000SET-CURRENT!!\011*\157\011>\005\013\012>\005+\005M\004\013\012+\005>\005\157\011+\005\020\004\000WORDLIST7!\008*\002\012>\005M\004\153\012\002\012+\005\020\004\000DEFINITIONS\092!\011*e\012>\0057!\020\004\000GET-ORDERz!\009*e\012\029\012>\005\031\007\184\006\196\005\019\008\173!'\008>\005\031\004\254\255l\008\161!\029\012>\005\020\004\000SET-ORDER\144!\009*M\004\029\012+\005e\012\031\004\000\000\019\008\219!\201\013+\005\153\012R\008\209!\159\004\020\004\000ALSO\192!\004*e\012M\004\153\012\029\012>\005\184\006x\026\029\012\031\004\002\000\217\005\020\004\000FORTH\231!\005*F\012e\012+\005\020\004\000ONLY\009\034\004*\009\034\031\004\001\000\029\012+\005\020\004\000ORDER\026\034\005*e\012\029\012>\005\184\006\196\005e\012\003\008O\034'\008>\005\234\026\031\004\002\000l\008A\034Q\014\013\012>\005\020\004\000PREVIOUS0\034\008*e\012\153\012e\012\029\012>\005\031\007\184\006x\026\029\012\031\004\254\255\217\005\020\004\000SEARCH-WORDLISTc\034\015*z\020\030\020M\004\153\005\184\034M\004\031\007H\005\031\004\128\000S\005\153\005\180\034\031\004\001\000\137\005\184\034\031\004\255\255\020\004\000FIND\145\034\004*M\004\235\024e\012\029\012>\005\184\006\196\005e\012\003\008\249\034\181\004'\008>\005\145\034\004\005\153\005\241\034\241\006\170\004\159\004\253\006D\008\020\004\031\004\002\000l\008\215\034\170\004\031\004\000\000\020\004\000DUMP\194\034\004*\215\008\031\004\000\001\031\004\000\000\003\008<#'\008\031\004@\000\230\005\226\023\021\007\031\004@\000x\026'\008\226\0235\005\226\023\031\004A\000\227\008R\008\024#\020\004\000SAVE-STATE\009#\010*,\004\004\000boot\009#\020\004\000COLDL#\004*,\004\019\000Computer is ready (\003\014\240\017\013\027,\004\011\000bytes free)\003\014q\029\020\004"..string.rep(string.char(0),7276)..""
end