DEFINE PTR="CARD"

TYPE ListNode=[
  BYTE data
  PTR nxt]