extra/balloon-bomber/balloon-bomber.factor

   1 ! Copyright (C) 2007 Chris Double.\r
   2 ! See http://factorcode.org/license.txt for BSD license.\r
   3 !\r
   4 ! Balloon Bomber: http://www.mameworld.net/maws/romset/ballbomb\r
   5 !\r
   6 USING: kernel space-invaders cpu.8080 ui ;\r
   7 IN: balloon-bomber\r
   8 \r
   9 TUPLE: balloon-bomber ; \r
  10 \r
  11 : <balloon-bomber> ( -- cpu )\r
  12   <space-invaders> balloon-bomber construct-delegate ;\r
  13 \r
  14 : run ( -- )  \r
  15   "Balloon Bomber" <balloon-bomber> {\r
  16     { HEX: 0000 "ballbomb/tn01" }\r
  17     { HEX: 0800 "ballbomb/tn02" }\r
  18     { HEX: 1000 "ballbomb/tn03" }\r
  19     { HEX: 1800 "ballbomb/tn04" }\r
  20     { HEX: 4000 "ballbomb/tn05-1" }\r
  21   } [ (run) ] with-ui ;\r
  22 \r
  23 MAIN: run\r