Rest of line is the graphics dataħ06REM2323221 (( uKSWWSKuuKS_SKu4JiuuaJ44JiuuaJ4mmm JJJ Level completed, go to next level after a key pressġst 7 characters after the REM are the colours of the blocks. Redisplay 'local' blocks affected by moveĦ03VDU31,x+a*r,y+b*r,17,g(y+b*r,x+a*r)?&1B7F-48,224+g(y+b*r,x+a*r)ĭisplay level number, number of moves and number of pushes Increment c if crate was pushed off a dotĪlso move crate to new position if pushing oneĭecrement c if crate was pushed onto a dot If not a valid move then try again unless Copy key was pressed in which case restart current levelĪlso increment push count if a push was made If it's a blank space/dot or a crate with a blank space/dot on the other side of it then it's a valid moveĤ05IFr=2THENIF(g(y+b*2,x+a*2)AND6)=0THENp=3 Look at what lies in the direction that we are going Set number of moves and number of pushes to zero Skip to next line if level data is split across 2 linesĭisplay level number, number of moves (0) and number of pushes (0) Set print width to the level data and display the level Get a (start address), l (number of rows) and m (number of columns) for current level Line 800 level data (start address of data for each level and the number of rows and columns for each level) Lines 704 to 705 level completed, go to next level Program structure (referring to the expanded version):

000 to 110), 2 'building blocks' are stored in each character. As the 7 'building blocks' as listed above only require 3 bits to store them (i.e. The level data is stored in lines 80 to 100 (lines 800 to 1000 in the expanded version). 1 = moving into a blank space, 3 = pushing a crate, 0 = not a valid move

L - one less than the number in columns in the levelĬ - number of crates not on dots (the level has been completed when this is zero) M - one less than the number of rows in the level Also, as a cheat, if you get stuck on a level, pressing Escape and then rerunning the program will put you onto the next level. A% is used as it is not cleared when the program is rerun. If you have managed to solve a level then try to do it in the minimum number of moves possible and if you have done that, then try to solve it in the minimum number of pushes possible instead.Ĭopy (note that the Copy key is mapped to the End key in JSBeeb) to restart the current level.Ī% - current level.

You need to push the crates onto their final positions as indicated by the dots. You are a warehouse worker im a warehouse.

Sokoban solver online edit