QBASIC tile-based map

MAPMAKER.BAS

DECLARE SUB clearline ()
DECLARE SUB save ()
DECLARE SUB save1 ()
DECLARE SUB wtile ()
DECLARE SUB tracker ()
DECLARE SUB wlocate ()
DECLARE SUB z014 ()
DECLARE SUB z013 ()
DECLARE SUB z012 ()
DECLARE SUB z011 ()
DECLARE SUB z002 ()
DECLARE SUB z003 ()
DECLARE SUB z004 ()
DECLARE SUB z005 ()
DECLARE SUB z006 ()
DECLARE SUB z007 ()
DECLARE SUB z008 ()
DECLARE SUB z009 ()
DECLARE SUB z010 ()
DECLARE SUB z001 ()
DECLARE SUB ycolor3 ()
DECLARE SUB ycolor2 ()
DECLARE SUB ycolor1 ()
DECLARE SUB z0back ()
DECLARE SUB load ()
DECLARE SUB load1 ()

COMMON SHARED x, y, c1, c2, tmpcolor, r, t, xpos, ypos, rkill, end.$, wtile.$

CLS
SCREEN 12


DIM SHARED t1tp(33), t1im(33), t1c1(33), t1c2(33)
DIM SHARED t2tp(32), t2im(32), t2c1(32), t2c2(32)
DIM SHARED t3tp(32), t3im(32), t3c1(32), t3c2(32)
DIM SHARED t4tp(32), t4im(32), t4c1(32), t4c2(32)
DIM SHARED t5tp(32), t5im(32), t5c1(32), t5c2(32)
DIM SHARED t6tp(32), t6im(32), t6c1(32), t6c2(32)
DIM SHARED t7tp(32), t7im(32), t7c1(32), t7c2(32)
DIM SHARED t8tp(32), t8im(32), t8c1(32), t8c2(32)
DIM SHARED t9tp(32), t9im(32), t9c1(32), t9c2(32)
DIM SHARED t10tp(32), t10im(32), t10c1(32), t10c2(32)
DIM SHARED t11tp(32), t11im(32), t11c1(32), t11c2(32)
DIM SHARED t12tp(32), t12im(32), t12c1(32), t12c2(32)
DIM SHARED t13tp(32), t13im(32), t13c1(32), t13c2(32)
DIM SHARED t14tp(32), t14im(32), t14c1(32), t14c2(32)
DIM SHARED t15tp(32), t15im(32), t15c1(32), t15c2(32)
DIM SHARED t16tp(32), t16im(32), t16c1(32), t16c2(32)
DIM SHARED t17tp(32), t17im(32), t17c1(32), t17c2(32)
DIM SHARED t18tp(32), t18im(32), t18c1(32), t18c2(32)
DIM SHARED t19tp(32), t19im(32), t19c1(32), t19c2(32)
DIM SHARED t20tp(32), t20im(32), t20c1(32), t20c2(32)
DIM SHARED t21tp(32), t21im(32), t21c1(32), t21c2(32)
DIM SHARED t22tp(32), t22im(32), t22c1(32), t22c2(32)
DIM SHARED t23tp(32), t23im(32), t23c1(32), t23c2(32)
DIM SHARED t24tp(32), t24im(32), t24c1(32), t24c2(32)
DIM SHARED t25tp(32), t25im(32), t25c1(32), t25c2(32)
DIM SHARED t26tp(32), t26im(32), t26c1(32), t26c2(32)
DIM SHARED t27tp(32), t27im(32), t27c1(32), t27c2(32)
DIM SHARED t28tp(32), t28im(32), t28c1(32), t28c2(32)
DIM SHARED t29tp(32), t29im(32), t29c1(32), t29c2(32)
DIM SHARED t30tp(32), t30im(32), t30c1(32), t30c2(32)
DIM SHARED t31tp(32), t31im(32), t31c1(32), t31c2(32)
DIM SHARED t32tp(32), t32im(32), t32c1(32), t32c2(32)
DIM SHARED t33tp(32), t33im(32), t33c1(32), t33c2(32)
DIM SHARED t34tp(32), t34im(32), t34c1(32), t34c2(32)
DIM SHARED t35tp(32), t35im(32), t35c1(32), t35c2(32)
DIM SHARED t36tp(32), t36im(32), t36c1(32), t36c2(32)
DIM SHARED t37tp(32), t37im(32), t37c1(32), t37c2(32)
DIM SHARED t38tp(32), t38im(32), t38c1(32), t38c2(32)
DIM SHARED t39tp(32), t39im(32), t39c1(32), t39c2(32)
DIM SHARED t40tp(32), t40im(32), t40c1(32), t40c2(32)
DIM SHARED t41tp(32), t41im(32), t41c1(32), t41c2(32)
DIM SHARED t42tp(32), t42im(32), t42c1(32), t42c2(32)
DIM SHARED t43tp(32), t43im(32), t43c1(32), t43c2(32)
DIM SHARED t44tp(32), t44im(32), t44c1(32), t44c2(32)
DIM SHARED t45tp(32), t45im(32), t45c1(32), t45c2(32)
DIM SHARED t46tp(32), t46im(32), t46c1(32), t46c2(32)
DIM SHARED t47tp(32), t47im(32), t47c1(32), t47c2(32)
DIM SHARED t48tp(32), t48im(32), t48c1(32), t48c2(32)
DIM SHARED t49tp(32), t49im(32), t49c1(32), t49c2(32)
DIM SHARED t50tp(32), t50im(32), t50c1(32), t50c2(32)
DIM SHARED t51tp(32), t51im(32), t51c1(32), t51c2(32)
DIM SHARED t52tp(32), t52im(32), t52c1(32), t52c2(32)
DIM SHARED t53tp(32), t53im(32), t53c1(32), t53c2(32)

'------------------
'///Initial Load///

CALL load
CALL load1
CALL ycolor1

'//////////////////
'------------------

DO
	CALL tracker
LOOP WHILE end.$ <> "q"

CALL save
CALL save1

SUB clearline
	PRINT "                                                                            "
END SUB

SUB load
OPEN "c:map00\m1p08.map" FOR INPUT AS #1
INPUT #1, t1tp(1), t1im(1), t1c1(1), t1c2(1), t1tp(2), t1im(2), t1c1(2), t1c2(2), t1tp(3), t1im(3), t1c1(3), t1c2(3), t1tp(4), t1im(4), t1c1(4), t1c2(4), t1tp(5), t1im(5), t1c1(5), t1c2(5), t1tp(6), t1im(6), t1c1(6), t1c2(6), t1tp(7), t1im(7), t1c1( _
7), t1c2(7), t1tp(8), t1im(8), t1c1(8), t1c2(8)
CLOSE #1
OPEN "c:map00\m1p16.map" FOR INPUT AS #1
INPUT #1, t1tp(9), t1im(9), t1c1(9), t1c2(9), t1tp(10), t1im(10), t1c1(10), t1c2(10), t1tp(11), t1im(11), t1c1(11), t1c2(11), t1tp(12), t1im(12), t1c1(12), t1c2(12), t1tp(13), t1im(13), t1c1(13), t1c2(13), t1tp(14), t1im(14), t1c1(14), t1c2(14),  _
t1tp(15), t1im(15), t1c1(15), t1c2(15), t1tp(16), t1im(16), t1c1(16), t1c2(16)
CLOSE #1
OPEN "c:map00\m1p24.map" FOR INPUT AS #1
INPUT #1, t1tp(17), t1im(17), t1c1(17), t1c2(17), t1tp(18), t1im(18), t1c1(18), t1c2(18), t1tp(19), t1im(19), t1c1(19), t1c2(19), t1tp(20), t1im(20), t1c1(20), t1c2(20), t1tp(21), t1im(21), t1c1(21), t1c2(21), t1tp(22), t1im(22), t1c1(22), t1c2(22), _
 t1tp(23), t1im(23), t1c1(23), t1c2(23), t1tp(24), t1im(24), t1c1(24), t1c2(24)
CLOSE #1
OPEN "c:map00\m1p32.map" FOR INPUT AS #1
INPUT #1, t1tp(25), t1im(25), t1c1(25), t1c2(25), t1tp(26), t1im(26), t1c1(26), t1c2(26), t1tp(27), t1im(27), t1c1(27), t1c2(27), t1tp(28), t1im(28), t1c1(28), t1c2(28), t1tp(29), t1im(29), t1c1(29), t1c2(29), t1tp(30), t1im(30), t1c1(30), t1c2(30), _
 t1tp(31), t1im(31), t1c1(31), t1c2(31), t1tp(32), t1im(32), t1c1(32), t1c2(32)
CLOSE #1
OPEN "c:map00\m2p08.map" FOR INPUT AS #1
INPUT #1, t2tp(1), t2im(1), t2c1(1), t2c2(1), t2tp(2), t2im(2), t2c1(2), t2c2(2), t2tp(3), t2im(3), t2c1(3), t2c2(3), t2tp(4), t2im(4), t2c1(4), t2c2(4), t2tp(5), t2im(5), t2c1(5), t2c2(5), t2tp(6), t2im(6), t2c1(6), t2c2(6), t2tp(7), t2im(7), t2c1( _
7), t2c2(7), t2tp(8), t2im(8), t2c1(8), t2c2(8)
CLOSE #1
OPEN "c:map00\m2p16.map" FOR INPUT AS #1
INPUT #1, t2tp(9), t2im(9), t2c1(9), t2c2(9), t2tp(10), t2im(10), t2c1(10), t2c2(10), t2tp(11), t2im(11), t2c1(11), t2c2(11), t2tp(12), t2im(12), t2c1(12), t2c2(12), t2tp(13), t2im(13), t2c1(13), t2c2(13), t2tp(14), t2im(14), t2c1(14), t2c2(14),  _
t2tp(15), t2im(15), t2c1(15), t2c2(15), t2tp(16), t2im(16), t2c1(16), t2c2(16)
CLOSE #1
OPEN "c:map00\m2p24.map" FOR INPUT AS #1
INPUT #1, t2tp(17), t2im(17), t2c1(17), t2c2(17), t2tp(18), t2im(18), t2c1(18), t2c2(18), t2tp(19), t2im(19), t2c1(19), t2c2(19), t2tp(20), t2im(20), t2c1(20), t2c2(20), t2tp(21), t2im(21), t2c1(21), t2c2(21), t2tp(22), t2im(22), t2c1(22), t2c2(22), _
 t2tp(23), t2im(23), t2c1(23), t2c2(23), t2tp(24), t2im(24), t2c1(24), t2c2(24)
CLOSE #1
OPEN "c:map00\m2p32.map" FOR INPUT AS #1
INPUT #1, t2tp(25), t2im(25), t2c1(25), t2c2(25), t2tp(26), t2im(26), t2c1(26), t2c2(26), t2tp(27), t2im(27), t2c1(27), t2c2(27), t2tp(28), t2im(28), t2c1(28), t2c2(28), t2tp(29), t2im(29), t2c1(29), t2c2(29), t2tp(30), t2im(30), t2c1(30), t2c2(30), _
 t2tp(31), t2im(31), t2c1(31), t2c2(31), t2tp(32), t2im(32), t2c1(32), t2c2(32)
CLOSE #1
OPEN "c:map00\m3p08.map" FOR INPUT AS #1
INPUT #1, t3tp(1), t3im(1), t3c1(1), t3c2(1), t3tp(2), t3im(2), t3c1(2), t3c2(2), t3tp(3), t3im(3), t3c1(3), t3c2(3), t3tp(4), t3im(4), t3c1(4), t3c2(4), t3tp(5), t3im(5), t3c1(5), t3c2(5), t3tp(6), t3im(6), t3c1(6), t3c2(6), t3tp(7), t3im(7), t3c1( _
7), t3c2(7), t3tp(8), t3im(8), t3c1(8), t3c2(8)
CLOSE #1
OPEN "c:map00\m3p16.map" FOR INPUT AS #1
INPUT #1, t3tp(9), t3im(9), t3c1(9), t3c2(9), t3tp(10), t3im(10), t3c1(10), t3c2(10), t3tp(11), t3im(11), t3c1(11), t3c2(11), t3tp(12), t3im(12), t3c1(12), t3c2(12), t3tp(13), t3im(13), t3c1(13), t3c2(13), t3tp(14), t3im(14), t3c1(14), t3c2(14),  _
t3tp(15), t3im(15), t3c1(15), t3c2(15), t3tp(16), t3im(16), t3c1(16), t3c2(16)
CLOSE #1
OPEN "c:map00\m3p24.map" FOR INPUT AS #1
INPUT #1, t3tp(17), t3im(17), t3c1(17), t3c2(17), t3tp(18), t3im(18), t3c1(18), t3c2(18), t3tp(19), t3im(19), t3c1(19), t3c2(19), t3tp(20), t3im(20), t3c1(20), t3c2(20), t3tp(21), t3im(21), t3c1(21), t3c2(21), t3tp(22), t3im(22), t3c1(22), t3c2(22), _
 t3tp(23), t3im(23), t3c1(23), t3c2(23), t3tp(24), t3im(24), t3c1(24), t3c2(24)
CLOSE #1
OPEN "c:map00\m3p32.map" FOR INPUT AS #1
INPUT #1, t3tp(25), t3im(25), t3c1(25), t3c2(25), t3tp(26), t3im(26), t3c1(26), t3c2(26), t3tp(27), t3im(27), t3c1(27), t3c2(27), t3tp(28), t3im(28), t3c1(28), t3c2(28), t3tp(29), t3im(29), t3c1(29), t3c2(29), t3tp(30), t3im(30), t3c1(30), t3c2(30), _
 t3tp(31), t3im(31), t3c1(31), t3c2(31), t3tp(32), t3im(32), t3c1(32), t3c2(32)
CLOSE #1
OPEN "c:map00\m4p08.map" FOR INPUT AS #1
INPUT #1, t4tp(1), t4im(1), t4c1(1), t4c2(1), t4tp(2), t4im(2), t4c1(2), t4c2(2), t4tp(3), t4im(3), t4c1(3), t4c2(3), t4tp(4), t4im(4), t4c1(4), t4c2(4), t4tp(5), t4im(5), t4c1(5), t4c2(5), t4tp(6), t4im(6), t4c1(6), t4c2(6), t4tp(7), t4im(7), t4c1( _
7), t4c2(7), t4tp(8), t4im(8), t4c1(8), t4c2(8)
CLOSE #1
OPEN "c:map00\m4p16.map" FOR INPUT AS #1
INPUT #1, t4tp(9), t4im(9), t4c1(9), t4c2(9), t4tp(10), t4im(10), t4c1(10), t4c2(10), t4tp(11), t4im(11), t4c1(11), t4c2(11), t4tp(12), t4im(12), t4c1(12), t4c2(12), t4tp(13), t4im(13), t4c1(13), t4c2(13), t4tp(14), t4im(14), t4c1(14), t4c2(14),  _
t4tp(15), t4im(15), t4c1(15), t4c2(15), t4tp(16), t4im(16), t4c1(16), t4c2(16)
CLOSE #1
OPEN "c:map00\m4p24.map" FOR INPUT AS #1
INPUT #1, t4tp(17), t4im(17), t4c1(17), t4c2(17), t4tp(18), t4im(18), t4c1(18), t4c2(18), t4tp(19), t4im(19), t4c1(19), t4c2(19), t4tp(20), t4im(20), t4c1(20), t4c2(20), t4tp(21), t4im(21), t4c1(21), t4c2(21), t4tp(22), t4im(22), t4c1(22), t4c2(22), _
 t4tp(23), t4im(23), t4c1(23), t4c2(23), t4tp(24), t4im(24), t4c1(24), t4c2(24)
CLOSE #1
OPEN "c:map00\m4p32.map" FOR INPUT AS #1
INPUT #1, t4tp(25), t4im(25), t4c1(25), t4c2(25), t4tp(26), t4im(26), t4c1(26), t4c2(26), t4tp(27), t4im(27), t4c1(27), t4c2(27), t4tp(28), t4im(28), t4c1(28), t4c2(28), t4tp(29), t4im(29), t4c1(29), t4c2(29), t4tp(30), t4im(30), t4c1(30), t4c2(30), _
 t4tp(31), t4im(31), t4c1(31), t4c2(31), t4tp(32), t4im(32), t4c1(32), t4c2(32)
CLOSE #1
OPEN "c:map00\m5p08.map" FOR INPUT AS #1
INPUT #1, t5tp(1), t5im(1), t5c1(1), t5c2(1), t5tp(2), t5im(2), t5c1(2), t5c2(2), t5tp(3), t5im(3), t5c1(3), t5c2(3), t5tp(4), t5im(4), t5c1(4), t5c2(4), t5tp(5), t5im(5), t5c1(5), t5c2(5), t5tp(6), t5im(6), t5c1(6), t5c2(6), t5tp(7), t5im(7), t5c1( _
7), t5c2(7), t5tp(8), t5im(8), t5c1(8), t5c2(8)
CLOSE #1
OPEN "c:map00\m5p16.map" FOR INPUT AS #1
INPUT #1, t5tp(9), t5im(9), t5c1(9), t5c2(9), t5tp(10), t5im(10), t5c1(10), t5c2(10), t5tp(11), t5im(11), t5c1(11), t5c2(11), t5tp(12), t5im(12), t5c1(12), t5c2(12), t5tp(13), t5im(13), t5c1(13), t5c2(13), t5tp(14), t5im(14), t5c1(14), t5c2(14),  _
t5tp(15), t5im(15), t5c1(15), t5c2(15), t5tp(16), t5im(16), t5c1(16), t5c2(16)
CLOSE #1
OPEN "c:map00\m5p24.map" FOR INPUT AS #1
INPUT #1, t5tp(17), t5im(17), t5c1(17), t5c2(17), t5tp(18), t5im(18), t5c1(18), t5c2(18), t5tp(19), t5im(19), t5c1(19), t5c2(19), t5tp(20), t5im(20), t5c1(20), t5c2(20), t5tp(21), t5im(21), t5c1(21), t5c2(21), t5tp(22), t5im(22), t5c1(22), t5c2(22), _
 t5tp(23), t5im(23), t5c1(23), t5c2(23), t5tp(24), t5im(24), t5c1(24), t5c2(24)
CLOSE #1
OPEN "c:map00\m5p32.map" FOR INPUT AS #1
INPUT #1, t5tp(25), t5im(25), t5c1(25), t5c2(25), t5tp(26), t5im(26), t5c1(26), t5c2(26), t5tp(27), t5im(27), t5c1(27), t5c2(27), t5tp(28), t5im(28), t5c1(28), t5c2(28), t5tp(29), t5im(29), t5c1(29), t5c2(29), t5tp(30), t5im(30), t5c1(30), t5c2(30), _
 t5tp(31), t5im(31), t5c1(31), t5c2(31), t5tp(32), t5im(32), t5c1(32), t5c2(32)
CLOSE #1
OPEN "c:map00\m6p08.map" FOR INPUT AS #1
INPUT #1, t6tp(1), t6im(1), t6c1(1), t6c2(1), t6tp(2), t6im(2), t6c1(2), t6c2(2), t6tp(3), t6im(3), t6c1(3), t6c2(3), t6tp(4), t6im(4), t6c1(4), t6c2(4), t6tp(5), t6im(5), t6c1(5), t6c2(5), t6tp(6), t6im(6), t6c1(6), t6c2(6), t6tp(7), t6im(7), t6c1( _
7), t6c2(7), t6tp(8), t6im(8), t6c1(8), t6c2(8)
CLOSE #1
OPEN "c:map00\m6p16.map" FOR INPUT AS #1
INPUT #1, t6tp(9), t6im(9), t6c1(9), t6c2(9), t6tp(10), t6im(10), t6c1(10), t6c2(10), t6tp(11), t6im(11), t6c1(11), t6c2(11), t6tp(12), t6im(12), t6c1(12), t6c2(12), t6tp(13), t6im(13), t6c1(13), t6c2(13), t6tp(14), t6im(14), t6c1(14), t6c2(14),  _
t6tp(15), t6im(15), t6c1(15), t6c2(15), t6tp(16), t6im(16), t6c1(16), t6c2(16)
CLOSE #1
OPEN "c:map00\m6p24.map" FOR INPUT AS #1
INPUT #1, t6tp(17), t6im(17), t6c1(17), t6c2(17), t6tp(18), t6im(18), t6c1(18), t6c2(18), t6tp(19), t6im(19), t6c1(19), t6c2(19), t6tp(20), t6im(20), t6c1(20), t6c2(20), t6tp(21), t6im(21), t6c1(21), t6c2(21), t6tp(22), t6im(22), t6c1(22), t6c2(22), _
 t6tp(23), t6im(23), t6c1(23), t6c2(23), t6tp(24), t6im(24), t6c1(24), t6c2(24)
CLOSE #1
OPEN "c:map00\m6p32.map" FOR INPUT AS #1
INPUT #1, t6tp(25), t6im(25), t6c1(25), t6c2(25), t6tp(26), t6im(26), t6c1(26), t6c2(26), t6tp(27), t6im(27), t6c1(27), t6c2(27), t6tp(28), t6im(28), t6c1(28), t6c2(28), t6tp(29), t6im(29), t6c1(29), t6c2(29), t6tp(30), t6im(30), t6c1(30), t6c2(30), _
 t6tp(31), t6im(31), t6c1(31), t6c2(31), t6tp(32), t6im(32), t6c1(32), t6c2(32)
CLOSE #1
OPEN "c:map00\m7p08.map" FOR INPUT AS #1
INPUT #1, t7tp(1), t7im(1), t7c1(1), t7c2(1), t7tp(2), t7im(2), t7c1(2), t7c2(2), t7tp(3), t7im(3), t7c1(3), t7c2(3), t7tp(4), t7im(4), t7c1(4), t7c2(4), t7tp(5), t7im(5), t7c1(5), t7c2(5), t7tp(6), t7im(6), t7c1(6), t7c2(6), t7tp(7), t7im(7), t7c1( _
7), t7c2(7), t7tp(8), t7im(8), t7c1(8), t7c2(8)
CLOSE #1
OPEN "c:map00\m7p16.map" FOR INPUT AS #1
INPUT #1, t7tp(9), t7im(9), t7c1(9), t7c2(9), t7tp(10), t7im(10), t7c1(10), t7c2(10), t7tp(11), t7im(11), t7c1(11), t7c2(11), t7tp(12), t7im(12), t7c1(12), t7c2(12), t7tp(13), t7im(13), t7c1(13), t7c2(13), t7tp(14), t7im(14), t7c1(14), t7c2(14),  _
t7tp(15), t7im(15), t7c1(15), t7c2(15), t7tp(16), t7im(16), t7c1(16), t7c2(16)
CLOSE #1
OPEN "c:map00\m7p24.map" FOR INPUT AS #1
INPUT #1, t7tp(17), t7im(17), t7c1(17), t7c2(17), t7tp(18), t7im(18), t7c1(18), t7c2(18), t7tp(19), t7im(19), t7c1(19), t7c2(19), t7tp(20), t7im(20), t7c1(20), t7c2(20), t7tp(21), t7im(21), t7c1(21), t7c2(21), t7tp(22), t7im(22), t7c1(22), t7c2(22), _
 t7tp(23), t7im(23), t7c1(23), t7c2(23), t7tp(24), t7im(24), t7c1(24), t7c2(24)
CLOSE #1
OPEN "c:map00\m7p32.map" FOR INPUT AS #1
INPUT #1, t7tp(25), t7im(25), t7c1(25), t7c2(25), t7tp(26), t7im(26), t7c1(26), t7c2(26), t7tp(27), t7im(27), t7c1(27), t7c2(27), t7tp(28), t7im(28), t7c1(28), t7c2(28), t7tp(29), t7im(29), t7c1(29), t7c2(29), t7tp(30), t7im(30), t7c1(30), t7c2(30), _
 t7tp(31), t7im(31), t7c1(31), t7c2(31), t7tp(32), t7im(32), t7c1(32), t7c2(32)
CLOSE #1
OPEN "c:map00\m8p08.map" FOR INPUT AS #1
INPUT #1, t8tp(1), t8im(1), t8c1(1), t8c2(1), t8tp(2), t8im(2), t8c1(2), t8c2(2), t8tp(3), t8im(3), t8c1(3), t8c2(3), t8tp(4), t8im(4), t8c1(4), t8c2(4), t8tp(5), t8im(5), t8c1(5), t8c2(5), t8tp(6), t8im(6), t8c1(6), t8c2(6), t8tp(7), t8im(7), t8c1( _
7), t8c2(7), t8tp(8), t8im(8), t8c1(8), t8c2(8)
CLOSE #1
OPEN "c:map00\m8p16.map" FOR INPUT AS #1
INPUT #1, t8tp(9), t8im(9), t8c1(9), t8c2(9), t8tp(10), t8im(10), t8c1(10), t8c2(10), t8tp(11), t8im(11), t8c1(11), t8c2(11), t8tp(12), t8im(12), t8c1(12), t8c2(12), t8tp(13), t8im(13), t8c1(13), t8c2(13), t8tp(14), t8im(14), t8c1(14), t8c2(14),  _
t8tp(15), t8im(15), t8c1(15), t8c2(15), t8tp(16), t8im(16), t8c1(16), t8c2(16)
CLOSE #1
OPEN "c:map00\m8p24.map" FOR INPUT AS #1
INPUT #1, t8tp(17), t8im(17), t8c1(17), t8c2(17), t8tp(18), t8im(18), t8c1(18), t8c2(18), t8tp(19), t8im(19), t8c1(19), t8c2(19), t8tp(20), t8im(20), t8c1(20), t8c2(20), t8tp(21), t8im(21), t8c1(21), t8c2(21), t8tp(22), t8im(22), t8c1(22), t8c2(22), _
 t8tp(23), t8im(23), t8c1(23), t8c2(23), t8tp(24), t8im(24), t8c1(24), t8c2(24)
CLOSE #1
OPEN "c:map00\m8p32.map" FOR INPUT AS #1
INPUT #1, t8tp(25), t8im(25), t8c1(25), t8c2(25), t8tp(26), t8im(26), t8c1(26), t8c2(26), t8tp(27), t8im(27), t8c1(27), t8c2(27), t8tp(28), t8im(28), t8c1(28), t8c2(28), t8tp(29), t8im(29), t8c1(29), t8c2(29), t8tp(30), t8im(30), t8c1(30), t8c2(30), _
 t8tp(31), t8im(31), t8c1(31), t8c2(31), t8tp(32), t8im(32), t8c1(32), t8c2(32)
CLOSE #1
OPEN "c:map00\m9p08.map" FOR INPUT AS #1
INPUT #1, t9tp(1), t9im(1), t9c1(1), t9c2(1), t9tp(2), t9im(2), t9c1(2), t9c2(2), t9tp(3), t9im(3), t9c1(3), t9c2(3), t9tp(4), t9im(4), t9c1(4), t9c2(4), t9tp(5), t9im(5), t9c1(5), t9c2(5), t9tp(6), t9im(6), t9c1(6), t9c2(6), t9tp(7), t9im(7), t9c1( _
7), t9c2(7), t9tp(8), t9im(8), t9c1(8), t9c2(8)
CLOSE #1
OPEN "c:map00\m9p16.map" FOR INPUT AS #1
INPUT #1, t9tp(9), t9im(9), t9c1(9), t9c2(9), t9tp(10), t9im(10), t9c1(10), t9c2(10), t9tp(11), t9im(11), t9c1(11), t9c2(11), t9tp(12), t9im(12), t9c1(12), t9c2(12), t9tp(13), t9im(13), t9c1(13), t9c2(13), t9tp(14), t9im(14), t9c1(14), t9c2(14),  _
t9tp(15), t9im(15), t9c1(15), t9c2(15), t9tp(16), t9im(16), t9c1(16), t9c2(16)
CLOSE #1
OPEN "c:map00\m9p24.map" FOR INPUT AS #1
INPUT #1, t9tp(17), t9im(17), t9c1(17), t9c2(17), t9tp(18), t9im(18), t9c1(18), t9c2(18), t9tp(19), t9im(19), t9c1(19), t9c2(19), t9tp(20), t9im(20), t9c1(20), t9c2(20), t9tp(21), t9im(21), t9c1(21), t9c2(21), t9tp(22), t9im(22), t9c1(22), t9c2(22), _
 t9tp(23), t9im(23), t9c1(23), t9c2(23), t9tp(24), t9im(24), t9c1(24), t9c2(24)
CLOSE #1
OPEN "c:map00\m9p32.map" FOR INPUT AS #1
INPUT #1, t9tp(25), t9im(25), t9c1(25), t9c2(25), t9tp(26), t9im(26), t9c1(26), t9c2(26), t9tp(27), t9im(27), t9c1(27), t9c2(27), t9tp(28), t9im(28), t9c1(28), t9c2(28), t9tp(29), t9im(29), t9c1(29), t9c2(29), t9tp(30), t9im(30), t9c1(30), t9c2(30), _
 t9tp(31), t9im(31), t9c1(31), t9c2(31), t9tp(32), t9im(32), t9c1(32), t9c2(32)
CLOSE #1
OPEN "c:map00\m10p08.map" FOR INPUT AS #1
INPUT #1, t10tp(1), t10im(1), t10c1(1), t10c2(1), t10tp(2), t10im(2), t10c1(2), t10c2(2), t10tp(3), t10im(3), t10c1(3), t10c2(3), t10tp(4), t10im(4), t10c1(4), t10c2(4), t10tp(5), t10im(5), t10c1(5), t10c2(5), t10tp(6), t10im(6), t10c1(6), t10c2(6), _
 t10tp(7), t10im(7), t10c1(7), t10c2(7), t10tp(8), t10im(8), t10c1(8), t10c2(8)
CLOSE #1
OPEN "c:map00\m10p16.map" FOR INPUT AS #1
INPUT #1, t10tp(9), t10im(9), t10c1(9), t10c2(9), t10tp(10), t10im(10), t10c1(10), t10c2(10), t10tp(11), t10im(11), t10c1(11), t10c2(11), t10tp(12), t10im(12), t10c1(12), t10c2(12), t10tp(13), t10im(13), t10c1(13), t10c2(13), t10tp(14), t10im(14),  _
t10c1(14), t10c2(14), t10tp(15), t10im(15), t10c1(15), t10c2(15), t10tp(16), t10im(16), t10c1(16), t10c2(16)
CLOSE #1
OPEN "c:map00\m10p24.map" FOR INPUT AS #1
INPUT #1, t10tp(17), t10im(17), t10c1(17), t10c2(17), t10tp(18), t10im(18), t10c1(18), t10c2(18), t10tp(19), t10im(19), t10c1(19), t10c2(19), t10tp(20), t10im(20), t10c1(20), t10c2(20), t10tp(21), t10im(21), t10c1(21), t10c2(21), t10tp(22), t10im(22 _
), t10c1(22), t10c2(22), t10tp(23), t10im(23), t10c1(23), t10c2(23), t10tp(24), t10im(24), t10c1(24), t10c2(24)
CLOSE #1
OPEN "c:map00\m10p32.map" FOR INPUT AS #1
INPUT #1, t10tp(25), t10im(25), t10c1(25), t10c2(25), t10tp(26), t10im(26), t10c1(26), t10c2(26), t10tp(27), t10im(27), t10c1(27), t10c2(27), t10tp(28), t10im(28), t10c1(28), t10c2(28), t10tp(29), t10im(29), t10c1(29), t10c2(29), t10tp(30), t10im(30 _
), t10c1(30), t10c2(30), t10tp(31), t10im(31), t10c1(31), t10c2(31), t10tp(32), t10im(32), t10c1(32), t10c2(32)
CLOSE #1
OPEN "c:map00\m11p08.map" FOR INPUT AS #1
INPUT #1, t11tp(1), t11im(1), t11c1(1), t11c2(1), t11tp(2), t11im(2), t11c1(2), t11c2(2), t11tp(3), t11im(3), t11c1(3), t11c2(3), t11tp(4), t11im(4), t11c1(4), t11c2(4), t11tp(5), t11im(5), t11c1(5), t11c2(5), t11tp(6), t11im(6), t11c1(6), t11c2(6), _
 t11tp(7), t11im(7), t11c1(7), t11c2(7), t11tp(8), t11im(8), t11c1(8), t11c2(8)
CLOSE #1
OPEN "c:map00\m11p16.map" FOR INPUT AS #1
INPUT #1, t11tp(9), t11im(9), t11c1(9), t11c2(9), t11tp(10), t11im(10), t11c1(10), t11c2(10), t11tp(11), t11im(11), t11c1(11), t11c2(11), t11tp(12), t11im(12), t11c1(12), t11c2(12), t11tp(13), t11im(13), t11c1(13), t11c2(13), t11tp(14), t11im(14),  _
t11c1(14), t11c2(14), t11tp(15), t11im(15), t11c1(15), t11c2(15), t11tp(16), t11im(16), t11c1(16), t11c2(16)
CLOSE #1
OPEN "c:map00\m11p24.map" FOR INPUT AS #1
INPUT #1, t11tp(17), t11im(17), t11c1(17), t11c2(17), t11tp(18), t11im(18), t11c1(18), t11c2(18), t11tp(19), t11im(19), t11c1(19), t11c2(19), t11tp(20), t11im(20), t11c1(20), t11c2(20), t11tp(21), t11im(21), t11c1(21), t11c2(21), t11tp(22), t11im(22 _
), t11c1(22), t11c2(22), t11tp(23), t11im(23), t11c1(23), t11c2(23), t11tp(24), t11im(24), t11c1(24), t11c2(24)
CLOSE #1
OPEN "c:map00\m11p32.map" FOR INPUT AS #1
INPUT #1, t11tp(25), t11im(25), t11c1(25), t11c2(25), t11tp(26), t11im(26), t11c1(26), t11c2(26), t11tp(27), t11im(27), t11c1(27), t11c2(27), t11tp(28), t11im(28), t11c1(28), t11c2(28), t11tp(29), t11im(29), t11c1(29), t11c2(29), t11tp(30), t11im(30 _
), t11c1(30), t11c2(30), t11tp(31), t11im(31), t11c1(31), t11c2(31), t11tp(32), t11im(32), t11c1(32), t11c2(32)
CLOSE #1
OPEN "c:map00\m12p08.map" FOR INPUT AS #1
INPUT #1, t12tp(1), t12im(1), t12c1(1), t12c2(1), t12tp(2), t12im(2), t12c1(2), t12c2(2), t12tp(3), t12im(3), t12c1(3), t12c2(3), t12tp(4), t12im(4), t12c1(4), t12c2(4), t12tp(5), t12im(5), t12c1(5), t12c2(5), t12tp(6), t12im(6), t12c1(6), t12c2(6), _
 t12tp(7), t12im(7), t12c1(7), t12c2(7), t12tp(8), t12im(8), t12c1(8), t12c2(8)
CLOSE #1
OPEN "c:map00\m12p16.map" FOR INPUT AS #1
INPUT #1, t12tp(9), t12im(9), t12c1(9), t12c2(9), t12tp(10), t12im(10), t12c1(10), t12c2(10), t12tp(11), t12im(11), t12c1(11), t12c2(11), t12tp(12), t12im(12), t12c1(12), t12c2(12), t12tp(13), t12im(13), t12c1(13), t12c2(13), t12tp(14), t12im(14),  _
t12c1(14), t12c2(14), t12tp(15), t12im(15), t12c1(15), t12c2(15), t12tp(16), t12im(16), t12c1(16), t12c2(16)
CLOSE #1
OPEN "c:map00\m12p24.map" FOR INPUT AS #1
INPUT #1, t12tp(17), t12im(17), t12c1(17), t12c2(17), t12tp(18), t12im(18), t12c1(18), t12c2(18), t12tp(19), t12im(19), t12c1(19), t12c2(19), t12tp(20), t12im(20), t12c1(20), t12c2(20), t12tp(21), t12im(21), t12c1(21), t12c2(21), t12tp(22), t12im(22 _
), t12c1(22), t12c2(22), t12tp(23), t12im(23), t12c1(23), t12c2(23), t12tp(24), t12im(24), t12c1(24), t12c2(24)
CLOSE #1
OPEN "c:map00\m12p32.map" FOR INPUT AS #1
INPUT #1, t12tp(25), t12im(25), t12c1(25), t12c2(25), t12tp(26), t12im(26), t12c1(26), t12c2(26), t12tp(27), t12im(27), t12c1(27), t12c2(27), t12tp(28), t12im(28), t12c1(28), t12c2(28), t12tp(29), t12im(29), t12c1(29), t12c2(29), t12tp(30), t12im(30 _
), t12c1(30), t12c2(30), t12tp(31), t12im(31), t12c1(31), t12c2(31), t12tp(32), t12im(32), t12c1(32), t12c2(32)
CLOSE #1
OPEN "c:map00\m13p08.map" FOR INPUT AS #1
INPUT #1, t13tp(1), t13im(1), t13c1(1), t13c2(1), t13tp(2), t13im(2), t13c1(2), t13c2(2), t13tp(3), t13im(3), t13c1(3), t13c2(3), t13tp(4), t13im(4), t13c1(4), t13c2(4), t13tp(5), t13im(5), t13c1(5), t13c2(5), t13tp(6), t13im(6), t13c1(6), t13c2(6), _
 t13tp(7), t13im(7), t13c1(7), t13c2(7), t13tp(8), t13im(8), t13c1(8), t13c2(8)
CLOSE #1
OPEN "c:map00\m13p16.map" FOR INPUT AS #1
INPUT #1, t13tp(9), t13im(9), t13c1(9), t13c2(9), t13tp(10), t13im(10), t13c1(10), t13c2(10), t13tp(11), t13im(11), t13c1(11), t13c2(11), t13tp(12), t13im(12), t13c1(12), t13c2(12), t13tp(13), t13im(13), t13c1(13), t13c2(13), t13tp(14), t13im(14),  _
t13c1(14), t13c2(14), t13tp(15), t13im(15), t13c1(15), t13c2(15), t13tp(16), t13im(16), t13c1(16), t13c2(16)
CLOSE #1
OPEN "c:map00\m13p24.map" FOR INPUT AS #1
INPUT #1, t13tp(17), t13im(17), t13c1(17), t13c2(17), t13tp(18), t13im(18), t13c1(18), t13c2(18), t13tp(19), t13im(19), t13c1(19), t13c2(19), t13tp(20), t13im(20), t13c1(20), t13c2(20), t13tp(21), t13im(21), t13c1(21), t13c2(21), t13tp(22), t13im(22 _
), t13c1(22), t13c2(22), t13tp(23), t13im(23), t13c1(23), t13c2(23), t13tp(24), t13im(24), t13c1(24), t13c2(24)
CLOSE #1
OPEN "c:map00\m13p32.map" FOR INPUT AS #1
INPUT #1, t13tp(25), t13im(25), t13c1(25), t13c2(25), t13tp(26), t13im(26), t13c1(26), t13c2(26), t13tp(27), t13im(27), t13c1(27), t13c2(27), t13tp(28), t13im(28), t13c1(28), t13c2(28), t13tp(29), t13im(29), t13c1(29), t13c2(29), t13tp(30), t13im(30 _
), t13c1(30), t13c2(30), t13tp(31), t13im(31), t13c1(31), t13c2(31), t13tp(32), t13im(32), t13c1(32), t13c2(32)
CLOSE #1
OPEN "c:map00\m14p08.map" FOR INPUT AS #1
INPUT #1, t14tp(1), t14im(1), t14c1(1), t14c2(1), t14tp(2), t14im(2), t14c1(2), t14c2(2), t14tp(3), t14im(3), t14c1(3), t14c2(3), t14tp(4), t14im(4), t14c1(4), t14c2(4), t14tp(5), t14im(5), t14c1(5), t14c2(5), t14tp(6), t14im(6), t14c1(6), t14c2(6), _
 t14tp(7), t14im(7), t14c1(7), t14c2(7), t14tp(8), t14im(8), t14c1(8), t14c2(8)
CLOSE #1
OPEN "c:map00\m14p16.map" FOR INPUT AS #1
INPUT #1, t14tp(9), t14im(9), t14c1(9), t14c2(9), t14tp(10), t14im(10), t14c1(10), t14c2(10), t14tp(11), t14im(11), t14c1(11), t14c2(11), t14tp(12), t14im(12), t14c1(12), t14c2(12), t14tp(13), t14im(13), t14c1(13), t14c2(13), t14tp(14), t14im(14),  _
t14c1(14), t14c2(14), t14tp(15), t14im(15), t14c1(15), t14c2(15), t14tp(16), t14im(16), t14c1(16), t14c2(16)
CLOSE #1
OPEN "c:map00\m14p24.map" FOR INPUT AS #1
INPUT #1, t14tp(17), t14im(17), t14c1(17), t14c2(17), t14tp(18), t14im(18), t14c1(18), t14c2(18), t14tp(19), t14im(19), t14c1(19), t14c2(19), t14tp(20), t14im(20), t14c1(20), t14c2(20), t14tp(21), t14im(21), t14c1(21), t14c2(21), t14tp(22), t14im(22 _
), t14c1(22), t14c2(22), t14tp(23), t14im(23), t14c1(23), t14c2(23), t14tp(24), t14im(24), t14c1(24), t14c2(24)
CLOSE #1
OPEN "c:map00\m14p32.map" FOR INPUT AS #1
INPUT #1, t14tp(25), t14im(25), t14c1(25), t14c2(25), t14tp(26), t14im(26), t14c1(26), t14c2(26), t14tp(27), t14im(27), t14c1(27), t14c2(27), t14tp(28), t14im(28), t14c1(28), t14c2(28), t14tp(29), t14im(29), t14c1(29), t14c2(29), t14tp(30), t14im(30 _
), t14c1(30), t14c2(30), t14tp(31), t14im(31), t14c1(31), t14c2(31), t14tp(32), t14im(32), t14c1(32), t14c2(32)
CLOSE #1
OPEN "c:map00\m15p08.map" FOR INPUT AS #1
INPUT #1, t15tp(1), t15im(1), t15c1(1), t15c2(1), t15tp(2), t15im(2), t15c1(2), t15c2(2), t15tp(3), t15im(3), t15c1(3), t15c2(3), t15tp(4), t15im(4), t15c1(4), t15c2(4), t15tp(5), t15im(5), t15c1(5), t15c2(5), t15tp(6), t15im(6), t15c1(6), t15c2(6), _
 t15tp(7), t15im(7), t15c1(7), t15c2(7), t15tp(8), t15im(8), t15c1(8), t15c2(8)
CLOSE #1
OPEN "c:map00\m15p16.map" FOR INPUT AS #1
INPUT #1, t15tp(9), t15im(9), t15c1(9), t15c2(9), t15tp(10), t15im(10), t15c1(10), t15c2(10), t15tp(11), t15im(11), t15c1(11), t15c2(11), t15tp(12), t15im(12), t15c1(12), t15c2(12), t15tp(13), t15im(13), t15c1(13), t15c2(13), t15tp(14), t15im(14),  _
t15c1(14), t15c2(14), t15tp(15), t15im(15), t15c1(15), t15c2(15), t15tp(16), t15im(16), t15c1(16), t15c2(16)
CLOSE #1
OPEN "c:map00\m15p24.map" FOR INPUT AS #1
INPUT #1, t15tp(17), t15im(17), t15c1(17), t15c2(17), t15tp(18), t15im(18), t15c1(18), t15c2(18), t15tp(19), t15im(19), t15c1(19), t15c2(19), t15tp(20), t15im(20), t15c1(20), t15c2(20), t15tp(21), t15im(21), t15c1(21), t15c2(21), t15tp(22), t15im(22 _
), t15c1(22), t15c2(22), t15tp(23), t15im(23), t15c1(23), t15c2(23), t15tp(24), t15im(24), t15c1(24), t15c2(24)
CLOSE #1
OPEN "c:map00\m15p32.map" FOR INPUT AS #1
INPUT #1, t15tp(25), t15im(25), t15c1(25), t15c2(25), t15tp(26), t15im(26), t15c1(26), t15c2(26), t15tp(27), t15im(27), t15c1(27), t15c2(27), t15tp(28), t15im(28), t15c1(28), t15c2(28), t15tp(29), t15im(29), t15c1(29), t15c2(29), t15tp(30), t15im(30 _
), t15c1(30), t15c2(30), t15tp(31), t15im(31), t15c1(31), t15c2(31), t15tp(32), t15im(32), t15c1(32), t15c2(32)
CLOSE #1
OPEN "c:map00\m16p08.map" FOR INPUT AS #1
INPUT #1, t16tp(1), t16im(1), t16c1(1), t16c2(1), t16tp(2), t16im(2), t16c1(2), t16c2(2), t16tp(3), t16im(3), t16c1(3), t16c2(3), t16tp(4), t16im(4), t16c1(4), t16c2(4), t16tp(5), t16im(5), t16c1(5), t16c2(5), t16tp(6), t16im(6), t16c1(6), t16c2(6), _
 t16tp(7), t16im(7), t16c1(7), t16c2(7), t16tp(8), t16im(8), t16c1(8), t16c2(8)
CLOSE #1
OPEN "c:map00\m16p16.map" FOR INPUT AS #1
INPUT #1, t16tp(9), t16im(9), t16c1(9), t16c2(9), t16tp(10), t16im(10), t16c1(10), t16c2(10), t16tp(11), t16im(11), t16c1(11), t16c2(11), t16tp(12), t16im(12), t16c1(12), t16c2(12), t16tp(13), t16im(13), t16c1(13), t16c2(13), t16tp(14), t16im(14),  _
t16c1(14), t16c2(14), t16tp(15), t16im(15), t16c1(15), t16c2(15), t16tp(16), t16im(16), t16c1(16), t16c2(16)
CLOSE #1
OPEN "c:map00\m16p24.map" FOR INPUT AS #1
INPUT #1, t16tp(17), t16im(17), t16c1(17), t16c2(17), t16tp(18), t16im(18), t16c1(18), t16c2(18), t16tp(19), t16im(19), t16c1(19), t16c2(19), t16tp(20), t16im(20), t16c1(20), t16c2(20), t16tp(21), t16im(21), t16c1(21), t16c2(21), t16tp(22), t16im(22 _
), t16c1(22), t16c2(22), t16tp(23), t16im(23), t16c1(23), t16c2(23), t16tp(24), t16im(24), t16c1(24), t16c2(24)
CLOSE #1
OPEN "c:map00\m16p32.map" FOR INPUT AS #1
INPUT #1, t16tp(25), t16im(25), t16c1(25), t16c2(25), t16tp(26), t16im(26), t16c1(26), t16c2(26), t16tp(27), t16im(27), t16c1(27), t16c2(27), t16tp(28), t16im(28), t16c1(28), t16c2(28), t16tp(29), t16im(29), t16c1(29), t16c2(29), t16tp(30), t16im(30 _
), t16c1(30), t16c2(30), t16tp(31), t16im(31), t16c1(31), t16c2(31), t16tp(32), t16im(32), t16c1(32), t16c2(32)
CLOSE #1
OPEN "c:map00\m17p08.map" FOR INPUT AS #1
INPUT #1, t17tp(1), t17im(1), t17c1(1), t17c2(1), t17tp(2), t17im(2), t17c1(2), t17c2(2), t17tp(3), t17im(3), t17c1(3), t17c2(3), t17tp(4), t17im(4), t17c1(4), t17c2(4), t17tp(5), t17im(5), t17c1(5), t17c2(5), t17tp(6), t17im(6), t17c1(6), t17c2(6), _
 t17tp(7), t17im(7), t17c1(7), t17c2(7), t17tp(8), t17im(8), t17c1(8), t17c2(8)
CLOSE #1
OPEN "c:map00\m17p16.map" FOR INPUT AS #1
INPUT #1, t17tp(9), t17im(9), t17c1(9), t17c2(9), t17tp(10), t17im(10), t17c1(10), t17c2(10), t17tp(11), t17im(11), t17c1(11), t17c2(11), t17tp(12), t17im(12), t17c1(12), t17c2(12), t17tp(13), t17im(13), t17c1(13), t17c2(13), t17tp(14), t17im(14),  _
t17c1(14), t17c2(14), t17tp(15), t17im(15), t17c1(15), t17c2(15), t17tp(16), t17im(16), t17c1(16), t17c2(16)
CLOSE #1
OPEN "c:map00\m17p24.map" FOR INPUT AS #1
INPUT #1, t17tp(17), t17im(17), t17c1(17), t17c2(17), t17tp(18), t17im(18), t17c1(18), t17c2(18), t17tp(19), t17im(19), t17c1(19), t17c2(19), t17tp(20), t17im(20), t17c1(20), t17c2(20), t17tp(21), t17im(21), t17c1(21), t17c2(21), t17tp(22), t17im(22 _
), t17c1(22), t17c2(22), t17tp(23), t17im(23), t17c1(23), t17c2(23), t17tp(24), t17im(24), t17c1(24), t17c2(24)
CLOSE #1
OPEN "c:map00\m17p32.map" FOR INPUT AS #1
INPUT #1, t17tp(25), t17im(25), t17c1(25), t17c2(25), t17tp(26), t17im(26), t17c1(26), t17c2(26), t17tp(27), t17im(27), t17c1(27), t17c2(27), t17tp(28), t17im(28), t17c1(28), t17c2(28), t17tp(29), t17im(29), t17c1(29), t17c2(29), t17tp(30), t17im(30 _
), t17c1(30), t17c2(30), t17tp(31), t17im(31), t17c1(31), t17c2(31), t17tp(32), t17im(32), t17c1(32), t17c2(32)
CLOSE #1
OPEN "c:map00\m18p08.map" FOR INPUT AS #1
INPUT #1, t18tp(1), t18im(1), t18c1(1), t18c2(1), t18tp(2), t18im(2), t18c1(2), t18c2(2), t18tp(3), t18im(3), t18c1(3), t18c2(3), t18tp(4), t18im(4), t18c1(4), t18c2(4), t18tp(5), t18im(5), t18c1(5), t18c2(5), t18tp(6), t18im(6), t18c1(6), t18c2(6), _
 t18tp(7), t18im(7), t18c1(7), t18c2(7), t18tp(8), t18im(8), t18c1(8), t18c2(8)
CLOSE #1
OPEN "c:map00\m18p16.map" FOR INPUT AS #1
INPUT #1, t18tp(9), t18im(9), t18c1(9), t18c2(9), t18tp(10), t18im(10), t18c1(10), t18c2(10), t18tp(11), t18im(11), t18c1(11), t18c2(11), t18tp(12), t18im(12), t18c1(12), t18c2(12), t18tp(13), t18im(13), t18c1(13), t18c2(13), t18tp(14), t18im(14),  _
t18c1(14), t18c2(14), t17tp(15), t18im(15), t18c1(15), t18c2(15), t18tp(16), t18im(16), t18c1(16), t18c2(16)
CLOSE #1
OPEN "c:map00\m18p24.map" FOR INPUT AS #1
INPUT #1, t18tp(17), t18im(17), t18c1(17), t18c2(17), t18tp(18), t18im(18), t18c1(18), t18c2(18), t18tp(19), t18im(19), t18c1(19), t18c2(19), t18tp(20), t18im(20), t18c1(20), t18c2(20), t18tp(21), t18im(21), t18c1(21), t18c2(21), t18tp(22), t18im(22 _
), t18c1(22), t18c2(22), t17tp(23), t18im(23), t18c1(23), t18c2(23), t18tp(24), t18im(24), t18c1(24), t18c2(24)
CLOSE #1
OPEN "c:map00\m18p32.map" FOR INPUT AS #1
INPUT #1, t18tp(25), t18im(25), t18c1(25), t18c2(25), t18tp(26), t18im(26), t18c1(26), t18c2(26), t18tp(27), t18im(27), t18c1(27), t18c2(27), t18tp(28), t18im(28), t18c1(28), t18c2(28), t18tp(29), t18im(29), t18c1(29), t18c2(29), t18tp(30), t18im(30 _
), t18c1(30), t18c2(30), t17tp(31), t18im(31), t18c1(31), t18c2(31), t18tp(32), t18im(32), t18c1(32), t18c2(32)
CLOSE #1
OPEN "c:map00\m19p08.map" FOR INPUT AS #1
INPUT #1, t19tp(1), t19im(1), t19c1(1), t19c2(1), t19tp(2), t19im(2), t19c1(2), t19c2(2), t19tp(3), t19im(3), t19c1(3), t19c2(3), t19tp(4), t19im(4), t19c1(4), t19c2(4), t19tp(5), t19im(5), t19c1(5), t19c2(5), t19tp(6), t19im(6), t19c1(6), t19c2(6), _
 t19tp(7), t19im(7), t19c1(7), t19c2(7), t19tp(8), t19im(8), t19c1(8), t19c2(8)
CLOSE #1
OPEN "c:map00\m19p16.map" FOR INPUT AS #1
INPUT #1, t19tp(9), t19im(9), t19c1(9), t19c2(9), t19tp(10), t19im(10), t19c1(10), t19c2(10), t19tp(11), t19im(11), t19c1(11), t19c2(11), t19tp(12), t19im(12), t19c1(12), t19c2(12), t19tp(13), t19im(13), t19c1(13), t19c2(13), t19tp(14), t19im(14),  _
t19c1(14), t19c2(14), t17tp(15), t19im(15), t19c1(15), t19c2(15), t19tp(16), t19im(16), t19c1(16), t19c2(16)
CLOSE #1
OPEN "c:map00\m19p24.map" FOR INPUT AS #1
INPUT #1, t19tp(17), t19im(17), t19c1(17), t19c2(17), t19tp(18), t19im(18), t19c1(18), t19c2(18), t19tp(19), t19im(19), t19c1(19), t19c2(19), t19tp(20), t19im(20), t19c1(20), t19c2(20), t19tp(21), t19im(21), t19c1(21), t19c2(21), t19tp(22), t19im(22 _
), t19c1(22), t19c2(22), t17tp(23), t19im(23), t19c1(23), t19c2(23), t19tp(24), t19im(24), t19c1(24), t19c2(24)
CLOSE #1
OPEN "c:map00\m19p32.map" FOR INPUT AS #1
INPUT #1, t19tp(25), t19im(25), t19c1(25), t19c2(25), t19tp(26), t19im(26), t19c1(26), t19c2(26), t19tp(27), t19im(27), t19c1(27), t19c2(27), t19tp(28), t19im(28), t19c1(28), t19c2(28), t19tp(29), t19im(29), t19c1(29), t19c2(29), t19tp(30), t19im(30 _
), t19c1(30), t19c2(30), t17tp(31), t19im(31), t19c1(31), t19c2(31), t19tp(32), t19im(32), t19c1(32), t19c2(32)
CLOSE #1
OPEN "c:map00\m20p08.map" FOR INPUT AS #1
INPUT #1, t20tp(1), t20im(1), t20c1(1), t20c2(1), t20tp(2), t20im(2), t20c1(2), t20c2(2), t20tp(3), t20im(3), t20c1(3), t20c2(3), t20tp(4), t20im(4), t20c1(4), t20c2(4), t20tp(5), t20im(5), t20c1(5), t20c2(5), t20tp(6), t20im(6), t20c1(6), t20c2(6), _
 t20tp(7), t20im(7), t20c1(7), t20c2(7), t20tp(8), t20im(8), t20c1(8), t20c2(8)
CLOSE #1
OPEN "c:map00\m20p16.map" FOR INPUT AS #1
INPUT #1, t20tp(9), t20im(9), t20c1(9), t20c2(9), t20tp(10), t20im(10), t20c1(10), t20c2(10), t20tp(11), t20im(11), t20c1(11), t20c2(11), t20tp(12), t20im(12), t20c1(12), t20c2(12), t20tp(13), t20im(13), t20c1(13), t20c2(13), t20tp(14), t20im(14),  _
t20c1(14), t20c2(14), t17tp(15), t20im(15), t20c1(15), t20c2(15), t20tp(16), t20im(16), t20c1(16), t20c2(16)
CLOSE #1
OPEN "c:map00\m20p24.map" FOR INPUT AS #1
INPUT #1, t20tp(17), t20im(17), t20c1(17), t20c2(17), t20tp(18), t20im(18), t20c1(18), t20c2(18), t20tp(19), t20im(19), t20c1(19), t20c2(19), t20tp(20), t20im(20), t20c1(20), t20c2(20), t20tp(21), t20im(21), t20c1(21), t20c2(21), t20tp(22), t20im(22 _
), t20c1(22), t20c2(22), t17tp(23), t20im(23), t20c1(23), t20c2(23), t20tp(24), t20im(24), t20c1(24), t20c2(24)
CLOSE #1
OPEN "c:map00\m20p32.map" FOR INPUT AS #1
INPUT #1, t20tp(25), t20im(25), t20c1(25), t20c2(25), t20tp(26), t20im(26), t20c1(26), t20c2(26), t20tp(27), t20im(27), t20c1(27), t20c2(27), t20tp(28), t20im(28), t20c1(28), t20c2(28), t20tp(29), t20im(29), t20c1(29), t20c2(29), t20tp(30), t20im(30 _
), t20c1(30), t20c2(30), t17tp(31), t20im(31), t20c1(31), t20c2(31), t20tp(32), t20im(32), t20c1(32), t20c2(32)
CLOSE #1
OPEN "c:map00\m21p08.map" FOR INPUT AS #1
INPUT #1, t21tp(1), t21im(1), t21c1(1), t21c2(1), t21tp(2), t21im(2), t21c1(2), t21c2(2), t21tp(3), t21im(3), t21c1(3), t21c2(3), t21tp(4), t21im(4), t21c1(4), t21c2(4), t21tp(5), t21im(5), t21c1(5), t21c2(5), t21tp(6), t21im(6), t21c1(6), t21c2(6), _
 t21tp(7), t21im(7), t21c1(7), t21c2(7), t21tp(8), t21im(8), t21c1(8), t21c2(8)
CLOSE #1
OPEN "c:map00\m21p16.map" FOR INPUT AS #1
INPUT #1, t21tp(9), t21im(9), t21c1(9), t21c2(9), t21tp(10), t21im(10), t21c1(10), t21c2(10), t21tp(11), t21im(11), t21c1(11), t21c2(11), t21tp(12), t21im(12), t21c1(12), t21c2(12), t21tp(13), t21im(13), t21c1(13), t21c2(13), t21tp(14), t21im(14),  _
t21c1(14), t21c2(14), t17tp(15), t21im(15), t21c1(15), t21c2(15), t21tp(16), t21im(16), t21c1(16), t21c2(16)
CLOSE #1
OPEN "c:map00\m21p24.map" FOR INPUT AS #1
INPUT #1, t21tp(17), t21im(17), t21c1(17), t21c2(17), t21tp(18), t21im(18), t21c1(18), t21c2(18), t21tp(19), t21im(19), t21c1(19), t21c2(19), t21tp(20), t21im(20), t21c1(20), t21c2(20), t21tp(21), t21im(21), t21c1(21), t21c2(21), t21tp(22), t21im(22 _
), t21c1(22), t21c2(22), t17tp(23), t21im(23), t21c1(23), t21c2(23), t21tp(24), t21im(24), t21c1(24), t21c2(24)
CLOSE #1
OPEN "c:map00\m21p32.map" FOR INPUT AS #1
INPUT #1, t21tp(25), t21im(25), t21c1(25), t21c2(25), t21tp(26), t21im(26), t21c1(26), t21c2(26), t21tp(27), t21im(27), t21c1(27), t21c2(27), t21tp(28), t21im(28), t21c1(28), t21c2(28), t21tp(29), t21im(29), t21c1(29), t21c2(29), t21tp(30), t21im(30 _
), t21c1(30), t21c2(30), t17tp(31), t21im(31), t21c1(31), t21c2(31), t21tp(32), t21im(32), t21c1(32), t21c2(32)
CLOSE #1
OPEN "c:map00\m22p08.map" FOR INPUT AS #1
INPUT #1, t22tp(1), t22im(1), t22c1(1), t22c2(1), t22tp(2), t22im(2), t22c1(2), t22c2(2), t22tp(3), t22im(3), t22c1(3), t22c2(3), t22tp(4), t22im(4), t22c1(4), t22c2(4), t22tp(5), t22im(5), t22c1(5), t22c2(5), t22tp(6), t22im(6), t22c1(6), t22c2(6), _
 t22tp(7), t22im(7), t22c1(7), t22c2(7), t22tp(8), t22im(8), t22c1(8), t22c2(8)
CLOSE #1
OPEN "c:map00\m22p16.map" FOR INPUT AS #1
INPUT #1, t22tp(9), t22im(9), t22c1(9), t22c2(9), t22tp(10), t22im(10), t22c1(10), t22c2(10), t22tp(11), t22im(11), t22c1(11), t22c2(11), t22tp(12), t22im(12), t22c1(12), t22c2(12), t22tp(13), t22im(13), t22c1(13), t22c2(13), t22tp(14), t22im(14),  _
t22c1(14), t22c2(14), t17tp(15), t22im(15), t22c1(15), t22c2(15), t22tp(16), t22im(16), t22c1(16), t22c2(16)
CLOSE #1
OPEN "c:map00\m22p24.map" FOR INPUT AS #1
INPUT #1, t22tp(17), t22im(17), t22c1(17), t22c2(17), t22tp(18), t22im(18), t22c1(18), t22c2(18), t22tp(19), t22im(19), t22c1(19), t22c2(19), t22tp(20), t22im(20), t22c1(20), t22c2(20), t22tp(21), t22im(21), t22c1(21), t22c2(21), t22tp(22), t22im(22 _
), t22c1(22), t22c2(22), t17tp(23), t22im(23), t22c1(23), t22c2(23), t22tp(24), t22im(24), t22c1(24), t22c2(24)
CLOSE #1
OPEN "c:map00\m22p32.map" FOR INPUT AS #1
INPUT #1, t22tp(25), t22im(25), t22c1(25), t22c2(25), t22tp(26), t22im(26), t22c1(26), t22c2(26), t22tp(27), t22im(27), t22c1(27), t22c2(27), t22tp(28), t22im(28), t22c1(28), t22c2(28), t22tp(29), t22im(29), t22c1(29), t22c2(29), t22tp(30), t22im(30 _
), t22c1(30), t22c2(30), t17tp(31), t22im(31), t22c1(31), t22c2(31), t22tp(32), t22im(32), t22c1(32), t22c2(32)
CLOSE #1
OPEN "c:map00\m23p08.map" FOR INPUT AS #1
INPUT #1, t23tp(1), t23im(1), t23c1(1), t23c2(1), t23tp(2), t23im(2), t23c1(2), t23c2(2), t23tp(3), t23im(3), t23c1(3), t23c2(3), t23tp(4), t23im(4), t23c1(4), t23c2(4), t23tp(5), t23im(5), t23c1(5), t23c2(5), t23tp(6), t23im(6), t23c1(6), t23c2(6), _
 t23tp(7), t23im(7), t23c1(7), t23c2(7), t23tp(8), t23im(8), t23c1(8), t23c2(8)
CLOSE #1
OPEN "c:map00\m23p16.map" FOR INPUT AS #1
INPUT #1, t23tp(9), t23im(9), t23c1(9), t23c2(9), t23tp(10), t23im(10), t23c1(10), t23c2(10), t23tp(11), t23im(11), t23c1(11), t23c2(11), t23tp(12), t23im(12), t23c1(12), t23c2(12), t23tp(13), t23im(13), t23c1(13), t23c2(13), t23tp(14), t23im(14),  _
t23c1(14), t23c2(14), t17tp(15), t23im(15), t23c1(15), t23c2(15), t23tp(16), t23im(16), t23c1(16), t23c2(16)
CLOSE #1
OPEN "c:map00\m23p24.map" FOR INPUT AS #1
INPUT #1, t23tp(17), t23im(17), t23c1(17), t23c2(17), t23tp(18), t23im(18), t23c1(18), t23c2(18), t23tp(19), t23im(19), t23c1(19), t23c2(19), t23tp(20), t23im(20), t23c1(20), t23c2(20), t23tp(21), t23im(21), t23c1(21), t23c2(21), t23tp(22), t23im(22 _
), t23c1(22), t23c2(22), t17tp(23), t23im(23), t23c1(23), t23c2(23), t23tp(24), t23im(24), t23c1(24), t23c2(24)
CLOSE #1
OPEN "c:map00\m23p32.map" FOR INPUT AS #1
INPUT #1, t23tp(25), t23im(25), t23c1(25), t23c2(25), t23tp(26), t23im(26), t23c1(26), t23c2(26), t23tp(27), t23im(27), t23c1(27), t23c2(27), t23tp(28), t23im(28), t23c1(28), t23c2(28), t23tp(29), t23im(29), t23c1(29), t23c2(29), t23tp(30), t23im(30 _
), t23c1(30), t23c2(30), t17tp(31), t23im(31), t23c1(31), t23c2(31), t23tp(32), t23im(32), t23c1(32), t23c2(32)
CLOSE #1
OPEN "c:map00\m24p08.map" FOR INPUT AS #1
INPUT #1, t24tp(1), t24im(1), t24c1(1), t24c2(1), t24tp(2), t24im(2), t24c1(2), t24c2(2), t24tp(3), t24im(3), t24c1(3), t24c2(3), t24tp(4), t24im(4), t24c1(4), t24c2(4), t24tp(5), t24im(5), t24c1(5), t24c2(5), t24tp(6), t24im(6), t24c1(6), t24c2(6), _
 t24tp(7), t24im(7), t24c1(7), t24c2(7), t24tp(8), t24im(8), t24c1(8), t24c2(8)
CLOSE #1
OPEN "c:map00\m24p16.map" FOR INPUT AS #1
INPUT #1, t24tp(9), t24im(9), t24c1(9), t24c2(9), t24tp(10), t24im(10), t24c1(10), t24c2(10), t24tp(11), t24im(11), t24c1(11), t24c2(11), t24tp(12), t24im(12), t24c1(12), t24c2(12), t24tp(13), t24im(13), t24c1(13), t24c2(13), t24tp(14), t24im(14),  _
t24c1(14), t24c2(14), t17tp(15), t24im(15), t24c1(15), t24c2(15), t24tp(16), t24im(16), t24c1(16), t24c2(16)
CLOSE #1
OPEN "c:map00\m24p24.map" FOR INPUT AS #1
INPUT #1, t24tp(17), t24im(17), t24c1(17), t24c2(17), t24tp(18), t24im(18), t24c1(18), t24c2(18), t24tp(19), t24im(19), t24c1(19), t24c2(19), t24tp(20), t24im(20), t24c1(20), t24c2(20), t24tp(21), t24im(21), t24c1(21), t24c2(21), t24tp(22), t24im(22 _
), t24c1(22), t24c2(22), t17tp(23), t24im(23), t24c1(23), t24c2(23), t24tp(24), t24im(24), t24c1(24), t24c2(24)
CLOSE #1
OPEN "c:map00\m24p32.map" FOR INPUT AS #1
INPUT #1, t24tp(25), t24im(25), t24c1(25), t24c2(25), t24tp(26), t24im(26), t24c1(26), t24c2(26), t24tp(27), t24im(27), t24c1(27), t24c2(27), t24tp(28), t24im(28), t24c1(28), t24c2(28), t24tp(29), t24im(29), t24c1(29), t24c2(29), t24tp(30), t24im(30 _
), t24c1(30), t24c2(30), t17tp(31), t24im(31), t24c1(31), t24c2(31), t24tp(32), t24im(32), t24c1(32), t24c2(32)
CLOSE #1
OPEN "c:map00\m25p08.map" FOR INPUT AS #1
INPUT #1, t25tp(1), t25im(1), t25c1(1), t25c2(1), t25tp(2), t25im(2), t25c1(2), t25c2(2), t25tp(3), t25im(3), t25c1(3), t25c2(3), t25tp(4), t25im(4), t25c1(4), t25c2(4), t25tp(5), t25im(5), t25c1(5), t25c2(5), t25tp(6), t25im(6), t25c1(6), t25c2(6), _
 t25tp(7), t25im(7), t25c1(7), t25c2(7), t25tp(8), t25im(8), t25c1(8), t25c2(8)
CLOSE #1
OPEN "c:map00\m25p16.map" FOR INPUT AS #1
INPUT #1, t25tp(9), t25im(9), t25c1(9), t25c2(9), t25tp(10), t25im(10), t25c1(10), t25c2(10), t25tp(11), t25im(11), t25c1(11), t25c2(11), t25tp(12), t25im(12), t25c1(12), t25c2(12), t25tp(13), t25im(13), t25c1(13), t25c2(13), t25tp(14), t25im(14),  _
t25c1(14), t25c2(14), t17tp(15), t25im(15), t25c1(15), t25c2(15), t25tp(16), t25im(16), t25c1(16), t25c2(16)
CLOSE #1
OPEN "c:map00\m25p24.map" FOR INPUT AS #1
INPUT #1, t25tp(17), t25im(17), t25c1(17), t25c2(17), t25tp(18), t25im(18), t25c1(18), t25c2(18), t25tp(19), t25im(19), t25c1(19), t25c2(19), t25tp(20), t25im(20), t25c1(20), t25c2(20), t25tp(21), t25im(21), t25c1(21), t25c2(21), t25tp(22), t25im(22 _
), t25c1(22), t25c2(22), t17tp(23), t25im(23), t25c1(23), t25c2(23), t25tp(24), t25im(24), t25c1(24), t25c2(24)
CLOSE #1
OPEN "c:map00\m25p32.map" FOR INPUT AS #1
INPUT #1, t25tp(25), t25im(25), t25c1(25), t25c2(25), t25tp(26), t25im(26), t25c1(26), t25c2(26), t25tp(27), t25im(27), t25c1(27), t25c2(27), t25tp(28), t25im(28), t25c1(28), t25c2(28), t25tp(29), t25im(29), t25c1(29), t25c2(29), t25tp(30), t25im(30 _
), t25c1(30), t25c2(30), t17tp(31), t25im(31), t25c1(31), t25c2(31), t25tp(32), t25im(32), t25c1(32), t25c2(32)
CLOSE #1


END SUB

SUB load1
OPEN "c:map00\m26p08.map" FOR INPUT AS #1
INPUT #1, t26tp(1), t26im(1), t26c1(1), t26c2(1), t26tp(2), t26im(2), t26c1(2), t26c2(2), t26tp(3), t26im(3), t26c1(3), t26c2(3), t26tp(4), t26im(4), t26c1(4), t26c2(4), t26tp(5), t26im(5), t26c1(5), t26c2(5), t26tp(6), t26im(6), t26c1(6), t26c2(6), _
 t26tp(7), t26im(7), t26c1(7), t26c2(7), t26tp(8), t26im(8), t26c1(8), t26c2(8)
CLOSE #1
OPEN "c:map00\m26p16.map" FOR INPUT AS #1
INPUT #1, t26tp(9), t26im(9), t26c1(9), t26c2(9), t26tp(10), t26im(10), t26c1(10), t26c2(10), t26tp(11), t26im(11), t26c1(11), t26c2(11), t26tp(12), t26im(12), t26c1(12), t26c2(12), t26tp(13), t26im(13), t26c1(13), t26c2(13), t26tp(14), t26im(14),  _
t26c1(14), t26c2(14), t17tp(15), t26im(15), t26c1(15), t26c2(15), t26tp(16), t26im(16), t26c1(16), t26c2(16)
CLOSE #1
OPEN "c:map00\m26p24.map" FOR INPUT AS #1
INPUT #1, t26tp(17), t26im(17), t26c1(17), t26c2(17), t26tp(18), t26im(18), t26c1(18), t26c2(18), t26tp(19), t26im(19), t26c1(19), t26c2(19), t26tp(20), t26im(20), t26c1(20), t26c2(20), t26tp(21), t26im(21), t26c1(21), t26c2(21), t26tp(22), t26im(22 _
), t26c1(22), t26c2(22), t17tp(23), t26im(23), t26c1(23), t26c2(23), t26tp(24), t26im(24), t26c1(24), t26c2(24)
CLOSE #1
OPEN "c:map00\m26p32.map" FOR INPUT AS #1
INPUT #1, t26tp(25), t26im(25), t26c1(25), t26c2(25), t26tp(26), t26im(26), t26c1(26), t26c2(26), t26tp(27), t26im(27), t26c1(27), t26c2(27), t26tp(28), t26im(28), t26c1(28), t26c2(28), t26tp(29), t26im(29), t26c1(29), t26c2(29), t26tp(30), t26im(30 _
), t26c1(30), t26c2(30), t17tp(31), t26im(31), t26c1(31), t26c2(31), t26tp(32), t26im(32), t26c1(32), t26c2(32)
CLOSE #1
OPEN "c:map00\m27p08.map" FOR INPUT AS #1
INPUT #1, t27tp(1), t27im(1), t27c1(1), t27c2(1), t27tp(2), t27im(2), t27c1(2), t27c2(2), t27tp(3), t27im(3), t27c1(3), t27c2(3), t27tp(4), t27im(4), t27c1(4), t27c2(4), t27tp(5), t27im(5), t27c1(5), t27c2(5), t27tp(6), t27im(6), t27c1(6), t27c2(6), _
 t27tp(7), t27im(7), t27c1(7), t27c2(7), t27tp(8), t27im(8), t27c1(8), t27c2(8)
CLOSE #1
OPEN "c:map00\m27p16.map" FOR INPUT AS #1
INPUT #1, t27tp(9), t27im(9), t27c1(9), t27c2(9), t27tp(10), t27im(10), t27c1(10), t27c2(10), t27tp(11), t27im(11), t27c1(11), t27c2(11), t27tp(12), t27im(12), t27c1(12), t27c2(12), t27tp(13), t27im(13), t27c1(13), t27c2(13), t27tp(14), t27im(14),  _
t27c1(14), t27c2(14), t17tp(15), t27im(15), t27c1(15), t27c2(15), t27tp(16), t27im(16), t27c1(16), t27c2(16)
CLOSE #1
OPEN "c:map00\m27p24.map" FOR INPUT AS #1
INPUT #1, t27tp(17), t27im(17), t27c1(17), t27c2(17), t27tp(18), t27im(18), t27c1(18), t27c2(18), t27tp(19), t27im(19), t27c1(19), t27c2(19), t27tp(20), t27im(20), t27c1(20), t27c2(20), t27tp(21), t27im(21), t27c1(21), t27c2(21), t27tp(22), t27im(22 _
), t27c1(22), t27c2(22), t17tp(23), t27im(23), t27c1(23), t27c2(23), t27tp(24), t27im(24), t27c1(24), t27c2(24)
CLOSE #1
OPEN "c:map00\m27p32.map" FOR INPUT AS #1
INPUT #1, t27tp(25), t27im(25), t27c1(25), t27c2(25), t27tp(26), t27im(26), t27c1(26), t27c2(26), t27tp(27), t27im(27), t27c1(27), t27c2(27), t27tp(28), t27im(28), t27c1(28), t27c2(28), t27tp(29), t27im(29), t27c1(29), t27c2(29), t27tp(30), t27im(30 _
), t27c1(30), t27c2(30), t17tp(31), t27im(31), t27c1(31), t27c2(31), t27tp(32), t27im(32), t27c1(32), t27c2(32)
CLOSE #1
OPEN "c:map00\m28p08.map" FOR INPUT AS #1
INPUT #1, t28tp(1), t28im(1), t28c1(1), t28c2(1), t28tp(2), t28im(2), t28c1(2), t28c2(2), t28tp(3), t28im(3), t28c1(3), t28c2(3), t28tp(4), t28im(4), t28c1(4), t28c2(4), t28tp(5), t28im(5), t28c1(5), t28c2(5), t28tp(6), t28im(6), t28c1(6), t28c2(6), _
 t28tp(7), t28im(7), t28c1(7), t28c2(7), t28tp(8), t28im(8), t28c1(8), t28c2(8)
CLOSE #1
OPEN "c:map00\m28p16.map" FOR INPUT AS #1
INPUT #1, t28tp(9), t28im(9), t28c1(9), t28c2(9), t28tp(10), t28im(10), t28c1(10), t28c2(10), t28tp(11), t28im(11), t28c1(11), t28c2(11), t28tp(12), t28im(12), t28c1(12), t28c2(12), t28tp(13), t28im(13), t28c1(13), t28c2(13), t28tp(14), t28im(14),  _
t28c1(14), t28c2(14), t17tp(15), t28im(15), t28c1(15), t28c2(15), t28tp(16), t28im(16), t28c1(16), t28c2(16)
CLOSE #1
OPEN "c:map00\m28p24.map" FOR INPUT AS #1
INPUT #1, t28tp(17), t28im(17), t28c1(17), t28c2(17), t28tp(18), t28im(18), t28c1(18), t28c2(18), t28tp(19), t28im(19), t28c1(19), t28c2(19), t28tp(20), t28im(20), t28c1(20), t28c2(20), t28tp(21), t28im(21), t28c1(21), t28c2(21), t28tp(22), t28im(22 _
), t28c1(22), t28c2(22), t17tp(23), t28im(23), t28c1(23), t28c2(23), t28tp(24), t28im(24), t28c1(24), t28c2(24)
CLOSE #1
OPEN "c:map00\m28p32.map" FOR INPUT AS #1
INPUT #1, t28tp(25), t28im(25), t28c1(25), t28c2(25), t28tp(26), t28im(26), t28c1(26), t28c2(26), t28tp(27), t28im(27), t28c1(27), t28c2(27), t28tp(28), t28im(28), t28c1(28), t28c2(28), t28tp(29), t28im(29), t28c1(29), t28c2(29), t28tp(30), t28im(30 _
), t28c1(30), t28c2(30), t17tp(31), t28im(31), t28c1(31), t28c2(31), t28tp(32), t28im(32), t28c1(32), t28c2(32)
CLOSE #1
OPEN "c:map00\m29p08.map" FOR INPUT AS #1
INPUT #1, t29tp(1), t29im(1), t29c1(1), t29c2(1), t29tp(2), t29im(2), t29c1(2), t29c2(2), t29tp(3), t29im(3), t29c1(3), t29c2(3), t29tp(4), t29im(4), t29c1(4), t29c2(4), t29tp(5), t29im(5), t29c1(5), t29c2(5), t29tp(6), t29im(6), t29c1(6), t29c2(6), _
 t29tp(7), t29im(7), t29c1(7), t29c2(7), t29tp(8), t29im(8), t29c1(8), t29c2(8)
CLOSE #1
OPEN "c:map00\m29p16.map" FOR INPUT AS #1
INPUT #1, t29tp(9), t29im(9), t29c1(9), t29c2(9), t29tp(10), t29im(10), t29c1(10), t29c2(10), t29tp(11), t29im(11), t29c1(11), t29c2(11), t29tp(12), t29im(12), t29c1(12), t29c2(12), t29tp(13), t29im(13), t29c1(13), t29c2(13), t29tp(14), t29im(14),  _
t29c1(14), t29c2(14), t17tp(15), t29im(15), t29c1(15), t29c2(15), t29tp(16), t29im(16), t29c1(16), t29c2(16)
CLOSE #1
OPEN "c:map00\m29p24.map" FOR INPUT AS #1
INPUT #1, t29tp(17), t29im(17), t29c1(17), t29c2(17), t29tp(18), t29im(18), t29c1(18), t29c2(18), t29tp(19), t29im(19), t29c1(19), t29c2(19), t29tp(20), t29im(20), t29c1(20), t29c2(20), t29tp(21), t29im(21), t29c1(21), t29c2(21), t29tp(22), t29im(22 _
), t29c1(22), t29c2(22), t17tp(23), t29im(23), t29c1(23), t29c2(23), t29tp(24), t29im(24), t29c1(24), t29c2(24)
CLOSE #1
OPEN "c:map00\m29p32.map" FOR INPUT AS #1
INPUT #1, t29tp(25), t29im(25), t29c1(25), t29c2(25), t29tp(26), t29im(26), t29c1(26), t29c2(26), t29tp(27), t29im(27), t29c1(27), t29c2(27), t29tp(28), t29im(28), t29c1(28), t29c2(28), t29tp(29), t29im(29), t29c1(29), t29c2(29), t29tp(30), t29im(30 _
), t29c1(30), t29c2(30), t17tp(31), t29im(31), t29c1(31), t29c2(31), t29tp(32), t29im(32), t29c1(32), t29c2(32)
CLOSE #1
OPEN "c:map00\m30p08.map" FOR INPUT AS #1
INPUT #1, t30tp(1), t30im(1), t30c1(1), t30c2(1), t30tp(2), t30im(2), t30c1(2), t30c2(2), t30tp(3), t30im(3), t30c1(3), t30c2(3), t30tp(4), t30im(4), t30c1(4), t30c2(4), t30tp(5), t30im(5), t30c1(5), t30c2(5), t30tp(6), t30im(6), t30c1(6), t30c2(6), _
 t30tp(7), t30im(7), t30c1(7), t30c2(7), t30tp(8), t30im(8), t30c1(8), t30c2(8)
CLOSE #1
OPEN "c:map00\m30p16.map" FOR INPUT AS #1
INPUT #1, t30tp(9), t30im(9), t30c1(9), t30c2(9), t30tp(10), t30im(10), t30c1(10), t30c2(10), t30tp(11), t30im(11), t30c1(11), t30c2(11), t30tp(12), t30im(12), t30c1(12), t30c2(12), t30tp(13), t30im(13), t30c1(13), t30c2(13), t30tp(14), t30im(14),  _
t30c1(14), t30c2(14), t17tp(15), t30im(15), t30c1(15), t30c2(15), t30tp(16), t30im(16), t30c1(16), t30c2(16)
CLOSE #1
OPEN "c:map00\m30p24.map" FOR INPUT AS #1
INPUT #1, t30tp(17), t30im(17), t30c1(17), t30c2(17), t30tp(18), t30im(18), t30c1(18), t30c2(18), t30tp(19), t30im(19), t30c1(19), t30c2(19), t30tp(20), t30im(20), t30c1(20), t30c2(20), t30tp(21), t30im(21), t30c1(21), t30c2(21), t30tp(22), t30im(22 _
), t30c1(22), t30c2(22), t17tp(23), t30im(23), t30c1(23), t30c2(23), t30tp(24), t30im(24), t30c1(24), t30c2(24)
CLOSE #1
OPEN "c:map00\m30p32.map" FOR INPUT AS #1
INPUT #1, t30tp(25), t30im(25), t30c1(25), t30c2(25), t30tp(26), t30im(26), t30c1(26), t30c2(26), t30tp(27), t30im(27), t30c1(27), t30c2(27), t30tp(28), t30im(28), t30c1(28), t30c2(28), t30tp(29), t30im(29), t30c1(29), t30c2(29), t30tp(30), t30im(30 _
), t30c1(30), t30c2(30), t17tp(31), t30im(31), t30c1(31), t30c2(31), t30tp(32), t30im(32), t30c1(32), t30c2(32)
CLOSE #1
OPEN "c:map00\m31p08.map" FOR INPUT AS #1
INPUT #1, t31tp(1), t31im(1), t31c1(1), t31c2(1), t31tp(2), t31im(2), t31c1(2), t31c2(2), t31tp(3), t31im(3), t31c1(3), t31c2(3), t31tp(4), t31im(4), t31c1(4), t31c2(4), t31tp(5), t31im(5), t31c1(5), t31c2(5), t31tp(6), t31im(6), t31c1(6), t31c2(6), _
 t31tp(7), t31im(7), t31c1(7), t31c2(7), t31tp(8), t31im(8), t31c1(8), t31c2(8)
CLOSE #1
OPEN "c:map00\m31p16.map" FOR INPUT AS #1
INPUT #1, t31tp(9), t31im(9), t31c1(9), t31c2(9), t31tp(10), t31im(10), t31c1(10), t31c2(10), t31tp(11), t31im(11), t31c1(11), t31c2(11), t31tp(12), t31im(12), t31c1(12), t31c2(12), t31tp(13), t31im(13), t31c1(13), t31c2(13), t31tp(14), t31im(14),  _
t31c1(14), t31c2(14), t17tp(15), t31im(15), t31c1(15), t31c2(15), t31tp(16), t31im(16), t31c1(16), t31c2(16)
CLOSE #1
OPEN "c:map00\m31p24.map" FOR INPUT AS #1
INPUT #1, t31tp(17), t31im(17), t31c1(17), t31c2(17), t31tp(18), t31im(18), t31c1(18), t31c2(18), t31tp(19), t31im(19), t31c1(19), t31c2(19), t31tp(20), t31im(20), t31c1(20), t31c2(20), t31tp(21), t31im(21), t31c1(21), t31c2(21), t31tp(22), t31im(22 _
), t31c1(22), t31c2(22), t17tp(23), t31im(23), t31c1(23), t31c2(23), t31tp(24), t31im(24), t31c1(24), t31c2(24)
CLOSE #1
OPEN "c:map00\m31p32.map" FOR INPUT AS #1
INPUT #1, t31tp(25), t31im(25), t31c1(25), t31c2(25), t31tp(26), t31im(26), t31c1(26), t31c2(26), t31tp(27), t31im(27), t31c1(27), t31c2(27), t31tp(28), t31im(28), t31c1(28), t31c2(28), t31tp(29), t31im(29), t31c1(29), t31c2(29), t31tp(30), t31im(30 _
), t31c1(30), t31c2(30), t17tp(31), t31im(31), t31c1(31), t31c2(31), t31tp(32), t31im(32), t31c1(32), t31c2(32)
CLOSE #1
OPEN "c:map00\m32p08.map" FOR INPUT AS #1
INPUT #1, t32tp(1), t32im(1), t32c1(1), t32c2(1), t32tp(2), t32im(2), t32c1(2), t32c2(2), t32tp(3), t32im(3), t32c1(3), t32c2(3), t32tp(4), t32im(4), t32c1(4), t32c2(4), t32tp(5), t32im(5), t32c1(5), t32c2(5), t32tp(6), t32im(6), t32c1(6), t32c2(6), _
 t32tp(7), t32im(7), t32c1(7), t32c2(7), t32tp(8), t32im(8), t32c1(8), t32c2(8)
CLOSE #1
OPEN "c:map00\m32p16.map" FOR INPUT AS #1
INPUT #1, t32tp(9), t32im(9), t32c1(9), t32c2(9), t32tp(10), t32im(10), t32c1(10), t32c2(10), t32tp(11), t32im(11), t32c1(11), t32c2(11), t32tp(12), t32im(12), t32c1(12), t32c2(12), t32tp(13), t32im(13), t32c1(13), t32c2(13), t32tp(14), t32im(14),  _
t32c1(14), t32c2(14), t17tp(15), t32im(15), t32c1(15), t32c2(15), t32tp(16), t32im(16), t32c1(16), t32c2(16)
CLOSE #1
OPEN "c:map00\m32p24.map" FOR INPUT AS #1
INPUT #1, t32tp(17), t32im(17), t32c1(17), t32c2(17), t32tp(18), t32im(18), t32c1(18), t32c2(18), t32tp(19), t32im(19), t32c1(19), t32c2(19), t32tp(20), t32im(20), t32c1(20), t32c2(20), t32tp(21), t32im(21), t32c1(21), t32c2(21), t32tp(22), t32im(22 _
), t32c1(22), t32c2(22), t17tp(23), t32im(23), t32c1(23), t32c2(23), t32tp(24), t32im(24), t32c1(24), t32c2(24)
CLOSE #1
OPEN "c:map00\m32p32.map" FOR INPUT AS #1
INPUT #1, t32tp(25), t32im(25), t32c1(25), t32c2(25), t32tp(26), t32im(26), t32c1(26), t32c2(26), t32tp(27), t32im(27), t32c1(27), t32c2(27), t32tp(28), t32im(28), t32c1(28), t32c2(28), t32tp(29), t32im(29), t32c1(29), t32c2(29), t32tp(30), t32im(30 _
), t32c1(30), t32c2(30), t17tp(31), t32im(31), t32c1(31), t32c2(31), t32tp(32), t32im(32), t32c1(32), t32c2(32)
CLOSE #1
OPEN "c:map00\m33p08.map" FOR INPUT AS #1
INPUT #1, t33tp(1), t33im(1), t33c1(1), t33c2(1), t33tp(2), t33im(2), t33c1(2), t33c2(2), t33tp(3), t33im(3), t33c1(3), t33c2(3), t33tp(4), t33im(4), t33c1(4), t33c2(4), t33tp(5), t33im(5), t33c1(5), t33c2(5), t33tp(6), t33im(6), t33c1(6), t33c2(6), _
 t33tp(7), t33im(7), t33c1(7), t33c2(7), t33tp(8), t33im(8), t33c1(8), t33c2(8)
CLOSE #1
OPEN "c:map00\m33p16.map" FOR INPUT AS #1
INPUT #1, t33tp(9), t33im(9), t33c1(9), t33c2(9), t33tp(10), t33im(10), t33c1(10), t33c2(10), t33tp(11), t33im(11), t33c1(11), t33c2(11), t33tp(12), t33im(12), t33c1(12), t33c2(12), t33tp(13), t33im(13), t33c1(13), t33c2(13), t33tp(14), t33im(14),  _
t33c1(14), t33c2(14), t17tp(15), t33im(15), t33c1(15), t33c2(15), t33tp(16), t33im(16), t33c1(16), t33c2(16)
CLOSE #1
OPEN "c:map00\m33p24.map" FOR INPUT AS #1
INPUT #1, t33tp(17), t33im(17), t33c1(17), t33c2(17), t33tp(18), t33im(18), t33c1(18), t33c2(18), t33tp(19), t33im(19), t33c1(19), t33c2(19), t33tp(20), t33im(20), t33c1(20), t33c2(20), t33tp(21), t33im(21), t33c1(21), t33c2(21), t33tp(22), t33im(22 _
), t33c1(22), t33c2(22), t17tp(23), t33im(23), t33c1(23), t33c2(23), t33tp(24), t33im(24), t33c1(24), t33c2(24)
CLOSE #1
OPEN "c:map00\m33p32.map" FOR INPUT AS #1
INPUT #1, t33tp(25), t33im(25), t33c1(25), t33c2(25), t33tp(26), t33im(26), t33c1(26), t33c2(26), t33tp(27), t33im(27), t33c1(27), t33c2(27), t33tp(28), t33im(28), t33c1(28), t33c2(28), t33tp(29), t33im(29), t33c1(29), t33c2(29), t33tp(30), t33im(30 _
), t33c1(30), t33c2(30), t17tp(31), t33im(31), t33c1(31), t33c2(31), t33tp(32), t33im(32), t33c1(32), t33c2(32)
CLOSE #1
OPEN "c:map00\m34p08.map" FOR INPUT AS #1
INPUT #1, t34tp(1), t34im(1), t34c1(1), t34c2(1), t34tp(2), t34im(2), t34c1(2), t34c2(2), t34tp(3), t34im(3), t34c1(3), t34c2(3), t34tp(4), t34im(4), t34c1(4), t34c2(4), t34tp(5), t34im(5), t34c1(5), t34c2(5), t34tp(6), t34im(6), t34c1(6), t34c2(6), _
 t34tp(7), t34im(7), t34c1(7), t34c2(7), t34tp(8), t34im(8), t34c1(8), t34c2(8)
CLOSE #1
OPEN "c:map00\m34p16.map" FOR INPUT AS #1
INPUT #1, t34tp(9), t34im(9), t34c1(9), t34c2(9), t34tp(10), t34im(10), t34c1(10), t34c2(10), t34tp(11), t34im(11), t34c1(11), t34c2(11), t34tp(12), t34im(12), t34c1(12), t34c2(12), t34tp(13), t34im(13), t34c1(13), t34c2(13), t34tp(14), t34im(14),  _
t34c1(14), t34c2(14), t17tp(15), t34im(15), t34c1(15), t34c2(15), t34tp(16), t34im(16), t34c1(16), t34c2(16)
CLOSE #1
OPEN "c:map00\m34p24.map" FOR INPUT AS #1
INPUT #1, t34tp(17), t34im(17), t34c1(17), t34c2(17), t34tp(18), t34im(18), t34c1(18), t34c2(18), t34tp(19), t34im(19), t34c1(19), t34c2(19), t34tp(20), t34im(20), t34c1(20), t34c2(20), t34tp(21), t34im(21), t34c1(21), t34c2(21), t34tp(22), t34im(22 _
), t34c1(22), t34c2(22), t17tp(23), t34im(23), t34c1(23), t34c2(23), t34tp(24), t34im(24), t34c1(24), t34c2(24)
CLOSE #1
OPEN "c:map00\m34p32.map" FOR INPUT AS #1
INPUT #1, t34tp(25), t34im(25), t34c1(25), t34c2(25), t34tp(26), t34im(26), t34c1(26), t34c2(26), t34tp(27), t34im(27), t34c1(27), t34c2(27), t34tp(28), t34im(28), t34c1(28), t34c2(28), t34tp(29), t34im(29), t34c1(29), t34c2(29), t34tp(30), t34im(30 _
), t34c1(30), t34c2(30), t17tp(31), t34im(31), t34c1(31), t34c2(31), t34tp(32), t34im(32), t34c1(32), t34c2(32)
CLOSE #1
OPEN "c:map00\m35p08.map" FOR INPUT AS #1
INPUT #1, t35tp(1), t35im(1), t35c1(1), t35c2(1), t35tp(2), t35im(2), t35c1(2), t35c2(2), t35tp(3), t35im(3), t35c1(3), t35c2(3), t35tp(4), t35im(4), t35c1(4), t35c2(4), t35tp(5), t35im(5), t35c1(5), t35c2(5), t35tp(6), t35im(6), t35c1(6), t35c2(6), _
 t35tp(7), t35im(7), t35c1(7), t35c2(7), t35tp(8), t35im(8), t35c1(8), t35c2(8)
CLOSE #1
OPEN "c:map00\m35p16.map" FOR INPUT AS #1
INPUT #1, t35tp(9), t35im(9), t35c1(9), t35c2(9), t35tp(10), t35im(10), t35c1(10), t35c2(10), t35tp(11), t35im(11), t35c1(11), t35c2(11), t35tp(12), t35im(12), t35c1(12), t35c2(12), t35tp(13), t35im(13), t35c1(13), t35c2(13), t35tp(14), t35im(14),  _
t35c1(14), t35c2(14), t17tp(15), t35im(15), t35c1(15), t35c2(15), t35tp(16), t35im(16), t35c1(16), t35c2(16)
CLOSE #1
OPEN "c:map00\m35p24.map" FOR INPUT AS #1
INPUT #1, t35tp(17), t35im(17), t35c1(17), t35c2(17), t35tp(18), t35im(18), t35c1(18), t35c2(18), t35tp(19), t35im(19), t35c1(19), t35c2(19), t35tp(20), t35im(20), t35c1(20), t35c2(20), t35tp(21), t35im(21), t35c1(21), t35c2(21), t35tp(22), t35im(22 _
), t35c1(22), t35c2(22), t17tp(23), t35im(23), t35c1(23), t35c2(23), t35tp(24), t35im(24), t35c1(24), t35c2(24)
CLOSE #1
OPEN "c:map00\m35p32.map" FOR INPUT AS #1
INPUT #1, t35tp(25), t35im(25), t35c1(25), t35c2(25), t35tp(26), t35im(26), t35c1(26), t35c2(26), t35tp(27), t35im(27), t35c1(27), t35c2(27), t35tp(28), t35im(28), t35c1(28), t35c2(28), t35tp(29), t35im(29), t35c1(29), t35c2(29), t35tp(30), t35im(30 _
), t35c1(30), t35c2(30), t17tp(31), t35im(31), t35c1(31), t35c2(31), t35tp(32), t35im(32), t35c1(32), t35c2(32)
CLOSE #1
OPEN "c:map00\m36p08.map" FOR INPUT AS #1
INPUT #1, t36tp(1), t36im(1), t36c1(1), t36c2(1), t36tp(2), t36im(2), t36c1(2), t36c2(2), t36tp(3), t36im(3), t36c1(3), t36c2(3), t36tp(4), t36im(4), t36c1(4), t36c2(4), t36tp(5), t36im(5), t36c1(5), t36c2(5), t36tp(6), t36im(6), t36c1(6), t36c2(6), _
 t36tp(7), t36im(7), t36c1(7), t36c2(7), t36tp(8), t36im(8), t36c1(8), t36c2(8)
CLOSE #1
OPEN "c:map00\m36p16.map" FOR INPUT AS #1
INPUT #1, t36tp(9), t36im(9), t36c1(9), t36c2(9), t36tp(10), t36im(10), t36c1(10), t36c2(10), t36tp(11), t36im(11), t36c1(11), t36c2(11), t36tp(12), t36im(12), t36c1(12), t36c2(12), t36tp(13), t36im(13), t36c1(13), t36c2(13), t36tp(14), t36im(14),  _
t36c1(14), t36c2(14), t17tp(15), t36im(15), t36c1(15), t36c2(15), t36tp(16), t36im(16), t36c1(16), t36c2(16)
CLOSE #1
OPEN "c:map00\m36p24.map" FOR INPUT AS #1
INPUT #1, t36tp(17), t36im(17), t36c1(17), t36c2(17), t36tp(18), t36im(18), t36c1(18), t36c2(18), t36tp(19), t36im(19), t36c1(19), t36c2(19), t36tp(20), t36im(20), t36c1(20), t36c2(20), t36tp(21), t36im(21), t36c1(21), t36c2(21), t36tp(22), t36im(22 _
), t36c1(22), t36c2(22), t17tp(23), t36im(23), t36c1(23), t36c2(23), t36tp(24), t36im(24), t36c1(24), t36c2(24)
CLOSE #1
OPEN "c:map00\m36p32.map" FOR INPUT AS #1
INPUT #1, t36tp(25), t36im(25), t36c1(25), t36c2(25), t36tp(26), t36im(26), t36c1(26), t36c2(26), t36tp(27), t36im(27), t36c1(27), t36c2(27), t36tp(28), t36im(28), t36c1(28), t36c2(28), t36tp(29), t36im(29), t36c1(29), t36c2(29), t36tp(30), t36im(30 _
), t36c1(30), t36c2(30), t17tp(31), t36im(31), t36c1(31), t36c2(31), t36tp(32), t36im(32), t36c1(32), t36c2(32)
CLOSE #1
OPEN "c:map00\m37p08.map" FOR INPUT AS #1
INPUT #1, t37tp(1), t37im(1), t37c1(1), t37c2(1), t37tp(2), t37im(2), t37c1(2), t37c2(2), t37tp(3), t37im(3), t37c1(3), t37c2(3), t37tp(4), t37im(4), t37c1(4), t37c2(4), t37tp(5), t37im(5), t37c1(5), t37c2(5), t37tp(6), t37im(6), t37c1(6), t37c2(6), _
 t37tp(7), t37im(7), t37c1(7), t37c2(7), t37tp(8), t37im(8), t37c1(8), t37c2(8)
CLOSE #1
OPEN "c:map00\m37p16.map" FOR INPUT AS #1
INPUT #1, t37tp(9), t37im(9), t37c1(9), t37c2(9), t37tp(10), t37im(10), t37c1(10), t37c2(10), t37tp(11), t37im(11), t37c1(11), t37c2(11), t37tp(12), t37im(12), t37c1(12), t37c2(12), t37tp(13), t37im(13), t37c1(13), t37c2(13), t37tp(14), t37im(14),  _
t37c1(14), t37c2(14), t17tp(15), t37im(15), t37c1(15), t37c2(15), t37tp(16), t37im(16), t37c1(16), t37c2(16)
CLOSE #1
OPEN "c:map00\m37p24.map" FOR INPUT AS #1
INPUT #1, t37tp(17), t37im(17), t37c1(17), t37c2(17), t37tp(18), t37im(18), t37c1(18), t37c2(18), t37tp(19), t37im(19), t37c1(19), t37c2(19), t37tp(20), t37im(20), t37c1(20), t37c2(20), t37tp(21), t37im(21), t37c1(21), t37c2(21), t37tp(22), t37im(22 _
), t37c1(22), t37c2(22), t17tp(23), t37im(23), t37c1(23), t37c2(23), t37tp(24), t37im(24), t37c1(24), t37c2(24)
CLOSE #1
OPEN "c:map00\m37p32.map" FOR INPUT AS #1
INPUT #1, t37tp(25), t37im(25), t37c1(25), t37c2(25), t37tp(26), t37im(26), t37c1(26), t37c2(26), t37tp(27), t37im(27), t37c1(27), t37c2(27), t37tp(28), t37im(28), t37c1(28), t37c2(28), t37tp(29), t37im(29), t37c1(29), t37c2(29), t37tp(30), t37im(30 _
), t37c1(30), t37c2(30), t17tp(31), t37im(31), t37c1(31), t37c2(31), t37tp(32), t37im(32), t37c1(32), t37c2(32)
CLOSE #1
OPEN "c:map00\m38p08.map" FOR INPUT AS #1
INPUT #1, t38tp(1), t38im(1), t38c1(1), t38c2(1), t38tp(2), t38im(2), t38c1(2), t38c2(2), t38tp(3), t38im(3), t38c1(3), t38c2(3), t38tp(4), t38im(4), t38c1(4), t38c2(4), t38tp(5), t38im(5), t38c1(5), t38c2(5), t38tp(6), t38im(6), t38c1(6), t38c2(6), _
 t38tp(7), t38im(7), t38c1(7), t38c2(7), t38tp(8), t38im(8), t38c1(8), t38c2(8)
CLOSE #1
OPEN "c:map00\m38p16.map" FOR INPUT AS #1
INPUT #1, t38tp(9), t38im(9), t38c1(9), t38c2(9), t38tp(10), t38im(10), t38c1(10), t38c2(10), t38tp(11), t38im(11), t38c1(11), t38c2(11), t38tp(12), t38im(12), t38c1(12), t38c2(12), t38tp(13), t38im(13), t38c1(13), t38c2(13), t38tp(14), t38im(14),  _
t38c1(14), t38c2(14), t17tp(15), t38im(15), t38c1(15), t38c2(15), t38tp(16), t38im(16), t38c1(16), t38c2(16)
CLOSE #1
OPEN "c:map00\m38p24.map" FOR INPUT AS #1
INPUT #1, t38tp(17), t38im(17), t38c1(17), t38c2(17), t38tp(18), t38im(18), t38c1(18), t38c2(18), t38tp(19), t38im(19), t38c1(19), t38c2(19), t38tp(20), t38im(20), t38c1(20), t38c2(20), t38tp(21), t38im(21), t38c1(21), t38c2(21), t38tp(22), t38im(22 _
), t38c1(22), t38c2(22), t17tp(23), t38im(23), t38c1(23), t38c2(23), t38tp(24), t38im(24), t38c1(24), t38c2(24)
CLOSE #1
OPEN "c:map00\m38p32.map" FOR INPUT AS #1
INPUT #1, t38tp(25), t38im(25), t38c1(25), t38c2(25), t38tp(26), t38im(26), t38c1(26), t38c2(26), t38tp(27), t38im(27), t38c1(27), t38c2(27), t38tp(28), t38im(28), t38c1(28), t38c2(28), t38tp(29), t38im(29), t38c1(29), t38c2(29), t38tp(30), t38im(30 _
), t38c1(30), t38c2(30), t17tp(31), t38im(31), t38c1(31), t38c2(31), t38tp(32), t38im(32), t38c1(32), t38c2(32)
CLOSE #1
OPEN "c:map00\m39p08.map" FOR INPUT AS #1
INPUT #1, t39tp(1), t39im(1), t39c1(1), t39c2(1), t39tp(2), t39im(2), t39c1(2), t39c2(2), t39tp(3), t39im(3), t39c1(3), t39c2(3), t39tp(4), t39im(4), t39c1(4), t39c2(4), t39tp(5), t39im(5), t39c1(5), t39c2(5), t39tp(6), t39im(6), t39c1(6), t39c2(6), _
 t39tp(7), t39im(7), t39c1(7), t39c2(7), t39tp(8), t39im(8), t39c1(8), t39c2(8)
CLOSE #1
OPEN "c:map00\m39p16.map" FOR INPUT AS #1
INPUT #1, t39tp(9), t39im(9), t39c1(9), t39c2(9), t39tp(10), t39im(10), t39c1(10), t39c2(10), t39tp(11), t39im(11), t39c1(11), t39c2(11), t39tp(12), t39im(12), t39c1(12), t39c2(12), t39tp(13), t39im(13), t39c1(13), t39c2(13), t39tp(14), t39im(14),  _
t39c1(14), t39c2(14), t17tp(15), t39im(15), t39c1(15), t39c2(15), t39tp(16), t39im(16), t39c1(16), t39c2(16)
CLOSE #1
OPEN "c:map00\m39p24.map" FOR INPUT AS #1
INPUT #1, t39tp(17), t39im(17), t39c1(17), t39c2(17), t39tp(18), t39im(18), t39c1(18), t39c2(18), t39tp(19), t39im(19), t39c1(19), t39c2(19), t39tp(20), t39im(20), t39c1(20), t39c2(20), t39tp(21), t39im(21), t39c1(21), t39c2(21), t39tp(22), t39im(22 _
), t39c1(22), t39c2(22), t17tp(23), t39im(23), t39c1(23), t39c2(23), t39tp(24), t39im(24), t39c1(24), t39c2(24)
CLOSE #1
OPEN "c:map00\m39p32.map" FOR INPUT AS #1
INPUT #1, t39tp(25), t39im(25), t39c1(25), t39c2(25), t39tp(26), t39im(26), t39c1(26), t39c2(26), t39tp(27), t39im(27), t39c1(27), t39c2(27), t39tp(28), t39im(28), t39c1(28), t39c2(28), t39tp(29), t39im(29), t39c1(29), t39c2(29), t39tp(30), t39im(30 _
), t39c1(30), t39c2(30), t17tp(31), t39im(31), t39c1(31), t39c2(31), t39tp(32), t39im(32), t39c1(32), t39c2(32)
CLOSE #1
OPEN "c:map00\m40p08.map" FOR INPUT AS #1
INPUT #1, t40tp(1), t40im(1), t40c1(1), t40c2(1), t40tp(2), t40im(2), t40c1(2), t40c2(2), t40tp(3), t40im(3), t40c1(3), t40c2(3), t40tp(4), t40im(4), t40c1(4), t40c2(4), t40tp(5), t40im(5), t40c1(5), t40c2(5), t40tp(6), t40im(6), t40c1(6), t40c2(6), _
 t40tp(7), t40im(7), t40c1(7), t40c2(7), t40tp(8), t40im(8), t40c1(8), t40c2(8)
CLOSE #1
OPEN "c:map00\m40p16.map" FOR INPUT AS #1
INPUT #1, t40tp(9), t40im(9), t40c1(9), t40c2(9), t40tp(10), t40im(10), t40c1(10), t40c2(10), t40tp(11), t40im(11), t40c1(11), t40c2(11), t40tp(12), t40im(12), t40c1(12), t40c2(12), t40tp(13), t40im(13), t40c1(13), t40c2(13), t40tp(14), t40im(14),  _
t40c1(14), t40c2(14), t17tp(15), t40im(15), t40c1(15), t40c2(15), t40tp(16), t40im(16), t40c1(16), t40c2(16)
CLOSE #1
OPEN "c:map00\m40p24.map" FOR INPUT AS #1
INPUT #1, t40tp(17), t40im(17), t40c1(17), t40c2(17), t40tp(18), t40im(18), t40c1(18), t40c2(18), t40tp(19), t40im(19), t40c1(19), t40c2(19), t40tp(20), t40im(20), t40c1(20), t40c2(20), t40tp(21), t40im(21), t40c1(21), t40c2(21), t40tp(22), t40im(22 _
), t40c1(22), t40c2(22), t17tp(23), t40im(23), t40c1(23), t40c2(23), t40tp(24), t40im(24), t40c1(24), t40c2(24)
CLOSE #1
OPEN "c:map00\m40p32.map" FOR INPUT AS #1
INPUT #1, t40tp(25), t40im(25), t40c1(25), t40c2(25), t40tp(26), t40im(26), t40c1(26), t40c2(26), t40tp(27), t40im(27), t40c1(27), t40c2(27), t40tp(28), t40im(28), t40c1(28), t40c2(28), t40tp(29), t40im(29), t40c1(29), t40c2(29), t40tp(30), t40im(30 _
), t40c1(30), t40c2(30), t17tp(31), t40im(31), t40c1(31), t40c2(31), t40tp(32), t40im(32), t40c1(32), t40c2(32)
CLOSE #1
OPEN "c:map00\m41p08.map" FOR INPUT AS #1
INPUT #1, t41tp(1), t41im(1), t41c1(1), t41c2(1), t41tp(2), t41im(2), t41c1(2), t41c2(2), t41tp(3), t41im(3), t41c1(3), t41c2(3), t41tp(4), t41im(4), t41c1(4), t41c2(4), t41tp(5), t41im(5), t41c1(5), t41c2(5), t41tp(6), t41im(6), t41c1(6), t41c2(6), _
 t41tp(7), t41im(7), t41c1(7), t41c2(7), t41tp(8), t41im(8), t41c1(8), t41c2(8)
CLOSE #1
OPEN "c:map00\m41p16.map" FOR INPUT AS #1
INPUT #1, t41tp(9), t41im(9), t41c1(9), t41c2(9), t41tp(10), t41im(10), t41c1(10), t41c2(10), t41tp(11), t41im(11), t41c1(11), t41c2(11), t41tp(12), t41im(12), t41c1(12), t41c2(12), t41tp(13), t41im(13), t41c1(13), t41c2(13), t41tp(14), t41im(14),  _
t41c1(14), t41c2(14), t17tp(15), t41im(15), t41c1(15), t41c2(15), t41tp(16), t41im(16), t41c1(16), t41c2(16)
CLOSE #1
OPEN "c:map00\m41p24.map" FOR INPUT AS #1
INPUT #1, t41tp(17), t41im(17), t41c1(17), t41c2(17), t41tp(18), t41im(18), t41c1(18), t41c2(18), t41tp(19), t41im(19), t41c1(19), t41c2(19), t41tp(20), t41im(20), t41c1(20), t41c2(20), t41tp(21), t41im(21), t41c1(21), t41c2(21), t41tp(22), t41im(22 _
), t41c1(22), t41c2(22), t17tp(23), t41im(23), t41c1(23), t41c2(23), t41tp(24), t41im(24), t41c1(24), t41c2(24)
CLOSE #1
OPEN "c:map00\m41p32.map" FOR INPUT AS #1
INPUT #1, t41tp(25), t41im(25), t41c1(25), t41c2(25), t41tp(26), t41im(26), t41c1(26), t41c2(26), t41tp(27), t41im(27), t41c1(27), t41c2(27), t41tp(28), t41im(28), t41c1(28), t41c2(28), t41tp(29), t41im(29), t41c1(29), t41c2(29), t41tp(30), t41im(30 _
), t41c1(30), t41c2(30), t17tp(31), t41im(31), t41c1(31), t41c2(31), t41tp(32), t41im(32), t41c1(32), t41c2(32)
CLOSE #1
OPEN "c:map00\m42p08.map" FOR INPUT AS #1
INPUT #1, t42tp(1), t42im(1), t42c1(1), t42c2(1), t42tp(2), t42im(2), t42c1(2), t42c2(2), t42tp(3), t42im(3), t42c1(3), t42c2(3), t42tp(4), t42im(4), t42c1(4), t42c2(4), t42tp(5), t42im(5), t42c1(5), t42c2(5), t42tp(6), t42im(6), t42c1(6), t42c2(6), _
 t42tp(7), t42im(7), t42c1(7), t42c2(7), t42tp(8), t42im(8), t42c1(8), t42c2(8)
CLOSE #1
OPEN "c:map00\m42p16.map" FOR INPUT AS #1
INPUT #1, t42tp(9), t42im(9), t42c1(9), t42c2(9), t42tp(10), t42im(10), t42c1(10), t42c2(10), t42tp(11), t42im(11), t42c1(11), t42c2(11), t42tp(12), t42im(12), t42c1(12), t42c2(12), t42tp(13), t42im(13), t42c1(13), t42c2(13), t42tp(14), t42im(14),  _
t42c1(14), t42c2(14), t17tp(15), t42im(15), t42c1(15), t42c2(15), t42tp(16), t42im(16), t42c1(16), t42c2(16)
CLOSE #1
OPEN "c:map00\m42p24.map" FOR INPUT AS #1
INPUT #1, t42tp(17), t42im(17), t42c1(17), t42c2(17), t42tp(18), t42im(18), t42c1(18), t42c2(18), t42tp(19), t42im(19), t42c1(19), t42c2(19), t42tp(20), t42im(20), t42c1(20), t42c2(20), t42tp(21), t42im(21), t42c1(21), t42c2(21), t42tp(22), t42im(22 _
), t42c1(22), t42c2(22), t17tp(23), t42im(23), t42c1(23), t42c2(23), t42tp(24), t42im(24), t42c1(24), t42c2(24)
CLOSE #1
OPEN "c:map00\m42p32.map" FOR INPUT AS #1
INPUT #1, t42tp(25), t42im(25), t42c1(25), t42c2(25), t42tp(26), t42im(26), t42c1(26), t42c2(26), t42tp(27), t42im(27), t42c1(27), t42c2(27), t42tp(28), t42im(28), t42c1(28), t42c2(28), t42tp(29), t42im(29), t42c1(29), t42c2(29), t42tp(30), t42im(30 _
), t42c1(30), t42c2(30), t17tp(31), t42im(31), t42c1(31), t42c2(31), t42tp(32), t42im(32), t42c1(32), t42c2(32)
CLOSE #1
OPEN "c:map00\m43p08.map" FOR INPUT AS #1
INPUT #1, t43tp(1), t43im(1), t43c1(1), t43c2(1), t43tp(2), t43im(2), t43c1(2), t43c2(2), t43tp(3), t43im(3), t43c1(3), t43c2(3), t43tp(4), t43im(4), t43c1(4), t43c2(4), t43tp(5), t43im(5), t43c1(5), t43c2(5), t43tp(6), t43im(6), t43c1(6), t43c2(6), _
 t43tp(7), t43im(7), t43c1(7), t43c2(7), t43tp(8), t43im(8), t43c1(8), t43c2(8)
CLOSE #1
OPEN "c:map00\m43p16.map" FOR INPUT AS #1
INPUT #1, t43tp(9), t43im(9), t43c1(9), t43c2(9), t43tp(10), t43im(10), t43c1(10), t43c2(10), t43tp(11), t43im(11), t43c1(11), t43c2(11), t43tp(12), t43im(12), t43c1(12), t43c2(12), t43tp(13), t43im(13), t43c1(13), t43c2(13), t43tp(14), t43im(14),  _
t43c1(14), t43c2(14), t17tp(15), t43im(15), t43c1(15), t43c2(15), t43tp(16), t43im(16), t43c1(16), t43c2(16)
CLOSE #1
OPEN "c:map00\m43p24.map" FOR INPUT AS #1
INPUT #1, t43tp(17), t43im(17), t43c1(17), t43c2(17), t43tp(18), t43im(18), t43c1(18), t43c2(18), t43tp(19), t43im(19), t43c1(19), t43c2(19), t43tp(20), t43im(20), t43c1(20), t43c2(20), t43tp(21), t43im(21), t43c1(21), t43c2(21), t43tp(22), t43im(22 _
), t43c1(22), t43c2(22), t17tp(23), t43im(23), t43c1(23), t43c2(23), t43tp(24), t43im(24), t43c1(24), t43c2(24)
CLOSE #1
OPEN "c:map00\m43p32.map" FOR INPUT AS #1
INPUT #1, t43tp(25), t43im(25), t43c1(25), t43c2(25), t43tp(26), t43im(26), t43c1(26), t43c2(26), t43tp(27), t43im(27), t43c1(27), t43c2(27), t43tp(28), t43im(28), t43c1(28), t43c2(28), t43tp(29), t43im(29), t43c1(29), t43c2(29), t43tp(30), t43im(30 _
), t43c1(30), t43c2(30), t17tp(31), t43im(31), t43c1(31), t43c2(31), t43tp(32), t43im(32), t43c1(32), t43c2(32)
CLOSE #1
OPEN "c:map00\m44p08.map" FOR INPUT AS #1
INPUT #1, t44tp(1), t44im(1), t44c1(1), t44c2(1), t44tp(2), t44im(2), t44c1(2), t44c2(2), t44tp(3), t44im(3), t44c1(3), t44c2(3), t44tp(4), t44im(4), t44c1(4), t44c2(4), t44tp(5), t44im(5), t44c1(5), t44c2(5), t44tp(6), t44im(6), t44c1(6), t44c2(6), _
 t44tp(7), t44im(7), t44c1(7), t44c2(7), t44tp(8), t44im(8), t44c1(8), t44c2(8)
CLOSE #1
OPEN "c:map00\m44p16.map" FOR INPUT AS #1
INPUT #1, t44tp(9), t44im(9), t44c1(9), t44c2(9), t44tp(10), t44im(10), t44c1(10), t44c2(10), t44tp(11), t44im(11), t44c1(11), t44c2(11), t44tp(12), t44im(12), t44c1(12), t44c2(12), t44tp(13), t44im(13), t44c1(13), t44c2(13), t44tp(14), t44im(14),  _
t44c1(14), t44c2(14), t17tp(15), t44im(15), t44c1(15), t44c2(15), t44tp(16), t44im(16), t44c1(16), t44c2(16)
CLOSE #1
OPEN "c:map00\m44p24.map" FOR INPUT AS #1
INPUT #1, t44tp(17), t44im(17), t44c1(17), t44c2(17), t44tp(18), t44im(18), t44c1(18), t44c2(18), t44tp(19), t44im(19), t44c1(19), t44c2(19), t44tp(20), t44im(20), t44c1(20), t44c2(20), t44tp(21), t44im(21), t44c1(21), t44c2(21), t44tp(22), t44im(22 _
), t44c1(22), t44c2(22), t17tp(23), t44im(23), t44c1(23), t44c2(23), t44tp(24), t44im(24), t44c1(24), t44c2(24)
CLOSE #1
OPEN "c:map00\m44p32.map" FOR INPUT AS #1
INPUT #1, t44tp(25), t44im(25), t44c1(25), t44c2(25), t44tp(26), t44im(26), t44c1(26), t44c2(26), t44tp(27), t44im(27), t44c1(27), t44c2(27), t44tp(28), t44im(28), t44c1(28), t44c2(28), t44tp(29), t44im(29), t44c1(29), t44c2(29), t44tp(30), t44im(30 _
), t44c1(30), t44c2(30), t17tp(31), t44im(31), t44c1(31), t44c2(31), t44tp(32), t44im(32), t44c1(32), t44c2(32)
CLOSE #1
OPEN "c:map00\m45p08.map" FOR INPUT AS #1
INPUT #1, t45tp(1), t45im(1), t45c1(1), t45c2(1), t45tp(2), t45im(2), t45c1(2), t45c2(2), t45tp(3), t45im(3), t45c1(3), t45c2(3), t45tp(4), t45im(4), t45c1(4), t45c2(4), t45tp(5), t45im(5), t45c1(5), t45c2(5), t45tp(6), t45im(6), t45c1(6), t45c2(6), _
 t45tp(7), t45im(7), t45c1(7), t45c2(7), t45tp(8), t45im(8), t45c1(8), t45c2(8)
CLOSE #1
OPEN "c:map00\m45p16.map" FOR INPUT AS #1
INPUT #1, t45tp(9), t45im(9), t45c1(9), t45c2(9), t45tp(10), t45im(10), t45c1(10), t45c2(10), t45tp(11), t45im(11), t45c1(11), t45c2(11), t45tp(12), t45im(12), t45c1(12), t45c2(12), t45tp(13), t45im(13), t45c1(13), t45c2(13), t45tp(14), t45im(14),  _
t45c1(14), t45c2(14), t17tp(15), t45im(15), t45c1(15), t45c2(15), t45tp(16), t45im(16), t45c1(16), t45c2(16)
CLOSE #1
OPEN "c:map00\m45p24.map" FOR INPUT AS #1
INPUT #1, t45tp(17), t45im(17), t45c1(17), t45c2(17), t45tp(18), t45im(18), t45c1(18), t45c2(18), t45tp(19), t45im(19), t45c1(19), t45c2(19), t45tp(20), t45im(20), t45c1(20), t45c2(20), t45tp(21), t45im(21), t45c1(21), t45c2(21), t45tp(22), t45im(22 _
), t45c1(22), t45c2(22), t17tp(23), t45im(23), t45c1(23), t45c2(23), t45tp(24), t45im(24), t45c1(24), t45c2(24)
CLOSE #1
OPEN "c:map00\m45p32.map" FOR INPUT AS #1
INPUT #1, t45tp(25), t45im(25), t45c1(25), t45c2(25), t45tp(26), t45im(26), t45c1(26), t45c2(26), t45tp(27), t45im(27), t45c1(27), t45c2(27), t45tp(28), t45im(28), t45c1(28), t45c2(28), t45tp(29), t45im(29), t45c1(29), t45c2(29), t45tp(30), t45im(30 _
), t45c1(30), t45c2(30), t17tp(31), t45im(31), t45c1(31), t45c2(31), t45tp(32), t45im(32), t45c1(32), t45c2(32)
CLOSE #1
OPEN "c:map00\m46p08.map" FOR INPUT AS #1
INPUT #1, t46tp(1), t46im(1), t46c1(1), t46c2(1), t46tp(2), t46im(2), t46c1(2), t46c2(2), t46tp(3), t46im(3), t46c1(3), t46c2(3), t46tp(4), t46im(4), t46c1(4), t46c2(4), t46tp(5), t46im(5), t46c1(5), t46c2(5), t46tp(6), t46im(6), t46c1(6), t46c2(6), _
 t46tp(7), t46im(7), t46c1(7), t46c2(7), t46tp(8), t46im(8), t46c1(8), t46c2(8)
CLOSE #1
OPEN "c:map00\m46p16.map" FOR INPUT AS #1
INPUT #1, t46tp(9), t46im(9), t46c1(9), t46c2(9), t46tp(10), t46im(10), t46c1(10), t46c2(10), t46tp(11), t46im(11), t46c1(11), t46c2(11), t46tp(12), t46im(12), t46c1(12), t46c2(12), t46tp(13), t46im(13), t46c1(13), t46c2(13), t46tp(14), t46im(14),  _
t46c1(14), t46c2(14), t17tp(15), t46im(15), t46c1(15), t46c2(15), t46tp(16), t46im(16), t46c1(16), t46c2(16)
CLOSE #1
OPEN "c:map00\m46p24.map" FOR INPUT AS #1
INPUT #1, t46tp(17), t46im(17), t46c1(17), t46c2(17), t46tp(18), t46im(18), t46c1(18), t46c2(18), t46tp(19), t46im(19), t46c1(19), t46c2(19), t46tp(20), t46im(20), t46c1(20), t46c2(20), t46tp(21), t46im(21), t46c1(21), t46c2(21), t46tp(22), t46im(22 _
), t46c1(22), t46c2(22), t17tp(23), t46im(23), t46c1(23), t46c2(23), t46tp(24), t46im(24), t46c1(24), t46c2(24)
CLOSE #1
OPEN "c:map00\m46p32.map" FOR INPUT AS #1
INPUT #1, t46tp(25), t46im(25), t46c1(25), t46c2(25), t46tp(26), t46im(26), t46c1(26), t46c2(26), t46tp(27), t46im(27), t46c1(27), t46c2(27), t46tp(28), t46im(28), t46c1(28), t46c2(28), t46tp(29), t46im(29), t46c1(29), t46c2(29), t46tp(30), t46im(30 _
), t46c1(30), t46c2(30), t17tp(31), t46im(31), t46c1(31), t46c2(31), t46tp(32), t46im(32), t46c1(32), t46c2(32)
CLOSE #1
OPEN "c:map00\m47p08.map" FOR INPUT AS #1
INPUT #1, t47tp(1), t47im(1), t47c1(1), t47c2(1), t47tp(2), t47im(2), t47c1(2), t47c2(2), t47tp(3), t47im(3), t47c1(3), t47c2(3), t47tp(4), t47im(4), t47c1(4), t47c2(4), t47tp(5), t47im(5), t47c1(5), t47c2(5), t47tp(6), t47im(6), t47c1(6), t47c2(6), _
 t47tp(7), t47im(7), t47c1(7), t47c2(7), t47tp(8), t47im(8), t47c1(8), t47c2(8)
CLOSE #1
OPEN "c:map00\m47p16.map" FOR INPUT AS #1
INPUT #1, t47tp(9), t47im(9), t47c1(9), t47c2(9), t47tp(10), t47im(10), t47c1(10), t47c2(10), t47tp(11), t47im(11), t47c1(11), t47c2(11), t47tp(12), t47im(12), t47c1(12), t47c2(12), t47tp(13), t47im(13), t47c1(13), t47c2(13), t47tp(14), t47im(14),  _
t47c1(14), t47c2(14), t17tp(15), t47im(15), t47c1(15), t47c2(15), t47tp(16), t47im(16), t47c1(16), t47c2(16)
CLOSE #1
OPEN "c:map00\m47p24.map" FOR INPUT AS #1
INPUT #1, t47tp(17), t47im(17), t47c1(17), t47c2(17), t47tp(18), t47im(18), t47c1(18), t47c2(18), t47tp(19), t47im(19), t47c1(19), t47c2(19), t47tp(20), t47im(20), t47c1(20), t47c2(20), t47tp(21), t47im(21), t47c1(21), t47c2(21), t47tp(22), t47im(22 _
), t47c1(22), t47c2(22), t17tp(23), t47im(23), t47c1(23), t47c2(23), t47tp(24), t47im(24), t47c1(24), t47c2(24)
CLOSE #1
OPEN "c:map00\m47p32.map" FOR INPUT AS #1
INPUT #1, t47tp(25), t47im(25), t47c1(25), t47c2(25), t47tp(26), t47im(26), t47c1(26), t47c2(26), t47tp(27), t47im(27), t47c1(27), t47c2(27), t47tp(28), t47im(28), t47c1(28), t47c2(28), t47tp(29), t47im(29), t47c1(29), t47c2(29), t47tp(30), t47im(30 _
), t47c1(30), t47c2(30), t17tp(31), t47im(31), t47c1(31), t47c2(31), t47tp(32), t47im(32), t47c1(32), t47c2(32)
CLOSE #1
OPEN "c:map00\m48p08.map" FOR INPUT AS #1
INPUT #1, t48tp(1), t48im(1), t48c1(1), t48c2(1), t48tp(2), t48im(2), t48c1(2), t48c2(2), t48tp(3), t48im(3), t48c1(3), t48c2(3), t48tp(4), t48im(4), t48c1(4), t48c2(4), t48tp(5), t48im(5), t48c1(5), t48c2(5), t48tp(6), t48im(6), t48c1(6), t48c2(6), _
 t48tp(7), t48im(7), t48c1(7), t48c2(7), t48tp(8), t48im(8), t48c1(8), t48c2(8)
CLOSE #1
OPEN "c:map00\m48p16.map" FOR INPUT AS #1
INPUT #1, t48tp(9), t48im(9), t48c1(9), t48c2(9), t48tp(10), t48im(10), t48c1(10), t48c2(10), t48tp(11), t48im(11), t48c1(11), t48c2(11), t48tp(12), t48im(12), t48c1(12), t48c2(12), t48tp(13), t48im(13), t48c1(13), t48c2(13), t48tp(14), t48im(14),  _
t48c1(14), t48c2(14), t17tp(15), t48im(15), t48c1(15), t48c2(15), t48tp(16), t48im(16), t48c1(16), t48c2(16)
CLOSE #1
OPEN "c:map00\m48p24.map" FOR INPUT AS #1
INPUT #1, t48tp(17), t48im(17), t48c1(17), t48c2(17), t48tp(18), t48im(18), t48c1(18), t48c2(18), t48tp(19), t48im(19), t48c1(19), t48c2(19), t48tp(20), t48im(20), t48c1(20), t48c2(20), t48tp(21), t48im(21), t48c1(21), t48c2(21), t48tp(22), t48im(22 _
), t48c1(22), t48c2(22), t17tp(23), t48im(23), t48c1(23), t48c2(23), t48tp(24), t48im(24), t48c1(24), t48c2(24)
CLOSE #1
OPEN "c:map00\m48p32.map" FOR INPUT AS #1
INPUT #1, t48tp(25), t48im(25), t48c1(25), t48c2(25), t48tp(26), t48im(26), t48c1(26), t48c2(26), t48tp(27), t48im(27), t48c1(27), t48c2(27), t48tp(28), t48im(28), t48c1(28), t48c2(28), t48tp(29), t48im(29), t48c1(29), t48c2(29), t48tp(30), t48im(30 _
), t48c1(30), t48c2(30), t17tp(31), t48im(31), t48c1(31), t48c2(31), t48tp(32), t48im(32), t48c1(32), t48c2(32)
CLOSE #1
OPEN "c:map00\m49p08.map" FOR INPUT AS #1
INPUT #1, t49tp(1), t49im(1), t49c1(1), t49c2(1), t49tp(2), t49im(2), t49c1(2), t49c2(2), t49tp(3), t49im(3), t49c1(3), t49c2(3), t49tp(4), t49im(4), t49c1(4), t49c2(4), t49tp(5), t49im(5), t49c1(5), t49c2(5), t49tp(6), t49im(6), t49c1(6), t49c2(6), _
 t49tp(7), t49im(7), t49c1(7), t49c2(7), t49tp(8), t49im(8), t49c1(8), t49c2(8)
CLOSE #1
OPEN "c:map00\m49p16.map" FOR INPUT AS #1
INPUT #1, t49tp(9), t49im(9), t49c1(9), t49c2(9), t49tp(10), t49im(10), t49c1(10), t49c2(10), t49tp(11), t49im(11), t49c1(11), t49c2(11), t49tp(12), t49im(12), t49c1(12), t49c2(12), t49tp(13), t49im(13), t49c1(13), t49c2(13), t49tp(14), t49im(14),  _
t49c1(14), t49c2(14), t17tp(15), t49im(15), t49c1(15), t49c2(15), t49tp(16), t49im(16), t49c1(16), t49c2(16)
CLOSE #1
OPEN "c:map00\m49p24.map" FOR INPUT AS #1
INPUT #1, t49tp(17), t49im(17), t49c1(17), t49c2(17), t49tp(18), t49im(18), t49c1(18), t49c2(18), t49tp(19), t49im(19), t49c1(19), t49c2(19), t49tp(20), t49im(20), t49c1(20), t49c2(20), t49tp(21), t49im(21), t49c1(21), t49c2(21), t49tp(22), t49im(22 _
), t49c1(22), t49c2(22), t17tp(23), t49im(23), t49c1(23), t49c2(23), t49tp(24), t49im(24), t49c1(24), t49c2(24)
CLOSE #1
OPEN "c:map00\m49p32.map" FOR INPUT AS #1
INPUT #1, t49tp(25), t49im(25), t49c1(25), t49c2(25), t49tp(26), t49im(26), t49c1(26), t49c2(26), t49tp(27), t49im(27), t49c1(27), t49c2(27), t49tp(28), t49im(28), t49c1(28), t49c2(28), t49tp(29), t49im(29), t49c1(29), t49c2(29), t49tp(30), t49im(30 _
), t49c1(30), t49c2(30), t17tp(31), t49im(31), t49c1(31), t49c2(31), t49tp(32), t49im(32), t49c1(32), t49c2(32)
CLOSE #1
OPEN "c:map00\m50p08.map" FOR INPUT AS #1
INPUT #1, t50tp(1), t50im(1), t50c1(1), t50c2(1), t50tp(2), t50im(2), t50c1(2), t50c2(2), t50tp(3), t50im(3), t50c1(3), t50c2(3), t50tp(4), t50im(4), t50c1(4), t50c2(4), t50tp(5), t50im(5), t50c1(5), t50c2(5), t50tp(6), t50im(6), t50c1(6), t50c2(6), _
 t50tp(7), t50im(7), t50c1(7), t50c2(7), t50tp(8), t50im(8), t50c1(8), t50c2(8)
CLOSE #1
OPEN "c:map00\m50p16.map" FOR INPUT AS #1
INPUT #1, t50tp(9), t50im(9), t50c1(9), t50c2(9), t50tp(10), t50im(10), t50c1(10), t50c2(10), t50tp(11), t50im(11), t50c1(11), t50c2(11), t50tp(12), t50im(12), t50c1(12), t50c2(12), t50tp(13), t50im(13), t50c1(13), t50c2(13), t50tp(14), t50im(14),  _
t50c1(14), t50c2(14), t17tp(15), t50im(15), t50c1(15), t50c2(15), t50tp(16), t50im(16), t50c1(16), t50c2(16)
CLOSE #1
OPEN "c:map00\m50p24.map" FOR INPUT AS #1
INPUT #1, t50tp(17), t50im(17), t50c1(17), t50c2(17), t50tp(18), t50im(18), t50c1(18), t50c2(18), t50tp(19), t50im(19), t50c1(19), t50c2(19), t50tp(20), t50im(20), t50c1(20), t50c2(20), t50tp(21), t50im(21), t50c1(21), t50c2(21), t50tp(22), t50im(22 _
), t50c1(22), t50c2(22), t17tp(23), t50im(23), t50c1(23), t50c2(23), t50tp(24), t50im(24), t50c1(24), t50c2(24)
CLOSE #1
OPEN "c:map00\m50p32.map" FOR INPUT AS #1
INPUT #1, t50tp(25), t50im(25), t50c1(25), t50c2(25), t50tp(26), t50im(26), t50c1(26), t50c2(26), t50tp(27), t50im(27), t50c1(27), t50c2(27), t50tp(28), t50im(28), t50c1(28), t50c2(28), t50tp(29), t50im(29), t50c1(29), t50c2(29), t50tp(30), t50im(30 _
), t50c1(30), t50c2(30), t17tp(31), t50im(31), t50c1(31), t50c2(31), t50tp(32), t50im(32), t50c1(32), t50c2(32)
CLOSE #1
OPEN "c:map00\m51p08.map" FOR INPUT AS #1
INPUT #1, t51tp(1), t51im(1), t51c1(1), t51c2(1), t51tp(2), t51im(2), t51c1(2), t51c2(2), t51tp(3), t51im(3), t51c1(3), t51c2(3), t51tp(4), t51im(4), t51c1(4), t51c2(4), t51tp(5), t51im(5), t51c1(5), t51c2(5), t51tp(6), t51im(6), t51c1(6), t51c2(6), _
 t51tp(7), t51im(7), t51c1(7), t51c2(7), t51tp(8), t51im(8), t51c1(8), t51c2(8)
CLOSE #1
OPEN "c:map00\m51p16.map" FOR INPUT AS #1
INPUT #1, t51tp(9), t51im(9), t51c1(9), t51c2(9), t51tp(10), t51im(10), t51c1(10), t51c2(10), t51tp(11), t51im(11), t51c1(11), t51c2(11), t51tp(12), t51im(12), t51c1(12), t51c2(12), t51tp(13), t51im(13), t51c1(13), t51c2(13), t51tp(14), t51im(14),  _
t51c1(14), t51c2(14), t17tp(15), t51im(15), t51c1(15), t51c2(15), t51tp(16), t51im(16), t51c1(16), t51c2(16)
CLOSE #1
OPEN "c:map00\m51p24.map" FOR INPUT AS #1
INPUT #1, t51tp(17), t51im(17), t51c1(17), t51c2(17), t51tp(18), t51im(18), t51c1(18), t51c2(18), t51tp(19), t51im(19), t51c1(19), t51c2(19), t51tp(20), t51im(20), t51c1(20), t51c2(20), t51tp(21), t51im(21), t51c1(21), t51c2(21), t51tp(22), t51im(22 _
), t51c1(22), t51c2(22), t17tp(23), t51im(23), t51c1(23), t51c2(23), t51tp(24), t51im(24), t51c1(24), t51c2(24)
CLOSE #1
OPEN "c:map00\m51p32.map" FOR INPUT AS #1
INPUT #1, t51tp(25), t51im(25), t51c1(25), t51c2(25), t51tp(26), t51im(26), t51c1(26), t51c2(26), t51tp(27), t51im(27), t51c1(27), t51c2(27), t51tp(28), t51im(28), t51c1(28), t51c2(28), t51tp(29), t51im(29), t51c1(29), t51c2(29), t51tp(30), t51im(30 _
), t51c1(30), t51c2(30), t17tp(31), t51im(31), t51c1(31), t51c2(31), t51tp(32), t51im(32), t51c1(32), t51c2(32)
CLOSE #1
OPEN "c:map00\m52p08.map" FOR INPUT AS #1
INPUT #1, t52tp(1), t52im(1), t52c1(1), t52c2(1), t52tp(2), t52im(2), t52c1(2), t52c2(2), t52tp(3), t52im(3), t52c1(3), t52c2(3), t52tp(4), t52im(4), t52c1(4), t52c2(4), t52tp(5), t52im(5), t52c1(5), t52c2(5), t52tp(6), t52im(6), t52c1(6), t52c2(6), _
 t52tp(7), t52im(7), t52c1(7), t52c2(7), t52tp(8), t52im(8), t52c1(8), t52c2(8)
CLOSE #1
OPEN "c:map00\m52p16.map" FOR INPUT AS #1
INPUT #1, t52tp(9), t52im(9), t52c1(9), t52c2(9), t52tp(10), t52im(10), t52c1(10), t52c2(10), t52tp(11), t52im(11), t52c1(11), t52c2(11), t52tp(12), t52im(12), t52c1(12), t52c2(12), t52tp(13), t52im(13), t52c1(13), t52c2(13), t52tp(14), t52im(14),  _
t52c1(14), t52c2(14), t17tp(15), t52im(15), t52c1(15), t52c2(15), t52tp(16), t52im(16), t52c1(16), t52c2(16)
CLOSE #1
OPEN "c:map00\m52p24.map" FOR INPUT AS #1
INPUT #1, t52tp(17), t52im(17), t52c1(17), t52c2(17), t52tp(18), t52im(18), t52c1(18), t52c2(18), t52tp(19), t52im(19), t52c1(19), t52c2(19), t52tp(20), t52im(20), t52c1(20), t52c2(20), t52tp(21), t52im(21), t52c1(21), t52c2(21), t52tp(22), t52im(22 _
), t52c1(22), t52c2(22), t17tp(23), t52im(23), t52c1(23), t52c2(23), t52tp(24), t52im(24), t52c1(24), t52c2(24)
CLOSE #1
OPEN "c:map00\m52p32.map" FOR INPUT AS #1
INPUT #1, t52tp(25), t52im(25), t52c1(25), t52c2(25), t52tp(26), t52im(26), t52c1(26), t52c2(26), t52tp(27), t52im(27), t52c1(27), t52c2(27), t52tp(28), t52im(28), t52c1(28), t52c2(28), t52tp(29), t52im(29), t52c1(29), t52c2(29), t52tp(30), t52im(30 _
), t52c1(30), t52c2(30), t17tp(31), t52im(31), t52c1(31), t52c2(31), t52tp(32), t52im(32), t52c1(32), t52c2(32)
CLOSE #1
OPEN "c:map00\m53p08.map" FOR INPUT AS #1
INPUT #1, t53tp(1), t53im(1), t53c1(1), t53c2(1), t53tp(2), t53im(2), t53c1(2), t53c2(2), t53tp(3), t53im(3), t53c1(3), t53c2(3), t53tp(4), t53im(4), t53c1(4), t53c2(4), t53tp(5), t53im(5), t53c1(5), t53c2(5), t53tp(6), t53im(6), t53c1(6), t53c2(6), _
 t53tp(7), t53im(7), t53c1(7), t53c2(7), t53tp(8), t53im(8), t53c1(8), t53c2(8)
CLOSE #1
OPEN "c:map00\m53p16.map" FOR INPUT AS #1
INPUT #1, t53tp(9), t53im(9), t53c1(9), t53c2(9), t53tp(10), t53im(10), t53c1(10), t53c2(10), t53tp(11), t53im(11), t53c1(11), t53c2(11), t53tp(12), t53im(12), t53c1(12), t53c2(12), t53tp(13), t53im(13), t53c1(13), t53c2(13), t53tp(14), t53im(14),  _
t53c1(14), t53c2(14), t17tp(15), t53im(15), t53c1(15), t53c2(15), t53tp(16), t53im(16), t53c1(16), t53c2(16)
CLOSE #1
OPEN "c:map00\m53p24.map" FOR INPUT AS #1
INPUT #1, t53tp(17), t53im(17), t53c1(17), t53c2(17), t53tp(18), t53im(18), t53c1(18), t53c2(18), t53tp(19), t53im(19), t53c1(19), t53c2(19), t53tp(20), t53im(20), t53c1(20), t53c2(20), t53tp(21), t53im(21), t53c1(21), t53c2(21), t53tp(22), t53im(22 _
), t53c1(22), t53c2(22), t17tp(23), t53im(23), t53c1(23), t53c2(23), t53tp(24), t53im(24), t53c1(24), t53c2(24)
CLOSE #1
OPEN "c:map00\m53p32.map" FOR INPUT AS #1
INPUT #1, t53tp(25), t53im(25), t53c1(25), t53c2(25), t53tp(26), t53im(26), t53c1(26), t53c2(26), t53tp(27), t53im(27), t53c1(27), t53c2(27), t53tp(28), t53im(28), t53c1(28), t53c2(28), t53tp(29), t53im(29), t53c1(29), t53c2(29), t53tp(30), t53im(30 _
), t53c1(30), t53c2(30), t17tp(31), t53im(31), t53c1(31), t53c2(31), t53tp(32), t53im(32), t53c1(32), t53c2(32)
CLOSE #1


END SUB

SUB save
OPEN "c:map00\m1p08.map" FOR OUTPUT AS #1
WRITE #1, t1tp(1), t1im(1), t1c1(1), t1c2(1), t1tp(2), t1im(2), t1c1(2), t1c2(2), t1tp(3), t1im(3), t1c1(3), t1c2(3), t1tp(4), t1im(4), t1c1(4), t1c2(4), t1tp(5), t1im(5), t1c1(5), t1c2(5), t1tp(6), t1im(6), t1c1(6), t1c2(6), t1tp(7), t1im(7), t1c1( _
7), t1c2(7), t1tp(8), t1im(8), t1c1(8), t1c2(8)
CLOSE #1
OPEN "c:map00\m1p16.map" FOR OUTPUT AS #1
WRITE #1, t1tp(9), t1im(9), t1c1(9), t1c2(9), t1tp(10), t1im(10), t1c1(10), t1c2(10), t1tp(11), t1im(11), t1c1(11), t1c2(11), t1tp(12), t1im(12), t1c1(12), t1c2(12), t1tp(13), t1im(13), t1c1(13), t1c2(13), t1tp(14), t1im(14), t1c1(14), t1c2(14),  _
t1tp(15), t1im(15), t1c1(15), t1c2(15), t1tp(16), t1im(16), t1c1(16), t1c2(16)
CLOSE #1
OPEN "c:map00\m1p24.map" FOR OUTPUT AS #1
WRITE #1, t1tp(17), t1im(17), t1c1(17), t1c2(17), t1tp(18), t1im(18), t1c1(18), t1c2(18), t1tp(19), t1im(19), t1c1(19), t1c2(19), t1tp(20), t1im(20), t1c1(20), t1c2(20), t1tp(21), t1im(21), t1c1(21), t1c2(21), t1tp(22), t1im(22), t1c1(22), t1c2(22), _
 t1tp(23), t1im(23), t1c1(23), t1c2(23), t1tp(24), t1im(24), t1c1(24), t1c2(24)
CLOSE #1
OPEN "c:map00\m1p32.map" FOR OUTPUT AS #1
WRITE #1, t1tp(25), t1im(25), t1c1(25), t1c2(25), t1tp(26), t1im(26), t1c1(26), t1c2(26), t1tp(27), t1im(27), t1c1(27), t1c2(27), t1tp(28), t1im(28), t1c1(28), t1c2(28), t1tp(29), t1im(29), t1c1(29), t1c2(29), t1tp(30), t1im(30), t1c1(30), t1c2(30), _
 t1tp(31), t1im(31), t1c1(31), t1c2(31), t1tp(32), t1im(32), t1c1(32), t1c2(32)
CLOSE #1
OPEN "c:map00\m2p08.map" FOR OUTPUT AS #1
WRITE #1, t2tp(1), t2im(1), t2c1(1), t2c2(1), t2tp(2), t2im(2), t2c1(2), t2c2(2), t2tp(3), t2im(3), t2c1(3), t2c2(3), t2tp(4), t2im(4), t2c1(4), t2c2(4), t2tp(5), t2im(5), t2c1(5), t2c2(5), t2tp(6), t2im(6), t2c1(6), t2c2(6), t2tp(7), t2im(7), t2c1( _
7), t2c2(7), t2tp(8), t2im(8), t2c1(8), t2c2(8)
CLOSE #1
OPEN "c:map00\m2p16.map" FOR OUTPUT AS #1
WRITE #1, t2tp(9), t2im(9), t2c1(9), t2c2(9), t2tp(10), t2im(10), t2c1(10), t2c2(10), t2tp(11), t2im(11), t2c1(11), t2c2(11), t2tp(12), t2im(12), t2c1(12), t2c2(12), t2tp(13), t2im(13), t2c1(13), t2c2(13), t2tp(14), t2im(14), t2c1(14), t2c2(14),  _
t2tp(15), t2im(15), t2c1(15), t2c2(15), t2tp(16), t2im(16), t2c1(16), t2c2(16)
CLOSE #1
OPEN "c:map00\m2p24.map" FOR OUTPUT AS #1
WRITE #1, t2tp(17), t2im(17), t2c1(17), t2c2(17), t2tp(18), t2im(18), t2c1(18), t2c2(18), t2tp(19), t2im(19), t2c1(19), t2c2(19), t2tp(20), t2im(20), t2c1(20), t2c2(20), t2tp(21), t2im(21), t2c1(21), t2c2(21), t2tp(22), t2im(22), t2c1(22), t2c2(22), _
 t2tp(23), t2im(23), t2c1(23), t2c2(23), t2tp(24), t2im(24), t2c1(24), t2c2(24)
CLOSE #1
OPEN "c:map00\m2p32.map" FOR OUTPUT AS #1
WRITE #1, t2tp(25), t2im(25), t2c1(25), t2c2(25), t2tp(26), t2im(26), t2c1(26), t2c2(26), t2tp(27), t2im(27), t2c1(27), t2c2(27), t2tp(28), t2im(28), t2c1(28), t2c2(28), t2tp(29), t2im(29), t2c1(29), t2c2(29), t2tp(30), t2im(30), t2c1(30), t2c2(30), _
 t2tp(31), t2im(31), t2c1(31), t2c2(31), t2tp(32), t2im(32), t2c1(32), t2c2(32)
CLOSE #1
OPEN "c:map00\m3p08.map" FOR OUTPUT AS #1
WRITE #1, t3tp(1), t3im(1), t3c1(1), t3c2(1), t3tp(2), t3im(2), t3c1(2), t3c2(2), t3tp(3), t3im(3), t3c1(3), t3c2(3), t3tp(4), t3im(4), t3c1(4), t3c2(4), t3tp(5), t3im(5), t3c1(5), t3c2(5), t3tp(6), t3im(6), t3c1(6), t3c2(6), t3tp(7), t3im(7), t3c1( _
7), t3c2(7), t3tp(8), t3im(8), t3c1(8), t3c2(8)
CLOSE #1
OPEN "c:map00\m3p16.map" FOR OUTPUT AS #1
WRITE #1, t3tp(9), t3im(9), t3c1(9), t3c2(9), t3tp(10), t3im(10), t3c1(10), t3c2(10), t3tp(11), t3im(11), t3c1(11), t3c2(11), t3tp(12), t3im(12), t3c1(12), t3c2(12), t3tp(13), t3im(13), t3c1(13), t3c2(13), t3tp(14), t3im(14), t3c1(14), t3c2(14),  _
t3tp(15), t3im(15), t3c1(15), t3c2(15), t3tp(16), t3im(16), t3c1(16), t3c2(16)
CLOSE #1
OPEN "c:map00\m3p24.map" FOR OUTPUT AS #1
WRITE #1, t3tp(17), t3im(17), t3c1(17), t3c2(17), t3tp(18), t3im(18), t3c1(18), t3c2(18), t3tp(19), t3im(19), t3c1(19), t3c2(19), t3tp(20), t3im(20), t3c1(20), t3c2(20), t3tp(21), t3im(21), t3c1(21), t3c2(21), t3tp(22), t3im(22), t3c1(22), t3c2(22), _
 t3tp(23), t3im(23), t3c1(23), t3c2(23), t3tp(24), t3im(24), t3c1(24), t3c2(24)
CLOSE #1
OPEN "c:map00\m3p32.map" FOR OUTPUT AS #1
WRITE #1, t3tp(25), t3im(25), t3c1(25), t3c2(25), t3tp(26), t3im(26), t3c1(26), t3c2(26), t3tp(27), t3im(27), t3c1(27), t3c2(27), t3tp(28), t3im(28), t3c1(28), t3c2(28), t3tp(29), t3im(29), t3c1(29), t3c2(29), t3tp(30), t3im(30), t3c1(30), t3c2(30), _
 t3tp(31), t3im(31), t3c1(31), t3c2(31), t3tp(32), t3im(32), t3c1(32), t3c2(32)
CLOSE #1
OPEN "c:map00\m4p08.map" FOR OUTPUT AS #1
WRITE #1, t4tp(1), t4im(1), t4c1(1), t4c2(1), t4tp(2), t4im(2), t4c1(2), t4c2(2), t4tp(3), t4im(3), t4c1(3), t4c2(3), t4tp(4), t4im(4), t4c1(4), t4c2(4), t4tp(5), t4im(5), t4c1(5), t4c2(5), t4tp(6), t4im(6), t4c1(6), t4c2(6), t4tp(7), t4im(7), t4c1( _
7), t4c2(7), t4tp(8), t4im(8), t4c1(8), t4c2(8)
CLOSE #1
OPEN "c:map00\m4p16.map" FOR OUTPUT AS #1
WRITE #1, t4tp(9), t4im(9), t4c1(9), t4c2(9), t4tp(10), t4im(10), t4c1(10), t4c2(10), t4tp(11), t4im(11), t4c1(11), t4c2(11), t4tp(12), t4im(12), t4c1(12), t4c2(12), t4tp(13), t4im(13), t4c1(13), t4c2(13), t4tp(14), t4im(14), t4c1(14), t4c2(14),  _
t4tp(15), t4im(15), t4c1(15), t4c2(15), t4tp(16), t4im(16), t4c1(16), t4c2(16)
CLOSE #1
OPEN "c:map00\m4p24.map" FOR OUTPUT AS #1
WRITE #1, t4tp(17), t4im(17), t4c1(17), t4c2(17), t4tp(18), t4im(18), t4c1(18), t4c2(18), t4tp(19), t4im(19), t4c1(19), t4c2(19), t4tp(20), t4im(20), t4c1(20), t4c2(20), t4tp(21), t4im(21), t4c1(21), t4c2(21), t4tp(22), t4im(22), t4c1(22), t4c2(22), _
 t4tp(23), t4im(23), t4c1(23), t4c2(23), t4tp(24), t4im(24), t4c1(24), t4c2(24)
CLOSE #1
OPEN "c:map00\m4p32.map" FOR OUTPUT AS #1
WRITE #1, t4tp(25), t4im(25), t4c1(25), t4c2(25), t4tp(26), t4im(26), t4c1(26), t4c2(26), t4tp(27), t4im(27), t4c1(27), t4c2(27), t4tp(28), t4im(28), t4c1(28), t4c2(28), t4tp(29), t4im(29), t4c1(29), t4c2(29), t4tp(30), t4im(30), t4c1(30), t4c2(30), _
 t4tp(31), t4im(31), t4c1(31), t4c2(31), t4tp(32), t4im(32), t4c1(32), t4c2(32)
CLOSE #1
OPEN "c:map00\m5p08.map" FOR OUTPUT AS #1
WRITE #1, t5tp(1), t5im(1), t5c1(1), t5c2(1), t5tp(2), t5im(2), t5c1(2), t5c2(2), t5tp(3), t5im(3), t5c1(3), t5c2(3), t5tp(4), t5im(4), t5c1(4), t5c2(4), t5tp(5), t5im(5), t5c1(5), t5c2(5), t5tp(6), t5im(6), t5c1(6), t5c2(6), t5tp(7), t5im(7), t5c1( _
7), t5c2(7), t5tp(8), t5im(8), t5c1(8), t5c2(8)
CLOSE #1
OPEN "c:map00\m5p16.map" FOR OUTPUT AS #1
WRITE #1, t5tp(9), t5im(9), t5c1(9), t5c2(9), t5tp(10), t5im(10), t5c1(10), t5c2(10), t5tp(11), t5im(11), t5c1(11), t5c2(11), t5tp(12), t5im(12), t5c1(12), t5c2(12), t5tp(13), t5im(13), t5c1(13), t5c2(13), t5tp(14), t5im(14), t5c1(14), t5c2(14),  _
t5tp(15), t5im(15), t5c1(15), t5c2(15), t5tp(16), t5im(16), t5c1(16), t5c2(16)
CLOSE #1
OPEN "c:map00\m5p24.map" FOR OUTPUT AS #1
WRITE #1, t5tp(17), t5im(17), t5c1(17), t5c2(17), t5tp(18), t5im(18), t5c1(18), t5c2(18), t5tp(19), t5im(19), t5c1(19), t5c2(19), t5tp(20), t5im(20), t5c1(20), t5c2(20), t5tp(21), t5im(21), t5c1(21), t5c2(21), t5tp(22), t5im(22), t5c1(22), t5c2(22), _
 t5tp(23), t5im(23), t5c1(23), t5c2(23), t5tp(24), t5im(24), t5c1(24), t5c2(24)
CLOSE #1
OPEN "c:map00\m5p32.map" FOR OUTPUT AS #1
WRITE #1, t5tp(25), t5im(25), t5c1(25), t5c2(25), t5tp(26), t5im(26), t5c1(26), t5c2(26), t5tp(27), t5im(27), t5c1(27), t5c2(27), t5tp(28), t5im(28), t5c1(28), t5c2(28), t5tp(29), t5im(29), t5c1(29), t5c2(29), t5tp(30), t5im(30), t5c1(30), t5c2(30), _
 t5tp(31), t5im(31), t5c1(31), t5c2(31), t5tp(32), t5im(32), t5c1(32), t5c2(32)
CLOSE #1
OPEN "c:map00\m6p08.map" FOR OUTPUT AS #1
WRITE #1, t6tp(1), t6im(1), t6c1(1), t6c2(1), t6tp(2), t6im(2), t6c1(2), t6c2(2), t6tp(3), t6im(3), t6c1(3), t6c2(3), t6tp(4), t6im(4), t6c1(4), t6c2(4), t6tp(5), t6im(5), t6c1(5), t6c2(5), t6tp(6), t6im(6), t6c1(6), t6c2(6), t6tp(7), t6im(7), t6c1( _
7), t6c2(7), t6tp(8), t6im(8), t6c1(8), t6c2(8)
CLOSE #1
OPEN "c:map00\m6p16.map" FOR OUTPUT AS #1
WRITE #1, t6tp(9), t6im(9), t6c1(9), t6c2(9), t6tp(10), t6im(10), t6c1(10), t6c2(10), t6tp(11), t6im(11), t6c1(11), t6c2(11), t6tp(12), t6im(12), t6c1(12), t6c2(12), t6tp(13), t6im(13), t6c1(13), t6c2(13), t6tp(14), t6im(14), t6c1(14), t6c2(14),  _
t6tp(15), t6im(15), t6c1(15), t6c2(15), t6tp(16), t6im(16), t6c1(16), t6c2(16)
CLOSE #1
OPEN "c:map00\m6p24.map" FOR OUTPUT AS #1
WRITE #1, t6tp(17), t6im(17), t6c1(17), t6c2(17), t6tp(18), t6im(18), t6c1(18), t6c2(18), t6tp(19), t6im(19), t6c1(19), t6c2(19), t6tp(20), t6im(20), t6c1(20), t6c2(20), t6tp(21), t6im(21), t6c1(21), t6c2(21), t6tp(22), t6im(22), t6c1(22), t6c2(22), _
 t6tp(23), t6im(23), t6c1(23), t6c2(23), t6tp(24), t6im(24), t6c1(24), t6c2(24)
CLOSE #1
OPEN "c:map00\m6p32.map" FOR OUTPUT AS #1
WRITE #1, t6tp(25), t6im(25), t6c1(25), t6c2(25), t6tp(26), t6im(26), t6c1(26), t6c2(26), t6tp(27), t6im(27), t6c1(27), t6c2(27), t6tp(28), t6im(28), t6c1(28), t6c2(28), t6tp(29), t6im(29), t6c1(29), t6c2(29), t6tp(30), t6im(30), t6c1(30), t6c2(30), _
 t6tp(31), t6im(31), t6c1(31), t6c2(31), t6tp(32), t6im(32), t6c1(32), t6c2(32)
CLOSE #1
OPEN "c:map00\m7p08.map" FOR OUTPUT AS #1
WRITE #1, t7tp(1), t7im(1), t7c1(1), t7c2(1), t7tp(2), t7im(2), t7c1(2), t7c2(2), t7tp(3), t7im(3), t7c1(3), t7c2(3), t7tp(4), t7im(4), t7c1(4), t7c2(4), t7tp(5), t7im(5), t7c1(5), t7c2(5), t7tp(6), t7im(6), t7c1(6), t7c2(6), t7tp(7), t7im(7), t7c1( _
7), t7c2(7), t7tp(8), t7im(8), t7c1(8), t7c2(8)
CLOSE #1
OPEN "c:map00\m7p16.map" FOR OUTPUT AS #1
WRITE #1, t7tp(9), t7im(9), t7c1(9), t7c2(9), t7tp(10), t7im(10), t7c1(10), t7c2(10), t7tp(11), t7im(11), t7c1(11), t7c2(11), t7tp(12), t7im(12), t7c1(12), t7c2(12), t7tp(13), t7im(13), t7c1(13), t7c2(13), t7tp(14), t7im(14), t7c1(14), t7c2(14),  _
t7tp(15), t7im(15), t7c1(15), t7c2(15), t7tp(16), t7im(16), t7c1(16), t7c2(16)
CLOSE #1
OPEN "c:map00\m7p24.map" FOR OUTPUT AS #1
WRITE #1, t7tp(17), t7im(17), t7c1(17), t7c2(17), t7tp(18), t7im(18), t7c1(18), t7c2(18), t7tp(19), t7im(19), t7c1(19), t7c2(19), t7tp(20), t7im(20), t7c1(20), t7c2(20), t7tp(21), t7im(21), t7c1(21), t7c2(21), t7tp(22), t7im(22), t7c1(22), t7c2(22), _
 t7tp(23), t7im(23), t7c1(23), t7c2(23), t7tp(24), t7im(24), t7c1(24), t7c2(24)
CLOSE #1
OPEN "c:map00\m7p32.map" FOR OUTPUT AS #1
WRITE #1, t7tp(25), t7im(25), t7c1(25), t7c2(25), t7tp(26), t7im(26), t7c1(26), t7c2(26), t7tp(27), t7im(27), t7c1(27), t7c2(27), t7tp(28), t7im(28), t7c1(28), t7c2(28), t7tp(29), t7im(29), t7c1(29), t7c2(29), t7tp(30), t7im(30), t7c1(30), t7c2(30), _
 t7tp(31), t7im(31), t7c1(31), t7c2(31), t7tp(32), t7im(32), t7c1(32), t7c2(32)
CLOSE #1
OPEN "c:map00\m8p08.map" FOR OUTPUT AS #1
WRITE #1, t8tp(1), t8im(1), t8c1(1), t8c2(1), t8tp(2), t8im(2), t8c1(2), t8c2(2), t8tp(3), t8im(3), t8c1(3), t8c2(3), t8tp(4), t8im(4), t8c1(4), t8c2(4), t8tp(5), t8im(5), t8c1(5), t8c2(5), t8tp(6), t8im(6), t8c1(6), t8c2(6), t8tp(7), t8im(7), t8c1( _
7), t8c2(7), t8tp(8), t8im(8), t8c1(8), t8c2(8)
CLOSE #1
OPEN "c:map00\m8p16.map" FOR OUTPUT AS #1
WRITE #1, t8tp(9), t8im(9), t8c1(9), t8c2(9), t8tp(10), t8im(10), t8c1(10), t8c2(10), t8tp(11), t8im(11), t8c1(11), t8c2(11), t8tp(12), t8im(12), t8c1(12), t8c2(12), t8tp(13), t8im(13), t8c1(13), t8c2(13), t8tp(14), t8im(14), t8c1(14), t8c2(14),  _
t8tp(15), t8im(15), t8c1(15), t8c2(15), t8tp(16), t8im(16), t8c1(16), t8c2(16)
CLOSE #1
OPEN "c:map00\m8p24.map" FOR OUTPUT AS #1
WRITE #1, t8tp(17), t8im(17), t8c1(17), t8c2(17), t8tp(18), t8im(18), t8c1(18), t8c2(18), t8tp(19), t8im(19), t8c1(19), t8c2(19), t8tp(20), t8im(20), t8c1(20), t8c2(20), t8tp(21), t8im(21), t8c1(21), t8c2(21), t8tp(22), t8im(22), t8c1(22), t8c2(22), _
 t8tp(23), t8im(23), t8c1(23), t8c2(23), t8tp(24), t8im(24), t8c1(24), t8c2(24)
CLOSE #1
OPEN "c:map00\m8p32.map" FOR OUTPUT AS #1
WRITE #1, t8tp(25), t8im(25), t8c1(25), t8c2(25), t8tp(26), t8im(26), t8c1(26), t8c2(26), t8tp(27), t8im(27), t8c1(27), t8c2(27), t8tp(28), t8im(28), t8c1(28), t8c2(28), t8tp(29), t8im(29), t8c1(29), t8c2(29), t8tp(30), t8im(30), t8c1(30), t8c2(30), _
 t8tp(31), t8im(31), t8c1(31), t8c2(31), t8tp(32), t8im(32), t8c1(32), t8c2(32)
CLOSE #1
OPEN "c:map00\m9p08.map" FOR OUTPUT AS #1
WRITE #1, t9tp(1), t9im(1), t9c1(1), t9c2(1), t9tp(2), t9im(2), t9c1(2), t9c2(2), t9tp(3), t9im(3), t9c1(3), t9c2(3), t9tp(4), t9im(4), t9c1(4), t9c2(4), t9tp(5), t9im(5), t9c1(5), t9c2(5), t9tp(6), t9im(6), t9c1(6), t9c2(6), t9tp(7), t9im(7), t9c1( _
7), t9c2(7), t9tp(8), t9im(8), t9c1(8), t9c2(8)
CLOSE #1
OPEN "c:map00\m9p16.map" FOR OUTPUT AS #1
WRITE #1, t9tp(9), t9im(9), t9c1(9), t9c2(9), t9tp(10), t9im(10), t9c1(10), t9c2(10), t9tp(11), t9im(11), t9c1(11), t9c2(11), t9tp(12), t9im(12), t9c1(12), t9c2(12), t9tp(13), t9im(13), t9c1(13), t9c2(13), t9tp(14), t9im(14), t9c1(14), t9c2(14),  _
t9tp(15), t9im(15), t9c1(15), t9c2(15), t9tp(16), t9im(16), t9c1(16), t9c2(16)
CLOSE #1
OPEN "c:map00\m9p24.map" FOR OUTPUT AS #1
WRITE #1, t9tp(17), t9im(17), t9c1(17), t9c2(17), t9tp(18), t9im(18), t9c1(18), t9c2(18), t9tp(19), t9im(19), t9c1(19), t9c2(19), t9tp(20), t9im(20), t9c1(20), t9c2(20), t9tp(21), t9im(21), t9c1(21), t9c2(21), t9tp(22), t9im(22), t9c1(22), t9c2(22), _
 t9tp(23), t9im(23), t9c1(23), t9c2(23), t9tp(24), t9im(24), t9c1(24), t9c2(24)
CLOSE #1
OPEN "c:map00\m9p32.map" FOR OUTPUT AS #1
WRITE #1, t9tp(25), t9im(25), t9c1(25), t9c2(25), t9tp(26), t9im(26), t9c1(26), t9c2(26), t9tp(27), t9im(27), t9c1(27), t9c2(27), t9tp(28), t9im(28), t9c1(28), t9c2(28), t9tp(29), t9im(29), t9c1(29), t9c2(29), t9tp(30), t9im(30), t9c1(30), t9c2(30), _
 t9tp(31), t9im(31), t9c1(31), t9c2(31), t9tp(32), t9im(32), t9c1(32), t9c2(32)
CLOSE #1
OPEN "c:map00\m10p08.map" FOR OUTPUT AS #1
WRITE #1, t10tp(1), t10im(1), t10c1(1), t10c2(1), t10tp(2), t10im(2), t10c1(2), t10c2(2), t10tp(3), t10im(3), t10c1(3), t10c2(3), t10tp(4), t10im(4), t10c1(4), t10c2(4), t10tp(5), t10im(5), t10c1(5), t10c2(5), t10tp(6), t10im(6), t10c1(6), t10c2(6), _
 t10tp(7), t10im(7), t10c1(7), t10c2(7), t10tp(8), t10im(8), t10c1(8), t10c2(8)
CLOSE #1
OPEN "c:map00\m10p16.map" FOR OUTPUT AS #1
WRITE #1, t10tp(9), t10im(9), t10c1(9), t10c2(9), t10tp(10), t10im(10), t10c1(10), t10c2(10), t10tp(11), t10im(11), t10c1(11), t10c2(11), t10tp(12), t10im(12), t10c1(12), t10c2(12), t10tp(13), t10im(13), t10c1(13), t10c2(13), t10tp(14), t10im(14),  _
t10c1(14), t10c2(14), t10tp(15), t10im(15), t10c1(15), t10c2(15), t10tp(16), t10im(16), t10c1(16), t10c2(16)
CLOSE #1
OPEN "c:map00\m10p24.map" FOR OUTPUT AS #1
WRITE #1, t10tp(17), t10im(17), t10c1(17), t10c2(17), t10tp(18), t10im(18), t10c1(18), t10c2(18), t10tp(19), t10im(19), t10c1(19), t10c2(19), t10tp(20), t10im(20), t10c1(20), t10c2(20), t10tp(21), t10im(21), t10c1(21), t10c2(21), t10tp(22), t10im(22 _
), t10c1(22), t10c2(22), t10tp(23), t10im(23), t10c1(23), t10c2(23), t10tp(24), t10im(24), t10c1(24), t10c2(24)
CLOSE #1
OPEN "c:map00\m10p32.map" FOR OUTPUT AS #1
WRITE #1, t10tp(25), t10im(25), t10c1(25), t10c2(25), t10tp(26), t10im(26), t10c1(26), t10c2(26), t10tp(27), t10im(27), t10c1(27), t10c2(27), t10tp(28), t10im(28), t10c1(28), t10c2(28), t10tp(29), t10im(29), t10c1(29), t10c2(29), t10tp(30), t10im(30 _
), t10c1(30), t10c2(30), t10tp(31), t10im(31), t10c1(31), t10c2(31), t10tp(32), t10im(32), t10c1(32), t10c2(32)
CLOSE #1
OPEN "c:map00\m11p08.map" FOR OUTPUT AS #1
WRITE #1, t11tp(1), t11im(1), t11c1(1), t11c2(1), t11tp(2), t11im(2), t11c1(2), t11c2(2), t11tp(3), t11im(3), t11c1(3), t11c2(3), t11tp(4), t11im(4), t11c1(4), t11c2(4), t11tp(5), t11im(5), t11c1(5), t11c2(5), t11tp(6), t11im(6), t11c1(6), t11c2(6), _
 t11tp(7), t11im(7), t11c1(7), t11c2(7), t11tp(8), t11im(8), t11c1(8), t11c2(8)
CLOSE #1
OPEN "c:map00\m11p16.map" FOR OUTPUT AS #1
WRITE #1, t11tp(9), t11im(9), t11c1(9), t11c2(9), t11tp(10), t11im(10), t11c1(10), t11c2(10), t11tp(11), t11im(11), t11c1(11), t11c2(11), t11tp(12), t11im(12), t11c1(12), t11c2(12), t11tp(13), t11im(13), t11c1(13), t11c2(13), t11tp(14), t11im(14),  _
t11c1(14), t11c2(14), t11tp(15), t11im(15), t11c1(15), t11c2(15), t11tp(16), t11im(16), t11c1(16), t11c2(16)
CLOSE #1
OPEN "c:map00\m11p24.map" FOR OUTPUT AS #1
WRITE #1, t11tp(17), t11im(17), t11c1(17), t11c2(17), t11tp(18), t11im(18), t11c1(18), t11c2(18), t11tp(19), t11im(19), t11c1(19), t11c2(19), t11tp(20), t11im(20), t11c1(20), t11c2(20), t11tp(21), t11im(21), t11c1(21), t11c2(21), t11tp(22), t11im(22 _
), t11c1(22), t11c2(22), t11tp(23), t11im(23), t11c1(23), t11c2(23), t11tp(24), t11im(24), t11c1(24), t11c2(24)
CLOSE #1
OPEN "c:map00\m11p32.map" FOR OUTPUT AS #1
WRITE #1, t11tp(25), t11im(25), t11c1(25), t11c2(25), t11tp(26), t11im(26), t11c1(26), t11c2(26), t11tp(27), t11im(27), t11c1(27), t11c2(27), t11tp(28), t11im(28), t11c1(28), t11c2(28), t11tp(29), t11im(29), t11c1(29), t11c2(29), t11tp(30), t11im(30 _
), t11c1(30), t11c2(30), t11tp(31), t11im(31), t11c1(31), t11c2(31), t11tp(32), t11im(32), t11c1(32), t11c2(32)
CLOSE #1
OPEN "c:map00\m12p08.map" FOR OUTPUT AS #1
WRITE #1, t12tp(1), t12im(1), t12c1(1), t12c2(1), t12tp(2), t12im(2), t12c1(2), t12c2(2), t12tp(3), t12im(3), t12c1(3), t12c2(3), t12tp(4), t12im(4), t12c1(4), t12c2(4), t12tp(5), t12im(5), t12c1(5), t12c2(5), t12tp(6), t12im(6), t12c1(6), t12c2(6), _
 t12tp(7), t12im(7), t12c1(7), t12c2(7), t12tp(8), t12im(8), t12c1(8), t12c2(8)
CLOSE #1
OPEN "c:map00\m12p16.map" FOR OUTPUT AS #1
WRITE #1, t12tp(9), t12im(9), t12c1(9), t12c2(9), t12tp(10), t12im(10), t12c1(10), t12c2(10), t12tp(11), t12im(11), t12c1(11), t12c2(11), t12tp(12), t12im(12), t12c1(12), t12c2(12), t12tp(13), t12im(13), t12c1(13), t12c2(13), t12tp(14), t12im(14),  _
t12c1(14), t12c2(14), t12tp(15), t12im(15), t12c1(15), t12c2(15), t12tp(16), t12im(16), t12c1(16), t12c2(16)
CLOSE #1
OPEN "c:map00\m12p24.map" FOR OUTPUT AS #1
WRITE #1, t12tp(17), t12im(17), t12c1(17), t12c2(17), t12tp(18), t12im(18), t12c1(18), t12c2(18), t12tp(19), t12im(19), t12c1(19), t12c2(19), t12tp(20), t12im(20), t12c1(20), t12c2(20), t12tp(21), t12im(21), t12c1(21), t12c2(21), t12tp(22), t12im(22 _
), t12c1(22), t12c2(22), t12tp(23), t12im(23), t12c1(23), t12c2(23), t12tp(24), t12im(24), t12c1(24), t12c2(24)
CLOSE #1
OPEN "c:map00\m12p32.map" FOR OUTPUT AS #1
WRITE #1, t12tp(25), t12im(25), t12c1(25), t12c2(25), t12tp(26), t12im(26), t12c1(26), t12c2(26), t12tp(27), t12im(27), t12c1(27), t12c2(27), t12tp(28), t12im(28), t12c1(28), t12c2(28), t12tp(29), t12im(29), t12c1(29), t12c2(29), t12tp(30), t12im(30 _
), t12c1(30), t12c2(30), t12tp(31), t12im(31), t12c1(31), t12c2(31), t12tp(32), t12im(32), t12c1(32), t12c2(32)
CLOSE #1
OPEN "c:map00\m13p08.map" FOR OUTPUT AS #1
WRITE #1, t13tp(1), t13im(1), t13c1(1), t13c2(1), t13tp(2), t13im(2), t13c1(2), t13c2(2), t13tp(3), t13im(3), t13c1(3), t13c2(3), t13tp(4), t13im(4), t13c1(4), t13c2(4), t13tp(5), t13im(5), t13c1(5), t13c2(5), t13tp(6), t13im(6), t13c1(6), t13c2(6), _
 t13tp(7), t13im(7), t13c1(7), t13c2(7), t13tp(8), t13im(8), t13c1(8), t13c2(8)
CLOSE #1
OPEN "c:map00\m13p16.map" FOR OUTPUT AS #1
WRITE #1, t13tp(9), t13im(9), t13c1(9), t13c2(9), t13tp(10), t13im(10), t13c1(10), t13c2(10), t13tp(11), t13im(11), t13c1(11), t13c2(11), t13tp(12), t13im(12), t13c1(12), t13c2(12), t13tp(13), t13im(13), t13c1(13), t13c2(13), t13tp(14), t13im(14),  _
t13c1(14), t13c2(14), t13tp(15), t13im(15), t13c1(15), t13c2(15), t13tp(16), t13im(16), t13c1(16), t13c2(16)
CLOSE #1
OPEN "c:map00\m13p24.map" FOR OUTPUT AS #1
WRITE #1, t13tp(17), t13im(17), t13c1(17), t13c2(17), t13tp(18), t13im(18), t13c1(18), t13c2(18), t13tp(19), t13im(19), t13c1(19), t13c2(19), t13tp(20), t13im(20), t13c1(20), t13c2(20), t13tp(21), t13im(21), t13c1(21), t13c2(21), t13tp(22), t13im(22 _
), t13c1(22), t13c2(22), t13tp(23), t13im(23), t13c1(23), t13c2(23), t13tp(24), t13im(24), t13c1(24), t13c2(24)
CLOSE #1
OPEN "c:map00\m13p32.map" FOR OUTPUT AS #1
WRITE #1, t13tp(25), t13im(25), t13c1(25), t13c2(25), t13tp(26), t13im(26), t13c1(26), t13c2(26), t13tp(27), t13im(27), t13c1(27), t13c2(27), t13tp(28), t13im(28), t13c1(28), t13c2(28), t13tp(29), t13im(29), t13c1(29), t13c2(29), t13tp(30), t13im(30 _
), t13c1(30), t13c2(30), t13tp(31), t13im(31), t13c1(31), t13c2(31), t13tp(32), t13im(32), t13c1(32), t13c2(32)
CLOSE #1
OPEN "c:map00\m14p08.map" FOR OUTPUT AS #1
WRITE #1, t14tp(1), t14im(1), t14c1(1), t14c2(1), t14tp(2), t14im(2), t14c1(2), t14c2(2), t14tp(3), t14im(3), t14c1(3), t14c2(3), t14tp(4), t14im(4), t14c1(4), t14c2(4), t14tp(5), t14im(5), t14c1(5), t14c2(5), t14tp(6), t14im(6), t14c1(6), t14c2(6), _
 t14tp(7), t14im(7), t14c1(7), t14c2(7), t14tp(8), t14im(8), t14c1(8), t14c2(8)
CLOSE #1
OPEN "c:map00\m14p16.map" FOR OUTPUT AS #1
WRITE #1, t14tp(9), t14im(9), t14c1(9), t14c2(9), t14tp(10), t14im(10), t14c1(10), t14c2(10), t14tp(11), t14im(11), t14c1(11), t14c2(11), t14tp(12), t14im(12), t14c1(12), t14c2(12), t14tp(13), t14im(13), t14c1(13), t14c2(13), t14tp(14), t14im(14),  _
t14c1(14), t14c2(14), t14tp(15), t14im(15), t14c1(15), t14c2(15), t14tp(16), t14im(16), t14c1(16), t14c2(16)
CLOSE #1
OPEN "c:map00\m14p24.map" FOR OUTPUT AS #1
WRITE #1, t14tp(17), t14im(17), t14c1(17), t14c2(17), t14tp(18), t14im(18), t14c1(18), t14c2(18), t14tp(19), t14im(19), t14c1(19), t14c2(19), t14tp(20), t14im(20), t14c1(20), t14c2(20), t14tp(21), t14im(21), t14c1(21), t14c2(21), t14tp(22), t14im(22 _
), t14c1(22), t14c2(22), t14tp(23), t14im(23), t14c1(23), t14c2(23), t14tp(24), t14im(24), t14c1(24), t14c2(24)
CLOSE #1
OPEN "c:map00\m14p32.map" FOR OUTPUT AS #1
WRITE #1, t14tp(25), t14im(25), t14c1(25), t14c2(25), t14tp(26), t14im(26), t14c1(26), t14c2(26), t14tp(27), t14im(27), t14c1(27), t14c2(27), t14tp(28), t14im(28), t14c1(28), t14c2(28), t14tp(29), t14im(29), t14c1(29), t14c2(29), t14tp(30), t14im(30 _
), t14c1(30), t14c2(30), t14tp(31), t14im(31), t14c1(31), t14c2(31), t14tp(32), t14im(32), t14c1(32), t14c2(32)
CLOSE #1
OPEN "c:map00\m15p08.map" FOR OUTPUT AS #1
WRITE #1, t15tp(1), t15im(1), t15c1(1), t15c2(1), t15tp(2), t15im(2), t15c1(2), t15c2(2), t15tp(3), t15im(3), t15c1(3), t15c2(3), t15tp(4), t15im(4), t15c1(4), t15c2(4), t15tp(5), t15im(5), t15c1(5), t15c2(5), t15tp(6), t15im(6), t15c1(6), t15c2(6), _
 t15tp(7), t15im(7), t15c1(7), t15c2(7), t15tp(8), t15im(8), t15c1(8), t15c2(8)
CLOSE #1
OPEN "c:map00\m15p16.map" FOR OUTPUT AS #1
WRITE #1, t15tp(9), t15im(9), t15c1(9), t15c2(9), t15tp(10), t15im(10), t15c1(10), t15c2(10), t15tp(11), t15im(11), t15c1(11), t15c2(11), t15tp(12), t15im(12), t15c1(12), t15c2(12), t15tp(13), t15im(13), t15c1(13), t15c2(13), t15tp(14), t15im(14),  _
t15c1(14), t15c2(14), t15tp(15), t15im(15), t15c1(15), t15c2(15), t15tp(16), t15im(16), t15c1(16), t15c2(16)
CLOSE #1
OPEN "c:map00\m15p24.map" FOR OUTPUT AS #1
WRITE #1, t15tp(17), t15im(17), t15c1(17), t15c2(17), t15tp(18), t15im(18), t15c1(18), t15c2(18), t15tp(19), t15im(19), t15c1(19), t15c2(19), t15tp(20), t15im(20), t15c1(20), t15c2(20), t15tp(21), t15im(21), t15c1(21), t15c2(21), t15tp(22), t15im(22 _
), t15c1(22), t15c2(22), t15tp(23), t15im(23), t15c1(23), t15c2(23), t15tp(24), t15im(24), t15c1(24), t15c2(24)
CLOSE #1
OPEN "c:map00\m15p32.map" FOR OUTPUT AS #1
WRITE #1, t15tp(25), t15im(25), t15c1(25), t15c2(25), t15tp(26), t15im(26), t15c1(26), t15c2(26), t15tp(27), t15im(27), t15c1(27), t15c2(27), t15tp(28), t15im(28), t15c1(28), t15c2(28), t15tp(29), t15im(29), t15c1(29), t15c2(29), t15tp(30), t15im(30 _
), t15c1(30), t15c2(30), t15tp(31), t15im(31), t15c1(31), t15c2(31), t15tp(32), t15im(32), t15c1(32), t15c2(32)
CLOSE #1
OPEN "c:map00\m16p08.map" FOR OUTPUT AS #1
WRITE #1, t16tp(1), t16im(1), t16c1(1), t16c2(1), t16tp(2), t16im(2), t16c1(2), t16c2(2), t16tp(3), t16im(3), t16c1(3), t16c2(3), t16tp(4), t16im(4), t16c1(4), t16c2(4), t16tp(5), t16im(5), t16c1(5), t16c2(5), t16tp(6), t16im(6), t16c1(6), t16c2(6), _
 t16tp(7), t16im(7), t16c1(7), t16c2(7), t16tp(8), t16im(8), t16c1(8), t16c2(8)
CLOSE #1
OPEN "c:map00\m16p16.map" FOR OUTPUT AS #1
WRITE #1, t16tp(9), t16im(9), t16c1(9), t16c2(9), t16tp(10), t16im(10), t16c1(10), t16c2(10), t16tp(11), t16im(11), t16c1(11), t16c2(11), t16tp(12), t16im(12), t16c1(12), t16c2(12), t16tp(13), t16im(13), t16c1(13), t16c2(13), t16tp(14), t16im(14),  _
t16c1(14), t16c2(14), t16tp(15), t16im(15), t16c1(15), t16c2(15), t16tp(16), t16im(16), t16c1(16), t16c2(16)
CLOSE #1
OPEN "c:map00\m16p24.map" FOR OUTPUT AS #1
WRITE #1, t16tp(17), t16im(17), t16c1(17), t16c2(17), t16tp(18), t16im(18), t16c1(18), t16c2(18), t16tp(19), t16im(19), t16c1(19), t16c2(19), t16tp(20), t16im(20), t16c1(20), t16c2(20), t16tp(21), t16im(21), t16c1(21), t16c2(21), t16tp(22), t16im(22 _
), t16c1(22), t16c2(22), t16tp(23), t16im(23), t16c1(23), t16c2(23), t16tp(24), t16im(24), t16c1(24), t16c2(24)
CLOSE #1
OPEN "c:map00\m16p32.map" FOR OUTPUT AS #1
WRITE #1, t16tp(25), t16im(25), t16c1(25), t16c2(25), t16tp(26), t16im(26), t16c1(26), t16c2(26), t16tp(27), t16im(27), t16c1(27), t16c2(27), t16tp(28), t16im(28), t16c1(28), t16c2(28), t16tp(29), t16im(29), t16c1(29), t16c2(29), t16tp(30), t16im(30 _
), t16c1(30), t16c2(30), t16tp(31), t16im(31), t16c1(31), t16c2(31), t16tp(32), t16im(32), t16c1(32), t16c2(32)
CLOSE #1
OPEN "c:map00\m17p08.map" FOR OUTPUT AS #1
WRITE #1, t17tp(1), t17im(1), t17c1(1), t17c2(1), t17tp(2), t17im(2), t17c1(2), t17c2(2), t17tp(3), t17im(3), t17c1(3), t17c2(3), t17tp(4), t17im(4), t17c1(4), t17c2(4), t17tp(5), t17im(5), t17c1(5), t17c2(5), t17tp(6), t17im(6), t17c1(6), t17c2(6), _
 t17tp(7), t17im(7), t17c1(7), t17c2(7), t17tp(8), t17im(8), t17c1(8), t17c2(8)
CLOSE #1
OPEN "c:map00\m17p16.map" FOR OUTPUT AS #1
WRITE #1, t17tp(9), t17im(9), t17c1(9), t17c2(9), t17tp(10), t17im(10), t17c1(10), t17c2(10), t17tp(11), t17im(11), t17c1(11), t17c2(11), t17tp(12), t17im(12), t17c1(12), t17c2(12), t17tp(13), t17im(13), t17c1(13), t17c2(13), t17tp(14), t17im(14),  _
t17c1(14), t17c2(14), t17tp(15), t17im(15), t17c1(15), t17c2(15), t17tp(16), t17im(16), t17c1(16), t17c2(16)
CLOSE #1
OPEN "c:map00\m17p24.map" FOR OUTPUT AS #1
WRITE #1, t17tp(17), t17im(17), t17c1(17), t17c2(17), t17tp(18), t17im(18), t17c1(18), t17c2(18), t17tp(19), t17im(19), t17c1(19), t17c2(19), t17tp(20), t17im(20), t17c1(20), t17c2(20), t17tp(21), t17im(21), t17c1(21), t17c2(21), t17tp(22), t17im(22 _
), t17c1(22), t17c2(22), t17tp(23), t17im(23), t17c1(23), t17c2(23), t17tp(24), t17im(24), t17c1(24), t17c2(24)
CLOSE #1
OPEN "c:map00\m17p32.map" FOR OUTPUT AS #1
WRITE #1, t17tp(25), t17im(25), t17c1(25), t17c2(25), t17tp(26), t17im(26), t17c1(26), t17c2(26), t17tp(27), t17im(27), t17c1(27), t17c2(27), t17tp(28), t17im(28), t17c1(28), t17c2(28), t17tp(29), t17im(29), t17c1(29), t17c2(29), t17tp(30), t17im(30 _
), t17c1(30), t17c2(30), t17tp(31), t17im(31), t17c1(31), t17c2(31), t17tp(32), t17im(32), t17c1(32), t17c2(32)
CLOSE #1
OPEN "c:map00\m18p08.map" FOR OUTPUT AS #1
WRITE #1, t18tp(1), t18im(1), t18c1(1), t18c2(1), t18tp(2), t18im(2), t18c1(2), t18c2(2), t18tp(3), t18im(3), t18c1(3), t18c2(3), t18tp(4), t18im(4), t18c1(4), t18c2(4), t18tp(5), t18im(5), t18c1(5), t18c2(5), t18tp(6), t18im(6), t18c1(6), t18c2(6), _
 t18tp(7), t18im(7), t18c1(7), t18c2(7), t18tp(8), t18im(8), t18c1(8), t18c2(8)
CLOSE #1
OPEN "c:map00\m18p16.map" FOR OUTPUT AS #1
WRITE #1, t18tp(9), t18im(9), t18c1(9), t18c2(9), t18tp(10), t18im(10), t18c1(10), t18c2(10), t18tp(11), t18im(11), t18c1(11), t18c2(11), t18tp(12), t18im(12), t18c1(12), t18c2(12), t18tp(13), t18im(13), t18c1(13), t18c2(13), t18tp(14), t18im(14),  _
t18c1(14), t18c2(14), t17tp(15), t18im(15), t18c1(15), t18c2(15), t18tp(16), t18im(16), t18c1(16), t18c2(16)
CLOSE #1
OPEN "c:map00\m18p24.map" FOR OUTPUT AS #1
WRITE #1, t18tp(17), t18im(17), t18c1(17), t18c2(17), t18tp(18), t18im(18), t18c1(18), t18c2(18), t18tp(19), t18im(19), t18c1(19), t18c2(19), t18tp(20), t18im(20), t18c1(20), t18c2(20), t18tp(21), t18im(21), t18c1(21), t18c2(21), t18tp(22), t18im(22 _
), t18c1(22), t18c2(22), t17tp(23), t18im(23), t18c1(23), t18c2(23), t18tp(24), t18im(24), t18c1(24), t18c2(24)
CLOSE #1
OPEN "c:map00\m18p32.map" FOR OUTPUT AS #1
WRITE #1, t18tp(25), t18im(25), t18c1(25), t18c2(25), t18tp(26), t18im(26), t18c1(26), t18c2(26), t18tp(27), t18im(27), t18c1(27), t18c2(27), t18tp(28), t18im(28), t18c1(28), t18c2(28), t18tp(29), t18im(29), t18c1(29), t18c2(29), t18tp(30), t18im(30 _
), t18c1(30), t18c2(30), t17tp(31), t18im(31), t18c1(31), t18c2(31), t18tp(32), t18im(32), t18c1(32), t18c2(32)
CLOSE #1
OPEN "c:map00\m19p08.map" FOR OUTPUT AS #1
WRITE #1, t19tp(1), t19im(1), t19c1(1), t19c2(1), t19tp(2), t19im(2), t19c1(2), t19c2(2), t19tp(3), t19im(3), t19c1(3), t19c2(3), t19tp(4), t19im(4), t19c1(4), t19c2(4), t19tp(5), t19im(5), t19c1(5), t19c2(5), t19tp(6), t19im(6), t19c1(6), t19c2(6), _
 t19tp(7), t19im(7), t19c1(7), t19c2(7), t19tp(8), t19im(8), t19c1(8), t19c2(8)
CLOSE #1
OPEN "c:map00\m19p16.map" FOR OUTPUT AS #1
WRITE #1, t19tp(9), t19im(9), t19c1(9), t19c2(9), t19tp(10), t19im(10), t19c1(10), t19c2(10), t19tp(11), t19im(11), t19c1(11), t19c2(11), t19tp(12), t19im(12), t19c1(12), t19c2(12), t19tp(13), t19im(13), t19c1(13), t19c2(13), t19tp(14), t19im(14),  _
t19c1(14), t19c2(14), t17tp(15), t19im(15), t19c1(15), t19c2(15), t19tp(16), t19im(16), t19c1(16), t19c2(16)
CLOSE #1
OPEN "c:map00\m19p24.map" FOR OUTPUT AS #1
WRITE #1, t19tp(17), t19im(17), t19c1(17), t19c2(17), t19tp(18), t19im(18), t19c1(18), t19c2(18), t19tp(19), t19im(19), t19c1(19), t19c2(19), t19tp(20), t19im(20), t19c1(20), t19c2(20), t19tp(21), t19im(21), t19c1(21), t19c2(21), t19tp(22), t19im(22 _
), t19c1(22), t19c2(22), t17tp(23), t19im(23), t19c1(23), t19c2(23), t19tp(24), t19im(24), t19c1(24), t19c2(24)
CLOSE #1
OPEN "c:map00\m19p32.map" FOR OUTPUT AS #1
WRITE #1, t19tp(25), t19im(25), t19c1(25), t19c2(25), t19tp(26), t19im(26), t19c1(26), t19c2(26), t19tp(27), t19im(27), t19c1(27), t19c2(27), t19tp(28), t19im(28), t19c1(28), t19c2(28), t19tp(29), t19im(29), t19c1(29), t19c2(29), t19tp(30), t19im(30 _
), t19c1(30), t19c2(30), t17tp(31), t19im(31), t19c1(31), t19c2(31), t19tp(32), t19im(32), t19c1(32), t19c2(32)
CLOSE #1
OPEN "c:map00\m20p08.map" FOR OUTPUT AS #1
WRITE #1, t20tp(1), t20im(1), t20c1(1), t20c2(1), t20tp(2), t20im(2), t20c1(2), t20c2(2), t20tp(3), t20im(3), t20c1(3), t20c2(3), t20tp(4), t20im(4), t20c1(4), t20c2(4), t20tp(5), t20im(5), t20c1(5), t20c2(5), t20tp(6), t20im(6), t20c1(6), t20c2(6), _
 t20tp(7), t20im(7), t20c1(7), t20c2(7), t20tp(8), t20im(8), t20c1(8), t20c2(8)
CLOSE #1
OPEN "c:map00\m20p16.map" FOR OUTPUT AS #1
WRITE #1, t20tp(9), t20im(9), t20c1(9), t20c2(9), t20tp(10), t20im(10), t20c1(10), t20c2(10), t20tp(11), t20im(11), t20c1(11), t20c2(11), t20tp(12), t20im(12), t20c1(12), t20c2(12), t20tp(13), t20im(13), t20c1(13), t20c2(13), t20tp(14), t20im(14),  _
t20c1(14), t20c2(14), t17tp(15), t20im(15), t20c1(15), t20c2(15), t20tp(16), t20im(16), t20c1(16), t20c2(16)
CLOSE #1
OPEN "c:map00\m20p24.map" FOR OUTPUT AS #1
WRITE #1, t20tp(17), t20im(17), t20c1(17), t20c2(17), t20tp(18), t20im(18), t20c1(18), t20c2(18), t20tp(19), t20im(19), t20c1(19), t20c2(19), t20tp(20), t20im(20), t20c1(20), t20c2(20), t20tp(21), t20im(21), t20c1(21), t20c2(21), t20tp(22), t20im(22 _
), t20c1(22), t20c2(22), t17tp(23), t20im(23), t20c1(23), t20c2(23), t20tp(24), t20im(24), t20c1(24), t20c2(24)
CLOSE #1
OPEN "c:map00\m20p32.map" FOR OUTPUT AS #1
WRITE #1, t20tp(25), t20im(25), t20c1(25), t20c2(25), t20tp(26), t20im(26), t20c1(26), t20c2(26), t20tp(27), t20im(27), t20c1(27), t20c2(27), t20tp(28), t20im(28), t20c1(28), t20c2(28), t20tp(29), t20im(29), t20c1(29), t20c2(29), t20tp(30), t20im(30 _
), t20c1(30), t20c2(30), t17tp(31), t20im(31), t20c1(31), t20c2(31), t20tp(32), t20im(32), t20c1(32), t20c2(32)
CLOSE #1
OPEN "c:map00\m21p08.map" FOR OUTPUT AS #1
WRITE #1, t21tp(1), t21im(1), t21c1(1), t21c2(1), t21tp(2), t21im(2), t21c1(2), t21c2(2), t21tp(3), t21im(3), t21c1(3), t21c2(3), t21tp(4), t21im(4), t21c1(4), t21c2(4), t21tp(5), t21im(5), t21c1(5), t21c2(5), t21tp(6), t21im(6), t21c1(6), t21c2(6), _
 t21tp(7), t21im(7), t21c1(7), t21c2(7), t21tp(8), t21im(8), t21c1(8), t21c2(8)
CLOSE #1
OPEN "c:map00\m21p16.map" FOR OUTPUT AS #1
WRITE #1, t21tp(9), t21im(9), t21c1(9), t21c2(9), t21tp(10), t21im(10), t21c1(10), t21c2(10), t21tp(11), t21im(11), t21c1(11), t21c2(11), t21tp(12), t21im(12), t21c1(12), t21c2(12), t21tp(13), t21im(13), t21c1(13), t21c2(13), t21tp(14), t21im(14),  _
t21c1(14), t21c2(14), t17tp(15), t21im(15), t21c1(15), t21c2(15), t21tp(16), t21im(16), t21c1(16), t21c2(16)
CLOSE #1
OPEN "c:map00\m21p24.map" FOR OUTPUT AS #1
WRITE #1, t21tp(17), t21im(17), t21c1(17), t21c2(17), t21tp(18), t21im(18), t21c1(18), t21c2(18), t21tp(19), t21im(19), t21c1(19), t21c2(19), t21tp(20), t21im(20), t21c1(20), t21c2(20), t21tp(21), t21im(21), t21c1(21), t21c2(21), t21tp(22), t21im(22 _
), t21c1(22), t21c2(22), t17tp(23), t21im(23), t21c1(23), t21c2(23), t21tp(24), t21im(24), t21c1(24), t21c2(24)
CLOSE #1
OPEN "c:map00\m21p32.map" FOR OUTPUT AS #1
WRITE #1, t21tp(25), t21im(25), t21c1(25), t21c2(25), t21tp(26), t21im(26), t21c1(26), t21c2(26), t21tp(27), t21im(27), t21c1(27), t21c2(27), t21tp(28), t21im(28), t21c1(28), t21c2(28), t21tp(29), t21im(29), t21c1(29), t21c2(29), t21tp(30), t21im(30 _
), t21c1(30), t21c2(30), t17tp(31), t21im(31), t21c1(31), t21c2(31), t21tp(32), t21im(32), t21c1(32), t21c2(32)
CLOSE #1
OPEN "c:map00\m22p08.map" FOR OUTPUT AS #1
WRITE #1, t22tp(1), t22im(1), t22c1(1), t22c2(1), t22tp(2), t22im(2), t22c1(2), t22c2(2), t22tp(3), t22im(3), t22c1(3), t22c2(3), t22tp(4), t22im(4), t22c1(4), t22c2(4), t22tp(5), t22im(5), t22c1(5), t22c2(5), t22tp(6), t22im(6), t22c1(6), t22c2(6), _
 t22tp(7), t22im(7), t22c1(7), t22c2(7), t22tp(8), t22im(8), t22c1(8), t22c2(8)
CLOSE #1
OPEN "c:map00\m22p16.map" FOR OUTPUT AS #1
WRITE #1, t22tp(9), t22im(9), t22c1(9), t22c2(9), t22tp(10), t22im(10), t22c1(10), t22c2(10), t22tp(11), t22im(11), t22c1(11), t22c2(11), t22tp(12), t22im(12), t22c1(12), t22c2(12), t22tp(13), t22im(13), t22c1(13), t22c2(13), t22tp(14), t22im(14),  _
t22c1(14), t22c2(14), t17tp(15), t22im(15), t22c1(15), t22c2(15), t22tp(16), t22im(16), t22c1(16), t22c2(16)
CLOSE #1
OPEN "c:map00\m22p24.map" FOR OUTPUT AS #1
WRITE #1, t22tp(17), t22im(17), t22c1(17), t22c2(17), t22tp(18), t22im(18), t22c1(18), t22c2(18), t22tp(19), t22im(19), t22c1(19), t22c2(19), t22tp(20), t22im(20), t22c1(20), t22c2(20), t22tp(21), t22im(21), t22c1(21), t22c2(21), t22tp(22), t22im(22 _
), t22c1(22), t22c2(22), t17tp(23), t22im(23), t22c1(23), t22c2(23), t22tp(24), t22im(24), t22c1(24), t22c2(24)
CLOSE #1
OPEN "c:map00\m22p32.map" FOR OUTPUT AS #1
WRITE #1, t22tp(25), t22im(25), t22c1(25), t22c2(25), t22tp(26), t22im(26), t22c1(26), t22c2(26), t22tp(27), t22im(27), t22c1(27), t22c2(27), t22tp(28), t22im(28), t22c1(28), t22c2(28), t22tp(29), t22im(29), t22c1(29), t22c2(29), t22tp(30), t22im(30 _
), t22c1(30), t22c2(30), t17tp(31), t22im(31), t22c1(31), t22c2(31), t22tp(32), t22im(32), t22c1(32), t22c2(32)
CLOSE #1
OPEN "c:map00\m23p08.map" FOR OUTPUT AS #1
WRITE #1, t23tp(1), t23im(1), t23c1(1), t23c2(1), t23tp(2), t23im(2), t23c1(2), t23c2(2), t23tp(3), t23im(3), t23c1(3), t23c2(3), t23tp(4), t23im(4), t23c1(4), t23c2(4), t23tp(5), t23im(5), t23c1(5), t23c2(5), t23tp(6), t23im(6), t23c1(6), t23c2(6), _
 t23tp(7), t23im(7), t23c1(7), t23c2(7), t23tp(8), t23im(8), t23c1(8), t23c2(8)
CLOSE #1
OPEN "c:map00\m23p16.map" FOR OUTPUT AS #1
WRITE #1, t23tp(9), t23im(9), t23c1(9), t23c2(9), t23tp(10), t23im(10), t23c1(10), t23c2(10), t23tp(11), t23im(11), t23c1(11), t23c2(11), t23tp(12), t23im(12), t23c1(12), t23c2(12), t23tp(13), t23im(13), t23c1(13), t23c2(13), t23tp(14), t23im(14),  _
t23c1(14), t23c2(14), t17tp(15), t23im(15), t23c1(15), t23c2(15), t23tp(16), t23im(16), t23c1(16), t23c2(16)
CLOSE #1
OPEN "c:map00\m23p24.map" FOR OUTPUT AS #1
WRITE #1, t23tp(17), t23im(17), t23c1(17), t23c2(17), t23tp(18), t23im(18), t23c1(18), t23c2(18), t23tp(19), t23im(19), t23c1(19), t23c2(19), t23tp(20), t23im(20), t23c1(20), t23c2(20), t23tp(21), t23im(21), t23c1(21), t23c2(21), t23tp(22), t23im(22 _
), t23c1(22), t23c2(22), t17tp(23), t23im(23), t23c1(23), t23c2(23), t23tp(24), t23im(24), t23c1(24), t23c2(24)
CLOSE #1
OPEN "c:map00\m23p32.map" FOR OUTPUT AS #1
WRITE #1, t23tp(25), t23im(25), t23c1(25), t23c2(25), t23tp(26), t23im(26), t23c1(26), t23c2(26), t23tp(27), t23im(27), t23c1(27), t23c2(27), t23tp(28), t23im(28), t23c1(28), t23c2(28), t23tp(29), t23im(29), t23c1(29), t23c2(29), t23tp(30), t23im(30 _
), t23c1(30), t23c2(30), t17tp(31), t23im(31), t23c1(31), t23c2(31), t23tp(32), t23im(32), t23c1(32), t23c2(32)
CLOSE #1
OPEN "c:map00\m24p08.map" FOR OUTPUT AS #1
WRITE #1, t24tp(1), t24im(1), t24c1(1), t24c2(1), t24tp(2), t24im(2), t24c1(2), t24c2(2), t24tp(3), t24im(3), t24c1(3), t24c2(3), t24tp(4), t24im(4), t24c1(4), t24c2(4), t24tp(5), t24im(5), t24c1(5), t24c2(5), t24tp(6), t24im(6), t24c1(6), t24c2(6), _
 t24tp(7), t24im(7), t24c1(7), t24c2(7), t24tp(8), t24im(8), t24c1(8), t24c2(8)
CLOSE #1
OPEN "c:map00\m24p16.map" FOR OUTPUT AS #1
WRITE #1, t24tp(9), t24im(9), t24c1(9), t24c2(9), t24tp(10), t24im(10), t24c1(10), t24c2(10), t24tp(11), t24im(11), t24c1(11), t24c2(11), t24tp(12), t24im(12), t24c1(12), t24c2(12), t24tp(13), t24im(13), t24c1(13), t24c2(13), t24tp(14), t24im(14),  _
t24c1(14), t24c2(14), t17tp(15), t24im(15), t24c1(15), t24c2(15), t24tp(16), t24im(16), t24c1(16), t24c2(16)
CLOSE #1
OPEN "c:map00\m24p24.map" FOR OUTPUT AS #1
WRITE #1, t24tp(17), t24im(17), t24c1(17), t24c2(17), t24tp(18), t24im(18), t24c1(18), t24c2(18), t24tp(19), t24im(19), t24c1(19), t24c2(19), t24tp(20), t24im(20), t24c1(20), t24c2(20), t24tp(21), t24im(21), t24c1(21), t24c2(21), t24tp(22), t24im(22 _
), t24c1(22), t24c2(22), t17tp(23), t24im(23), t24c1(23), t24c2(23), t24tp(24), t24im(24), t24c1(24), t24c2(24)
CLOSE #1
OPEN "c:map00\m24p32.map" FOR OUTPUT AS #1
WRITE #1, t24tp(25), t24im(25), t24c1(25), t24c2(25), t24tp(26), t24im(26), t24c1(26), t24c2(26), t24tp(27), t24im(27), t24c1(27), t24c2(27), t24tp(28), t24im(28), t24c1(28), t24c2(28), t24tp(29), t24im(29), t24c1(29), t24c2(29), t24tp(30), t24im(30 _
), t24c1(30), t24c2(30), t17tp(31), t24im(31), t24c1(31), t24c2(31), t24tp(32), t24im(32), t24c1(32), t24c2(32)
CLOSE #1
OPEN "c:map00\m25p08.map" FOR OUTPUT AS #1
WRITE #1, t25tp(1), t25im(1), t25c1(1), t25c2(1), t25tp(2), t25im(2), t25c1(2), t25c2(2), t25tp(3), t25im(3), t25c1(3), t25c2(3), t25tp(4), t25im(4), t25c1(4), t25c2(4), t25tp(5), t25im(5), t25c1(5), t25c2(5), t25tp(6), t25im(6), t25c1(6), t25c2(6), _
 t25tp(7), t25im(7), t25c1(7), t25c2(7), t25tp(8), t25im(8), t25c1(8), t25c2(8)
CLOSE #1
OPEN "c:map00\m25p16.map" FOR OUTPUT AS #1
WRITE #1, t25tp(9), t25im(9), t25c1(9), t25c2(9), t25tp(10), t25im(10), t25c1(10), t25c2(10), t25tp(11), t25im(11), t25c1(11), t25c2(11), t25tp(12), t25im(12), t25c1(12), t25c2(12), t25tp(13), t25im(13), t25c1(13), t25c2(13), t25tp(14), t25im(14),  _
t25c1(14), t25c2(14), t17tp(15), t25im(15), t25c1(15), t25c2(15), t25tp(16), t25im(16), t25c1(16), t25c2(16)
CLOSE #1
OPEN "c:map00\m25p24.map" FOR OUTPUT AS #1
WRITE #1, t25tp(17), t25im(17), t25c1(17), t25c2(17), t25tp(18), t25im(18), t25c1(18), t25c2(18), t25tp(19), t25im(19), t25c1(19), t25c2(19), t25tp(20), t25im(20), t25c1(20), t25c2(20), t25tp(21), t25im(21), t25c1(21), t25c2(21), t25tp(22), t25im(22 _
), t25c1(22), t25c2(22), t17tp(23), t25im(23), t25c1(23), t25c2(23), t25tp(24), t25im(24), t25c1(24), t25c2(24)
CLOSE #1
OPEN "c:map00\m25p32.map" FOR OUTPUT AS #1
WRITE #1, t25tp(25), t25im(25), t25c1(25), t25c2(25), t25tp(26), t25im(26), t25c1(26), t25c2(26), t25tp(27), t25im(27), t25c1(27), t25c2(27), t25tp(28), t25im(28), t25c1(28), t25c2(28), t25tp(29), t25im(29), t25c1(29), t25c2(29), t25tp(30), t25im(30 _
), t25c1(30), t25c2(30), t17tp(31), t25im(31), t25c1(31), t25c2(31), t25tp(32), t25im(32), t25c1(32), t25c2(32)
CLOSE #1


END SUB

SUB save1
OPEN "c:map00\m26p08.map" FOR OUTPUT AS #1
WRITE #1, t26tp(1), t26im(1), t26c1(1), t26c2(1), t26tp(2), t26im(2), t26c1(2), t26c2(2), t26tp(3), t26im(3), t26c1(3), t26c2(3), t26tp(4), t26im(4), t26c1(4), t26c2(4), t26tp(5), t26im(5), t26c1(5), t26c2(5), t26tp(6), t26im(6), t26c1(6), t26c2(6), _
 t26tp(7), t26im(7), t26c1(7), t26c2(7), t26tp(8), t26im(8), t26c1(8), t26c2(8)
CLOSE #1
OPEN "c:map00\m26p16.map" FOR OUTPUT AS #1
WRITE #1, t26tp(9), t26im(9), t26c1(9), t26c2(9), t26tp(10), t26im(10), t26c1(10), t26c2(10), t26tp(11), t26im(11), t26c1(11), t26c2(11), t26tp(12), t26im(12), t26c1(12), t26c2(12), t26tp(13), t26im(13), t26c1(13), t26c2(13), t26tp(14), t26im(14),  _
t26c1(14), t26c2(14), t17tp(15), t26im(15), t26c1(15), t26c2(15), t26tp(16), t26im(16), t26c1(16), t26c2(16)
CLOSE #1
OPEN "c:map00\m26p24.map" FOR OUTPUT AS #1
WRITE #1, t26tp(17), t26im(17), t26c1(17), t26c2(17), t26tp(18), t26im(18), t26c1(18), t26c2(18), t26tp(19), t26im(19), t26c1(19), t26c2(19), t26tp(20), t26im(20), t26c1(20), t26c2(20), t26tp(21), t26im(21), t26c1(21), t26c2(21), t26tp(22), t26im(22 _
), t26c1(22), t26c2(22), t17tp(23), t26im(23), t26c1(23), t26c2(23), t26tp(24), t26im(24), t26c1(24), t26c2(24)
CLOSE #1
OPEN "c:map00\m26p32.map" FOR OUTPUT AS #1
WRITE #1, t26tp(25), t26im(25), t26c1(25), t26c2(25), t26tp(26), t26im(26), t26c1(26), t26c2(26), t26tp(27), t26im(27), t26c1(27), t26c2(27), t26tp(28), t26im(28), t26c1(28), t26c2(28), t26tp(29), t26im(29), t26c1(29), t26c2(29), t26tp(30), t26im(30 _
), t26c1(30), t26c2(30), t17tp(31), t26im(31), t26c1(31), t26c2(31), t26tp(32), t26im(32), t26c1(32), t26c2(32)
CLOSE #1
OPEN "c:map00\m27p08.map" FOR OUTPUT AS #1
WRITE #1, t27tp(1), t27im(1), t27c1(1), t27c2(1), t27tp(2), t27im(2), t27c1(2), t27c2(2), t27tp(3), t27im(3), t27c1(3), t27c2(3), t27tp(4), t27im(4), t27c1(4), t27c2(4), t27tp(5), t27im(5), t27c1(5), t27c2(5), t27tp(6), t27im(6), t27c1(6), t27c2(6), _
 t27tp(7), t27im(7), t27c1(7), t27c2(7), t27tp(8), t27im(8), t27c1(8), t27c2(8)
CLOSE #1
OPEN "c:map00\m27p16.map" FOR OUTPUT AS #1
WRITE #1, t27tp(9), t27im(9), t27c1(9), t27c2(9), t27tp(10), t27im(10), t27c1(10), t27c2(10), t27tp(11), t27im(11), t27c1(11), t27c2(11), t27tp(12), t27im(12), t27c1(12), t27c2(12), t27tp(13), t27im(13), t27c1(13), t27c2(13), t27tp(14), t27im(14),  _
t27c1(14), t27c2(14), t17tp(15), t27im(15), t27c1(15), t27c2(15), t27tp(16), t27im(16), t27c1(16), t27c2(16)
CLOSE #1
OPEN "c:map00\m27p24.map" FOR OUTPUT AS #1
WRITE #1, t27tp(17), t27im(17), t27c1(17), t27c2(17), t27tp(18), t27im(18), t27c1(18), t27c2(18), t27tp(19), t27im(19), t27c1(19), t27c2(19), t27tp(20), t27im(20), t27c1(20), t27c2(20), t27tp(21), t27im(21), t27c1(21), t27c2(21), t27tp(22), t27im(22 _
), t27c1(22), t27c2(22), t17tp(23), t27im(23), t27c1(23), t27c2(23), t27tp(24), t27im(24), t27c1(24), t27c2(24)
CLOSE #1
OPEN "c:map00\m27p32.map" FOR OUTPUT AS #1
WRITE #1, t27tp(25), t27im(25), t27c1(25), t27c2(25), t27tp(26), t27im(26), t27c1(26), t27c2(26), t27tp(27), t27im(27), t27c1(27), t27c2(27), t27tp(28), t27im(28), t27c1(28), t27c2(28), t27tp(29), t27im(29), t27c1(29), t27c2(29), t27tp(30), t27im(30 _
), t27c1(30), t27c2(30), t17tp(31), t27im(31), t27c1(31), t27c2(31), t27tp(32), t27im(32), t27c1(32), t27c2(32)
CLOSE #1
OPEN "c:map00\m28p08.map" FOR OUTPUT AS #1
WRITE #1, t28tp(1), t28im(1), t28c1(1), t28c2(1), t28tp(2), t28im(2), t28c1(2), t28c2(2), t28tp(3), t28im(3), t28c1(3), t28c2(3), t28tp(4), t28im(4), t28c1(4), t28c2(4), t28tp(5), t28im(5), t28c1(5), t28c2(5), t28tp(6), t28im(6), t28c1(6), t28c2(6), _
 t28tp(7), t28im(7), t28c1(7), t28c2(7), t28tp(8), t28im(8), t28c1(8), t28c2(8)
CLOSE #1
OPEN "c:map00\m28p16.map" FOR OUTPUT AS #1
WRITE #1, t28tp(9), t28im(9), t28c1(9), t28c2(9), t28tp(10), t28im(10), t28c1(10), t28c2(10), t28tp(11), t28im(11), t28c1(11), t28c2(11), t28tp(12), t28im(12), t28c1(12), t28c2(12), t28tp(13), t28im(13), t28c1(13), t28c2(13), t28tp(14), t28im(14),  _
t28c1(14), t28c2(14), t17tp(15), t28im(15), t28c1(15), t28c2(15), t28tp(16), t28im(16), t28c1(16), t28c2(16)
CLOSE #1
OPEN "c:map00\m28p24.map" FOR OUTPUT AS #1
WRITE #1, t28tp(17), t28im(17), t28c1(17), t28c2(17), t28tp(18), t28im(18), t28c1(18), t28c2(18), t28tp(19), t28im(19), t28c1(19), t28c2(19), t28tp(20), t28im(20), t28c1(20), t28c2(20), t28tp(21), t28im(21), t28c1(21), t28c2(21), t28tp(22), t28im(22 _
), t28c1(22), t28c2(22), t17tp(23), t28im(23), t28c1(23), t28c2(23), t28tp(24), t28im(24), t28c1(24), t28c2(24)
CLOSE #1
OPEN "c:map00\m28p32.map" FOR OUTPUT AS #1
WRITE #1, t28tp(25), t28im(25), t28c1(25), t28c2(25), t28tp(26), t28im(26), t28c1(26), t28c2(26), t28tp(27), t28im(27), t28c1(27), t28c2(27), t28tp(28), t28im(28), t28c1(28), t28c2(28), t28tp(29), t28im(29), t28c1(29), t28c2(29), t28tp(30), t28im(30 _
), t28c1(30), t28c2(30), t17tp(31), t28im(31), t28c1(31), t28c2(31), t28tp(32), t28im(32), t28c1(32), t28c2(32)
CLOSE #1
OPEN "c:map00\m29p08.map" FOR OUTPUT AS #1
WRITE #1, t29tp(1), t29im(1), t29c1(1), t29c2(1), t29tp(2), t29im(2), t29c1(2), t29c2(2), t29tp(3), t29im(3), t29c1(3), t29c2(3), t29tp(4), t29im(4), t29c1(4), t29c2(4), t29tp(5), t29im(5), t29c1(5), t29c2(5), t29tp(6), t29im(6), t29c1(6), t29c2(6), _
 t29tp(7), t29im(7), t29c1(7), t29c2(7), t29tp(8), t29im(8), t29c1(8), t29c2(8)
CLOSE #1
OPEN "c:map00\m29p16.map" FOR OUTPUT AS #1
WRITE #1, t29tp(9), t29im(9), t29c1(9), t29c2(9), t29tp(10), t29im(10), t29c1(10), t29c2(10), t29tp(11), t29im(11), t29c1(11), t29c2(11), t29tp(12), t29im(12), t29c1(12), t29c2(12), t29tp(13), t29im(13), t29c1(13), t29c2(13), t29tp(14), t29im(14),  _
t29c1(14), t29c2(14), t17tp(15), t29im(15), t29c1(15), t29c2(15), t29tp(16), t29im(16), t29c1(16), t29c2(16)
CLOSE #1
OPEN "c:map00\m29p24.map" FOR OUTPUT AS #1
WRITE #1, t29tp(17), t29im(17), t29c1(17), t29c2(17), t29tp(18), t29im(18), t29c1(18), t29c2(18), t29tp(19), t29im(19), t29c1(19), t29c2(19), t29tp(20), t29im(20), t29c1(20), t29c2(20), t29tp(21), t29im(21), t29c1(21), t29c2(21), t29tp(22), t29im(22 _
), t29c1(22), t29c2(22), t17tp(23), t29im(23), t29c1(23), t29c2(23), t29tp(24), t29im(24), t29c1(24), t29c2(24)
CLOSE #1
OPEN "c:map00\m29p32.map" FOR OUTPUT AS #1
WRITE #1, t29tp(25), t29im(25), t29c1(25), t29c2(25), t29tp(26), t29im(26), t29c1(26), t29c2(26), t29tp(27), t29im(27), t29c1(27), t29c2(27), t29tp(28), t29im(28), t29c1(28), t29c2(28), t29tp(29), t29im(29), t29c1(29), t29c2(29), t29tp(30), t29im(30 _
), t29c1(30), t29c2(30), t17tp(31), t29im(31), t29c1(31), t29c2(31), t29tp(32), t29im(32), t29c1(32), t29c2(32)
CLOSE #1
OPEN "c:map00\m30p08.map" FOR OUTPUT AS #1
WRITE #1, t30tp(1), t30im(1), t30c1(1), t30c2(1), t30tp(2), t30im(2), t30c1(2), t30c2(2), t30tp(3), t30im(3), t30c1(3), t30c2(3), t30tp(4), t30im(4), t30c1(4), t30c2(4), t30tp(5), t30im(5), t30c1(5), t30c2(5), t30tp(6), t30im(6), t30c1(6), t30c2(6), _
 t30tp(7), t30im(7), t30c1(7), t30c2(7), t30tp(8), t30im(8), t30c1(8), t30c2(8)
CLOSE #1
OPEN "c:map00\m30p16.map" FOR OUTPUT AS #1
WRITE #1, t30tp(9), t30im(9), t30c1(9), t30c2(9), t30tp(10), t30im(10), t30c1(10), t30c2(10), t30tp(11), t30im(11), t30c1(11), t30c2(11), t30tp(12), t30im(12), t30c1(12), t30c2(12), t30tp(13), t30im(13), t30c1(13), t30c2(13), t30tp(14), t30im(14),  _
t30c1(14), t30c2(14), t17tp(15), t30im(15), t30c1(15), t30c2(15), t30tp(16), t30im(16), t30c1(16), t30c2(16)
CLOSE #1
OPEN "c:map00\m30p24.map" FOR OUTPUT AS #1
WRITE #1, t30tp(17), t30im(17), t30c1(17), t30c2(17), t30tp(18), t30im(18), t30c1(18), t30c2(18), t30tp(19), t30im(19), t30c1(19), t30c2(19), t30tp(20), t30im(20), t30c1(20), t30c2(20), t30tp(21), t30im(21), t30c1(21), t30c2(21), t30tp(22), t30im(22 _
), t30c1(22), t30c2(22), t17tp(23), t30im(23), t30c1(23), t30c2(23), t30tp(24), t30im(24), t30c1(24), t30c2(24)
CLOSE #1
OPEN "c:map00\m30p32.map" FOR OUTPUT AS #1
WRITE #1, t30tp(25), t30im(25), t30c1(25), t30c2(25), t30tp(26), t30im(26), t30c1(26), t30c2(26), t30tp(27), t30im(27), t30c1(27), t30c2(27), t30tp(28), t30im(28), t30c1(28), t30c2(28), t30tp(29), t30im(29), t30c1(29), t30c2(29), t30tp(30), t30im(30 _
), t30c1(30), t30c2(30), t17tp(31), t30im(31), t30c1(31), t30c2(31), t30tp(32), t30im(32), t30c1(32), t30c2(32)
CLOSE #1
OPEN "c:map00\m31p08.map" FOR OUTPUT AS #1
WRITE #1, t31tp(1), t31im(1), t31c1(1), t31c2(1), t31tp(2), t31im(2), t31c1(2), t31c2(2), t31tp(3), t31im(3), t31c1(3), t31c2(3), t31tp(4), t31im(4), t31c1(4), t31c2(4), t31tp(5), t31im(5), t31c1(5), t31c2(5), t31tp(6), t31im(6), t31c1(6), t31c2(6), _
 t31tp(7), t31im(7), t31c1(7), t31c2(7), t31tp(8), t31im(8), t31c1(8), t31c2(8)
CLOSE #1
OPEN "c:map00\m31p16.map" FOR OUTPUT AS #1
WRITE #1, t31tp(9), t31im(9), t31c1(9), t31c2(9), t31tp(10), t31im(10), t31c1(10), t31c2(10), t31tp(11), t31im(11), t31c1(11), t31c2(11), t31tp(12), t31im(12), t31c1(12), t31c2(12), t31tp(13), t31im(13), t31c1(13), t31c2(13), t31tp(14), t31im(14),  _
t31c1(14), t31c2(14), t17tp(15), t31im(15), t31c1(15), t31c2(15), t31tp(16), t31im(16), t31c1(16), t31c2(16)
CLOSE #1
OPEN "c:map00\m31p24.map" FOR OUTPUT AS #1
WRITE #1, t31tp(17), t31im(17), t31c1(17), t31c2(17), t31tp(18), t31im(18), t31c1(18), t31c2(18), t31tp(19), t31im(19), t31c1(19), t31c2(19), t31tp(20), t31im(20), t31c1(20), t31c2(20), t31tp(21), t31im(21), t31c1(21), t31c2(21), t31tp(22), t31im(22 _
), t31c1(22), t31c2(22), t17tp(23), t31im(23), t31c1(23), t31c2(23), t31tp(24), t31im(24), t31c1(24), t31c2(24)
CLOSE #1
OPEN "c:map00\m31p32.map" FOR OUTPUT AS #1
WRITE #1, t31tp(25), t31im(25), t31c1(25), t31c2(25), t31tp(26), t31im(26), t31c1(26), t31c2(26), t31tp(27), t31im(27), t31c1(27), t31c2(27), t31tp(28), t31im(28), t31c1(28), t31c2(28), t31tp(29), t31im(29), t31c1(29), t31c2(29), t31tp(30), t31im(30 _
), t31c1(30), t31c2(30), t17tp(31), t31im(31), t31c1(31), t31c2(31), t31tp(32), t31im(32), t31c1(32), t31c2(32)
CLOSE #1
OPEN "c:map00\m32p08.map" FOR OUTPUT AS #1
WRITE #1, t32tp(1), t32im(1), t32c1(1), t32c2(1), t32tp(2), t32im(2), t32c1(2), t32c2(2), t32tp(3), t32im(3), t32c1(3), t32c2(3), t32tp(4), t32im(4), t32c1(4), t32c2(4), t32tp(5), t32im(5), t32c1(5), t32c2(5), t32tp(6), t32im(6), t32c1(6), t32c2(6), _
 t32tp(7), t32im(7), t32c1(7), t32c2(7), t32tp(8), t32im(8), t32c1(8), t32c2(8)
CLOSE #1
OPEN "c:map00\m32p16.map" FOR OUTPUT AS #1
WRITE #1, t32tp(9), t32im(9), t32c1(9), t32c2(9), t32tp(10), t32im(10), t32c1(10), t32c2(10), t32tp(11), t32im(11), t32c1(11), t32c2(11), t32tp(12), t32im(12), t32c1(12), t32c2(12), t32tp(13), t32im(13), t32c1(13), t32c2(13), t32tp(14), t32im(14),  _
t32c1(14), t32c2(14), t17tp(15), t32im(15), t32c1(15), t32c2(15), t32tp(16), t32im(16), t32c1(16), t32c2(16)
CLOSE #1
OPEN "c:map00\m32p24.map" FOR OUTPUT AS #1
WRITE #1, t32tp(17), t32im(17), t32c1(17), t32c2(17), t32tp(18), t32im(18), t32c1(18), t32c2(18), t32tp(19), t32im(19), t32c1(19), t32c2(19), t32tp(20), t32im(20), t32c1(20), t32c2(20), t32tp(21), t32im(21), t32c1(21), t32c2(21), t32tp(22), t32im(22 _
), t32c1(22), t32c2(22), t17tp(23), t32im(23), t32c1(23), t32c2(23), t32tp(24), t32im(24), t32c1(24), t32c2(24)
CLOSE #1
OPEN "c:map00\m32p32.map" FOR OUTPUT AS #1
WRITE #1, t32tp(25), t32im(25), t32c1(25), t32c2(25), t32tp(26), t32im(26), t32c1(26), t32c2(26), t32tp(27), t32im(27), t32c1(27), t32c2(27), t32tp(28), t32im(28), t32c1(28), t32c2(28), t32tp(29), t32im(29), t32c1(29), t32c2(29), t32tp(30), t32im(30 _
), t32c1(30), t32c2(30), t17tp(31), t32im(31), t32c1(31), t32c2(31), t32tp(32), t32im(32), t32c1(32), t32c2(32)
CLOSE #1
OPEN "c:map00\m33p08.map" FOR OUTPUT AS #1
WRITE #1, t33tp(1), t33im(1), t33c1(1), t33c2(1), t33tp(2), t33im(2), t33c1(2), t33c2(2), t33tp(3), t33im(3), t33c1(3), t33c2(3), t33tp(4), t33im(4), t33c1(4), t33c2(4), t33tp(5), t33im(5), t33c1(5), t33c2(5), t33tp(6), t33im(6), t33c1(6), t33c2(6), _
 t33tp(7), t33im(7), t33c1(7), t33c2(7), t33tp(8), t33im(8), t33c1(8), t33c2(8)
CLOSE #1
OPEN "c:map00\m33p16.map" FOR OUTPUT AS #1
WRITE #1, t33tp(9), t33im(9), t33c1(9), t33c2(9), t33tp(10), t33im(10), t33c1(10), t33c2(10), t33tp(11), t33im(11), t33c1(11), t33c2(11), t33tp(12), t33im(12), t33c1(12), t33c2(12), t33tp(13), t33im(13), t33c1(13), t33c2(13), t33tp(14), t33im(14),  _
t33c1(14), t33c2(14), t17tp(15), t33im(15), t33c1(15), t33c2(15), t33tp(16), t33im(16), t33c1(16), t33c2(16)
CLOSE #1
OPEN "c:map00\m33p24.map" FOR OUTPUT AS #1
WRITE #1, t33tp(17), t33im(17), t33c1(17), t33c2(17), t33tp(18), t33im(18), t33c1(18), t33c2(18), t33tp(19), t33im(19), t33c1(19), t33c2(19), t33tp(20), t33im(20), t33c1(20), t33c2(20), t33tp(21), t33im(21), t33c1(21), t33c2(21), t33tp(22), t33im(22 _
), t33c1(22), t33c2(22), t17tp(23), t33im(23), t33c1(23), t33c2(23), t33tp(24), t33im(24), t33c1(24), t33c2(24)
CLOSE #1
OPEN "c:map00\m33p32.map" FOR OUTPUT AS #1
WRITE #1, t33tp(25), t33im(25), t33c1(25), t33c2(25), t33tp(26), t33im(26), t33c1(26), t33c2(26), t33tp(27), t33im(27), t33c1(27), t33c2(27), t33tp(28), t33im(28), t33c1(28), t33c2(28), t33tp(29), t33im(29), t33c1(29), t33c2(29), t33tp(30), t33im(30 _
), t33c1(30), t33c2(30), t17tp(31), t33im(31), t33c1(31), t33c2(31), t33tp(32), t33im(32), t33c1(32), t33c2(32)
CLOSE #1
OPEN "c:map00\m34p08.map" FOR OUTPUT AS #1
WRITE #1, t34tp(1), t34im(1), t34c1(1), t34c2(1), t34tp(2), t34im(2), t34c1(2), t34c2(2), t34tp(3), t34im(3), t34c1(3), t34c2(3), t34tp(4), t34im(4), t34c1(4), t34c2(4), t34tp(5), t34im(5), t34c1(5), t34c2(5), t34tp(6), t34im(6), t34c1(6), t34c2(6), _
 t34tp(7), t34im(7), t34c1(7), t34c2(7), t34tp(8), t34im(8), t34c1(8), t34c2(8)
CLOSE #1
OPEN "c:map00\m34p16.map" FOR OUTPUT AS #1
WRITE #1, t34tp(9), t34im(9), t34c1(9), t34c2(9), t34tp(10), t34im(10), t34c1(10), t34c2(10), t34tp(11), t34im(11), t34c1(11), t34c2(11), t34tp(12), t34im(12), t34c1(12), t34c2(12), t34tp(13), t34im(13), t34c1(13), t34c2(13), t34tp(14), t34im(14),  _
t34c1(14), t34c2(14), t17tp(15), t34im(15), t34c1(15), t34c2(15), t34tp(16), t34im(16), t34c1(16), t34c2(16)
CLOSE #1
OPEN "c:map00\m34p24.map" FOR OUTPUT AS #1
WRITE #1, t34tp(17), t34im(17), t34c1(17), t34c2(17), t34tp(18), t34im(18), t34c1(18), t34c2(18), t34tp(19), t34im(19), t34c1(19), t34c2(19), t34tp(20), t34im(20), t34c1(20), t34c2(20), t34tp(21), t34im(21), t34c1(21), t34c2(21), t34tp(22), t34im(22 _
), t34c1(22), t34c2(22), t17tp(23), t34im(23), t34c1(23), t34c2(23), t34tp(24), t34im(24), t34c1(24), t34c2(24)
CLOSE #1
OPEN "c:map00\m34p32.map" FOR OUTPUT AS #1
WRITE #1, t34tp(25), t34im(25), t34c1(25), t34c2(25), t34tp(26), t34im(26), t34c1(26), t34c2(26), t34tp(27), t34im(27), t34c1(27), t34c2(27), t34tp(28), t34im(28), t34c1(28), t34c2(28), t34tp(29), t34im(29), t34c1(29), t34c2(29), t34tp(30), t34im(30 _
), t34c1(30), t34c2(30), t17tp(31), t34im(31), t34c1(31), t34c2(31), t34tp(32), t34im(32), t34c1(32), t34c2(32)
CLOSE #1
OPEN "c:map00\m35p08.map" FOR OUTPUT AS #1
WRITE #1, t35tp(1), t35im(1), t35c1(1), t35c2(1), t35tp(2), t35im(2), t35c1(2), t35c2(2), t35tp(3), t35im(3), t35c1(3), t35c2(3), t35tp(4), t35im(4), t35c1(4), t35c2(4), t35tp(5), t35im(5), t35c1(5), t35c2(5), t35tp(6), t35im(6), t35c1(6), t35c2(6), _
 t35tp(7), t35im(7), t35c1(7), t35c2(7), t35tp(8), t35im(8), t35c1(8), t35c2(8)
CLOSE #1
OPEN "c:map00\m35p16.map" FOR OUTPUT AS #1
WRITE #1, t35tp(9), t35im(9), t35c1(9), t35c2(9), t35tp(10), t35im(10), t35c1(10), t35c2(10), t35tp(11), t35im(11), t35c1(11), t35c2(11), t35tp(12), t35im(12), t35c1(12), t35c2(12), t35tp(13), t35im(13), t35c1(13), t35c2(13), t35tp(14), t35im(14),  _
t35c1(14), t35c2(14), t17tp(15), t35im(15), t35c1(15), t35c2(15), t35tp(16), t35im(16), t35c1(16), t35c2(16)
CLOSE #1
OPEN "c:map00\m35p24.map" FOR OUTPUT AS #1
WRITE #1, t35tp(17), t35im(17), t35c1(17), t35c2(17), t35tp(18), t35im(18), t35c1(18), t35c2(18), t35tp(19), t35im(19), t35c1(19), t35c2(19), t35tp(20), t35im(20), t35c1(20), t35c2(20), t35tp(21), t35im(21), t35c1(21), t35c2(21), t35tp(22), t35im(22 _
), t35c1(22), t35c2(22), t17tp(23), t35im(23), t35c1(23), t35c2(23), t35tp(24), t35im(24), t35c1(24), t35c2(24)
CLOSE #1
OPEN "c:map00\m35p32.map" FOR OUTPUT AS #1
WRITE #1, t35tp(25), t35im(25), t35c1(25), t35c2(25), t35tp(26), t35im(26), t35c1(26), t35c2(26), t35tp(27), t35im(27), t35c1(27), t35c2(27), t35tp(28), t35im(28), t35c1(28), t35c2(28), t35tp(29), t35im(29), t35c1(29), t35c2(29), t35tp(30), t35im(30 _
), t35c1(30), t35c2(30), t17tp(31), t35im(31), t35c1(31), t35c2(31), t35tp(32), t35im(32), t35c1(32), t35c2(32)
CLOSE #1
OPEN "c:map00\m36p08.map" FOR OUTPUT AS #1
WRITE #1, t36tp(1), t36im(1), t36c1(1), t36c2(1), t36tp(2), t36im(2), t36c1(2), t36c2(2), t36tp(3), t36im(3), t36c1(3), t36c2(3), t36tp(4), t36im(4), t36c1(4), t36c2(4), t36tp(5), t36im(5), t36c1(5), t36c2(5), t36tp(6), t36im(6), t36c1(6), t36c2(6), _
 t36tp(7), t36im(7), t36c1(7), t36c2(7), t36tp(8), t36im(8), t36c1(8), t36c2(8)
CLOSE #1
OPEN "c:map00\m36p16.map" FOR OUTPUT AS #1
WRITE #1, t36tp(9), t36im(9), t36c1(9), t36c2(9), t36tp(10), t36im(10), t36c1(10), t36c2(10), t36tp(11), t36im(11), t36c1(11), t36c2(11), t36tp(12), t36im(12), t36c1(12), t36c2(12), t36tp(13), t36im(13), t36c1(13), t36c2(13), t36tp(14), t36im(14),  _
t36c1(14), t36c2(14), t17tp(15), t36im(15), t36c1(15), t36c2(15), t36tp(16), t36im(16), t36c1(16), t36c2(16)
CLOSE #1
OPEN "c:map00\m36p24.map" FOR OUTPUT AS #1
WRITE #1, t36tp(17), t36im(17), t36c1(17), t36c2(17), t36tp(18), t36im(18), t36c1(18), t36c2(18), t36tp(19), t36im(19), t36c1(19), t36c2(19), t36tp(20), t36im(20), t36c1(20), t36c2(20), t36tp(21), t36im(21), t36c1(21), t36c2(21), t36tp(22), t36im(22 _
), t36c1(22), t36c2(22), t17tp(23), t36im(23), t36c1(23), t36c2(23), t36tp(24), t36im(24), t36c1(24), t36c2(24)
CLOSE #1
OPEN "c:map00\m36p32.map" FOR OUTPUT AS #1
WRITE #1, t36tp(25), t36im(25), t36c1(25), t36c2(25), t36tp(26), t36im(26), t36c1(26), t36c2(26), t36tp(27), t36im(27), t36c1(27), t36c2(27), t36tp(28), t36im(28), t36c1(28), t36c2(28), t36tp(29), t36im(29), t36c1(29), t36c2(29), t36tp(30), t36im(30 _
), t36c1(30), t36c2(30), t17tp(31), t36im(31), t36c1(31), t36c2(31), t36tp(32), t36im(32), t36c1(32), t36c2(32)
CLOSE #1
OPEN "c:map00\m37p08.map" FOR OUTPUT AS #1
WRITE #1, t37tp(1), t37im(1), t37c1(1), t37c2(1), t37tp(2), t37im(2), t37c1(2), t37c2(2), t37tp(3), t37im(3), t37c1(3), t37c2(3), t37tp(4), t37im(4), t37c1(4), t37c2(4), t37tp(5), t37im(5), t37c1(5), t37c2(5), t37tp(6), t37im(6), t37c1(6), t37c2(6), _
 t37tp(7), t37im(7), t37c1(7), t37c2(7), t37tp(8), t37im(8), t37c1(8), t37c2(8)
CLOSE #1
OPEN "c:map00\m37p16.map" FOR OUTPUT AS #1
WRITE #1, t37tp(9), t37im(9), t37c1(9), t37c2(9), t37tp(10), t37im(10), t37c1(10), t37c2(10), t37tp(11), t37im(11), t37c1(11), t37c2(11), t37tp(12), t37im(12), t37c1(12), t37c2(12), t37tp(13), t37im(13), t37c1(13), t37c2(13), t37tp(14), t37im(14),  _
t37c1(14), t37c2(14), t17tp(15), t37im(15), t37c1(15), t37c2(15), t37tp(16), t37im(16), t37c1(16), t37c2(16)
CLOSE #1
OPEN "c:map00\m37p24.map" FOR OUTPUT AS #1
WRITE #1, t37tp(17), t37im(17), t37c1(17), t37c2(17), t37tp(18), t37im(18), t37c1(18), t37c2(18), t37tp(19), t37im(19), t37c1(19), t37c2(19), t37tp(20), t37im(20), t37c1(20), t37c2(20), t37tp(21), t37im(21), t37c1(21), t37c2(21), t37tp(22), t37im(22 _
), t37c1(22), t37c2(22), t17tp(23), t37im(23), t37c1(23), t37c2(23), t37tp(24), t37im(24), t37c1(24), t37c2(24)
CLOSE #1
OPEN "c:map00\m37p32.map" FOR OUTPUT AS #1
WRITE #1, t37tp(25), t37im(25), t37c1(25), t37c2(25), t37tp(26), t37im(26), t37c1(26), t37c2(26), t37tp(27), t37im(27), t37c1(27), t37c2(27), t37tp(28), t37im(28), t37c1(28), t37c2(28), t37tp(29), t37im(29), t37c1(29), t37c2(29), t37tp(30), t37im(30 _
), t37c1(30), t37c2(30), t17tp(31), t37im(31), t37c1(31), t37c2(31), t37tp(32), t37im(32), t37c1(32), t37c2(32)
CLOSE #1
OPEN "c:map00\m38p08.map" FOR OUTPUT AS #1
WRITE #1, t38tp(1), t38im(1), t38c1(1), t38c2(1), t38tp(2), t38im(2), t38c1(2), t38c2(2), t38tp(3), t38im(3), t38c1(3), t38c2(3), t38tp(4), t38im(4), t38c1(4), t38c2(4), t38tp(5), t38im(5), t38c1(5), t38c2(5), t38tp(6), t38im(6), t38c1(6), t38c2(6), _
 t38tp(7), t38im(7), t38c1(7), t38c2(7), t38tp(8), t38im(8), t38c1(8), t38c2(8)
CLOSE #1
OPEN "c:map00\m38p16.map" FOR OUTPUT AS #1
WRITE #1, t38tp(9), t38im(9), t38c1(9), t38c2(9), t38tp(10), t38im(10), t38c1(10), t38c2(10), t38tp(11), t38im(11), t38c1(11), t38c2(11), t38tp(12), t38im(12), t38c1(12), t38c2(12), t38tp(13), t38im(13), t38c1(13), t38c2(13), t38tp(14), t38im(14),  _
t38c1(14), t38c2(14), t17tp(15), t38im(15), t38c1(15), t38c2(15), t38tp(16), t38im(16), t38c1(16), t38c2(16)
CLOSE #1
OPEN "c:map00\m38p24.map" FOR OUTPUT AS #1
WRITE #1, t38tp(17), t38im(17), t38c1(17), t38c2(17), t38tp(18), t38im(18), t38c1(18), t38c2(18), t38tp(19), t38im(19), t38c1(19), t38c2(19), t38tp(20), t38im(20), t38c1(20), t38c2(20), t38tp(21), t38im(21), t38c1(21), t38c2(21), t38tp(22), t38im(22 _
), t38c1(22), t38c2(22), t17tp(23), t38im(23), t38c1(23), t38c2(23), t38tp(24), t38im(24), t38c1(24), t38c2(24)
CLOSE #1
OPEN "c:map00\m38p32.map" FOR OUTPUT AS #1
WRITE #1, t38tp(25), t38im(25), t38c1(25), t38c2(25), t38tp(26), t38im(26), t38c1(26), t38c2(26), t38tp(27), t38im(27), t38c1(27), t38c2(27), t38tp(28), t38im(28), t38c1(28), t38c2(28), t38tp(29), t38im(29), t38c1(29), t38c2(29), t38tp(30), t38im(30 _
), t38c1(30), t38c2(30), t17tp(31), t38im(31), t38c1(31), t38c2(31), t38tp(32), t38im(32), t38c1(32), t38c2(32)
CLOSE #1
OPEN "c:map00\m39p08.map" FOR OUTPUT AS #1
WRITE #1, t39tp(1), t39im(1), t39c1(1), t39c2(1), t39tp(2), t39im(2), t39c1(2), t39c2(2), t39tp(3), t39im(3), t39c1(3), t39c2(3), t39tp(4), t39im(4), t39c1(4), t39c2(4), t39tp(5), t39im(5), t39c1(5), t39c2(5), t39tp(6), t39im(6), t39c1(6), t39c2(6), _
 t39tp(7), t39im(7), t39c1(7), t39c2(7), t39tp(8), t39im(8), t39c1(8), t39c2(8)
CLOSE #1
OPEN "c:map00\m39p16.map" FOR OUTPUT AS #1
WRITE #1, t39tp(9), t39im(9), t39c1(9), t39c2(9), t39tp(10), t39im(10), t39c1(10), t39c2(10), t39tp(11), t39im(11), t39c1(11), t39c2(11), t39tp(12), t39im(12), t39c1(12), t39c2(12), t39tp(13), t39im(13), t39c1(13), t39c2(13), t39tp(14), t39im(14),  _
t39c1(14), t39c2(14), t17tp(15), t39im(15), t39c1(15), t39c2(15), t39tp(16), t39im(16), t39c1(16), t39c2(16)
CLOSE #1
OPEN "c:map00\m39p24.map" FOR OUTPUT AS #1
WRITE #1, t39tp(17), t39im(17), t39c1(17), t39c2(17), t39tp(18), t39im(18), t39c1(18), t39c2(18), t39tp(19), t39im(19), t39c1(19), t39c2(19), t39tp(20), t39im(20), t39c1(20), t39c2(20), t39tp(21), t39im(21), t39c1(21), t39c2(21), t39tp(22), t39im(22 _
), t39c1(22), t39c2(22), t17tp(23), t39im(23), t39c1(23), t39c2(23), t39tp(24), t39im(24), t39c1(24), t39c2(24)
CLOSE #1
OPEN "c:map00\m39p32.map" FOR OUTPUT AS #1
WRITE #1, t39tp(25), t39im(25), t39c1(25), t39c2(25), t39tp(26), t39im(26), t39c1(26), t39c2(26), t39tp(27), t39im(27), t39c1(27), t39c2(27), t39tp(28), t39im(28), t39c1(28), t39c2(28), t39tp(29), t39im(29), t39c1(29), t39c2(29), t39tp(30), t39im(30 _
), t39c1(30), t39c2(30), t17tp(31), t39im(31), t39c1(31), t39c2(31), t39tp(32), t39im(32), t39c1(32), t39c2(32)
CLOSE #1
OPEN "c:map00\m40p08.map" FOR OUTPUT AS #1
WRITE #1, t40tp(1), t40im(1), t40c1(1), t40c2(1), t40tp(2), t40im(2), t40c1(2), t40c2(2), t40tp(3), t40im(3), t40c1(3), t40c2(3), t40tp(4), t40im(4), t40c1(4), t40c2(4), t40tp(5), t40im(5), t40c1(5), t40c2(5), t40tp(6), t40im(6), t40c1(6), t40c2(6), _
 t40tp(7), t40im(7), t40c1(7), t40c2(7), t40tp(8), t40im(8), t40c1(8), t40c2(8)
CLOSE #1
OPEN "c:map00\m40p16.map" FOR OUTPUT AS #1
WRITE #1, t40tp(9), t40im(9), t40c1(9), t40c2(9), t40tp(10), t40im(10), t40c1(10), t40c2(10), t40tp(11), t40im(11), t40c1(11), t40c2(11), t40tp(12), t40im(12), t40c1(12), t40c2(12), t40tp(13), t40im(13), t40c1(13), t40c2(13), t40tp(14), t40im(14),  _
t40c1(14), t40c2(14), t17tp(15), t40im(15), t40c1(15), t40c2(15), t40tp(16), t40im(16), t40c1(16), t40c2(16)
CLOSE #1
OPEN "c:map00\m40p24.map" FOR OUTPUT AS #1
WRITE #1, t40tp(17), t40im(17), t40c1(17), t40c2(17), t40tp(18), t40im(18), t40c1(18), t40c2(18), t40tp(19), t40im(19), t40c1(19), t40c2(19), t40tp(20), t40im(20), t40c1(20), t40c2(20), t40tp(21), t40im(21), t40c1(21), t40c2(21), t40tp(22), t40im(22 _
), t40c1(22), t40c2(22), t17tp(23), t40im(23), t40c1(23), t40c2(23), t40tp(24), t40im(24), t40c1(24), t40c2(24)
CLOSE #1
OPEN "c:map00\m40p32.map" FOR OUTPUT AS #1
WRITE #1, t40tp(25), t40im(25), t40c1(25), t40c2(25), t40tp(26), t40im(26), t40c1(26), t40c2(26), t40tp(27), t40im(27), t40c1(27), t40c2(27), t40tp(28), t40im(28), t40c1(28), t40c2(28), t40tp(29), t40im(29), t40c1(29), t40c2(29), t40tp(30), t40im(30 _
), t40c1(30), t40c2(30), t17tp(31), t40im(31), t40c1(31), t40c2(31), t40tp(32), t40im(32), t40c1(32), t40c2(32)
CLOSE #1
OPEN "c:map00\m41p08.map" FOR OUTPUT AS #1
WRITE #1, t41tp(1), t41im(1), t41c1(1), t41c2(1), t41tp(2), t41im(2), t41c1(2), t41c2(2), t41tp(3), t41im(3), t41c1(3), t41c2(3), t41tp(4), t41im(4), t41c1(4), t41c2(4), t41tp(5), t41im(5), t41c1(5), t41c2(5), t41tp(6), t41im(6), t41c1(6), t41c2(6), _
 t41tp(7), t41im(7), t41c1(7), t41c2(7), t41tp(8), t41im(8), t41c1(8), t41c2(8)
CLOSE #1
OPEN "c:map00\m41p16.map" FOR OUTPUT AS #1
WRITE #1, t41tp(9), t41im(9), t41c1(9), t41c2(9), t41tp(10), t41im(10), t41c1(10), t41c2(10), t41tp(11), t41im(11), t41c1(11), t41c2(11), t41tp(12), t41im(12), t41c1(12), t41c2(12), t41tp(13), t41im(13), t41c1(13), t41c2(13), t41tp(14), t41im(14),  _
t41c1(14), t41c2(14), t17tp(15), t41im(15), t41c1(15), t41c2(15), t41tp(16), t41im(16), t41c1(16), t41c2(16)
CLOSE #1
OPEN "c:map00\m41p24.map" FOR OUTPUT AS #1
WRITE #1, t41tp(17), t41im(17), t41c1(17), t41c2(17), t41tp(18), t41im(18), t41c1(18), t41c2(18), t41tp(19), t41im(19), t41c1(19), t41c2(19), t41tp(20), t41im(20), t41c1(20), t41c2(20), t41tp(21), t41im(21), t41c1(21), t41c2(21), t41tp(22), t41im(22 _
), t41c1(22), t41c2(22), t17tp(23), t41im(23), t41c1(23), t41c2(23), t41tp(24), t41im(24), t41c1(24), t41c2(24)
CLOSE #1
OPEN "c:map00\m41p32.map" FOR OUTPUT AS #1
WRITE #1, t41tp(25), t41im(25), t41c1(25), t41c2(25), t41tp(26), t41im(26), t41c1(26), t41c2(26), t41tp(27), t41im(27), t41c1(27), t41c2(27), t41tp(28), t41im(28), t41c1(28), t41c2(28), t41tp(29), t41im(29), t41c1(29), t41c2(29), t41tp(30), t41im(30 _
), t41c1(30), t41c2(30), t17tp(31), t41im(31), t41c1(31), t41c2(31), t41tp(32), t41im(32), t41c1(32), t41c2(32)
CLOSE #1
OPEN "c:map00\m42p08.map" FOR OUTPUT AS #1
WRITE #1, t42tp(1), t42im(1), t42c1(1), t42c2(1), t42tp(2), t42im(2), t42c1(2), t42c2(2), t42tp(3), t42im(3), t42c1(3), t42c2(3), t42tp(4), t42im(4), t42c1(4), t42c2(4), t42tp(5), t42im(5), t42c1(5), t42c2(5), t42tp(6), t42im(6), t42c1(6), t42c2(6), _
 t42tp(7), t42im(7), t42c1(7), t42c2(7), t42tp(8), t42im(8), t42c1(8), t42c2(8)
CLOSE #1
OPEN "c:map00\m42p16.map" FOR OUTPUT AS #1
WRITE #1, t42tp(9), t42im(9), t42c1(9), t42c2(9), t42tp(10), t42im(10), t42c1(10), t42c2(10), t42tp(11), t42im(11), t42c1(11), t42c2(11), t42tp(12), t42im(12), t42c1(12), t42c2(12), t42tp(13), t42im(13), t42c1(13), t42c2(13), t42tp(14), t42im(14),  _
t42c1(14), t42c2(14), t17tp(15), t42im(15), t42c1(15), t42c2(15), t42tp(16), t42im(16), t42c1(16), t42c2(16)
CLOSE #1
OPEN "c:map00\m42p24.map" FOR OUTPUT AS #1
WRITE #1, t42tp(17), t42im(17), t42c1(17), t42c2(17), t42tp(18), t42im(18), t42c1(18), t42c2(18), t42tp(19), t42im(19), t42c1(19), t42c2(19), t42tp(20), t42im(20), t42c1(20), t42c2(20), t42tp(21), t42im(21), t42c1(21), t42c2(21), t42tp(22), t42im(22 _
), t42c1(22), t42c2(22), t17tp(23), t42im(23), t42c1(23), t42c2(23), t42tp(24), t42im(24), t42c1(24), t42c2(24)
CLOSE #1
OPEN "c:map00\m42p32.map" FOR OUTPUT AS #1
WRITE #1, t42tp(25), t42im(25), t42c1(25), t42c2(25), t42tp(26), t42im(26), t42c1(26), t42c2(26), t42tp(27), t42im(27), t42c1(27), t42c2(27), t42tp(28), t42im(28), t42c1(28), t42c2(28), t42tp(29), t42im(29), t42c1(29), t42c2(29), t42tp(30), t42im(30 _
), t42c1(30), t42c2(30), t17tp(31), t42im(31), t42c1(31), t42c2(31), t42tp(32), t42im(32), t42c1(32), t42c2(32)
CLOSE #1
OPEN "c:map00\m43p08.map" FOR OUTPUT AS #1
WRITE #1, t43tp(1), t43im(1), t43c1(1), t43c2(1), t43tp(2), t43im(2), t43c1(2), t43c2(2), t43tp(3), t43im(3), t43c1(3), t43c2(3), t43tp(4), t43im(4), t43c1(4), t43c2(4), t43tp(5), t43im(5), t43c1(5), t43c2(5), t43tp(6), t43im(6), t43c1(6), t43c2(6), _
 t43tp(7), t43im(7), t43c1(7), t43c2(7), t43tp(8), t43im(8), t43c1(8), t43c2(8)
CLOSE #1
OPEN "c:map00\m43p16.map" FOR OUTPUT AS #1
WRITE #1, t43tp(9), t43im(9), t43c1(9), t43c2(9), t43tp(10), t43im(10), t43c1(10), t43c2(10), t43tp(11), t43im(11), t43c1(11), t43c2(11), t43tp(12), t43im(12), t43c1(12), t43c2(12), t43tp(13), t43im(13), t43c1(13), t43c2(13), t43tp(14), t43im(14),  _
t43c1(14), t43c2(14), t17tp(15), t43im(15), t43c1(15), t43c2(15), t43tp(16), t43im(16), t43c1(16), t43c2(16)
CLOSE #1
OPEN "c:map00\m43p24.map" FOR OUTPUT AS #1
WRITE #1, t43tp(17), t43im(17), t43c1(17), t43c2(17), t43tp(18), t43im(18), t43c1(18), t43c2(18), t43tp(19), t43im(19), t43c1(19), t43c2(19), t43tp(20), t43im(20), t43c1(20), t43c2(20), t43tp(21), t43im(21), t43c1(21), t43c2(21), t43tp(22), t43im(22 _
), t43c1(22), t43c2(22), t17tp(23), t43im(23), t43c1(23), t43c2(23), t43tp(24), t43im(24), t43c1(24), t43c2(24)
CLOSE #1
OPEN "c:map00\m43p32.map" FOR OUTPUT AS #1
WRITE #1, t43tp(25), t43im(25), t43c1(25), t43c2(25), t43tp(26), t43im(26), t43c1(26), t43c2(26), t43tp(27), t43im(27), t43c1(27), t43c2(27), t43tp(28), t43im(28), t43c1(28), t43c2(28), t43tp(29), t43im(29), t43c1(29), t43c2(29), t43tp(30), t43im(30 _
), t43c1(30), t43c2(30), t17tp(31), t43im(31), t43c1(31), t43c2(31), t43tp(32), t43im(32), t43c1(32), t43c2(32)
CLOSE #1
OPEN "c:map00\m44p08.map" FOR OUTPUT AS #1
WRITE #1, t44tp(1), t44im(1), t44c1(1), t44c2(1), t44tp(2), t44im(2), t44c1(2), t44c2(2), t44tp(3), t44im(3), t44c1(3), t44c2(3), t44tp(4), t44im(4), t44c1(4), t44c2(4), t44tp(5), t44im(5), t44c1(5), t44c2(5), t44tp(6), t44im(6), t44c1(6), t44c2(6), _
 t44tp(7), t44im(7), t44c1(7), t44c2(7), t44tp(8), t44im(8), t44c1(8), t44c2(8)
CLOSE #1
OPEN "c:map00\m44p16.map" FOR OUTPUT AS #1
WRITE #1, t44tp(9), t44im(9), t44c1(9), t44c2(9), t44tp(10), t44im(10), t44c1(10), t44c2(10), t44tp(11), t44im(11), t44c1(11), t44c2(11), t44tp(12), t44im(12), t44c1(12), t44c2(12), t44tp(13), t44im(13), t44c1(13), t44c2(13), t44tp(14), t44im(14),  _
t44c1(14), t44c2(14), t17tp(15), t44im(15), t44c1(15), t44c2(15), t44tp(16), t44im(16), t44c1(16), t44c2(16)
CLOSE #1
OPEN "c:map00\m44p24.map" FOR OUTPUT AS #1
WRITE #1, t44tp(17), t44im(17), t44c1(17), t44c2(17), t44tp(18), t44im(18), t44c1(18), t44c2(18), t44tp(19), t44im(19), t44c1(19), t44c2(19), t44tp(20), t44im(20), t44c1(20), t44c2(20), t44tp(21), t44im(21), t44c1(21), t44c2(21), t44tp(22), t44im(22 _
), t44c1(22), t44c2(22), t17tp(23), t44im(23), t44c1(23), t44c2(23), t44tp(24), t44im(24), t44c1(24), t44c2(24)
CLOSE #1
OPEN "c:map00\m44p32.map" FOR OUTPUT AS #1
WRITE #1, t44tp(25), t44im(25), t44c1(25), t44c2(25), t44tp(26), t44im(26), t44c1(26), t44c2(26), t44tp(27), t44im(27), t44c1(27), t44c2(27), t44tp(28), t44im(28), t44c1(28), t44c2(28), t44tp(29), t44im(29), t44c1(29), t44c2(29), t44tp(30), t44im(30 _
), t44c1(30), t44c2(30), t17tp(31), t44im(31), t44c1(31), t44c2(31), t44tp(32), t44im(32), t44c1(32), t44c2(32)
CLOSE #1
OPEN "c:map00\m45p08.map" FOR OUTPUT AS #1
WRITE #1, t45tp(1), t45im(1), t45c1(1), t45c2(1), t45tp(2), t45im(2), t45c1(2), t45c2(2), t45tp(3), t45im(3), t45c1(3), t45c2(3), t45tp(4), t45im(4), t45c1(4), t45c2(4), t45tp(5), t45im(5), t45c1(5), t45c2(5), t45tp(6), t45im(6), t45c1(6), t45c2(6), _
 t45tp(7), t45im(7), t45c1(7), t45c2(7), t45tp(8), t45im(8), t45c1(8), t45c2(8)
CLOSE #1
OPEN "c:map00\m45p16.map" FOR OUTPUT AS #1
WRITE #1, t45tp(9), t45im(9), t45c1(9), t45c2(9), t45tp(10), t45im(10), t45c1(10), t45c2(10), t45tp(11), t45im(11), t45c1(11), t45c2(11), t45tp(12), t45im(12), t45c1(12), t45c2(12), t45tp(13), t45im(13), t45c1(13), t45c2(13), t45tp(14), t45im(14),  _
t45c1(14), t45c2(14), t17tp(15), t45im(15), t45c1(15), t45c2(15), t45tp(16), t45im(16), t45c1(16), t45c2(16)
CLOSE #1
OPEN "c:map00\m45p24.map" FOR OUTPUT AS #1
WRITE #1, t45tp(17), t45im(17), t45c1(17), t45c2(17), t45tp(18), t45im(18), t45c1(18), t45c2(18), t45tp(19), t45im(19), t45c1(19), t45c2(19), t45tp(20), t45im(20), t45c1(20), t45c2(20), t45tp(21), t45im(21), t45c1(21), t45c2(21), t45tp(22), t45im(22 _
), t45c1(22), t45c2(22), t17tp(23), t45im(23), t45c1(23), t45c2(23), t45tp(24), t45im(24), t45c1(24), t45c2(24)
CLOSE #1
OPEN "c:map00\m45p32.map" FOR OUTPUT AS #1
WRITE #1, t45tp(25), t45im(25), t45c1(25), t45c2(25), t45tp(26), t45im(26), t45c1(26), t45c2(26), t45tp(27), t45im(27), t45c1(27), t45c2(27), t45tp(28), t45im(28), t45c1(28), t45c2(28), t45tp(29), t45im(29), t45c1(29), t45c2(29), t45tp(30), t45im(30 _
), t45c1(30), t45c2(30), t17tp(31), t45im(31), t45c1(31), t45c2(31), t45tp(32), t45im(32), t45c1(32), t45c2(32)
CLOSE #1
OPEN "c:map00\m46p08.map" FOR OUTPUT AS #1
WRITE #1, t46tp(1), t46im(1), t46c1(1), t46c2(1), t46tp(2), t46im(2), t46c1(2), t46c2(2), t46tp(3), t46im(3), t46c1(3), t46c2(3), t46tp(4), t46im(4), t46c1(4), t46c2(4), t46tp(5), t46im(5), t46c1(5), t46c2(5), t46tp(6), t46im(6), t46c1(6), t46c2(6), _
 t46tp(7), t46im(7), t46c1(7), t46c2(7), t46tp(8), t46im(8), t46c1(8), t46c2(8)
CLOSE #1
OPEN "c:map00\m46p16.map" FOR OUTPUT AS #1
WRITE #1, t46tp(9), t46im(9), t46c1(9), t46c2(9), t46tp(10), t46im(10), t46c1(10), t46c2(10), t46tp(11), t46im(11), t46c1(11), t46c2(11), t46tp(12), t46im(12), t46c1(12), t46c2(12), t46tp(13), t46im(13), t46c1(13), t46c2(13), t46tp(14), t46im(14),  _
t46c1(14), t46c2(14), t17tp(15), t46im(15), t46c1(15), t46c2(15), t46tp(16), t46im(16), t46c1(16), t46c2(16)
CLOSE #1
OPEN "c:map00\m46p24.map" FOR OUTPUT AS #1
WRITE #1, t46tp(17), t46im(17), t46c1(17), t46c2(17), t46tp(18), t46im(18), t46c1(18), t46c2(18), t46tp(19), t46im(19), t46c1(19), t46c2(19), t46tp(20), t46im(20), t46c1(20), t46c2(20), t46tp(21), t46im(21), t46c1(21), t46c2(21), t46tp(22), t46im(22 _
), t46c1(22), t46c2(22), t17tp(23), t46im(23), t46c1(23), t46c2(23), t46tp(24), t46im(24), t46c1(24), t46c2(24)
CLOSE #1
OPEN "c:map00\m46p32.map" FOR OUTPUT AS #1
WRITE #1, t46tp(25), t46im(25), t46c1(25), t46c2(25), t46tp(26), t46im(26), t46c1(26), t46c2(26), t46tp(27), t46im(27), t46c1(27), t46c2(27), t46tp(28), t46im(28), t46c1(28), t46c2(28), t46tp(29), t46im(29), t46c1(29), t46c2(29), t46tp(30), t46im(30 _
), t46c1(30), t46c2(30), t17tp(31), t46im(31), t46c1(31), t46c2(31), t46tp(32), t46im(32), t46c1(32), t46c2(32)
CLOSE #1
OPEN "c:map00\m47p08.map" FOR OUTPUT AS #1
WRITE #1, t47tp(1), t47im(1), t47c1(1), t47c2(1), t47tp(2), t47im(2), t47c1(2), t47c2(2), t47tp(3), t47im(3), t47c1(3), t47c2(3), t47tp(4), t47im(4), t47c1(4), t47c2(4), t47tp(5), t47im(5), t47c1(5), t47c2(5), t47tp(6), t47im(6), t47c1(6), t47c2(6), _
 t47tp(7), t47im(7), t47c1(7), t47c2(7), t47tp(8), t47im(8), t47c1(8), t47c2(8)
CLOSE #1
OPEN "c:map00\m47p16.map" FOR OUTPUT AS #1
WRITE #1, t47tp(9), t47im(9), t47c1(9), t47c2(9), t47tp(10), t47im(10), t47c1(10), t47c2(10), t47tp(11), t47im(11), t47c1(11), t47c2(11), t47tp(12), t47im(12), t47c1(12), t47c2(12), t47tp(13), t47im(13), t47c1(13), t47c2(13), t47tp(14), t47im(14),  _
t47c1(14), t47c2(14), t17tp(15), t47im(15), t47c1(15), t47c2(15), t47tp(16), t47im(16), t47c1(16), t47c2(16)
CLOSE #1
OPEN "c:map00\m47p24.map" FOR OUTPUT AS #1
WRITE #1, t47tp(17), t47im(17), t47c1(17), t47c2(17), t47tp(18), t47im(18), t47c1(18), t47c2(18), t47tp(19), t47im(19), t47c1(19), t47c2(19), t47tp(20), t47im(20), t47c1(20), t47c2(20), t47tp(21), t47im(21), t47c1(21), t47c2(21), t47tp(22), t47im(22 _
), t47c1(22), t47c2(22), t17tp(23), t47im(23), t47c1(23), t47c2(23), t47tp(24), t47im(24), t47c1(24), t47c2(24)
CLOSE #1
OPEN "c:map00\m47p32.map" FOR OUTPUT AS #1
WRITE #1, t47tp(25), t47im(25), t47c1(25), t47c2(25), t47tp(26), t47im(26), t47c1(26), t47c2(26), t47tp(27), t47im(27), t47c1(27), t47c2(27), t47tp(28), t47im(28), t47c1(28), t47c2(28), t47tp(29), t47im(29), t47c1(29), t47c2(29), t47tp(30), t47im(30 _
), t47c1(30), t47c2(30), t17tp(31), t47im(31), t47c1(31), t47c2(31), t47tp(32), t47im(32), t47c1(32), t47c2(32)
CLOSE #1
OPEN "c:map00\m48p08.map" FOR OUTPUT AS #1
WRITE #1, t48tp(1), t48im(1), t48c1(1), t48c2(1), t48tp(2), t48im(2), t48c1(2), t48c2(2), t48tp(3), t48im(3), t48c1(3), t48c2(3), t48tp(4), t48im(4), t48c1(4), t48c2(4), t48tp(5), t48im(5), t48c1(5), t48c2(5), t48tp(6), t48im(6), t48c1(6), t48c2(6), _
 t48tp(7), t48im(7), t48c1(7), t48c2(7), t48tp(8), t48im(8), t48c1(8), t48c2(8)
CLOSE #1
OPEN "c:map00\m48p16.map" FOR OUTPUT AS #1
WRITE #1, t48tp(9), t48im(9), t48c1(9), t48c2(9), t48tp(10), t48im(10), t48c1(10), t48c2(10), t48tp(11), t48im(11), t48c1(11), t48c2(11), t48tp(12), t48im(12), t48c1(12), t48c2(12), t48tp(13), t48im(13), t48c1(13), t48c2(13), t48tp(14), t48im(14),  _
t48c1(14), t48c2(14), t17tp(15), t48im(15), t48c1(15), t48c2(15), t48tp(16), t48im(16), t48c1(16), t48c2(16)
CLOSE #1
OPEN "c:map00\m48p24.map" FOR OUTPUT AS #1
WRITE #1, t48tp(17), t48im(17), t48c1(17), t48c2(17), t48tp(18), t48im(18), t48c1(18), t48c2(18), t48tp(19), t48im(19), t48c1(19), t48c2(19), t48tp(20), t48im(20), t48c1(20), t48c2(20), t48tp(21), t48im(21), t48c1(21), t48c2(21), t48tp(22), t48im(22 _
), t48c1(22), t48c2(22), t17tp(23), t48im(23), t48c1(23), t48c2(23), t48tp(24), t48im(24), t48c1(24), t48c2(24)
CLOSE #1
OPEN "c:map00\m48p32.map" FOR OUTPUT AS #1
WRITE #1, t48tp(25), t48im(25), t48c1(25), t48c2(25), t48tp(26), t48im(26), t48c1(26), t48c2(26), t48tp(27), t48im(27), t48c1(27), t48c2(27), t48tp(28), t48im(28), t48c1(28), t48c2(28), t48tp(29), t48im(29), t48c1(29), t48c2(29), t48tp(30), t48im(30 _
), t48c1(30), t48c2(30), t17tp(31), t48im(31), t48c1(31), t48c2(31), t48tp(32), t48im(32), t48c1(32), t48c2(32)
CLOSE #1
OPEN "c:map00\m49p08.map" FOR OUTPUT AS #1
WRITE #1, t49tp(1), t49im(1), t49c1(1), t49c2(1), t49tp(2), t49im(2), t49c1(2), t49c2(2), t49tp(3), t49im(3), t49c1(3), t49c2(3), t49tp(4), t49im(4), t49c1(4), t49c2(4), t49tp(5), t49im(5), t49c1(5), t49c2(5), t49tp(6), t49im(6), t49c1(6), t49c2(6), _
 t49tp(7), t49im(7), t49c1(7), t49c2(7), t49tp(8), t49im(8), t49c1(8), t49c2(8)
CLOSE #1
OPEN "c:map00\m49p16.map" FOR OUTPUT AS #1
WRITE #1, t49tp(9), t49im(9), t49c1(9), t49c2(9), t49tp(10), t49im(10), t49c1(10), t49c2(10), t49tp(11), t49im(11), t49c1(11), t49c2(11), t49tp(12), t49im(12), t49c1(12), t49c2(12), t49tp(13), t49im(13), t49c1(13), t49c2(13), t49tp(14), t49im(14),  _
t49c1(14), t49c2(14), t17tp(15), t49im(15), t49c1(15), t49c2(15), t49tp(16), t49im(16), t49c1(16), t49c2(16)
CLOSE #1
OPEN "c:map00\m49p24.map" FOR OUTPUT AS #1
WRITE #1, t49tp(17), t49im(17), t49c1(17), t49c2(17), t49tp(18), t49im(18), t49c1(18), t49c2(18), t49tp(19), t49im(19), t49c1(19), t49c2(19), t49tp(20), t49im(20), t49c1(20), t49c2(20), t49tp(21), t49im(21), t49c1(21), t49c2(21), t49tp(22), t49im(22 _
), t49c1(22), t49c2(22), t17tp(23), t49im(23), t49c1(23), t49c2(23), t49tp(24), t49im(24), t49c1(24), t49c2(24)
CLOSE #1
OPEN "c:map00\m49p32.map" FOR OUTPUT AS #1
WRITE #1, t49tp(25), t49im(25), t49c1(25), t49c2(25), t49tp(26), t49im(26), t49c1(26), t49c2(26), t49tp(27), t49im(27), t49c1(27), t49c2(27), t49tp(28), t49im(28), t49c1(28), t49c2(28), t49tp(29), t49im(29), t49c1(29), t49c2(29), t49tp(30), t49im(30 _
), t49c1(30), t49c2(30), t17tp(31), t49im(31), t49c1(31), t49c2(31), t49tp(32), t49im(32), t49c1(32), t49c2(32)
CLOSE #1
OPEN "c:map00\m50p08.map" FOR OUTPUT AS #1
WRITE #1, t50tp(1), t50im(1), t50c1(1), t50c2(1), t50tp(2), t50im(2), t50c1(2), t50c2(2), t50tp(3), t50im(3), t50c1(3), t50c2(3), t50tp(4), t50im(4), t50c1(4), t50c2(4), t50tp(5), t50im(5), t50c1(5), t50c2(5), t50tp(6), t50im(6), t50c1(6), t50c2(6), _
 t50tp(7), t50im(7), t50c1(7), t50c2(7), t50tp(8), t50im(8), t50c1(8), t50c2(8)
CLOSE #1
OPEN "c:map00\m50p16.map" FOR OUTPUT AS #1
WRITE #1, t50tp(9), t50im(9), t50c1(9), t50c2(9), t50tp(10), t50im(10), t50c1(10), t50c2(10), t50tp(11), t50im(11), t50c1(11), t50c2(11), t50tp(12), t50im(12), t50c1(12), t50c2(12), t50tp(13), t50im(13), t50c1(13), t50c2(13), t50tp(14), t50im(14),  _
t50c1(14), t50c2(14), t17tp(15), t50im(15), t50c1(15), t50c2(15), t50tp(16), t50im(16), t50c1(16), t50c2(16)
CLOSE #1
OPEN "c:map00\m50p24.map" FOR OUTPUT AS #1
WRITE #1, t50tp(17), t50im(17), t50c1(17), t50c2(17), t50tp(18), t50im(18), t50c1(18), t50c2(18), t50tp(19), t50im(19), t50c1(19), t50c2(19), t50tp(20), t50im(20), t50c1(20), t50c2(20), t50tp(21), t50im(21), t50c1(21), t50c2(21), t50tp(22), t50im(22 _
), t50c1(22), t50c2(22), t17tp(23), t50im(23), t50c1(23), t50c2(23), t50tp(24), t50im(24), t50c1(24), t50c2(24)
CLOSE #1
OPEN "c:map00\m50p32.map" FOR OUTPUT AS #1
WRITE #1, t50tp(25), t50im(25), t50c1(25), t50c2(25), t50tp(26), t50im(26), t50c1(26), t50c2(26), t50tp(27), t50im(27), t50c1(27), t50c2(27), t50tp(28), t50im(28), t50c1(28), t50c2(28), t50tp(29), t50im(29), t50c1(29), t50c2(29), t50tp(30), t50im(30 _
), t50c1(30), t50c2(30), t17tp(31), t50im(31), t50c1(31), t50c2(31), t50tp(32), t50im(32), t50c1(32), t50c2(32)
CLOSE #1
OPEN "c:map00\m51p08.map" FOR OUTPUT AS #1
WRITE #1, t51tp(1), t51im(1), t51c1(1), t51c2(1), t51tp(2), t51im(2), t51c1(2), t51c2(2), t51tp(3), t51im(3), t51c1(3), t51c2(3), t51tp(4), t51im(4), t51c1(4), t51c2(4), t51tp(5), t51im(5), t51c1(5), t51c2(5), t51tp(6), t51im(6), t51c1(6), t51c2(6), _
 t51tp(7), t51im(7), t51c1(7), t51c2(7), t51tp(8), t51im(8), t51c1(8), t51c2(8)
CLOSE #1
OPEN "c:map00\m51p16.map" FOR OUTPUT AS #1
WRITE #1, t51tp(9), t51im(9), t51c1(9), t51c2(9), t51tp(10), t51im(10), t51c1(10), t51c2(10), t51tp(11), t51im(11), t51c1(11), t51c2(11), t51tp(12), t51im(12), t51c1(12), t51c2(12), t51tp(13), t51im(13), t51c1(13), t51c2(13), t51tp(14), t51im(14),  _
t51c1(14), t51c2(14), t17tp(15), t51im(15), t51c1(15), t51c2(15), t51tp(16), t51im(16), t51c1(16), t51c2(16)
CLOSE #1
OPEN "c:map00\m51p24.map" FOR OUTPUT AS #1
WRITE #1, t51tp(17), t51im(17), t51c1(17), t51c2(17), t51tp(18), t51im(18), t51c1(18), t51c2(18), t51tp(19), t51im(19), t51c1(19), t51c2(19), t51tp(20), t51im(20), t51c1(20), t51c2(20), t51tp(21), t51im(21), t51c1(21), t51c2(21), t51tp(22), t51im(22 _
), t51c1(22), t51c2(22), t17tp(23), t51im(23), t51c1(23), t51c2(23), t51tp(24), t51im(24), t51c1(24), t51c2(24)
CLOSE #1
OPEN "c:map00\m51p32.map" FOR OUTPUT AS #1
WRITE #1, t51tp(25), t51im(25), t51c1(25), t51c2(25), t51tp(26), t51im(26), t51c1(26), t51c2(26), t51tp(27), t51im(27), t51c1(27), t51c2(27), t51tp(28), t51im(28), t51c1(28), t51c2(28), t51tp(29), t51im(29), t51c1(29), t51c2(29), t51tp(30), t51im(30 _
), t51c1(30), t51c2(30), t17tp(31), t51im(31), t51c1(31), t51c2(31), t51tp(32), t51im(32), t51c1(32), t51c2(32)
CLOSE #1
OPEN "c:map00\m52p08.map" FOR OUTPUT AS #1
WRITE #1, t52tp(1), t52im(1), t52c1(1), t52c2(1), t52tp(2), t52im(2), t52c1(2), t52c2(2), t52tp(3), t52im(3), t52c1(3), t52c2(3), t52tp(4), t52im(4), t52c1(4), t52c2(4), t52tp(5), t52im(5), t52c1(5), t52c2(5), t52tp(6), t52im(6), t52c1(6), t52c2(6), _
 t52tp(7), t52im(7), t52c1(7), t52c2(7), t52tp(8), t52im(8), t52c1(8), t52c2(8)
CLOSE #1
OPEN "c:map00\m52p16.map" FOR OUTPUT AS #1
WRITE #1, t52tp(9), t52im(9), t52c1(9), t52c2(9), t52tp(10), t52im(10), t52c1(10), t52c2(10), t52tp(11), t52im(11), t52c1(11), t52c2(11), t52tp(12), t52im(12), t52c1(12), t52c2(12), t52tp(13), t52im(13), t52c1(13), t52c2(13), t52tp(14), t52im(14),  _
t52c1(14), t52c2(14), t17tp(15), t52im(15), t52c1(15), t52c2(15), t52tp(16), t52im(16), t52c1(16), t52c2(16)
CLOSE #1
OPEN "c:map00\m52p24.map" FOR OUTPUT AS #1
WRITE #1, t52tp(17), t52im(17), t52c1(17), t52c2(17), t52tp(18), t52im(18), t52c1(18), t52c2(18), t52tp(19), t52im(19), t52c1(19), t52c2(19), t52tp(20), t52im(20), t52c1(20), t52c2(20), t52tp(21), t52im(21), t52c1(21), t52c2(21), t52tp(22), t52im(22 _
), t52c1(22), t52c2(22), t17tp(23), t52im(23), t52c1(23), t52c2(23), t52tp(24), t52im(24), t52c1(24), t52c2(24)
CLOSE #1
OPEN "c:map00\m52p32.map" FOR OUTPUT AS #1
WRITE #1, t52tp(25), t52im(25), t52c1(25), t52c2(25), t52tp(26), t52im(26), t52c1(26), t52c2(26), t52tp(27), t52im(27), t52c1(27), t52c2(27), t52tp(28), t52im(28), t52c1(28), t52c2(28), t52tp(29), t52im(29), t52c1(29), t52c2(29), t52tp(30), t52im(30 _
), t52c1(30), t52c2(30), t17tp(31), t52im(31), t52c1(31), t52c2(31), t52tp(32), t52im(32), t52c1(32), t52c2(32)
CLOSE #1
OPEN "c:map00\m53p08.map" FOR OUTPUT AS #1
WRITE #1, t53tp(1), t53im(1), t53c1(1), t53c2(1), t53tp(2), t53im(2), t53c1(2), t53c2(2), t53tp(3), t53im(3), t53c1(3), t53c2(3), t53tp(4), t53im(4), t53c1(4), t53c2(4), t53tp(5), t53im(5), t53c1(5), t53c2(5), t53tp(6), t53im(6), t53c1(6), t53c2(6), _
 t53tp(7), t53im(7), t53c1(7), t53c2(7), t53tp(8), t53im(8), t53c1(8), t53c2(8)
CLOSE #1
OPEN "c:map00\m53p16.map" FOR OUTPUT AS #1
WRITE #1, t53tp(9), t53im(9), t53c1(9), t53c2(9), t53tp(10), t53im(10), t53c1(10), t53c2(10), t53tp(11), t53im(11), t53c1(11), t53c2(11), t53tp(12), t53im(12), t53c1(12), t53c2(12), t53tp(13), t53im(13), t53c1(13), t53c2(13), t53tp(14), t53im(14),  _
t53c1(14), t53c2(14), t17tp(15), t53im(15), t53c1(15), t53c2(15), t53tp(16), t53im(16), t53c1(16), t53c2(16)
CLOSE #1
OPEN "c:map00\m53p24.map" FOR OUTPUT AS #1
WRITE #1, t53tp(17), t53im(17), t53c1(17), t53c2(17), t53tp(18), t53im(18), t53c1(18), t53c2(18), t53tp(19), t53im(19), t53c1(19), t53c2(19), t53tp(20), t53im(20), t53c1(20), t53c2(20), t53tp(21), t53im(21), t53c1(21), t53c2(21), t53tp(22), t53im(22 _
), t53c1(22), t53c2(22), t17tp(23), t53im(23), t53c1(23), t53c2(23), t53tp(24), t53im(24), t53c1(24), t53c2(24)
CLOSE #1
OPEN "c:map00\m53p32.map" FOR OUTPUT AS #1
WRITE #1, t53tp(25), t53im(25), t53c1(25), t53c2(25), t53tp(26), t53im(26), t53c1(26), t53c2(26), t53tp(27), t53im(27), t53c1(27), t53c2(27), t53tp(28), t53im(28), t53c1(28), t53c2(28), t53tp(29), t53im(29), t53c1(29), t53c2(29), t53tp(30), t53im(30 _
), t53c1(30), t53c2(30), t17tp(31), t53im(31), t53c1(31), t53c2(31), t53tp(32), t53im(32), t53c1(32), t53c2(32)
CLOSE #1

END SUB

SUB tracker

DO
   
	'CALL load
	'CALL load1
	CALL wlocate
   
	COLOR 8
	LOCATE 25, 1
	CALL clearline
	LOCATE 25, 1
	PRINT "Press  [  Image"
	LOCATE 26, 1
	CALL clearline
	LOCATE 26, 1
	PRINT "       ]  Color 1"
	LOCATE 27, 1
	CALL clearline
	LOCATE 27, 1
	PRINT "       \  Color 2"
   
	rdoes = xpos + 1
	rkill = ypos + 1
	IF rkill < 0 THEN rkill = -1
	IF rkill > 32 THEN rkill = -1


		mult = 1
		DO: call.$ = INKEY$: LOOP UNTIL call.$ = "w" OR call.$ = "a" OR call.$ = "s" OR call.$ = "d" OR call.$ = "q" OR call.$ = "[" OR call.$ = "]" OR call.$ = "\"
		IF call.$ = "q" THEN end.$ = "q"
   
	CALL ycolor1
	   
		IF call.$ = "w" THEN ypos = ypos - mult
		IF call.$ = "a" THEN xpos = xpos - mult
		IF call.$ = "s" THEN ypos = ypos + mult
		IF call.$ = "d" THEN xpos = xpos + mult
		IF call.$ = "[" THEN tpos = 1: call.$ = "q": wtile.$ = "img"
		IF call.$ = "]" THEN tpos = 1: call.$ = "q": wtile.$ = "col1"
		IF call.$ = "\" THEN tpos = 1: call.$ = "q": wtile.$ = "col2"

LOOP WHILE call.$ <> "q"


IF tpos = 1 THEN CALL wtile

END SUB

SUB wlocate

LINE (xpos * 12, ypos * 12)-(xpos * 12 + 12, ypos * 12 + 12), 4, B

END SUB

SUB wtile

	CALL wlocate

	COLOR 8
	LOCATE 25, 1
	CALL clearline
	CALL clearline
	CALL clearline
	LOCATE 25, 1
   

		xps = xpos + 1
		yps = ypos + 1

	IF wtile.$ = "img" THEN
		PRINT "Image Number";
		INPUT img

		IF xps = 1 THEN t1im(yps) = img
		IF xps = 2 THEN t2im(yps) = img
		IF xps = 3 THEN t3im(yps) = img
		IF xps = 4 THEN t4im(yps) = img
		IF xps = 5 THEN t5im(yps) = img
		IF xps = 6 THEN t6im(yps) = img
		IF xps = 7 THEN t7im(yps) = img
		IF xps = 8 THEN t8im(yps) = img
		IF xps = 9 THEN t9im(yps) = img
		IF xps = 10 THEN t10im(yps) = img
		IF xps = 11 THEN t11im(yps) = img
		IF xps = 12 THEN t12im(yps) = img
		IF xps = 13 THEN t13im(yps) = img
		IF xps = 14 THEN t14im(yps) = img
		IF xps = 15 THEN t15im(yps) = img
		IF xps = 16 THEN t16im(yps) = img
		IF xps = 17 THEN t17im(yps) = img
		IF xps = 18 THEN t18im(yps) = img
		IF xps = 19 THEN t19im(yps) = img
		IF xps = 20 THEN t20im(yps) = img
		IF xps = 21 THEN t21im(yps) = img
		IF xps = 22 THEN t22im(yps) = img
		IF xps = 23 THEN t23im(yps) = img
		IF xps = 24 THEN t24im(yps) = img
		IF xps = 25 THEN t25im(yps) = img
		IF xps = 26 THEN t26im(yps) = img
		IF xps = 27 THEN t27im(yps) = img
		IF xps = 28 THEN t28im(yps) = img
		IF xps = 29 THEN t29im(yps) = img
		IF xps = 30 THEN t30im(yps) = img
		IF xps = 31 THEN t31im(yps) = img
		IF xps = 32 THEN t32im(yps) = img
		IF xps = 33 THEN t33im(yps) = img
		IF xps = 34 THEN t34im(yps) = img
		IF xps = 35 THEN t35im(yps) = img
		IF xps = 36 THEN t36im(yps) = img
		IF xps = 37 THEN t37im(yps) = img
		IF xps = 38 THEN t38im(yps) = img
		IF xps = 39 THEN t39im(yps) = img
		IF xps = 40 THEN t40im(yps) = img
		IF xps = 41 THEN t41im(yps) = img
		IF xps = 42 THEN t42im(yps) = img
		IF xps = 43 THEN t43im(yps) = img
		IF xps = 44 THEN t44im(yps) = img
		IF xps = 45 THEN t45im(yps) = img
		IF xps = 46 THEN t46im(yps) = img
		IF xps = 47 THEN t47im(yps) = img
		IF xps = 48 THEN t48im(yps) = img
		IF xps = 49 THEN t49im(yps) = img
		IF xps = 50 THEN t50im(yps) = img
		IF xps = 51 THEN t51im(yps) = img
		IF xps = 52 THEN t52im(yps) = img
		IF xps = 53 THEN t53im(yps) = img

	END IF

	IF wtile.$ = "col1" THEN
		PRINT "Color 1";
		INPUT col1

		IF xps = 1 THEN t1c1(yps) = col1
		IF xps = 2 THEN t2c1(yps) = col1
		IF xps = 3 THEN t3c1(yps) = col1
		IF xps = 4 THEN t4c1(yps) = col1
		IF xps = 5 THEN t5c1(yps) = col1
		IF xps = 6 THEN t6c1(yps) = col1
		IF xps = 7 THEN t7c1(yps) = col1
		IF xps = 8 THEN t8c1(yps) = col1
		IF xps = 9 THEN t9c1(yps) = col1
		IF xps = 10 THEN t10c1(yps) = col1
		IF xps = 11 THEN t11c1(yps) = col1
		IF xps = 12 THEN t12c1(yps) = col1
		IF xps = 13 THEN t13c1(yps) = col1
		IF xps = 14 THEN t14c1(yps) = col1
		IF xps = 15 THEN t15c1(yps) = col1
		IF xps = 16 THEN t16c1(yps) = col1
		IF xps = 17 THEN t17c1(yps) = col1
		IF xps = 18 THEN t18c1(yps) = col1
		IF xps = 19 THEN t19c1(yps) = col1
		IF xps = 20 THEN t20c1(yps) = col1
		IF xps = 21 THEN t21c1(yps) = col1
		IF xps = 22 THEN t22c1(yps) = col1
		IF xps = 23 THEN t23c1(yps) = col1
		IF xps = 24 THEN t24c1(yps) = col1
		IF xps = 25 THEN t25c1(yps) = col1
		IF xps = 26 THEN t26c1(yps) = col1
		IF xps = 27 THEN t27c1(yps) = col1
		IF xps = 28 THEN t28c1(yps) = col1
		IF xps = 29 THEN t29c1(yps) = col1
		IF xps = 30 THEN t30c1(yps) = col1
		IF xps = 31 THEN t31c1(yps) = col1
		IF xps = 32 THEN t32c1(yps) = col1
		IF xps = 33 THEN t33c1(yps) = col1
		IF xps = 34 THEN t34c1(yps) = col1
		IF xps = 35 THEN t35c1(yps) = col1
		IF xps = 36 THEN t36c1(yps) = col1
		IF xps = 37 THEN t37c1(yps) = col1
		IF xps = 38 THEN t38c1(yps) = col1
		IF xps = 39 THEN t39c1(yps) = col1
		IF xps = 40 THEN t40c1(yps) = col1
		IF xps = 41 THEN t41c1(yps) = col1
		IF xps = 42 THEN t42c1(yps) = col1
		IF xps = 43 THEN t43c1(yps) = col1
		IF xps = 44 THEN t44c1(yps) = col1
		IF xps = 45 THEN t45c1(yps) = col1
		IF xps = 46 THEN t46c1(yps) = col1
		IF xps = 47 THEN t47c1(yps) = col1
		IF xps = 48 THEN t48c1(yps) = col1
		IF xps = 49 THEN t49c1(yps) = col1
		IF xps = 50 THEN t50c1(yps) = col1
		IF xps = 51 THEN t51c1(yps) = col1
		IF xps = 52 THEN t52c1(yps) = col1
		IF xps = 53 THEN t53c1(yps) = col1

	END IF

	IF wtile.$ = "col2" THEN
		PRINT "Color 2";
		INPUT col2

		IF xps = 1 THEN t1c2(yps) = col2
		IF xps = 2 THEN t2c2(yps) = col2
		IF xps = 3 THEN t3c2(yps) = col2
		IF xps = 4 THEN t4c2(yps) = col2
		IF xps = 5 THEN t5c2(yps) = col2
		IF xps = 6 THEN t6c2(yps) = col2
		IF xps = 7 THEN t7c2(yps) = col2
		IF xps = 8 THEN t8c2(yps) = col2
		IF xps = 9 THEN t9c2(yps) = col2
		IF xps = 10 THEN t10c2(yps) = col2
		IF xps = 11 THEN t11c2(yps) = col2
		IF xps = 12 THEN t12c2(yps) = col2
		IF xps = 13 THEN t13c2(yps) = col2
		IF xps = 14 THEN t14c2(yps) = col2
		IF xps = 15 THEN t15c2(yps) = col2
		IF xps = 16 THEN t16c2(yps) = col2
		IF xps = 17 THEN t17c2(yps) = col2
		IF xps = 18 THEN t18c2(yps) = col2
		IF xps = 19 THEN t19c2(yps) = col2
		IF xps = 20 THEN t20c2(yps) = col2
		IF xps = 21 THEN t21c2(yps) = col2
		IF xps = 22 THEN t22c2(yps) = col2
		IF xps = 23 THEN t23c2(yps) = col2
		IF xps = 24 THEN t24c2(yps) = col2
		IF xps = 25 THEN t25c2(yps) = col2
		IF xps = 26 THEN t26c2(yps) = col2
		IF xps = 27 THEN t27c2(yps) = col2
		IF xps = 28 THEN t28c2(yps) = col2
		IF xps = 29 THEN t29c2(yps) = col2
		IF xps = 30 THEN t30c2(yps) = col2
		IF xps = 31 THEN t31c2(yps) = col2
		IF xps = 32 THEN t32c2(yps) = col2
		IF xps = 33 THEN t33c2(yps) = col2
		IF xps = 34 THEN t34c2(yps) = col2
		IF xps = 35 THEN t35c2(yps) = col2
		IF xps = 36 THEN t36c2(yps) = col2
		IF xps = 37 THEN t37c2(yps) = col2
		IF xps = 38 THEN t38c2(yps) = col2
		IF xps = 39 THEN t39c2(yps) = col2
		IF xps = 40 THEN t40c2(yps) = col2
		IF xps = 41 THEN t41c2(yps) = col2
		IF xps = 42 THEN t42c2(yps) = col2
		IF xps = 43 THEN t43c2(yps) = col2
		IF xps = 44 THEN t44c2(yps) = col2
		IF xps = 45 THEN t45c2(yps) = col2
		IF xps = 46 THEN t46c2(yps) = col2
		IF xps = 47 THEN t47c2(yps) = col2
		IF xps = 48 THEN t48c2(yps) = col2
		IF xps = 49 THEN t49c2(yps) = col2
		IF xps = 50 THEN t50c2(yps) = col2
		IF xps = 51 THEN t51c2(yps) = col2
		IF xps = 52 THEN t52c2(yps) = col2
		IF xps = 53 THEN t53c2(yps) = col2

	END IF
	  
	wtile.$ = ""

	rdoes = xpos + 1
	rkill = ypos + 1
	IF rkill < 0 THEN rkill = -1
	IF rkill > 32 THEN rkill = -1

	CALL ycolor1
	'CALL save
	'CALL save1

END SUB

SUB ycolor1

	IF rkill = -1 THEN
	ELSE

		IF rkill = 0 THEN
			run1 = 1
			run32 = 32
			rdoes = 0
		ELSE
			run1 = rkill
			run32 = rkill + 1
		END IF


'/////////////////// -- Decodes Colors and Displays Patterns


		FOR r = run1 TO run32
   
			y = 12 * (r - 1)

			IF rdoes = 0 OR rdoes = 1 THEN

				tmpcolor = t1c1(r)
				x = 0
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 2 THEN

				tmpcolor = t2c1(r)
				x = 12
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 3 THEN

				tmpcolor = t3c1(r)
				x = 24
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 4 THEN

				tmpcolor = t4c1(r)
				x = 36
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 5 THEN

				tmpcolor = t5c1(r)
				x = 48
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 6 THEN

				tmpcolor = t6c1(r)
				x = 60
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 7 THEN

				tmpcolor = t7c1(r)
				x = 72
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 8 THEN

				tmpcolor = t8c1(r)
				x = 84
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 9 THEN

				tmpcolor = t9c1(r)
				x = 96
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 10 THEN

				tmpcolor = t10c1(r)
				x = 108
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 11 THEN

				tmpcolor = t11c1(r)
				x = 120
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 12 THEN

				tmpcolor = t12c1(r)
				x = 132
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 13 THEN

				tmpcolor = t13c1(r)
				x = 144
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 14 THEN

				tmpcolor = t14c1(r)
				x = 156
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 15 THEN

				tmpcolor = t15c1(r)
				x = 168
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 16 THEN

				tmpcolor = t16c1(r)
				x = 180
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 17 THEN

				tmpcolor = t17c1(r)
				x = 192
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 18 THEN

				tmpcolor = t18c1(r)
				x = 204
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 19 THEN

				tmpcolor = t19c1(r)
				x = 216
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 20 THEN

				tmpcolor = t20c1(r)
				x = 228
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 21 THEN

				tmpcolor = t21c1(r)
				x = 240
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 22 THEN

				tmpcolor = t22c1(r)
				x = 252
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 23 THEN

				tmpcolor = t23c1(r)
				x = 264
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 24 THEN

				tmpcolor = t24c1(r)
				x = 276
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 25 THEN

				tmpcolor = t25c1(r)
				x = 288
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 26 THEN

				tmpcolor = t26c1(r)
				x = 300
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 27 THEN

				tmpcolor = t27c1(r)
				x = 312
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 28 THEN

				tmpcolor = t28c1(r)
				x = 324
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 29 THEN

				tmpcolor = t29c1(r)
				x = 336
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 30 THEN

				tmpcolor = t30c1(r)
				x = 348
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 31 THEN

				tmpcolor = t31c1(r)
				x = 360
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 32 THEN

				tmpcolor = t32c1(r)
				x = 372
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 33 THEN

				tmpcolor = t33c1(r)
				x = 384
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 34 THEN

				tmpcolor = t34c1(r)
				x = 396
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 35 THEN

				tmpcolor = t35c1(r)
				x = 408
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 36 THEN

				tmpcolor = t36c1(r)
				x = 420
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 37 THEN

				tmpcolor = t37c1(r)
				x = 432
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 38 THEN

				tmpcolor = t38c1(r)
				x = 444
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 39 THEN

				tmpcolor = t39c1(r)
				x = 456
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 40 THEN

				tmpcolor = t40c1(r)
				x = 468
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 41 THEN

				tmpcolor = t41c1(r)
				x = 480
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 42 THEN

				tmpcolor = t42c1(r)
				x = 492
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 43 THEN

				tmpcolor = t43c1(r)
				x = 504
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 44 THEN

				tmpcolor = t44c1(r)
				x = 516
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 45 THEN

				tmpcolor = t45c1(r)
				x = 528
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 46 THEN

				tmpcolor = t46c1(r)
				x = 540
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 47 THEN

				tmpcolor = t47c1(r)
				x = 552
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 48 THEN

				tmpcolor = t48c1(r)
				x = 564
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 49 THEN

				tmpcolor = t49c1(r)
				x = 576
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 50 THEN

				tmpcolor = t50c1(r)
				x = 588
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 51 THEN

				tmpcolor = t51c1(r)
				x = 600
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 52 THEN

				tmpcolor = t52c1(r)
				x = 612
				CALL ycolor2
				CALL z0back

			END IF

			IF rdoes = 0 OR rdoes = 53 THEN

				tmpcolor = t53c1(r)
				x = 624
				CALL ycolor2
				CALL z0back

			END IF


'////////////////////Part 2/////////////////////

	tmpcolor = t1c2(r)
	t = 1
	x = 0
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t2c2(r)
	t = 2
	x = 12
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t3c2(r)
	t = 3
	x = 24
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t4c2(r)
	t = 4
	x = 36
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t5c2(r)
	t = 5
	x = 48
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t6c2(r)
	t = 6
	x = 60
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t7c2(r)
	t = 7
	x = 72
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t8c2(r)
	t = 8
	x = 84
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t9c2(r)
	t = 9
	x = 96
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t10c2(r)
	t = 10
	x = 108
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t11c2(r)
	t = 11
	x = 120
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t12c2(r)
	t = 12
	x = 132
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t13c2(r)
	t = 13
	x = 144
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t14c2(r)
	t = 14
	x = 156
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t15c2(r)
	t = 15
	x = 168
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t16c2(r)
	t = 16
	x = 180
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t17c2(r)
	t = 17
	x = 192
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t18c2(r)
	t = 18
	x = 204
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t19c2(r)
	t = 19
	x = 216
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t20c2(r)
	t = 20
	x = 228
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t21c2(r)
	t = 21
	x = 240
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t22c2(r)
	t = 22
	x = 252
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t23c2(r)
	t = 23
	x = 264
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t24c2(r)
	t = 24
	x = 276
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t25c2(r)
	t = 25
	x = 288
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t26c2(r)
	t = 26
	x = 300
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t27c2(r)
	t = 27
	x = 312
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t28c2(r)
	t = 28
	x = 324
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t29c2(r)
	t = 29
	x = 336
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t30c2(r)
	t = 30
	x = 348
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t31c2(r)
	t = 31
	x = 360
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t32c2(r)
	t = 32
	x = 372
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t33c2(r)
	t = 33
	x = 384
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t34c2(r)
	t = 34
	x = 396
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t35c2(r)
	t = 35
	x = 408
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t36c2(r)
	t = 36
	x = 420
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t37c2(r)
	t = 37
	x = 432
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t38c2(r)
	t = 38
	x = 444
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t39c2(r)
	t = 39
	x = 456
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t40c2(r)
	t = 40
	x = 468
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t41c2(r)
	t = 41
	x = 480
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t42c2(r)
	t = 42
	t = 42
	x = 492
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t43c2(r)
	t = 43
	x = 504
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t44c2(r)
	t = 44
	x = 516
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t45c2(r)
	t = 45
	x = 528
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t46c2(r)
	t = 46
	x = 540
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t47c2(r)
	t = 47
	x = 552
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t48c2(r)
	t = 48
	x = 564
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t49c2(r)
	t = 49
	x = 576
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t50c2(r)
	t = 50
	x = 588
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t51c2(r)
	t = 51
	x = 600
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t52c2(r)
	t = 52
	x = 612
	CALL ycolor2
	CALL ycolor3

	tmpcolor = t53c2(r)
	t = 53
	x = 624
	CALL ycolor2
	CALL ycolor3

NEXT r

END IF

LINE (0, 384)-(624, 384), 0
rkill = 0
END SUB

SUB ycolor2

	IF tmpcolor = 0 THEN
		c1 = 0
		c2 = 0
	END IF
	IF tmpcolor = 1 THEN
		c1 = 0
		c2 = 1
	END IF
	IF tmpcolor = 2 THEN
		c1 = 0
		c2 = 2
	END IF
	IF tmpcolor = 3 THEN
		c1 = 0
		c2 = 3
	END IF
	IF tmpcolor = 4 THEN
		c1 = 0
		c2 = 4
	END IF
	IF tmpcolor = 5 THEN
		c1 = 0
		c2 = 5
	END IF
	IF tmpcolor = 6 THEN
		c1 = 0
		c2 = 6
	END IF
	IF tmpcolor = 7 THEN
		c1 = 0
		c2 = 7
	END IF
	IF tmpcolor = 8 THEN
		c1 = 0
		c2 = 8
	END IF
	IF tmpcolor = 9 THEN
		c1 = 0
		c2 = 9
	END IF
	IF tmpcolor = 10 THEN
		c1 = 0
		c2 = 10
	END IF
	IF tmpcolor = 11 THEN
		c1 = 0
		c2 = 11
	END IF
	IF tmpcolor = 12 THEN
		c1 = 0
		c2 = 12
	END IF
	IF tmpcolor = 13 THEN
		c1 = 0
		c2 = 13
	END IF
	IF tmpcolor = 14 THEN
		c1 = 0
		c2 = 14
	END IF
	IF tmpcolor = 15 THEN
		c1 = 0
		c2 = 15
	END IF
	IF tmpcolor = 16 THEN
		c1 = 1
		c2 = 1
	END IF
	IF tmpcolor = 17 THEN
		c1 = 1
		c2 = 2
	END IF
	IF tmpcolor = 18 THEN
		c1 = 1
		c2 = 3
	END IF
	IF tmpcolor = 19 THEN
		c1 = 1
		c2 = 4
	END IF
	IF tmpcolor = 20 THEN
		c1 = 1
		c2 = 5
	END IF
	IF tmpcolor = 21 THEN
		c1 = 1
		c2 = 6
	END IF
	IF tmpcolor = 22 THEN
		c1 = 1
		c2 = 7
	END IF
	IF tmpcolor = 23 THEN
		c1 = 1
		c2 = 8
	END IF
	IF tmpcolor = 24 THEN
		c1 = 1
		c2 = 9
	END IF
	IF tmpcolor = 25 THEN
		c1 = 1
		c2 = 10
	END IF
	IF tmpcolor = 26 THEN
		c1 = 1
		c2 = 11
	END IF
	IF tmpcolor = 27 THEN
		c1 = 1
		c2 = 12
	END IF
	IF tmpcolor = 28 THEN
		c1 = 1
		c2 = 13
	END IF
	IF tmpcolor = 29 THEN
		c1 = 1
		c2 = 14
	END IF
	IF tmpcolor = 30 THEN
		c1 = 1
		c2 = 15
	END IF
	IF tmpcolor = 31 THEN
		c1 = 2
		c2 = 2
	END IF
	IF tmpcolor = 32 THEN
		c1 = 2
		c2 = 3
	END IF
	IF tmpcolor = 33 THEN
		c1 = 2
		c2 = 4
	END IF
	IF tmpcolor = 34 THEN
		c1 = 2
		c2 = 5
	END IF
	IF tmpcolor = 35 THEN
		c1 = 2
		c2 = 6
	END IF
	IF tmpcolor = 36 THEN
		c1 = 2
		c2 = 7
	END IF
	IF tmpcolor = 37 THEN
		c1 = 2
		c2 = 8
	END IF
	IF tmpcolor = 38 THEN
		c1 = 2
		c2 = 9
	END IF
	IF tmpcolor = 39 THEN
		c1 = 2
		c2 = 10
	END IF
	IF tmpcolor = 40 THEN
		c1 = 2
		c2 = 11
	END IF
	IF tmpcolor = 41 THEN
		c1 = 2
		c2 = 12
	END IF
	IF tmpcolor = 42 THEN
		c1 = 2
		c2 = 13
	END IF
	IF tmpcolor = 43 THEN
		c1 = 2
		c2 = 14
	END IF
	IF tmpcolor = 44 THEN
		c1 = 2
		c2 = 15
	END IF
	IF tmpcolor = 45 THEN
		c1 = 3
		c2 = 3
	END IF
	IF tmpcolor = 46 THEN
		c1 = 3
		c2 = 4
	END IF
	IF tmpcolor = 47 THEN
		c1 = 3
		c2 = 5
	END IF
	IF tmpcolor = 48 THEN
		c1 = 3
		c2 = 6
	END IF
	IF tmpcolor = 49 THEN
		c1 = 3
		c2 = 7
	END IF
	IF tmpcolor = 50 THEN
		c1 = 3
		c2 = 8
	END IF
	IF tmpcolor = 51 THEN
		c1 = 3
		c2 = 9
	END IF
	IF tmpcolor = 52 THEN
		c1 = 3
		c2 = 10
	END IF
	IF tmpcolor = 53 THEN
		c1 = 3
		c2 = 11
	END IF
	IF tmpcolor = 54 THEN
		c1 = 3
		c2 = 12
	END IF
	IF tmpcolor = 55 THEN
		c1 = 3
		c2 = 13
	END IF
	IF tmpcolor = 56 THEN
		c1 = 3
		c2 = 14
	END IF
	IF tmpcolor = 57 THEN
		c1 = 3
		c2 = 15
	END IF
	IF tmpcolor = 58 THEN
		c1 = 4
		c2 = 4
	END IF
	IF tmpcolor = 59 THEN
		c1 = 4
		c2 = 5
	END IF
	IF tmpcolor = 60 THEN
		c1 = 4
		c2 = 6
	END IF
	IF tmpcolor = 61 THEN
		c1 = 4
		c2 = 7
	END IF
	IF tmpcolor = 62 THEN
		c1 = 4
		c2 = 8
	END IF
	IF tmpcolor = 63 THEN
		c1 = 4
		c2 = 9
	END IF
	IF tmpcolor = 64 THEN
		c1 = 4
		c2 = 10
	END IF
	IF tmpcolor = 65 THEN
		c1 = 4
		c2 = 11
	END IF
	IF tmpcolor = 66 THEN
		c1 = 4
		c2 = 12
	END IF
	IF tmpcolor = 67 THEN
		c1 = 4
		c2 = 13
	END IF
	IF tmpcolor = 68 THEN
		c1 = 4
		c2 = 14
	END IF
	IF tmpcolor = 69 THEN
		c1 = 4
		c2 = 15
	END IF
	IF tmpcolor = 70 THEN
		c1 = 5
		c2 = 5
	END IF
	IF tmpcolor = 71 THEN
		c1 = 5
		c2 = 6
	END IF
	IF tmpcolor = 72 THEN
		c1 = 5
		c2 = 7
	END IF
	IF tmpcolor = 73 THEN
		c1 = 5
		c2 = 8
	END IF
	IF tmpcolor = 74 THEN
		c1 = 5
		c2 = 9
	END IF
	IF tmpcolor = 75 THEN
		c1 = 5
		c2 = 10
	END IF
	IF tmpcolor = 76 THEN
		c1 = 5
		c2 = 11
	END IF
	IF tmpcolor = 77 THEN
		c1 = 5
		c2 = 12
	END IF
	IF tmpcolor = 78 THEN
		c1 = 5
		c2 = 13
	END IF
	IF tmpcolor = 79 THEN
		c1 = 5
		c2 = 14
	END IF
	IF tmpcolor = 80 THEN
		c1 = 5
		c2 = 15
	END IF
	IF tmpcolor = 81 THEN
		c1 = 6
		c2 = 6
	END IF
	IF tmpcolor = 82 THEN
		c1 = 6
		c2 = 7
	END IF
	IF tmpcolor = 83 THEN
		c1 = 6
		c2 = 8
	END IF
	IF tmpcolor = 84 THEN
		c1 = 6
		c2 = 9
	END IF
	IF tmpcolor = 85 THEN
		c1 = 6
		c2 = 10
	END IF
	IF tmpcolor = 86 THEN
		c1 = 6
		c2 = 11
	END IF
	IF tmpcolor = 87 THEN
		c1 = 6
		c2 = 12
	END IF
	IF tmpcolor = 88 THEN
		c1 = 6
		c2 = 13
	END IF
	IF tmpcolor = 89 THEN
		c1 = 6
		c2 = 14
	END IF
	IF tmpcolor = 90 THEN
		c1 = 6
		c2 = 15
	END IF
	IF tmpcolor = 91 THEN
		c1 = 7
		c2 = 7
	END IF
	IF tmpcolor = 92 THEN
		c1 = 7
		c2 = 8
	END IF
	IF tmpcolor = 93 THEN
		c1 = 7
		c2 = 9
	END IF
	IF tmpcolor = 94 THEN
		c1 = 7
		c2 = 10
	END IF
	IF tmpcolor = 95 THEN
		c1 = 7
		c2 = 11
	END IF
	IF tmpcolor = 96 THEN
		c1 = 7
		c2 = 12
	END IF
	IF tmpcolor = 97 THEN
		c1 = 7
		c2 = 13
	END IF
	IF tmpcolor = 98 THEN
		c1 = 7
		c2 = 14
	END IF
	IF tmpcolor = 99 THEN
		c1 = 7
		c2 = 15
	END IF
	IF tmpcolor = 100 THEN
		c1 = 8
		c2 = 8
	END IF
	IF tmpcolor = 101 THEN
		c1 = 8
		c2 = 9
	END IF
	IF tmpcolor = 102 THEN
		c1 = 8
		c2 = 10
	END IF
	IF tmpcolor = 103 THEN
		c1 = 8
		c2 = 11
	END IF
	IF tmpcolor = 104 THEN
		c1 = 8
		c2 = 12
	END IF
	IF tmpcolor = 105 THEN
		c1 = 8
		c2 = 13
	END IF
	IF tmpcolor = 106 THEN
		c1 = 8
		c2 = 14
	END IF
	IF tmpcolor = 107 THEN
		c1 = 8
		c2 = 15
	END IF
	IF tmpcolor = 108 THEN
		c1 = 9
		c2 = 9
	END IF
	IF tmpcolor = 109 THEN
		c1 = 9
		c2 = 10
	END IF
	IF tmpcolor = 110 THEN
		c1 = 9
		c2 = 11
	END IF
	IF tmpcolor = 111 THEN
		c1 = 9
		c2 = 12
	END IF
	IF tmpcolor = 112 THEN
		c1 = 9
		c2 = 13
	END IF
	IF tmpcolor = 113 THEN
		c1 = 9
		c2 = 14
	END IF
	IF tmpcolor = 114 THEN
		c1 = 9
		c2 = 15
	END IF
	IF tmpcolor = 115 THEN
		c1 = 10
		c2 = 10
	END IF
	IF tmpcolor = 116 THEN
		c1 = 10
		c2 = 11
	END IF
	IF tmpcolor = 117 THEN
		c1 = 10
		c2 = 12
	END IF
	IF tmpcolor = 118 THEN
		c1 = 10
		c2 = 13
	END IF
	IF tmpcolor = 119 THEN
		c1 = 10
		c2 = 14
	END IF
	IF tmpcolor = 120 THEN
		c1 = 10
		c2 = 15
	END IF
	IF tmpcolor = 121 THEN
		c1 = 11
		c2 = 11
	END IF
	IF tmpcolor = 122 THEN
		c1 = 11
		c2 = 12
	END IF
	IF tmpcolor = 123 THEN
		c1 = 11
		c2 = 13
	END IF
	IF tmpcolor = 124 THEN
		c1 = 11
		c2 = 14
	END IF
	IF tmpcolor = 125 THEN
		c1 = 11
		c2 = 15
	END IF
	IF tmpcolor = 126 THEN
		c1 = 12
		c2 = 12
	END IF
	IF tmpcolor = 127 THEN
		c1 = 12
		c2 = 13
	END IF
	IF tmpcolor = 128 THEN
		c1 = 12
		c2 = 14
	END IF
	IF tmpcolor = 129 THEN
		c1 = 12
		c2 = 15
	END IF
	IF tmpcolor = 130 THEN
		c1 = 13
		c2 = 13
	END IF
	IF tmpcolor = 131 THEN
		c1 = 13
		c2 = 14
	END IF
	IF tmpcolor = 132 THEN
		c1 = 13
		c2 = 15
	END IF
	IF tmpcolor = 133 THEN
		c1 = 14
		c2 = 14
	END IF
	IF tmpcolor = 134 THEN
		c1 = 14
		c2 = 15
	END IF
	IF tmpcolor = 135 THEN
		c1 = 15
		c2 = 15
	END IF

END SUB

SUB ycolor3

zgo = 0

FOR zchk = 1 TO 25
	IF t = 1 AND t1im(r) = zchk OR t = 2 AND t2im(r) = zchk OR t = 3 AND t3im(r) = zchk OR t = 4 AND t4im(r) = zchk OR t = 5 AND t5im(r) = zchk OR t = 6 AND t6im(r) = zchk OR t = 7 AND t7im(r) = zchk OR t = 8 AND t8im(r) = zchk THEN
		zgo = zchk
	END IF
	IF t = 9 AND t9im(r) = zchk OR t = 10 AND t10im(r) = zchk OR t = 11 AND t11im(r) = zchk OR t = 12 AND t12im(r) = zchk OR t = 13 AND t13im(r) = zchk OR t = 14 AND t14im(r) = zchk OR t = 15 AND t15im(r) = zchk OR t = 16 AND t16im(r) = zchk THEN
		zgo = zchk
	END IF
	IF t = 17 AND t17im(r) = zchk OR t = 18 AND t18im(r) = zchk OR t = 19 AND t19im(r) = zchk OR t = 20 AND t20im(r) = zchk OR t = 21 AND t21im(r) = zchk OR t = 22 AND t22im(r) = zchk OR t = 23 AND t23im(r) = zchk OR t = 24 AND t24im(r) = zchk THEN
		zgo = zchk
	END IF
	IF t = 25 AND t25im(r) = zchk OR t = 26 AND t26im(r) = zchk OR t = 27 AND t27im(r) = zchk OR t = 28 AND t28im(r) = zchk OR t = 29 AND t29im(r) = zchk OR t = 30 AND t30im(r) = zchk OR t = 31 AND t31im(r) = zchk OR t = 32 AND t32im(r) = zchk THEN
		zgo = zchk
	END IF
NEXT zchk

IF zgo = 1 THEN CALL z001
IF zgo = 2 THEN CALL z002
IF zgo = 3 THEN CALL z003
IF zgo = 4 THEN CALL z004
IF zgo = 5 THEN CALL z005
IF zgo = 6 THEN CALL z006
IF zgo = 7 THEN CALL z007
IF zgo = 8 THEN CALL z008
IF zgo = 9 THEN CALL z009
IF zgo = 10 THEN CALL z010
IF zgo = 11 THEN CALL z011
IF zgo = 12 THEN CALL z012
IF zgo = 13 THEN CALL z013
IF zgo = 14 THEN CALL z014


END SUB

SUB z001

	a = 6
	B = 0
	c = 0
	d = 0

	LINE (x + a, y + B)-(x + 11 - c, y + 12 - d), c1, BF

	FOR w = B TO 10 - d STEP 2

		FOR v = a TO 11 - c STEP 2
			PSET (v + x, y + w), c2
		NEXT v

		FOR v = 1 + a TO 11 - c STEP 2
			PSET (v + x, y + w + 1), c2
		NEXT v

	NEXT w

END SUB

SUB z002

	a = 0
	B = 6
	c = 0
	d = 0

	LINE (x + a, y + B)-(x + 11 - c, y + 12 - d), c1, BF

	FOR w = B TO 10 - d STEP 2

		FOR v = a TO 11 - c STEP 2
			PSET (v + x, y + w), c2
		NEXT v

		FOR v = 1 + a TO 11 - c STEP 2
			PSET (v + x, y + w + 1), c2
		NEXT v

	NEXT w

END SUB

SUB z003

	a = 0
	B = 6
	c = 6
	d = 0

	LINE (x + a, y + B - 6)-(x + 11 - c, y + 12 - d - 6), c1, BF

	FOR w = 0 TO 6 STEP 2

		FOR v = a TO 11 - c STEP 2
			PSET (v + x, y + w), c2
		NEXT v

		IF w = 6 THEN
		ELSE
			FOR v = 1 + a TO 11 - c STEP 2
				PSET (v + x, y + w + 1), c2
			NEXT v
		END IF

	NEXT w

END SUB

SUB z004

	a = 0
	B = 6
	c = 6
	d = 0

	LINE (x + a, y + B)-(x + 11 - c, y + 12 - d), c1, BF

	FOR w = B TO 10 - d STEP 2

		FOR v = a TO 11 - c STEP 2
			PSET (v + x, y + w), c2
		NEXT v

		FOR v = 1 + a TO 11 - c STEP 2
			PSET (v + x, y + w + 1), c2
		NEXT v

	NEXT w

END SUB

SUB z005

	a = 0
	B = 6
	c = 6
	d = 0
			   
	LINE (x + a + 6, y + B - 6)-(x + 11 - c + 6, y + 12 - d - 6), c1, BF

	FOR w = 0 TO 6 STEP 2

		FOR v = a + 6 TO 11 - c + 6 STEP 2
			PSET (v + x, y + w), c2
		NEXT v

		IF w = 6 THEN
		ELSE
			FOR v = 1 + a + 6 TO 11 - c + 6 STEP 2
				PSET (v + x, y + w + 1), c2
			NEXT v
		END IF

	NEXT w

END SUB

SUB z006

	a = 0
	B = 6
	c = 6
	d = 0

	LINE (x + a + 6, y + B)-(x + 11 - c + 6, y + 12 - d), c1, BF

	FOR w = B TO 10 - d STEP 2

		FOR v = a + 6 TO 11 - c + 6 STEP 2
			PSET (v + x, y + w), c2
		NEXT v

		FOR v = 7 + a TO 11 - c + 6 STEP 2
			PSET (v + x, y + w + 1), c2
		NEXT v

	NEXT w

END SUB

SUB z007

	a = 0
	B = 6
	c = 6
	d = 0
			  
	LINE (x + a + 6, y + B - 6)-(x + 11 - c + 6, y + 12 - d - 6), c1, BF

	FOR w = 0 TO 6 STEP 2

		FOR v = a + 6 TO 11 - c + 6 STEP 2
			PSET (v + x, y + w), c2
		NEXT v

		IF w = 6 THEN
		ELSE
			FOR v = 1 + a + 6 TO 11 - c + 6 STEP 2
				PSET (v + x, y + w + 1), c2
			NEXT v
		END IF

	NEXT w

	a = 0
	B = 6
	c = 6
	d = 0

	LINE (x + a, y + B)-(x + 11 - c, y + 12 - d), c1, BF

	FOR w = B TO 10 - d STEP 2

		FOR v = a TO 11 - c STEP 2
			PSET (v + x, y + w), c2
		NEXT v

		FOR v = 1 + a TO 11 - c STEP 2
			PSET (v + x, y + w + 1), c2
		NEXT v

	NEXT w


END SUB

SUB z008
 
	v = 11
	FOR w = 0 TO 12
		xtmp1 = x + 12
		xtmp2 = x + 12 - v
		ytmp = y + w
		LINE (x + 12, y + w)-(x + 12 - v, y + w), c1
		v = v - 1

		FOR xtmp = xtmp2 TO xtmp1 STEP 2
			PSET (xtmp, ytmp), c2
		NEXT xtmp

	NEXT w

END SUB

SUB z009
 
	v = 0
	FOR w = 0 TO 12
		xtmp1 = x + 12
		xtmp2 = x + 12 - v
		ytmp = y + w
		LINE (xtmp1, ytmp)-(xtmp2, ytmp), c1
		v = v + 1

		FOR xtmp = xtmp2 - 1 TO xtmp1 STEP 2
			PSET (xtmp, ytmp), c2
		NEXT xtmp

	NEXT w

END SUB

SUB z010

	v = 0
	vadd = 1
	FOR w = 0 TO 11
		LINE (x + 12, y + w)-(x + 12 - v, y + w), c1

		FOR xtmp = x + 13 - v TO x + 12 STEP 2
			PSET (xtmp, y + w), c2
		NEXT xtmp
	   
		IF v = 6 THEN vadd = -1
		v = v + vadd
	NEXT w

END SUB

SUB z011

	v = 0
	vadd = 1
	FOR w = 0 TO 11
		LINE (x + w, y)-(x + w, y + v), c1
	   
		FOR ytmp = y + v - 1 TO y STEP -2
			PSET (x + w, ytmp), c2
		NEXT ytmp
	   
		IF v = 6 THEN vadd = -1
		v = v + vadd
	NEXT w

END SUB

SUB z012

	v = 0
	vadd = 1
	FOR w = 0 TO 11
		LINE (x + v, y + w)-(x, y + w), c1
	   
		FOR xtmp = x + v - 1 TO x STEP -2
			PSET (xtmp, y + w), c2
		NEXT xtmp

		IF v = 6 THEN vadd = -1
		v = v + vadd
	NEXT w

END SUB

SUB z013

	v = 0
	vadd = 1
	FOR w = 0 TO 11
		LINE (x + w, y + 12)-(x + w, y - v + 12), c1
	   
		FOR ytmp = y - v + 11 TO y + 12 STEP 2
			PSET (x + w, ytmp), c2
		NEXT ytmp
	   
		IF v = 6 THEN vadd = -1
		v = v + vadd
	NEXT w

END SUB

SUB z014

	v = 0
	vadd = 1
	FOR w = 0 TO 11
		LINE (x + v, y + w)-(x, y + w), c1
	  
		FOR xtmp = x + v - 1 TO x STEP -2
			PSET (xtmp, y + w), c2
		NEXT xtmp

		IF v = 6 THEN vadd = -1
		v = v + vadd
	NEXT w


	v = 0
	vadd = 1
	FOR w = 0 TO 11
		LINE (x + 12, y + w)-(x + 12 - v, y + w), c1

		FOR xtmp = x + 13 - v TO x + 12 STEP 2
			PSET (xtmp, y + w), c2
		NEXT xtmp
	 
		IF v = 6 THEN vadd = -1
		v = v + vadd
	NEXT w

END SUB

SUB z0back
   
	LINE (x, y)-(x + 12, y + 12 - 1), c1, BF

	FOR w = 0 TO 11 STEP 2

		FOR v = 0 TO 12 STEP 2
			PSET (v + x, y + w), c2
		NEXT v

		FOR v = 1 TO 11 STEP 2
			PSET (v + x, y + w + 1), c2
		NEXT v

	NEXT w


END SUB