*58/WWWW8/U/X* WW31W? ;? o g^#VENCLOSV{+#^45q?#ʁ45q??DIGIJ{0  _!=l>TOGGLŇ~w?(FIND?#!_!=^#Vz!>6a!zl+=SPXw!9>SPo*&^#V?RP~*&^#V"(?2DUЕ=LIԮ o g>BRANCȾ`i^#V+MD?0BRANC}?;*(N#F#"(?(+LOOP2(DO**(++++"(s#r#s#r?USE!j.[^*&>S@MRYMTIbM WIDTkM FENCuMDЁMVOC-LINˍMOUԖMFLĥM:OFFSEԯMRM.CSM,HLM0DPM(+ORIGIjOLATESj8TRAVERSjOpPFjO(;CODE;jt Ab!CSQjuWHAmjt} ? SMUDG~j  ?COMОjD COMPILE ONLYDLITERA̳jD(."j|!XtO^M/MOj^|!t^tB6 D+4j+=jMOj^^C|!<t|!LTtTD.`j^C1tb~Djm2DROЯjMjL^<<tC#BUF6SEC/BL6B/SC6FIRS6WLIMI6`USWPRE)WSE3TRAC>DRIVHDISK-ERROTDENSIT`B/BUq6*͋͋ ͋ ͋ͤ!~Kͭ͒!,>͛_! ~wk&>ʹ? iʹ iʹ??TERMINA!PEMI!Mʹ?SET-I6*1DM!͋*FM͋*RDM͋?SET-DRIV+i:^O͋?SEC-REA[$͋2o?SEC-WRITx'͋2o?+BUƓjOO%:bDRjR/j/^S/(c4X/-t/(LINEj^@ct SOLO@.LIN8jA{I_x*(^#V?NUMBEqjX-^O9b..btj*    b'* ttU/MOĹ!9^q#Vp}|!E>))%4}o|g?}o|g? =?Q>}o|gɁKdW>^rz|W$%!>!>0l)!ҝ#>jpNOԠ}!¾#>0jNEGAT}/o|/g#>DNEGATї_>W>o>g=D !9^q#Vp}o|g=AN){ozg>O!;{ozg>XO4N{ozg>>F`*(++"(s#r?RYv*(^#V#"(?EXECUToESWAЄ>OVEҔ=DROТ?DUб>ROԾ=^#V?s#r?Cn&>C s?+~w#~w?CONSTANj0[ͨVARIABL#j0 =jt8*0[*(+p+q"(KB?Rj DOESzj [ *(+p+q"(?VOCABULARٌj08 bt[ͨe*FORTȸ8/BLM>IMSC MCONTEXM CURREN M"STAT.M$BAS<M&1Hj O2Sj OHER`jALLOmj|jt COMPILŌjte^LITERA̜jDCOUNԸjX?DUjTYPjO(!z-PAjtDOAB$jT/MO6j^_teDjKSPACWj9zSPACEej  (m-MAujpjO pO0O#Ӭj9<j*#j*bHOLjSIGj-*j_Cj*/MOOj^te-TRAILIN[j (O b9bE b-KEoCҧEMPTY-BUFFERӲj%b 6#UPDATżj:9:BUFFEj/^/|!|!e|!' |!|!:teBLOCjO^:|!bO4|!|!  b|!bO:teCONVERDjX^O,OOX ttjbWORj LqOT"b INPUT > 255t"96#b^|!tOtXt]"tEMIj EXPECsjO(92!t!O^ z z( E9 ! !Xz-MIΆjCREATj9X #ATTEMPTED TO REDEFINE NULL}Xt!  8[?QUER'jqP ۚj DݶjDQUIj < DOKDEFINITIONj*8DECIMAj OABORj&T G ~ FORTH-79 STANDARD Version 0.0 ~!by G. F. BOUTELLE & G. B. HAYDON ~+ This implementation contains all and only~+the 79-STANDARD vocabulary. All extensions~*and applications must be added with this ~'vocabulary to remain 79-STANDARD. The ~+definition of some words may be subject to ~individual interpretation. BEGI2jt THEj  tbDj(tLOOj -tbLEAV"G*(^#V#s#r?EXI=]*(N#F#"(?+LOOTj tbUNTIjj  tbREPEAԆj^^ tt bIƠjt  ELSŽj  t   WHILjeSAVE-BUFFERjX ( -LIS j&SCR #G (|!\ m|!gE-IMMEDIAT( j @q j)[COMPILE݉ j  b j MO jK jGLOA j^^  S< ttD j pU*!j UY!j  /!Rf!~!*(^#V?w!!*(^#V?ʈ!!*(^#V?DEPTȘ!juWb [1!!+>2!!++>0!!+)!!+>ROL!j pROLL ARGUMENT < 1 2X"OuO b buk!CMOV!j p @MOVU"j p O@FINw"j  ! ."j LqO"  PIC˷"j!OuOPICK ARGUMENT < 1FIL"j!*/#jc79-STANDARN#jFORGE]#j98#NOT IN CURRENT VOCABULARY  k! IN PROTECTED DICTIONARY^|!*k!|!8k!|!k!bA |!k!!t'o#ju-TEXE$jO(e!!b <[E /LOOP$jrD$jD0$j'D$j$$2VARIABLŹ$j02$j S2$j [2OVE$j""2SWA$j!!>BINAR%j>TYP(%j' Used in multiprogrammed systems only. ASSEMBLE8%jASSEMBLER is not loaded BLANn%j DMAؙ%j%%/!%D%j%/!DMI%j%%%%OLDBAS%?I.?ASCI%j (!O p~9.z-8HE%j (!O\ -DUM6&j O^n (!O  ~=&mO=&~%tO.]&j^ub b O(!   EMPTY STACK EDITOҴ&jEDITOR is not loaded ERAS'j 6#%'jM5'j OCTA?'jOPAGL'jzEzTEX`'jt X t* X]"COPw'j SO S O(!L bX-?WIPŖ'jzEzLINE*j*FIND-BU'+j*POINSERT-BU:+jE+PO(HOLDQ+j*^+X ^+]"(KILLj+j* (SPREAD+j0+ b(!*!X*+؜+j0+s+(!X*!*-+DISPLAY-CURSO+jm*^z**G+j S ,",j/ 6,j D,j(TOPR,j SEEK-ERROb,jj,E+t X]"tNONE(Rt,j0+^+X*Р,j^)^+ +,WIPŴ,j (!+-COP,j SO S O(!L bX-?1LIN,j*E+)(SEEK -jp,(-(DELETE8-j^*O|!b*|!1*O]"t (F[-j^)E+ +A-ƌ-j-,(E-jE+f-Ů-j-,ľ-j--TIL-j*O^)E+ +(-,*Obf-,COUNTE- BUM.j ..8 . z.j z^) .E+ +^(!j,(- , .p-tB.j^)^+ +^+*^|!|!b^t|!]"t*Ot]"t]",՘.j +,.j-..j^^0+s+X S+,t OtSAVE-FORTZ*j\g SAVE-FORTH COP________________________________________________________________ GURE YOUR DRIV