1 ! Copyright (C) 2007 Chris Double.
\r
2 ! See http://factorcode.org/license.txt for BSD license.
\r
4 ! Balloon Bomber: http://www.mameworld.net/maws/romset/ballbomb
\r
14 TUPLE: balloon-bomber < space-invaders ;
\r
16 : <balloon-bomber> ( -- cpu )
\r
17 balloon-bomber new cpu-init ;
\r
19 CONSTANT: rom-info {
\r
20 { 0x0000 "ballbomb/tn01" }
\r
21 { 0x0800 "ballbomb/tn02" }
\r
22 { 0x1000 "ballbomb/tn03" }
\r
23 { 0x1800 "ballbomb/tn04" }
\r
24 { 0x4000 "ballbomb/tn05-1" }
\r
27 : run-balloon ( -- )
\r
28 [ "Balloon Bomber" <balloon-bomber> rom-info (run) ] with-ui ;
\r