03 MessageBox

: 顯示訊息 ( 標題字串置放位置 長度 訊息置放位置 長度 --- )

  temp$ place

  temp$ +NULL

  MB_TASKMODAL rot rot

  2dup + 0 swap c! drop  rel>abs

  temp$ 1+ rel>abs

  NULL Call MessageBox drop

  ;

: demo

  s" 1234" s" test"   顯示訊息

  ;

demo