-+-+-+-+-+-+-+-+ START OF PART 3 -+-+-+-+-+-+-+-+ X## #.....# # X# ### ####### X# $$ # # X# # # X###### # X ##### $ CALL UNPACK SCREEN.15;1 692723801 $ create 'f' X##### X# ## X# # #### X# $ #### # X# $$ $ $# X###@ #$ ## X # ## $ $ ## X # $ ## ## .# X # #$##$ #.# X ### $..##.# X # #.*...# X # $$ #.....# X # ######### X # # X #### $ CALL UNPACK SCREEN.16;1 1143221589 $ create 'f' X ########## X #.. # # X #.. # X #.. # #### X ####### # ## X # # X # # ## # # X#### ## #### ## X# $ ##### # # X# # $ $ # $ # X# @$ $ # ## X#### ## ####### X # # X ###### $ CALL UNPACK SCREEN.17;1 658975943 $ create 'f' X ########### X # . # # X # #. @ # X ##### ##..# #### X## # ..### ### X# $ #... $ # $ # X# .. ## ## ## # X####$##$# $ # # # X ## # #$ $$ # # X # $ # # # $## # X # # X # ########### # X #### #### $ CALL UNPACK SCREEN.18;1 117664959 $ create 'f' X ###### X # @#### X##### $ # X# ## #### X# $ # ## # X# $ # ##### # X## $ $ # # X## $ $ ### # # X## # $ # # # X## # #$# # # X## ### # # ###### X# $ #### # #....# X# $ $ ..#.# X####$ $# $ ....# X# # ## ....# X################### $ CALL UNPACK SCREEN.19;1 591603541 $ create 'f' X############ X#.. # ### X#.. # $ $ # X#.. #$#### # X#.. @ ## # X#.. # # $ ## X###### ##$ $ # X # $ $ $ $ # X # # # X ############ $ CALL UNPACK SCREEN.2;1 1611205984 $ create 'f' X ########## X##### #### X# # $ #@ # X# #######$#### ### X# # ## # #$ ..# X# # $ # # #.# X# # $ # #$ ..# X# # ### ## #.# X# ### # # #$ ..# X# # # #### #.# X# #$ $ $ #$ ..# X# $ # $ $ # #.# X#### $### #$ ..# X # $$ ###....# X # ## ###### X ######## $ CALL UNPACK SCREEN.20;1 709503403 $ create 'f' X######### X# # X# #### X## #### # # X## #@## # X# $$$ $ $$# X# # ## $ # X# # ## $ #### X#### $$$ $# # X # ## ....# X # # # #.. .# X # # # ##...# X ##### $ #...# X ## ##### X ##### $ CALL UNPACK SCREEN.21;1 67568116 $ create 'f' X###### #### X# ####### ##### X# $# # $ # # X# $ $ $ # $ $ # X##$ $ # @# $ # X# $ ########### ## X# # #.......# $# X# ## # ......# # X# # $........$ # X# # $ #.... ..# # X# $ $####$#### $# X# $ ### $ $ ## X# $ $ $ $ # X## ###### $ ##### # X# # # X################### $ CALL UNPACK SCREEN.22;1 592325594 $ create 'f' X ####### X # # #### X##### $#$ # ## X#.. # # # # X#.. # $#$ # $#### X#. # #$ # # X#.. $# # $ # X#..@# #$ #$ # # X#.. # $# $# # X#.. # #$$#$ # ## X#.. # $# # $#$ # X#.. # # # # # X##. #### ##### # X #### #### ##### $ CALL UNPACK SCREEN.23;1 1126771170 $ create 'f' X############### X#.......... .#### X#..........$$.# # X###########$ # ## X# $ $ $ # X## #### # $ # # X# # ## # ## X# $# # ## ### ## X# $ #$### ### ## X### $ # # ### ## X### $ ## # # ## X # $ # $ $ $ # X # $ $#$$$ # # X # # $ ##### X # @## # # # X ############## $ CALL UNPACK SCREEN.24;1 1193484944 $ create 'f' X#### X# ############## X# # ..#......# X# # # ##### ...# X##$# ........# X# ##$###### #### X# $ # ######@ # X##$ # $ ###### # X# $ #$$$## # X# # #$#$### X# #### #$$$$$ # X# # $ # # X# # ## ### X# ######$###### $ # X# # # # X########## ##### $ CALL UNPACK SCREEN.25;1 657072884 $ create 'f' X ####### X # # ##### X## # #...### X# $# #... # X# $ #$$ ... # X# $# #... .# X# # $######## X##$ $ $ # X## # $$ # # X ###### ##$$@# X # ## X ######## $ CALL UNPACK SCREEN.26;1 589768086 $ create 'f' X ################# X #... # # ## X##..... $## # #$ # X#......# $ # # X#......# # # # # X######### $ $ $ # X # #$##$ ##$## X ## $ # $ # X # ## ### # ##$ # X # $ $$ $ $ # X # $ $##$ ###### X ####### @ ## X ###### $ CALL UNPACK SCREEN.27;1 74323812 $ create 'f' X ##### X ##### # X ## $ $ #### X##### $ $ $ ##.# X# $$ ##..# X# ###### ###.. # X## # # #... # X# $ # #... # X#@ #$ ## ####...# X#### $ $$ ##..# X ## $ $ $...# X # $$ $ # .# X # $ $ #### X ###### # X ##### $ CALL UNPACK SCREEN.28;1 617867 $ create 'f' X##### X# ## X# $ ######### X## # # ###### X## # $#$#@ # # X# # $ # $ # X# ### ######### ## X# ## ..*..... # ## X## ## *.*..*.* # ## X# $########## ##$ # X# $ $ $ $ # X# # # # # # X################### $ CALL UNPACK SCREEN.29;1 1193747919 $ create 'f' X ######## X # @# X # $#$ ## X # $ $# X ##$ $ # X######### $ # ### X#.... ## $ $ # X##... $ $ # X#.... ########## X######## $ CALL UNPACK SCREEN.3;1 241829784 $ create 'f' X ########### X # # # X##### # $ $ # X# ##### $## # ## X# $ ## # ## $ # X# $ @$$ # ##$$$ # X## ### # ## # X## # ### #####$# X## # $ #....# X# ### ## $ #....## X# $ $ # #..$. # X# ## $ # ##.... # X##### ######...## X ##### ##### $ CALL UNPACK SCREEN.30;1 944255 $ create 'f' X #### X # ######### X ## ## # # X # $# $@$ #### X #$ $ # $ $# ## X## $## #$ $ # X# # # # $$$ # X# $ $ $## #### X# $ $ #$# # # X## ### ###$ # X # #.... # X ####......#### X #....#### X #...## X #...# X ##### $ CALL UNPACK SCREEN.31;1 218103907 $ create 'f' X #### X ##### # X ## $# X## $ ## ### X#@$ $ # $ # X#### ## $# X #....#$ $ # X #....# $# X #.... $$ ## X #... # $ # X ######$ $ # X # ### X #$ ### X # # X #### $ CALL UNPACK SCREEN.32;1 289364 $ create 'f' X############ X## ## # X## $ $ # X#### ## $$ # X# $ # # X# $$$ # #### X# # # $ ## X# # # $ # X# $# $# # X# ..# #### X####.. $ #@# X#.....# $# # X##....# $ # X###..## # X############ $ CALL UNPACK SCREEN.33;1 775958057 $ create 'f' X ######### X #.... ## X #.#.# $ ## X##....# # @## X# ....# # ## X# #$ ##$ # X## ### $ # X #$ $ $ $# # X # # $ $ ## # X # ### ## # X # ## ## ## X # $ # $ # X ###$ $ ### X # ##### X #### $ CALL UNPACK SCREEN.34;1 174525044 $ create 'f' X############ ###### X# # # ###....# X# $$# @ .....# X# # ### # ....# X## ## ### # ....# X # $ $ # # #### X # $ $## # # X#### # #### # ## # X# # #$ ## # # X# $ $ # ## # ## X# # $ $ # # # X# $ ## ## # ##### X# $$ $$ # X## ## ### $ # X # # # # X ###### ###### $ CALL UNPACK SCREEN.35;1 73862660 $ create 'f' X ##### X##### ###### # X# #### $ $ $ # X# $ ## ## ## ## X# $ $ $ $ # X### $ ## ## ## X # ##### #####$$ # X ##$##### @## # X # $ ###$### $ ## X # $ # ### ### X # $$ $ # $$ # X # # ## # X #######.. .### X #.........# X #.........# X ########### $ CALL UNPACK SCREEN.36;1 241176038 $ create 'f' X########### X#...... ######### X#...... # ## # X#..### $ $ # X#... $ $ # ## # X#...#$##### # # X### # #$ #$ # X # $$ $ $ $## # X # $ #$#$ ##$ # X ### ## # ## # X # $ $ ## ###### X # $ $ # X ## # # # X #####@##### X ### $ CALL UNPACK SCREEN.37;1 657344846 $ create 'f' X #### X####### @# X# $ # X# $## $# X##$#...# # X # $... # X # #. .# ## X # # #$ # X #$ $ # X # ####### X #### $ CALL UNPACK SCREEN.38;1 657077141 $ create 'f' X ###### X #############....# X## ## ##....# X# $$## $ @##....# X# $$ $# ....# X# $ ## $$ # # ...# X# $ ## $ # ....# X## ##### ### ##.### X## $ $ ## . # X# $### # ##### ### X# $ # # X# $ #$ $ $### # X# $$$# $ # #### X# # $$ # X###### ### X ##### $ CALL UNPACK SCREEN.39;1 1678377536 $ create 'f' X ######## X # ....# X############ ....# X# # $ $ ....# X# $$$#$ $ # ....# X# $ $ # ....# X# $$ #$ $ $######## X# $ # # X## ######### X# # ## X# $ ## X# $$#$$ @# X# # ## X########### $ CALL UNPACK SCREEN.4;1 242090157 $ create 'f' X ############ X # ## X # # #$$ $ # X #$ #$# ## @# X ## ## # $ # ## X # $ #$ # # X # # $ # # X ## $ $ ## # X # # ## $ # X # ## $$# # X######$$ # # X#....# ######## X#.#... ## X#.... # X#.... # X######### $ CALL UNPACK SCREEN.40;1 1678642997 $ create 'f' X ##### X ## ## X ## # X ## $$ # X ## $$ $ # X # $ $ # X#### # $$ ##### X# ######## ## # X#. $$$@# X#.# ####### ## ## X#.# #######. #$ $## X#........... # # X############## $ # X ## ## X #### $ CALL UNPACK SCREEN.41;1 118096729 $ create 'f' X ######## X #### ###### X # ## $ $ @# X # ## ##$#$ $ $## X### ......# $$ ## X# ......# # # X# # ......#$ $ # X# #$...... $$# $ # X# ### ###$ $ ## X### $ $ $ $ # X # $ $ $ $ # X ###### ###### X ##### $ CALL UNPACK SCREEN.42;1 67306195 $ create 'f' X ####### X ##### # #### X # # $ # X #### #$$ ## ## # X## # # ## ### X# ### $#$ $ $ # X#... # ## # # X#...# @ # ### ## X#...# ### $ $ # X######## ## # # X ######### $ CALL UNPACK SCREEN.43;1 758008624 $ create 'f' X ##### X # # X # # ####### X # $@###### X # $ ##$ ### # X # #### $ $ # X # ##### # #$ #### X## #### ##$ # X# $# $ # ## ## # X# # #...# # X###### ### ... # X #### # #...# # X # ### # # X # # X ######### $ CALL UNPACK SCREEN.44;1 690900283 $ create 'f' X##### #### X#...# # #### X#...### $ # X#....## $ $### X##....## $ # X###... ## $ $ # X# ## # $ # X# ## # ### #### X# $ # #$ $ # X# $ @ $ $ # X# # $ $$ $ ### X# ###### ### X# ## #### X### $ CALL UNPACK SCREEN.45;1 167996033 $ create 'f' X########## X# #### X# ###### # ## X# # $ $ $ $ # X# #$ # X###$ $$# ### X # ## # $## X ##$# $ @# X # $ $ ### X # # $ # X # ## # # X ## ##### # X # # X #.......### X #.......# X ######### $ CALL UNPACK SCREEN.46;1 1193288144 $ create 'f' X #### X ######### ## X## $ $ ##### X# ## ## ##...# X# #$$ $ $$#$##...# X# # @ # ...# X# $# ###$$ ...# X# $ $$ $ ##....# X###$ ####### X # ####### X #### $ CALL UNPACK SCREEN.47;1 174919188 $ create 'f' X ######### `20 X #*.*#*.*# `20 X #.*.*.*.# `20 X #*.*.*.*# `20 X #.*.*.*.# `20 X #*.*.*.*# `20 X ### ### `20 X # # `20 X###### ###### X# # X# $ $ $ $ $ # X## $ $ $ $ ## X #$ $ $ $ $#`20 X # $@$ #`20 X # ##### #`20 X #### #### $ CALL UNPACK SCREEN.48;1 123928816 $ create 'f' X #### X # ## X # ## X # $$ ## X ###$ $ ## X #### $ # X### # ##### # X# # #....$ # X# # $ ....# # X# $ # #.*..# # X### #### ### # X #### @$ ##$## X ### $ # X # ## # X #########`20 $ CALL UNPACK SCREEN.49;1 1829307189 $ create 'f' X ##### X # ##### X # #$## # X # $ # X######### ### # X#.... ## $ $### X#.... $ $$ ## X#.... ##$ $ @# X######### $ ## X # $ $ # X ### ## # X # # X ###### $ CALL UNPACK SCREEN.5;1 709438202 $ create 'f' X ############ X ##.. # # X ##..* $ $ # X ##..*.# # # $## X #..*.# # # $ # X####...# # # # X# ## # # X# @$ $ ### # ## X# $ $ # # # X###$$ # # # # # X # $ # # ##### X # $# ##### # X #$ # # # # X # ### ## # X # # # ## X #### ###### $ CALL UNPACK SCREEN.50;1 6490287 $ create 'f' X###### ### X#.. # ##@## X#.. ### # X#.. $$ # X#.. # # $ # X#..### # $ # X#### $ #$ # X # $# $ # X # $ $ # X # ## # X ######### $ CALL UNPACK SCREEN.6;1 50949485 $ create 'f' X ##### X ####### ## X## # @## $$ # X# $ # X# $ ### # X### #####$### X# $ ### ..# X# $ $ $ ...# X# ###...# X# $$ # #...# X# ### ##### X#### $ CALL UNPACK SCREEN.7;1 50619426 $ create 'f' X #### X # ########### X # $ $ $ # X # $# $ # $ # X # $ $ # # X### $# # #### # X#@#$ $ $ ## # X# $ #$# # # X# $ $ $ $ # X##### ######### X # # X # # X #......# X #......# X #......# X ######## $ CALL UNPACK SCREEN.8;1 657280549 $ create 'f' X ####### X # ...# X ##### ...# X # . .# X # ## ...# X ## ## ...# X ### ######## X # $$$ ## X ##### $ $ ##### X## #$ $ # # X#@ $ $ $ $ # X###### $$ $ ##### X # # X ######## $ CALL UNPACK SCREEN.9;1 774327058 $ create 'f' X#include X#include unixlib X#include "sokoban.h" X Xextern short rows, columns, level, moves, pushes, packets, savepack; Xextern char map`5BMAXROW+1`5D`5BMAXCOL+1`5D; X Xshowscreen() `7B X X register short i, j; X X move( 0, 0); clrtobot(); X for( i = 0; i < rows; i++) X for( j = 0; map`5Bi`5D`5Bj`5D != '\0'; j++) X mapchar( map`5Bi`5D`5Bj`5D, i, j); X move( MAXROW, 0); X printw( "Level: Packets: Saved: Moves: Pushes:"); X displevel(); X disppackets(); X dispsave(); X dispmoves(); X disppushes(); X move( MAXROW+2,0); X refresh(); X`7D X Xmapchar( c, i, j)`20 Xregister char c;`20 Xregister short i, j; X`7B X OBJECT *obj, *get_obj_adr(); X register short offset_row = (MAXROW - rows) / 2; X register short offset_col = MAXCOL - columns; X X obj = get_obj_adr( c); X +-+-+-+-+-+-+-+- END OF PART 3 +-+-+-+-+-+-+-+-