FOeRTHchen                                                      Author: Helmar Wodtke 2005                                                                                                      This is a slightly modified version of Helmar's FOeRTHchen      forth-like language designed to run inside RetroForth.                                                                          This has been released into the public domain.                                                                                  : hexd dup 1+ swap c@ 32 or '0 - dup 9 >if 39 - then  ;         : hexb hexd 4 << >r hexd r> or 1, ;                                                                                                                                                                                                                                                                                                                                                             n e                                                             loc:                                                               : prelude 32 parse 1 >> ;                                       : cond 1- >r hexb r> ;                                          : middle repeat dup 0 <>if cond [ swap ] again ;; then ;        here ] prelude middle drop ;                                 ;loc alias hex:                                                                                                                 n e                                                             create foercode                                                 hex: 60b825020000e8000000005a83ea0b8db2751b00008dba750700008d4a hex: 72895c02e08d1c028953ec8d82c50200008943f48d829c0100008943f8 hex: 8d42528943fc8d426a89038963dc897bf083c7285151eb6f51b9e8ffff hex: ff5553525789da8b5ae0ff140a5f5a5b5d59c351b9e4ffffffebe68b63 hex: dc61c392adffd2eb448f035deb3eb03fff53fceb38e86300000009c074 hex: eb8b53f483ea0639da72e6390275f531c0668b4204663d75079c0343ec n e                                                             hex: 9d72c655ff33958b53ec81c20b0100008913adff1309c074b63c2172f5 hex: 3c3072ba3c3a73b62c30ff1391ad80e93072e331d2b20af7e201c8ebed hex: ff133c217303adebf7b108ff1392ad80fa21720e80f92074f2d3e209d0 hex: 80c108ebe9c3ff53f831c0807d003b74048a450045c331c9578d790a31 hex: d2f7f7524109c075f6adff53f8580430ff53fce2f55fc3ff53f88d5304 hex: 87d631c9b104ac3c00740d87d6ff53f8ff53fc87d6e2ef41e1ec87d6ff hex: 53f8b020ff53fc87d646463b73f472d587d6adc3578b7bf4e86fffffff n e                                                             hex: ab5a89d02b43ec66ab897bf489d7adff13aa3c3b75f8adc3ff133c2274 hex: f8ff53fcebf583ee048906c38706c35950adffe159ff53f858ffe192ad hex: 01d0c3f72683c604c32306ebf80b06ebf43306ebf0870631d2f7368906 hex: 92c3ff133c29ad75f9c309c0ad74f3c392ad39c2ad73ebc3ff53f883c8 hex: ffc38b53f08b0482c38b53f08d1482ad8902adc3000000000000000000 hex: 000000000000000000000075070000c50200009c010000520000006a00 hex: 0000656d69745200282e29001b01627965007200776f726439013a0000 n e                                                             hex: 0070012e2200009101647570009c0164726f708f0173776170a2013e72 hex: 0000a501723e0000aa012b000000b1012a000000b6012f6d6f64c80161 hex: 6e6400bc016f720000c001786f7200c40128000000d20169662800da01 hex: 3e696628e00129656c73d201656c7328df0129000000df012d310000e8 hex: 0140000000ef0121000000f601                                                                                                                                                                 n e                                                             6720 allot                                                      decimal                                                         : foerCCT foercode dup 2 + @ + ;                                ' emit foerCCT -6 cells + !                                     ' key  foerCCT -7 cells + !                                     : foerthchen foercode execute ." <--foerthchen done." cr ;                                                                                                                                      