2 POKE53280,6:POKE53281,1:PRINT"[147][144]";TAB(6);"############################"
4 PRINTTAB(6);"####                    ####"
6 PRINTTAB(6);"####  CONSTRUCTION CO.  ####"
8 PRINTTAB(6);"####                    ####"
10 PRINTTAB(6);"####   BY B.W.BEHLING   ####"
12 PRINTTAB(6);"####                    ####"
14 PRINTTAB(6);"#### PUBLIC DOMAIN 1984 ####"
16 PRINTTAB(6);"####                    ####"
18 PRINTTAB(6);"############################"
20 PRINTTAB(9);" HIT ANY KEY TO START [144]"
22 GETK$:IFK$=""THEN22
24 PRINT"[145] HOW MANY HOUSES WILL YOU BUILD?  (1-5)"
26 GETK$:IFK$=""THEN26
28 IFASC(K$)<49ORASC(K$)>53THEN26
30 HN=VAL(K$):PRINT"[147]"
32 DIMMA(11,3),MA$(11,2):FORI=1TO11:MA(I,3)=0:NEXTI
34 SC=1024:CL=55296:WP=70:DA=0:HO=1:CA=35000:LA=35000+(35000*.12):LD=30
36 FORI=1TO11:READMA(I,1):READMA(I,2):NEXTI
38 FORA=1TO11:FORB=0TO2:READMA$(A,B):NEXTB:NEXTA
40 PRINT"[147]":POKE53280,4:POKE53281,0:GOSUB100:GOSUB510:GOTO800
100 PRINT"";TAB(27);"DAY  HOURS":PRINT"";TAB(27);DA;TAB(33);HC
102 PRINTTAB(27);"$";CA:PRINTTAB(27);"WORKERS";WO:PRINTTAB(27);"MATERIALS"
104 PRINT:FORI=1TO11:PRINTTAB(27);MA$(I,0);MA(I,3):NEXTI:RETURN
150 TR=TR-249:ONTRGOTO160
152 IFDA=1THENRETURN
154 MSG$=" YOUR MATERIALS WERE STOLEN OVERNIGHT!!":GOSUB510
156 GOSUB500:PRINT"":FORS=1TO11:PRINTTAB(33);"      "
158 MA(S,3)=0:NEXTS:GOSUB100:GOSUB190:GOTO604
160 MSG$="[145] YOU WERE ARRESTED FOR BRIBING A ":GOSUB510:GOSUB500
164 MSG$=" BUILDING INSPECTOR. NO WORK TODAY!":GOSUB500:GOSUB190:GOTO600
190 FORD=1TO2000:NEXTD:RETURN
200 DEFFNRN(VA)=(.01)*INT(RND(0)*VA)
202 FORI=1TO11:MA(I,0)=MA(I,1)+FNRN(MA(I,2)):NEXTI:FORP=1TO11
204 PRINT""
206 IFMA(P,0)<MA(P,1)+((MA(P,2)*.01)/2)THEN210
208 PRINT"I HAVE ";MA$(P,1);" @ $";MA(P,0);"[157] ";MA$(P,2):GOTO212
210 PRINT"[159]I HAVE ";MA$(P,1);" ON SALE @ $";MA(P,0);"[157] ";MA$(P,2)
212 INPUT"HOW MANY DO YOU WANT";QU
214 IFQU<0THENP=11:GOTO228
216 IFQU+MA(P,3)<=99999THEN220
218 MSG$=" YOU DON'T HAVE ROOM FOR THAT MUCH!! ":GOSUB510:GOSUB500:GOTO224
220 IFQU*MA(P,0)<=CATHEN226
222 MSG$=" YOU CAN'T AFFORD THAT! ":GOSUB510:GOSUB500
224 GOSUB190:GOSUB510:GOTO204
226 MA(P,3)=MA(P,3)+QU:PP=MA(P,0)*QU:CA=CA-PP:CA=.01*INT(CA*100)
228 GOSUB350:GOSUB100:GOSUB510:NEXTP:RETURN
250 PRINT"":FORE=1TOM:PRINT:NEXTE
252 PRINTTAB(33);"      ":GOSUB100:IFM=1THENM=2:GOTO250
254 HD=INT(HR/WO):IFHD>HCTHENHC=HD:GOSUB100
256 IFHR<QTTHENRETURN
258 HR=0:CA=CA-(70*WO):MSG$=" WORK FINISHED FOR TODAY. CREW PAID.":GOSUB500
260 GOSUB350:GOSUB190:HC=0:GOSUB600:RETURN
300 MSG$=" HOW MUCH? 1=$15000 2=$30000 3=$45000 ":GOSUB500:LD=DA+30
302 GETK$:IFK$=""THEN302
304 IFASC(K$)<49ORASC(K$)>51THEN302
306 LA=15000*VAL(K$):CA=CA+LA:LA=LA+(LA*.12):GOSUB510
350 CA=.01*INT(CA*100)
352 PRINTCHR$(19);"";TAB(27);"            ";"[157][157][157][157][157][157][157][157][157][157][157][157]$";CA:RETURN
400 MSG$=" YOU ARE BANKRUPT!!!! ":GOSUB500:GOSUB190
402 PRINT"[147][144]":POKE53281,1:GOTO936
500 PRINT"";MSG$:RETURN
510 FORI=840TO1000:POKESC+I,160:POKECL+I,5:NEXTI:RETURN
600 DA=DA+1:PRINT"";TAB(27);DA;TAB(33);HC
602 TR=INT(RND(0)*250)+1:IFTR>248THENGOTO150
604 GOSUB510:IFDA<>LDTHEN610
606 MSG$=" YOUR LOAN IS DUE TODAY.":GOSUB500:GOSUB190:GOSUB510
608 CA=CA-LA:LA=0:LD=0:GOSUB350
610 IFCA<=0THENGOTO400
612 IFLA<>0 OR CA>4999THEN620
614 MSG$=" DO YOU WANT TO TAKE A LOAN? ":GOSUB510:GOSUB500
616 GETK$:IFK$=""THEN616
618 IFK$="Y"THENGOSUB510:GOSUB300
620 GOSUB510:MSG$=" HOW MANY WORKERS DO YOU NEED TODAY? ":GOSUB500
622 MSG$=" ENTER NUMBER. (1-9) ":GOSUB500
624 GETK$:IFK$=""THEN624
626 IFASC(K$)<49ORASC(K$)>57THEN624
628 WO=VAL(K$):QT=WO*8:PRINT"";TAB(34);WO:GOSUB510
630 MSG$=" DO YOU NEED MATERIALS? ":GOSUB500
632 GETK$:IFK$=""THEN632
634 IFK$="Y"THENGOSUB510:GOSUB200
636 GOSUB510:MSG$=" WORK IN PROGRESS. ":GOSUB500:RETURN
700 GOSUB250:PRINT" YOU RAN OUT OF MATERIALS!!"
702 PRINT" CREW WAS PAID AND SENT HOME AFTER";HC;"[157] HRS":CA=CA-(70*WO):HC=0
704 GOSUB350:HR=0:GOSUB190:GOSUB600:RETURN
800 GOSUB600:BU=0:HR=0
802 BU=BU+10:MA(1,3)=MA(1,3)-10:MA(2,3)=MA(2,3)-8:HR=HR+.1:M=1
804 IFMA(1,3)<0 OR MA(2,3)<0THENGOSUB700
806 IFBU<100THENGOSUB250:GOTO802
808 BU=0:READX:READZ:IFX=-1THENBU=0:HR=QT:GOTO812
810 POKESC+X,Z+200:POKECL+X,9:GOSUB250:GOTO802
812 MSG$=" BRICK FINISHED!":GOSUB510:GOSUB500:GOSUB190:M=3:GOTO816
814 LU=LU+3:MA(3,3)=MA(3,3)-3:IFMA(3,3)<0THENGOSUB700
816 GOSUB250:IFLU=6THENLU=0:HR=HR+1.5
818 READX:READZ:IFX=-1THENLU=0:HR=QT:GOTO822
820 POKESC+X,Z:POKECL+X,7:GOTO814
822 MSG$=" FRAME FINISHED!":GOSUB510:GOSUB500:GOSUB190:M=4:GOTO826
824 SH=SH+2:MA(4,3)=MA(4,3)-2:IFMA(4,3)<0THENGOSUB700
826 GOSUB250:IFSH<10THEN824
828 SH=0:HR=HR+1:READX:READZ:IFX=-1THENSH=0:HR=QT:GOTO832
830 POKESC+X,Z:POKECL+X,11:GOTO824
832 MSG$=" ROOF FINISHED!":GOSUB510:GOSUB500:GOSUB190:M=5:GOTO836
834 M=5:PI=PI+3:MA(5,3)=MA(5,3)-3:IFMA(5,3)<0THENGOSUB700
836 GOSUB250
838 M=6:MA(6,3)=MA(6,3)-7:IFMA(6,3)<0THENGOSUB700
840 GOSUB250:HR=HR+1:IFPI<499THEN834
842 PI=0:HR=QT:MSG$=" PLUMBING & WIRING FINISHED!":GOSUB510:GOSUB500
844 GOSUB190:M=3:GOTO848
846 LU=LU+3:MA(3,3)=MA(3,3)-3:IFMA(3,3)<0THENGOSUB700
848 GOSUB250:IFLU=6THENLU=0:HR=HR+1
850 READX:IFX=-1THEN858
852 POKESC+X,160:POKECL+X,7:GOTO846
854 LU=LU+3:MA(3,3)=MA(3,3)-3:IFMA(3,3)<0THENGOSUB700
856 GOSUB250:IFLU=6THENLU=0:HR=HR+1
858 READX:READZ:IFX=-1THENLU=0:HR=QT:GOTO862
860 POKESC+X,Z:POKECL+X,7:GOTO854
862 MSG$=" SIDES FINISHED!":GOSUB510:GOSUB500:GOSUB190:M=7:GOTO866
864 PL=PL+3:MA(7,3)=MA(7,3)-3:IFMA(7,3)<0THENGOSUB700
866 GOSUB250:HR=HR+.5:IFPL<799THEN864
868 MSG$=" PLASTERING FINISHED!":GOSUB510:GOSUB500:PL=0:HR=QT
870 GOSUB190:M=8:GOTO874
872 HR=HR+1.5:MA(8,3)=MA(8,3)-1:IFMA(8,3)<0THENGOSUB700
874 GOSUB250
876 FORT=1TO3:READX:READZ:IFX=-1THENT=0:HR=QT:GOTO880
878 POKESC+X,Z:POKECL+X,1:NEXTT:GOTO872
880 MSG$=" WINDOWS FINISHED!":GOSUB510:GOSUB500:GOSUB190:M=3:GOTO884
882 HR=HR+.5:MA(3,3)=MA(3,3)-4:IFMA(3,3)<0THENGOSUB700
884 GOSUB250:READX:IFX=-1THEN888
886 POKESC+X,35:POKECL+X,1:GOTO882
888 MSG$=" FENCE FINISHED!":GOSUB510:GOSUB500:GOSUB190:M=9:GOSUB636
890 HR=HR+2:MA(9,3)=MA(9,3)-1:IFMA(9,3)<0THENGOSUB700
892 GOSUB250:READX:READZ:IFX=-1THEN896
894 POKESC+X,Z:POKECL+X,8:GOTO890
896 M=10:GOSUB636
898 IFMA(10,3)<=0THENGOSUB700
900 HR=HR+.25:GOSUB250:READX:READZ:IFX=-1THEN904
902 POKESC+X,Z:POKECL+X,8:GOTO900
904 MA(10,3)=MA(10,3)-1:GOSUB250:MSG$=" DOORS FINISHED!":GOSUB510
906 GOSUB500:GOSUB190:M=2:HR=QT:GOTO910
908 HR=HR+1.5:MA(2,3)=MA(2,3)-10:IFMA(2,3)<0THENGOSUB700
910 GOSUB250:READX:IFX=-1THENHR=QT:GOTO914
912 X=X+810:POKESC+X,160:POKECL+X,12:GOTO908
914 MSG$=" SIDEWALK FINISHED!":GOSUB510:GOSUB500:GOSUB190:GOSUB250:M=11:CO=13
916 PA=PA+1:IFMA(11,3)<0THENGOSUB700
918 READX:IFX=-1THENCO=CO+1:IFCO=15THEN924
920 POKECL+X,CO:IFPA<5THEN916
922 HR=HR+4:MA(11,3)=MA(11,3)-1:GOSUB250:PA=0:GOTO916
924 HO=HO+1:CA=CA+50000:GOSUB350:IFHO>HNTHEN934
926 MSG$="[145] HOUSE FINISHED!!":GOSUB510:GOSUB500
928 MSG$=" HIT ANY KEY TO START NEXT HOUSE.":GOSUB500
930 GETK$:IFK$=""THEN930
932 RESTORE:GOTO36
934 PRINT"[147]":POKE53281,1:PRINT"";TAB(6);"[144]YOU FINISHED THE CONTRACT!!"
936 CA=CA-LA:CA$=STR$(CA):IFVAL(CA$)<0THEN944
938 PRINTTAB(4);"AFTER PAYING YOUR DEBTS YOU MADE:"
940 PRINTTAB(19-INT(LEN(CA$)/2));"$";CA$
942 PRINTTAB(11);"CONGRATULATIONS!!!":GOTO950
944 PRINTTAB(7);"TOO BAD YOU OWE THE BANK:"
946 PRINTTAB(19-INT(LEN(CA$)/2));"$";CA$
948 PRINTTAB(5);"AND HAD TO RETIRE IN DISGRACE."
950 PRINT"";TAB(8);"[144]PRESS [F1] TO PLAY AGAIN"
952 GETK$:IFK$=""THEN952
954 IFK$="[133]"THENRUN2
956 END
1000 REM ***** DATA STARTS *****
1002 DATA.15,60,.10,25,1.5,200,1.5,200,2,300,.2,30,.09,15,60,4500
1004 DATA75,5000,300,20000,10,1000,"BRICK","BRICKS","EACH","CEMNT"
1006 DATA"CEMENT","PER LB.","WOOD ","BOARDS","EA.","SHING"
1008 DATA"SHINGLES","EA.","PIPES","PIPE","EACH","WIRE ","WIRE"
1010 DATA"PER FT.","PLSTR","PLASTER","PER LB.","WINDW","WINDOWS"
1012 DATA"EACH","DOORS","DOORS","EACH","G.DR.","GA. DOORS","EA."
1014 DATA"PAINT","PAINT","GALLON",801,42,802,41,803,42,804,41,805
1016 DATA42,806,41,807,42,808,41,809,42,810,41,814,41,815,42,823
1018 DATA42,824,41,825,42,826,41,761,41,762,42,763,41,764,42,765
1020 DATA41,766,42,767,41,768,42,769,41,770,42,774,42,775,41,783
1022 DATA41,784,42,785,41,786,42,721,42,722,41,723,42,724,41,725
1024 DATA42,726,41,727,42,728,41,729,42,730,41,734,41,735,42,743
1026 DATA42,744,41,745,42,746,41,681,41,682,42,683,41,684,42,641
1028 DATA42,642,41,643,42,644,41,601,41,602,42,603,41,604,42,561
1030 DATA42,562,41,563,42,564,41,521,41,522,42,523,41,524,42,481
1032 DATA42,482,41,483,42,484,41,441,41,442,42,443,41,444,42,401
1034 DATA33,402,41,403,42,404,23,362,42,363,41,322,41,323,42,282
1036 DATA42,283,41,242,41,243,42,202,42,203,41,162,41,163,42,122
1038 DATA42,123,41,82,41,83,42,42,42,43,41,2,41,3,42,-1,-1,771
1040 DATA101,773,103,731,101,691,101,651,101,611,101,733,103,693
1042 DATA103,653,103,613,103,571,79,572,119,573,80,776,101,736,101
1044 DATA696,101,656,101,616,101,782,103,742,103,702,103,662,103
1046 DATA622,103,576,79,577,119,578,119,579,119,580,119,581,119
1048 DATA582,80,681,76,641,101,601,101,561,101,521,101,481,101,682
1050 DATA111,683,111,684,111,685,111,686,111,687,111,688,111,689
1052 DATA111,690,111,531,101,491,101,694,111,695,76,655,76,615,76
1054 DATA575,76,535,101,495,101,481,79,482,119,483,119,484,119,485
1056 DATA119,486,119,487,119,488,119,489,119,490,119,491,79,492
1058 DATA119,493,119,494,119,682,76,642,101,602,101,562,101,522
1060 DATA101,482,79,690,76,650,79,610,79,570,79,530,101,490,79,602
1062 DATA76,603,111,604,111,605,111,606,111,607,111,608,111,609
1064 DATA122,569,103,529,80,522,79,523,119,524,119,525,119,526,119
1065 DATA527,119,528,119,683,76,643,101,684,76,644,101,685,76,645
1066 DATA101,686,76,646,101,687,76,647,101,688,76,648,101,689,76
1068 DATA649,101,641,79,601,79,561,79,521,79,481,79,482,79,483,79
1070 DATA484,79,485,79,486,79,487,79,488,79,489,79,532,101,492,79
1072 DATA533,101,493,79,534,76,494,79,654,111,614,111,574,111,703
1074 DATA122,704,122,705,122,706,122,663,103,623,103,583,103,664
1075 DATA103,624,103,584,103,665,103,625,103,585,103,666,103,626
1076 DATA103,586,103,546,80,545,80,544,80,543,80,542,80,541,80,540
1078 DATA80,539,80,538,80,537,80,536,80,535,79,441,101,401,101,361
1080 DATA101,321,101,281,101,241,101,454,101,414,101,374,101,334
1082 DATA101,294,101,254,101,240,119,241,79,242,119,243,119,244
1083 DATA119,245,119,246,119,247,119,248,119,249,119,250,119,251
1084 DATA119,252,119,253,119,455,101,415,101,375,101,335,101,295
1086 DATA101,255,101,215,101,502,103,462,103,422,103,382,103,342
1088 DATA103,302,103,262,103,222,103,215,79,216,119,217,119,218
1090 DATA119,219,119,220,119,221,119,222,80,498,101,458,101,418
1091 DATA101,378,101,338,101,298,101,258,101,218,79,499,103,459
1092 DATA103,419,103,379,103,339,103,299,103,259,103,219,80,496
1094 DATA101,501,103,456,101,461,103,416,76,417,122,420,76,421,122
1096 DATA376,101,377,103,380,101,381,103,336,101,337,103,340,101
1098 DATA341,103,296,79,297,80,300,79,301,80,256,101,261,103,216
1099 DATA79,221,80,454,79,414,79,374,79,334,79,294,79,254,79,442
1100 DATA101,402,101,362,101,322,101,282,101,242,79,441,79,401,79
1102 DATA361,79,321,79,281,79,282,79,283,119,284,119,285,119,286
1104 DATA119,287,119,288,119,289,119,290,119,291,119,292,119,293
1106 DATA80,333,103,373,103,413,122,412,111,411,111,410,111,409
1107 DATA111,408,111,407,111,406,111,405,111,404,111,403,111,402
1108 DATA76,445,101,405,76,365,101,325,101,285,79,245,79,446,101
1110 DATA406,76,366,101,326,101,286,79,246,79,447,101,407,76,367
1112 DATA101,327,101,287,79,247,79,448,101,408,76,368,101,328,101
1114 DATA288,79,248,79,449,101,409,76,369,101,329,101,289,79,249
1115 DATA79,450,101,410,76,370,101,330,101,290,79,250,79,451,101
1116 DATA411,76,371,101,331,101,291,79,251,79,325,76,326,76,327,76
1118 DATA328,76,329,76,330,76,495,79,496,79,497,119,498,79,499,80
1120 DATA500,119,501,80,502,80,458,79,459,80,418,79,419,80,378,79
1122 DATA379,80,338,79,339,80,298,79,299,80,255,79,256,79,257,119
1123 DATA258,79,259,80,260,119,261,80,262,80,178,76,179,122,138,79
1124 DATA139,80,177,79,180,80,137,79,140,80,98,79,99,80,176,79,181
1126 DATA80,59,77,100,77,141,77,182,77,223,77,58,78,97,78,136,78
1128 DATA175,78,214,78,45,77,86,77,127,77,168,77,209,77,44,78,83
1130 DATA78,122,78,161,78,200,78,5,100,6,100,7,100,8,100,9,100,10
1132 DATA100,11,100,12,100,13,100,14,100,15,100,16,100,17,100,18
1134 DATA100,51,77,92,77,133,77,174,77,50,78,89,78,128,78,167,78
1136 DATA206,78,55,77,96,77,54,78,93,78,132,78,171,78,210,78,48,77
1138 DATA89,86,130,77,171,86,212,77,47,78,86,86,125,78,164,78,203
1140 DATA78,200,233,201,160,202,160,203,160,204,160,205,160,206
1142 DATA160,207,160,208,160,209,160,210,160,211,160,212,160,213
1144 DATA160,214,105,161,233,162,160,163,160,164,160,165,160,166
1146 DATA160,167,160,168,160,169,160,170,160,171,160,172,160,173
1148 DATA160,174,160,175,105,122,233,123,160,124,160,125,160,126
1150 DATA160,127,160,128,160,129,160,130,160,131,160,132,160,133
1151 DATA160,134,160,135,160,136,105,83,233,84,160,85,160,86,160
1152 DATA87,160,88,160,89,160,90,160,91,160,92,160,93,160,94,160
1154 DATA95,160,96,160,97,105,44,233,5,32,45,160,6,32,46,160,7,32
1156 DATA47,160,8,32,48,160,9,32,49,160,10,32,50,160,11,32,51,160
1158 DATA12,32,52,160,13,32,53,160,14,32,54,160,15,32,55,160,16,32
1160 DATA56,160,17,32,57,160,18,32,58,105,323,32,363,32,443,32,444
1162 DATA32,563,32,564,32,-1,-1,200,233,201,250,202,250,203,250
1164 DATA204,250,205,250,206,250,207,250,208,250,209,250,210,250
1166 DATA211,250,212,250,213,250,214,105,161,233,162,204,163,204
1168 DATA164,204,165,204,166,204,167,204,168,204,169,204,170,204
1170 DATA171,204,172,204,173,204,174,204,175,105,122,233,123,250
1172 DATA124,250,125,250,126,250,127,250,128,250,129,250,130,250
1174 DATA131,250,132,250,133,250,134,250,135,250,136,105,83,233,84
1176 DATA204,85,204,86,204,87,204,88,204,89,204,90,204,91,204,92
1178 DATA204,93,204,94,204,95,204,96,204,97,105,44,233,45,250,46
1180 DATA250,47,250,48,250,49,250,50,250,51,250,52,250,53,250,54
1182 DATA250,55,250,56,250,57,250,58,105,223,77,182,77,141,77,100
1184 DATA77,59,77,-1,-1,681,682,683,684,685,686,687,688,689,690,641
1186 DATA650,601,561,521,610,570,530,531,532,533,534,694,695,654
1188 DATA655,614,615,574,575,704,705,706,664,665,666,624,625,626
1190 DATA584,585,586,544,545,546,481,482,483,484,485,486,487,488
1192 DATA489,490,491,492,493,441,442,443,444,445,446,447,448,449
1194 DATA450,451,452,453,405,406,407,408,409,410,365,366,367,368
1196 DATA369,370,325,326,327,328,329,330,285,286,287,288,289,290
1198 DATA401,361,321,281,241,242,243,244,245,246,247,248,249,250
1200 DATA251,252,253,495,496,497,498,499,500,501,502,455,456,457
1202 DATA458,459,460,461,462,255,256,257,258,259,260,261,262,215
1203 DATA216,217,218,219,220,221,222,415,375,335,295,422,382,342
1204 DATA302,418,419,378,379,338,339,298,299,176,180,181,140,98,99
1206 DATA-1,535,247,536,247,537,247,538,247,539,247,540,247,541
1208 DATA247,542,247,543,247,544,247,545,247,546,247,703,231,663
1210 DATA231,623,231,583,231,543,208,494,231,454,231,414,231,374
1212 DATA231,334,231,294,231,254,231,602,32,603,32,604,32,605,32
1214 DATA606,32,607,32,608,32,609,32,642,247,643,247,644,247,645
1215 DATA247,646,247,647,247,648,247,649,247,562,32,569,32,522,32
1216 DATA523,32,524,32,525,32,526,32,527,32,528,32,529,32,138,32
1218 DATA139,32,178,32,179,32,137,231,177,231,240,32,-1,-1,602,207
1220 DATA603,208,562,207,563,208,522,207,523,208,608,207,609,208
1222 DATA568,207,569,208,528,207,529,208,604,160,605,160,606,160
1224 DATA607,160,564,207,569,208,528,207,529,208,604,160,605,160
1226 DATA606,160,607,160,564,160,565,160,566,160,567,160,524,247
1228 DATA525,247,526,247,527,247,402,204,403,239,404,250,362,207
1230 DATA363,247,364,208,322,229,323,160,324,231,282,207,283,247
1232 DATA284,208,411,204,412,239,413,250,371,207,372,247,373,208
1233 DATA331,229,332,160,333,231,291,207,292,247,293,208,416,204
1234 DATA417,250,376,207,377,208,336,229,337,231,296,207,297,208
1236 DATA420,204,421,250,380,207,381,208,340,229,341,231,300,207
1238 DATA301,208,178,250,179,250,138,208,139,208,-1,-1,495,496,497
1242 DATA498,499,500,501,502,503,504,505,506,801,802,803,804,805
1244 DATA806,807,808,809,810,814,815,823,824,825,826,-1,571,207
1246 DATA611,229,651,229,691,229,731,229,771,229,572,247,612,111
1248 DATA652,32,692,160,732,160,772,160,573,208,613,231,653,231
1250 DATA693,215,733,231,773,231,-1,-1,576,207,577,247,578,247,579
1252 DATA247,580,247,581,247,582,208,616,207,617,247,618,247,619
1254 DATA247,620,247,621,247,622,208,656,207,657,247,658,247,659
1256 DATA247,660,247,661,247,662,208,696,207,697,247,698,247,699
1258 DATA247,700,247,701,247,702,208,736,207,737,247,738,247,739
1260 DATA247,740,247,741,247,742,208,776,207,777,247,778,247,779
1262 DATA247,780,247,781,247,782,208,-1,-1,1,2,3,6,7,8,9,10,11,12
1264 DATA-1,641,642,643,644,645,646,647,648,649,650,690,610,570,530
1266 DATA601,561,521,681,682,683,684,685,686,687,688,689,531,532
1268 DATA533,534,574,575,614,615,654,655,694,695,535,536,537,538
1270 DATA539,540,541,542,543,583,623,663,703,704,705,706,664,665
1272 DATA665,666,624,625,626,584,585,586,544,545,546,481,482,483
1274 DATA484,485,486,487,488,489,490,491,492,493,494,441,442,443
1276 DATA444,445,401,361,321,281,241,242,243,244,245,285,325,365
1278 DATA405,450,451,452,453,454,410,370,330,290,250,251,252,253
1280 DATA254,294,334,374,414,446,447,448,449,406,407,408,409,366
1282 DATA367,368,369,326,327,328,329,286,287,288,289,246,247,248
1284 DATA249,455,456,457,458,459,460,461,462,415,375,335,295,422
1286 DATA382,342,302,255,215,176,137,177,98,99,140,180,181,222,262
1288 DATA256,257,258,259,260,261,216,217,218,219,220,221,418,419
1290 DATA378,379,338,339,298,299,-1,571,611,651,691,731,771,572
1292 DATA612,652,692,732,772,573,613,653,693,733,773,576,577,578
1294 DATA579,580,581,582,616,617,618,619,620,621,622,656,657,658
1296 DATA659,660,661,662,696,697,698,699,700,701,702,736,737,738
1298 DATA739,740,741,742,776,777,778,779,780,781,782,-1