- 9


241 LIST 0 ( ) 1 VARIABLE # ( )

2 VARIABLE ( ) 3 : ( -- a) PAD 100 + ; 4 ( ) ( ) 5 CREATE 0 , 16 , 6 CREATE 16 , 12 , 7 CREATE 28 , 24 , 8 CREATE 52 , 12 , 9 10 64 CONSTANT / ( ) 11 1024 CONSTANT / ( ) 12 / / / CONSTANT / ( ) 13 244 CONSTANT ( c ) 14 2 ( ) / * CONSTANT - ( ) 15

242 LIST 0 ( ) 1 : 0 # ! ; 2 : 1 # +! ; 3 : ( # #) >R SWAP R> MIN CMOVE ; 4 : ( a #) 2DUP BLANK ASCII , WORD COUNT 5 2SWAP ; 6 : ( -- ) # @ / /MOD + BLOCK 7 8 SWAP / * + ; 9 10 : ( a -- a' n) 2@ + SWAP ; 11 12 : ( ) UPDATE ; 13 14 15

364 LIST 0 . . 1 . 2 3 , 4 , . 5 6 () ; -, ABORT. 7 , 32 () 0, . 8 - 9 . , 10 "". 11 (), , 12 () 13 . 14 15

243 LIST 0 ( ) 1 : . ( a) -TRAILING TYPE SPACE ; 2 : . . . ; 3 4 : ( a) DUP ! 2+ @ ASCII , TEXT 5 PAD ROT CMOVE ; 6 7 : TRUE - 0 DO I # ! C@ 33 < IF 8 NOT LEAVE THEN LOOP ABORT" " ; 9 : - ( - t) TRUE @ - # @ DO I0 I # ! DUP -TEXT 0= IF 11 SWAP NOT SWAP LEAVE THEN LOOP DROP ; 12 : ." " ; 13 : () ( a) - 0 DO I # ! - IF 14 LEAVE ELSE DUP PAD -TEXT 0= IF 15 . LEAVE THEN THEN LOOP DROP ;

244 LIST 0 1 2 ... 245 LIST 0 555-2233 ...