Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1.  
  2.  
  3. VARIABLE   CSP    \ Óêàçàòåëü ñòåêà êîíòðîëÿ
  4.  
  5. : CASE
  6.   CSP @ SP@ CSP ! ; IMMEDIATE
  7.  
  8. : ?OF_
  9.   POSTPONE IF POSTPONE DROP ; IMMEDIATE
  10.  
  11. : OF
  12.   POSTPONE OVER POSTPONE = POSTPONE ?OF_ ; IMMEDIATE
  13.  
  14. : ENDOF
  15.   POSTPONE ELSE ; IMMEDIATE
  16.  
  17. : DUPENDCASE
  18.   BEGIN SP@ CSP @ <> WHILE POSTPONE THEN REPEAT
  19.   CSP ! ; IMMEDIATE
  20.  
  21. : ENDCASE
  22.   POSTPONE DROP   POSTPONE DUPENDCASE
  23. ; IMMEDIATE
  24.  
  25. : OF\
  26.   POSTPONE OVER POSTPONE <> POSTPONE IF ; IMMEDIATE
  27.  
  28. : OF;
  29.   POSTPONE OVER POSTPONE = POSTPONE IF 2>R
  30.   POSTPONE DUPENDCASE  2R>
  31.   POSTPONE DROP ; IMMEDIATE
  32.  
  33. HEX
  34.