Þ code 50 Þ buff 25 Þ filename 40 -Þ fth 38900 !2$filename=":ram.1/forth.cde " xã pass=0 ¸ 2 ˆ 2 ‚P%=code Œ[OPT pass –LD HL,0  ADD HL,SP ªLD SP,(&1FFE) ´PUSH HL ¾Ö main LPOP HL VLD SP,HL `RET j\ t.main ~LD HL,filename ˆLD DE,buff ’LD BC,20 œLD A,1 ¦RST &20:ÝW &6009 °LD BC,4263 ºLD DE,10000 ÄLD HL,0 ÎRST &20 : ÝB &45 ØRST &20: ÝB &09 : ÝB &62 âLD A,6 ìRST &20 : ÝB &6F  RET ] í pass (Ö code 2Ö 10000 <à ÿÿ