\ FORTH/6000 -- first words on a PowerPC 604e
\ GLM, October 2026

: SQUARE ( n -- n*n ) DUP * ;
: GREET ( -- ) ." Hello from FORTH/6000" CR ;
: STARS ( n -- ) 0 DO 42 EMIT LOOP CR ;

GREET
." 7 squared is " 7 SQUARE . CR
." stack check: " 1 2 3 .S 2DROP DROP
5 STARS
." hex FF in decimal is " HEX FF DECIMAL . CR
." char demo: " CHAR A EMIT CHAR ! EMIT CR
." done" CR