samples/scolon.f

   1 ;; scattered colon example
   2 ;; based on the idea by M.L. Gassanenko ( mlg@forth.org )
   3 ;; implemented from scratch by Ketmar Dark
   4
   5 : init ... ." init complete\n" ;
   6 init
   7
   8 .( =================\n)
   9 ..: init ." init phase1\n" ;..
  10 init
  11
  12 .( =================\n)
  13 ..: init ." init phase2\n" ;..
  14 init
  15
  16 .( =================\n)
  17 ..: init ." init phase3\n" ;..
  18 init
  19
  20 .( =================\n)
  21 ..: init ." init phase4\n" ;..
  22 init
  23
  24 .( =================\n)
  25 ..: init ." preinit phase 1\n" <;..
  26 init
  27
  28 .( =================\n)
  29 ..: init ." preinit phase 0\n" <;..
  30 init
  31
  32 .( =================\n)
  33 ..: init ." init phase5\n" ;..
  34 init
  35
  36 .( =================\n)
  37
  38 .( =================\n)
  39 : init2 ... ." init2 complete\n" ;
  40 init2
  41
  42 .( =================\n)
  43 ..: init2 ." pteinit2 phase1\n" <;..
  44 init2
  45
  46 .( =================\n)
  47 ..: init2 ." init2 phase0\n" ;..
  48 init2
  49
  50 .( =================\n)
  51 ..: init2 ." pteinit2 phase0\n" <;..
  52 init2
  53
  54 .( =================\n)
  55 ..: init2 ." init2 phase1\n" ;..
  56 init2
  57
  58 .stack
  59 bye