home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 19 / 019.d81 / mm.start (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  14.2 KB  |  559 lines
  1. 50 iflf<3then61000
  2. 100 clr:print"[147]"
  3. 120 :
  4. 160 dim ac$(140),an%(140,8),mo$(12),mn$(12,6),mn%(12,3,8),ad(8),tw(8),tr(8)
  5. 161 dimpy(12)
  6. 162 dim hl%(12,2),fg$(4,5),jj$(4,5),kk$(4,5)
  7. 164 dim s(12)
  8. 180 a=3
  9. 190 ml$=",000"
  10. 192 sp$="                                       "
  11. 193 dn$=""
  12. 194 df$=""
  13. 195 dg$=""
  14. 200 ifad=0thengosub60000:sys51459: rem       read stuff and turn off title pic
  15. 340 :
  16. 350 s(1)=0:s(2)=0:s(3)=0
  17. 360 x=int(rnd(1)*12)+1
  18. 370 s(1)=x
  19. 380 x=int(rnd(1)*12)+1
  20. 385 ifx=s(1)then380
  21. 390 s(2)=x
  22. 400 x=int(rnd(1)*12)+1
  23. 410 ifx=s(1)orx=s(2)then400
  24. 420 s(3)=x
  25. 430 :
  26. 440 print"[147]"
  27. 480 fori=1to3
  28. 500 print""str$(i)")  "mn$(s(i),1)
  29. 520 printmn$(s(i),2)
  30. 530 printmn$(s(i),3)
  31. 540 print"*roles==> ";mn$(s(i),4)
  32. 550 printspc(10)mn$(s(i),5)
  33. 560 printspc(10)mn$(s(i),6)
  34. 570 print
  35. 580 nexti
  36. 590 print"[217]ou have been sent three scripts."
  37. 600 print"[215]hich do you want to produce(1-3)?";
  38. 610 poke198,0:wait198,1:getz$
  39. 620 z=val(z$)
  40. 630 ifz<1orz>3then610
  41. 635 z=s(z)
  42. 640 printz$:mv$=mn$(z,1):fori=2to6:mv$(i)=mn$(z,i):nexti
  43. 650 fori=1to3:forj=1to8:mv(i,j)=mn%(z,i,j):nextj,i
  44. 660 fori=1to12:ifmv$=mo$(i)then680
  45. 670 nexti
  46. 680 ll=hl%(i,1):hh=hl%(i,2)
  47. 690 print"[147]"
  48. 700 print""spc(14)"[195]asting[160][195]all"
  49. 710 print""spc(18)"for"
  50. 720 print""spc(19-len(mv$)/2)chr$(34)mv$chr$(34)
  51. 730 print""spc(14)"[208]lease wait..."
  52. 735 :
  53. 865 forpp=1to12:s(pp)=0:next
  54. 870 :
  55. 880 xm%=int(rnd(1)*5)+4
  56. 890 fork=1toxm%
  57. 900 x=int(rnd(1)*76)+1
  58. 910 forpp=1toxm%
  59. 920 ifx=s(pp)thenpp=xm%:goto900
  60. 930 nextpp
  61. 940 s(k)=x
  62. 950 nextk
  63. 960 :
  64. 970 fork=xm%+1to12
  65. 980 x=int(rnd(1)*(140-77))+77
  66. 990 forpp=xm%+1to12
  67. 1000 ifx=s(pp)thenpp=12:goto980
  68. 1010 nextpp
  69. 1020 s(k)=x
  70. 1030 nextk
  71. 1040 :
  72. 1050 :
  73. 1060 :
  74. 1070 :
  75. 1220 print"[147]"
  76. 1230 printspc(6);"[206][193][205][197]";spc(20)"[208][193][217]"
  77. 1240 print:fori=1to12
  78. 1250 printspc(1+abs(i<10))str$(i);") ";ac$(s(i));tab(25):gosub3780
  79. 1260 nexti
  80. 1270 :
  81. 1280 print"":ct=0
  82. 1290 print"[215]ho will you cast as the":printmv$(4);:inputaa$
  83. 1295 aa=val(aa$)
  84. 1300 ifaa<1oraa>12thenprint"[145][145][145]":goto1290
  85. 1305 sa=aa:aa=s(aa)
  86. 1320 ifmv(1,1)=5then1335
  87. 1330 ifmv(1,1)<>an%(aa,1)thenprint"[145][145][145]":goto1290
  88. 1335 print"[145]"ac$(aa)left$(sp$,39-len(ac$(aa)))
  89. 1340 fm$=mv$(4)+":"+ac$(aa):iflen(fm$)>40thengosub6500
  90. 1350 a1$=ac$(aa):ct=ct+py(sa):a1=sa:forj=1to8:ao(j)=an%(aa,j):next
  91. 1355 :
  92. 1356 :
  93. 1360 print"[215]ho will you cast as the":printmv$(5);:inputaa$
  94. 1365 aa=val(aa$)
  95. 1370 ifaa<1oraa>12oraa=a1thenprint"[145][145][145]":goto1360
  96. 1375 sa=aa:aa=s(aa)
  97. 1380 :
  98. 1390 ifmv(2,1)=5then1405
  99. 1400 ifmv(2,1)<>an%(aa,1)thenprint"[145][145][145]":goto1360
  100. 1405 print"[145]"ac$(aa)left$(sp$,39-len(ac$(aa)))
  101. 1410 fm$=mv$(5)+":"+ac$(aa):iflen(fm$)>40thengosub6500
  102. 1420 a2$=ac$(aa):ct=ct+py(sa):a2=sa:forj=1to8:tw(j)=an%(aa,j):next
  103. 1425 :
  104. 1426 :
  105. 1430 print"[215]ho will you cast as the":printmv$(6);:inputaa$
  106. 1435 aa=val(aa$)
  107. 1440 if(aa<1oraa>12)oraa=a1oraa=a2thenprint"[145][145][145]":goto1430
  108. 1445 sa=aa:aa=s(aa)
  109. 1460 ifmv(3,1)=5then1480
  110. 1470 ifmv(3,1)<>an%(aa,1)thenprint"[145][145][145]":goto1430
  111. 1480 fm$=mv$(6)+":"+ac$(aa):iflen(fm$)>40thengosub6500
  112. 1482 print"[145]"ac$(aa)left$(sp$,39-len(ac$(aa)))
  113. 1490 a3$=ac$(aa):ct=ct+py(sa):forj=1to8:tr(j)=an%(aa,j):next
  114. 1492 ifa1$="[211]chwarzenegger"thena1$="[193]rnold "+a1$
  115. 1493 ifa2$="[211]chwarzenegger"thena2$="[193]rnold "+a2$
  116. 1494 ifa3$="[211]chwarzenegger"thena3$="[193]rnold "+a3$
  117. 1495 :
  118. 1496 :
  119. 1500 print"[147]"
  120. 1501 cm$=str$(ct):gosub22000
  121. 1502 print"[212]otal cost of salaries: $";cm$;ml$
  122. 1505 cm$=str$(ll):gosub22000
  123. 1510 print"[200]ow much do you want to spend on        production(";
  124. 1511 printcm$ml$" - 30,000,000)":             print"$";
  125. 1516 inputpa$:ifval(pa$)/1000>=llthen1520
  126. 1517 iflen(pa$)<7orlen(pa$)>11then1510
  127. 1518 gosub20000:goto1530
  128. 1520 mm=int(val(pa$)/1000)
  129. 1530 ifmm<llormm>30000then1510
  130. 1540 ifmm>hhthenmn=hh:goto1560
  131. 1550 mn=mm
  132. 1560 x=int(rnd(1)*10)+1
  133. 1565 :
  134. 1570 onxgoto3900,3920,3930,3940,3950,3960,3970,1580,1580,1580
  135. 1580 x=int(rnd(1)*100)+1
  136. 1590 ifx>=70thenprintdg$"[212]he movie comes in on budget.":goto1650
  137. 1600 ifx>=30thenprintdg$"[212]he production went 2% over budget.":mm=mm+int(mm*.02)
  138. 1602 ifx>=30then1650
  139. 1610 ifx>=15thenprintdg$"[212]he production went 5% over budget.":mm=mm+int(mm*.05)
  140. 1612 ifx>=15then1650
  141. 1620 ifx>=7thenprintdg$"[212]he production went 10% over budget.":mm=mm+int(mm*.1)
  142. 1622 ifx>=15then1650
  143. 1630 ifx>=3thenprintdg$"[212]he production went 20% over budget.":mm=mm+int(mm*.2)
  144. 1632 ifx>=15then1650
  145. 1640 printdg$"[212]he production went 30% over budget.":mm=mm+int(mm*.3)
  146. 1650 ct=ct+mm:cm$=str$(ct):gosub22000
  147. 1660 printleft$(dn$,20)"total cost = $";cm$;ml$:print
  148. 1670 gosub3980
  149. 1680 print"[147]"
  150. 1690 print"":print"       [205][193][202][207][210][160][211][212][213][196][201][207][160][211][206][197][193][203][160][208][210][197][214][201][197][215]"
  151. 1700 print"":printspc(19)"of"
  152. 1710 y=20-int(len(mv$)/2)
  153. 1720 print""spc(y)""mv$"[146]"
  154. 1730 print"":printspc(16)"starring"
  155. 1731 vx$=a1$:vy$=a2$:vz$=a3$
  156. 1732 iflen(vy$)=21thendm$=vx$:vx$=vy$:vy$=dm$
  157. 1733 iflen(vz$)=21thendm$=vx$:vx$=vz$:vz$=dm$
  158. 1740 y=20-int(len(vx$)/2)
  159. 1750 printleft$(dn$,15)spc(y)vx$
  160. 1760 y=20-int((len(vy$)+len(vz$)+3)/2)
  161. 1765 ify=0theny=1
  162. 1770 printleft$(dn$,17)spc(y)vy$;" & ";vz$:print
  163. 1780 printleft$(dn$,19)spc(30);:x=int(rnd(1)*3)+1
  164. 1790 ifx=1thenprint"rated pg":goto1820
  165. 1800 ifx=2thenprint"rated pg13":goto1820
  166. 1810 print"rated r"
  167. 1820 gosub3980
  168. 1830 print"[147][212]he reviews are in..."
  169. 1840 :
  170. 1850 ps$="[212]he [206][217] [212]imes ":gosub3830
  171. 1860 ps$="[197]ntertainment [212]onight ":gosub3830
  172. 1870 ps$="[199]ene [211]iskel ":gosub3830
  173. 1880 ps$="[210]oger [197]bert ":gosub3830
  174. 1890 ps$="[211]neak [208]reviews ":gosub3830
  175. 1900 ps$="[210]ex [210]eed ":gosub3830
  176. 1910 ps$="[212]ime [205]agazine ":gosub3830
  177. 1920 ps$="[206]ewsweek ":gosub3830
  178. 1930 ps$="[204][193] [212]imes ":gosub3830
  179. 1932 print""
  180. 1940 print"  [208]ress any key to release the movie";:poke198,0:wait198,1:getk$
  181. 1950 :
  182. 1960 print"[147]":bq=0:aq=0
  183. 1970 fori=1to3
  184. 1980 aq=int((aq+mv(i,3)+mv(i,4))*1.10)
  185. 1990 nexti
  186. 2000 fori=3to8
  187. 2010 ifao(i)<mv(1,i)thenbq=bq+(ao(i)-mv(1,i))
  188. 2020 iftw(i)<mv(2,i)thenbq=bq+(tw(i)-mv(2,i))
  189. 2030 iftr(i)<mv(3,i)thenbq=bq+(tr(i)-mv(3,i))
  190. 2040 nexti
  191. 2050 ifa<0thena=-1
  192. 2060 cq=(a*90)+50
  193. 2070 dq=int(mn/100)
  194. 2080 mq=38*(aq+bq)+cq+dq
  195. 2090 x=int(rnd(1)*950+1)
  196. 2100 wt=(mq-x)*8
  197. 2110 xx=int(rnd(1)*3)+1
  198. 2120 wk=1:tt=0
  199. 2130 print""spc(17)"[215][197][197][203]";wk
  200. 2140 x=int(rnd(1)*1200)+100
  201. 2150 wt=wt-x
  202. 2160 ifxx=4thenyy=.25
  203. 2170 ifxx=1thenyy=.02
  204. 2180 ifxx=2thenyy=.07
  205. 2190 ifxx=3thenyy=.15
  206. 2200 wt=wt-int(wt*yy)
  207. 2210 ifwt<200thenwt=200
  208. 2215 cm$=str$(wt):gosub22000
  209. 2220 print"[215]eekly gross - $";cm$;ml$;"           "
  210. 2230 tt=tt+wt
  211. 2235 cm$=str$(tt):gosub22000
  212. 2240 print"[212]otal gross - $";cm$;ml$
  213. 2250 gosub3980
  214. 2260 ifwt<500then2280
  215. 2270 wk=wk+1:goto2130
  216. 2280 print"[147]":bl$=chr$(34)+mv$+chr$(34)
  217. 2281 bl$=bl$+" starring "+a1$+", "+a2$+" and "+a3$
  218. 2282 bl$=bl$+" has been pulled from the theaters after"+str$(wk)+" weeks."
  219. 2283 gosub7500:print
  220. 2290 print"subtotal = $";cm$;ml$
  221. 2300 gosub3980:fm$="+----------------------------------+"
  222. 2310 print"[147]"fm$:forfk=3to24:printleft$(dn$,fk)" !"
  223. 2311 printleft$(dn$,fk)spc(38)"!";:print"":nextfk
  224. 2312 printdn$fm$""
  225. 2313 print" * [201] n v i t a t i o n *"
  226. 2314 print" ======================="
  227. 2315 printleft$(dn$,11)"[212]he [193]cademy of [205]otion [208]ictures"
  228. 2316 print"[193]rts and [211]ciences cordially"
  229. 2317 print"invites you to attend its annual"
  230. 2318 print"[193]cademy [193]wards ceremony."
  231. 2319 print:print:print"[208]ress any key to attend":poke198,0:wait198,1:geta$
  232. 2330 :
  233. 2340 print"[147][215]elcome to the annual [193]cademy":print"[193]wards presentation."
  234. 2350 print"[200]ere to present the first award is ":rx%=1:px%=xm%:oz$="actor"
  235. 2351 xx%=76:gosub3230:w=0
  236. 2360 printleft$(dn$,10)"[212]he winner of the [207]scar for [194]est":print"[193]ctress is ";
  237. 2361 fordl=1to500:nextdl:gosub3390
  238. 2370 print"[147][200]ere to present the next [207]scar is ":rx%=xm%+1:px%=12
  239. 2371 xx%=64:gosub3230
  240. 2380 printleft$(dn$,10)"[212]he winner of the [207]scar for [194]est":print"[193]ctor is ";
  241. 2381 fordl=1to500:nextdl:gosub3530
  242. 2390 print"[147][200]ere to award the final oscar is"
  243. 2394 rx%=xm%+1:px%=12:xx%=64
  244. 2395 gosub3230
  245. 2400 printleft$(dn$,10)"[212]he award for [194]est [208]icture goes to":forzx=1to500:next
  246. 2401 gosub3670
  247. 2410 :
  248. 2420 print"[147]":ifw>0thenprint"[194]ecause of the [207]scars, your movie"
  249. 2421 ifw>0thenprint"will be re-released.":goto2440
  250. 2430 goto2510
  251. 2440 gosub3980:ifw>1thenw=1.3
  252. 2445 od=int(rnd(1)*500)
  253. 2450 iftt<20000thenoi=int(rnd(1)*20000)+9501:goto2475
  254. 2460 iftt>80000thenoi=(int(rnd(1)*6)+15)/100*tt:goto2475
  255. 2470 oi=(int(rnd(1)*20)+20)/100*tt
  256. 2475 xt=int(w*oi+od)
  257. 2480 tt=tt+xt
  258. 2490 cm$=str$(xt):gosub22000
  259. 2500 print"[212]he re-release grosses $";cm$;ml$:goto2520
  260. 2510 printleft$(dn$,15)"[217]our movie will not be re-released."
  261. 2520 gosub3980
  262. 2530 print"[147]"
  263. 2531 printtab(int((40-len(mv$))/2));mv$:print
  264. 2535 cm$=str$(ct):gosub22000
  265. 2540 printleft$(dn$,9)"[212]otal cost - $";cm$;ml$
  266. 2545 cm$=str$(tt):gosub22000
  267. 2550 printleft$(dn$,12)"[212]otal revenue - $";cm$;ml$
  268. 2560 printleft$(dn$,17):pj=abs(tt-ct):pj$=str$(pj)
  269. 2565 cm$=pj$:gosub22000
  270. 2570 iftt>ctthenprint"[217]ou made a profit of $";cm$;ml$:goto2600
  271. 2580 iftt<ctthenprint"[217]ou lost $";cm$;ml$:goto2600
  272. 2590 iftt=ctthenprint"[217]ou came out even!"
  273. 2600 gosub3980
  274. 2610 open8,8,8,"mm.high scores"
  275. 2630 fori=1to4
  276. 2640 forj=1to5
  277. 2660 input#8,fg$(i,j):input#8,jj$(i,j):input#8,kk(i,j)
  278. 2670 nextj
  279. 2680 nexti
  280. 2690 close8
  281. 2695 goto10000
  282. 2699 remhspage1
  283. 2700 print"[147]"spc(15)"[200][201][199][200][160][211][195][207][210][197][211]"
  284. 2710 print:printspc(13)"[200][201][199][200][197][211][212][160][208][210][207][198][201][212]":print
  285. 2720 fori=1to5
  286. 2730 printfg$(1,i);spc(21-len(fg$(1,i)));left$(jj$(1,i),3);
  287. 2735 iflen(jj$(1,i))=4thenprint""right$(jj$(1,i),1);"[146][157]";
  288. 2740 ifkk(1,i)>99999thenprintspc(1);:goto2770
  289. 2750 ifkk(1,i)>9999thenprintspc(2);:goto2770
  290. 2760 printspc(3);
  291. 2770 cm$=str$(kk(1,i)):gosub22000:print"$";cm$;ml$:nexti
  292. 2780 print:printspc(12)"[199][210][197][193][212][197][211][212][160][210][197][214][197][206][213][197][211]":print
  293. 2790 fori=1to5
  294. 2800 printfg$(2,i);spc(21-len(fg$(2,i)));left$(jj$(2,i),3);
  295. 2805 iflen(jj$(2,i))=4thenprint""right$(jj$(2,i),1);"[146][157]";
  296. 2810 ifkk(2,i)>99999thenprintspc(1);:goto2840
  297. 2820 ifkk(2,i)>9999thenprintspc(2);:goto2840
  298. 2830 printspc(3);
  299. 2840 cm$=str$(kk(2,i)):gosub22000:print"$";cm$;ml$:nexti
  300. 2845 u6=1:return
  301. 3220 goto2700
  302. 3230 remfindpresenter
  303. 3240 x=int(rnd(1)*140)+1
  304. 3270 pt$=ac$(x)
  305. 3285 ifx=18andxx%=76thenpt$="[193]rnold "+pt$
  306. 3290 ifpt$=a1$then3240
  307. 3292 ifpt$=a2$then3240
  308. 3294 ifpt$=a3$then3240
  309. 3370 printpt$
  310. 3380 return
  311. 3390 remfindactress
  312. 3400 x=int(rnd(1)*30)+6
  313. 3410 ifao(1)=9 and ao(3)+mv(1,3)>xthenprinta1$;" for ":printmv$:w=w+.4:goto3510
  314. 3420 iftw(1)=9 and ao(3)+mv(2,3)>xthenprinta2$;" for ":printmv$:w=w+.4:goto3510
  315. 3430 iftr(1)=9 and ao(3)+mv(3,3)>xthenprinta3$;" for ":printmv$:w=w+.4:goto3510
  316. 3440 x=int(rnd(1)*140)+1
  317. 3450 aa$=ac$(x)
  318. 3460 ifan%(x,1)<>9oraa$=a1$oraa$=a2$oraa$=a3$then3440
  319. 3470 printac$(x);" for "
  320. 3475 fori=1to8:x%(i)=an%(x,i):nexti
  321. 3480 x=int(rnd(1)*12)+1
  322. 3490 gosub7000:ifn%=1then3480
  323. 3500 printmo$(x)
  324. 3510 gosub3980
  325. 3520 return
  326. 3530 remfindactor
  327. 3540 x=int(rnd(1)*30)+6
  328. 3550 ifao(1)=1 and ao(3)+mv(1,3)>xthenprinta1$;" for ":printmv$:w=w+.4:goto3650
  329. 3560 iftw(1)=1 and ao(3)+mv(2,3)>xthenprinta2$;" for ":printmv$:w=w+.4:goto3650
  330. 3570 iftr(1)=1 and ao(3)+mv(3,3)>xthenprinta3$;" for ":printmv$:w=w+.4:goto3650
  331. 3580 x=int(rnd(1)*140)+1
  332. 3590 aa$=ac$(x)
  333. 3600 ifan%(x,1)<>1oraa$=a1$oraa$=a2$oraa$=a3$then3580
  334. 3610 printac$(x);" for "
  335. 3615 fori=1to8:x%(i)=an%(x,i):nexti
  336. 3620 x=int(rnd(1)*12)+1
  337. 3630 gosub7000:ifn%=1then3620
  338. 3640 printmo$(x)
  339. 3650 gosub3980
  340. 3660 return
  341. 3670 remfindmovie
  342. 3680 x=int(rnd(1)*130)+21:fq=0
  343. 3690 fori=1to3
  344. 3700 fq=fq+mv(i,3):nexti
  345. 3710 fq=fq+ao(3)+tw(3)+tr(3)
  346. 3720 iffq>xthenprintmv$:w=w+1:goto3760
  347. 3730 x=int(rnd(1)*12)+1
  348. 3740 ifmo$(x)=mv$orx=2orx=7then3730
  349. 3750 printmo$(x)
  350. 3760 gosub3980
  351. 3770 return
  352. 3780 rem findpay
  353. 3790 x=int(rnd(1)*300)+31
  354. 3800 py(i)=int((an%(s(i),3)/2)+an%(s(i),4))*x
  355. 3802 ifpy(i)<100thenpy(i)=py(i)+100
  356. 3805 cm$=str$(py(i)):gosub22000
  357. 3807 iflen(cm$)<4thencm$="  "+cm$
  358. 3810 print"$";cm$;ml$
  359. 3820 return
  360. 3830 remreviews
  361. 3840 x=int(rnd(1)*10)+1:                     fordl=1to500:nextdl
  362. 3850 ifx=>9thenps$=ps$+"loved it!":a=a+2:goto3890
  363. 3860 ifx=>6thenps$=ps$+"liked it.":a=a+1:goto3890
  364. 3870 ifx=>3thenps$=ps$+"didn't like it.":a=a-1:goto3890
  365. 3880 ps$=ps$+"hated it!":a=a-3
  366. 3890 gosub62000:return
  367. 3900 remweirdthings
  368. 3910 printdf$:bl$=a1$+" has been arrested for possesion of cocaine. [212]he bad"
  369. 3911 bl$=bl$+" publicity could hurt the movie.":a=a-2:gosub7500:goto1580
  370. 3920 printdf$;:bl$=a2$+" is suing the [206]ational [197]nquirer. [212]he publicity could be"
  371. 3921 bl$=bl$+" good for the movie.":a=a+3:gosub7500:goto1580
  372. 3930 printdf$;:bl$="[193] stunt man is killed while filming. [212]he publicity"
  373. 3931 bl$=bl$+" could be bad.":a=a-2:gosub7500:goto1580
  374. 3940 printdf$;:bl$=a3$+" is injured in a car accident.  [212]he delay will cost"
  375. 3941 bl$=bl$+" you $200,000.":ct=ct+200:gosub7500:goto1580
  376. 3950 printdf$;:bl$=a1$+" hates the director. [199]etting a new one will cost"
  377. 3951 bl$=bl$+" $450,000.":ct=ct+450:gosub7500:goto1580
  378. 3960 printdf$;:bl$=a2$+" has started dating a famous athlete.  [212]he publicity"
  379. 3961 bl$=bl$+" could be good for the movie.":a=a+2:gosub7500:goto1580
  380. 3970 printdf$;:bl$=a1$+" has just written an autobiography. [212]he publicity"
  381. 3971 bl$=bl$+" could be good for the movie.":a=a+1:gosub7500:goto1580
  382. 3980 printdn$"[208]ress any key to continue";
  383. 3981 poke198,0:wait198,1:geta$
  384. 3990 return
  385. 6500 k=0
  386. 6510 k=k+1
  387. 6520 ifmid$(fm$,k,1)=" "then6550
  388. 6530 goto6510
  389. 6550 fm$=right$(fm$,len(fm$)-k)
  390. 6560 return
  391. 7000 n%=0
  392. 7010 ifx=9andx%(7)<5thenn%=1
  393. 7020 ifx=6andx%(1)=9andx%(2)<5thenn%=1
  394. 7030 ifmo$(x)=mv$orx=2orx=7thenn%=1
  395. 7090 return
  396. 7500 iflen(bl$)<39thenprintbl$:return
  397. 7510 forkw=39to1step-1
  398. 7520 ifmid$(bl$,kw,1)=" "then7550
  399. 7530 next
  400. 7550 printleft$(bl$,kw)
  401. 7560 bl$=right$(bl$,len(bl$)-kw)
  402. 7570 goto7500
  403. 7999 remhspage2
  404. 8000 print"[147]"spc(15)"[200][201][199][200][160][211][195][207][210][197][211]"
  405. 8010 printspc(9):print"[194]est percentage returned":print
  406. 8020 fori=1to5
  407. 8030 printfg$(3,i);spc(21-len(fg$(3,i)));left$(jj$(3,i),3);
  408. 8035 iflen(jj$(3,i))=4thenprint""right$(jj$(3,i),1);"[146][157]";
  409. 8040 ifkk(3,i)>99999thenprintspc(1);:goto8070
  410. 8050 ifkk(3,i)>9999thenprintspc(2);:goto8070
  411. 8060 ifkk(3,i)>999thenprintspc(3);:goto8070
  412. 8065 printspc(4);
  413. 8070 printkk(3,i);"[157]%":nexti
  414. 8080 print:printspc(10)"[194]iggest bombs":print
  415. 8090 fori=1to5
  416. 8100 printfg$(4,i);spc(21-len(fg$(4,i)));left$(jj$(4,i),3);
  417. 8105 iflen(jj$(4,i))=4thenprint""right$(jj$(4,i),1);"[146][157]";
  418. 8110 ifkk(4,i)>99999thenprintspc(1);:goto8140
  419. 8120 ifkk(4,i)>9999thenprintspc(2);:goto8140
  420. 8130 printspc(3);
  421. 8140 cm$=str$(kk(4,i)):gosub22000:print"$";cm$;ml$:nexti
  422. 8145 u6=-1:return
  423. 10000 z4=0
  424. 10005 ifkk(1,5)<tt-ctthengosub11000
  425. 10010 ifkk(2,5)<ttthengosub12000
  426. 10020 ifkk(3,5)<int(((tt/ct)*100)+.5)thengosub13000
  427. 10030 ifkk(4,5)<ct-ttthengosub14000
  428. 10040 ifz4=1thengosub10200
  429. 10050 goto10500
  430. 10200 open15,8,15,"s0:mm.high scores"
  431. 10210 close15
  432. 10220 open8,8,8,"0:mm.high scores,s,w"
  433. 10240 fori=1to4:forj=1to5
  434. 10250 print#8,fg$(i,j):print#8,jj$(i,j):print#8,kk(i,j)
  435. 10260 nextj:nexti
  436. 10265 close8
  437. 10270 return
  438. 10300 print:print:print"[217]our score - $";
  439. 10310 cm$=pj$:gosub22000:printtab(22-len(cm$));cm$;ml$;
  440. 10320 iftt-ct>=0thenprint" profit"
  441. 10330 iftt-ct<0thenprint" loss"
  442. 10350 printspc(22-len(cm$));int(((tt/ct)+.005)*100);"% returned"
  443. 10360 return
  444. 10400 printleft$(dn$,24)"[197]nter your initials";:inputz$
  445. 10410 ifz$=""then10400
  446. 10420 iflen(z$)>3thenz$=left$(z$,3)
  447. 10430 ec$=" "
  448. 10440 foryj=1to4:foryi=1to5
  449. 10450 iffg$(yj,yi)<>mv$then10490
  450. 10455 ifleft$(jj$(yj,yi),3)<>z$then10490
  451. 10460 iflen(jj$(yj,yi))=3andec$=" "then ec$="a":goto10490
  452. 10465 iflen(jj$(yj,yi))=3then10490
  453. 10470 ifec$>right$(jj$(yj,yi),1)then10490
  454. 10480 ec$=chr$(asc(right$(jj$(yj,yi),1))+1)
  455. 10490 next:next
  456. 10493 ifec$=" "then10499
  457. 10496 z$=z$+ec$
  458. 10499 return
  459. 10500 ifu6=-1thengosub8000:goto10503
  460. 10501 gosub2700
  461. 10503 gosub10300
  462. 10505 printdn$"[145]  [208])lay [193]gain  [214])iew other page  [209])uit  [146]";
  463. 10506 poke198,0:wait198,1
  464. 10510 geta$:ifa$="p"then180
  465. 10520 ifa$="q"then50000
  466. 10530 ifa$<>"v"then10510
  467. 10550 ifu6=1thenu6=-1:goto10500
  468. 10560 u6=1:goto10500
  469. 11000 ifz4=0thengosub2700:gosub10300:gosub10400
  470. 11010 fori=5to2step-1
  471. 11030 fg$(1,i)=fg$(1,i-1)
  472. 11031 jj$(1,i)=jj$(1,i-1)
  473. 11032 kk(1,i)=kk(1,i-1)
  474. 11036 iftt-ct>kk(1,i-1)thennexti
  475. 11040 fg$(1,i)=mv$:jj$(1,i)=z$:kk(1,i)=tt-ct
  476. 11060 z4=1:return
  477. 12000 ifz4=0thengosub2700:gosub10300:gosub10400
  478. 12010 fori=5to2step-1
  479. 12030 fg$(2,i)=fg$(2,i-1)
  480. 12031 jj$(2,i)=jj$(2,i-1)
  481. 12032 kk(2,i)=kk(2,i-1)
  482. 12036 iftt>kk(2,i-1)thennexti
  483. 12040 fg$(2,i)=mv$:jj$(2,i)=z$:kk(2,i)=tt
  484. 12060 z4=1:return
  485. 13000 ifz4=0thengosub8000:gosub10300:gosub10400
  486. 13010 fori=5to2step-1
  487. 13030 fg$(3,i)=fg$(3,i-1)
  488. 13031 jj$(3,i)=jj$(3,i-1)
  489. 13032 kk(3,i)=kk(3,i-1)
  490. 13036 ifint(((tt/ct)+.005)*100)>kk(3,i-1)thennexti
  491. 13040 fg$(3,i)=mv$:jj$(3,i)=z$:kk(3,i)=int(((tt/ct)+.005)*100)
  492. 13060 z4=1:return
  493. 14000 ifz4=0thengosub8000:gosub10300:gosub10400
  494. 14010 fori=5to2step-1
  495. 14030 fg$(4,i)=fg$(4,i-1)
  496. 14031 jj$(4,i)=jj$(4,i-1)
  497. 14032 kk(4,i)=kk(4,i-1)
  498. 14036 ifct-tt>kk(4,i-1)thennexti
  499. 14040 fg$(4,i)=mv$:jj$(4,i)=z$:kk(4,i)=ct-tt
  500. 14060 z4=1:return
  501. 20000 forkn=0tolen(pa$)-1
  502. 20100 nextkn
  503. 20110 pa$=left$(pa$,len(pa$)-4)
  504. 20130 mm=val(pa$)
  505. 20140 return
  506. 22000 cm$=mid$(cm$,2)
  507. 22005 iflen(cm$)>3thencm$=left$(cm$,len(cm$)-3)+","+right$(cm$,3)
  508. 22010 return
  509. 50000 rem   return to ls
  510. 50010 load"hello connect",8
  511. 50055 end
  512. 60000 fori=1to12
  513. 60010 readmo$(i):nexti
  514. 60020 data "[211][208][193][195][197][160][215][193][210][211]","[211][204][193][211][200][197][210] [206][201][199][200][212][211]","[196][197][205][207][206][160][196][213][211][212][197][210][211]","[212][200][197][160][204][193][211][212][160][194][193][212][212][204][197]"
  515. 60030 data "[199][213][206][211][160]&[160][210][201][198][204][197][211]","[198][201][206][193][204][160][210][197][213][206][201][207][206]","[194][207][206][203][197][210][211]!","[209][213][197][211][212][160][198][207][210][160][200][207][206][207][210]"
  516. 60040 data "[201]'[214][197][160][199][207][212][160][205][213][211][201][195]","[195][207][206][211][197][206][212][160][212][207][160][203][201][204][204]","[197][216][197][195][213][212][201][214][197][160][196][197][195][201][211][201][207][206][211]"
  517. 60050 data "[211][212][210][193][206][199][197] [194][197][196][198][197][204][204][207][215][211]"
  518. 60060 :
  519. 60070 fori=1to12:forj=1to2
  520. 60080 readhl%(i,j):nextj,i
  521. 60090 data 5000,30000,500,12000,1500,26000,2500,19000,2000,17000,1000,15000
  522. 60100 data 250,7000,3000,27000,1200,16000,750,18000,1000,15000,1000,15000
  523. 60110 :
  524. 60120 :
  525. 60130 open8,8,8,"moviedata"
  526. 60140 forj=1to12:mn$(j,1)=mo$(j)
  527. 60150 forl=2to6:input#8,mn$(j,l):nextl
  528. 60160 forg=1to3
  529. 60170 forh=1to8
  530. 60180 input#8,mn%(j,g,h):print".";
  531. 60190 nexth
  532. 60200 nextg
  533. 60210 nextj
  534. 60220 close8
  535. 60230 :
  536. 60240 open8,8,8,"actordata"
  537. 60250 forj=1to140
  538. 60260 input#8,ac$(j)
  539. 60270 forl=1to8
  540. 60280 input#8,an%(j,l)
  541. 60290 nextl
  542. 60300 nextj
  543. 60310 close8
  544. 60320 :
  545. 60330 ad=1:return
  546. 61000 rem    display title screen
  547. 61010 iflf=0thenlf=1:load"unpacker",8,1
  548. 61020 iflf=1thenlf=2:load"mm.title",8,1
  549. 61030 :
  550. 61040 poke249,224:poke250,204
  551. 61050 poke251,0:poke252,128
  552. 61060 poke253,0:poke254,0
  553. 61070 sys51456:sys51459:goto100
  554. 61080 :
  555. 62000 rem   slow for reviews
  556. 62010 forpo=1tolen(ps$):printmid$(ps$,po,1);
  557. 62020 fordl=1to15:nextdl:nextpo:print
  558. 62030 return
  559.