Hopefully it's a final fix (+ update sources to latest version)

git-svn-id: svn://kolibrios.org@5311 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/games/codemaster/ReadMe.txt

@@ -28,7 +28,7 @@ _for_Kolibri_ on Windows
 * 24-27 years of programming experience,
 recreationally in my freetime. Made 1,000s of
 programs, given 100s of examples away for free
-while poor. Never been paid.
+while poor. Never been paid for programming.
 
 Thanks. Happy new years!
 ===========================================================

programs/games/codemaster/build.bat

@@ -0,0 +1,9 @@
+@echo lang fix en >lang.inc
+@fasm -m 65536 binary_master.asm binary_master
+@fasm -m 65536 hang_programmer.asm hang_programmer
+@fasm -m 65536 kolibri_puzzle.asm kolibri_puzzle
+@erase lang.inc
+@kpack binary_master
+@kpack hang_programmer
+@kpack kolibri_puzzle
+@pause

programs/games/codemaster/include/image.inc

@@ -68,7 +68,7 @@ macro inject.image name, bpp {
   local i, p, a, r, g, b,\
    x, y, w, h, wb
   virtual at 0
-    p:: file CD#'/media/'#name#'.bmp'
+    p:: file CD#'media/'#name#'.bmp'
   END virtual
   IF ~bpp in <15,16,24,32>
     'Invalid BPP' name
@@ -125,7 +125,7 @@ macro inject.image.8 name {
   local i, p, a, c,\
    x, y, w, h, wb
   virtual at 0
-    p:: file CD#'/media/'#name#'.bmp'
+    p:: file CD#'media/'#name#'.bmp'
   END virtual
   load a word from p:0
   IF a<>'BM'

programs/games/codemaster/include/imagek.inc

@@ -68,7 +68,7 @@ macro inject.image name, bpp {
   local i, p, a, r, g, b,\
    x, y, w, h, wb
   virtual at 0
-    p:: file CD#'/media/'#name#'.bmp'
+    p:: file CD#'media/'#name#'.bmp'
   END virtual
   IF ~bpp in <15,16,24,32>
     'Invalid BPP' name
@@ -125,7 +125,7 @@ macro inject.image.8 name {
   local i, p, a, c,\
    x, y, w, h, wb
   virtual at 0
-    p:: file CD#'/media/'#name#'.bmp'
+    p:: file CD#'media/'#name#'.bmp'
   END virtual
   load a word from p:0
   IF a<>'BM'

programs/games/codemaster/kolibri_puzzle.asm

@@ -49,7 +49,8 @@ function randomize.puzzle
   alias p=r0, x=r1
   . q=puzzle, n=(MAP.W*MAP.H)
   loop n
-    . x=ROTATE.L, p=q, (u32) *p=x, q+4
+    get x=get.random
+    . p=q, (u32) *p=x, q+4
   endl
 endf