{ GPC demo program. For copying conditions see the file `COPYING.DEMO'. } program ShortCardDemo; var a: ShortCard; begin a := 42; WriteLn (a) end.