use radix literals

[factor.git] / extra / lunar-rescue / lunar-rescue.factor

diff --git a/extra/lunar-rescue/lunar-rescue.factor b/extra/lunar-rescue/lunar-rescue.factor
index 1b7ef6bb69ee04d71b39add7e892032a4bb5714e..9d267a78ce95e9bf2ddab2760402d1830d1ac99c 100644 (file)
--- a/extra/lunar-rescue/lunar-rescue.factor
+++ b/extra/lunar-rescue/lunar-rescue.factor
@@ -17,12 +17,12 @@ TUPLE: lunar-rescue < space-invaders ;
   lunar-rescue new cpu-init ;\r
 \r
 CONSTANT: rom-info {\r
-    { HEX: 0000 "lrescue/lrescue.1" }\r
-    { HEX: 0800 "lrescue/lrescue.2" }\r
-    { HEX: 1000 "lrescue/lrescue.3" }\r
-    { HEX: 1800 "lrescue/lrescue.4" }\r
-    { HEX: 4000 "lrescue/lrescue.5" }\r
-    { HEX: 4800 "lrescue/lrescue.6" }\r
+    { 0x0000 "lrescue/lrescue.1" }\r
+    { 0x0800 "lrescue/lrescue.2" }\r
+    { 0x1000 "lrescue/lrescue.3" }\r
+    { 0x1800 "lrescue/lrescue.4" }\r
+    { 0x4000 "lrescue/lrescue.5" }\r
+    { 0x4800 "lrescue/lrescue.6" }\r
   }\r
 \r
 : run-lunar ( -- )  \r