home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_022_19xx_-_de_Disk_2_of_4_Side_B.d64 / hausbau-simu (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  16KB  |  325 lines
  1. 2 poke53280,6:poke53281,1:print"[147][144]";tab(6);"############################"
  2. 4 printtab(6);"####                    ####"
  3. 6 printtab(6);"####  construction co.  ####"
  4. 8 printtab(6);"####                    ####"
  5. 10 printtab(6);"####   by b.w.behling   ####"
  6. 12 printtab(6);"####                    ####"
  7. 14 printtab(6);"#### public domain 1984 ####"
  8. 16 printtab(6);"####                    ####"
  9. 18 printtab(6);"############################"
  10. 20 printtab(9);" hit any key to start [144]"
  11. 22 getk$:ifk$=""then22
  12. 24 print"[145] how many houses will you build?  (1-5)"
  13. 26 getk$:ifk$=""then26
  14. 28 ifasc(k$)<49orasc(k$)>53then26
  15. 30 hn=val(k$):print"[147]"
  16. 32 dimma(11,3),ma$(11,2):fori=1to11:ma(i,3)=0:nexti
  17. 34 sc=1024:cl=55296:wp=70:da=0:ho=1:ca=35000:la=35000+(35000*.12):ld=30
  18. 36 fori=1to11:readma(i,1):readma(i,2):nexti
  19. 38 fora=1to11:forb=0to2:readma$(a,b):nextb:nexta
  20. 40 print"[147]":poke53280,4:poke53281,0:gosub100:gosub510:goto800
  21. 100 print"";tab(27);"day  hours":print"";tab(27);da;tab(33);hc
  22. 102 printtab(27);"$";ca:printtab(27);"workers";wo:printtab(27);"materials"
  23. 104 print:fori=1to11:printtab(27);ma$(i,0);ma(i,3):nexti:return
  24. 150 tr=tr-249:ontrgoto160
  25. 152 ifda=1thenreturn
  26. 154 msg$=" your materials were stolen overnight!!":gosub510
  27. 156 gosub500:print"":fors=1to11:printtab(33);"      "
  28. 158 ma(s,3)=0:nexts:gosub100:gosub190:goto604
  29. 160 msg$="[145] you were arrested for bribing a ":gosub510:gosub500
  30. 164 msg$=" building inspector. no work today!":gosub500:gosub190:goto600
  31. 190 ford=1to2000:nextd:return
  32. 200 deffnrn(va)=(.01)*int(rnd(0)*va)
  33. 202 fori=1to11:ma(i,0)=ma(i,1)+fnrn(ma(i,2)):nexti:forp=1to11
  34. 204 print""
  35. 206 ifma(p,0)<ma(p,1)+((ma(p,2)*.01)/2)then210
  36. 208 print"i have ";ma$(p,1);" @ $";ma(p,0);"[157] ";ma$(p,2):goto212
  37. 210 print"[159]i have ";ma$(p,1);" on sale @ $";ma(p,0);"[157] ";ma$(p,2)
  38. 212 input"how many do you want";qu
  39. 214 ifqu<0thenp=11:goto228
  40. 216 ifqu+ma(p,3)<=99999then220
  41. 218 msg$=" you don't have room for that much!! ":gosub510:gosub500:goto224
  42. 220 ifqu*ma(p,0)<=cathen226
  43. 222 msg$=" you can't afford that! ":gosub510:gosub500
  44. 224 gosub190:gosub510:goto204
  45. 226 ma(p,3)=ma(p,3)+qu:pp=ma(p,0)*qu:ca=ca-pp:ca=.01*int(ca*100)
  46. 228 gosub350:gosub100:gosub510:nextp:return
  47. 250 print"":fore=1tom:print:nexte
  48. 252 printtab(33);"      ":gosub100:ifm=1thenm=2:goto250
  49. 254 hd=int(hr/wo):ifhd>hcthenhc=hd:gosub100
  50. 256 ifhr<qtthenreturn
  51. 258 hr=0:ca=ca-(70*wo):msg$=" work finished for today. crew paid.":gosub500
  52. 260 gosub350:gosub190:hc=0:gosub600:return
  53. 300 msg$=" how much? 1=$15000 2=$30000 3=$45000 ":gosub500:ld=da+30
  54. 302 getk$:ifk$=""then302
  55. 304 ifasc(k$)<49orasc(k$)>51then302
  56. 306 la=15000*val(k$):ca=ca+la:la=la+(la*.12):gosub510
  57. 350 ca=.01*int(ca*100)
  58. 352 printchr$(19);"";tab(27);"            ";"[157][157][157][157][157][157][157][157][157][157][157][157]$";ca:return
  59. 400 msg$=" you are bankrupt!!!! ":gosub500:gosub190
  60. 402 print"[147][144]":poke53281,1:goto936
  61. 500 print"";msg$:return
  62. 510 fori=840to1000:pokesc+i,160:pokecl+i,5:nexti:return
  63. 600 da=da+1:print"";tab(27);da;tab(33);hc
  64. 602 tr=int(rnd(0)*250)+1:iftr>248thengoto150
  65. 604 gosub510:ifda<>ldthen610
  66. 606 msg$=" your loan is due today.":gosub500:gosub190:gosub510
  67. 608 ca=ca-la:la=0:ld=0:gosub350
  68. 610 ifca<=0thengoto400
  69. 612 ifla<>0 or ca>4999then620
  70. 614 msg$=" do you want to take a loan? ":gosub510:gosub500
  71. 616 getk$:ifk$=""then616
  72. 618 ifk$="y"thengosub510:gosub300
  73. 620 gosub510:msg$=" how many workers do you need today? ":gosub500
  74. 622 msg$=" enter number. (1-9) ":gosub500
  75. 624 getk$:ifk$=""then624
  76. 626 ifasc(k$)<49orasc(k$)>57then624
  77. 628 wo=val(k$):qt=wo*8:print"";tab(34);wo:gosub510
  78. 630 msg$=" do you need materials? ":gosub500
  79. 632 getk$:ifk$=""then632
  80. 634 ifk$="y"thengosub510:gosub200
  81. 636 gosub510:msg$=" work in progress. ":gosub500:return
  82. 700 gosub250:print" you ran out of materials!!"
  83. 702 print" crew was paid and sent home after";hc;"[157] hrs":ca=ca-(70*wo):hc=0
  84. 704 gosub350:hr=0:gosub190:gosub600:return
  85. 800 gosub600:bu=0:hr=0
  86. 802 bu=bu+10:ma(1,3)=ma(1,3)-10:ma(2,3)=ma(2,3)-8:hr=hr+.1:m=1
  87. 804 ifma(1,3)<0 or ma(2,3)<0thengosub700
  88. 806 ifbu<100thengosub250:goto802
  89. 808 bu=0:readx:readz:ifx=-1thenbu=0:hr=qt:goto812
  90. 810 pokesc+x,z+200:pokecl+x,9:gosub250:goto802
  91. 812 msg$=" brick finished!":gosub510:gosub500:gosub190:m=3:goto816
  92. 814 lu=lu+3:ma(3,3)=ma(3,3)-3:ifma(3,3)<0thengosub700
  93. 816 gosub250:iflu=6thenlu=0:hr=hr+1.5
  94. 818 readx:readz:ifx=-1thenlu=0:hr=qt:goto822
  95. 820 pokesc+x,z:pokecl+x,7:goto814
  96. 822 msg$=" frame finished!":gosub510:gosub500:gosub190:m=4:goto826
  97. 824 sh=sh+2:ma(4,3)=ma(4,3)-2:ifma(4,3)<0thengosub700
  98. 826 gosub250:ifsh<10then824
  99. 828 sh=0:hr=hr+1:readx:readz:ifx=-1thensh=0:hr=qt:goto832
  100. 830 pokesc+x,z:pokecl+x,11:goto824
  101. 832 msg$=" roof finished!":gosub510:gosub500:gosub190:m=5:goto836
  102. 834 m=5:pi=pi+3:ma(5,3)=ma(5,3)-3:ifma(5,3)<0thengosub700
  103. 836 gosub250
  104. 838 m=6:ma(6,3)=ma(6,3)-7:ifma(6,3)<0thengosub700
  105. 840 gosub250:hr=hr+1:ifpi<499then834
  106. 842 pi=0:hr=qt:msg$=" plumbing & wiring finished!":gosub510:gosub500
  107. 844 gosub190:m=3:goto848
  108. 846 lu=lu+3:ma(3,3)=ma(3,3)-3:ifma(3,3)<0thengosub700
  109. 848 gosub250:iflu=6thenlu=0:hr=hr+1
  110. 850 readx:ifx=-1then858
  111. 852 pokesc+x,160:pokecl+x,7:goto846
  112. 854 lu=lu+3:ma(3,3)=ma(3,3)-3:ifma(3,3)<0thengosub700
  113. 856 gosub250:iflu=6thenlu=0:hr=hr+1
  114. 858 readx:readz:ifx=-1thenlu=0:hr=qt:goto862
  115. 860 pokesc+x,z:pokecl+x,7:goto854
  116. 862 msg$=" sides finished!":gosub510:gosub500:gosub190:m=7:goto866
  117. 864 pl=pl+3:ma(7,3)=ma(7,3)-3:ifma(7,3)<0thengosub700
  118. 866 gosub250:hr=hr+.5:ifpl<799then864
  119. 868 msg$=" plastering finished!":gosub510:gosub500:pl=0:hr=qt
  120. 870 gosub190:m=8:goto874
  121. 872 hr=hr+1.5:ma(8,3)=ma(8,3)-1:ifma(8,3)<0thengosub700
  122. 874 gosub250
  123. 876 fort=1to3:readx:readz:ifx=-1thent=0:hr=qt:goto880
  124. 878 pokesc+x,z:pokecl+x,1:nextt:goto872
  125. 880 msg$=" windows finished!":gosub510:gosub500:gosub190:m=3:goto884
  126. 882 hr=hr+.5:ma(3,3)=ma(3,3)-4:ifma(3,3)<0thengosub700
  127. 884 gosub250:readx:ifx=-1then888
  128. 886 pokesc+x,35:pokecl+x,1:goto882
  129. 888 msg$=" fence finished!":gosub510:gosub500:gosub190:m=9:gosub636
  130. 890 hr=hr+2:ma(9,3)=ma(9,3)-1:ifma(9,3)<0thengosub700
  131. 892 gosub250:readx:readz:ifx=-1then896
  132. 894 pokesc+x,z:pokecl+x,8:goto890
  133. 896 m=10:gosub636
  134. 898 ifma(10,3)<=0thengosub700
  135. 900 hr=hr+.25:gosub250:readx:readz:ifx=-1then904
  136. 902 pokesc+x,z:pokecl+x,8:goto900
  137. 904 ma(10,3)=ma(10,3)-1:gosub250:msg$=" doors finished!":gosub510
  138. 906 gosub500:gosub190:m=2:hr=qt:goto910
  139. 908 hr=hr+1.5:ma(2,3)=ma(2,3)-10:ifma(2,3)<0thengosub700
  140. 910 gosub250:readx:ifx=-1thenhr=qt:goto914
  141. 912 x=x+810:pokesc+x,160:pokecl+x,12:goto908
  142. 914 msg$=" sidewalk finished!":gosub510:gosub500:gosub190:gosub250:m=11:co=13
  143. 916 pa=pa+1:ifma(11,3)<0thengosub700
  144. 918 readx:ifx=-1thenco=co+1:ifco=15then924
  145. 920 pokecl+x,co:ifpa<5then916
  146. 922 hr=hr+4:ma(11,3)=ma(11,3)-1:gosub250:pa=0:goto916
  147. 924 ho=ho+1:ca=ca+50000:gosub350:ifho>hnthen934
  148. 926 msg$="[145] house finished!!":gosub510:gosub500
  149. 928 msg$=" hit any key to start next house.":gosub500
  150. 930 getk$:ifk$=""then930
  151. 932 restore:goto36
  152. 934 print"[147]":poke53281,1:print"";tab(6);"[144]you finished the contract!!"
  153. 936 ca=ca-la:ca$=str$(ca):ifval(ca$)<0then944
  154. 938 printtab(4);"after paying your debts you made:"
  155. 940 printtab(19-int(len(ca$)/2));"$";ca$
  156. 942 printtab(11);"congratulations!!!":goto950
  157. 944 printtab(7);"too bad you owe the bank:"
  158. 946 printtab(19-int(len(ca$)/2));"$";ca$
  159. 948 printtab(5);"and had to retire in disgrace."
  160. 950 print"";tab(8);"[144]press [f1] to play again"
  161. 952 getk$:ifk$=""then952
  162. 954 ifk$="[133]"thenrun2
  163. 956 end
  164. 1000 rem ***** data starts *****
  165. 1002 data.15,60,.10,25,1.5,200,1.5,200,2,300,.2,30,.09,15,60,4500
  166. 1004 data75,5000,300,20000,10,1000,"brick","bricks","each","cemnt"
  167. 1006 data"cement","per lb.","wood ","boards","ea.","shing"
  168. 1008 data"shingles","ea.","pipes","pipe","each","wire ","wire"
  169. 1010 data"per ft.","plstr","plaster","per lb.","windw","windows"
  170. 1012 data"each","doors","doors","each","g.dr.","ga. doors","ea."
  171. 1014 data"paint","paint","gallon",801,42,802,41,803,42,804,41,805
  172. 1016 data42,806,41,807,42,808,41,809,42,810,41,814,41,815,42,823
  173. 1018 data42,824,41,825,42,826,41,761,41,762,42,763,41,764,42,765
  174. 1020 data41,766,42,767,41,768,42,769,41,770,42,774,42,775,41,783
  175. 1022 data41,784,42,785,41,786,42,721,42,722,41,723,42,724,41,725
  176. 1024 data42,726,41,727,42,728,41,729,42,730,41,734,41,735,42,743
  177. 1026 data42,744,41,745,42,746,41,681,41,682,42,683,41,684,42,641
  178. 1028 data42,642,41,643,42,644,41,601,41,602,42,603,41,604,42,561
  179. 1030 data42,562,41,563,42,564,41,521,41,522,42,523,41,524,42,481
  180. 1032 data42,482,41,483,42,484,41,441,41,442,42,443,41,444,42,401
  181. 1034 data33,402,41,403,42,404,23,362,42,363,41,322,41,323,42,282
  182. 1036 data42,283,41,242,41,243,42,202,42,203,41,162,41,163,42,122
  183. 1038 data42,123,41,82,41,83,42,42,42,43,41,2,41,3,42,-1,-1,771
  184. 1040 data101,773,103,731,101,691,101,651,101,611,101,733,103,693
  185. 1042 data103,653,103,613,103,571,79,572,119,573,80,776,101,736,101
  186. 1044 data696,101,656,101,616,101,782,103,742,103,702,103,662,103
  187. 1046 data622,103,576,79,577,119,578,119,579,119,580,119,581,119
  188. 1048 data582,80,681,76,641,101,601,101,561,101,521,101,481,101,682
  189. 1050 data111,683,111,684,111,685,111,686,111,687,111,688,111,689
  190. 1052 data111,690,111,531,101,491,101,694,111,695,76,655,76,615,76
  191. 1054 data575,76,535,101,495,101,481,79,482,119,483,119,484,119,485
  192. 1056 data119,486,119,487,119,488,119,489,119,490,119,491,79,492
  193. 1058 data119,493,119,494,119,682,76,642,101,602,101,562,101,522
  194. 1060 data101,482,79,690,76,650,79,610,79,570,79,530,101,490,79,602
  195. 1062 data76,603,111,604,111,605,111,606,111,607,111,608,111,609
  196. 1064 data122,569,103,529,80,522,79,523,119,524,119,525,119,526,119
  197. 1065 data527,119,528,119,683,76,643,101,684,76,644,101,685,76,645
  198. 1066 data101,686,76,646,101,687,76,647,101,688,76,648,101,689,76
  199. 1068 data649,101,641,79,601,79,561,79,521,79,481,79,482,79,483,79
  200. 1070 data484,79,485,79,486,79,487,79,488,79,489,79,532,101,492,79
  201. 1072 data533,101,493,79,534,76,494,79,654,111,614,111,574,111,703
  202. 1074 data122,704,122,705,122,706,122,663,103,623,103,583,103,664
  203. 1075 data103,624,103,584,103,665,103,625,103,585,103,666,103,626
  204. 1076 data103,586,103,546,80,545,80,544,80,543,80,542,80,541,80,540
  205. 1078 data80,539,80,538,80,537,80,536,80,535,79,441,101,401,101,361
  206. 1080 data101,321,101,281,101,241,101,454,101,414,101,374,101,334
  207. 1082 data101,294,101,254,101,240,119,241,79,242,119,243,119,244
  208. 1083 data119,245,119,246,119,247,119,248,119,249,119,250,119,251
  209. 1084 data119,252,119,253,119,455,101,415,101,375,101,335,101,295
  210. 1086 data101,255,101,215,101,502,103,462,103,422,103,382,103,342
  211. 1088 data103,302,103,262,103,222,103,215,79,216,119,217,119,218
  212. 1090 data119,219,119,220,119,221,119,222,80,498,101,458,101,418
  213. 1091 data101,378,101,338,101,298,101,258,101,218,79,499,103,459
  214. 1092 data103,419,103,379,103,339,103,299,103,259,103,219,80,496
  215. 1094 data101,501,103,456,101,461,103,416,76,417,122,420,76,421,122
  216. 1096 data376,101,377,103,380,101,381,103,336,101,337,103,340,101
  217. 1098 data341,103,296,79,297,80,300,79,301,80,256,101,261,103,216
  218. 1099 data79,221,80,454,79,414,79,374,79,334,79,294,79,254,79,442
  219. 1100 data101,402,101,362,101,322,101,282,101,242,79,441,79,401,79
  220. 1102 data361,79,321,79,281,79,282,79,283,119,284,119,285,119,286
  221. 1104 data119,287,119,288,119,289,119,290,119,291,119,292,119,293
  222. 1106 data80,333,103,373,103,413,122,412,111,411,111,410,111,409
  223. 1107 data111,408,111,407,111,406,111,405,111,404,111,403,111,402
  224. 1108 data76,445,101,405,76,365,101,325,101,285,79,245,79,446,101
  225. 1110 data406,76,366,101,326,101,286,79,246,79,447,101,407,76,367
  226. 1112 data101,327,101,287,79,247,79,448,101,408,76,368,101,328,101
  227. 1114 data288,79,248,79,449,101,409,76,369,101,329,101,289,79,249
  228. 1115 data79,450,101,410,76,370,101,330,101,290,79,250,79,451,101
  229. 1116 data411,76,371,101,331,101,291,79,251,79,325,76,326,76,327,76
  230. 1118 data328,76,329,76,330,76,495,79,496,79,497,119,498,79,499,80
  231. 1120 data500,119,501,80,502,80,458,79,459,80,418,79,419,80,378,79
  232. 1122 data379,80,338,79,339,80,298,79,299,80,255,79,256,79,257,119
  233. 1123 data258,79,259,80,260,119,261,80,262,80,178,76,179,122,138,79
  234. 1124 data139,80,177,79,180,80,137,79,140,80,98,79,99,80,176,79,181
  235. 1126 data80,59,77,100,77,141,77,182,77,223,77,58,78,97,78,136,78
  236. 1128 data175,78,214,78,45,77,86,77,127,77,168,77,209,77,44,78,83
  237. 1130 data78,122,78,161,78,200,78,5,100,6,100,7,100,8,100,9,100,10
  238. 1132 data100,11,100,12,100,13,100,14,100,15,100,16,100,17,100,18
  239. 1134 data100,51,77,92,77,133,77,174,77,50,78,89,78,128,78,167,78
  240. 1136 data206,78,55,77,96,77,54,78,93,78,132,78,171,78,210,78,48,77
  241. 1138 data89,86,130,77,171,86,212,77,47,78,86,86,125,78,164,78,203
  242. 1140 data78,200,233,201,160,202,160,203,160,204,160,205,160,206
  243. 1142 data160,207,160,208,160,209,160,210,160,211,160,212,160,213
  244. 1144 data160,214,105,161,233,162,160,163,160,164,160,165,160,166
  245. 1146 data160,167,160,168,160,169,160,170,160,171,160,172,160,173
  246. 1148 data160,174,160,175,105,122,233,123,160,124,160,125,160,126
  247. 1150 data160,127,160,128,160,129,160,130,160,131,160,132,160,133
  248. 1151 data160,134,160,135,160,136,105,83,233,84,160,85,160,86,160
  249. 1152 data87,160,88,160,89,160,90,160,91,160,92,160,93,160,94,160
  250. 1154 data95,160,96,160,97,105,44,233,5,32,45,160,6,32,46,160,7,32
  251. 1156 data47,160,8,32,48,160,9,32,49,160,10,32,50,160,11,32,51,160
  252. 1158 data12,32,52,160,13,32,53,160,14,32,54,160,15,32,55,160,16,32
  253. 1160 data56,160,17,32,57,160,18,32,58,105,323,32,363,32,443,32,444
  254. 1162 data32,563,32,564,32,-1,-1,200,233,201,250,202,250,203,250
  255. 1164 data204,250,205,250,206,250,207,250,208,250,209,250,210,250
  256. 1166 data211,250,212,250,213,250,214,105,161,233,162,204,163,204
  257. 1168 data164,204,165,204,166,204,167,204,168,204,169,204,170,204
  258. 1170 data171,204,172,204,173,204,174,204,175,105,122,233,123,250
  259. 1172 data124,250,125,250,126,250,127,250,128,250,129,250,130,250
  260. 1174 data131,250,132,250,133,250,134,250,135,250,136,105,83,233,84
  261. 1176 data204,85,204,86,204,87,204,88,204,89,204,90,204,91,204,92
  262. 1178 data204,93,204,94,204,95,204,96,204,97,105,44,233,45,250,46
  263. 1180 data250,47,250,48,250,49,250,50,250,51,250,52,250,53,250,54
  264. 1182 data250,55,250,56,250,57,250,58,105,223,77,182,77,141,77,100
  265. 1184 data77,59,77,-1,-1,681,682,683,684,685,686,687,688,689,690,641
  266. 1186 data650,601,561,521,610,570,530,531,532,533,534,694,695,654
  267. 1188 data655,614,615,574,575,704,705,706,664,665,666,624,625,626
  268. 1190 data584,585,586,544,545,546,481,482,483,484,485,486,487,488
  269. 1192 data489,490,491,492,493,441,442,443,444,445,446,447,448,449
  270. 1194 data450,451,452,453,405,406,407,408,409,410,365,366,367,368
  271. 1196 data369,370,325,326,327,328,329,330,285,286,287,288,289,290
  272. 1198 data401,361,321,281,241,242,243,244,245,246,247,248,249,250
  273. 1200 data251,252,253,495,496,497,498,499,500,501,502,455,456,457
  274. 1202 data458,459,460,461,462,255,256,257,258,259,260,261,262,215
  275. 1203 data216,217,218,219,220,221,222,415,375,335,295,422,382,342
  276. 1204 data302,418,419,378,379,338,339,298,299,176,180,181,140,98,99
  277. 1206 data-1,535,247,536,247,537,247,538,247,539,247,540,247,541
  278. 1208 data247,542,247,543,247,544,247,545,247,546,247,703,231,663
  279. 1210 data231,623,231,583,231,543,208,494,231,454,231,414,231,374
  280. 1212 data231,334,231,294,231,254,231,602,32,603,32,604,32,605,32
  281. 1214 data606,32,607,32,608,32,609,32,642,247,643,247,644,247,645
  282. 1215 data247,646,247,647,247,648,247,649,247,562,32,569,32,522,32
  283. 1216 data523,32,524,32,525,32,526,32,527,32,528,32,529,32,138,32
  284. 1218 data139,32,178,32,179,32,137,231,177,231,240,32,-1,-1,602,207
  285. 1220 data603,208,562,207,563,208,522,207,523,208,608,207,609,208
  286. 1222 data568,207,569,208,528,207,529,208,604,160,605,160,606,160
  287. 1224 data607,160,564,207,569,208,528,207,529,208,604,160,605,160
  288. 1226 data606,160,607,160,564,160,565,160,566,160,567,160,524,247
  289. 1228 data525,247,526,247,527,247,402,204,403,239,404,250,362,207
  290. 1230 data363,247,364,208,322,229,323,160,324,231,282,207,283,247
  291. 1232 data284,208,411,204,412,239,413,250,371,207,372,247,373,208
  292. 1233 data331,229,332,160,333,231,291,207,292,247,293,208,416,204
  293. 1234 data417,250,376,207,377,208,336,229,337,231,296,207,297,208
  294. 1236 data420,204,421,250,380,207,381,208,340,229,341,231,300,207
  295. 1238 data301,208,178,250,179,250,138,208,139,208,-1,-1,495,496,497
  296. 1242 data498,499,500,501,502,503,504,505,506,801,802,803,804,805
  297. 1244 data806,807,808,809,810,814,815,823,824,825,826,-1,571,207
  298. 1246 data611,229,651,229,691,229,731,229,771,229,572,247,612,111
  299. 1248 data652,32,692,160,732,160,772,160,573,208,613,231,653,231
  300. 1250 data693,215,733,231,773,231,-1,-1,576,207,577,247,578,247,579
  301. 1252 data247,580,247,581,247,582,208,616,207,617,247,618,247,619
  302. 1254 data247,620,247,621,247,622,208,656,207,657,247,658,247,659
  303. 1256 data247,660,247,661,247,662,208,696,207,697,247,698,247,699
  304. 1258 data247,700,247,701,247,702,208,736,207,737,247,738,247,739
  305. 1260 data247,740,247,741,247,742,208,776,207,777,247,778,247,779
  306. 1262 data247,780,247,781,247,782,208,-1,-1,1,2,3,6,7,8,9,10,11,12
  307. 1264 data-1,641,642,643,644,645,646,647,648,649,650,690,610,570,530
  308. 1266 data601,561,521,681,682,683,684,685,686,687,688,689,531,532
  309. 1268 data533,534,574,575,614,615,654,655,694,695,535,536,537,538
  310. 1270 data539,540,541,542,543,583,623,663,703,704,705,706,664,665
  311. 1272 data665,666,624,625,626,584,585,586,544,545,546,481,482,483
  312. 1274 data484,485,486,487,488,489,490,491,492,493,494,441,442,443
  313. 1276 data444,445,401,361,321,281,241,242,243,244,245,285,325,365
  314. 1278 data405,450,451,452,453,454,410,370,330,290,250,251,252,253
  315. 1280 data254,294,334,374,414,446,447,448,449,406,407,408,409,366
  316. 1282 data367,368,369,326,327,328,329,286,287,288,289,246,247,248
  317. 1284 data249,455,456,457,458,459,460,461,462,415,375,335,295,422
  318. 1286 data382,342,302,255,215,176,137,177,98,99,140,180,181,222,262
  319. 1288 data256,257,258,259,260,261,216,217,218,219,220,221,418,419
  320. 1290 data378,379,338,339,298,299,-1,571,611,651,691,731,771,572
  321. 1292 data612,652,692,732,772,573,613,653,693,733,773,576,577,578
  322. 1294 data579,580,581,582,616,617,618,619,620,621,622,656,657,658
  323. 1296 data659,660,661,662,696,697,698,699,700,701,702,736,737,738
  324. 1298 data739,740,741,742,776,777,778,779,780,781,782,-1
  325.