- 2


, 9 DUP @ BUP 0> IF ELSE DROP THEN OVER - 10 DUP 1+ NEGATE +! ; 11 : ? ( -- 1= ) 12 - @ + < ; 13 : SPACE' - @ IF SPACE 1 - +! THEN ; 14 : CR' CR 0 - ! ; 15 157 LOAD 158 LOAD

Block # 157 0 ( , ) 1 : . ( # -- ) \ , , CR 2 DUP ? IF SPACE' ELSE CR' THEN 3 DUP - +! TYPE ; 4 : ( a # -- ..) 5 + 1+ ; 6 : ( # -- ) \ 7 ! 8 BEGIN DUP WHILE 2DUP . REPEAT 9 2DROP ; 10 : ( -- ) 161 BLOCK ; \ 11 : ( -- ) 160 BLOCK ; \ 12 : ( - a) 1S9 BLOCK ; \ 13 : ( # # -- ) \ 14 20 * SWAP 64 * + + ; 15

Block # 158 0 ( , ) 1 : . ( # # -- ) 20 ; 2 : - ( # -- ) CREATE , \ 3 DOES> @ 10 CHOOSE SWAP . ; 4 0 - 1 5 1 - 2 6 2 - 7 : 1 2 ; 8 : ( # -- ) [ 4 64 * ] LITERAL * 9 3 CHOOSE 64 * + + 64 ; 10 : 4 0 DO I LOOP ." ." CR' ; 11 : ( # -- ) 12 CR' 64 * + 64 ; 13 : CR' CR' 4 0 DO I LOOP ; 14 15

Block # 159 0 , 1 , , 2 , , , 3 , 4 5 6 7 8 9 10 11 12 13 14 15

Block # 160 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Block # 161 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15